VAR: DAY=1 HP=100 HUN=100 DRK=100 ENG=100 ATK=1 WOOD=0 STONE=0 LUCK=1 '________________________' YES: PRINT "WHAT IS YOUR NAME" INPUT ">";N$ WAIT 100 CLW PRINT "PILOT:LANDING IN" PRINT "HOUR PLZ BE SEATED" WAIT 200 PRINT "" PRINT "";N$;":I CANT WAIT!" WAIT 100 PRINT "" PRINT "PILOT:WE ARE GOING " PRINT "TO HAVE A LITTLE" PRINT "TURBALUNCE" WAIT 100 PRINT "" PRINT "";N$;":UHH GREAT:/" WAIT 100 CLW WAIT 50 PRINT ". 30 MINS LATER... ." WAIT 100 CLW PRINT"";N$;": UGH WHERE AM" PRINT "I?" WAIT 50 PRINT "" PRINT " YOU PUSH RUBBLE" PRINT "OUT OF THE WAY" PRINT "YOU SCREAM FOR HELP" WAIT 100 CLW PRINT "NOBODY AWNSERS" WAIT 100 CLW PRINT "";N$;":OH NO IM LOST" WAIT 200 CLW PRINT "--------------------" PRINT " THE CRASH SEASON(1)" PRINT "--------------------" PRINT "LOADING..." WAIT 100 CLW GOTO START1 START1: PRINT "OPTIONS:(1)TO SEARCH" PRINT "" PRINT ". (2) SLEEP" PRINT ". (3) CRAFT" PRINT ". (4)CHECK STATS " START: IF HP<1 THEN GOTO DIE IF HUN<1 THEN GOTO DIE IF DRK<1 THEN GOTO DIE INPUT A IF A=1 THEN GOTO SEARCH IF A=2 THEN GOTO SLEEP IF A=3 THEN GOTO CRAFT IF A=4 THEN GOTO STATS IF HP<1 THEN GOTO DIE IF HUN<1 THEN GOTO DIE IF DRK<1 THEN GOTO DIE SEARCH: LUCK=RND*4 IF LUCK<2 THEN PRINT "YOU FOUND NOTHING" IF LUCK>2THEN PRINT "YOU TRIPPED ON A ROCK" IF LUCK<3 THEN GOTO WOLF IF LUCK>3 THEN GOTO MEDKIT IF DAY>100 THEN GOTO WIN ENG=ENG-5 WAIT 100 GOTO START SLEEP: PRINT "YOU GO TO SLEEP" HP=HP+10 DAY=DAY+1 ENG=ENG+20 HUN=HUN-20 DRK=DRK-20 GOTO START CRAFT: PRINT "(1)CRAFT AXE" PRINT "(2)CRAFT DAGGER" INPUT A IF A=1 THEN GOTO AXE IF A=2 THEN GOTO DAGGER GOTO START STATS: PRINT "DAY=",DAY PRINT "HP=",HP PRINT "HUNGER=",HUN PRINT "THIRST=",DRK PRINT "ENERGY=",ENG PRINT "ATTACK=",ATK PRINT "WOOD=",WOOD PRINT "STONE=",STONE GOTO START WFAIL: PRINT "NOT ENOUGH WOOD AND STONE:(" WAIT 100 GOTO START WIN: CLW PRINT "YOU SAW A HELICOPTER SO YOU STARTED A SIGNAL FIRE AND THEY FOUND YOU" WAIT 100 PRINT "PLAYAGAIN? Y/N" INPUT A IF A=Y THEN GOTO YES IF A=N THEN GOTO NO NO: CLW WAIT 10 END AXE: WOOD=WOOD-1 STONE=STONE-2 IF WOOD<0 THEN GOTO WFAIL PRINT "AXE CRAFTED" WAIT 20 GOTO START DAGGER: WOOD=WOOD-2 STONE=STONE-4 IF WOOD<0 THEN GOTO WFAIL PRINT "DAGGER CRAFTED" WAIT 20 GOTO START DIE: CLW PRINT "GAME OVER" PRINT "YOU DIED:(" END WOLF: PRINT "YOU FOUND A WOLF" PRINT "(1)TO FIGHT" PRINT "(2)RUN AWAY" INPUT A IF A=1 THEN GOTO FIGHT IF A=2 THEN GOTO RUNAWAY RUNAWAY: CLW PRINT "YOU DECIDED TO RUNAWAY" WAIT 100 CLW GOTO START FIGHT: CLW PRINT "YOU DECIDED TO PUNCH" PRINT "THE WOLF AND IT DIED" PRINT "AND GOT +30 HUNGUR" PRINT "-20 HP" HUN=HUN+30 HP=HP-20 WAIT 150 CLW GOTO START MEDKIT: CLW PRINT "YOU FOUND A" PRINT "MEDKIT(+50HP)" HP=HP+50 WAIT 100 CLW GOTO START