MiniConan PUR-120

Author: Fabrizio-Caruso

C128/C128.cbmprj

@@ -56,6 +56,7 @@
         <FileName>bug.bas</FileName>
         <FileName>TreasureChamber_color.bas</FileName>
         <FileName>TreasureChamber.bas</FileName>
+        <FileName>MiniConan_BK.bas</FileName>
     </BuildList>
     <DetermineBuildOrder>0</DetermineBuildOrder>
     <PaddingByte>234</PaddingByte>
@@ -108,6 +109,17 @@
             <Topmost>False</Topmost>
             <FileOpen>True</FileOpen>
         </SourceFile>
+        <SourceFile>
+            <Name>MiniConan_BK.bas</Name>
+            <PrgName />
+            <FileType>1</FileType>
+            <IncludeInBuild>True</IncludeInBuild>
+            <Regions />
+            <Breakpoints />
+            <Bookmarks />
+            <Topmost>False</Topmost>
+            <FileOpen>True</FileOpen>
+        </SourceFile>
         <SourceFile>
             <Name>test.bas</Name>
             <PrgName />
@@ -182,7 +194,7 @@
             <Regions />
             <Breakpoints />
             <Bookmarks />
-            <Topmost>True</Topmost>
+            <Topmost>False</Topmost>
             <FileOpen>True</FileOpen>
         </SourceFile>
     </SourceFiles>

C128/MiniConan.bas

@@ -1,10 +1,10 @@
-0s=7:e=100:i=1:d=1:g=20:?"{clear}":fOi=1to4:w(i)=1:reAj$(i):nE:fOi=1to4:reAm$(i):reAp(i):reAs(i):nE:fOi=1to4:reAe$(i):nE
-1colO0,1:colO4,1:?"{clear}{red}S:{white}";e;" {yellow}exp:{white}";s;" {brown}$:{yellow}";g:?"{orange}adventurer's inn"
-2fOi=1to4:?"{white}";i;j$(i):nE:inputj:on-(j<1orj>4)gO2:on-(j<4)gO4:?"{clear}"j$(4):fOi=1to3:?"{white}"i;w(i);m$(i);p(i):nE:?" {white}4 "m$(4):inputj
-3on-(j<1orj>4)gO4:on-(j=4)gO1:e=e+(j=1)*(w(1)>1)*5:s=s-(w(j)>0)*s(j):g=g+(w(j)>0)*p(j):w(j)=w(j)+(w(j)>0):gO1
-4q$="":fOk=.to1:fOi=1toj*3:?"{clear}"j$(j)"{home}{down}{white}day {gray}"i;q$:r=1+int(rN(.)*(j+1)):n=2+int(rN(.)*(j+1)):?"you are attacked by"n;e$(r)
-5?"1. attack":?"2. run":inputa:a=aaN1:l=int(s-r*n+rN(.)*4):ifl<.tH?"you are hit and lose";-l"points":e=e+l:gEkEk$
-6on-(e<.ors>99)gO9:ifaaNe>.tH?"you kill the "e$(r):p=1+rN(.)*r*3aN15:?"you get{yellow}"p;"{brown}$":g=g+p:gEkEk$:gO8
-7m=l+6*((r=1)or(r=4)):ifm<.tH?"they grab you and you lose";-m+1"points":e=e+m-1:gEkEk$:gO5:else?"you escaped":gEkEk$
-8nE:p=j*int(10+rN(.)*19):q$=" return":?"{clear}at the end you find{yellow}";p;"{brown}$":g=g+p:gEkEk$:nE:w(1)=j:gO1:dA"{light green}enchanted forest","{gray}mysterious cave","{green}dark woods","{cyan}merchant"
-9ife<.tH?"{clear}you are dead!":gEkEk$:gO0:else:?"{clear}you won!":gEkEk$:gO0dA:dA"{cyan}potion",10,0,"{brown}sword",100,10,"{yellow}dragon's sword",1000,50,"{gray}leave",0,0,"trolls","kobolds","elves","werewolves"
+0s=7:e=100:i=1:d=1:g=20:?"{clear}":fOi=1to4:w(i)=1:reAj$(i):reAm$(i):reAp(i):reAs(i):reAe$(i):nE:dA"{light green}eerie forest","{cyan}potion"
+1colO0,1:colO4,1:?"{clear}{red}S:{white}";e;" {yellow}exp:{white}";s;" {brown}$:{yellow}";g:?"{orange}adventurer's inn":fOi=1to4:?"{white}";i;j$(i):nE:inputj:dA10,0,"trolls"
+2on-(j<4)gO4:ifj<1orj>4tHj=1+jaN3:else?"{clear}"j$(4):fOi=1to3:?"{white}"i;w(i);m$(i);p(i):nE:?" {white}4 "m$(4):inputj:dA"{gray}cave","{brown}sword"
+3on-(j<1orj>4)gO4:on-(j=4)gO1:e=e+(j=1)*(w(1)>1)*5:s=s-(w(j)>0)*s(j):g=g+(w(j)>0)*p(j):w(j)=w(j)+(w(j)>0):gO1:dA100,10
+4fOk=.to1:fOi=1toj*3:?"{clear}"j$(j)"{home}{down}{white}day {gray}"i;q$:r=1+int(rN(.)*(j+1)):n=2+int(rN(.)*(j+1)):?"you are attacked by"n;e$(r)
+5?"1. attack":?"2. run":inputa:a=aaN1:l=int(s-r*n+rN(.)*4):ifl<.tH?"you are hit and lose";-l"pts":e=e+l:sL1:dA"kobolds"
+6on-(e<.ors>99)gO9:ifaaNe>.tH?"you kill the "e$(r):p=1+rN(.)*r*3aN15:?"you get{yellow}"p;"{brown}$":g=g+p:sL1:gO8:dA"{green}dark woods"
+7m=l+6*((r=1)or(r=4)):ifm<.tH?"they grab you. you lose";-m+1"pts":e=e+m-1:sL1:gO5:else?"you escape":sL1:dA"{yellow}heavy sword"
+8nE:p=j*int(10+rN(.)*19):ifk=.tHq$=" return":?"{clear}at the end you find{yellow}";p;"{brown}$":g=g+p:gEkEk$:nE:else:q$="":nE:w(1)=j:gO1
+9ife<.tH?"{clear}you die!":gEkEk$:gO0:else:?"{clear}you won!":gEkEk$:gO0:dA1000,50,"elves","{blue}merchant","{gray}exit",0,0,"werewolves"

C128/MiniConan_BK.bas

@@ -0,0 +1,14 @@
+0s=7:e=100:i=1:d=1:g=20:?"{clear}":fOi=1to4:w(i)=1:reAj$(i):reAm$(i):reAp(i):reAs(i):reAe$(i):nE
+1colO0,1:colO4,1:?"{clear}{red}S:{white}";e;" {yellow}exp:{white}";s;" {brown}$:{yellow}";g:?"{orange}adventurer's inn":fOi=1to4:?"{white}";i;j$(i):nE:inputj
+2on-(j<4)gO4:ifj<1orj>4tHj=1+jaN3:else?"{clear}"j$(4):fOi=1to3:?"{white}"i;w(i);m$(i);p(i):nE:?" {white}4 "m$(4):inputj
+3on-(j<1orj>4)gO4:on-(j=4)gO1:e=e+(j=1)*(w(1)>1)*5:s=s-(w(j)>0)*s(j):g=g+(w(j)>0)*p(j):w(j)=w(j)+(w(j)>0):gO1
+4fOk=.to1:fOi=1toj*3:?"{clear}"j$(j)"{home}{down}{white}day {gray}"i;q$:r=1+int(rN(.)*(j+1)):n=2+int(rN(.)*(j+1)):?"you are attacked by"n;e$(r)
+5?"1. attack":?"2. run":inputa:a=aaN1:l=int(s-r*n+rN(.)*4):ifl<.tH?"you are hit and lose";-l"pts":e=e+l:sL1
+6on-(e<.ors>99)gO9:ifaaNe>.tH?"you kill the "e$(r):p=1+rN(.)*r*3aN15:?"you get{yellow}"p;"{brown}$":g=g+p:sL1:gO8
+7m=l+6*((r=1)or(r=4)):ifm<.tH?"they grab you. you lose";-m+1"pts":e=e+m-1:sL1:gO5:else?"you escaped":sL1
+8nE:p=j*int(10+rN(.)*19):ifk=.tHq$=" return":?"{clear}at the end you find{yellow}";p;"{brown}$":g=g+p:gEkEk$:nE:else:q$="":nE:w(1)=j:gO1
+9ife<.tH?"{clear}you are dead!":gEkEk$:gO0:else:?"{clear}you won!":gEkEk$:gO0
+100dA"{light green}eerie forest","{cyan}potion",10,0,"trolls"
+110dA"{gray}cave","{brown}sword",100,10,"kobolds"
+120dA"{green}dark woods","{yellow}dragon's sword",1000,50,"elves"
+130dA"{blue}merchant","{gray}exit",0,0,"werewolves"