0 'Club 100 Library - 415/939-1246 BBS 937-5039 NEWSLETTER, 932-8856 VOICE 5 'BUGS, A CHILD'S BUG BUILDING GAME, M100 VERSION BY RUSS HALL 15 CLS:CLEAR2000 20 DIM X(16.5),BODY(16.5),HEAD(16.5),ANTE(16.5),LEGS(16.5),TAIL(16.5),NECK(16.5),CNT(16.5),PLAY(16.5),Z(16.5),Y(16.5) 30 X(5.0)=46:X(16.5)=161 100 M$=" -- BUILD A BUG GAME --" 105 Y$=STRING$(40,"*"):Z$=STRING$(39,CHR$(32)) 110 PRINTY$;:PRINTM$:PRINTY$; 120 PRINT:PRINT"Enter your first name"; 130 INPUTNM$ 140 PRINT"Want an explanation of the rules? (Y/N)" 150 ANS$=INKEY$:R=RND(1):IFANS$=""THEN150 155 IFANS$="Y"ORANS$="y"THENCLS:GOSUB1200 160 CLS 390 FORF=1TO100:NEXT:PRINT@175,"HIT ENTER TO ROLL DIE"; 400 INPUTA 402 PRINT@200,Z$:PRINT@280,Z$; 410 PLAY=5.0 420 GOSUB520:PRINT@160,"ROLL IS A"ROLL:PRINT@175," " 423 GOSUB540:GOSUB 1060 440 PLAY=16.5 450 GOSUB520:PRINT@240,"ROLL IS A"ROLL 460 GOSUB540:GOSUB1060:GOTO390 520 ROLL=RND(1)*10:IFROLL>7THEN520 525 ROLL=INT(ROLL):IFROLL=0THEN520:RETURN 527 RETURN 540 IF ROLL=1THENIFBODY(PLAY)=0THENGOSUB670 560 IFROLL=2THENIFBODY(PLAY)=1THENIFNECK(PLAY)=0THENGOSUB760 580 IFROLL=3THENIFBODY(PLAY)=1THENIFNECK(PLAY)=1THENIFHEAD(PLAY)=0THENGOSUB820 600 IFROLL=4THENIFHEAD(PLAY)=1THENIFANTE(PLAY)<2THENGOSUB880 620 IFROLL=5THENIFBODY(PLAY)=1THENIFTAIL(PLAY)=0THENGOSUB940 640 IFROLL=6THENIFBODY(PLAY)=1THENIFLEGS(PLAY)<6THENGOSUB1000 660 RETURN 670 IFPLAY=5.0THENPRINT@200,NM$"'S BUG HAS A BODY" 710 IFPLAY=16.5THENPRINT@280,"COMPUTER'S BUG HAS A BODY"; 715 LINE(PLAY*10,10)-(PLAY*10+20,22),1,BF 720 CNT(PLAY)=1:BODY(PLAY)=1:RETURN 760 IFPLAY=5.0THENPRINT@200,NM$"'S BUG HAS A NECK" 770 IFPLAY=16.5THENPRINT@280,"COMPUTER'S BUG HAS A NECK"; 775 LINE(PLAY*10+20,15)-(PLAY*10+24,17),1,B 780 CNT(PLAY)=CNT(PLAY)+1:NECK(PLAY)=1:RETURN 820 IFPLAY=5.0THENPRINT@200,NM$"'S BUG HAS A HEAD" 830 IFPLAY=16.5THENPRINT@280,"COMPUTER'S BUG HAS A HEAD"; 835 LINE(PLAY*10+24,13)-(PLAY*10+29,19),1,BF 840 CNT(PLAY)=CNT(PLAY)+1:HEAD(PLAY)=1:RETURN 880 ANTE(PLAY)=ANTE(PLAY)+1 890 IFPLAY=5.0THENPRINT@200,NM$"'S BUG HAS"ANTE(5)"ANTENNAE." 900 IFPLAY=16.5THENPRINT@280,"COMPUTER'S BUG HAS"ANTE(16.5)"ANTENNAE."; 902 IFANTE(PLAY)=2THENLINE(PLAY*10+30,14)-(PLAY*10+40,8),1:GOTO910 904 LINE(PLAY*10+30,18)-(PLAY*10+40,22),1 910 CNT(PLAY)=CNT(PLAY)+1:RETURN 940 IFPLAY=5.0THENPRINT@200,NM$"'S BUG HAS A TAIL." 950 IFPLAY=16.5THENPRINT@280,"COMPUTER'S BUG HAS A TAIL."; 955 LINE(PLAY*10,16)-(PLAY*10-10,16),1 960 CNT(PLAY)=CNT(PLAY)+1:TAIL(PLAY)=1:RETURN 1000 LEGS(PLAY)=LEGS(PLAY)+1 1010 IFPLAY=5.0THENPRINT@200,NM$"'S BUG HAS"LEGS(5)"LEGS." 1020 IFPLAY=16.5THENPRINT@280,"COMPUTER'S BUG HAS"LEGS(16.5)"LEGS."; 1022 IFZ(PLAY)=10THENZ(PLAY)=27 ELSE Z(PLAY)=10 1024 IFY(PLAY)=5THENY(PLAY)=22 ELSE Y(PLAY)=5:X(PLAY)=X(PLAY)+7 1026 LINE(X(PLAY),Y(PLAY))-(X(PLAY),Z(PLAY)),1 1030 CNT(PLAY)=CNT(PLAY)+1:RETURN 1060 IFCNT(5.0)=12THEN1090 1070 IFCNT(16.5)=12THEN1110 1080 RETURN 1090 BEEP:BEEP:PRINT@160,Y$;:PRINTNM$"'S BUG IS FINISHED. YOU WIN!":PRINTY$;:GOTO1130 1110 BEEP:BEEP:PRINT@160,Y$;:PRINT"COMPUTER'S BUG IS FINISHED, I WIN!":PRINTY$; 1130 FOR F=1TO3000:NEXT:MENU 1200 PRINT:PRINT"The game of bug is played as follows:" 1210 PRINT"A die is rolled by the computer, and each number on the die corresponds" 1220 PRINT"to a part of the bug's body: 1=Body, 2=Neck, 3=Head, 4=Antennae, 5=Tail," 1225 PRINT"Touch any key to continue..." 1230 K$=INKEY$:IFK$=""THEN 1230 1240 CLS:PRINT:PRINT"and 6=legs. You need 1 body, 1 neck, 1 head, 2 antennae, 1 tail, and" 1250 PRINT"6 legs to complete a bug. The object of the game is to complete your bug" 1260 PRINT"before the computer builds his! Touch any key when you're ready..." 1270 K$=INKEY$:IFK$=""THEN1270 1280 CLS:RETURN