Beiträge von ZeHa im Thema „Spiel in 10 Zeilen (Basic)“

    Wenn Du den Code direkt in lower-case postest kann man ihn im VICE sogar per Copy&Paste einfuegen :thumbup:

    Code
    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