rem Landscape App
SetDisplayAspect( 4.0/3.0 )

setPrintSize(3)

createSprite(1,0)
setSpriteSize(1,4,-1)
setSpriteOffset(1,2,getSpriteHeight(1)/2)
setSpritePosition(1,50,50)
setSpritePhysicsOn(1,2)

rem A Wizard Did It!
do
    Print("Left Click to apply a vertical force on the sprite")
    Print("Right Click to apply a pointer based force")
    if getRawMouseLeftState()=1
        setSpritePhysicsImpulse(1,getSpriteXbyOffset(1),getSpriteYbyOffset(1),0,-10)
    endif
    if getRawMouseRightState()=1
        dx# = getSpriteXbyOffset(1)-getPointerX()
        dy# = getSpriteYbyOffset(1)-getPointerY()
        fx# = 142-dx#
        fy# = 142-dy#
        setSpritePhysicsImpulse(1,getPointerX(),getPointerY(),dx#,dy#)
    endif
    
    Sync()
loop