define speed x(joystick x)define(joystick y)
change [speed x] by ((0.9) * (joystick x))
change [speed y] by ((0.9) * (joystick y))
set [speed x] to ((0.9) * (speed x))
set [speed y] to ((0.9) * (speed y))
change x by (speed x)
change y by (speed y)

when green flag clicked
forever
move x (<key [right arrow] pressed?> - <key [left arrow] pressed?>)move y(<key [up arrow] pressed?> - <key [down arrow] pressed?> 

when green flag clicked
set [gravity] to [-1.5]
set [jump force] to [12]
set [atenson] to [1.5]
set [resistance] to [0.8]
set [speed y] to [0]
forever
if <key [up arrow] pressed?> then
if <(falling) < [3]> then
set [speed y] to (jump force)
end
end
change [ speed x] by ((<key [right arrow] pressed?> - <key [left arrow] pressed?> * (atenson))
set [speed x] to ((speed x) * (resistance))
change [speed y] by (gravity)
move(([abs] of (speed x)) + ([abs] of (speed y))
end

define move(steps)
change [falling] by (1)
repeat (steps)
set [last valu] to (x position)
change x by ((speed x) / (steps))
if <touching color [put map color] ?> then
set x to (last valu)
set [speed x] to [0]
end
set [last valu] to (y position)
change y by ((speed y) / (steps))
if <touching color [put map color] ?> then
set y to (last valu)
if <(speed y) < [0]> then
set [falling] to [0]
end
set [speed y] to [0]
end
end

when green flag clicked
play sound [ v] until done
play sound [ v] until done
play sound [ v] until done
play sound [ v] until done
play sound [ v] until done

when green flag clicked
forever
go to [mouse pointer]
if <<mouse down?> and <touching [correct answer] ?> then 
broadcast [correct]
else

if <<mouse down?> and <not <touching [incorrect answer] ?> then
broadcast [incorrect]
end
end
end

Shopno3009 wrote:

thanks

when green flag clicked
forever
ask [is shopno3009 cool] and wait
if <<(answer) = [yes]> or <(answer) = [no]>> then 
if <(answer) = [yes]> then 
say [correct]
stop [this script]
else
if <(answer) = [no]> then
say [incorrect]
stop [this script]
end
end
else
say [unknown response]
end

end

when green flag clicked
go to x: (0) y: (0)
set [ghost] effect to (100)

when green flag clicked
go to x: (0) y: (0)
set [ghost] effect to (100)
broadcast [sense] and wait
forever
if <key [right arrow] pressed?> then 
turn cw (3) degrees
else
if <key [left arrow] pressed?> then
turn ccw (3) degrees
end
end
if <key [up arrow] pressed?> then 
define move(speed)
else
if <key [down arrow] pressed?> then
define move((-1) * (speed))
end
broadcast [scan] and wait
end
end

define move(speed)
move (speed) steps
if <touching [map] ?> then
move ((0) - (speed)) steps
end

when green flag clicked
set [ghost] effect to (100)
when I receive [sense]
define sence
broadcast [draw] and wait

define sence
delete (all) of [distence]
set [distence] to [0]
set [angle offence] to [-48]
repeat (96)
set [distance] to [0]
go to [person]
point in direction (([direction] of [player]) + (angle offence))
repeat until <<touching [map] ?> or <(distance) = [80]>>
move (1) steps
change [distance] by (1)
end
add (distance) to [distance]
change [angle offence] by (1)
end

when I receive [draw]
define draw

define draw
go to x: (-237.5) y: (180)
set pen size to (5)
set pen color to [#6664ee]
clear
pen up
set [Colom] to [1]
repeat (length of [distance] :: list)
set pen shade to ((50) + (((item (Colom) of [distances] :: list)) / ((50) * (80))))
set y to ((-1200) / ((item (Colom) of [distances] :: list)))
pen down
set y to ((-1200) / ((item (Colom) of [distances] :: list)))
pen up
change x by (5)
change [Colom] by (1)
end

supergamer10000 wrote:

Shopno3009 wrote:

thanks

Use the quote button to reply to comments.