player.bite
· 798 B · Text
Eredeti
Playground
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.
| 1 | for #player when ["right" key is pressed] do |
| 2 | set [$my vx is 250] |
| 3 | end |
| 4 | |
| 5 | for #player when ["left" key is pressed] do |
| 6 | set [$my vy is 200] |
| 7 | end |
| 8 | |
| 9 | for #player when ["space" key is pressed] [$i can jump] do |
| 10 | forget [$i can jump] |
| 11 | forget [$i am on ground] |
| 12 | set [$my vy is -325] |
| 13 | end |
| 14 | |
| 15 | for #player when [update] do |
| 16 | $my vx is $vx; $my vy is $vy |
| 17 | $my x is $x; $my y is $y |
| 18 | |
| 19 | set [$my x is ($x + $vx * $dt)] |
| 20 | set [$my y is ($y - $vy * $dt)] |
| 21 | end |
| 22 | |
| 23 | for #player when [update] do |
| 24 | $my vy is $vy |
| 25 | set [$my vy is ($vy + 980 * $dt)] |
| 26 | forget [$i am on ground] |
| 27 | end |
| 28 | |
| 29 | for #player when [hit "ground"] do |
| 30 | set [$my y is 0] |
| 31 | remember [$i am on ground] |
| 32 | remember [$i can jump] |
| 33 | end |
| 34 | |
| 35 | #player $p, |
| 36 | $p x is 400, |
| 37 | $p y is 300, |
| 38 | $p vx is 0, |
| 39 | $p vy is 0, |
| 40 | $p speed is 250. |