Männchen am Hang

Übersicht

BlitzBasic

Beginners-Corner

	Unplugged Betreff: Männchen am Hang	Mi, Jan 11, 2006 23:25 Antworten mit Zitat
So ich habe ein Problem. Schwer zu erklären und auch schwer zu suchen (Boardsuche)... Ich dachte ich könnts euch an hand einer Grafik nahelegen. Zuerst mal mach ich ne For Schleife und dreh das Teil 360 mal... Also ich prüfe die Kollision vom rechten beinchen und dann dreh ichs um 1 Grad, wenn das Bein nicht mit dem Boden kollidiert. Aber sobald das Männchen an den Abgrund läuft dreht es sich um 360 Grad und hebt ab. Bitte um Hilfe. Danke Gruß Unplugged
User posted image

Unplugged

Betreff: Männchen am Hang

Mi, Jan 11, 2006 23:25
Antworten mit Zitat

So ich habe ein Problem. Schwer zu erklären und auch schwer zu suchen (Boardsuche)... Ich dachte ich könnts euch an hand einer Grafik nahelegen.

user posted image

Zuerst mal mach ich ne For Schleife und dreh das Teil 360 mal...
Also ich prüfe die Kollision vom rechten beinchen und dann dreh ichs um 1 Grad, wenn das Bein nicht mit dem Boden kollidiert.
Aber sobald das Männchen an den Abgrund läuft dreht es sich um 360 Grad und hebt ab.

Bitte um Hilfe.
Danke

Gruß Unplugged

User posted image

	Hubsi	Do, Jan 12, 2006 15:37 Antworten mit Zitat
Vermutung: Ein Bug in der Kollisionsabfrage oder die While -Schleife wird nicht verlassen in der das Männchen gedreht und die Kollision geprüft wird. Das entsprechende Stück Code wäre ganz hilfreich
Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

Hubsi

Do, Jan 12, 2006 15:37
Antworten mit Zitat

Vermutung: Ein Bug in der Kollisionsabfrage oder die While Question

-Schleife wird nicht verlassen in der das Männchen gedreht und die Kollision geprüft wird. Das entsprechende Stück Code wäre ganz hilfreich Very Happy

Den ganzen Doag im Bett umanandflagga und iaz daherkema und meine Hendl`n fressn...

	Unplugged	Do, Jan 12, 2006 17:32 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] TFormFilter 0 Dim figur(359) For winkel = 0 To 359 figur(winkel) = LoadImage("figur.png") RotateImage figur(winkel),winkel MaskImage figur(winkel),0,0,0 Next winkel = 0 Repeat linksuntenX = x + 16 linksuntenY = y + 91 rechtsuntenX= x + 39 rechtsuntenY= y + 91 Cls : ClsColor 255,255,255 kolli = ImageRectCollide(landschaft,0,0,0,linksuntenX,linksuntenY,1,1) kollie= ImageRectCollide(landschaft,0,0,0,rechtsuntenX,rechtsuntenY,1,1) x=x+1 If kolli = 0 Then y=y+1 If kollie=0 Then winkel = winkel + 1 DrawImage landschaft,0,0 DrawImage figur(winkel) ,x,y Flip Until KeyHit(1)
User posted image

Unplugged

Do, Jan 12, 2006 17:32
Antworten mit Zitat

Code: [AUSKLAPPEN]

TFormFilter 0
Dim figur(359)
For winkel = 0 To 359
figur(winkel) = LoadImage("figur.png")
RotateImage figur(winkel),winkel
MaskImage figur(winkel),0,0,0
Next
winkel = 0
Repeat

linksuntenX = x + 16
linksuntenY = y + 91
rechtsuntenX= x + 39
rechtsuntenY= y + 91
Cls : ClsColor 255,255,255

kolli = ImageRectCollide(landschaft,0,0,0,linksuntenX,linksuntenY,1,1)
kollie= ImageRectCollide(landschaft,0,0,0,rechtsuntenX,rechtsuntenY,1,1)
x=x+1
If kolli = 0 Then y=y+1
If kollie=0 Then winkel = winkel + 1
DrawImage landschaft,0,0
DrawImage figur(winkel) ,x,y

Flip
Until KeyHit(1)

User posted image

	Goodjee	Do, Jan 12, 2006 17:52 Antworten mit Zitat
ich glaube du müsstest auch bei einer kolllision linksunten den winkel ändern, und bei rechtsunten auch die position....
"Ideen sind keine Coladosen, man kann sie nicht recyclen"-Dr. House http://deeebian.redio.de/ http://goodjee.redio.de/