home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 225
/
225.d81
/
wild-fire
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
721b
|
28 lines
1 c=53280:pokec,0:pokec+1,0:print"[147][158]":c=1440:t=6:a=int(rnd(1)*8)+3:gosub22
2 forb=1toa:pokec+b,24:poke55712+b,7:next:print""
3 forb=1to8:print"":next:print"turns left:"t:print"(c)hemi. (b)ackfire (w)ater
4 [161]a$:[139]a$[178]""[167]4
5 [139]a$[178]"c"[167]9
6 [139]a$[178]"b"[167]10
7 [139]a$[178]"w"[167]11
8 [137]11
9 q[178]a:a[178]a[171]3:t[178]t[171][181]([187](1)[172]5)[170]1:[137]12
10 q[178]a:a[178]a[171]2:t[178]t[171]3:[137]12
11 q[178]a:a[178]a[171]1:t[178]t[171]1:[137]12
12 [129]b[178]1[164]q:[151]c[170]b,32:[130]:[139]a[179]1[167]15
13 [139]t[179]1[167]16
14 [137] 2
15 [153]"you won!closethe fire is put out!":[137]17
16 [153]"you lost!closethe fire spread..."
17 [153]"play again?close(y/n)"
18 [161]a$:[139]a$[178]""[167]18
19 [139]a$[178]"y"[167][138]
20 [139]a$[178]"n"[167][128]
21 [137]18
22 [153]" wild-fire wait by pingo/civitas/dixn riah":[153]
23 [153]"your goal is to fight the fire. you"
24 [153]"have 3 methods, but they cost! be care-
25 print"ful, and you might win!"
26 geta$:ifa$=""then26
27 print"[147]":return