for #player when ["right" key is pressed] do
    set [$my vx is 250]
end

for #player when ["left" key is pressed] do
    set [$my vy is 200]
end

for #player when ["space" key is pressed] [$i can jump] do
    forget [$i can jump]
    forget [$i am on ground]
    set [$my vy is -325]
end

for #player when [update] do
    $my vx is $vx; $my vy is $vy
    $my x is $x; $my y is $y

    set [$my x is ($x + $vx * $dt)]
    set [$my y is ($y - $vy * $dt)]
end

for #player when [update] do
    $my vy is $vy
    set [$my vy is ($vy + 980 * $dt)]
    forget [$i am on ground]
end

for #player when [hit "ground"] do
    set [$my y is 0]
    remember [$i am on ground]
    remember [$i can jump]
end

#player $p, 
    $p x is 400, 
    $p y is 300, 
    $p vx is 0,
    $p vy is 0,
    $p speed is 250.