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