BEGGINING: DIM HP(3) DIM MXHP(3) DIM ATK(3) DIM CHR(3) DIM XP(3) DEBUG=0 CH=0 NAME1$="NAME1" NAME2$="NAME2" NAME3$="NAME3" IF DEBUG=1 THEN GOTO CHAPTER1 IF DEBUG=2 THEN GOTO STATS EHP=0 EATK=0 CLS PRINT"********************" PRINT"" PRINT"" PRINT"" PRINT"" PRINT" =DRAGON SLAYER=" PRINT" RETURNS" PRINT"" PRINT"" PRINT"" PRINT"" PRINT" PRESS ENTER" PRINT"********************" INPUT ">";A GOSUB SCROLLE CLS PRINT"THE LAND OF" PAL 2 PRINT"LROTHEL" PAL 0 PRINT"HAD BEEN RULED BY" PRINT"KING KRODGE IV" PRINT"" PRINT"BE CAREFUL AS AN" PRINT"ANCIENT EVIL AWAKENS" PRINT"OUR KINGDOM IS IN" PAL 1 PRINT" DANGER!!" PAL 0 PRINT"" PRINT"" PRINT"--PRESS ENTER--" INPUT ">";A GOSUB SCROLLE PRINT"WHAT SHALL BE" PRINT"THE NAMES OF" PAL 2 PRINT"OUR HEROES?" PRINT"" PAL 0 INPUT "YOU>";NAME1$ INPUT "HERO 2>";NAME2$ INPUT "HERO 3>";NAME3$ PRINT"SAY HI TO:" PAL 3 PRINT NAME1$ PRINT NAME2$ PRINT NAME3$ PAL 0 PRINT"" GOSUB CONTINUE GOSUB SCROLLE PRINT"WHAT ARE THE" PRINT"STATS FOR:" PRINT"YOU?" PRINT"" INPUT "HP:";HP(1) INPUT "ATK:";ATK(1) INPUT "CHR:";CHR(1) MXHP(1)=HP(1) GOSUB SCROLLE PRINT"WHAT ARE THE" PRINT"STATS FOR:" PRINT NAME2$ PRINT"" INPUT "HP:";HP(2) INPUT "ATK:";ATK(2) INPUT "CHR:";CHR(2) MXHP(2)=HP(2) GOSUB SCROLLE PRINT"WHAT ARE THE" PRINT"STATS FOR:" PRINT NAME3$ PRINT"" INPUT "HP:";HP(3) INPUT "ATK:";ATK(3) INPUT "CHR:";CHR(3) MXHP(3)=HP(3) GOSUB SCROLLE CHAPTER1: WAIT 1*60 PAL 2 PRINT"-- CHAPTER 1 --" PAL 0 PRINT"YOU FIND YOURSELVES" PRINT"IN THE FRONT OF AN" PRINT"OLD TEMPLE!" GOSUB CONTINUE PRINT"" PAL 2 PRINT NAME2$ PRINT"WE SHOULD HURRY UP" PRINT"AND GO IN!!" PAL 0 GOSUB CONTINUE PRINT"" PAL 2 PRINT NAME3$ PRINT"NO WE SHOULD BE" PRINT"VERY CAREFUL IT" PRINT"MAY HAVE TRAPS" PAL 0 GOSUB CONTINUE PRINT"" PAL 2 PRINT NAME2$ PRINT"I DONT KNOW WHAT" PRINT"SHOULD WE DO?" PRINT NAME1$ PAL 0 GOSUB CONTINUE PRINT"THEY BOTH STARE" PRINT"AT YOU WAITITNG" PRINT"FOR YOUR CHOICE" PRINT"1>BE FAST" PRINT"2>BE CAREFUL" INPUT ">";A IF A=1 THEN PRINT"" PRINT"" PAL 2 PRINT"YOU" PRINT"LETS GO FAST!" PRINT"" PRINT NAME3$ PRINT"I DONT THINK" PRINT"THIS IS A GOOD" PRINT"IDEA..." CH=0 GOSUB CONTINUE END IF IF A=2 THEN PRINT"" PRINT"" PAL 2 PRINT"YOU" PRINT"LETS BE CAREFUL" PRINT"" PRINT NAME3$ PRINT"GOOD IDEA!" PAL 0 PRINT"" PRINT NAME2$ PRINT"IS ANNOYED BY" PRINT"THIS" CH=1 GOSUB CONTINUE END IF GOSUB SCROLLE IF CH=0 THEN PRINT"YOU RUN BUT" WAIT 1*60 PRINT"YOU SET TRAPS" PRINT"OFF!!" WAIT 1*60 PRINT"" PRINT"2 DMG TO ALL" HP(1)=HP(1)-2 HP(2)=HP(2)-2 HP(3)=HP(3)-2 GOSUB CONTINUE GOSUB STATS END IF CLS PAL 0 PRINT"YOU FINALLY REACH" PRINT"THE TREASURE, IN" PRINT"THE MIDDLE OF THE" PRINT"ROOM YOU SEE A" PRINT"GOLDEN STATUE" PRINT"" GOSUB CONTINUE PRINT"" PRINT"ROLL DICE..." WAIT 44 GOSUB ROLL PRINT"" PAL 3 PRINT DICE PAL 0 WAIT 2*60 PRINT"" IF DICE+ATK(1)<7 THEN PRINT"THE GROUND SHAKES" PRINT"YOU RUN AND ESCAPE" PRINT"UNHARMED" GOSUB CONTINUE END IF IF DICE+ATK(1)>=7 THEN PRINT"YOU SUCCESFULLY" PRINT"TAKE THE STATUE" GOSUB CONTINUE END IF GOSUB SCROLLE PAL 2 PRINT NAME2$ PRINT"I SAY THAT WAS" PRINT"A SUCCESFUL" PRINT"MISSION!!" PAL 0 GOSUB CONTINUE PAL 2 PRINT NAME3$ PRINT"SUCCESFUL?!?" PRINT"WE ALMOST DIED!" PAL 0 GOSUB CONTINUE PRINT"" PRINT"WHAT DO YOU" PRINT"SAY?!" PRINT"" PRINT"1>TOO DANGEROUS" PRINT"2>ITS WAS GOOD" PRINT"" INPUT ">";A IF A=1 THEN PAL 2 PRINT"YOU" PRINT"TOO RISKY!!" PRINT"WE COULDVE DIED" PAL 0 GOSUB CONTINUE END IF IF A=2 THEN INPUT">";A PAL 2 PRINT"YOU" PRINT"IT WAS A GOOD" PRINT"MISSION, WE GOT" PRINT"THE TREASURE!" GOSUB CONTINUE PAL 0 END IF GOSUB SCROLLE WAIT 45 PAL 0 PRINT"YOUR PARTY" PRINT"LEAVES THE PLACE" PRINT"WITH THE TREASURE" END ROLL: DICE=INT(RND*10) RETURN SCROLLE: PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" PRINT"" CLS RETURN CONTINUE: PRINT"" PAL 0 PRINT"--PRESS ENTER--" INPUT ">";A RETURN STATS: CLS PRINT NAME1$ IF HP(1)<=0 THEN PAL 1 ELSE PAL 0 PRINT"HP:"+STR$(HP(1)) IF HP(1)>MXHP(1) THEN HP(1)=MXHP(1) PAL 0 PRINT"ATK:"+STR$(ATK(1)) PRINT"CHR:"+STR$(CHR(1)) PRINT"" PRINT NAME2$ IF HP(2)<=0 THEN PAL 1 ELSE PAL 0 PRINT"HP:"+STR$(HP(2)) IF HP(2)>MXHP(2) THEN HP(2)=MXHP(2) PAL 0 PRINT"ATK:"+STR$(ATK(2)) PRINT"CHR:"+STR$(CHR(2)) PRINT"" PRINT NAME3$ IF HP(3)<=0 THEN PAL 1 ELSE PAL 0 PRINT"HP:"+STR$(HP(3)) IF HP(3)>MXHP(3) THEN HP(3)=MXHP(3) PAL 0 PRINT"ATK:"+STR$(ATK(3)) PRINT"CHR:"+STR$(CHR(3)) PRINT"" PRINT"--PRESS ENTER--" INPUT ">";A RETURN #1:MAIN PALETTES 003F3F0000303000000C0C00000B0B00 003F2A15003F2A15003F2A15003F2A15