home *** CD-ROM | disk | FTP | other *** search
/ PD 64 Classic 2 / PD_64_Classic_2_2000_-_Side_B.d64 / wolkenratzer (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  3KB  |  116 lines
  1. 1 print"[147]":poke53281,0:poke53280,0
  2. 2 print"[159]"
  3. 10 rem gewehrschuss
  4. 20 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24
  5. 30 forx=15to0step-1
  6. 40 pokel,x:pokea,15:pokeh,0:pokefh,40:pokefl,200:pokew,129
  7. 50 next
  8. 60 pokew,0:pokea,0
  9. 61 forx=1to300:nextx
  10. 62 print"na? hast du den schuss gehoert?"
  11. 63 forx=1to999:nextx:print:print"macht nix! dieses spiel ist sowieso"
  12. 64 print"fuer leute, die den schuss nicht gehoert";
  13. 65 print"haben."
  14. 66 print"druecke space!"
  15. 67 gosub10000:print"[150]es begann im 30.stock!":gosub10000
  16. 68 print"[147]"
  17. 69 print"
  18. 70 [153]"
  19. 71 print"
  20. 72 [153]"
  21. 73 print"
  22. 74 [153]"
  23. 75 print"
  24. 76 [153]"
  25. 77 print"
  26. 78 [153]"
  27. 79 print""
  28. 80 print"            [194]
  29. 81 [153]"            peek
  30. 82 print"            [194]
  31. 83 [153]"           or>^
  32. 84 print"          [176][177][195][177][174]
  33. 85 [153]"          peeklogloglogpeek
  34. 86 print"         [176][177][195][195][195][177][174]
  35. 87 [153]"         peekloglog loglogpeek
  36. 88 print"         [194][188][188] [188][188][194]
  37. 89 [153]"         peekloglog loglogpeek
  38. 90 print"         [194][188][188] [188][188][194]
  39. 91 [153]"         peekloglog loglogpeek
  40. 92 print"         [194][188][188] [188][188][194]
  41. 93 [153]"         peekloglog loglogpeek
  42. 94 print"         [194][188][188] [188][188][194]
  43. 95 [153]"         peekloglog loglogpeek
  44. 96 print"         [194][188][188] [188][188][194]
  45. 97 [153]"         peekloglog loglogpeek
  46. 98 print"         [194][188][188] [188][188][194]
  47. 99 [153]"         peekloglog loglogpeek
  48. 100 print"         [194][188][188] [188][188][194]
  49. 101 [153]"         peekloglog loglogpeek
  50. 102 print"         [194][188][188] [188][188][194]
  51. 103 [153]"         peekloglog loglogpeek
  52. 104 print"         [194][188][188] [188][188][194]
  53. 105 [153]"         peekloglog loglogpeek
  54. 106 print"         [194][188][188] [188][188][194]
  55. 107 [153]"         peekloglog loglogpeek
  56. 108 print"         [194][188][188] [188][188][194]
  57. 109 [153]"         peekloglog loglogpeek
  58. 110 print"        [176][177][195][195][195][195][195][177][174]
  59. 111 [153]"        peeklogloglog logloglogpeek
  60. 112 print"        [194][188][188][188] [188][188][188][194]
  61. 113 [153]"        peeklogloglog logloglogpeek
  62. 114 print"        [194][188][188][188] [188][188][188][194]
  63. 115 [153]"        peeklogloglog logloglogpeek
  64. 116 print"        [194][188][188][188] [188][188][188][194]
  65. 117 [153]"        peeklogloglog logloglogpeek
  66. 118 print"        [194][188][188][188] [188][188][188][194]
  67. 119 [153]"        peeklogloglog logloglogpeek
  68. 120 print"        [194][188][188][188] [188][188][188][194]
  69. 121 [153]"        peeklogloglog logloglogpeek
  70. 122 print"        [194][188][188][188] [188][188][188][194]
  71. 123 [153]"        peeklogloglog logloglogpeek
  72. 124 print"        [194][188][188][188] [188][188][188][194]
  73. 125 [153]"        peeklogloglog logloglogpeek
  74. 126 print"        [194][188][188][188] [188][188][188][194]
  75. 127 [153]"        peeklogloglog logloglogpeek
  76. 128 print"        [194][188][188][188] [188][188][188][194]
  77. 129 [153]"        peeklogloglog logloglogpeek
  78. 130 print"        [194][188][188][188] [188][188][188][194]
  79. 131 [153]"        peeklogloglog logloglogpeek
  80. 132 print"        [194]  [176][178][174]  [194]
  81. 133 [153]"        peek  peekpeekpeek  peek
  82. 134 print"[195][195][195][195][195][195][195][195][177][195][195][177][177][177][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  83. 135 forx=1to500:nextx
  84. 136 print"[150][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]aaaah!"
  85. 137 forx=1to700:nextx
  86. 138 poke1043,38:gosub20000
  87. 139 poke1043,32:poke1083,38:gosub20000
  88. 140 poke1083,32:poke1123,38:gosub20000
  89. 141 poke1123,32:poke1163,38:gosub20000
  90. 142 poke1123,32:poke1163,38:gosub20000
  91. 143 poke1163,32:poke1203,38:gosub20000
  92. 144 poke1203,32:poke1243,38:gosub20000
  93. 145 poke1243,32:poke1283,38:gosub20000
  94. 146 poke1283,32:poke1323,38:gosub20000
  95. 147 poke1323,32:poke1363,38:gosub20000
  96. 148 poke1363,32:poke1403,38:gosub20000
  97. 149 poke1403,32:poke1443,38:gosub20000
  98. 150 poke1443,32:poke1483,38:gosub20000
  99. 151 poke1483,32:poke1523,38:gosub20000
  100. 152 poke1523,32:poke1563,38:gosub20000
  101. 153 poke1563,32:poke1603,38:gosub20000
  102. 154 poke1603,32:poke1643,38:gosub20000
  103. 155 poke1643,32:poke1683,38:gosub20000
  104. 156 poke1683,32:poke1723,38:gosub20000
  105. 157 poke1723,32:poke1763,38:gosub20000
  106. 158 poke1763,32:poke1803,38:gosub20000
  107. 159 poke1803,32:poke1843,38:gosub20000
  108. 160 poke1843,32:poke1883,38:gosub20000
  109. 161 poke1883,32:poke1923,38:gosub20000
  110. 162 poke1923,32:poke1963,38:gosub20000
  111. 163 printtab(17)"ma&tsch";
  112. 10000 geta$:ifa$=""then10000
  113. 10001 return
  114. 20000 forx=1to50:nextx
  115. 20001 return
  116.