Selbstgeschriebendes Q-Basic-MS-Dos-Spiel

622 Aufrufe

PDF an Freunde weiterleiten:

Ihre IP-Adresse wird aus Sicherheitsgründen gespeichert um kriminelle Aktivitäten und unerlaubten Spam zu unterbinden. Leiten Sie nur E-Mails weiter, wo der Empfänger mit dem Versand auch einverstanden ist.

SPIELBZ.BASSCREEN 0CLSPRINT "Loading"SLEEP 1CLSCOLOR 3PRINT "Loading"SLEEP 1LOCATE 1, 1: COLOR 19: PRINT "Please wait"SLEEP 1e = .1RANDOMIZE TIMERDEF SEG = (&HB800)FOR s = 4 TO 67: e = 2 * SIN(s) * SIN(11* SIN(s / 12)) + RND * 3POKE (s * 2 + 1), INT(e)IF INKEY$ = CHR$(27) THEN 100NEXT sSLEEP 2REM FortschrittsanzeigeCOLOR 9CLSFOR x = 15 TO 60IF INKEY$ = CHR$(27) THEN 100LOCATE 23, x: COLOR 5 * RND + 5PRINT CHR$(176); INT(100 * (x - 15) / (80 - 15)); "%"IF INKEY$ = CHR$(27) THEN 100NEXTRANDOMIZE TIMERCLS : REM Startscreen
Seite 1
Eingestellt über www.PDF-ins-Internet.de - Haftung für Inhalt und Inhaber aller Rechte ist der Puplisher
Kontaktdaten und Anbieterkennung des Puplishers/Autors entnehmen Sie bitte dem PDF-Archives auf www.PDF-ins-Internet.de.
SPIELBZ.BASFOR x = 1 TO 14LOCATE x + 3, x: COLOR INT(x / 2) + 2: PRINT "ÛÛÛÛÛÛ"NEXT xFOR x = 14 TO 1 STEP -1LOCATE x + 3, 15 - x: COLOR INT(x / 2) +2: PRINT "ÛÛÛÛÛÛ"NEXT xFOR x = 1 TO 14: REM Buchstabe ILOCATE x + 3, 25: COLOR INT(x / 2) + 2: PRINT "ÛÛÛ"NEXT xFOR x = 1 TO 1: REM unterer Strich vom LLOCATE x + 16, 28: COLOR INT(x / 2) + 2:PRINT "ÛÛÛÛÛÛ"NEXT xFOR x = 1 TO 14: REM Buchstabe ILOCATE 18 - x, 37: COLOR INT(x / 2) + 2:PRINT "ÛÛÛ"NEXT xSLEEP 5COLOR 7SCREEN 13LOCATE 2, 2: PRINT "Steuerung mit den Tasten 0 und Q"POKE 26 * 2 + 1, 15: POKE 6 * 2 + 1, 12:SLEEP 2.5LOCATE 2, 3: PRINT "Sie haben gewonnen, wenn Sie 850 Punkte"
Seite 2
Eingestellt über www.PDF-ins-Internet.de - Haftung für Inhalt und Inhaber aller Rechte ist der PuplisherKontaktdaten und Anbieterkennung des Puplishers/Autors entnehmen Sie bitte dem PDF-Archives auf www.PDF-ins-Internet.de.
SPIELBZ.BASLOCATE 2, 4: PRINT "erreicht haben"ON TIMER(3) GOSUB 10000: CLSLOCATE 2, 1: PRINT " Û  Û  Û  Û  Û  Û  Û Û  Û  Û  Û  Û  Û"LOCATE 23, 1: PRINT "Press ESC to exit"SLEEP 1LOCATE 23, 1: PRINT " Û  Û  Û  Û  Û  Û  Û  Û  Û  Û  Û  Û  Û"y = 100: REM vertikale Startposition desRaumschiffest = 10: REM "Start/"geschwindigkeit"-richtung"FOR d = 0 TO 200OUT &H3C8, INT(d / 6) * 107OUT &H3C9, INT(d / 6) * 2050OUT &H3C9, INT(d / 6) * 71OUT &H3C9, INT(d / 6) * 911FOR x = 0 TO 360 STEP (.1 + .1 * INT(d /6)): IF INKEY$ = CHR$(27) THEN 100IF p > 850 THEN GOTO 1000LOCATE 2, 1: COLOR 26: PRINT "Punkte"; p: LOCATE 2, 32: COLOR 5: PRINT "Level";1 + INT(d / 6)p = d * 15 - a: REM Punktestand ermittelnIF y < 21 THEN GOSUB 200IF INP(&H60) < 57 THEN t = INP(&H60)y = y + t / 25 - .5IF y > 159 THEN GOSUB 201IF INKEY$ = CHR$(27) THEN GOTO 100IF INKEY$ = CHR$(27) THEN 100CIRCLE (xx, yy), 13, 0, , , .35 + INT(d 
Seite 3
Eingestellt über www.PDF-ins-Internet.de - Haftung für Inhalt und Inhaber aller Rechte ist der PuplisherKontaktdaten und Anbieterkennung des Puplishers/Autors entnehmen Sie bitte dem PDF-Archives auf www.PDF-ins-Internet.de.
SPIELBZ.BAS/ 6): REM alten Kreis (frame) l"schenCIRCLE (x, y), 13, 3 + INT(d / 6), , , .35 + INT(d / 6): REM Kreis zeichnenCIRCLE (x, y), 12, 3 + INT(d / 6), , , .35 + INT(d / 6)CIRCLE (x, y), 11, 3 + INT(d / 6), , , .35 + INT(d / 6)IF INKEY$ = CHR$(27) THEN 100xx = x: yy = yNEXT x, d100 SCREEN 13: CLS : COLOR 11: LOCATE 6,17: PRINT "ENDE": SLEEP 4: COLOR 8:WHILE INKEY$ <> "": WEND: REM Tastaturpuffer leeren sonstREM                           Tastatureingaben nach ProgrammendeREM                           auf der Eingabeaufforderung sichtbar101 END200 y = y + 25: REM Bildschirm blinkt bei Kollisiona = a + 1FOR o = 10 TO 13IF INKEY$ = CHR$(27) THEN 100SOUND 880, 1OUT &H3C8, d * xOUT &H3C9, x * xOUT &H3C9, y
Seite 4
Eingestellt über www.PDF-ins-Internet.de - Haftung für Inhalt und Inhaber aller Rechte ist der PuplisherKontaktdaten und Anbieterkennung des Puplishers/Autors entnehmen Sie bitte dem PDF-Archives auf www.PDF-ins-Internet.de.
SPIELBZ.BASOUT &H3C9, d * 14NEXT o:OUT &H3C8, 0OUT &H3C9, 0OUT &H3C9, 0OUT &H3C9, 0RETURN201 y = y - 25a = a + 1SOUND 450, 3FOR t = 10 TO 13IF INKEY$ = CHR$(27) THEN 100OUT &H3C8, 0OUT &H3C9, RND * 10090OUT &H3C9, RND * 15000OUT &H3C9, RND * 501NEXT tOUT &H3C8, 0OUT &H3C9, 0OUT &H3C9, 0OUT &H3C9, 0RETURN1000 LOCATE 15, 14: PRINT " WINNER": SLEEP 72: END10000 RETURN
Seite 5
Eingestellt über www.PDF-ins-Internet.de - Haftung für Inhalt und Inhaber aller Rechte ist der PuplisherKontaktdaten und Anbieterkennung des Puplishers/Autors entnehmen Sie bitte dem PDF-Archives auf www.PDF-ins-Internet.de.

Selbstgeschriebendes Q-Basic-MS-Dos-Spiel

PDF & Publisher Info