' ' KICKER v8.5 ' ' Created by Richard Demsyn-Jones of EverNever programs ' ' ' May not be reproduced without the permission of EverNever programs ' ' althelegoman@hotmail.com ' ' demsyn.gowan@sympatico.ca 'KICKER v8.5 'BETTER THAN EVER! 'USE CAP LOCK FOR YOUR BENEFIT DEFINT A-Z DECLARE SUB Mouse (cx, dx, bx) DECLARE SUB MousePointer (SW) DIM SHARED a(9) 'Set up array for code DEF SEG = VARSEG(a(0)) 'Get array segment (nnnn: ) ' (two 8 bit) FOR i = 0 TO 17 'length of DATA to READ r 'read POKE VARPTR(a(0)) + i, r 'into array/2 (nnnn:iiii) (one 8 bit) NEXT i 'until 17 '**************************** Machine Code ********************************* DATA &HB8,&H00,&H00 : ' mov AX,[n] [Swap code-(L),(H)] in AX DATA &H55 : ' push BP Save BP DATA &H8B,&HEC : ' mov BP,SP Get BP to c Seg DATA &HCD,&H33 : ' int 33 Interrupt 33 DATA &H92 : ' xchg AX,[reg] [Swap code-reg] in AX DATA &H8B,&H5E,&H06 : ' mov BX,[BP+6] Point to (variable) DATA &H89,&H07 : ' mov [BX],AX Put AX in (variable) DATA &H5D : ' pop BP Restore BP DATA &HCA,&H02,&H00 : ' ret 2 Far return SCREEN 13 '****************************** Mouse set up ****************************** CALL MousePointer(0) 'Reset mouse and CALL MousePointer(1) 'turn pointer on CALL MousePointer(3) 'Get coordinates '****************************** P R O G R A M ****************************** 'DO 'Put your code here '****************************MY TERRITORY************************************* CALL Mouse(cx, dx, bx) LINE (50, 50)-(80, 70), 15, B IF bx = 1 THEN IF dx > 1 AND dx < 200 THEN IF cx > 1 AND cx < 200 THEN LOCATE 2, 1: PRINT "You clicked in the box" END IF END IF END IF '******************************END TERRITORY*********************************** LOCATE 1, 1: PRINT dx; cx; bx 'LOOP UNTIL INKEY$ = CHR$(27) 'Stop your code here SCREEN 10 'COLOR SCREEN RANDOMIZE TIMER PRESS$ = INKEY$ CLS 'CLEARS SCREEN 0 SCREEN 13 CLS SLEEP 1 CALL MousePointer(2) 'CALL Mouse(cx, dx, bx) DO WHILE INKEY$ = "" CLS LINE (1, 1)-(315, 180), 14, B LOCATE 2, 30: PRINT "Kicker v.8.5" LOCATE 3, 22: PRINT "Created by Richard Demsyn-Jones" LOCATE 20, 20 DRAW "C14 U1 C0 L260 U40" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'DRAWS MAN DRAW "R20 C0 R50 D70 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L20 D90" SLEEP 1 CLS LINE (1, 1)-(315, 180), 14, B LOCATE 2, 30: PRINT "Kicker v.8.5" LOCATE 3, 22: PRINT "Created by Richard Demsyn-Jones" LOCATE 20, 20 DRAW "C14 U1 C0 L260 U40" DRAW "C3 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20 D30 R40" 'IMAGE OF MAN DRAW "R20 C0 R50 D30 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L30" SLEEP 1 LOOP COLOR 4 'PRINT "kicker v 7.5 by Richard Demsyn-Jones" DIM melt%(3000) FOR RR = 1 TO 2000 RANDOMIZE TIMER XX = INT(RND * 271) RANDOMIZE TIMER YX = INT(RND * 150) GET (XX, YX)-(XX + 48, YX + 48), melt% PUT (XX, YX + 1), melt%, PSET IF INKEY$ = CHR$(27) THEN END FOR delay = 1 TO 17000: NEXT delay NEXT RR choosematch: COLOR 15 CLS LOCATE 2, 2: PRINT "1) 1 Player match" LOCATE 3, 2: PRINT "2) 2 Player match" 'INPUT ">", M$ 'IF M$ = "Q" THEN END 'IF M$ = "1" THEN GOTO 1 'IF M$ = "2" THEN CHAIN "TWOPLAY.BAS" ELSE GOTO choosematch 'CALL MousePointer(1) 'CALL Mouse(cx, dx, bx) LINE (1, 1)-(315, 180), 14, B DRAW "U10 C0 L250 U50" DRAW "C3 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20 D30 R40" 'IMAGE OF MAN DRAW "R20 C0 R50 D30 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" INPUT " ", m$ IF m$ = "Q" THEN END IF m$ = "1" THEN GOTO 1 IF m$ = "2" THEN GOTO 168 1 CLS 'COLOR 4 'PRINT "kicker v 7.5 by Richard Demsyn-Jones" ' DIM mmmelt%(3000) ' FOR RR = 1 TO 3000 ' RANDOMIZE TIMER ' YYXX = INT(RND * 271) ' RANDOMIZE TIMER ' YYYX = INT(RND * 150) ' GET (YYXX, YYYX)-(YYXX + 48, YYYX + 48), mmmelt% ' PUT (YYXX, YYYX + 1), mmmelt%, PSET ' IF PRESS$ = CHR$(27) THEN END ' FOR delay = 1 TO 20000: NEXT delay ' NEXT RR DRAW "C0 D70 L110 C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20 R20" DRAW "C0 R90 D70" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 U20 R40 D20 L20 R20" DRAW "C0 R90 D70" DRAW "C14 E20 H20 G39 E39 U20 L15 R30 L15 U10 L10 U10 E10 F10 D10 L10" PRINT "" LINE (1, 1)-(315, 180), 14, B PRINT "Who do you wish to play as?" PRINT "1) Trianglehead" PRINT "2) Squarehead" PRINT "3) Pentagonhead" INPUT ">", K$ IF K$ = "1" THEN GOTO 20 IF K$ = "2" THEN GOTO 120 IF K$ = "3" THEN GOTO 220 IF K$ = "q" THEN END IF K$ = "Q" THEN END: ELSE GOTO 1 2 CLS PRINT "" PRINT "Defeat your foe to achieve victory!" PRINT "A is kick" PRINT "S is punch" 'SHOWS BUTTONS PRINT "D is special move" PRINT "M is menu" PRINT "ESC is menu" SLEEP 3 GOTO 20 20 SCREEN 13 C% = 50 G% = 50 D% = 3 LET dif = 3 'TRIANGLE HEAD COLOR 4 'PRINT "kicker v 7.5 by Richard Demsyn-Jones" DIM mmelt%(3000) FOR RR = 1 TO 2000 RANDOMIZE TIMER YXX = INT(RND * 271) RANDOMIZE TIMER YYX = INT(RND * 150) GET (YXX, YYX)-(YXX + 48, YYX + 48), mmelt% PUT (YXX, YYX + 1), mmelt%, PSET IF PRESS$ = CHR$(27) THEN END FOR delay = 1 TO 17000: NEXT delay NEXT RR CLS COLOR 15 PRINT "" PRINT "Defeat your foe to achieve victory!" PRINT "A is kick" PRINT "S is punch" 'SHOWS BUTTONS PRINT "D is special move" PRINT "M is menu" 'PRINT "ESC is menu" SLEEP 2 CLS COLOR 4: LOCATE 12, 15: PRINT "BEGIN!!" SLEEP 2: 30 DO UNTIL PRESS$ = CHR$(13) 'CREATES LOOP IF CHE% = 1 THEN LET G% = 50 IF C% < 0 THEN GOTO wingame IF G% < 0 THEN GOTO losegame IF C% = 0 THEN GOTO wingame IF G% = 0 THEN GOTO losegame f = (INT(RND * 5) + 1) CLS 'CLEARS SCREEN 'background COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'DRAWS MAN DRAW "R20 C0 R50 D70 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 IF f = 2 THEN GOTO badfight IF f = 4 THEN GOTO badfight SLEEP 4 WAIT &H3DA, 8 PRESS$ = INKEY$ WAIT &H3DA, 8 IF PRESS$ = "D" THEN C% = C% - 3: GOTO headbutt IF PRESS$ = "M" THEN GOTO menu IF PRESS$ = "A" THEN C% = C% - 2: GOTO kick 'CHR$ MEANS KEYBOARD (65) = A IF PRESS$ = "S" THEN C% = C% - 1: GOTO punch '(65) = 'Y'KNOW IF PRESS$ = "a" THEN C% = C% - 2: GOTO kick 'CHR$ MEANS KEYBOARD (65) = A IF PRESS$ = "s" THEN C% = C% - 1: GOTO punch '(65) = B'Y'KNOW'CHR$ MEANS KEYBOARD (65) = A'(65) = B IF PRESS$ = "Q" THEN END IF PRESS$ = "m" THEN GOTO menu IF PRESS$ = "d" THEN C% = C% - 3: GOTO headbutt IF PRESS$ = "q" THEN END SLEEP 2 LOOP 'LOOP 'GOTO menu man: CLS COLOR 3: PRINT G% LOCATE 20, 20 DRAW "E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'IMAGE OF MAN SLEEP 1 'RETURN headbutt: CLS COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif LOCATE 20, 20 DRAW "C0 L30 C3 E20 H20 G39 E39 U20 L15 R50 U10 F15 G15 U20" 'IMAGE OF MAN DRAW "C0 R50 D50 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 GOTO 30 kick: CLS COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif LOCATE 20, 20 'LOCATE FINDS SPOT ON SCREEN 'DRAW "R20 H20 G20 R20 D10 R15 L30 R15 D20 G38 E38 F20 G20" CLS COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif DRAW "C0 L35" DRAW "C3 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20 D30 R40" 'IMAGE OF MAN DRAW "R20 C0 R50 D30 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 'KICKING CLS GOTO 30 'RETURN FOR GOSUB punch: CLS COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif LOCATE 20, 20 DRAW "C3 E20 H20 G39 E39 U20 L15 R30 E15 G15 L15 U10 L20 E20 F20 L20" DRAW "R20 C0 R50 D70 E5" DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 CLS GOTO 30 badfight: CLS IF dif = 1 THEN B% = 1 IF dif = 2 THEN B% = 2 IF dif = 3 THEN B% = 3 m = (INT(RND * B%) + 1) FOR delay = 1 TO 5000: NEXT delay IF m = 2 THEN G% = G% - 2: GOTO badkick IF m = 1 THEN G% = G% - 1 IF m = 3 THEN G% = G% - 5: GOTO badkick COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif LOCATE 20, 20 DRAW "C30 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L20" DRAW "L20 C0 L50 D70 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 CLS GOTO 30 'RETURN badkick: CLS COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif y = (INT(RND * 5) + 1) IF y = 2 THEN GOTO badfight IF y = 3 THEN GOTO badhead LOCATE 20, 20 DRAW "C30 H40 L40 R40 U20 L15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L20 C0 L50 D70 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L40" SLEEP 2 CLS GOTO 30 badhead: CLS COLOR 3: PRINT "Your health:"; G% COLOR 30: PRINT "His health:"; C% COLOR 3: PRINT "Difficulty is:"; dif DRAW "C30 H20 E20 F39 H39 U20 R15 L50 D20 H20 E20 D20 D20 H20 " DRAW "C0 L20 C0 L50 D70 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 CLS GOTO 30 menu: CLS PRINT "1) Quit" PRINT "2) Restart" PRINT "3) Switch Characters" PRINT "4) Cheat Codes" PRINT "5) Difficulty" PRINT "6) Strategy hints" PRINT "7) Credits" PRINT "8) Resume" INPUT ">", U$ IF U$ = "1" THEN END IF U$ = "2" THEN GOTO 0 IF U$ = "3" THEN GOTO 1 IF U$ = "4" THEN GOTO cheatcode IF U$ = "5" THEN GOTO diff IF U$ = "6" THEN GOTO strategy IF U$ = "7" THEN GOTO credits IF U$ = "8" THEN GOTO 30' ELSE GOTO menu strategy: CLS PRINT "If you have trouble wining, try these" PRINT "1) Try to attack your foe with headbutt" PRINT "2) Set the difficulty settings at 1." PRINT "3) Press your keys as fast as you can." INPUT "", v$ IF v$ = "SUCKER" THEN GOTO sucker ELSE GOTO menu credits: CLS PRINT "Producer: Richard Demsyn-Jones" PRINT "Director: Richard Demsyn-Jones" PRINT "Editor: Richard Demsyn-Jones" PRINT "Writer: Richard Demsyn-Jones" PRINT "Technical Advisor: Richard Demsyn-Jones" PRINT "Head Programmer: Richard Demsyn-Jones" PRINT "Head Graphicist: Richard Demsyn-Jones" PRINT "Distributor: Richard Demsyn-Jones" PRINT "" PRINT "Thanks to all the wonderful people who worked on this program" INPUT "", Q$ IF Q$ = "SUCKER" THEN GOTO sucker ELSE GOTO menu diff: CLS LET dif = 3 PRINT "Difficulty:"; o$ PRINT "1) Easy" PRINT "2) Medium" PRINT "3) Hard" INPUT ">", i$ IF i$ = "1" THEN LET dif = 1 IF i$ = "2" THEN LET dif = 2 IF i$ = "3" THEN LET dif = 3 IF i$ = "4" THEN GOTO menu ELSE GOTO menu IF dif = 1 THEN LET o$ = "Easy" IF dif = 2 THEN LET o$ = "Medium" IF dif = 3 THEN LET o$ = "Hard" cheatcode: CLS INPUT "Cheat code >", J$ IF J$ = "HEALTH" THEN CHE% = 1: PRINT "Cheatcode activated": SLEEP 2: GOTO menu IF J$ = "WINGAME" THEN CHE% = 2: PRINT "Cheatcode activated": SLEEP 2: GOTO wingame IF J$ = "LOSEGAME" THEN PRINT "Cheatcode activated": SLEEP 2: GOTO losegame IF J$ = "BACK" THEN GOTO menu ELSE GOTO menu wingame: CLS x = (INT(RND * 5) + 1) IF x = 1 THEN GOTO sucker PRINT "You win!" PRINT "You had"; G%; "life points left" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'DRAWS MAN DRAW "R20 C0 R60 D100 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L20 E20 F20 L20" COLOR 4 PRINT "" PRINT "Aaaahhhh!" COLOR 3 INPUT "Do you wish to play again? Y/N ", n$ IF n$ = "Y" THEN GOTO 20 IF n$ = "y" THEN GOTO 20 IF n$ = "YES" THEN GOTO 20 IF n$ = "Yes" THEN GOTO 20 IF n$ = "yes" THEN GOTO 20 IF n$ = "no" THEN GOTO highscore IF n$ = "n" THEN GOTO highscore IF n$ = "NO" THEN GOTO highscore IF n$ = "No" THEN GOTO highscore IF n$ = "N" THEN GOTO highscore: ELSE GOTO wingame losegame: CLS PRINT "You lose!" PRINT "He had"; C%; "life points left" DRAW "E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'DRAWS MAN DRAW "L20 C0 L60 D110 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L20 E20 F20 L20" COLOR 4 PRINT "" PRINT "Noooooo!": END COLOR 3 INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO losegame sucker: CLS LOCATE 20, 20 DRAW "C0 R20 D30" DRAW "C30 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L30 C0 L50 D40 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 PRINT "He hit you hard! You lose." INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO sucker END 120 COLOR 4 'PRINT "kicker v 7.5 by Richard Demsyn-Jones" DIM meltt%(3000) FOR RR = 1 TO 2000 RANDOMIZE TIMER XXX = INT(RND * 271) RANDOMIZE TIMER YXX = INT(RND * 150) GET (XXX, YXX)-(XXX + 48, YXX + 48), meltt% PUT (XXX, YXX + 1), meltt%, PSET IF INKEY$ = CHR$(27) THEN END FOR delay = 1 TO 17000: NEXT delay NEXT RR CLS PRINT "" PRINT "Defeat your foe to achieve victory!" PRINT "A is kick" PRINT "S is punch" 'SHOWS BUTTONS PRINT "D is special move" PRINT "M is menu" 'PRINT "ESC is menu" SLEEP 2 CLS COLOR 4: LOCATE 12, 15: PRINT "BEGIN!!" SLEEP 2: SCREEN 13 CC% = 50 GG% = 50 DD% = 3 LET ddif = 3 130 DO UNTIL PRESS$ = CHR$(27) 'CREATES LOOP FOR delay% = 1 TO 10000: NEXT delay% IF CCHE% = 1 THEN LET GG% = 50 t = (INT(RND * 5) + 1) IF CC% < 0 THEN GOTO wwingame IF GG% < 0 THEN GOTO llosegame IF CC% = 0 THEN GOTO wwingame IF GG% = 0 THEN GOTO llosegame CLS 'CLEARS SCREEN COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 U20 R40 D20 L20" 'DRAWS MAN DRAW "R20 C0 R50 D70 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 IF t = 2 THEN GOTO bbadfight IF t = 4 THEN GOTO bbadfight SLEEP 4 IF INKEY$ = "M" THEN GOTO mmenu IF INKEY$ = "D" THEN CC% = CC% - 3: GOTO hheadbutt IF INKEY$ = "A" THEN CC% = CC% - 1: GOSUB kkick 'CHR$ MEANS KEYBOARD (65) = A IF INKEY$ = "S" THEN CC% = CC% - 2: GOSUB ppunch '(65) = 'Y'KNOW IF INKEY$ = "d" THEN CC% = CC% - 3: GOTO hheadbutt IF INKEY$ = "a" THEN CC% = CC% - 1: GOSUB kkick 'CHR$ MEANS KEYBOARD (65) = A IF INKEY$ = "s" THEN CC% = CC% - 2: GOSUB ppunch '(65) = B'Y'KNOW'(65) = B IF INKEY$ = "Q" THEN END 'Y'KNOW IF INKEY$ = "q" THEN END LOOP 'LOOP GOTO mmenu mman: CLS COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif LOCATE 20, 20 DRAW "E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'IMAGE OF MAN SLEEP 1 'RETURN kkick: CLS COLOR 2: PRINT GG% COLOR 30: PRINT CC% LOCATE 20, 20 'LOCATE FINDS SPOT ON SCREEN 'DRAW "R20 H20 G20 R20 D10 R15 L30 R15 D20 G38 E38 F20 G20" CLS COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif DRAW "C0 L35" DRAW "C2 E39 U20 L15 R30 L15 U10 L20 U20 R40 D20 L20 D30 R40" 'IMAGE OF MAN DRAW "R20 C0 R50 D30 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 'KICKING CLS RETURN 'RETURN FOR GOSUB ppunch: CLS COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif LOCATE 20, 20 DRAW "C2 E20 H20 G39 E39 U20 L15 R30 E15 G15 L15 U10 L20 U20 R40 D20 L20" DRAW "R20 C0 R50 D70 E5" DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 CLS RETURN hheadbutt: CLS COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif LOCATE 20, 20 DRAW "C0 L30 U50 C2 R70 U15 R20 D31 L20 U20" 'IMAGE OF MAN DRAW "C0 R50 D50 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 GOTO 130 bbadfight: CLS IF ddif = 1 THEN P% = 1 IF ddif = 2 THEN P% = 2 IF ddif = 3 THEN P% = 3 FOR delay% = 1 TO 10000: NEXT delay% o = (INT(RND * P%) + 1) IF o = 2 THEN GG% = GG% - 2: GOTO bbadkick IF o = 1 THEN GG% = GG% - 1 IF o = 3 THEN GG% = GG% - 5: GOTO bbadkick CLS COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif LOCATE 20, 20 DRAW "C30 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L20" DRAW "L20 C0 L50 D70 E5" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 U20 R40 D20 L20" SLEEP 1 CLS GOTO 130 'RETURN bbadkick: CLS COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif t = (INT(RND * 5) + 1) IF t = 2 THEN GOTO bbadfight IF t = 3 THEN GOTO bbadhead LOCATE 20, 20 DRAW "C30 H40 L40 R40 U20 L15 R30 L15 U10 L20 E20 F20 L20" DRAW "C0 L30 C0 L50 D70 E5" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 U20 R40 D20 L20" SLEEP 1 CLS GOTO 130 bbadhead: CLS COLOR 2: PRINT "Your health:"; GG% COLOR 30: PRINT "His health:"; CC% COLOR 2: PRINT "Difficulty is:"; ddif DRAW "C30 H20 E20 F39 H39 U20 R15 L50 D20 H20 E20 D20 D20 H20 " DRAW "C0 L20 C0 L50 D70 E5" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 CLS GOTO 130 mmenu: CLS PRINT "1) Quit" PRINT "2) Restart" PRINT "3) Switch Characters" PRINT "4) Cheat Codes" PRINT "5) Difficulty" PRINT "6) Strategy" PRINT "7) Credits" PRINT "8) Resume" INPUT ">", UU$ IF UU$ = "1" THEN END IF UU$ = "2" THEN GOTO 0 IF UU$ = "3" THEN GOTO 1 IF UU$ = "4" THEN GOTO ccheatcode IF UU$ = "5" THEN GOTO ddiff IF UU$ = "6" THEN GOTO sstrategy IF UU$ = "7" THEN GOTO ccredits IF UU$ = "8" THEN GOTO 130 ddiff: CLS LET ddif = 3 PRINT "Difficulty:"; ddif PRINT "1) Easy" PRINT "2) Medium" PRINT "3) Hard" INPUT ">", ii$ IF ii$ = "1" THEN LET ddif = 1 IF ii$ = "2" THEN LET ddif = 2 IF ii$ = "3" THEN LET ddif = 3 IF ii$ = "4" THEN GOTO mmenu ELSE GOTO mmenu sstrategy: CLS PRINT "If you have trouble wining, try these" PRINT "1) Try to attack your foe with headbutt" PRINT "2) Set the difficulty settings at 1." PRINT "3) Press your keys as fast as you can." INPUT "", VV$ IF VV$ = "SUCKER" THEN GOTO ssucker ELSE GOTO mmenu ccredits: CLS PRINT "Producer: Richard Demsyn-Jones" PRINT "Director: Richard Demsyn-Jones" PRINT "Editor: Richard Demsyn-Jones" PRINT "Writer: Richard Demsyn-Jones" PRINT "Technical Advisor: Richard Demsyn-Jones" PRINT "Head Programmer: Richard Demsyn-Jones" PRINT "Head Graphicist: Richard Demsyn-Jones" PRINT "Distributor: Richard Demsyn-Jones" PRINT "" PRINT "Thanks to all the wonderful people who worked on this program" INPUT "", QQ$ IF QQ$ = "SUCKER" THEN GOTO ssucker ELSE GOTO mmenu ccheatcode: CLS INPUT "Cheat code >", J$ IF J$ = "HEALTH" THEN CCHE% = 1: PRINT "Cheatcode activated": SLEEP 2: GOTO mmenu IF J$ = "WINGAME" THEN CCHE% = 2: PRINT "Cheatcode activated": SLEEP 2: GOTO wwingame IF J$ = "LOSEGAME" THEN PRINT "Cheatcode activated": SLEEP 2: GOTO llosegame IF J$ = "BACK" THEN PRINT "Cheatcode activated": SLEEP 2: GOTO mmenu ELSE GOTO mmenu ssucker: CLS LOCATE 20, 20 DRAW "C30 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L30 C0 L50 D70 E5" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 U20 R40 D20 L20" SLEEP 1 PRINT "He hit you hard! You lose." INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO ssucker wwingame: CLS y = (INT(RND * 5) + 1) IF y = 1 THEN GOTO ssucker PRINT "You win!" PRINT "You had"; GG%; "life points left" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 U20 R40 D20 L20" 'DRAWS MAN DRAW "R20 C0 R60 D100 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L20 E20 F20 L20" COLOR 4 PRINT "" PRINT "Aaaahhhh!" COLOR 2 INPUT "Do you wish to play again? Y/N ", RR$ IF RR$ = "Y" THEN GOTO 20 IF RR$ = "y" THEN GOTO 20 IF RR$ = "YES" THEN GOTO 20 IF RR$ = "Yes" THEN GOTO 20 IF RR$ = "yes" THEN GOTO 20 IF RR$ = "no" THEN END IF RR$ = "n" THEN END IF RR$ = "NO" THEN END IF RR$ = "No" THEN END IF RR$ = "N" THEN END: ELSE GOTO wwingame llosegame: CLS PRINT "You lose!" PRINT "He had"; CC%; "life points left" DRAW "E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'DRAWS MAN DRAW "L20 C0 L60 D110 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L20 U20 R40 D20 L20" COLOR 4 PRINT "" PRINT "Noooooo!" COLOR 2 INPUT "Do you wish to play again? Y/N ", rrr$ IF rrr$ = "Y" THEN GOTO 20 IF rrr$ = "y" THEN GOTO 20 IF rrr$ = "YES" THEN GOTO 20 IF rrr$ = "Yes" THEN GOTO 20 IF rrr$ = "yes" THEN GOTO 20 IF rrr$ = "no" THEN END IF rrr$ = "n" THEN END IF rrr$ = "NO" THEN END IF rrr$ = "No" THEN END IF rrr$ = "N" THEN END: ELSE GOTO llosegame 220 COLOR 4 'PRINT "kicker v 7.5 by Richard Demsyn-Jones" DIM melttt%(3000) FOR RR = 1 TO 2000 RANDOMIZE TIMER XXXX = INT(RND * 271) RANDOMIZE TIMER YXXX = INT(RND * 150) GET (XXXX, YXXX)-(XXXX + 48, YXXX + 48), melttt% PUT (XXXX, YXXX + 1), melttt%, PSET IF PRESS$ = CHR$(27) THEN END FOR delay = 1 TO 17000: NEXT delay NEXT RR CLS PRINT "" PRINT "Defeat your foe to achieve victory!" PRINT "A is kick" PRINT "S is punch" 'SHOWS BUTTONS PRINT "D is special move" PRINT "M is menu" 'PRINT "ESC is menu" SLEEP 2 CLS COLOR 4: LOCATE 12, 15: PRINT "BEGIN!!" SLEEP 2: SCREEN 13 CCC% = 50 GGG% = 50 DDD% = 3 LET dddif = 3 230 DO UNTIL PRESS$ = CHR$(27) 'CREATES LOOP FOR delay% = 1 TO 10000: NEXT delay% IF CCCHE% = 1 THEN LET GG% = 50 t = (INT(RND * 5) + 1) IF CCC% < 0 THEN GOTO wwwingame IF GGG% < 0 THEN GOTO lllosegame IF CCC% = 0 THEN GOTO wwwingame IF GGG% = 0 THEN GOTO lllosegame CLS 'CLEARS SCREEN COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif DRAW "C0 D20 L20 C14 E20 H20 G39 E39 U20 L15 R30 L15 U10 L10 U10 E10 F10 D10 L10" 'DRAWS MAN DRAW "R10 C0 R50 D70 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 IF t = 2 THEN GOTO bbbadfight IF t = 4 THEN GOTO bbbadfight SLEEP 4 IF INKEY$ = "M" THEN GOTO mmmenu IF INKEY$ = "D" THEN CCC% = CCC% - 3: GOTO hhheadbutt IF INKEY$ = "A" THEN CCC% = CCC% - 1: GOSUB kkkick 'CHR$ MEANS KEYBOARD (65) = A IF INKEY$ = "S" THEN CCC% = CCC% - 2: GOSUB pppunch '(65) = 'Y'KNOW IF INKEY$ = "d" THEN CCC% = CCC% - 3: GOTO hhheadbutt IF INKEY$ = "a" THEN CCC% = CCC% - 1: GOSUB kkkick 'CHR$ MEANS KEYBOARD (65) = A IF INKEY$ = "s" THEN CCC% = CCC% - 2: GOSUB ppunch '(65) = B'Y'KNOW'(65) = B IF INKEY$ = "Q" THEN END 'Y'KNOW IF INKEY$ = "q" THEN END LOOP 'LOOP GOTO mmenu mmman: CLS COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif LOCATE 20, 20 DRAW "E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'IMAGE OF MAN SLEEP 1 'RETURN kkkick: CLS COLOR 14: PRINT GGG% COLOR 30: PRINT CCC% LOCATE 20, 20 'LOCATE FINDS SPOT ON SCREEN 'DRAW "R20 H20 G20 R20 D10 R15 L30 R15 D20 G38 E38 F20 G20" CLS COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif DRAW "C0 L35" DRAW "C14 E39 R20 L20 U20 L15 R30 L15 U10 L10 U10 E10 F10 D10 L10" 'IMAGE OF MAN DRAW "R20 C0 R50 D30 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 'KICKING CLS RETURN 'RETURN FOR GOSUB pppunch: CLS COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif LOCATE 20, 20 DRAW "C14 E20 H20 G39 E39 U20 L15 R30 E15 G15 L15 U10 L10 U10 E10 F10 D10 L10" DRAW "R20 C0 R50 D70 E5" DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 CLS RETURN hhheadbutt: CLS COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif LOCATE 20, 20 DRAW "C0 L30 U50 C14 R70 U10 R10 F10 G10 L10 U10" 'IMAGE OF MAN DRAW "C0 R50 D50 " DRAW "C30 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 GOTO 230 bbbadfight: CLS IF dddif = 1 THEN PP% = 1 IF dddif = 2 THEN PP% = 2 IF dddif = 3 THEN PP% = 3 FOR delay% = 1 TO 10000: NEXT delay% e = (INT(RND * PP%) + 1) IF e = 2 THEN GGG% = GGG% - 2: GOTO bbbadkick IF e = 1 THEN GGG% = GGG% - 1 IF e = 3 THEN GGG% = GGG% - 5: GOTO bbbadkick CLS COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif LOCATE 20, 20 DRAW "C30 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L20" DRAW "L20 C0 L50 D70 E5" DRAW "C14 E20 H20 G39 E39 U20 L15 R30 L15 U10 L10 U10 E10 F10 D10 L10" SLEEP 1 CLS GOTO 230 'RETURN bbbadkick: CLS COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif t = (INT(RND * 5) + 1) IF t = 2 THEN GOTO bbbadfight IF t = 3 THEN GOTO bbbadhead LOCATE 20, 20 DRAW "C30 H40 L40 R40 U20 L15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L30 C0 L50 D70 E5" DRAW "C14 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 L10 U10 E10 F10 D10 L10" SLEEP 1 CLS GOTO 230 bbbadhead: CLS COLOR 14: PRINT "Your health:"; GGG% COLOR 30: PRINT "His health:"; CCC% COLOR 14: PRINT "Difficulty is:"; dddif DRAW "C30 H20 E20 F39 H39 U20 R15 L50 D20 H20 E20 D20 D20 H20 " DRAW "C0 L20 C0 L50 D70 E5" DRAW "C14 E20 H20 G39 E39 U20 L15 R30 L15 U10 L10 U10 E10 F10 D10 L10" SLEEP 1 CLS GOTO 230 mmmenu: CLS PRINT "1) Quit" PRINT "2) Restart" PRINT "3) Switch Characters" PRINT "4) Cheat Codes" PRINT "5) Difficulty" PRINT "6) Strategy" PRINT "7) Credits" PRINT "8) Resume" INPUT ">", UUU$ IF UUU$ = "1" THEN END IF UUU$ = "2" THEN GOTO 0 IF UUU$ = "3" THEN GOTO 1 IF UUU$ = "4" THEN GOTO cccheatcode IF UUU$ = "5" THEN GOTO dddiff IF UUU$ = "6" THEN GOTO ssstrategy IF UUU$ = "7" THEN GOTO cccredits IF UUU$ = "8" THEN GOTO 230 dddiff: CLS LET dddif = 3 PRINT "Difficulty:"; dddif PRINT "1) Easy" PRINT "2) Medium" PRINT "3) Hard" INPUT ">", III$ IF III$ = "1" THEN LET dddif = 1 IF III$ = "2" THEN LET dddif = 2 IF III$ = "3" THEN LET dddif = 3 IF III$ = "4" THEN GOTO mmmenu ELSE GOTO mmmenu ssstrategy: CLS PRINT "If you have trouble wining, try these" PRINT "1) Try to attack your foe with headbutt" PRINT "2) Set the difficulty settings at 1." PRINT "3) Press your keys as fast as you can." INPUT "", VVV$ IF VVV$ = "SUCKER" THEN GOTO sssucker ELSE GOTO mmmenu cccredits: CLS PRINT "Producer: Richard Demsyn-Jones" PRINT "Director: Richard Demsyn-Jones" PRINT "Editor: Richard Demsyn-Jones" PRINT "Writer: Richard Demsyn-Jones" PRINT "Technical Advisor: Richard Demsyn-Jones" PRINT "Head Programmer: Richard Demsyn-Jones" PRINT "Head Graphicist: Richard Demsyn-Jones" PRINT "Distributor: Richard Demsyn-Jones" PRINT "" PRINT "Thanks to all the wonderful people who worked on this program" INPUT "", QQQ$ IF QQQ$ = "SUCKER" THEN GOTO sssucker ELSE GOTO mmmenu cccheatcode: CLS INPUT "Cheat code >", JJJ$ IF JJJ$ = "HEALTH" THEN CCCHE% = 1: PRINT "Cheatcode activated": SLEEP 2: GOTO mmmenu IF JJJ$ = "WINGAME" THEN CCCHE% = 2: PRINT "Cheatcode activated": SLEEP 2: GOTO wwwingame IF JJJ$ = "LOSEGAME" THEN PRINT "Cheatcode activated": SLEEP 2: GOTO lllosegame IF JJJ$ = "BACK" THEN GOTO mmmenu ELSE GOTO mmmenu sssucker: CLS LOCATE 20, 20 DRAW "C30 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L30 C0 L50 D70 E5" DRAW "C14 E20 H20 G39 E39 U20 L15 R30 L15 U10 L10 U10 L20 E20 F20 L40" SLEEP 1 PRINT "He hit you hard! You lose." INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO sssucker wwwingame: CLS y = (INT(RND * 5) + 1) IF y = 1 THEN GOTO sssucker PRINT "You win!" PRINT "You had"; GGG%; "life points left" DRAW "C14 E20 H20 G39 E39 U20 L15 R30 L15 U10 L10 U10 E10 F10 D10 L10" 'DRAWS MAN DRAW "R20 C0 R60 D100 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L20 E20 F20 L20" COLOR 4 PRINT "" PRINT "Aaaahhhh!" COLOR 14 INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO wwwingame lllosegame: CLS PRINT "You lose!" PRINT "He had"; CCC%; "life points left" DRAW "E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'DRAWS MAN DRAW "L20 C0 L60 D110 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L10 U10 E10 F10 D10 L10" COLOR 4 PRINT "" PRINT "Noooooo!" COLOR 14 INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO lllosegame 168 CLS LINE (1, 1)-(315, 190), 14, B PRINT "" PRINT "Defeat your foe to achieve victory!" PRINT "" PRINT "" PRINT "Player 1 Player 2" PRINT "" PRINT "A is kick J is kick " PRINT "S is punch K is punch " PRINT "D is headbutt L is headbut " PRINT "M is menu M is menu" PRINT "Q is quit Q is quit " SLEEP 3 GOTO 269 269 COLOR 4 'PRINT "kicker v 7.5 by Richard Demsyn-Jones" DIM meltttt%(3000) FOR RR = 1 TO 2000 RANDOMIZE TIMER XXY = INT(RND * 271) RANDOMIZE TIMER YXY = INT(RND * 150) GET (XXY, YXY)-(XXY + 48, YXY + 48), meltttt% PUT (XXY, YXY + 1), meltttt%, PSET IF PRESS$ = CHR$(27) THEN END FOR delay = 1 TO 17000: NEXT delay NEXT RR CLS COLOR 4: LOCATE 12, 15: PRINT "BEGIN!!" SLEEP 2: RANDOMIZE TIMER SCREEN 13 TC% = 50 TG% = 50 TD% = 3 LET tdif = 3 270 SCREEN 13 DO UNTIL PRESS$ = CHR$(27) 'CREATES LOOP IF TCHE% = 1 THEN LET TG% = 50 IF TC% < 0 THEN GOTO twingame IF TG% < 0 THEN GOTO tlosegame IF TC% = 0 THEN GOTO twingame IF TG% = 0 THEN GOTO tlosegame tf = (INT(RND * 1000) + 1) IF tf = 1 THEN GOTO tsucker SLEEP 1 CLS 'CLEARS SCREEN COLOR 3: PRINT "Player 1 health:"; TG% COLOR 2: PRINT "Player 2 health:"; TC% DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" 'DRAWS MAN DRAW "R20 C0 R50 D70 " DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 300 FOR delay& = 1 TO 2000000: NEXT delay& PRESS$ = INKEY$ WAIT &H3DA, 8 IF PRESS$ = "D" THEN TC% = TC%: GOTO theadbutt IF PRESS$ = "L" THEN TC% = TC%: GOTO tbadhead IF PRESS$ = "M" THEN TC% = TC%: GOTO tmenu IF PRESS$ = "J" THEN TC% = TC%: GOTO tbadkick IF PRESS$ = "A" THEN TC% = TC%: GOTO tkick 'CHR$ MEANS KEYBOARD (65) = A IF PRESS$ = "S" THEN TC% = TC%: GOTO tpunch '(65) = 'Y'KNOW IF PRESS$ = "K" THEN TC% = TC%: GOTO tbadfight IF PRESS$ = "Q" THEN END 'FOR DELAY% = 1 TO 20000: NEXT DELAY% SLEEP 1 LOOP 'LOOP END theadbutt: CLS t = (INT(RND * 3) + 1) IF t = 1 THEN TC% = TC% - 1 IF t = 2 THEN TC% = TC% - 2 IF t = 3 THEN TC% = TC% - 3 COLOR 3: PRINT "Player 1 health:"; TG% COLOR 2: PRINT "Player 2 health:"; TC% LOCATE 20, 20 DRAW "C0 L30 C3 E20 H20 G39 E39 U20 L15 R50 U10 F15 G15 U20" 'IMAGE OF MAN DRAW "C0 R50 D50 " DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 GOTO 270 tkick: LOCATE 20, 20 CLS i = (INT(RND * 3) + 1) IF i = 1 THEN TC% = TC% - 1 IF i = 2 THEN TC% = TC% - 2 IF i = 3 THEN TC% = TC% - 3 COLOR 3: PRINT "Player 1 health:"; TG% COLOR 2: PRINT "Player 2 health:"; TC% DRAW "C0 L35" DRAW "C3 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20 D30 R40" 'IMAGE OF MAN DRAW "R20 C0 R50 D30 " DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 'KICKING GOTO 270 tpunch: CLS n = (INT(RND * 3) + 1) IF n = 1 THEN TC% = TC% - 1 IF n = 2 THEN TC% = TC% - 2 IF n = 3 THEN TC% = TC% - 3 COLOR 3: PRINT "Player 1 health:"; TG% COLOR 2: PRINT "Player 2 health:"; TC% LOCATE 20, 20 DRAW "C3 E20 H20 G39 E39 U20 L15 R30 E15 G15 L15 U10 L20 E20 F20 L20" DRAW "R20 C0 R50 D70 E5" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 GOTO 270 tbadfight: CLS m = (INT(RND * 3) + 1) IF m = 1 THEN TG% = TG% - 1 IF m = 2 THEN TG% = TG% - 2 IF m = 3 THEN TG% = TG% - 3 COLOR 3: PRINT "Player 1 health:"; TG% COLOR 2: PRINT "Player 2 health:"; TC% LOCATE 20, 20 DRAW "C2 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L20" DRAW "L20 C0 L50 D70 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 GOTO 270 tbadkick: CLS y = (INT(RND * 3) + 1) IF y = 1 THEN TG% = TG% - 1 IF y = 2 THEN TG% = TG% - 2 IF y = 3 THEN TG% = TG% - 3 COLOR 3: PRINT "Player 1 health:"; TG% COLOR 2: PRINT "Player 2 health:"; TC% LOCATE 20, 20 DRAW "C2 H40 L40 R40 U20 L15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L20 C0 L50 D70 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L40" SLEEP 1 GOTO 270 tbadhead: CLS v = (INT(RND * 3) + 1) IF v = 1 THEN TG% = TG% - 1 IF v = 2 THEN TG% = TG% - 2 IF v = 3 THEN TG% = TG% - 3 COLOR 3: PRINT "Player 1 health:"; TG% COLOR 2: PRINT "Player 2 health:"; TC% DRAW "C2 H20 E20 F39 H39 U20 R15 L50 D20 H20 E20 D20 D20 H20 " DRAW "C0 L20 C0 L50 D70 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 GOTO 270 tmenu: CLS COLOR 3 PRINT "1) Quit" PRINT "2) Restart" PRINT "3) Cheat codes" PRINT "4) Strategy hints" PRINT "5) Credits" PRINT "6) Resume" INPUT ">", TU$ IF TU$ = "1" THEN END IF TU$ = "2" THEN GOTO 1 IF TU$ = "3" THEN GOTO tcheatcode IF TU$ = "4" THEN GOTO tstrategy IF TU$ = "5" THEN GOTO tcredits IF TU$ = "6" THEN GOTO 270 ELSE GOTO tmenu tstrategy: CLS PRINT "If you have trouble wining, try these" PRINT "1) Try to attack your foe with headbutt" PRINT "2) Press your keys as fast as you can." INPUT "", tv$ IF tv$ = "SUCKER" THEN GOTO tsucker ELSE GOTO tmenu tcredits: CLS PRINT "Producer: Richard Demsyn-Jones" PRINT "Director: Richard Demsyn-Jones" PRINT "Editor: Richard Demsyn-Jones" PRINT "Writer: Richard Demsyn-Jones" PRINT "Technical Advisor: Richard Demsyn-Jones" PRINT "Head Programmer: Richard Demsyn-Jones" PRINT "Head Graphicist: Richard Demsyn-Jones" PRINT "Distributor: Richard Demsyn-Jones" PRINT "" PRINT "Thanks to all the wonderful people who worked on this program" INPUT "", TQ$ IF TQ$ = "SUCKER" THEN GOTO tsucker ELSE GOTO tmenu tdiff: CLS LET tdif = 3 PRINT "Difficulty:"; to$ PRINT "1) Easy" PRINT "2) Medium" PRINT "3) Hard" INPUT ">", ti$ IF ti$ = "1" THEN LET tdif = 1 IF ti$ = "2" THEN LET tdif = 2 IF ti$ = "3" THEN LET tdif = 3 IF ti$ = "4" THEN GOTO tmenu ELSE GOTO tmenu IF tdif = 1 THEN LET to$ = "Easy" IF tdif = 2 THEN LET to$ = "Medium" IF tdif = 3 THEN LET to$ = "Hard" tcheatcode: CLS INPUT "Cheat code >", TJ$ IF TJ$ = "HEALTH" THEN TCHE% = 1: PRINT "Cheatcode activated": SLEEP 2: GOTO tmenu IF TJ$ = "WINGAME" THEN TCHE% = 2: PRINT "Cheatcode activated": SLEEP 2: GOTO twingame IF TJ$ = "LOSEGAME" THEN PRINT "Cheatcode activated": SLEEP 2: GOTO tlosegame IF TJ$ = "BACK" THEN GOTO tmenu ELSE GOTO tmenu twingame: CLS x = (INT(RND * 5) + 1) IF x = 1 THEN GOTO tsucker COLOR 3 PRINT "Player 1 wins!" PRINT "Player 1 had"; TG%; "life points left" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" DRAW "R20 C0 R60 D100 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L20 E20 F20 L20" COLOR 4 PRINT "" PRINT "Aaaahhhh!" COLOR 3 INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO twingame tlosegame: CLS COLOR 2 x = (INT(RND * 5) + 1) IF x = 1 THEN GOTO tsuckerr PRINT "Player 2 wins!" PRINT "Player 2 had"; TC%; "life points left" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" DRAW "R20 C0 R60 D100 " DRAW "C0 E20 C4 H20 F20 H40 G40 E40 U20 H20 F20 E20 G20 U25 L20 E20 F20 L20" COLOR 4 PRINT "" PRINT "Aaaahhhh!" COLOR 2 INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO tlosegame tsucker: CLS LOCATE 20, 20 DRAW "C0 R20 D30" DRAW "C2 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L30 C0 L50 D40 E5" DRAW "C3 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 PRINT "He hit you hard! Player 2 wins." PRINT "" INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO tsucker tsuckerr: CLS LOCATE 20, 20 DRAW "C0 R20 D30" DRAW "C3 H20 E20 F39 H39 U20 L15 H15 F15 R30 L15 U10 L20 E20 F20 L40" DRAW "C0 L30 C0 L50 D40 E5" DRAW "C2 E20 H20 G39 E39 U20 L15 R30 L15 U10 L20 E20 F20 L20" SLEEP 1 PRINT "He hit you hard! Player 1 wins." PRINT "" INPUT "Do you wish to play again? Y/N ", r$ IF r$ = "Y" THEN GOTO 20 IF r$ = "y" THEN GOTO 20 IF r$ = "YES" THEN GOTO 20 IF r$ = "Yes" THEN GOTO 20 IF r$ = "yes" THEN GOTO 20 IF r$ = "no" THEN END IF r$ = "n" THEN END IF r$ = "NO" THEN END IF r$ = "No" THEN END IF r$ = "N" THEN END: ELSE GOTO tsuckerr highscore: ' section 1 CLS RANDOMIZE TIMER yourScore% = G% PRINT "Game Over" PRINT "Your score is "; G% DIM playername$(1 TO 10) 'Declare arrays for the 10 entries on the list DIM playerscore%(1 TO 10) ' section 2 CLS OPEN "top10.dat" FOR INPUT AS #1 DO WHILE NOT EOF(1) ' EOF means "end of file" FOR i% = 1 TO 10 i% = i% + 1 GET #1, , playername(i%) GET #1, , playerscore(i%) ' INPUT #1, playername$(i%) 'Read from file ' INPUT #1, playerscore%(i%) NEXT i LOOP CLOSE #1 PRINT ' section 3 FOR i% = 1 TO 10 IF yourScore% >= playerscore%(i%) THEN FOR ii% = 10 TO i% + 1 STEP -1 'Go backwards (i% < 10) playername$(ii%) = playername$(ii% - 1) playerscore%(ii%) = playerscore%(ii% - 1) NEXT ii% PRINT "Congratulations! You have made the top 10!" INPUT "What is your name? ", yourName$ playername$(i%) = yourName$ playerscore%(i%) = yourScore% EXIT FOR END IF NEXT i% ' section 4 OPEN "top10.dat" FOR OUTPUT AS #1 FOR i% = 1 TO 10 WRITE #1, playername$(i%), playerscore%(i%) NEXT i% CLOSE #1 ' section 5 PRINT PRINT "Here is the top 10" format$ = "\ \ #### " PRINT "Player Name Score" PRINT "-------------------------- -----" FOR i% = 1 TO 10 PRINT USING format$; playername$(i%); playerscore%(i%) NEXT i% END SUB background 'colornumber = 15 'FOR latitude = 1 TO 199 ' colornumber = colornumber + 1 ' COLOR colornumber ' LINE (0, latitude)-(320, latitude) ' IF colornumber = 30 THEN colornumber = 15 'NEXT latitude 'DRAW "BM3,1" PAINT (15, 15), 10, 10 END SUB SUB Mouse (cx, dx, bx) ' POKE VARPTR(a(4)), &H92 'Swap code,Get CX setup 'CALL absolute(cx, VARPTR(a(0))) 'Run Code 'cx = cx / 8 'Adjust 25x80 ' POKE VARPTR(a(4)), &H91 'Swap code,Get DX setup 'CALL absolute(dx, VARPTR(a(0))) 'Run Code ' dx = dx / 2 'Adjust 25x80 'POKE VARPTR(a(4)), &H93 'Swap code,Get BX setup 'CALL absolute(bx, VARPTR(a(0))) 'Run Code 'Note : 'Remove the /8 'for graphics modes. END SUB SUB MousePointer (SW) ' ' POKE VARPTR(a(0)) + 1, SW 'Swap code,Set AX = (SW) 'CALL absolute(C, VARPTR(a(0))) 'Run Code 'Note: 'SW = 0-reset 'SW = 1-on 'SW = 2-off 'SW = 3-coordinates END SUB