problem mit Kollison oder Winkelberechnung

Übersicht

BlitzBasic

Beginners-Corner

	Chris02 Betreff: problem mit Kollison oder Winkelberechnung	So, Apr 09, 2006 18:44 Antworten mit Zitat
Bevor jezt jemand schreit:Suche beuntzten, ja ich weis, so ein Thread liegt schon in der BC, ist sogar von mir, aber da sind keine Antworten gekommen, die mir halfen, jetzt version 2 davon, mit genauerer Fragestellung, hab das problem jetzt Teilweis selbst behoben, komm nun aber wirklich nicht weiter. Das Problem: Ich programmier seit ewigkeiten an nem einfachen Break-Out. Mein Problem lieg dabei, dass der Ball, wenn er seitlich an einem Stein auftrifft, nicht richtig abprallt. also die Steine hab ich so eingezeichnet: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] For y = 1 To 20 For x = 1 To 20 If Feld(x,y)=1 DrawImage Stein,x40-20,y20 EndIf Next Next Und hier die Kollisonsüberprüfung mit Berechnung des neuen Ballwinkels. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] For y=1 To 20 For x=1 To 20 If Feld(x,y)=1 If ImagesCollide(Ball,BallXpos,Ballypos,0,Stein,x40-20,y20,0) Feld(x,Y)=0 If Ballypos>Y20And Ballypos<y20+20 Ballwinkel=360 -Ballwinkel Else Ballwinkel=180-Ballwinkel EndIf EndIf EndIf Next Next und bevor jetzt wieder ein forschlag nach dem andern kommt, über alternative Kollisons und Bewegungs-Systeme, ich will nur wissen, was in oben angegebenen Code nicht funktioniert

Chris02

Betreff: problem mit Kollison oder Winkelberechnung

So, Apr 09, 2006 18:44
Antworten mit Zitat

Bevor jezt jemand schreit:Suche beuntzten, ja ich weis, so ein Thread liegt schon in der BC, ist sogar von mir, aber da sind keine Antworten gekommen, die mir halfen, jetzt version 2 davon, mit genauerer Fragestellung, hab das problem jetzt Teilweis selbst behoben, komm nun aber wirklich nicht weiter.

Das Problem:

Ich programmier seit ewigkeiten an nem einfachen Break-Out. Mein Problem lieg dabei, dass der Ball, wenn er seitlich an einem Stein auftrifft, nicht richtig abprallt.

also die Steine hab ich so eingezeichnet:
BlitzBasic: [AUSKLAPPEN]

For y = 1 To 20
		For x = 1 To 20
			If Feld(x,y)=1
				DrawImage Stein,x*40-20,y*20
			EndIf 
		Next
	Next

Und hier die Kollisonsüberprüfung mit Berechnung des neuen Ballwinkels.
BlitzBasic: [AUSKLAPPEN]


For y=1 To 20
		For x=1 To 20
			If Feld(x,y)=1
				If ImagesCollide(Ball,BallXpos,Ballypos,0,Stein,x*40-20,y*20,0)
					 
					Feld(x,Y)=0
					If Ballypos>Y*20And Ballypos<y*20+20
						Ballwinkel=360 -Ballwinkel
					Else
						Ballwinkel=180-Ballwinkel
					EndIf
				EndIf
			EndIf
		Next
	Next

und bevor jetzt wieder ein forschlag nach dem andern kommt, über alternative Kollisons und Bewegungs-Systeme, ich will nur wissen, was in oben angegebenen Code nicht funktioniert

	Iguan	So, Apr 09, 2006 18:54 Antworten mit Zitat
habe dein Code nicht ausprobiert, aber vielleicht hilft dir das ja: versuchs mal statt... Ballwinkel = 360 - Ballwinkel mit... 360 - Ballwinkel + 180

Iguan

So, Apr 09, 2006 18:54
Antworten mit Zitat

habe dein Code nicht ausprobiert, aber vielleicht hilft dir das ja:

versuchs mal statt...

Ballwinkel = 360 - Ballwinkel

mit...

360 - Ballwinkel + 180

	Chris02	So, Apr 09, 2006 19:02 Antworten mit Zitat
der teil den du verändert hast hat ja schon funktioniert, nur wenn der Ball auf eine Seite des Steins auftrifft, dann funktionierts nicht (und mit deimem Forschlag marschiert der Ball durchs komplette level durch, werds mir merken und unter Cheats einbaun)

Chris02

So, Apr 09, 2006 19:02
Antworten mit Zitat

der teil den du verändert hast hat ja schon funktioniert, nur wenn der Ball auf eine Seite des Steins auftrifft, dann funktionierts nicht
(und mit deimem Forschlag marschiert der Ball durchs komplette level durch,
werds mir merken und unter Cheats einbaun)

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

problem mit Kollison oder Winkelberechnung

Chris02

Betreff: problem mit Kollison oder Winkelberechnung

Iguan

Chris02