home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 8 / Tiger_Disk_008_19xx_Tiger-Crew-Disk_de_Side_A.d64 / sprite-generator (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  70 lines
  1. 10 print"[147]erstellen von sprites!
  2. 20 [153]"wieviel sprites";:[133]sz$
  3. 30 [139] [197](sz$)[179][178]0[176][197](sz$)[177]4[167]10
  4. 40 sz[178][181]([197](sz$)):[153]"in welche speicherplaetze soll gepokt   werden (";
  5. 50 [153]"frei sind: 11, 13,14 und 15)?
  6. 60 print:fori=1tosz:print"sprites nr"i"[146]";:inputsb:sb(i)=sb*64:next
  7. 70 print"data zeilen nr.: (>1000)       [157][157][157][157][157][157][157]";:inputda$
  8. 80 ifval(da$)<=1000orval(da$)>65000thenprint"[145][145]";:goto70
  9. 90 da=int(val(da$))
  10. 100 dimbs(21,3):i=0
  11. 110 poke646,14:poke198,0:i=i+1:ifi>szthen690
  12. 120 print"[147][155]sprites nr:"i"[154]"
  13. 130 print:forz=1to21:printtab(11)ztab(15)"************************":next
  14. 140 print"zeichnen
  15. 150 [153]"syscursor/space
  16. 160 print"  loeschen
  17. 170 [153]"    sys<@>
  18. 180 print"  ende
  19. 190 [153]"    sys<f1>cont
  20. 200 sp=1:s=1:zz=1:bs=7
  21. 210 po=1024+sp+14+(zz+2)*40:ifpeek(po)=160thenpe=1
  22. 220 ze=170:fa=7:gosub650:gett$
  23. 230 ze=42:fa=14:gosub650:ifpe=1thenze=160:fa=7:pe=0:gosub650
  24. 240 ift$=""then210
  25. 250 rem sprites zeichnen
  26. 270 ift$=""ort$=" "then340
  27. 280 ift$="[157]"then380
  28. 290 ift$="[145]"then430
  29. 300 ift$=""then450
  30. 310 ift$="@"then470
  31. 320 ifasc(t$)=133then490
  32. 330 goto210
  33. 340 ift$=" "thenifpeek(po)<>160thenze=160:fa=7:gosub650:bs(zz,s)=bs(zz,s)+2^bs
  34. 350 ifsp=24andzz<21thenzz=zz+1:s=1:sp=1:bs=7:goto210
  35. 360 ifsp=24then210
  36. 370 sp=sp+1:bs=bs-1:goto400
  37. 380 ifsp=1then210
  38. 390 sp=sp-1:bs=bs+1
  39. 400 ifbs=-1thenbs=7:s=s+1:goto210
  40. 410 ifbs=8thenbs=0:s=s-1
  41. 420 goto210
  42. 430 ifzz<>1thenzz=zz-1
  43. 440 goto210
  44. 450 ifzz<>21thenzz=zz+1
  45. 460 goto210
  46. 470 ifpeek(po)<>42thenze=42:fa=14:gosub650:bs(zz,s)=bs(zz,s)-2^bs
  47. 480 goto210
  48. 490 rem sprites uebernehmen
  49. 500 fz=da:da=fz+int((sz+10)/10)*10
  50. 510 da$=str$(da)+"data"
  51. 520 poke646,6:print"[147]"str$(fz)+"forj=0to62:readq:poke"sb(i)"+j,q:next
  52. 530 d1[178]0:[129]zz[178]1[164]21:[129]s[178]1[164]3
  53. 540 [139][195](da$)[177]70[167]da[178]da[170]10:[153][200](da$,[195](da$)[171]1):da$[178][196](da[170]10)[170]"data"
  54. 550 da$[178]da$[170][201]([196](bs(zz,s)),[195]([196](bs(zz,s)))[171]1)[170]","
  55. 560 [130]:[130]
  56. 570 [139]da$[178][196](da[170]10)[170]"data"[167]540
  57. 580 [153][200](da$,[195](da$)[171]1):da[178]da[170]10
  58. 590 [153]"90dimbs(21,3),sb("sz"):i="i":sz="sz":da="da[170]10
  59. 600 [153]"100";:[129]n[178]1[164]sz:[153]"sb("n")="sb(n)":";:[130]:[153]"cmd "
  60. 610 [153]"500fz="fz[170]1
  61. 620 [153]"goto90"
  62. 630 [137]730
  63. 640 [128]
  64. 650 [151]po,ze:[151]54272[170]po,fa:[142]
  65. 690 za[178]10:ze[178]120
  66. 700 [151]646,6:[153]"load690za="ze[170]10":ze="ze[170]110"
  67. 710 fori=zatozestep10:printi:next:print"goto690"
  68. 720 ifi>700thenprint"[145][145]poke646,14"
  69. 730 poke631,19:fori=1to14:poke631+i,13:next:poke198,15:end
  70.