Das deutsche QBasic- und FreeBASIC-Forum

[Kugelfisch]

Hallo!

zuerst einmal muss ich gestehen, dass ich zwar schon sehr lange, aber immer nur auf einem relativ niedrigen Niveau und sehr unregelmäßig in QBasic programmiere, daher erscheint die folgende Frage dem Crack auch vielleicht als recht banal, ich weiss es nicht.

Heute hatte ich die Idee, eine einfach Zufallsbemalung des Bildschirms, die ich mir einmal als eine Art Bildschirmschoner gedacht hatte, zum Spiel umzubauen.

Also schnell einen Rahmen gezogen, der - Punkt für Punkt - mit zufälligen Farben vollgemalt wird. Das Spiel besteht nun darin, dass eine Form - ich hab bereits "Haus", "Kreis", "Kette"... entwickelt - nach und nach im Hintergrund erscheinen soll. Also wenn der Punkt sich zufällig auf einem Teil der versteckten Grafik befindet, soll eben nicht eine zufällige Farbe verwendet werden, sondern er soll weiss werden. Derjenige der beiden Spieler, der zuerst errät, welche Form sich hinter der Zufallsbemalung versteckt, gewinnt die Runde. Zuerst wollte ich einfach Grenzen einbauen, wo die Zufallsbemalung nicht hinkommt, aber das wird - insbesondere bei Kreisen - aber doch schwer.

Wie kann ich das, ohne umständlich einzelne Punkte zu definieren, lösen? Die versteckten Formen sollen nur, wenn der Cursor gerade auf einem Punkt der Hintergrundgrafik ist, erscheinen, also nur nach und nach.

Vielen Dank für jegliche Antworten! und viele Grüße

Johannes

[Tomtitom]

also du musst schon jeden Punkt definieren, wo eine spezielle Farbe auftauchen soll. Ob du es umständlich machst ist eine andere Sache.

Ich würde es einfach mal so angehen, dass du dein Bild mit "unsichtbarer" Farbe malst, sprich z.B. bei SCREEN 13 mit der Farbe 16, die ist auch schwarz und somit nicht von Farbe 0 zu unterscheiden, nun musst du bei jeden Farbsetzen einfach mit POINT(x,y) abfragen, ob die Hintergrundfarbe 16 oder 0 ist.

Wenn du einen anderen Screen nimmst, kannst du dir auch mit PALETTE mehrere gleichaussehende Farben machen.

[Kugelfisch]

das klingt doch nach einer Super-Lösung

Vielen Dank!!

[Kugelfisch]

Hallo nochmal!

Es funktioniert nicht...
der Code müsste doch in etwa so aussehen, oder?:

PALETTE 15,0 (Farbe 16 gibts nicht??)

.....

o% = POINT(x, y)
IF o% = 15 THEN
PSET (x, y), 7
GOTO A
END IF

Also, es soll grau werden!

Zwar kann ich in der Gegend der Grafik etwas mehr grau feststellen, aber beileibe nicht alles wird grau...

[Kugelfisch]

ach und wenn ich einfach eine fläche bunt anmale und dann die farbe abfrage funktioniert es schon, nur im großen programm nicht!

Danke für eure Antworten,
Johannes

[Tomtitom]

[Kugelfisch]

du hast mit einer Pause gearbeitet, das habe ich nicht gemacht.

kann es vielleicht daran liegen, dass er ohne unterbechung malt?

ich habe es wirklich nicht so professionell wie du geschrieben, aber dennoch funktioniert es wenn ich den bildschirm komplett einfärbe schon, oder einfach ein rechteck zeichne.

nur bei meinen figuren nicht, egal ob ich sie verstecke oder nicht.

Ich habe meinen Code einmal hochgeladen, er ist unter
http://www.herzovision.de/fritz-wolfgang/RATE.BAS zu finden. danke für die Hilfe!

[MisterD]

kleine Empfehlung: http://fb.exp-soft.de/fbnp Dann lässt sich der Code besser lesen.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Mecki]

..zumindest ab Version 2 die der MisterD ja so schnell wie möglich rausbringt
_________________
» Yodl.de: So sucht man gestern.
» Geld verdienen im Netz + ICQ.
» Firefox!
» 100€ zu gewinnen
» FreeBASIC.de

[Tomtitom]

es ist ganz klar, warum dein Programm nicht funktioniert, du fragst zwar nach Farbe 7 ab, aber nicht nach Farbe 15, mit der du es dann abdeckst, ergo wird immer sofort das Bild übermalt.
Du musst bei der Abfrage nur

[Kugelfisch]

tatsächlich... jetzt funktioniert es! war auch logisch das mit dem 7 UND 15! Also vielen Dank für die Hilfe nochmal...

wie mach ich das denn schneller mit den GOTOs, und was könnte ich ausserdem verbessern?

Viele Grüße & Gut Nacht!

Johannes

[Kugelfisch]

insbesondere: was meinst du mit "mit dieser Zufallsverteilung kann es manchmal echt Jahre dauern, bis man genug vom Bild sieht" - wie sähe eine bessere verteilung aus?

[jb]

Eine bessere Verteilung wären Zufallszahlen, wo keine gleichen x- und y-Paare vorkommen.

Dazu gibt's auf www.qbasic.de ein Beispielprogramm.

jb

[Tomtitom]

Und nochmal, es gibt da rechts oben so einen tollen Edit-Button, ich bitte dich ihn auch mal zu benutzen, anstatt andaurend doppel-Posts zu machen!

Ich habe mal deinen Code etwas bearbeitet: http://fb.exp-soft.de/fbnp/index.php?view=35
Gotos sind weg und ich habe die Zufallsverteilung geändert, die ist zwar auch nicht viel besser, aber nicht so komisch kompliziert, wie du sie gemacht hast. Im Prinzip besteht eben immre die Gefahr das der Punkt irgendwo in die Ecke wandert und dann nicht mehr zurückkommt, so dass man erst nach ein paar Minuten sieht, was für ein Bild gemalt werden sollte. Umgehen kannst du das nur wie bei meiner Variante 2 aber weil das ja doch ganz schön anders ist könntest du auch die Ursprüngliche Verteilung mit Hilfe von Wahrscheinlichkeitsrechnung so modifizieren, das nach einer gewissen Zeit alle Felder mal abgedeckt wurden, was allerdings nicht so leicht wäre.
Es ist ja sowieso dein Programm und wenn es dir so schon gefällt, dann lass es halt so.