RANDOMIZE TIMER MENU: HP=25 MHP=35 SP=25 MSP=25 ENG=60 DMG=1 WOOD=0 STONE=0 GRASS=0 FOOD=0 WEAPLVL=1 PICLVL=1 AXELVL=1 DAY=1 A=0 PRO=0.0 LUCK=0 CRIT=25 EHP=0 AE=0 START: IF HP<1 THEN GOTO DIE IF ENG<1 THEN GOTO PASSOUT IF SP<1 THEN GOTO STARVATION CLS PRINT "-------STATS-------" PRINT "HEALTH:",HP PRINT "HUNGER:",SP PRINT "ENERGY",ENG PRINT "DAMAGE:",DMG PRINT "WEAPON LVL:",WEAPLVL PRINT "PICKAXE LVL:",PICLVL PRINT "AXE LVL:",AXELVL PRINT "PROGRESS",PRO,"%" PRINT "-------ITEMS-------" PRINT "WOOD:",WOOD PRINT "STONE:",STONE PRINT "GRASS:",GRASS PRINT "FOOD:",FOOD PRINT "TYPE 0 FOR HELP" INPUT A IF A=5 THEN GOTO EAT IF A=4 THEN GOTO EXSPLORE IF A=3 THEN GOTO CRAFT IF A=2 THEN GOTO FORAGE IF A=1 THEN GOTO SLEEP IF A=0 THEN GOTO HELP GOTO START HELP: CLS PRINT "-------HELP--------" PRINT "TYPE THE NUMBER TO" PRINT "USE COMMAND" PRINT "1:SLEEP 2:FORAGE" PRINT "3:CRAFT 4:EXSPLORE" PRINT "5:EAT" PRINT "ENTER TO GO BACK" INPUT A GOTO START FORAGE: CLS LUCK=RND*2 IF LUCK<1 AND AXELVL=1 THEN WOOD=WOOD+1 IF LUCK>1 AND AXELVL=2 THEN WOOD=WOOD+2 IF LUCK<1 AND AXELVL=2 THEN WOOD=WOOD+3 IF LUCK>1 AND AXELVL=3 THEN WOOD=WOOD+4 IF LUCK<1 AND AXELVL=3 THEN WOOD=WOOD+7 IF LUCK>1 AND AXELVL=4 THEN WOOD=WOOD+10 IF LUCK<1 AND AXELVL=4 THEN WOOD=WOOD+15 IF LUCK>1 AND AXELVL=5 THEN WOOD=WOOD+25 IF LUCK<1 AND AXELVL=5 THEN WOOD=WOOD+38 LUCK=RND*2 IF LUCK<1 AND PICLVL=1 THEN STONE=STONE+1 IF LUCK>1 AND PICLVL=2 THEN STONE=STONE+2 IF LUCK<1 AND PICLVL=2 THEN STONE=STONE+3 IF LUCK>1 AND PICLVL=3 THEN STONE=STONE+4 IF LUCK<1 AND PICLVL=3 THEN STONE=STONE+7 IF LUCK>1 AND PICLVL=4 THEN STONE=STONE+10 IF LUCK<1 AND PICLVL=4 THEN STONE=STONE+15 IF LUCK>1 AND PICLVL=5 THEN STONE=STONE+25 IF LUCK<1 AND PICLVL=5 THEN STONE=STONE+38 LUCK=RND*2 IF LUCK<1 AND WEAPLVL=1 THEN GRASS=GRASS+1 IF LUCK>1 AND WEAPLVL=2 THEN GRASS=GRASS+2 IF LUCK<1 AND WEAPLVL=2 THEN GRASS=GRASS+3 IF LUCK>1 AND WEAPLVL=3 THEN GRASS=GRASS+4 IF LUCK<1 AND WEAPLVL=3 THEN GRASS=GRASS+7 IF LUCK>1 AND WEAPLVL=4 THEN GRASS=GRASS+10 IF LUCK<1 AND WEAPLVL=4 THEN GRASS=GRASS+15 IF LUCK>1 AND WEAPLVL=5 THEN GRASS=GRASS+25 IF LUCK<1 AND WEAPLVL=5 THEN GRASS=GRASS+38 LUCK=RND*2 IF LUCK<1 AND WEAPLVL=1 THEN FOOD=FOOD+1 IF LUCK>1 AND WEAPLVL=2 THEN FOOD=FOOD+1 IF LUCK<1 AND WEAPLVL=2 THEN FOOD=FOOD+2 IF LUCK>1 AND WEAPLVL=3 THEN FOOD=FOOD+2 IF LUCK<1 AND WEAPLVL=3 THEN FOOD=FOOD+3 IF LUCK>1 AND WEAPLVL=4 THEN FOOD=FOOD+3 IF LUCK<1 AND WEAPLVL=4 THEN FOOD=FOOD+4 IF LUCK>1 AND WEAPLVL=5 THEN FOOD=FOOD+5 IF LUCK<1 AND WEAPLVL=5 THEN FOOD=FOOD+6 LUCK=RND*2 IF LUCK>1 THEN SP=SP-1 ENG=ENG-2 IF ENG=0 THEN GOTO PASSOUT IF SP=0 THEN GOTO STARVATION PRINT "-------STATS-------" PRINT "HUNGER:",SP PRINT "ENERGY",ENG PRINT "-------ITEMS-------" PRINT "WOOD:",WOOD PRINT "STONE:",STONE PRINT "GRASS:",GRASS PRINT "FOOD:",FOOD PRINT "1 TO GO BACK" PRINT "ENTER TO FORAGE" PRINT "AGAIN" INPUT A IF A=1 THEN GOTO START GOTO FORAGE CRAFT: CLS PRINT "-------STATS-------" PRINT "ENERGY",ENG PRINT "WEAPON LVL:",WEAPLVL PRINT "PICKAXE LVL:",PICLVL PRINT "AXE LVL:",AXELVL PRINT "-------ITEMS-------" PRINT "WOOD:",WOOD PRINT "STONE:",STONE PRINT "GRASS:",GRASS PRINT "------RECIPES-------" PRINT "1:UPGRADE WEAPON" PRINT "2:UPGRADE AXE" PRINT "3:UPGRADE PICAXE" PRINT "0 TO GO BACK" INPUT A IF A=3 THEN GOTO PICUP IF A=2 THEN GOTO AXEUP IF A=1 THEN GOTO WEAPUP IF A=0 THEN GOTO START GOTO CRAFT WEAPUP: CLS PRINT "-------STATS-------" PRINT "ENERGY",ENG PRINT "-------ITEMS-------" PRINT "WOOD:",WOOD PRINT "STONE:",STONE PRINT "GRASS:",GRASS PRINT "-------COST--------" PRINT "WEAPON UPGRADE:" IF WEAPLVL=1 THEN PRINT "5 WOOD 5 STONE" IF WEAPLVL=1 THEN PRINT "5 GRASS" IF WEAPLVL=2 THEN PRINT "100 WOOD 100 STONE" IF WEAPLVL=2 THEN PRINT "100 GRASS" PRINT "ENTER TO CONTINUE" INPUT A IF WEAPLVL=1 AND WOOD>4 AND GRASS>4 AND STONE>4 THEN GOTO WEAPUPM IF WEAPLVL=2 AND WOOD>99 AND GRASS>99 AND STONE>99 THEN GOTO WEAPUPM GOTO CRAFT AXEUP: CLS PRINT "-------STATS-------" PRINT "ENERGY",ENG PRINT "-------ITEMS-------" PRINT "WOOD:",WOOD PRINT "STONE:",STONE PRINT "GRASS:",GRASS PRINT "-------COST--------" PRINT "AXE UPGRADE:" IF AXELVL=1 THEN PRINT "5 WOOD 5 STONE" IF AXELVL=1 THEN PRINT "5 GRASS" IF AXELVL=2 THEN PRINT "100 WOOD 100 STONE" IF AXELVL=2 THEN PRINT "100 GRASS" PRINT "ENTER TO CONTINUE" INPUT A IF AXELVL=1 AND WOOD>4 AND GRASS>4 AND STONE>4 THEN GOTO AXEUPM IF AXELVL=2 AND WOOD>99 AND GRASS>99 AND STONE>99 THEN GOTO AXEUPM GOTO CRAFT PICUP: CLS PRINT "-------STATS-------" PRINT "ENERGY",ENG PRINT "-------ITEMS-------" PRINT "WOOD:",WOOD PRINT "STONE:",STONE PRINT "GRASS:",GRASS PRINT "-------COST--------" PRINT "PICKAXE UPGRADE:" IF PICLVL=1 THEN PRINT "5 WOOD 5 STONE" IF PICLVL=1 THEN PRINT "5 GRASS" IF PICLVL=2 THEN PRINT "100 WOOD 100 STONE" IF PICLVL=2 THEN PRINT "100 GRASS" PRINT "ENTER TO CONTINUE" INPUT A IF PICLVL=1 AND WOOD>4 AND GRASS>4 AND STONE>4 THEN GOTO PICUPM IF PICLVL=2 AND WOOD>99 AND GRASS>99 AND STONE>99 THEN GOTO PICUPM GOTO CRAFT WEAPUPM: IF WEAPLVL=1 THEN WOOD=WOOD-5 IF WEAPLVL=1 THEN STONE=STONE-5 IF WEAPLVL=1 THEN GRASS=GRASS-5 IF WEAPLVL=2 THEN WOOD=WOOD-100 IF WEAPLVL=2 THEN STONE=STONE-100 IF WEAPLVL=2 THEN GRASS=GRASS-100 WEAPLVL=WEAPLVL+1 DMG=DMG+1 CRIT=CRIT+2 GOTO CRAFT AXEUPM: IF AXELVL=1 THEN WOOD=WOOD-5 IF AXELVL=1 THEN STONE=STONE-5 IF AXELVL=1 THEN GRASS=GRASS-5 IF AXELVL=2 THEN WOOD=WOOD-100 IF AXELVL=2 THEN STONE=STONE-100 IF AXELVL=2 THEN GRASS=GRASS-100 AXELVL=AXELVL+1 GOTO CRAFT PICUPM: IF PICLVL=1 THEN WOOD=WOOD-5 IF PICLVL=1 THEN STONE=STONE-5 IF PICLVL=1 THEN GRASS=GRASS-5 IF PICLVL=2 THEN WOOD=WOOD-100 IF PICLVL=2 THEN STONE=STONE-100 IF PICLVL=2 THEN GRASS=GRASS-100 PICLVL=PICLVL+1 GOTO CRAFT EAT: CLS PRINT "-------STATS-------" PRINT "HUNGER:",SP PRINT "-------ITEMS-------" PRINT "FOOD:",FOOD PRINT "TYPE HOW MUCH FOOD" PRINT "YOU WANT TO EAT" PRINT "TYPE 0 TO EXIT" INPUT A IF A=0 THEN GOTO START IF FOOD+1>A THEN FOOD=FOOD-A SP=SP+A IF SP>MSP THEN SP=MSP GOTO EAT EXSPLORE: CLS PRINT "-------STATS-------" PRINT "HEALTH:",HP PRINT "HUNGER:",SP PRINT "ENERGY",ENG PRINT "DAMAGE:",DMG PRINT "PROGRESS",PRO,"%" PRINT "--------LOG--------" PRINT "YOU GO EXSPLORING" LUCK=RND*5 IF LUCK<1 THEN PRO=PRO+0.1 IF LUCK>1 AND LUCK<2 THEN PRO=PRO+0.3 IF LUCK>2 AND LUCK<3 THEN PRO=PRO+0.5 IF LUCK>3 AND LUCK<4 THEN PRO=PRO+0.8 IF LUCK>4 THEN PRO=PRO+1 IF PRO>99.9 THEN GOTO WIN LUCK=RND*20 IF LUCK<1 THEN PRINT "YOU FIND NOTHING" IF LUCK>1 AND LUCK<2 THEN PRINT "YOU FIND A GAINT RAT" IF LUCK>2 AND LUCK<3 THEN PRINT "YOU FIND A ONION" IF LUCK>2 AND LUCK<3 THEN PRINT "1:EAT IT 0:LEAVE IT" IF LUCK>3 AND LUCK<4 THEN PRINT "YOU FIND A WOOD PILE" IF LUCK>4 AND LUCK<5 THEN PRINT "YOU FIND A ROCK PILE" IF LUCK>5 AND LUCK<6 THEN PRINT "YOU FIND A JPUXFRD" IF LUCK>6 AND LUCK<7 THEN PRINT "YOU TRIP ON A STUMP" IF LUCK>7 AND LUCK<8 THEN PRINT "YOU FIND APPLE TREES" IF LUCK>8 AND LUCK<9 THEN PRINT "YOU STEP ON A SHARP ROCK" IF LUCK>9 AND LUCK<10 THEN PRINT "YOU ALMOST STEP ON A SHARP ROCK" IF LUCK>10 AND LUCK<11 THEN PRINT "YOU GET SWOOPED BY BIRDS" IF LUCK>11 AND LUCK<12 THEN PRINT "YOU ENCOUNTER BEAR" IF LUCK>12 AND LUCK<13 THEN PRINT "YOU ENCOUNTER WOLF" IF LUCK>13 AND LUCK<14 THEN PRINT "YOU FALL IN A LAKE" IF LUCK>14 AND LUCK<15 THEN PRINT "A BEAR STOLE ALL YOUR FOOD" IF LUCK>15 AND LUCK<16 THEN PRINT "YOU FALL IN A THORN BUSH" IF LUCK>16 AND LUCK<17 THEN PRINT "YOUR SWORD BROKE" IF LUCK>17 AND LUCK<18 THEN PRINT "YOU LOST YOUR AXE" IF LUCK>18 AND LUCK<19 THEN PRINT "YOUR PICAXE BROKE" IF LUCK>19 AND LUCK<20 THEN PRINT "YOU ENCONTER A SNAKE" INPUT A IF LUCK>1 AND LUCK<2 THEN EHP=5 IF LUCK>1 AND LUCK<2 THEN GOTO GRF IF LUCK>2 AND LUCK<3 AND A=1 THEN GOTO SOP IF LUCK>3 AND LUCK<4 THEN WOOD=WOOD+25 IF LUCK>4 AND LUCK<5 THEN STONE=STONE+25 IF LUCK>5 AND LUCK<6 THEN EHP=3 IF LUCK>5 AND LUCK<6 THEN GOTO JDF IF LUCK>6 AND LUCK<7 THEN HP=HP-3 IF LUCK>7 AND LUCK<8 THEN FOOD=FOOD+25 IF LUCK>8 AND LUCK<9 THEN HP=HP-2 IF LUCK>10 AND LUCK<11 THEN HP=HP-5 IF LUCK>11 AND LUCK<12 THEN EHP=15 IF LUCK>11 AND LUCK<12 THEN GOTO BF IF LUCK>12 AND LUCK<13 THEN EHP=7 IF LUCK>12 AND LUCK<13 THEN GOTO WF IF LUCK>13 AND LUCK<14 THEN HP=HP-5 IF LUCK>14 AND LUCK<15 THEN FOOD=0 IF LUCK>15 AND LUCK<16 THEN HP=HP-7 IF LUCK>16 AND LUCK<17 THEN WEAPLVL=1 IF LUCK>16 AND LUCK<17 THEN WEAPLVL=0 IF LUCK>17 AND LUCK<18 THEN AXELVL=0 IF LUCK>18 AND LUCK<19 THEN PICLVL=0 IF LUCK>19 AND LUCK<20 THEN EHP=3 IF LUCK>19 AND LUCK<20 THEN GOTO SF ENG=ENG-10 SP=SP-5 IF ENG=0 THEN GOTO PASSOUT IF SP=0 THEN GOTO STARVATION GOTO START SF: CLS PRINT "-------STATS-------" PRINT "HEALTH:",HP PRINT "DAMAGE:",DMG PRINT "CRIT CHANCE",CRIT,"%" PRINT "----ENIMIE-STATS---" PRINT "HEALTH:",EHP PRINT "DAMAGE: 5" PRINT "------CHOICES------" PRINT "1:ATTACK" PRINT "2:CRIT ATTACK" INPUT A LUCK=RND*100 IF A=1 THEN EHP=EHP-DMG IF A=2 AND CRIT>LUCK THEN EHP=EHP-DMG*3 IF EHP<1 THEN GOTO SFD HP=HP-5 IF HP<1 THEN GOTO BDIE GOTO SF SFD: CLS PRINT "SNAKE DEFEATED" PRINT "GAINED NOTHING" INPUT A GOTO START WF: CLS PRINT "-------STATS-------" PRINT "HEALTH:",HP PRINT "DAMAGE:",DMG PRINT "CRIT CHANCE",CRIT,"%" PRINT "----ENIMIE-STATS---" PRINT "HEALTH:",EHP PRINT "DAMAGE: 2" PRINT "------CHOICES------" PRINT "1:ATTACK" PRINT "2:CRIT ATTACK" INPUT A LUCK=RND*100 IF A=1 THEN EHP=EHP-DMG IF A=2 AND CRIT>LUCK THEN EHP=EHP-DMG*3 IF EHP<1 THEN GOTO WFD HP=HP-2 IF HP<1 THEN GOTO BDIE GOTO WF GRF: CLS PRINT "-------STATS-------" PRINT "HEALTH:",HP PRINT "DAMAGE:",DMG PRINT "CRIT CHANCE",CRIT,"%" PRINT "----ENIMIE-STATS---" PRINT "HEALTH:",EHP PRINT "DAMAGE: 1" PRINT "------CHOICES------" PRINT "1:ATTACK" PRINT "2:CRIT ATTACK" INPUT A LUCK=RND*100 IF A=1 THEN EHP=EHP-DMG IF A=2 AND CRIT>LUCK THEN EHP=EHP-DMG*3 IF EHP<1 THEN GOTO GRFD HP=HP-1 IF HP<1 THEN GOTO BDIE GOTO GRF GRFD: CLS PRINT "GAINT RAT DEFEATED" PRINT "GAINED 5 FOOD" FOOD=FOOD+5 INPUT A GOTO START BF: CLS PRINT "-------STATS-------" PRINT "HEALTH:",HP PRINT "DAMAGE:",DMG PRINT "CRIT CHANCE",CRIT,"%" PRINT "----ENIMIE-STATS---" PRINT "HEALTH:",EHP PRINT "DAMAGE: 4" PRINT "------CHOICES------" PRINT "1:ATTACK" PRINT "2:CRIT ATTACK" INPUT A LUCK=RND*100 IF A=1 THEN EHP=EHP-DMG IF A=2 AND CRIT>LUCK THEN EHP=EHP-DMG*3 IF EHP<1 THEN GOTO BFD HP=HP-4 IF HP<1 THEN GOTO BDIE GOTO BF BFD: CLS PRINT "BEAR DEFEATED" PRINT "GAINED 50 FOOD" FOOD=FOOD+50 INPUT A GOTO START JDF: CLS PRINT "-------STATS-------" PRINT "HEALTH:",HP PRINT "DAMAGE:",DMG PRINT "CRIT CHANCE",CRIT,"%" PRINT "----ENIMIE-STATS---" PRINT "HEALTH:",EHP PRINT "DAMAGE: 3" PRINT "------CHOICES------" PRINT "1:ATTACK" PRINT "2:CRIT ATTACK" INPUT A LUCK=RND*100 IF A=1 THEN EHP=EHP-DMG IF A=2 AND CRIT>LUCK THEN EHP=EHP-DMG*3 IF EHP<1 THEN GOTO JDFD HP=HP-3 IF HP<1 THEN GOTO BDIE GOTO JDF JDFD: CLS PRINT "JPUXFRD DEFEATED" PRINT "GAINED NOTHING" INPUT A GOTO START WFD: CLS PRINT "WOLF DEFEATED" PRINT "GAINED 15 FOOD" FOOD=FOOD+15 INPUT A GOTO START PASSOUT: CLS DAY=DAY+1 HP=HP-10 SP=SP-5 ENG=30 PRINT "YOU PASSED OUT" PRINT "-10 HP" PRINT "-5 HUNGER" PRINT "+30 ENERGY" PRINT "DAY",DAY IF SP=0 THEN GOTO STARVATION WAIT 100 GOTO START SLEEP: CLS DAY=DAY+1 HP=HP+10 IF HP>MHP THEN HP=MHP SP=SP-5 ENG=60 PRINT "YOU PASSED OUT" PRINT "+10 HEALTH" PRINT "-5 HUNGER" PRINT "+60 ENERGY" PRINT "DAY",DAY IF SP=0 THEN GOTO STARVATION WAIT 100 GOTO START STARVATION: CLS MUSIC 0 PRINT "YOU STARVED TO DEATH" PRINT "SCORE",WOOD+STONE+GRASS+FOOD+AXELVL*10+PICLVL*10+WEAPLVL*10+DAY*100+PRO*200 DO LOOP BDIE: CLS MUSIC 0 PRINT "YOU WERE KILLED" PRINT "SCORE",WOOD+STONE+GRASS+FOOD+AXELVL*10+PICLVL*10+WEAPLVL*10+DAY*100+PRO*200 DO LOOP DIE: CLS MUSIC 0 PRINT "YOU DIED" PRINT "SCORE",WOOD+STONE+GRASS+FOOD+AXELVL*10+PICLVL*10+WEAPLVL*10+DAY*100+PRO*200 DO LOOP SOP: CLS PRINT "YOU ATE THE ONION" PRINT "MAXED HEALTH" PRINT "MAXED ENERGY" PRINT "MAXED HUNGER" HP=MHP SP=MSP ENG=60 WAIT 100 GOTO START WIN: CLS PRINT "YOU FIND A SMALL" PRINT "TOWN YOU ASK THE" PRINT "PEOPLE FOR" PRINT "DIRECTIONS AND YOU" PRINT "MAKE IT BACK HOME" PRINT "SCORE",WOOD+STONE+GRASS+FOOD+AXELVL*10+PICLVL*10+WEAPLVL*10+DAY*100+PRO*200 #15:MAIN SOUND 2800303A000450001800846C003A0000 08006060000000002800303019FE0000 38002020000000003800505000000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 0800000F000000000800000F00000000 00404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 40404040404040404040404040404040 310F00000000000000000000330F0000 0000000000350F000000000000003A0F 003C0F003A0F003C0F003A0F003C0F00 000000000000FF000000000000000000 00000000000000000000000000000000 00000000000000000000000000000000