Das deutsche QBasic- und FreeBASIC-Forum

[Spongebob Schwamm]

Hi!
Ich habe dieses Rennspiel programmiert:


CLS
SCREEN 12
ON KEY(11) GOSUB oben ‘Taste 8 auf dem Nummernblock
ON KEY(14) GOSUB unten ‘Taste 2 auf dem Nummernblock
KEY(11) ON ‘Tasten aktivieren
KEY(14) ON

x = 220
y = 300
b = 440
RANDOMIZE TIMER
a = INT(RND * 300)

DO
IF b = 200 THEN
RANDOMIZE TIMER
a = INT(RND * 600): CIRCLE (b, a), 10, 14
b = 440
END IF

b = b - 3
IF b = 200 THEN
RANDOMIZE TIMER
a = INT(RND * 403): CIRCLE (b, a), 10, 14
IF a 403 THEN y = 403
RETURN




Hat jemand rat wie ich das Flackern und Ruckeln beseitiegen kann?
Und kann ich ein Zähler machen der zählt wie oft man gegen die gelben Kreise kommt?

[dreael]

Zum Flackern: Ich denke, da sind die unter

http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/ButterweicheAnimationen.html

diskutierten Grundlagen das, was Du brauchst. Tipp: Ich würde statt SCREEN 12 mit SCREEN 7 arbeiten, wo Dir ausreichen Videoseiten und PCOPY zur Verfügung stehen.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[Sebastian]

Hallo.

Oder vielleicht Screen 9? Der hat auch 2 Seiten, 16 Farben und eine relativ hohe Auflösung von 640x350. Screen 7 ist nur so klein wie Screen 13. :/

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[Spongebob Schwamm]

Also ich verstehe noch nicht wie ich das in mein Prog einbauen soll.
könnt ihr mir das einbauen?

Mfg
Spongebob Schwamm

[dreael]

Stell uns sonst einmal den vollständigen Code zur Verfügung.
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[jb]

Hallo!

Versuch mal das:

[Spongebob Schwamm]

Erstmal Danke für die Antworten!

Könnt ihr mir in den Code jetzt auch eine Koliesionsabfrage einbauen.Also das wenn man gegen ein gelbes Viereck kommt das in einer Variable "punkte" die Koliesion dazugezählt wird?

[jb]

Hallo!

Versuch mal, die Abfrage der Kollision mit POINT(x, y) zu erledigen.
Du kannst eine FOR-Schleife über alle Bildpunkte des Rennautos machen:

[dreael]

Aha, ich sehe bereits, Du willst wahrscheinlich eine Art "Wirbelwind" (war ein ganz altes Videokonsolenspiel aus Anfang der 80er-Jahren für den legendären Videopac von Philips) programmieren.

Habe einmal noch selber eine Variante für dieses Spiel angesetzt:

http://beilagen.dreael.ch/QB/WIRBWIND.ZIP

Besitzt eine vollkommen flimmerfreie Animation, hat jedoch noch keine Kollisionsabfrage. Dafür verwendet es ein .BMP-Sprite für die Autos (kann man mit Windows Paint ändern, wenn man Lust hat) und demonstriert noch Dinge wie Sprite abgeschnitten darstellen (geht bekanntlich nicht direkt, weil es eine Fehlermeldung ergibt), und ferner läuft das Ganze bereits in QBASIC.EXE (V1.1).
_________________
Teste die PC-Sicherheit mit www.sec-check.net

[Spongebob Schwamm]

jb könntest du mir das mal einbauen ich krieg das irgendwie nicht hin?

[jb]

Und vielleicht noch den Rest des Spiels verbessern ???

Irgendwas kannst du ja auch machen...

Nur ein kleiner Tip:

Versuch mal, die Variablen etwas anders zu benennen, dass auch andere Leute außer dir den Code verstehen. Das macht es uns einfacher, da was einzubauen.

EDIT:

Wenn du das nicht gewusst hast, POINT(x, y) liefert den aktuellen Farbwert eines Pixels zurück. Wenn du also mit meinem Beispiel alle Punkte des Spielers abfragst, und POINT(x, y) = 14 (gelb) ist, weißt du, dass er von eiem Auto "überfahren" worden ist.


Noch ein EDIT:

Wie ich sehe, initialisierst du zwar SCREEN 7, aber machst das im Unterprogramm ZeichneBild wieder zunichte...

Der Code hier sollte das noch mal verdeutlichen:

[Quark48]

Hallo!

Ich benutze (Wirklich zugegeben) und habe auch noch niemals Bildschirm-"Seiten" benutzt (War mir damals schon zu umständlich )
Für den Einsteiger in QB kann ich einfach "nur" die folgenden Zeilen an Code empfehlen:

[jb]

Ja, das kann funktionieren, aber das Problem ist auch, dass man
das Zeichnen des Gegenstandes mitbekommt, etwas flimmert es also
immer.
Außerdem ist das mit den Bildschirmseiten auch nicht SO kompliziert...

jb

[Quark48]

Hallo!

Es gibt auch Dinge, die man noch nicht probiert hat und seine Finger davon gelassen hat. Ich werde mich mal mit dem Bildschirmseiten-"Puffer" beschäftigen. So sehr schwer kann das doch nicht sein
_________________
Grüßle, Stefan
***
Wenn ein Programm auf nem alten Rechner gut läuft, dann läuft´s auf nem neuen erst recht!
Ich habe/hatte keine feste Spange und auch keine Schwester. Der Rest stimmt. Es tut mir leid... :-/

[jb]

Sehr lobenswert

jb

(Guck mal an den Anfang dieses Themas. Da erkläre ich und dreael, wie's geht)

[Quark48]

Hallo!

Klar - ich kenne schon Dreaels "Doktorarbeiten" über bestimmte Themen in QB; das Tutorial von ihm mit "Butterweichen Animationen" muss ich erst noch komplett anschauen
_________________
Grüßle, Stefan
***
Wenn ein Programm auf nem alten Rechner gut läuft, dann läuft´s auf nem neuen erst recht!
Ich habe/hatte keine feste Spange und auch keine Schwester. Der Rest stimmt. Es tut mir leid... :-/

[jb]

Nichts für Ungut, aber ich glaube, das dreals "Doktorarbeiten" zwar sehr sehr gut und ausführlich sind, aber vielleicht am Anfang etwas zu kompliziert sind.

Unter qbasic.de in der Download-Rubrik gibt es ein Tutorial von Mario Zechner namens "Spielegrafikprogrammierung" (so hieß das, glaube ich jedenfalls), das das erklärt.
(so hab ich das auch gelernt )

jb

[Jojo]

Ich habe auch noch nie pageflipping benutz... stattdessen benutzt ich seit neuestem eone offscreen page ..also Fast das selbe..aber besser

[jb]

Page Flipping ist aber was Anderes als Double Buffering.....

Aber das nur so am Rande....

Meinst du mit Offscreen-Page eine virtuelle Bildschirmseite?
Von sowas habe ich nur unter SCREEN 13 gehört, da er keine 2 Bildschirmseiten hat.

jb

[Jojo]

Jop,so in der art issen.
Achja: Mein Spiel fruitz batzle benutzt die BlastLib, die Offscreen macht:
http://sagagames.de/?programm=fruitbattle