home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 163 / 163.d81 / swat.opts.maker (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  74 lines
  1. 10 rem     swat q&d options maker
  2. 20 rem  change lines 40-193 then run
  3. 30 rem
  4. 40 jp=5000:  rem jackpot (100000 max)
  5. 50 b=10:     rem coins per line (1-10)
  6. 60 cu=3:     rem cutoff number (1-5)
  7. 70 fl=2:     rem game type (1-9 only)
  8. 80 :         rem 1=no r/b  2=r/b 3                       3=r/b 5   4=race 3
  9. 90 :         rem 5=race 5  6=bonus 3                     7=bonus 5 8=910jqka
  10. 100 :        rem 9=910jqka with wild
  11. 110 mu=1:    rem race/bonus tie breaker                  (0=races 1=bonus)
  12. 120 pl=13:   rem number of lines played                  (5 or 13 only)
  13. 130 ar=0:    rem arrow animation                         (0=off 1=on)
  14. 140 c1=6:    rem car 1 color (1-15)
  15. 150 c2=3:    rem car 2 color (1-15)
  16. 160 c3=7:    rem car 3 color (1-15)
  17. 170 c4=2:    rem car 4 color (1-15)
  18. 180 c5=5:    rem car 5 color (1-15)
  19. 190 cr=1000: rem credits
  20. 191 b1=5000: rem bonus high number
  21. 192 b2=2500: rem bonus middle number
  22. 193 b3=1000: rem bonus low number
  23. 200 rem
  24. 210 rem simple error checking of data
  25. 220 rem
  26. 230 rem if program stops with a break
  27. 240 rem in xxxx, re-list program and
  28. 250 rem fix data that is out of range
  29. 260 rem
  30. 270 ifjp<1orjp>100000thenstop
  31. 280 ifb<1orb>10thenstop
  32. 290 ifcu<1orcu>5thenstop
  33. 300 iffl<1orfl>9thenstop
  34. 310 ifmu<>0andmu<>1thenstop
  35. 320 ifpl<>5andpl<>13thenstop
  36. 330 ifar<>0andar<>1thenstop
  37. 340 ifc1<1orc1>15thenstop
  38. 350 ifc2<1orc2>15thenstop
  39. 360 ifc3<1orc3>15thenstop
  40. 370 ifc4<1orc4>15thenstop
  41. 380 ifc5<1orc5>15thenstop
  42. 390 ifcr<1thenstop
  43. 391 ifb1<1thenstop
  44. 392 ifb2<1thenstop
  45. 393 ifb3<1thenstop
  46. 400 rem
  47. 410 rem scratch old file
  48. 420 rem
  49. 430 dv=peek(186):ifdv<8thendv=8
  50. 440 open15,dv,15,"s0:swat.options":close15
  51. 450 rem
  52. 460 rem write new file to active drive
  53. 470 rem
  54. 480 open2,dv,2,"swat.options,p,w"
  55. 490 print#2,jp
  56. 500 print#2,b
  57. 510 print#2,cu
  58. 520 print#2,fl
  59. 530 print#2,mu
  60. 540 print#2,pl
  61. 550 print#2,ar
  62. 560 print#2,c1
  63. 570 print#2,c2
  64. 580 print#2,c3
  65. 590 print#2,c4
  66. 600 print#2,c5
  67. 610 print#2,cr
  68. 611 print#2,b1
  69. 612 print#2,b2
  70. 613 print#2,b3
  71. 620 close2
  72. 630 end
  73. 10000 open15,8,15,"s0:swat.opts.maker":close15:save"swat.opts.maker",8:end
  74.