home *** CD-ROM | disk | FTP | other *** search
/ B Soft 6 / B-Soft_6_19xx_Maik__Mike_de_Side_B.d64 / dsa-kampfsystem (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  28 lines
  1. 1 poke53280,0:poke53281,0:print"[147][142]","[157][157][152]*** dsa-kampfsystem ***":print"written by kai grashoff alias soulsucker":print"in 1992.":print"improved by maik holstein alias jtr":print"in 1998.":gosub19
  2. 2 sr$="----------------------------------------":input"[147]name des 1. kaempfers";a$:input"name des 2. kaempfers";b$:print"attacke-wert von "a$:inputat:print"attacke-wert von ";b$:inputaa:print"parade-wert von ";a$:inputpt:print"parade-wert von ";b$:inputpa:print"lebensenergie von ";a$:inputle
  3. 3 print"lebensenergie von ";b$:inputlp:print"ruestungsschutz von ";a$:inputrw:print"ruestungsschutz von ";b$:inputrs:print"trefferpunkte von "a$" (1w6+?)":inputtw:print"trefferpunkte von "b$" (1w6+?)":inputtp
  4. 4 gosub18:gosub17:aw=int(20*rnd(1))+1:ifaw<=atthenprint"attacke gelungen! ("a$")":goto6
  5. 5 ifaw>atthenprint"attacke versagt! ("a$")":goto10
  6. 6 vw=int(20*rnd(1))+1:ifvw<=pathenprint"parade erfolgreich! ("b$")":goto10
  7. 7 ifvw>pathenprint"parade verpatzt! ("b$")":goto8
  8. 8 sp=int(6*rnd(1))+1+tw:ifsp<=rsthenprint"kein schaden!":goto10
  9. 9 ifsp>rsthensp=sp-rs:print"schadenspunkte:";sp:lp=lp-sp:iflp<=0then22
  10. 10 kw=int(20*rnd(1))+1:ifkw<=aathenprint"attacke gelungen! ("b$")":goto12
  11. 11 ifkw>aathenprint"attacke versagt! ("b$")":goto21
  12. 12 pw=int(20*rnd(1))+1:ifpw<=ptthenprint"parade erfolgreich! ("a$")":goto21
  13. 13 ifpw>ptthenprint"parade verpatzt! ("a$")":goto14
  14. 14 sw=int(6*rnd(1))+1+tp:ifsw<=rwthenprint"kein schaden!":goto21
  15. 15 ifsw>rwthensw=sw-rw:print"schadenspunkte:";sw:le=le-sw:ifle<=0then23
  16. 16 goto21
  17. 17 print"[147]"sr$;"lebensenergie - 1. kaempfer:"le:print"lebensenergie - 2. kaempfer:"lp:printsr$:return
  18. 18 print"bitte eine taste druecken...";
  19. 19 getzz$:ifzz$=""then19
  20. 20 return
  21. 21 print"once again!":goto4
  22. 22 print"game over, ";b$"!":print"",,,"[157]tot":gosub19:goto24
  23. 23 print"game over, ";a$"!":print"",,,"[157]tot":gosub19:goto24
  24. 24 print"[147]","[152] noch einmal (j/n)?"
  25. 25 gosub19:ifzz$="n"thennew
  26. 26 ifzz$="j"thenrun2
  27. 27 goto25
  28.