Hallo aitsch,
wenn du bei deinem Code in Zeile 50 die 8192 weglässt,
sollte es funktionieren.
Gruß,
Neptun
Hallo aitsch,
wenn du bei deinem Code in Zeile 50 die 8192 weglässt,
sollte es funktionieren.
Gruß,
Neptun
Hallo aitsch,
probier' mal dies:
10 sys58784:v=53248:pokev+33,0:pokev+32,11:printchr$(5):u$=chr$(145)
20 input"drehwinkel (grad)";w$
30 w1=val(w$):w2=w1/45*atn(1):si=sin(w2):co=cos(w2):k=23:l=20:p=832
35 c1=01:c2=11:c3=14:rem spritefarben
40 fori=.to2:pokev+i+i,60:pokev+i+i+1,52+24*i:pokev+39+i,c3:poke2040+i,13+i
50 next:pokev+37,c1:pokev+38,c2:pokev+28,7:pokev+16,7:pokev+21,7
80 dimq(11,l),z(k,l):printchr$(147)
90 fory=.tol:printy;u$:forx=.to8step4:w=peek(p)
100 fori=3to.step-1:q(x+i,y)=wand3:w=int(w/4):next:p=p+1:next:next
110 b2=24/2-1:h2=int(21/2):r=.5:print
120 fory=.tol:y1=y-h2:printy;u$
130 forx=.tok:x1=x-b2
140 x2=int(r+x1*co-y1*si+b2)
150 ifx2<.orx2>kthen190
160 y2=int(r+x1*si+y1*co+h2)
170 ify2<.ory2>lthen190
180 z(x,y)=q(x2/2,y2)
190 next:next
200 p=14*64
210 fory=.tol
220 forx=.to16step8:w1=.:w2=.
230 fori=xtox+7step2
240 w1=w1*4+z(i,y)
250 w2=w2*4+z(i+1,y)
260 next:pokep,w1:pokep+64,w2:p=p+1
270 next:next
900 rem 2019 by neptun
Alles anzeigen
Die Spritedefinition des Originalsprites muß ab 832 stehen.
Gruß,
Neptun