
Code: Alles auswählen
if playerX=asteroidX1 and playerY= aseroidY1 or playerX=asteroidX2 and playerY= aseroidY2 ...
Code: Alles auswählen
if playerX=asteroidX1 and playerY= aseroidY1 or playerX=asteroidX2 and playerY= aseroidY2 ...
Johann Wolfgang von Geothe hat geschrieben:Wie dieses oder jenes Wort geschrieben wird, darauf kommt es doch eigentlich nicht an, sondern darauf, daß die Leser verstehen, was man damit sagen wollte.
Ich hab's die ganze Zeit geahnt, dass du der NickTheQuick von qbasic.de bist.NicTheQuick hat geschrieben:Lebenslauf
dem erfahren PureBasic-Programmierer
ja, sicherZeHa hat geschrieben:habt ihr früher auch immer erst mit dem Vorspann angefangen? Ich hab zig angefangene Spiele, bei denen es bisher nur 'nen Vorspann gibt
Und ich hab auch ganz früher mal Loading-Screens mit entsprechendem Loading-Balken in manche Spiele eingebaut, obwohl es gar nix zu laden gababer ich wollte halt, daß es cool aussieht
Ja, FrankyBoy sagt mir noch etwas. Aber am meisten hatte ich mit Stormaster, M@rky, Eumel, Powerliner und TheShadow zu tun. Und im QB-Wettbewerb war ich auch schon von Anfang an Moderator bis es mir zu dumm war mit QuickBasic weiter zu proggen.Laurin hat geschrieben:Ich hab's die ganze Zeit geahnt, dass du der NickTheQuick von qbasic.de bist.
Vielleicht sagt dir ja mein alter Nick Frankyboy () noch etwas. Ich habe damals auch den QB-Programmierwettbewerb in Schwung gebracht (und später an einen anderen abgegeben). Ja, ja... waren schon lustige Zeiten damals.
NicTheQuick hat geschrieben:Ja, FrankyBoy sagt mir noch etwas.
Stormmaster und ich haben damals den Wettbewerb gemacht. M@rky kenne ich auch noch, aber die drei Anderen nicht... hm..Aber am meisten hatte ich mit Stormaster, M@rky, Eumel, Powerliner und TheShadow zu tun.
Aber auf meiner Festplatte ruhen immer noch die über 3300 BAS-Dateien, von denen vielleicht 2% fertige Programme oder Tools darstellen.
Code: Alles auswählen
...
PRINT
PRINT
PRINT
PRINT
PRINT
PLAY " O2 T150 L16 dd P16 d c P16 cd P16 d L8 fga L16 dd P16 df P16 cd"
PRINT
PRINT
COLOR 3
PRINT " *"
COLOR 1
PRINT " ******* "
COLOR 5
PRINT " *** 1 ***"
COLOR 4
PRINT " *****************"
COLOR 6
PRINT " * Der 1.Tag *"
COLOR 2
PRINT " *************"
PRINT
PRINT " "
PRINT " "
PRINT " "
COLOR 31
PRINT " (TASTE) "
PRINT " "
SLEEP
GOTO 168
168 CLS
COLOR 7
PRINT "Schnorch, ratzpüh, grunz..."
SLEEP 2
PRINT "'HEY!! RUHE DA UNTEN, ODER WIR HOLEN DIE BULLEN!!'"
SLEEP 2
PRINT "'Hä? Wiewaswowann?' Doing, Boff. Du wurdest gerade lautstark von deiner"
PRINT "Vermieterin aus dem Bett gejagt und hast dir den Kopf an der zu tief"
PRINT "hängenden Messinglampe gestoßen. Aua. Nunmehr wach gelingt es dir dich"
PRINT "aus dem Bett zu quälen und ins Bad zu kriechen. Du stellst dich unter"
PRINT "die Dusche, drehst auf und bist nun endgültig erwacht. Dann putzt du"
PRINT "dir die Zähne. Du stehst jetzt im Bad, frierst, weil es Winter ist und"
PRINT "die Heizung kaputt ist und überlegst dir was du machen könntest."
PRINT
PRINT " Was also?"
PRINT
COLOR 4
PRINT " (1) Zähne putzen"
COLOR 1
PRINT " (2) Sachen suchen und anziehen"
COLOR 2
PRINT " (3) Durchs Fenster springen und dich im Schnee wälzen"
COLOR 6
PRINT " (4) Schnell ins Bett hüpfen und weiterschlafen"
PRINT
COLOR 7
INPUT " Gib eine der Zahlen ein:", ImBad$
IF ImBad$ = "1" THEN 11
IF ImBad$ = "2" THEN 22
IF ImBad$ = "3" THEN 33
IF ImBad$ = "4" THEN 44
11 CLS
COLOR 7
PRINT " Jo mei! Das hast du doch schon gemacht. Versuchs nochmal!"
PRINT
PRINT " (TASTE)"
SLEEP
GOTO 168
33 CLS
COLOR 7
PRINT "Du nimmst Anlauf und stürtzt dich mit einem heiseren Jubelschrei"
PRINT "aus dem Fenster. Du fällst...und fällst und schlägst irgendwann auf"
PRINT "dem Boden auf. Ein Räumfahrzeug kehrt deine Überreste weg. "
PRINT "Hatte ich vergessen zu erwähnen dass du im 10. Stock wohnst? Oops..."
PRINT
PRINT " (TASTE)"
SLEEP
GOTO 99990
99990 CLS
PRINT
PLAY "O1MB T255 L2 dd L4 defa L2 g L4 d P4 L3 d P3 L4eL2 f L2 d L2d L4ecdP4 L4ddd"
PRINT
PRINT
COLOR 8
PRINT " GAME OVER"
SLEEP 2
COLOR 1
PRINT " ?"
COLOR 5
PRINT " ??????? "
COLOR 4
PRINT " ????????????????? "
COLOR 6
PRINT " ??????????????????????????? "
COLOR 2
PRINT " ?????????????????????????????????????"
PRINT " ? Willst du immernoch weiterspielen ?"
COLOR 3
PRINT " ????????????????????????????????????? "
PRINT
PRINT
COLOR 14
INPUT " Gib ja oder nein ein:", Gover$
IF Gover$ = "ja" THEN 10
IF Gover$ = "nein" THEN 232
232 CLS
COLOR 4
PRINT " Wie nochmal? Du willst aufhören?"
COLOR 27
PRINT " ???????????????????"
PRINT " ????????????????????????????"
PRINT " ?????????????????????????????????????????"
PRINT " ???????????? ???????????"
PRINT " ????????? ???????????"
PRINT " ?????????"
PRINT " ????????????"
PRINT " ??????????????"
PRINT " ???????????????"
PRINT " ?????????????"
PRINT " ???????????"
PRINT " ????????????"
PRINT " ??????????????????"
PRINT " ?????????????????????? ????"
PRINT " ???????????????????????????????"
PRINT " ???????????????????????"
PRINT " ?????????????"
PRINT
PRINT " ??????????"
PRINT " ??????????????????????"
PRINT " ??????????????????????"
PRINT " ??????????"
INPUT " ", Ggover$
IF Ggover$ = "ja" THEN 9990
IF Ggover$ = "Ja" THEN 9990
IF Ggover$ = "JA" THEN 9990
IF Ggover$ = "Nein" THEN 10
IF Ggover$ = "NEIN" THEN 10
IF Ggover$ = "nein" THEN 10
44 CLS
COLOR 7
PRINT "Du gehst zitternd vor Kälte in dein schönes, warmes Bett und schläfst"
PRINT "ein. Nach einer Weile wirst du von einem stechenden Schmerz im linken"
PRINT "Bein geweckt, der daherrührt, dass die Dogge der Vermieterin selbiges"
PRINT "gerade abgebissen hat und laut schmatzend vertilgt. Du wünschst dem Tier"
PRINT "einen gesegneten Appetit und bietest im noch den Arm an, den es aber"
PRINT "ablehnt. Dann Hüpfst du auf einem Bein auf die Straáe, fällst einen Baum"
PRINT "und schnitzt dir ein Holzbein. Puh, nochmal Glück gehabt. Dann kommt eine"
PRINT "Dampfwalze und überrollt dich."
PRINT
COLOR 7
PRINT " (TASTE)"
SLEEP
GOTO 99990
22 CLS
COLOR 5
PRINT " Super!"
SLEEP 1
PRINT
COLOR 4
PRINT " Toll!!"
SLEEP 1
PRINT
COLOR 2
PRINT " Einmalig!!!"
SLEEP 1
PRINT
PRINT
PRINT
PRINT
COLOR 7
PRINT "Du hast die erste Aufgabe des Spiels bestanden. UNGLAUBLICH!"
PRINT "Wie gesagt, ziehst du dich jetzt an und freust dich(noch) auf die Arbeit."
PRINT "'Mannomann, ein richtiger Polizist' denkst du dir und freust dich schon,"
PRINT "die Gangster zu jagen, mit dem Polizeiheli zu fliegen, Strafzettel zu "
PRINT "verteilen... Nachts 3 Stunden Streife zu fahren.... 10 Seiten Berichte zu"
PRINT "schreiben.... Hmmm... langsam kommen dir Zweifel.'Ach Quark!' denkst du"
PRINT "und fährst mit deinem neuerworbenen Fahrrad los. Doch recht beschwerlich,"
PRINT "wenn man bedenkt, dass es ja Winter ist, kommst du nach 15 Minuten in der"
PRINT "Borzstrasse an."
PRINT
PRINT " (TASTE)"
SLEEP
...