DrawBlock:
MouseXSpeed, MouseYSpeed and MouseZSpeed:
Function DrawBlock(Image:TImage, x#, y#, frame:Int=0) Local oldBlend = GetBlend() SetBlend(SOLIDBLEND) DrawImage(Image, X, Y, frame) SetBlend oldBlend End Function
MouseXSpeed, MouseYSpeed and MouseZSpeed:
Function MouseXSpeed:Int() Global lastX:Int =0 Local result:Int = MouseX()-lastX lastX = MouseX() Return result End Function Function MouseYSpeed:Int() Global lastY:Int =0 Local result:Int = MouseY()-lastY lastY = MouseY() Return result End Function Function MouseZSpeed:Int() Global lastZ:Int =0 Local result:Int = MouseZ()-lastZ lastZ = MouseZ() Return result End Function