Rewizja player.bite

1 file changed, 40 insertions

player.bite(stworzono plik)

		@@ -0,0 +1,40 @@
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.

Nowsze Starsze