Ich hatte mal wieder Lust einen 10 Zeiler in Basic zu schreiben und hier ist das Ergebnis. Läuft auch auf einem C128, viel Spass damit.
Bitte melde dich an, um diesen Anhang zu sehen.
Steuerung: Cursor Links und Rechts, die Spacetaste zum Laser abfeuern.
Quellcode:
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