home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_B.d64 / dsa-kampf (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  71 lines
  1. 1 print"[147]"
  2. 10 poke53280,0:poke 53281,1
  3. 20 print"[144]"
  4. 30 print
  5. 40 print" erster kaempfer:"
  6. 50 print
  7. 51 input"name ";n$
  8. 52 print
  9. 60 input"lebensenergie ";le
  10. 70 print
  11. 80 input"attacke ";at
  12. 90 print
  13. 100 input"parade ";pa
  14. 110 print
  15. 120 input"trefferpunkte (1w+?)";tp
  16. 130 print
  17. 140 input"ruestungsschutz ";rs
  18. 150 print"[147]"
  19. 160 print
  20. 170 print" zweiter kaempfer:"
  21. 180 print
  22. 181 input"name ";na$
  23. 182 print
  24. 190 input"lebensenergie ";lz
  25. 200 print
  26. 210 input"attacke ";az
  27. 220 print
  28. 230 input"parade ";pz
  29. 240 print
  30. 250 input"trefferpunkte (1w+?)";tz
  31. 260 print
  32. 270 input"ruestungsschutz ";rz
  33. 280 print
  34. 290 print" der kampf beginnt..."
  35. 300 print:print" ...taste..."
  36. 310 get aa$:if aa$=""then310
  37. 320 if aa$=chr$(32)then330
  38. 330 w=int(20*rnd(1))
  39. 340 if w<=at then360
  40. 350 if w>at then420
  41. 360 wg=int(20*rnd(1))
  42. 370 if wg<=pz then420
  43. 380 if wg>pz then390
  44. 390 sp=int(6*rnd(1)+tp)
  45. 400 lz=lz-sp+rz
  46. 410 if lz<1 then520
  47. 420 wg=int(20*rnd(1))
  48. 430 if wg<=az then460
  49. 440 if wg>az then330
  50. 450 w=int(20*rnd(1))
  51. 460 if w<=pa then330
  52. 470 if w>pa then 480
  53. 480 sp=int(6*rnd(1)+tz)
  54. 490 le=le-sp+rs
  55. 491 print"[147]"
  56. 492 print" "n$"      "na$
  57. 493 print
  58. 495 print le""lz
  59. 500 if le<1 then570
  60. 510 goto 330
  61. 520 print"[147]"
  62. 530 print na$" ist tot."
  63. 540 print
  64. 550 print" lebensenergie von "n$":"le
  65. 560 end
  66. 570 print"[147]"
  67. 580 print n$" ist tot."
  68. 590 print
  69. 600 print" lebensenergie von "na$":"lz
  70. 610 end
  71.