'*********** ' RPG GAME ' MCPEPIC '*********** GAMEPAD 1 PLAYERX = 160/2 - 16/2 PLAYERY = 128/2 - 16/2 'ULDR PLAYERDIR = 2 MAIN: BG COPY 0,0,20,16 TO 0,0 SPRITE 0 SIZE 1 ENCHANCE = 0.001 CALL UIBOX(0,12,20,4) DO H = LEFT(0) - RIGHT(0) V = UP(0) - DOWN(0) ADD PLAYERX, H ADD PLAYERY, V IF PLAYERDIR=0 THEN PLAYERCC = 66 ELSE IF PLAYERDIR=1 OR PLAYERDIR=3 THEN PLAYERCC = 68 ELSE PLAYERCC=64 SPRITE 0 FLIP -(PLAYERDIR=1),0 'PLAYER IS MOVING IF H<>0 OR V<>0 THEN IF RND < ENCHANCE THEN GOTO BATTLE IF V < 0 THEN PLAYERDIR = 0 ELSE IF H < 0 THEN PLAYERDIR = 1 ELSE IF V > 0 THEN PLAYERDIR = 2 ELSE PLAYERDIR = 3 ANIMTIMER = (TIMER*0.1) MOD 2 IF PLAYERDIR MOD 2 THEN ADD PLAYERCC, ANIMTIMER*2 ELSE SPRITE 0 FLIP ANIMTIMER,0 END IF SPRITE 0, PLAYERX, PLAYERY, PLAYERCC WAIT VBL LOOP BATTLE: GOSUB TRANSITION EX = 20 EY = 40 PX = 124 PY = 40 SPRITE 1 SIZE 1 PATKTIMER = 0 PHEALTH = 100 PATTACK = 38 PSPEED = 30 EATKTIMER = 0 EHEALTH = 80 EATTACK = 40 ESPEED = 20 DO INC PATKTIMER INC EATKTIMER IF PATKTIMER > 100 - PSPEED AND BUTTON TAP(0) THEN GOSUB PATK IF EATKTIMER > 100 - ESPEED THEN GOSUB EATK SPRITE 0, PX, PY, 64 SPRITE 1, EX, EY, 1 TEXT 0,0, "PLAYER HP: "+STR$(PHEALTH)+" " TEXT 0,1, "ENEMY HP: "+STR$(EHEALTH)+" " WAIT VBL LOOP PATK: ADD EHEALTH, -PATTACK PATKTIMER = 0 CALL UIBOX(8,10,6,8) IF EHEALTH <= 0 THEN EHEALTH = 0 PRINT "ENEMY DEFEATED!" WAIT 60 GOSUB TRANSITION RETURN MAIN END IF RETURN EATK: ADD PHEALTH, -EATTACK EATKTIMER = 0 IF PHEALTH <= 0 THEN PHEALTH = 0 PRINT "YOU DIED!" WAIT 60 GOSUB TRANSITION RETURN GAMEOVER END IF RETURN GAMEOVER: PRINT "GAME OVER" DO LOOP TRANSITION: SPRITE OFF FOR Y = 0 TO 15 FOR X = 0 TO 19 STEP 2 CELL X , Y, 0 CELL X+1, Y, 0 WAIT VBL NEXT X NEXT Y WAIT 10 CLS RETURN SUB UIBOX(X,Y,W,H) X2 = X + W - 1 Y2 = Y + H - 1 FOR YY = Y TO Y2 FOR XX = X TO X2 CC = 128 + 16 + 1 IF XX = X OR XX = X2 THEN ADD CC, - 1 IF YY = Y OR YY = Y2 THEN ADD CC, -16 FX = -(XX = X2) FY = -(YY = Y2) FLIP FX,FY CELL XX,YY,CC NEXT XX NEXT YY FLIP 0,0 END SUB #1:MAIN PALETTES 003F2A1500282410003C0C00003F3C00 003F2A15003F2A15003F2A15003F2A15 #2:MAIN CHARACTERS 00000000000000000000000000000000 0003070A0E061A790000000000000000 00E0D808081830C00000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 F8F8D81F1F1C3C380000000000000000 303878E0E07038380000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FE9BFF77FFF9BFFF0164008800064000 C09E7F5F7F1F7F9D0000402000204002 03E9EDFAFEFEDAAE0008100600000442 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FFFFFFFFFFFFFFFF0000000000000000 CDF0F9E2A41901800400071F3F1F0D00 E9073F1F9D4CB8012000F0F0FCFCB800 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00070F0F0F0F0F0700070F0F09090F07 00E0F0F0F0F0F0E000E0F0F09090F0E0 00070F0F0F0F0F0700070F0F0F0F0F07 00E0F0F0F0F0F0E000E0F0F0F0F0F0E0 00070F0F0F0F070300070F0F0F0F0707 00E0F0F0F0F0F0E000E0F0F09090F0E0 0000070F0F0F0F070000070F0F0F0F07 0000E0F0F0F0F0F00000E0F0F09090F0 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 0C183838080E0E0E03072727070F0E0E 301818181820E0C0C0E0E0F8F8C000C0 0C181818180407060307071F1F030006 30181C1C10E0E0E0C0E0E4E4E0E0E0E0 00030303030003030704040707030003 00808000000080C0C06060E0E0C000C0 03070F0C000C0C0E07000C0F0703080E E000181800207870E0E0E8F8E0C01870 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 FF80BFA0A0A0A0A0807F7F6060606060 FF00FF000000000000FFFF0000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000 A0A0A0A0A0A0A0A06060606060606060 #3:MAIN BG 00001410300130013001200120012001 30013001200120012001200130013001 30013001300130013001300130012001 30012001200120013001200120012001 20012001200130013001300120012001 20013001300130013001300130012001 20012001300130013001300130013001 20013001300130013001300130013001 20012001200120012001200120012001 20012001200130013001300120012001 20013001300120012001300130013001 30012001200130012001200130013001 30013001200120013001300130013001 30013001200130012101220121012201 30012001200120012001300121012201 21012201300120012001200120012001 21012201210122013001300130012001 20013001310121012201320121012201 21012201300120013101210122012101 22012001200120012001200130013101 32012001210122012101220120012001 30012101220121012201200120012001 20012001200130013001200121012201 21012201200130012001310132013101 32013001300120012001200130012001 30013001210122012101220120013001 30013001300130012001300120012001 20012001200120012001200131013201 31013201300130012001300130012001 30012001200120012001200120012001 30013001200120012001200120013001 20013001200130012001200120013001 30013001200120013001300120012001 20012001300130013001200120012001 30012001300120012101220121012201 20013001300130013001200120012001 20012001200120013001200120012001 31013201310132013001300130013001 30012001300130013001300120013001 30013001300120012001200130013001 30013001