%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:8827 File Name:MEDAWAR Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \If \List 6[4]\<=0 \Then {10,3,10,10,100,0}\->\List 5 {10,3,10,10}\->\List 6 \IfEnd \ClrText \Locate 6,1,"A" \Locate 13,7,"T" \For 2\->A \To 4 \Locate 6,A,"A" \Locate 6,A-1," " \Locate 15-2A,8-A,"T" \Locate 17-2A,9-A," " \Getkey=31\=>\Goto0 \Next \For 21\->X \To 9 \Step -1 \Locate X,4,"Presents " \Next \For 1\->A \To 5 \For 21\->X \To 1 \Step -2 A=2\=>\Locate X,4," " A=3\=>\Locate X,2," The Adventures of " A=4\=>\Locate X,4," the Mighty \Medawar " A=5\=>\Locate X,7," [1] Game [2] Intro " \Next \Next \Do \Getkey\->X \LpWhile X\<>72\ And X\<>62 X=72\=>\Goto0 " " " " " " " " " " " " " " \For 1\->A \To 21 \For 21\->X \To 1 \Step -4 A=1\=>\Locate X,5," Once upon a time, " A=2\=>\Locate X,5," a small town called " A=3\=>\Locate X,5,"Eastville was haunted" A=4\=>\Locate X,5,"by dangerous monsters" A=6\=>\Locate X,5," The king promised " A=7\=>\Locate X,5," his people all his " A=8\=>\Locate X,5," gold \and his own " A=9\=>\Locate X,5," daughter to the one " A=10\=>\Locate X,5," who could manage to " A=11\=>\Locate X,5," put an end to the " A=12\=>\Locate X,5," h\orribleness. " A=14\=>\Locate X,5," A young man called " A=15\=>\Locate X,5,"\Medawar wanted to try" A=16\=>\Locate X,5," his luck. " \Next \For 1\->X \To 80 \Next " " \Next \Lbl 0 \ClrText \Locate 1,1,"~~~~~~Eastville~~~~~~" \Locate 1,2,"1 - Old Towne Tavern" \Locate 1,3,"2 - Blacksmith's Shop" \Locate 1,4,"3 - The Bank" \Locate 1,5,"4 - Whitch's Hut" \Locate 1,6,"5 - Klamath F\orest" \Locate 1,7,"6 - Stats" \Do \Getkey \LpWhile \Ans=0 \ClrText \Ans=72\=>\Goto1 \Ans=62\=>\Goto2 \Ans=52\=>\Goto3 \Ans=73\=>\Goto4 \Ans=63\=>\Goto5 \Ans=53\=>\Goto6 \Goto0 \Lbl 4 \ClrText \Locate 1,1,"~~~~Whitch's~~Hut~~~~" \Locate 1,3,"1 - Upgrade staff" \Locate 1,4,"2 - Recharge staff" \Locate 1,6,"3 - Exit Hut" \Do \Getkey\->X \LpWhile X=0 X=52\=>\Goto0 X=62\=>\GotoH X\<>72\=>\Goto4 \Lbl J \ClrText \Locate 1,1,"~~~~Upgrade~Staff~~~~" \Locate 1,3,"Gold Level" \Locate 1,4,"Cost" \Locate 6,3,\List 5[5] \Locate 16,3,\List 5[3] \List 5[3]*10+20\->A \Locate 6,4,A \Locate 1,6,"1 - Upgrade staff" \Locate 1,7,"2 - Exit" \Do \Getkey \LpWhile \Ans=0 \Ans=62\=>\Goto4 \Ans\<>72\=>\GotoJ \List 5[5]\GotoJ \List 5[5]-A\->\List 5[5] \List 5[3]+1\->\List 5[3] \GotoJ \Lbl H \ClrText \Locate 1,1,"~~~Recharge~~staff~~~" \Locate 1,3,"Level \Power" \Locate 1,4,"Gold" \Locate 7,3,\List 5[3] \Locate 19,3,\List 6[3] \Locate 6,4,\List 5[5] \Locate 1,5,"1 - Recharge one 5" \Locate 1,6,"2 - Recharge all" (\List 5[3]-\List 6[3])*5\->B \Locate 19,6,B \Locate 1,7,"3 - EXIT" \Do \Getkey\->X \LpWhile X=0 X=52\=>\Goto0 \List 5[5]<5\=>\GotoH \List 5[3]=\List 6[3]\=>\GotoH \If X=72 \Then \List 5[5]-5\->\List 5[5] \List 6[3]+1\->\List 6[3] \GotoH \IfEnd \If X=62 \Then \List 5[5]-B<0\=>\GotoH \List 5[5]-B\->\List 5[5] \List 5[3]\->\List 6[3] \GotoH \IfEnd \Lbl 1 \ClrText \Locate 1,1,"~~Old~Towne~Tavern~~" \Locate 1,2,"The tavern is crowded" \Locate 3,3,"People are eating" \Locate 1,4,"laughing \and gambling" \Locate 1,5,"1 - Rent a room 2" \Locate 1,6,"2 - Join the gamblers" \Locate 1,7,"3 - Exit the tavern" \Do \Getkey \LpWhile \Ans=0 \Ans=62\=>\GotoG \Ans=52\=>\Goto0 \Ans\<>72\=>\Goto1 \ClrText \List 5[4]=\List 6[4]\=>\Goto1 \List 5[5]<2\=>\Goto1 \Locate 1,2,"You sleep over the" \Locate 1,3,"night, \and wake up" \Locate 1,4,"refreshed" \List 5[5]-2\->\List 5[5] \List 5[4]\->\List 6[4] \Locate 8,6,\List 5[4] \Locate 11,6,"\slash" \Locate 13,6,\List 6[4] \Do \Getkey \LpWhile \Ans=0 \Goto1 \Lbl G \ClrText " " " " " " " " " " \Locate 1,1,"~~~~~G~A~M~B~L~E~~~~~" \Locate 6,2,\List 5[5] \Locate 1,2,"Gold" \Locate 1,4,"The gamblers look at" \Locate 1,5,"you... How much will" "you bet"?\->X \Int X\->B B\<=0\=>\Goto1 B>\List 5[5]\=>\GotoG \ClrText \If 11\Ran#<5 \Then \Locate 7,4,"You win!" \List 5[5]+B\->\List 5[5] \Else \Locate 7,4,"You lose" \List 5[5]-B\->\List 5[5] \IfEnd \For 1\->K \To 150 \Next \Do \Getkey \LpWhile \Ans=0 \GotoG \Lbl 2 \ClrText \Locate 2,1,",----, Hello Sir." \Locate 1,2,"(~^^^~^) What can I" \Locate 1,3,"\Rc . . } do f\or you?" \Locate 1,4,"( O ) 1 - Upgrade" \Locate 2,5,"( - ) 2 - Repair" \Locate 3,6,"',,' 3 - Bye bye" \Locate 4,7,"Weapon [ \slash ]" 0\->L \List 6[2]<10\=>1\->L \Locate 13+L,7,\List 6[2] \Locate 16,7,\List 5[2] \Do 13\Ran#<1\=>\Locate 4,3," " 2\Ran#<1\=>\Locate 4,3,". ." 2\Ran#<1\=>\Locate 5,5,"-" 2\Ran#<1\=>\Locate 5,5,"=" \Getkey \LpWhile \Ans=0 \Ans=52\=>\Goto0 \Ans=72\=>\GotoU \Ans=62\=>\GotoF \Goto2 \Lbl U \ClrText \Locate 1,1,"~~~Upgrade~~Weapon~~~" \Locate 1,3,"Gold" \Locate 13,3,"Level" \Locate 1,4,"Cost" \Locate 6,3,\List 5[5] \Locate 19,3,\List 5[2] \List 5[2]*5+20\->X \Locate 6,4,X \Locate 1,5,"1 - Upgrade" \Locate 1,6,"2 - Exit" \Do \Getkey \LpWhile \Ans=0 \Ans=62\=>\Goto2 \Ans\<>72\=>\GotoU \ClrText X>\List 5[5]\=>\GotoU \Locate 4,4,"Weapon upgraded" \List 5[2]+1\->\List 5[2] \List 5[5]-X\->\List 5[5] \Do \Getkey \LpWhile \Ans\<>31 \GotoU \Lbl F \ClrText \List 5[2]=\List 6[2]\=>\Goto2 \Locate 1,1,"~~~~Weapon~Repair~~~~" \Locate 1,3,"Level Strength" \Locate 7,3,\List 5[2] \Locate 20,3,\List 6[2] \Locate 1,4,"Gold" \Locate 6,4,\List 5[5] \Locate 1,5,"1 - Repair one 3" \Locate 1,6,"2 - Repair all" \List 5[2]-\List 6[2]\->X \Locate 18,6,3X \Locate 1,7,"3 - Exit" \Do \Getkey \LpWhile \Ans=0 \ClrText \Ans=52\=>\Goto2 \Ans=72\=>\GotoO \Ans\<>62\=>\GotoF \List 5[5]<3X\=>\GotoF \List 5[5]-3X\->\List 5[5] \List 5[2]\->\List 6[2] \GotoF \Lbl O \List 5[5]<3\=>\GotoF \List 5[2]=\List 6[2]\=>\GotoF \List 5[5]-3\->\List 5[5] \List 6[2]+1\->\List 6[2] \GotoF \Lbl 6 \ClrText \Locate 1,1,"~~~~~~~~StatS~~~~~~~~" \Locate 7,2,"Life \slash" \Locate 12,2,\List 6[4] \Locate 15,2,\List 5[4] \Locate 5,3,"Weapon \slash" \Locate 12,3,\List 6[2] \Locate 15,3,\List 5[2] \Locate 6,4,"Magic \slash" \Locate 12,4,\List 6[3] \Locate 15,4,\List 5[3] \Locate 3,5,"Strength" \Locate 12,5,\List 5[1] \Locate 7,6,"Gold" \Locate 12,6,\List 5[5] \Locate 7,7,"Bank" \Locate 12,7,\List 5[6] \Do \Getkey \LpWhile \Ans\<>31 \Goto0 \Lbl 3 \ClrText " " " " " " \Locate 1,1,"~~~~~~~B~A~N~K~~~~~~~" \Locate 1,2,"Gold" \Locate 9,3,"Account" \Locate 6,2,\List 5[5] \Locate 17,3,\List 5[6] \Locate 1,5,"2 - Deposit" \Locate 1,4,"1 - Withdrawal" \Locate 1,7,"3 - Exit the Bank" \Do \Getkey\->X \LpWhile X=0 X=52\=>\Goto0 X\<>72\ And X\<>62\=>\Goto3 \For 4\->I \To 7 \Locate 1,I," " \Next \If X=72 \Then \List 5[6]=0\=>\Goto3 "Amount"?\->A A>\List 5[6]\=>\Goto3 \List 5[6]-A\->\List 5[6] \List 5[5]+A\->\List 5[5] \Else \List 5[5]=0\=>\Goto3 "Amount"?\->A A>\List 5[5]\=>\Goto3 \List 5[5]-A\->\List 5[5] \List 5[6]+A\->\List 5[6] \IfEnd \Goto3 \Lbl 5 \ClrText \Locate 1,1,"~~~Klamath~~F\orest~~~" \Locate 1,4,"1 - Search around" \Locate 1,5,"2 - Go to Town" \Do \Getkey\->X \LpWhile X=0 X\<>62\ And X\<>72\=>\Goto5 X=72\=>\GotoS 5\Ran#>1\=>\Goto0 \ClrText \Locate 1,1,"~~~~~~~Monster~~~~~~~" \Locate 2,4,"On your way out of" \Locate 4,5,"the f\orest, you" \Locate 5,6,"suddenly meet" \Locate 7,7,"a monster" \Do \Getkey \LpWhile \Ans\<>31 \GotoM \Lbl S \ClrText 7\Ran#\->X X<2\=>\GotoT X>6\=>\GotoQ X<6\ And X>5\=>\GotoY \If X>2\ And X<2.5\ And \List 5[4]>\List 6[4] \Then \Locate 1,1," ^ I see you are" \Locate 1,2," ^^^ wounded \Medwar." \Locate 1,3,"^^^^^ Take this" \Locate 1,4,"{.^.} potion of" \Locate 1,5," {-} healing." \Locate 1,6," '" \Locate 15,7,"[ \slash ]" \Locate 16,7,\List 5[4] \Locate 19,7,\List 5[4] \List 5[4]\->\List 6[4] \Do \Getkey\->Q 9\Ran#<1\=>\Locate 3,5,"-" 6\Ran#<1\=>\Locate 3,5,"=" \LpWhile Q\<>31 \Goto5 \IfEnd \Lbl M \Int (((\List 5[2]+\List 5[3])/1.5)\Ran#)+1\->L L\->M \Int (((\List 5[4]-L\ab/c4)\Ran#)+1\->B 0\->Z 0\->G 3\Ran#<1\=>1\->G \ClrText \For 21\->X \To 9 \Step -3 \Locate X,4,"FIGHT " \Locate 22-X,5,"-\(-)-" \Locate 28-X,3,"\(-)-\(-)" \Next " " " " " " " " " " " " " " \For 1\->A \To 6 \For 21\->X \To 9 \Step -4 A=1\=>\Locate X,7,"Monster...." A=2\=>\Locate X,7," ...." A=3\=>\Locate X,7,"Life...." A=4\=>\Locate X,7,"Hit Pts...." A=5\=>\Locate X,7,"Carries...." \Next " " \Next \Locate 19,3,L \Locate 19,4,H G\=>\Locate 19,5,"Gem" \If L<6 \Then \Locate 11,2,"Goblin" \Locate 1,1,"() ()" \Locate 2,2,"\theta \theta" \Locate 3,3,"O" \Locate 2,4,"---" \Locate 3,5,"'" \Do 9\Ran#<1\=>\Locate 2,2,"~ \theta" 5\Ran#<1\=>\Locate 2,2,"\theta \theta" 8\Ran#<1\=>\Locate 2,4,"---" 4\Ran#<1\=>\Locate 2,4,"\(-)-\(-)" \Getkey \LpWhile \Ans=0 \IfEnd \If L>5\ And L<11 \Then \Locate 11,2,"Zombie" \Locate 1,2,"'''''" \Locate 1,3,"'O O'" \Locate 1,4,"I ^ I" \Locate 1,5,"I~~~I" \Locate 1,6," \aster\aster\aster " \Do 3\Ran#<1\=>\Locate 2,3,"O O" 3\Ran#<1\=>\Locate 2,3,"# #" \Getkey \LpWhile \Ans=0 \IfEnd \If L>10\ And L<16 \Then \Locate 11,2,"Gargoyle" \Locate 1,1,"(o O)" \Locate 2,2,"<..>" \Locate 3,3,"--" \Do \Getkey 15\Ran#<1\=>\Locate 2,1,"O o" 15\Ran#<1\=>\Locate 2,1,"o O" 15\Ran#<1\=>\Locate 2,1,"=" \LpWhile \Ans=0 \IfEnd \If L>15\ And L<21 \Then \Locate 11,2,"Gnom" \Locate 1,1," (==)" \Locate 1,2,"( \>=\<= )" \Locate 1,3,"(( ))" \Locate 1,4," (~~)" \Locate 1,5," '' " \Do 9\Ran#<1\=>\Locate 3,2,"\(-)\(-)" 2\Ran#<1\=>\Locate 3,2,"\>=\<=" \Getkey \LpWhile \Ans=0 \IfEnd \If L>20\ And L<26 \Then \Locate 11,2,"\Medusa" \Locate 1,1,"~~~~~~" \Locate 1,2,"~\aster \aster~" \Locate 1,3,"~ ~" \Locate 1,4," ~ ~ " \Locate 1,5," ^^ " 0\->\r \Do \r+1\->\r \r\>=7\=>1\->\r \Locate \r,1,"~ " 15\Ran#<1\=>\Locate 3,2," " 3\Ran#<1\=>\Locate 3,2,")(" \Getkey \LpWhile \Ans=0 \IfEnd \If L>25\ And L<46 \Then \Locate 11,2,"Orce" \Locate 1,2,"} { " \Locate 1,3,"(\>=\<=) " \Locate 1,4,"(()) " \Locate 1,5," -- " \Do 9\Ran#<1\=>\Locate 2,3,"~~" 3\Ran#<1\=>\Locate 2,3,"\>=\<=" \Getkey \LpWhile \Ans=0 \IfEnd \If L>45 \Then \Locate 11,2,"Giant." \Locate 1,1," ,-=-," \Locate 1,2," {~~,~~}" \Locate 1,3,"[{()Y()}]" \Locate 1,4," { \<=,\>= } " \Locate 1,5," \(-)~~~\(-)" \Locate 1,6," {,,,}" \Do 9\Ran#<1\=>\Locate 4,5,"(O)" 9\Ran#<1\=>\Locate 4,5,"~~~" 4\Ran#<1\=>\Locate 3,3,"()Y()" 9\Ran#<1\=>\Locate 3,3,"[]Y[]" \Getkey \LpWhile \Ans=0 \IfEnd \Do \Getkey \LpWhile \Ans=0 \ClrText \Lbl W \Locate 1,1,"~~~~~~~~Fight~~~~~~~~" \Locate 1,2,"Life Weapn " \Locate 11,2,\List 6[4] \Locate 20,2,\List 6[2] \Locate 1,3,"Strength Magic " \Locate 11,3,\List 6[1] \Locate 20,3,\List 6[3] \Locate 1,4,"Enm. Life HitPt " \Locate 11,4,L \Locate 20,4,B \If \List 6[4]\<=0 \Then \For 1\->X \To 150 \Next \ClrText \Locate 1,1,"~~~~~~Game~Over~~~~~~" \Locate 1,3,"You have failed your" \Locate 1,4,"mission, \and the town" \Locate 3,5,"of Eastville will" \Locate 1,6," surely suffer under" \Locate 1,7,"the terrible monsters" \Do \Getkey \LpWhile \Ans\<>31 \Stop \IfEnd Z=0\=>\Locate 1,6," 1-Hit 2-Spell 3-Run " Z\=>\Locate 1,6," " Z\=>\GotoR \Do \Getkey\->X \LpWhile X=0 X\<>72\ And X\<>62\ And X\<>52\=>\GotoW X=62\ And \List 6[3]<5\=>\GotoW \If X=72 \Then \Int (\List 5[1]+\List 6[2])/2\->H \Int 3\Ran#<1\=>\List 6[2]>0\=>\List 6[2]-1\->\List 6[2] \Int H\Ran#\->D \Locate 1,7,"Damage" \Locate 8,7,D L-D\->L \IfEnd \If X=62 \Then \List 6[3]-5\->\List 6[3] \Int (\List 5[3]*3)\Ran#\->D \Locate 1,7,"Damage" \Locate 8,7,D L-D\->L \IfEnd \For 1\->K \To 150 \Next \Locate 1,7," " \If X=52 \Then 2.5\Ran#<1\=>\Goto5 \Locate 5,7,"Unable to run" \For 1\->K \To 100 \Next \Locate 1,7," " \IfEnd 1\->Z \GotoW \Lbl R 0\->Z \If L<1 \Then \ClrText \Locate 1,1,"~~~~~~~Vict\ory~~~~~~~" \Locate 1,2,"You study the monster" \Locate 1,3," carefully \and find" \Locate 1,4," these items on it" \Locate 7,5,"Gold" \Int (M*10\Ran#)+1\->X X+\List 5[5]\->\List 5[5] \Locate 12,5,X \If G \Then \If 2\Ran#<1 \Then \Locate 4,7,"Gem of strength" \List 5[1]+1\->\List 5[1] \Else \Locate 6,6,"Gem of life" \List 5[4]+1\->\List 5[4] \IfEnd \IfEnd \Do \Getkey \LpWhile \Ans\<>31 \Goto5 \IfEnd \Int B\Ran#\->D \List 6[4]-D\->\List 6[4] \Locate 11,7,"Damage" \Locate 18,7,D \For 1\->K \To 150 \Next \Locate 11,7," " \GotoW \Lbl T \Locate 1,1,"~~~T~R~E~A~S~U~R~E~~~" \Locate 7,3,"You find" \If 2\Ran#<1 \Then \Int ((\List 5[2]+\List 5[1])*25)\Ran#+1\->X \Locate 8,4,"Gold" \Locate 13,4,X X+\List 5[5]\->\List 5[5] \Do \Getkey \LpWhile \Ans\<>31 \Goto5 \IfEnd \Locate 7,4,"A gem of" \Int 4\Ran#+1\->X X=2\=>4\->X X=1\=>\Locate 7,5,"Strength" X=3\=>\Locate 9,5,"Magic" X=4\=>\Locate 9,5,"Life" \List 5[X]+1\->\List 5[X] \Locate 8,7,"[+1]" \Locate 13,7,\List 5[X] \Do \Getkey \LpWhile \Ans\<>31 \Goto5 \Lbl Q \ClrText \Locate 1,1,"~~~~~~~Goblin~~~~~~~~" \Locate 4,3,"A goblin steals" \Int \List 5[5]\Ran#\->S \List 5[5]-S\->\List 5[5] \Locate 7,4,S \Locate 12,4,"gold" \Locate 7,5,"from you" \Do \Getkey \LpWhile \Ans\<>31 \Goto5 \Lbl Y \ClrText \Lbl 9 \Locate 1,1," (V) Hi there." \Locate 1,2," (\Deg> \Deg>) \Do you want" \Locate 1,3," ( U ) to buy this" \Locate 1,4," (-) secret package" \Locate 1,5," W f\or only" \Locate 1,6,"--You-have-----gold--" \Locate 12,6,\List 5[5] \List 5[2]*10\->B \Locate 17,5,B \Locate 1,7,"1-Deal 2-\Not a chance" \Do \Getkey 9\Ran#<1\=>\Locate 4,4,"-" 6\Ran#<1\=>\Locate 4,4,"=" 4\Ran#<1\=>\Locate 3,2,"\Deg> \Deg>" 15\Ran#<1\=>\Locate 3,2,"\(-) \(-)" \LpWhile \Ans=0 \Ans\<>62\ And \Ans\<>72\=>\Goto9 \Ans=62\=>\Goto5 \List 5[5]\Goto9 \List 5[5]-B\->\List 5[5] \ClrText \Locate 1,1,"~~~~~~~Package~~~~~~~" \Locate 1,2,"It contains" \Int 5\Ran#+1\->P P<5\=>\GotoC \Int 5\Ran#\->\theta \theta=0\=>\Locate 6,4,"a rotten apple" \theta=1\=>\Locate 8,4,"a stone" \theta=2\=>\Locate 6,4,"a dead rat" \theta=3\=>\Locate 7,4,"nothing.." \theta=4\=>\Locate 3,4,"a broken sw\ord..." \Do \Getkey \LpWhile \Ans=0 \Goto5 \Lbl C \Int 4\Ran#+1\->P \Locate 6,4,"A scroll of" P=1\=>\Locate 6,5,"strength" P=2\=>\Locate 3,5,"weapon techniques" P=3\=>\Locate 9,5,"magic" P=4\=>\Locate 9,5,"life" \Int 2\Ran#+1\->O \Locate 9,7,"[+ ] \Locate 12,7,O \List 5[P]+O\->\List 5[P] \Do \Getkey \LpWhile \Ans=0 \Goto5 %End
Make your own free website on Tripod.com