Problem mit Custom Types

Übersicht

BlitzBasic

Allgemein

	Z'eluR_lliB Betreff: Problem mit Custom Types	Fr, Aug 12, 2005 12:26 Antworten mit Zitat
Ich komme mit den "Custom Types" (wie in der Hilfe beschrieben) nicht so richtig zurecht.... Es geht so los: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type ball Field x#, y# Field rx#, ry# End Type Nun möchte zur Kontrolle prüfen, ob die Bälle zusammenstoßen. Das Problem ist nur, ich weiß nicht, wie ich jetzt jeden der Bälle mit jedem (außer natürlich dem Gleichen) vergleichen kann. Ich habs schon mit BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] mine=After( mine ) mine=Before( mine ) versucht, aber wie kann ich verhindern, dass ein Ball mit sich selber verglichen wird?

Z'eluR_lliB

Betreff: Problem mit Custom Types

Fr, Aug 12, 2005 12:26
Antworten mit Zitat

Ich komme mit den "Custom Types" (wie in der Hilfe beschrieben) nicht so richtig zurecht....
Es geht so los:

BlitzBasic: [AUSKLAPPEN]

   Type ball
     Field x#, y#					
     Field rx#, ry#					
   End Type

Nun möchte zur Kontrolle prüfen, ob die Bälle zusammenstoßen.
Das Problem ist nur, ich weiß nicht, wie ich jetzt jeden der Bälle mit jedem (außer natürlich dem Gleichen) vergleichen kann.

Ich habs schon mit

BlitzBasic: [AUSKLAPPEN]

mine=After( mine )
mine=Before( mine )

versucht, aber wie kann ich verhindern, dass ein Ball mit sich selber verglichen wird?

	Lord_Vader	Fr, Aug 12, 2005 12:34 Antworten mit Zitat
Du musst schon den inhalt prüfen: BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] colli.ball=New ball If colli\x#=colli\x# Then...

Lord_Vader

Fr, Aug 12, 2005 12:34
Antworten mit Zitat

Du musst schon den inhalt prüfen:

BlitzBasic: [AUSKLAPPEN]



colli.ball=New ball

If colli\x#=colli\x# Then...

	Jan_ Ehemaliger Admin	Fr, Aug 12, 2005 13:02 Antworten mit Zitat
@Lv, ? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Type ball Field x#, y# Field rx#, ry# End Type For b1.ball = Each ball ; jeder ball mit For b2.ball = Each ball ; jeden ball If Not(b1 =b2) ; aber nciht mit sich selber. ; und dann Collisionen Prüfen ;if imagescollide(b1\image,b1\x,b1\y,0,b2\image,b2\x,b2\y,0) EndIf Next Next
between angels and insects

Jan_

Ehemaliger Admin

Fr, Aug 12, 2005 13:02
Antworten mit Zitat

@Lv, ?

BlitzBasic: [AUSKLAPPEN]


   Type ball 
     Field x#, y#                                        
     Field rx#, ry#                                        
   End Type

For b1.ball = Each ball ; jeder ball mit
  For b2.ball = Each ball ; jeden ball
   If Not(b1 =b2) ; aber nciht mit sich selber.
    ; und dann Collisionen Prüfen
    ;if imagescollide(b1\image,b1\x,b1\y,0,b2\image,b2\x,b2\y,0) 
   EndIf
  Next
Next