Aber den String-too-long-Error bekomme ich da auch. Im Plus/4-Emulator zumindest. Im C128-Emulator funktioniert es und ist spielbar!
Aber den String-too-long-Error bekomme ich da auch. Im Plus/4-Emulator zumindest. Im C128-Emulator funktioniert es und ist spielbar!
Wenn Du den Code direkt in lower-case postest kann man ihn im VICE sogar per Copy&Paste einfuegen ![]()
1 color0,1:color1,2:graphic1,1:x=125:r=50:f=60:y=130:char,28,1,"brickhunter":char,29,3,"c16 / c128"
2 draw1,48,173to212,173to212,50to220,50to220,180to40,180to40,50to48,50to48,173:gosub10
3 s=int(rnd(69)*191)/10:d=s:d=int(s+.5):d=d*10:h=d+10:n=1:vol8:ifd<60thengoto3
4 getq$:ifq$=chr$(157)thenp=x:x=x-10:e=0:y=x+5:gosub9
5 ifq$=chr$(29)thenp=x:x=x+10:e=0:y=x+5:gosub9:rem*control cursor left/right and space*
6 color1,3,4:box0,d,r,h,f:r=r+7:f=f+7:box1,d,r,h,f:iff>165thenchar,15,9,"over":n=0:getkeya$:run
7 ifq$=chr$(32)andy=hthendraw1,x,165tox,r:draw0,x,165tox,r:box0,d,r,h,f:n=0:c=c+10:sound3,970,9
8 c$=str$(c):char,28,9 ,"points:":char,35, 9,c$:ifn=1thengoto4:elser=50:f=60:goto3
9 if x=45orx=215thenx=p
10 color1,13:circlee,p,168,5,5,,,,360/3:circle1,x,168,5,5,,,,360/3:e=1:color1,2:return:rem m.quante