Imagescollide-problem

Übersicht

BlitzBasic

Allgemein

	sbrog Betreff: Imagescollide-problem	Sa, Jul 03, 2004 14:55 Antworten mit Zitat
Der imagescollidebefehl befindet sich inder Funktion ich komm einfach nicht drauf, wieso die kolission nicht erkannt wird Code: [AUSKLAPPEN] [EINKLAPPEN] Graphics 800,600 Global bild1 = CreateImage(10,10) SetBuffer ImageBuffer(bild1) Color 255,0,0 Rect 0,0,10,10 Global bild2 = CreateImage(20,20) SetBuffer ImageBuffer(bild2) Color 255,255,255 Line 10,0,10,20 Line 0,10,20,10 SetBuffer BackBuffer() Repeat Cls mausx = MouseX() mausy = MouseY() DrawImage bild2,mausx,mausy kolissionpruefen(100,100) Flip Until KeyHit(1) Function kolissionpruefen(x,y) DrawImage bild1,x,y If ImagesCollide(bild2,mausx,mausy,0,bild1,x,y,0) Then Text 0,0,"Kolission" End Function [/code]

sbrog

Betreff: Imagescollide-problem

Sa, Jul 03, 2004 14:55
Antworten mit Zitat

Der imagescollidebefehl befindet sich inder Funktion
ich komm einfach nicht drauf, wieso die kolission nicht erkannt wird
Code: [AUSKLAPPEN]

Graphics 800,600

Global bild1 = CreateImage(10,10)
SetBuffer ImageBuffer(bild1)
Color 255,0,0
Rect 0,0,10,10

Global bild2 = CreateImage(20,20)
SetBuffer ImageBuffer(bild2)
Color 255,255,255
Line 10,0,10,20
Line 0,10,20,10

SetBuffer BackBuffer()

Repeat
Cls
mausx = MouseX()
mausy = MouseY()
DrawImage bild2,mausx,mausy

kolissionpruefen(100,100)

Flip
Until KeyHit(1)

Function kolissionpruefen(x,y)
DrawImage bild1,x,y

If ImagesCollide(bild2,mausx,mausy,0,bild1,x,y,0) Then Text 0,0,"Kolission"
End Function

[/code]