Sub Globals
gw.New1("Form1", 0, 0, Form1.Width, Form1.Height)
obj.New1(false)
obj.FromLibrary ("main.gw", "gw", b4pobject(2))
eMove.New1(obj.Value, "MouseMove")
eUp.New1(obj.Value, "MouseUp")
down = false
End Sub
Sub App_Start
sp.New3 (imagelist1.Item(0), 1, imagelist1.Width(0), imagelist1.Height(0), 1)
gw.SetTransparentColor1 (imagelist1.Pixel(0, 1, 1))
gw.SpriteAdd(sp.Value)
sp.X = Form1.Width/2 - sp.Width/2
sp.Y = Form1.Height/2 - sp.Height/2
gw.Tick
Form1.Show
End Sub
Sub gw_CollisionMouse
down = true
End Sub
Sub eMove_NewEvent
If down then
obj.Value = eMove.Data
x = obj.GetProperty("X")
y = obj.GetProperty("Y")
sp.X = x
sp.Y = y
gw.Tick
End If
End Sub
Sub eUp_NewEvent
If down then
sp.X = 0
'Form1.Width/2 - sp.Width/2
sp.Y = Form1.Height/2 - sp.Height/2
gw.Tick
down = false
End If
End Sub