CollideImage Frage/Problem

Übersicht

BlitzMax, BlitzMax NG

Allgemein

	mangoo Betreff: CollideImage Frage/Problem	So, Feb 20, 2005 14:09 Antworten mit Zitat
Hallo, hat hier jemand schon mit CollideImage gearbeitet?? Ich habe da Probleme mit dem Parameter ID. Ich hatte es so verstanden, als wenn man beim Befehl eine Adresse eines Objektes mit angeben kann, so dass man hinterher genau weiss was mit einem kollidiert ist, aber irgendwie klappt das so nicht. Wäre nett wenn jemand mir sagen kann wofür der Id Paramter gut ist oder einfach dieses Beispiel hier testen könnte. Damit dieser Codeschnipsel hier einwandfrei funktioniert muss ein Bild "tower.png" im gleichen ordner sein. Code: Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 640,480,0 image$ = "tower.png" Type Test Field image:Timage End Type ' Create an Instance of Test and add it to List t:test = New test t.image = LoadImage(image$) list:TList = CreateList() ListAddLast(list,t) ' Own Image img:Timage =LoadImage(image$) While Not KeyDown(KEY_ESCAPE) Cls ResetCollisions 'Instance Image DrawImage t.image,100,100 CollideImage(t.image,100,100,0,0,1,t) '<----------------- Id = t, use Col Layer 1 ' Own Image and Collision Check DrawImage img,MouseX(),MouseY() Local treffer:Object[] = CollideImage(img,MouseX(),MouseY(),0,1,0) ' Check Col Layer 1 If treffer DebugLog "HIT" ' Remove id from list ListRemove(list,treffer[0]) ' Use first Object in List EndIf 'How big is da List???!? always 1 :-( DrawText Len(list),0,0 Flip Wend Grüsse Mangoo

mangoo

Betreff: CollideImage Frage/Problem

So, Feb 20, 2005 14:09
Antworten mit Zitat

Hallo,

hat hier jemand schon mit CollideImage gearbeitet??
Ich habe da Probleme mit dem Parameter ID. Ich hatte es so verstanden, als wenn man beim Befehl eine Adresse eines Objektes mit angeben kann, so dass man hinterher genau weiss was mit einem kollidiert ist, aber irgendwie klappt das so nicht.

Wäre nett wenn jemand mir sagen kann wofür der Id Paramter gut ist oder einfach dieses Beispiel hier testen könnte. Damit dieser Codeschnipsel hier einwandfrei funktioniert muss ein Bild "tower.png" im gleichen ordner sein.

Code:
Code: [AUSKLAPPEN]

Graphics 640,480,0
image$ = "tower.png"

Type Test
Field image:Timage
End Type

' Create an Instance of Test and add it to List
t:test = New test
t.image = LoadImage(image$)

list:TList = CreateList()
ListAddLast(list,t)

' Own Image
img:Timage =LoadImage(image$)

While Not KeyDown(KEY_ESCAPE)
Cls

ResetCollisions

'Instance Image
DrawImage t.image,100,100
CollideImage(t.image,100,100,0,0,1,t) '<----------------- Id = t, use Col Layer 1

' Own Image and Collision Check
DrawImage img,MouseX(),MouseY()
Local treffer:Object[] = CollideImage(img,MouseX(),MouseY(),0,1,0) ' Check Col Layer 1
If treffer
DebugLog "HIT"
' Remove id from list
ListRemove(list,treffer[0]) ' Use first Object in List
EndIf

'How big is da List???!? always 1 :-(
DrawText Len(list),0,0
Flip
Wend

Grüsse Mangoo