home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 5 / Commodore_Disc_05_19xx_-_de.d64 / django.64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  285 lines
  1. 1 poke53280,0:poke53281,0:print"[147]"chr$(5)chr$(142):goto100
  2. 10 si=54272:fl=si:fh=si+1:ww=si+4:aa=si+5:hh=si+6:ll=si+24
  3. 11 pokell,15:pokeaa,16+9:pokehh,4*16+4
  4. 12 ifmu=1then30
  5. 13 ifmu=2thenpokefh,9 :pokefl,10 :pokeww,129:fori=1to90:next:goto29
  6. 14 i=1:ifmu>3then17
  7. 15 i=i+1:ifi>10then29
  8. 16 pokefh,i:pokefl,i*i+10:pokeww,33:fori=1to1000:next:goto15
  9. 17 ifmu=5then20
  10. 18 pokefh,3:pokefl,100:pokeww,33:return
  11. 20 fori=250to0 step-3:pokefh,10:pokefl,i:pokeww,33:next:goto29
  12. 29 pokeww,0:pokeaa,0:pokehh,0:return
  13. 30 fori=20to0 step-1:pokell,i:pokeaa,15:pokehh,0:pokefh,40:pokefl,200
  14. 31 pokeww,129:next:goto29
  15. 50 goto29
  16. 100 print""
  17. 101 print"     [146]       [146]      [146]    [146]    [146]      [146]      [146]"
  18. 102 print"      [146]      [146]      [146]    [146]    [146]      [146]      [146]"
  19. 103 print"   [146]   [146]   [146]   [146]   [146]   [146]        [146]   [146]"
  20. 104 print"[145]"tab(33)"  [146]   "
  21. 105 print"   [146]   [146]      [146]   [146]   [146]        [146]   [146]"
  22. 106 print"[145]"tab(33)"  [146]   "
  23. 107 print"   [146]   [146]      [146]      [146]        [146]   "
  24. 108 print"[145]"tab(33)"  [146]   "
  25. 109 print"   [146]   [146]      [146]      [146]        [146]      "
  26. 110 print"[145]"tab(33)"  [146]   "
  27. 111 print"   [146]   [146]      [146]   [146]   [146]    [146]    [146]   [146]   "
  28. 112 print"[145]"tab(33)"  [146]   "
  29. 113 print"   [146]   [146]      [146]   [146]   [146]    [146]    [146]   [146]   "
  30. 114 print"[145]"tab(33)"  [146]   "
  31. 115 print"      [146]      [146]   [146]   [146]    [146]    [146]      [146]"
  32. 116 print"[145]"tab(33)"     "
  33. 117 print"     [146]       [146]   [146]   [146]    [146]    [146]      [146]"
  34. 118 print"[145]"tab(33)"     "
  35. 119 fori=1to1000:next:mu=1
  36. 120 poke1344+21,87:poke55296+(1344+21-1024),2:gosub10
  37. 125 fori=1to500:next:mu=1
  38. 130 poke1384+16,87:poke55296+(1384+16-1024),2:gosub10
  39. 135 fori=1to500:next:mu=1
  40. 140 poke1544+10,87:poke55296+(1544+10-1024),2:gosub10
  41. 145 fori=1to500:next:mu=1
  42. 150 poke1584+35,87:poke55296+(1584+35-1024),2:gosub10
  43. 151 print"...(c) 1985 sascha behrendt":gosub190
  44. 155 g1$="slime-joe      "
  45. 156 g2$="chicken-burns  "
  46. 157 g3$="spider-blacky  "
  47. 158 g4$="indian-jones   "
  48. 159 g5$="mac the nigger "
  49. 160 g6$="doc holiday    "
  50. 161 g7$="devil-brother  "
  51. 162 g8$="nobody         "
  52. 163 g9$="billy the cid  "
  53. 164 g0$="brother dead   ":ifen$="en"thenreturn
  54. 170 a$="y":zz=500:gosub300:a$="w":zz=1000:gosub300:zz=250:a$="w":gosub300
  55. 171 a$="e":gosub300:a$="r":gosub300:a$="t":zz=1000:gosub300:zz=100
  56. 172 a$="y":gosub300:a$="t":gosub300:a$="r":gosub300:a$="t":gosub300
  57. 173 getx$:ifu>0or x$<>""then180
  58. 175 u=1:goto170
  59. 180 ifu$="r"thenreturn
  60. 185 goto1000
  61. 190 s=13*4096+1024:dimf(26):dimk(255)
  62. 200 fori=0to28:pokes+i,0:next
  63. 210 f1=7040:fori=1to26:f(27-i)=f1*5.8+30:f1=f1/2^(1/12):next
  64. 220 k$="q2w3er5t6y7ui9o0p@-*\^"
  65. 230 fori=1tolen(k$):k(asc(mid$(k$,i)))=i:next
  66. 250 at=0:de=0:su=15:re=10:sr=su*16+re:ad=at*16+de:wv=64:w=1:m=8:oc=1:hb=256:z=0
  67. 260 fori=0to2:t=i*7:pokes+5+t,ad:pokes+6+t,sr
  68. 270 pokes+2+t,4000and255:pokes+3+t,4000/256:next:pokes+24,15:return
  69. 300 rem
  70. 310 fr=k(asc(a$)):iffr=zthen300
  71. 315 fr=f(fr)/m:t=v*7:cr=s+t+4
  72. 320 pokes+5+t,z:pokes+6+t,z:pokecr,8:pokezr,z
  73. 340 pokes+t,fr-hb*int(fr/hb):pokes+1+t,fr/hb:pokes+5+t,ad:pokes+6+t,sr
  74. 370 pokecr,wv+1:fori=1to50*at:next:pokecr,wv:forii=1tozz:next:return
  75. 1000 print"[147]"
  76. 1010 print" joystick in port 2 und press return!":fori=1to10:getx$:next
  77. 1020 getx$:ifx$=chr$(13)then1200
  78. 1030 goto1020
  79. 1050 getx$:ifx$<>""then1090
  80. 1055 a$="u":zz=2:gosub300:a$="p":gosub300:a$="u":gosub300:a$="p":gosub300
  81. 1056 getx$:ifx$<>""then1090
  82. 1060 a$="u":zz=1000:gosub300:a$="t":zz=150:gosub300:a$="y":gosub300
  83. 1061 getx$:ifx$<>""then1090
  84. 1070 a$="e":gosub300:ifen$<>"en"then1050
  85. 1080 getx$:ifx$=""thenz=z+1
  86. 1081 ifx$=""andz<250then1080
  87. 1082 ifx$=""thenz=0:goto1050
  88. 1085 run
  89. 1090 print"[147] sei nun wachsam und warte!":gosub1600:goto1300
  90. 1200 print"             joystick nach:"
  91. 1210 print"  links [146]        fire! [146]       rechts [146]"
  92. 1220 print"du ziehst         du       du ziehst"
  93. 1230 print"left colt      schiesst    right colt"
  94. 1240 print" zieh' und schiesse nicht, bevor dein "
  95. 1250 print" gegner dies tut! sonst handelst du  "
  96. 1260 print" nicht in notwehr und wirst als moer-"
  97. 1270 print" der am galgen haengen...":goto1050
  98. 1300 print"[147]"chr$(5)
  99. 1301 printtab(15)"warte auf...":gm=gm+1
  100. 1302 az=1:ifgm=1thengm$=g1$:goto1314
  101. 1303 ifgm=2thengm$=g2$:goto1314
  102. 1304 ifgm=3thengm$=g3$:az=2:goto1314
  103. 1305 ifgm=4thengm$=g4$:goto1314
  104. 1306 ifgm=5thengm$=g5$:goto1314
  105. 1307 ifgm=6thengm$=g6$:goto1314
  106. 1308 ifgm=7thengm$=g7$:az=3:goto1314
  107. 1309 ifgm=8thengm$=g8$:goto1314
  108. 1310 ifgm=9thengm$=g9$:goto1314
  109. 1311 ifgm=10thengm$=g0$:az=4:goto1314
  110. 1312 stop
  111. 1314 print""gm$
  112. 1315 print"  [149][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  113. 1316 print"  [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  114. 1317 print" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  115. 1318 print" [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":fori=1to5
  116. 1320 print"  [151][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
  117. 1321 print"  [151]                               ":next
  118. 1330 print"  [149][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]"
  119. 1331 print"  [177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177]"
  120. 1340 print"  [212] [217][146]    [212]  [217][146]  [152][198][198][198][198][198][146]  [149][212]  [217][146]    [212] [217][146]"
  121. 1341 print"  [212] [217][146]    [212]  [217][146] [152][210][210][210][210][210][210][210][146] [149][212]  [217][146]    [212] [217][146]"
  122. 1342 print"  [212] [217][146]    [212]  [217][146][152][210][210][210][210][210][210][210][210][210][146][149][212]  [217][146]    [212] [217][146]"
  123. 1345 print"[152]                                      ":print"[207][207]"
  124. 1350 printtab(15)"[144]     [146]"
  125. 1351 printtab(4)"[158]  [144] [158]  [146]"tab(15)"[144]  [158] [144]  [146]"tab(25)"[158]  [144] [158]  "
  126. 1352 printtab(4)"[158][162][162][144] [158][162][162][146]"tab(15)"[144]  [158] [144]  [146]"tab(25)"[158][162][162][144] [158][162][162]"
  127. 1353 printtab(4)"[158]  [144] [158]  [146]"tab(15)"[144]  [158] [144]  [146]"tab(25)"[158]  [144] [158]  "
  128. 1354 printtab(4)"[158]  [144] [158]  [146]"tab(15)"[144]  [158] [144]  [146]"tab(25)"[158]  [144] [158]  "
  129. 1356 printtab(15)"[144]     [146]"
  130. 1357 printtab(15)"[144]     [146]"
  131. 1358 printtab(14)"[144]       [146]"
  132. 1400 print"[145][145][145][145][145][145][145][145]":fori=1to5000:next
  133. 1410 printtab(4)"[144]     "tab(25)"[144]     "
  134. 1411 printtab(4)"[144]     "tab(25)"[144]     "
  135. 1412 printtab(4)"[144]     "tab(25)"[144]     "
  136. 1413 printtab(4)"[144]     "tab(25)"[144]     "
  137. 1414 printtab(4)"[144]     "tab(25)"[144]     "
  138. 1420 mu=2:gosub10:fori=1to1000:next
  139. 1423 mu=2:gosub10:fori=1to1000:next
  140. 1424 mu=2:gosub10:fori=1to1000:next
  141. 1425 mu=2:gosub10:fori=1to1000:next
  142. 1426 mu=2:gosub10:fori=1to3000:next
  143. 1430 print"[145][145][145][145][145][145][158] [144][146]":fori=1to2000:next
  144. 1431 printtab(15)"[205]   [206]"
  145. 1432 printtab(15)" [212] [217] "
  146. 1433 printtab(15)" [212] [217] "
  147. 1434 printtab(15)"[163]   [163]"
  148. 1435 printtab(15)"     "
  149. 1436 printtab(15)"     "
  150. 1500 x=146:y=152
  151. 1510 gosub1550:pokev,x:pokev+1,y:pokev+2,x:pokev+3,y+21:pokev+4,x+24:pokev+5,y
  152. 1511 pokev+6,x+24:pokev+7,y:pokev+21,7:ifgm=2or gm=4or gm=6or gm=8then1900
  153. 1520 ifgm=10then1900
  154. 1540 mu=3:gosub10:z=gm:goto1700
  155. 1550 ifgm=1thenreturn
  156. 1551 ifgm=2thenf=3:m1=4:m2=6
  157. 1553 ifgm=3thenf=11:m1=12:m2=15
  158. 1554 ifgm=4thenf=4 :m1=5 :m2=6
  159. 1555 ifgm=5thenf=0 :m1=6 :m2=14
  160. 1556 ifgm=6thenf=7 :m1=9 :m2=15
  161. 1557 ifgm=7thenf=9 :m1=11:m2=2
  162. 1558 ifgm=8thenf=7 :m1=8 :m2=2
  163. 1559 ifgm=9thenf=7 :m1=11:m2=14
  164. 1560 ifgm=10thenf=4 :m1=6 :m2=14
  165. 1590 poke2040,11:poke2041,13:poke2042,14:poke2043,15:pokemc,7
  166. 1591 pokev+39,f:pokev+40,f:pokev+41,f:pokev+42,f:poke53285,m1:poke53286,m2
  167. 1592 pokev+23,0:pokev+29,0:return
  168. 1600 v=53248:pokev+21,0:x=146:y=152:mc=53276:f=7:m1=2:m2=9
  169. 1610 fori=704to766:reada:pokei,a:next
  170. 1611 poke2040,11:poke2041,13:poke2042,14:poke2043,15:pokemc,7
  171. 1612 pokev+39,f:pokev+40,f:pokev+41,f:pokev+42,f:poke53285,m1:poke53286,m2
  172. 1615 pokev+23,0:pokev+29,0
  173. 1620 fori=832to894:reada:pokei,a:next
  174. 1625 fori=896to958:reada:pokei,a:next
  175. 1626 fori=960to1022:reada:pokei,a:next
  176. 1630 pokev,x:pokev+1,y:pokev+2,x:pokev+3,y+21:pokev+4,x+24:pokev+5,y
  177. 1631 pokev+6,x+24:pokev+7,y:return
  178. 1700 td=1:gz=0:zi=int(rnd(xx)*300)-(cm*10):mu=1:ifzi<25orzi>300thenzi=155
  179. 1756 zi=zi-1:ifzi=250or zi=225or zi=200or zi=150or zi=75 thenmu=3:gosub10:mu=1
  180. 1757 ifzi=150or zi=100thenx=x+3:gosub1630
  181. 1760 ifzi=60thenx=x-3:gosub1630
  182. 1761 ifzi=<0thenpokev+21,11:pokemc,11:goto1765
  183. 1762 vo=0:jj=peek(56320):ifjj=127then1756
  184. 1763 ifjj=123or jj=119thenpokev+21,11:pokemc,11:gz=1:vo=1:goto1765
  185. 1764 ifzi>0then1761
  186. 1765 zi=0:zz=40-(z*3)
  187. 1767 zi=zi+1:ifzi=>zzthenpoke53280,7:gosub10:poke53280,0:td=1:goto1810
  188. 1770 jj=peek(56320):ifjj=127then1767
  189. 1771 ifjj=<111 and gz=1 thenpoke53280,1:gosub10:poke53280,0:td=0:goto1820
  190. 1772 ifgz=0thengz=1:goto1767
  191. 1773 gz=1:goto1767
  192. 1800 ifvo=1then2000
  193. 1801 ifgm=3andgg=1thenfori=1to3:getx$:next:goto1500
  194. 1802 ifgm=7andgg=1thenfori=1to3:getx$:next:goto1500
  195. 1803 ifgm=9andgg=1thenfori=1to3:getx$:next:goto1500
  196. 1810 gg=0:pokev+21,0:goto2000
  197. 1820 poke53285,8:poke53286,10:pokev+39,2:fori=1to1000:next:goto1810
  198. 1900 ifgm>3then1910
  199. 1901 x=x-3:mu=3:gosub10:gosub1630:ifx<120then1540
  200. 1902 jj=peek(56320):ifjj<>127thenmu=1:goto1763
  201. 1903 goto1901
  202. 1910 ifgm>4then1920
  203. 1911 x=x+3:mu=3:gosub10:gosub1630:ifx=>220then1540
  204. 1912 jj=peek(56320):ifjj<>127thenmu=1:goto1763
  205. 1913 goto1911
  206. 1920 ifgm>6then1930
  207. 1921 y=y+9:mu=3:gosub10:gosub1630:ify=170then1540
  208. 1922 jj=peek(56320):ifjj<>127thenmu=1:goto1763
  209. 1923 goto1921
  210. 1930 ifgm>8then1940
  211. 1931 y=y+9:mu=3:gosub10:gosub1630:ify=188theny=189:goto1540
  212. 1932 jj=peek(56320):ifjj<>127thenmu=1:goto1763
  213. 1933 goto1931
  214. 1940 y=y+9:mu=3:gosub10:gosub1630:ify=188theny=189:goto1950
  215. 1941 jj=peek(56320):ifjj<>127thenmu=1:goto1763
  216. 1942 goto1940
  217. 1950 x=x-5:mu=3:gosub10:gosub1630:ifx<100then1540
  218. 1951 jj=peek(56320):ifjj<>127thenmu=1:goto1763
  219. 1952 goto1950
  220. 1990 goto1540
  221. 2000 print"[147]":poke53280,0:poke53281,0:mu=2:pokev+21,0:iftd=0andvo=1thenov=1
  222. 2001 fori=1to5:print"[154]                                       ":next
  223. 2002 fori=1to17:print"[153]                                       ":next
  224. 2003 ifvo=1andtd=0thengosub2500
  225. 2005 print"":iftd=0thentt=tt+1
  226. 2006 ifvo=1thentd=1
  227. 2010 iftt>0thenx=1:na$="s.j.":gosub2100:gosub10
  228. 2011 iftt>1thenx=9:na$="c.b.":gosub2100:gosub10
  229. 2012 iftt>2thenx=17:na$="s.b.":gosub2100:gosub10
  230. 2013 iftt>3thenx=24:na$="i.j.":gosub2100:gosub10
  231. 2014 iftt>4thenx=32:na$="m.n.":gosub2100:gosub10
  232. 2015 print""
  233. 2016 iftt>5thenx= 1:na$="d.h.":gosub2100:gosub10
  234. 2017 iftt>6thenx= 9:na$="d.b.":gosub2100:gosub10
  235. 2018 iftt>7thenx=17:na$="nob.":gosub2100:gosub10
  236. 2019 iftt>8thenx=24:na$="b.c.":gosub2100:gosub10
  237. 2020 iftt>9thenx=32:na$="b.d.":gosub2100:gosub10:goto2200
  238. 2025 iftd=1then2030
  239. 2026 print""tab(1)"sleep well, "gm$:fori=1to4000:next:print"[147]":goto1301
  240. 2030 x=32:na$="[219]du[219]":gosub2100:gosub10:goto2350
  241. 2100 printtab(x+2)"[149]  ":printtab(x+2)"[149]  ":printtab(x)"[149] [158]"na$"[149] "
  242. 2101 printtab(x+2)"[149]  ":printtab(x+2)"[149]  ":printtab(x+2)"[149]  "
  243. 2102 printtab(x)"[158][166][166][166][166][166][166]":print"[145][145][145][145][145][145][145][145]":return
  244. 2200 print" okay, du bist echt der beste gunman!":goto2400
  245. 2300 na=1842+tt:ifvo=1then2350
  246. 2310 print""na"[157] erschossen, du warst zu langsam!":goto2400
  247. 2350 ifov=1thenprint"[145]"tab(1)"zu schnell um zu haengen, big cowboy!":goto2400
  248. 2360 print"[145][145]"tab(1)"schneller ziehen und schiessen, dear!"
  249. 2400 clr:en$="en":fori=1to10:getx$:next:gosub190:gosub155:goto1050
  250. 2500 print""tab(1)"leider hast du dein colt zu frueh ge-"
  251. 2510 printtab(1)"zogen und gemordet. wie's das gesetz "
  252. 2520 printtab(1)"will, du haengst am hoechsten baum!  ":return
  253. 9000 rem:sprite gun
  254. 9001 data 0,243,0,63,255,192,0,103,252
  255. 9002 data 0,170,0,0,150,0,0,168,0
  256. 9003 data 7,239,127,53,253,127,255,117,255
  257. 9004 data 243,87,240,243,255,240,243,255,192
  258. 9005 data 243,255,192,242,191,192,82,171,192
  259. 9006 data 33,102,131,161,90,175,161,85,191
  260. 9007 data 33,81,188,33,81,112,1,209,112
  261. 9010 rem:sprite gun2
  262. 9011 data 1,209,112,5,209,84,7,64,116
  263. 9012 data 23,64,117,31,64,125,31,64,125
  264. 9013 data 31,64,125,31,64,125,63,192,255
  265. 9014 data 63,192,255,10,0,40,15,0,60
  266. 9015 data 63,0,252,243,3,204,243,3,204
  267. 9016 data 0,0,0,0,0,0,0,0,0
  268. 9017 data 0,0,0,0,0,0,0,0,0
  269. 9020 rem:sprite gun3
  270. 9021 data 0,0,0,0,0,0,0,0,0
  271. 9022 data 0,0,0,0,0,0,0,0,0
  272. 9023 data 192,0,0,252,0,0,255,192,0
  273. 9024 data 255,240,0,15,240,0,0,240,0
  274. 9025 data 0,80,0,0,32,0,192,160,0
  275. 9026 data 192,160,0,0,160,0,0,128,0
  276. 9027 data 0,0,0,0,0,0,0,0,0
  277. 9030 rem:sprite gun4
  278. 9031 data 0,0,0,0,0,0,0,0,0
  279. 9032 data 0,0,0,0,0,0,0,0,0
  280. 9033 data 192,0,0,252,0,0,255,0,0
  281. 9034 data 255,0,0,15,0,0,15,0,0
  282. 9035 data 63,0,0,20,0,0,160,0,0
  283. 9036 data 224,0,0,224,0,0,160,0,0
  284. 9037 data 0,0,0,0,0,0,0,0,0
  285.