Kollision zwischen zwei Types! << Problem!

Übersicht

BlitzBasic

Allgemein

	Blitzkrieg Bop Betreff: Kollision zwischen zwei Types! << Problem!	So, Apr 18, 2004 12:31 Antworten mit Zitat
Hi! Also, ich mach gradf ein kleines Spiel. Bei dem Spiel sind Raketen als types dargestellt und gegner auch. Der Gegner hat die Power von 5 . Bei jedem treffen einer Rakete soll die Power um eins abnehmen. Das ist im Prinzip kein Problem, doch leider zieht der bei der Kollision nicht nur 1 ab, sondern soviel, solange die Types siech überlappen. Ich habe versucht einen kleinen timer einzubauen, aber mit geringem Erfolg. Wie kann ich das Problem dennoch lösen? Code: [AUSKLAPPEN] [EINKLAPPEN] ;Kollision rakete + gegner: For g.gegner = Each gegner For r.rakete = Each rakete If ImagesCollide(gegner,g\x,g\y,0,rakete,r\x,r\y,0) koll = koll + 1 EndIf If koll = 1 gegner_power = gegner_power - 1 EndIf If koll >50 koll = 0 EndIf Next Next Ich bedanke mich
~ Hey Ho Let's Go ~

Blitzkrieg Bop

Betreff: Kollision zwischen zwei Types! << Problem!

So, Apr 18, 2004 12:31
Antworten mit Zitat

Hi!
Also, ich mach gradf ein kleines Spiel. Bei dem Spiel sind Raketen als types dargestellt und gegner auch. Der Gegner hat die Power von 5 . Bei jedem treffen einer Rakete soll die Power um eins abnehmen. Das ist im Prinzip kein Problem, doch leider zieht der bei der Kollision nicht nur 1 ab, sondern soviel, solange die Types siech überlappen. Ich habe versucht einen kleinen timer einzubauen, aber mit geringem Erfolg. Wie kann ich das Problem dennoch lösen?

Code: [AUSKLAPPEN]

;Kollision rakete + gegner:
For g.gegner = Each gegner
   For r.rakete = Each rakete
      If ImagesCollide(gegner,g\x,g\y,0,rakete,r\x,r\y,0)
         koll = koll + 1
      EndIf
         If koll = 1
            gegner_power = gegner_power - 1
         EndIf
         If koll >50
            koll = 0
         EndIf
   Next
Next

Ich bedanke mich Wink

~ Hey Ho Let's Go ~

	sldier	So, Apr 18, 2004 12:38 Antworten mit Zitat
ich bin auch noch neu hier aber wenn du die rakete nach dem ersten zusammenprall löchst müsste es gehn Code: [AUSKLAPPEN] [EINKLAPPEN] If ImagesCollide(gegner,g\x,g\y,0,rakete,r\x,r\y,0) koll = koll + 1 delete r.{type}<- was du für die rakete genommen hast endif müsste eigentlich gehn