Spiel in 10 Zeilen (Basic)

Es gibt 17 Antworten in diesem Thema, welches 5.688 mal aufgerufen wurde. Der letzte Beitrag (3. Juli 2020 um 09:06) ist von Plus4_fan.

  • 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

  • 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

    - neue Spiele für den C64 -
    Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.

  • Aber den String-too-long-Error bekomme ich da auch. Im Plus/4-Emulator zumindest. Im C128-Emulator funktioniert es und ist spielbar!

    - neue Spiele für den C64 -
    Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.Bitte melde dich an, um diesen Link zu sehen.

  • Also ich habs gerade mit Vice getestet, ging einwandfrei.

    Du musst es aber als PRG einladen, den Quellcode kannst du jetzt nicht so einfach rüber kopieren, dann würdest du die beschriebene Fehlermeldung bekommen, da ich viel mit Abkürzungen gearbeitet habe.

    Also vergesst Copy&Paste, anbei habe ich ein Floppy Image (d64-File), damit könnt ihr es auch in Vice reinladen.

    Ja ich vergesse immer das die ganze Welt nunmal nicht Yape benutzt ;) .

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

    Zur Not kann man UPPERCASE Listings auch in Notepad++, Word usw. mit der entsprechenden Funktion auf 'lowercase' konvertieren.
    Mache ich oft so in NPP.

    ___________________________________________________________
    Meine Kreationen: Bitte melde dich an, um diesen Link zu sehen. | Bitte melde dich an, um diesen Link zu sehen. | Bitte melde dich an, um diesen Link zu sehen. | Bitte melde dich an, um diesen Link zu sehen.
    | Bitte melde dich an, um diesen Link zu sehen.
    Avatar: Copyright 2017 by Saiki

  • ----------------------
    Ja ich vergesse immer das die ganze Welt nunmal nicht Yape benutzt
    ---------------------

    Auch in Yape kommt die String-Fehlermeldung.

    Gruss

  • ----------------------
    Ja ich vergesse immer das die ganze Welt nunmal nicht Yape benutzt
    ---------------------

    Auch in Yape kommt die String-Fehlermeldung.

    Gruss

    Die Aussage war ja auch nicht auf Copy&Paste gemünzt, im Yape kann ich via Menü PRGs einladen ich meine das geht im Vice nicht, da muss man erst das D64 einlesen und dann das Programm laden. Ganz genau weiss ich es aber nicht, da ich fast nur mit Yape was mache.

  • Die Aussage war ja auch nicht auf Copy&Paste gemünzt, im Yape kann ich via Menü PRGs einladen ich meine das geht im Vice nicht, da muss man erst das D64 einlesen und dann das Programm laden. Ganz genau weiss ich es aber nicht, da ich fast nur mit Yape was mache.

    PRGs direkt aufrufen geht auch in WInVICE. Ich mache das oft so, dass ich hier Anhänge "mal schnell" direkt aus dem Browser öffne, weil für .PRG VICE als Standardapp definiert ist.

    ___________________________________________________________
    Meine Kreationen: Bitte melde dich an, um diesen Link zu sehen. | Bitte melde dich an, um diesen Link zu sehen. | Bitte melde dich an, um diesen Link zu sehen. | Bitte melde dich an, um diesen Link zu sehen.
    | Bitte melde dich an, um diesen Link zu sehen.
    Avatar: Copyright 2017 by Saiki

  • da ich mir vor kurzem eine Datasette für den Plus/4 gekauft hatte und vorher noch nie was mit dem Plus/4 gemacht habe, hab ich das Spiel mal abgetippt. Natürlich mit ein paar Zeilen mehr, wegen der max. Zeilenlänge.

    Ich hatte ein paar Syntax-Fehler, weil die Taste '7' etwas schwergängig ist :P, aber sonst ging es gut. BASIC 3.5 ist ja doch recht fortschrittlich !

    "Was heute noch wie ein Märchen klingt,kann morgen Wirklichkeit sein.Hier ist ein Märchen von übermorgen.Es gibt keine Kupferka­bel mehr,es gibt nur noch die Glasfaser und Terminals in jedem Raum.Man siedelt auf fernen Rech­nern.Die Mailboxen sind als Wohnraum erschlossen.Mit heute noch unvorstellbaren Geschwindigkeiten durcheilen Computerclubs unser Da­tenverbundsystem.Einer dieser Com­puterclubs ist der CCC.Gigantischer Teil eines winzigen Sicher­heitssystems,das die Erde vor Bedrohungen durch den Gilb schützt.Begleiten wir den CCC und seine Mitglieder bei ihrem Patrouillendienst am Rande der Unkenntlich­keit. CCC'84 nach ORION'64"

  • da ich mir vor kurzem eine Datasette für den Plus/4 gekauft hatte und vorher noch nie was mit dem Plus/4 gemacht habe, hab ich das Spiel mal abgetippt. Natürlich mit ein paar Zeilen mehr, wegen der max. Zeilenlänge.

    Ich hatte ein paar Syntax-Fehler, weil die Taste '7' etwas schwergängig ist :P, aber sonst ging es gut. BASIC 3.5 ist ja doch recht fortschrittlich !

    Hast du keine Floppy oder SD2IEC für den C64, die kannst du normalerweise auch für den C16/Plus4 benutzen? Gerade mit der SD2IEC-Lösung hättest du dir Tippen sparen können.

  • da ich mir vor kurzem eine Datasette für den Plus/4 gekauft hatte und vorher noch nie was mit dem Plus/4 gemacht habe, hab ich das Spiel mal abgetippt. Natürlich mit ein paar Zeilen mehr, wegen der max. Zeilenlänge.

    Ich hatte ein paar Syntax-Fehler, weil die Taste '7' etwas schwergängig ist :P, aber sonst ging es gut. BASIC 3.5 ist ja doch recht fortschrittlich !

    Hast du keine Floppy oder SD2IEC für den C64, die kannst du normalerweise auch für den C16/Plus4 benutzen? Gerade mit der SD2IEC-Lösung hättest du dir Tippen sparen können.

    natürlich, aber darum ging s ja nicht. Mal ein wenig tippen und dann auf Kassette - so wie früher, wenn man mehr nicht hatte :)

    "Was heute noch wie ein Märchen klingt,kann morgen Wirklichkeit sein.Hier ist ein Märchen von übermorgen.Es gibt keine Kupferka­bel mehr,es gibt nur noch die Glasfaser und Terminals in jedem Raum.Man siedelt auf fernen Rech­nern.Die Mailboxen sind als Wohnraum erschlossen.Mit heute noch unvorstellbaren Geschwindigkeiten durcheilen Computerclubs unser Da­tenverbundsystem.Einer dieser Com­puterclubs ist der CCC.Gigantischer Teil eines winzigen Sicher­heitssystems,das die Erde vor Bedrohungen durch den Gilb schützt.Begleiten wir den CCC und seine Mitglieder bei ihrem Patrouillendienst am Rande der Unkenntlich­keit. CCC'84 nach ORION'64"