home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 123 / Tiger_Disk_123_20xx_Tiger-Crew-Disk_de_Side_B.d64 / bowling (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  82 lines
  1. 5 f=55296:b=1024:si=54272:poke53280,6:poke53281,6
  2. 10 print"[147]  userspiel!!!!!!!!!!!!!!!!!"
  3. 11 print"programmiert von frank zabbee"
  4. 12 print"liebe spieler!!!! bitte denkt"
  5. 13 print"nicht,  dass dieses spiel ein"
  6. 14 print"spiel mit extrem guter grafik"
  7. 15 print"ist!!!!!!!!!!!!!! es ist aber super gut!!!!!!!!!!!!!!"
  8. 16 print"vielen dank im voraus fuer eure glueck- wuensche zu diesem spiel!!!"
  9. 17 print"stecke die maus oder den joystick in    port 2!!!"
  10. 18 print"[140]das spiel wird in 10 knallharten run-   den gespielt."
  11. 19 print"der spieler hat pro runde 3 supergute   baelle der marke reebok!!!"
  12. 20 print"mit dem maus-button oder dem joystick-  button startest du den ball!!!"
  13. 21 print"kannst du den ball lenken???"
  14. 25 input"wieviele spieler";ws$:ws=val(ws$):ifws>10thenprint"bis zu 10 spieler!!":goto25
  15. 30 print"[147]":forna=1tows
  16. 40 print"name des"na". spielers ";
  17. 50 inputnm$(na):print"[147]":iflen(nm$(na))>7thenprint"bis zu 7 buchstaben!":goto40
  18. 60 next na
  19. 65 forrz=1to10
  20. 70 for dg=1tows
  21. 90 print"[147]"nm$(dg),tab(10)rz".liebe"
  22. 100 for ra=130to810step40
  23. 110 poke b+ra,106:pokef+ra,1
  24. 120 poke b+ra+10,117:pokef+ra+10,1
  25. 130 next ra
  26. 131 print"":fornd=1tows:printtab(21)nm$(nd),ep(nd):nextnd
  27. 140 pokeb+132,88 :pokef+132,7
  28. 145 pokeb+134,88 :pokef+134,7
  29. 150 pokeb+136,88 :pokef+136,7
  30. 155 pokeb+138,88 :pokef+138,7
  31. 160 pokeb+213,88 :pokef+213,7
  32. 165 pokeb+215,88 :pokef+215,7
  33. 170 pokeb+217,88 :pokef+217,7
  34. 175 pokeb+294,88 :pokef+294,7
  35. 180 pokeb+296,88 :pokef+296,7
  36. 185 pokeb+375,88 :pokef+375,7
  37. 190 for zd=1to3:p=0
  38. 192 x=1:a=1:bl=0
  39. 193 if(peek(56320)and16)=0then222
  40. 195 poke 811+b+x,32
  41. 200 x=x+a:ifx=1orx=7thena=-a
  42. 210 poke 811+b+x,81:poke811+f+x,1
  43. 215 for t=1to10:nextt
  44. 220 goto 193
  45. 222 pokesi+24,15:pokesi+5,25:pokesi+6,68
  46. 224 pokesi,69:pokesi+1,29:pokesi+4,17
  47. 229 for bb=811to101 step-40
  48. 230 zu=int(rnd(1)*3)
  49. 231 if peek(bb+b+x)=88andzu=0thenpokebb+b+x-79,32
  50. 232 if peek(bb+b+x)=88andzu=1thenpokebb+b+x-81,32
  51. 233 if peek(bb+b+x)=88andzu=2thenpokebb+b+x-81,32:pokebb+b+x-79,32
  52. 234 if bl=1 then250
  53. 235 if(peek(56320)and8)=0thenx=x+0.5:ifx>8thenbl=1         
  54. 240 if(peek(56320)and4)=0thenx=x-0.5:ifx<1thenbl=1         
  55. 250 pokebb+b+x,81:pokebb+f+x,1
  56. 260 forvz=1to20:nextvz
  57. 270 pokebb+b+x,32
  58. 280 nextbb:p=0
  59. 285 pokesi+4,0:pokesi+5,0:pokesi+6,0
  60. 286 ifpeek(b+132)<>88thenp=p+1
  61. 287 ifpeek(b+134)<>88 thenp=p+1
  62. 288 ifpeek(b+136)<>88 thenp=p+1
  63. 289 ifpeek(b+138)<>88 thenp=p+1
  64. 290 ifpeek(b+213)<>88 thenp=p+1
  65. 291 ifpeek(b+215)<>88 thenp=p+1
  66. 292 ifpeek(b+217)<>88 thenp=p+1
  67. 293 ifpeek(b+294)<>88 thenp=p+1
  68. 294 ifpeek(b+296)<>88 thenp=p+1
  69. 295 ifpeek(b+375)<>88 thenp=p+1
  70. 296 ifzd=1andp=10thenp=50:ep(dg)=ep(dg)+p:goto310
  71. 297 ifzd=2andp=10thenp=40:ep(dg)=ep(dg)+p:goto310
  72. 298 ifzd=3andp=10thenp=25:ep(dg)=ep(dg)+p:goto310
  73. 299 ifzd=3andp<>10thenep(dg)=ep(dg)+p:goto310               
  74. 305 nextzd
  75. 310 nextdg
  76. 360 nextrz
  77. 361 print"":fort=1tows:printtab(21)nm$(t),ep(t):nextt
  78. 370 print"wollen sie nochmal[<=n/j=>]?"
  79. 380 getj$:ifj$<>"j"andj$<>"n"then380
  80. 390 ifj$="j"then run
  81. 400 print"[147]":end
  82.