Kollision funktioniert nur zufällig

Übersicht

BlitzBasic

Allgemein

	Fantomas Betreff: Kollision funktioniert nur zufällig	Mo, Jul 02, 2007 21:41 Antworten mit Zitat
Ich möchte so ne art Moorhuhn nur mit Geister basteln.lerne B(2,3)D seit 06.2007.Nun möchte ich das die geister bei kollision mit der maus verschwinden.also nur der geist der mit der maus kollidiert. irgendwie gehts net und ich weiss net weiter.BITTE helft mir ;----------Voreinstellung----------------------------- Graphics 800,600,32,2 SetBuffer BackBuffer() framerate = CreateTimer(50) SeedRnd MilliSecs() ;_____________________________________________________ ;-----Variablen und Bilder laden---------------------- Global geist = LoadAnimImage("geistanim.png",50,50,0,8) MaskImage geist ,255,0,255 Global fadenkreuz = LoadImage("fadenkreuz.png") MaskImage fadenkreuz,255,0,255 Global maus_pos_x = 400 Global maus pos_y = 300 ;__________________________________________________________ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Type geist Field gposx Field gposy End Type For i = 1 To 10 info.geist = New geist info\gposx = Rnd(0,800) info\gposy = Rnd(0,500) Next Repeat WaitTimer framerate Cls drawgeist() Collision() maus() Flip Until KeyHit(1) Function Drawgeist() For info.geist = Each geist DrawImage geist, info\gposx, info\gposy,0 Next End Function Function Collision() For info.geist = Each geist If ImagesCollide(geist, info\gposx, info\gposy,0, fadenkreuz, maus_pos_x - 15, maus_pos_y - 15,0) Then Print "Kollision" Delete info.geist EndIf Next End Function Function maus() maus_pos_x = MouseX() maus_pos_y = MouseY() DrawImage fadenkreuz,maus_pos_x -15,maus_pos_y -15 ,0 FlushMouse End Function

Fantomas

Betreff: Kollision funktioniert nur zufällig

Mo, Jul 02, 2007 21:41
Antworten mit Zitat

Ich möchte so ne art Moorhuhn nur mit Geister basteln.lerne B(2,3)D seit 06.2007.Nun möchte ich das die geister bei kollision mit der maus verschwinden.also nur der geist der mit der maus kollidiert. irgendwie gehts net und ich weiss net weiter.BITTE helft mir

;----------Voreinstellung-----------------------------
Graphics 800,600,32,2
SetBuffer BackBuffer()
framerate = CreateTimer(50)
SeedRnd MilliSecs()
;_____________________________________________________

;-----Variablen und Bilder laden----------------------
Global geist = LoadAnimImage("geistanim.png",50,50,0,8)
MaskImage geist ,255,0,255
Global fadenkreuz = LoadImage("fadenkreuz.png")
MaskImage fadenkreuz,255,0,255
Global maus_pos_x = 400
Global maus pos_y = 300

;__________________________________________________________

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Type geist
Field gposx
Field gposy
End Type

For i = 1 To 10
info.geist = New geist
info\gposx = Rnd(0,800)
info\gposy = Rnd(0,500)
Next

Repeat
WaitTimer framerate
Cls
drawgeist()
Collision()
maus()
Flip
Until KeyHit(1)

Function Drawgeist()
For info.geist = Each geist
DrawImage geist, info\gposx, info\gposy,0
Next
End Function

Function Collision()
For info.geist = Each geist

If ImagesCollide(geist, info\gposx, info\gposy,0, fadenkreuz, maus_pos_x - 15, maus_pos_y - 15,0) Then
Print "Kollision"
Delete info.geist
EndIf
Next
End Function

Function maus()
maus_pos_x = MouseX()
maus_pos_y = MouseY()
DrawImage fadenkreuz,maus_pos_x -15,maus_pos_y -15 ,0
FlushMouse
End Function

	Rallimen Sieger des 30-EUR-Wettbewerbs	Mo, Jul 02, 2007 23:05 Antworten mit Zitat
Sieht gut aus, allerdings ist hier der BUG drin Code: [AUSKLAPPEN] [EINKLAPPEN] Global maus_pos_x = 400 Global maus pos_y = 300 Richtig ist Code: [AUSKLAPPEN] [EINKLAPPEN] Global maus_pos_x = 400 Global maus_pos_y = 300 da fehlte der Unterstrich!!! dannach sollte es funktionieren
[BB2D \| BB3D \| BB+]