home *** CD-ROM | disk | FTP | other *** search
/ Publication 3 / Publication_03_1996_High-Tech_de_Side_A.d64 / game-manager_007 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  63 lines
  1. 0 poke775,.:print"[144][147]":poke53280,.:poke53281,.:ifa=0thena=1:load"game-manager/003",8,1
  2. 1 print"[147]":open2,8,2,"game-manager/005,s,r":input#2,na$,nb$,nc$,nd$,ne$,nf$,ng$,nh$,ni$,nj$,na,nb,nc,nd,ne,nf,ng,nh,ni:input#2,nj:close2:goto6
  3. 2 print"           []]^[]]/[206][209][210][207][206]]]^":ifc=1thenprint"[145]";
  4. 3 print"           _[219]_<>?_[211][208][211]?_[219]
  5.            !"chr$(34)"$#![192][193][194]![215][215][215][194]![174][216]":ifc=1thenprint"[145]";
  6. 4 print"           %&.'%[195][196][197]%[213][212][214][197]%&.[176]
  7.            ()),[198][199][200][201][198][199][200][201][198]))[217]":ifc=1thenprint"[145]";
  8. 5 print"             [205]*[203][204][205]*[203][204]
  9.               +[202]manager+[202]":return
  10. 6 print"[147]":open2,8,2,"game-manager/004,s,r":input#2,zv,zw,ka,kb,zb,zc,zj,zm,fa$,fb$:close2:sys49152:print"[154]              game-manager
  11. [159]          das spiel ist zuende
  12.           bitte space dr@cken!
  13. 7 [129]b[178]1[164]15:[151]646,b:[141]2:[161]a$:[139]a$[178]""[167][130]:[137]7
  14. 8 [139]a$[178]" "[167]10
  15. 9 [130]:[137]7
  16. 10 [153]"":[129]b[178]1[164]6:[153]"                                        ";:[130]b:[153]"":[129]b[178]1[164]11:[153]"                                        ";:[130]b:[153]"sys      die auswertung f@r spieler 1
  17. ";:[129]b[178]1[164]15:[151]646,b:[153]"frefre";:[130]b:[153]"name..................print "fa$
  18. 11 [153]"kapital...............print"ka:[153]"onkredit bei der bank...print"zb:[153]"kredit beim mitspielerprint"zj:[153]"onbeliebtheit...........print"zv:ga[178]ka[172]zv[171](zb[172]2)[171](zj[172]2)[170](zm[172]2):g$[178]fa$:[153]"gesamtpunktzahl.......def"ga:[141]13:[139]h[178]1[167][141]24
  19. 12 [137]25
  20. 13 [139]ga[177]na[167]nj[178]ni:ni[178]nh:nh[178]ng:ng[178]nf:nf[178]ne:ne[178]nd:nd[178]nc:nc[178]nb:nb[178]na:na[178]ga:[137]52
  21. 14 [139]ga[177]nb[167]nj[178]ni:ni[178]nh:nh[178]ng:ng[178]nf:nf[178]ne:ne[178]nd:nd[178]nc:nc[178]nb:nb[178]ga:[137]53
  22. 15 [139]ga[177]nb[167]nj[178]ni:ni[178]nh:nh[178]ng:ng[178]nf:nf[178]ne:ne[178]nd:nd[178]nc:nc[178]ga:[137]54
  23. 16 [139]ga[177]nb[167]nj[178]ni:ni[178]nh:nh[178]ng:ng[178]nf:nf[178]ne:ne[178]nd:nd[178]ga:[137]55
  24. 17 [139]ga[177]nb[167]nj[178]ni:ni[178]nh:nh[178]ng:ng[178]nf:nf[178]ne:ne[178]ga:[137]56
  25. 18 [139]ga[177]nb[167]nj[178]ni:ni[178]nh:nh[178]ng:ng[178]nf:nf[178]ga:[137]57
  26. 19 [139]ga[177]nb[167]nj[178]ni:ni[178]nh:nh[178]ng:ng[178]ga:[137]58
  27. 20 [139]ga[177]nb[167]nj[178]ni:ni[178]nh:nh[178]ga:[137]59
  28. 21 [139]ga[177]nb[167]nj[178]ni:ni[178]ga:[137]60
  29. 22 [139]ga[177]nb[167]nj[178]ga:[137]61
  30. 23 h[178]2:[142]
  31. 24 [153]"   sie sind in der highscoreliste !!!":[142]
  32. 25 [161]a$:[139]a$[178]""[167]25
  33. 26 [139]a$[178]" "[167]28
  34. 27 [137]25
  35. 28 [153]"":[129]b[178]1[164]6:[153]"                                        ";:[130]b:[153]"":[129]b[178]1[164]11:[153]"                                        ";:[130]b:[137]32
  36. 29 [153]"sys      die auswertung f@r spieler 2
  37. ";:[129]b[178]1[164]15:[151]646,b:[153]"frefre";:[130]b:[153]"name..................print "fb$:[153]"kapital...............print"kb:[153]"onkredit bei der bank...print"zc:[153]"kredit beim mitspielerprint"zm:[153]"onbeliebtheit...........print"zw
  38. 30 ga[178]kb[172]zw[171](zc[172]2)[171](zm[172]2)[170](zj[172]2):g$[178]fb$:[153]"gesamtpunktzahl.......def"ga:[141]13:[139]h[178]1[167][141]24
  39. 31 [137]34
  40. 32 [139]fb$[178]""[167]37
  41. 33 [137]29
  42. 34 [161]a$:[139]a$[178]""[167]34
  43. 35 [139]a$[178]" "[167]37
  44. 36 [137]34
  45. 37 [153]"":[129]b[178]1[164]6:[153]"                                        ";:[130]b:[153]"":[129]b[178]1[164]11:[153]"                                        ";:[130]b:[153]"sys      die top-ten vom game-manager
  46. ";:[129]b[178]1[164]15:[151]646,b:[153]"frefre";:[130]b:[153]"
  47. 38 print"       "na$:print"[145][154]       "nb$:print"[159]       "nc$:print"[145][156]       "nd$:print"       "ne$:print"[145][150]       "nf$:print"       "ng$:print"[145][153]       "nh$:print"[158]       "ni$:print"[145]       "nj$:print"[145][145][145][145][145][145][145][145][145][145]"na:print"[145][154]"nb
  48. 39 print"[159]"nc:print"[145][156]"nd:print""ne:print"[145][150]"nf:print""ng:print"[145][153]"nh
  49. 40 print"[158]"ni:print"[145]"nj
  50. 41 geta$:ifa$=""then41
  51. 42 ifa$=" "then44
  52. 43 goto41
  53. 44 print"":forb=1to6:print"                                        ";:nextb:print"":forb=1to11:print"                                        ";:nextb:print"[158]              game-manager
  54. ";:forb=1to7:poke646,b:print"[184][184]";:nextb:print"
  55.            []]^[]]/[206][209][210][207][206]]]^
  56. 45 [153]"on           _(NULL)_<>?_(NULL)(NULL)(NULL)?_(NULL)
  57.            !"[199](34)"$#!tanatnpeek!(NULL)(NULL)(NULL)peek!^(NULL)
  58. on           %&.'%lenstr$val%(NULL)(NULL)(NULL)val%&.or
  59.            ()),ascchr$left$right$ascchr$left$right$asc))(NULL)
  60. on             (NULL)*(NULL)(NULL)(NULL)*(NULL)(NULL)
  61.               +mid$manager+mid$
  62. ononononononononononon
  63.            (NULL)wait              (NULL)wait
  64. 46 print"[145]  [218][146]                  [218][146]         [218][146]
  65.        [218][146][218][146]
  66.     [218][146][218][146]
  67.          [218][146][218][146]
  68.  [218][146][218][146]
  69. [145]       [218][146]                          [218][146]
  70. 47 [153]"             (NULL)wait         (NULL)wait
  71. 48 geta$:ifa$=""then48
  72. 49 ifa$=" "then51
  73. 50 goto48
  74. 51 sys50706:open1,8,15,"s:game-manager/005":open2,8,2,"game-manager/005,s,w":print#2,na$:print#2,nb$:print#2,nc$:print#2,nd$:print#2,ne$:print#2,nf$:print#2,ng$:print#2,nh$:print#2,ni$:print#2,nj$:print#2,na:print#2,nb:print#2,nc:print#2,nd:print#2,ne:print#2,nf:print#2,ng:print#2,nh:print#2,ni:print#2,nj:close1:close2:sys64738
  75. 52 nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=nc$:nc$=nb$:nb$=na$:na$=g$:h=1:return
  76. 53 nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=nc$:nc$=nb$:nb$=g$:h=1:return
  77. 54 nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=nc$:nc$=g$:h=1:return
  78. 55 nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=nd$:nd$=g$:h=1:return
  79. 56 nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=ne$:ne$=g$:h=1:return
  80. 57 nj$=ni$:ni$=nh$:nh$=ng$:ng$=nf$:nf$=g$:h=1:return
  81. 58 nj$=ni$:ni$=nh$:nh$=ng$:ng$=g$:h=1:return
  82. 59 nj$=ni$:ni$=nh$:nh$=g$:h=1:return
  83. 60 nj$=ni$:ni$=g$:h=1:return
  84. 61 nj$=g$:h=1:return
  85.