home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_A.d64 / huey (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  364 lines
  1. 10 rem *************
  2. 20 rem * huey c-16 *
  3. 30 rem *  1986 by  *
  4. 40 rem *d. kuhlmann*
  5. 60 rem *************
  6. 80 poke55,255:poke56,55:clr
  7. 100 rem ***** variablen *****
  8. 110 n$(1)="[175][175][175][175][175][175][175][210][210][210][210][210][210][210][192][192][192][192][192][192][192][192][197][197][197][197][197][197][197][183][183][183][183][183][183][183]"
  9. 120 n$(2)="[198][198][198][198][198][198][198][198][198][198][198][198][192][192][192][192][192][192][192][192][192][192][192][192][196][196][196][196][196][196][196][196][196][196][196][196]"
  10. 130 n$(3)="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  11. 140 n$(4)="[196][196][196][196][196][196][196][196][196][196][196][196][192][192][192][192][192][192][192][192][192][192][192][192][198][198][198][198][198][198][198][198][198][198][198][198]"
  12. 150 n$(5)="[183][183][183][183][183][183][183][197][197][197][197][197][197][197][192][192][192][192][192][192][192][192][198][198][198][198][198][198][198][175][175][175][175][175][175][175]"
  13. 160 r$(1)="-----":r$(2)="captain"
  14. 170 r$(3)="lieutnant":r$(4)="commander"
  15. 180 r$(5)="general":r$(6)=" rambo "
  16. 190 v=65280:al=0:ro=0:rf=0:sp=0:rf=0
  17. 200 a=0:ko=0:p=0:km=0:aa=200:ra=10
  18. 210 rp=800:fu=7000:n=3:x1=0:y1=0:xa=0
  19. 220 ya=0:fl=0:g=0:am=aa:rc=ra:ro=0
  20. 230 r(1)=0:r(2)=0:r(3)=0:r(4)=0:sc=0
  21. 240 e=0
  22. 250 rem ***** titel *****
  23. 260 s$="":pokev+18,196:pokev+19,208
  24. 270 (NULL)0,1:(NULL)4,1:(NULL)1,2:(NULL)
  25. 280 (NULL)1,1,2,"ks-software schweinfurt praesentiert :"
  26. 290 (NULL)1,2,5,"[162] [162]  [162] [162]  [162][162][162]  [162] [162]   [162][162][162]      [162] [162][162][162]"
  27. 300 (NULL)1,2,6,"[162] [162]  [162] [162]  [162]    [162] [162]   [162]        [162] [162]"
  28. 310 (NULL)1,2,7,"[162][162][162]  [162] [162]  [162][162]   [162][162][162]   [162]   [160][162][162]  [162] [162][162][162]"
  29. 320 (NULL)1,2,8,"[162] [162]  [162] [162]  [162]     [162]    [162]        [162] [162] [162]"
  30. 330 (NULL)1,2,9,"[162] [162]  [162][162][162]  [162][162][162]   [162]    [162][162][162]      [162] [162][162][162]"
  31. 340 (NULL)1,4,13,"written 1986 by d. kuhlmann (c)"
  32. 350 (NULL)1,0,18,"bitte geben sie ihren namen ein:"
  33. 360 get(NULL)a$:a=asc(a$):ifa=13goto440
  34. 370 l=len(s$):ifl>7goto440
  35. 380 ifa=20goto410
  36. 390 ifa<32ora>90goto360
  37. 400 printa$;:s$=s$+a$:goto360
  38. 410 ifl<1then360
  39. 420 s$=left$(s$,l-1):print"[157] [157]";:goto360
  40. 430 :
  41. 440 iflen(s$)<8thens$=s$+" ":goto440
  42. 450 (NULL)1,0,20,"bitte level (1 bis 6) eingeben !"
  43. 460 get(NULL)a$:a=val(a$)
  44. 470 ifa<1ora>6then460
  45. 480 l=a*2:kf=l*200:(NULL)
  46. 490 rem ***** zeichensatz *****
  47. 500 restore
  48. 510 pokev+18,peek(v+18)and251
  49. 520 pokev+19,peek(v+19)or56
  50. 530 fori=832to849:reada:pokei,a:next:sys832
  51. 540 poke836,210:poke839,58
  52. 550 poke842,211:poke845,59:sys832
  53. 560 data162,  0,189,  0,208,157,  0, 56
  54. 570 data189,  0,209,157,  0, 57,202,208
  55. 580 data241, 96
  56. 590 rem ***** neue zeichen *****
  57. 600 fori=14600to14703:readq:pokei,q:next
  58. 610 data  0,  0,126,126,126,  0,  0,  0
  59. 620 data  0,  0,  0, 16, 16,  0,  0,  0
  60. 630 data  0,  0, 16, 56, 16,  0,  0,  0
  61. 640 data  0,  0, 16,124, 16,  0,  0,  0
  62. 650 data  0,  0, 24,255, 24,  0,  0,  0
  63. 660 rem rakete
  64. 670 data  0,  8,  8, 28, 28, 62,127,119
  65. 680 data  0,  0,  8, 28, 28, 62, 62, 62
  66. 690 data  0,  0,  0,  0,  0,  8, 28, 28
  67. 700 rem explosion
  68. 710 data164,137, 50, 73,168, 84, 44,129
  69. 720 rem hubschrauber
  70. 730 data  0,  0,124, 56, 56,124, 68,  0
  71. 740 data255, 24,126,219,255,255,189,195
  72. 750 rem feindrakete
  73. 760 data119,127, 62, 28, 28,  8,  8,  0
  74. 770 data  0,  0, 28, 62, 62, 28,  0,  0
  75. 780 rem ***** voreinstellungen *****
  76. 790 (NULL)8:(NULL)"0"
  77. 800 printchr$(142)chr$(8)
  78. 810 rem ***** bild *****
  79. 820 pokev+6,0
  80. 830 (NULL)0,2,6:(NULL)4,2,4
  81. 840 print"[147][144]"tab(5)"[223]     0 h f  1234  sfg&rm    [146][169]"
  82. 850 printtab(6)"[223]  [167][146]e!!![129]!![144][221]r!!!![144][221]c!!!!!![144][165]  [146][169]"
  83. 860 printtab(7)"[223]  [205][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206]  [146][169]"
  84. 870 fori=1to8
  85. 880 printtab(8-i)"[169][146][169]"spc(20+i*2)"[223][223][146]"
  86. 890 next
  87. 900 print"     [223][146]"spc(28)"[169]     "
  88. 910 print"          [223][146]"spc(18)"[169]          "
  89. 920 print" amm. 000  [160][160]      ^              00000 "
  90. 930 print" roc.  00 spd   000  alt 00000    score "
  91. 940 print"          rpm  0000  rot   000          "
  92. 950 print"          km   0000                     "
  93. 960 printtab(6)"[223]                          [146][169]"
  94. 970 printtab(10)"[223]     pos.   0     [146][169]"
  95. 980 printtab(13)"[223]            [146][169]"
  96. 990 printtab(14)"    fuel    [146]"
  97. 1000 printtab(14)"   [146]!!!!!![144]   [146]"
  98. 1010 printtab(14)"            [146]"
  99. 1020 printtab(14)"            [146]"
  100. 1030 printtab(13)"[169]            [223][146]"
  101. 1040 pokev+6,16
  102. 1050 rem aktuelle werte printen
  103. 1060 (NULL)1,6,13,"[144]":print(NULL)"###";am
  104. 1070 (NULL)1,7,14,"[144]":print(NULL)"##";rc
  105. 1080 (NULL)1,15,15,"[144]":print(NULL)"####";rp
  106. 1090 (NULL)1,34,13,"[144]":print(NULL)"#####";sc
  107. 1100 (NULL)1,27,15,"[144]":print(NULL)"###";ro
  108. 1110 (NULL)1,6,5:(NULL)1,11,1,"!":(NULL)1,29,1,"!"
  109. 1120 (NULL)1,24,1,"!"
  110. 1130 ifrf=1then(NULL)1,28,1,"!"
  111. 1140 rem ***** hauptprogramm *****
  112. 1150 :
  113. 1160 (NULL)1,0,0:(NULL)2,0,0:z=rp/30
  114. 1170 (NULL)1,z,150:(NULL)2,z+1,150
  115. 1180 rem horizont
  116. 1190 (NULL)1,10,2:(NULL)1,2,10,n$(n)
  117. 1200 a=int(rp/10):ifro=agoto1250
  118. 1210 ifrf=0goto1250
  119. 1220 ifro>athenro=ro-1:goto1240
  120. 1230 ro=ro+1+int(a/100)
  121. 1240 (NULL)1,27,15,"[144]":print(NULL)"###";ro
  122. 1250 rem joystickabfrage
  123. 1260 a=(NULL)(1)
  124. 1270 ifa=7goto2010
  125. 1280 ifa=3goto2090
  126. 1290 ifa=1goto2160
  127. 1300 ifa=5goto2230
  128. 1310 ifa=133goto2290
  129. 1320 ifa=129goto2370
  130. 1330 ifa=135goto2520
  131. 1340 ifa=131goto2610
  132. 1350 ifa=128goto3050
  133. 1360 rem tastatur
  134. 1370 geta$:ifa$=""goto1420
  135. 1380 ifa$=" "goto2740
  136. 1390 ifa$=chr$(13)goto2710
  137. 1400 ifa$="f"andal<1goto3190
  138. 1410 a=val(a$):ifa>0anda<5goto2440
  139. 1420 ifn<3goto2010:rem neigung links
  140. 1430 ifn>3goto2090:rem neigung rechts
  141. 1440 rem feind
  142. 1450 ife<>0goto1560:rem feind vorhanden
  143. 1460 ifal<1goto1820:rem boden
  144. 1470 mv=0:e=int(l*10*rnd(0))
  145. 1480 ife<18thene=0:goto1820:rem kein f.
  146. 1490 fl=fl+1:e=int(20*rnd(1))
  147. 1500 x1=int(26*rnd(1))+7:xa=x1
  148. 1510 y1=int( 5*rnd(1))+4:ya=y1
  149. 1520 ife<l*2andal<l*1000thene=2:goto1820:rem rakete
  150. 1530 ife<l*5thene=3:goto1820:rem flugz.
  151. 1540 e=1:goto1820:rem hubschr.
  152. 1550 :
  153. 1560 rem feind bewegen
  154. 1570 mv=mv+1:ifmv>64-l*4goto3460
  155. 1580 onegoto1700,1740:rem flugz.,rakete
  156. 1590 ifmv<16-lthenz=34:goto1630
  157. 1600 ifmv<32-l*2thenz=35:goto1630
  158. 1610 ifmv<48-l*3thenz=36:goto1630
  159. 1620 z=37
  160. 1630 ify1<3goto1980:rem aus
  161. 1640 ify1>9theny1=9
  162. 1650 ifx1<12-y1goto1980:rem aus
  163. 1660 ifx1>27+y1goto1980
  164. 1670 (NULL)1,1:(NULL)1,xa,ya," "
  165. 1680 (NULL)1,x1,y1,chr$(z)
  166. 1690 xa=x1:ya=y1:goto1820
  167. 1700 ifmv<16-lthenz=34:goto1630
  168. 1710 ifmv<32-l*2thenz=35:goto1630
  169. 1720 ifmv<48-l*3thenz=42:goto1630
  170. 1730 z=43:goto1630
  171. 1740 rem rakete
  172. 1750 (NULL)1,1
  173. 1760 ifmv>52-l*4goto3240
  174. 1770 ifmv<13-lthen(NULL)1,19,9,chr$(34):goto1820
  175. 1780 ifmv<26-l*2then(NULL)1,19,9,"#":goto1820
  176. 1790 ifmv<39-l*3then(NULL)1,19,9,"-":goto1820
  177. 1800 (NULL)1,19,9," ":(NULL)1,19,11,","
  178. 1810 :
  179. 1820 rem fuel verm.
  180. 1830 fu=fu-rp/500-al/1000
  181. 1840 iffu<1000then3240
  182. 1850 (NULL)1,6,5:iffu<2000goto1880
  183. 1860 (NULL)1,16+fu/1000,21,"!"
  184. 1870 goto1890
  185. 1880 (NULL)1,3,5:(NULL)1,25,1,"!":goto1860
  186. 1890 rem km plus
  187. 1900 ifkm>kfgoto3540:rem am ziel
  188. 1910 ifko<90thenp=(90-ko)/2*sp:goto1950
  189. 1920 ifko<180thenp=-(ko-90)/2*sp:goto1950
  190. 1930 ifko<270thenp=-(270-ko)/2*sp:goto1950
  191. 1940 p=(ko-270)/2*sp
  192. 1950 km=km+p/10000:ifkm<0then3240
  193. 1960 print:(NULL)1,15,16,"[144]":print(NULL)"####";km
  194. 1970 goto1140
  195. 1980 rem feind aus
  196. 1990 print:e=0:(NULL)1,xa,ya," "
  197. 2000 goto1140
  198. 2010 rem ***** unterprogramme *****
  199. 2020 rem links fliegen
  200. 2030 ifrf=0then1440:rem rotor noch aus
  201. 2040 ifn<5thenn=n+1
  202. 2050 ko=ko-1:x1=x1+1:ifko<0thenko=359
  203. 2060 (NULL)1,21,18,"[144]":print(NULL)"###";ko
  204. 2070 goto1440
  205. 2080 :
  206. 2090 rem rechts fliegen
  207. 2100 ifrf=0then1440
  208. 2110 ifn>1thenn=n-1
  209. 2120 ko=ko+1:x1=x1-1:ifko>359thenko=0
  210. 2130 (NULL)1,21,18,"[144]":print(NULL)"###";ko
  211. 2140 goto1440
  212. 2150 :
  213. 2160 rem schneller
  214. 2170 ifal<1goto1360
  215. 2180 ifsp>250goto1360
  216. 2190 a=peek(v+6):ifa<23thenpokev+6,a+1
  217. 2200 sp=sp+10:(NULL)1,16,14,"[144]":print(NULL)"###";sp
  218. 2210 goto1360
  219. 2220 :
  220. 2230 rem langsamer
  221. 2240 ifsp<1goto1360
  222. 2250 a=peek(v+6):ifa>16thenpokev+6,a-1
  223. 2260 sp=sp-10:(NULL)1,16,14,"[144]":print(NULL)"###";sp
  224. 2270 goto1360
  225. 2280 :
  226. 2290 rem steigen
  227. 2300 ifrf=0orro<200then1360
  228. 2310 s=int((20000-al+rp)/2000)
  229. 2320 ifrp<al/3thens=s-(al/150)
  230. 2330 ifs<.05then1360
  231. 2340 al=al+s:(NULL)1,25,14,"[144]":print(NULL)"#####";al
  232. 2350 y1=y1+1:goto1360
  233. 2360 :
  234. 2370 rem sinken
  235. 2380 al=al-20:ifal<20thenal=0
  236. 2390 (NULL)1,25,14,"[144]":print(NULL)"#####";al
  237. 2400 ifal<>0goto2420
  238. 2410 ifsp>10goto3240
  239. 2420 y1=y1-1:goto1360
  240. 2430 :
  241. 2440 rem rakete laden
  242. 2450 ifr(a)=1orrc<1goto1360
  243. 2460 (NULL)1,0,0:(NULL)1,900,5
  244. 2470 r(a)=1:(NULL)1,17+a,1,"[146]!"
  245. 2480 rc=rc-1:(NULL)1,7,14,"[144]":print(NULL)"##";rc
  246. 2490 ifrc<1then(NULL)1,3,5:(NULL)1,27,1,"!"
  247. 2500 goto1360
  248. 2510 :
  249. 2520 rem motor schneller
  250. 2530 ifrp>9000then1360
  251. 2540 rp=rp+rp/80
  252. 2550 (NULL)1,15,15,"[144]":print(NULL)"####";rp
  253. 2560 a=int(rp/2200):(NULL)1,6,5
  254. 2570 ifa=3then(NULL)1,9,5
  255. 2580 ifa=4then(NULL)1,3,5
  256. 2590 (NULL)1,11+a,1,"!":goto1360
  257. 2600 :
  258. 2610 rem motor langsamer
  259. 2620 ifrp<801then1360
  260. 2630 rp=rp-rp/80
  261. 2640 (NULL)1,15,15,"[144]":print(NULL)"####";rp
  262. 2650 a=int(rp/2200):(NULL)1,6,3
  263. 2660 ifa>3goto1140
  264. 2670 ifa=3then(NULL)1,3,3
  265. 2680 ifa=2then(NULL)1,9,3
  266. 2690 (NULL)1,12+a,1,"!":goto1360
  267. 2700 :
  268. 2710 rem rotor on
  269. 2720 (NULL)1,6,5:(NULL)1,28,1,"!"
  270. 2730 rf=1:goto1360
  271. 2740 rem rakete
  272. 2750 i=0:(NULL)1,3,5
  273. 2760 i=i+1:ifr(i)=1then2780
  274. 2770 ifi<4then2760:(NULL)1360
  275. 2780 (NULL)1,0,0:(NULL)2,0,0:(NULL)2,900,10
  276. 2790 fori=500to0step-10
  277. 2800 (NULL)3,i,1
  278. 2810 ifi=500then(NULL)1,19,12,"[146]&"
  279. 2820 ifi=350then(NULL)1,19,12," ":(NULL)1,19,11,"'"
  280. 2830 ifi=200then(NULL)1,19,11," ":(NULL)1,19,10,"("
  281. 2840 next
  282. 2850 (NULL)1,19,10,"[129][192]"
  283. 2860 (NULL)3,0,10:i=0
  284. 2870 i=i+1:ifr(i)=1goto2880:(NULL)2870
  285. 2880 r(i)=0:(NULL)1,17+i,1,"[146]!"
  286. 2890 ifpeek(3451)<>32then2920
  287. 2900 goto1360
  288. 2910 :
  289. 2920 rem treffer
  290. 2930 g=g+1:b=peek(3451)
  291. 2940 (NULL)3,0,0
  292. 2950 (NULL)1,19,9,"[129])"
  293. 2960 (NULL)3,10,100
  294. 2970 fori=8to0step-1:fora=1to100:next
  295. 2980 (NULL)i:next
  296. 2990 (NULL)1,19,9," "
  297. 3000 sc=sc+50*e:ife=2thensc=sc+100
  298. 3010 e=0:(NULL)8
  299. 3020 (NULL)1,34,13,"[144]":print(NULL)"#####";sc
  300. 3030 goto1140
  301. 3040 :
  302. 3050 rem kanone
  303. 3060 ifam<1goto1360
  304. 3070 (NULL)1,0,0:(NULL)3,0,0:(NULL)3,500,30
  305. 3080 fori=8to1step-1:fora=1to50:next
  306. 3090 (NULL)i:next:(NULL)8
  307. 3100 am=am-1:print:(NULL)1,6,13,"[144]"
  308. 3110 print(NULL)"###";am
  309. 3120 ifam<1then(NULL)1,3,5:(NULL)1,26,1,"!"
  310. 3130 ifpeek(3451)=43goto3150
  311. 3140 goto1440
  312. 3150 a=int(10*rnd(1))
  313. 3160 ifa<8goto1440
  314. 3170 goto2920
  315. 3180 :
  316. 3190 rem auffuellen
  317. 3200 (NULL)1,0,0:(NULL)1,600,20
  318. 3210 fu=7000:rc=ra:am=aa
  319. 3220 fori=1to4:r(i)=0:next
  320. 3230 goto810
  321. 3240 rem ***** game over *****
  322. 3250 (NULL)3,0,0:(NULL)3,100,100
  323. 3260 fori=1to16:fora=0to7:(NULL)0,i,a
  324. 3270 next:(NULL)(17-i)/2:next
  325. 3280 print"[144]":(NULL)1,15,7,"game over."
  326. 3290 (NULL)1,14,9,"-press fire-"
  327. 3300 if(NULL)(1)<>128then3300
  328. 3310 rem hiscore-table
  329. 3320 (NULL):(NULL)0,2,4:(NULL)4,1
  330. 3330 (NULL)1,13,2,"hiscore-table"
  331. 3340 (NULL)1,8,4,"die 10 besten piloten:"
  332. 3350 fori=1to10:ifsc<=sc(i)thennext:goto3400
  333. 3360 z=i
  334. 3370 fora=ito9:sc(i+1)=sc(i)
  335. 3380 s$(i+1)=s$(i):next
  336. 3390 s$(z)=s$:sc(z)=sc
  337. 3400 :
  338. 3410 fori=1to10:(NULL)1,10,5+i,""
  339. 3420 print(NULL)"##";i;:print" "s$(i)sc(i)
  340. 3430 next
  341. 3440 get(NULL)a$:ifa$<>" "then3440
  342. 3450 goto100
  343. 3460 rem ***** abschuss *****
  344. 3470 fori=1to60
  345. 3480 (NULL)3,0,0:(NULL)3,1000,1
  346. 3490 fora=1to5:next
  347. 3500 a1=int(39*rnd(1)):a2=int(24*rnd(1))
  348. 3510 print:(NULL)1,a1,a2,"[144][209]"
  349. 3520 ifi/10=int(i/10)then(NULL)1,23+i/10,1,"!"
  350. 3530 next:goto3240
  351. 3540 rem ***** gewonnen *****
  352. 3550 print:(NULL)1,0,0:(NULL)2,0,0
  353. 3560 pokev+18,196:pokev+19,208
  354. 3570 ife=1andfl>2thenfl=fl-1
  355. 3580 print"[147]":a=100/fl*g/10-4:ifa<1thena=1
  356. 3590 (NULL)1,1,5,"[144]sie haben es geschafft !"
  357. 3600 (NULL)1,1,8,"sie haben"+str$(g)+" feinde abgeschossen !"
  358. 3610 (NULL)1,1,11,"ihr rang:"+r$(a)
  359. 3620 (NULL)1,15,20,"[space] !"
  360. 3630 fora=1to3:(NULL)3,950,5:forz=1to400:next:next
  361. 3640 fora=1to3:(NULL)3,950,3:forz=1to150:next:next
  362. 3650 geta$:ifa$<>" "then3630
  363. 3660 goto3320
  364.