20 lines
286 B
Plaintext
20 lines
286 B
Plaintext
mn=20 mx=100 stp=20 if:td then goto2end if:ti then goto3end goto1
|
|
a=(:turtle-stp)<mn :turtle=(:turtle-stp)*(1-a)+mn*a goto1
|
|
a=(:turtle+stp)>mx :turtle=(:turtle+stp)*(1-a)+mx*a goto1
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// :turtle = Turtle Button
|
|
// :ti = Turtle Increase Button
|
|
// :td = Turtle Decrease Button |