Posted on WOS, these are controls that are Manic Miner in style, but allow a player to go up "ladders" with the Jump key, and back down with the down key. It also slows down the character's animation.
if a = 0 animate let image = 2 [image 2 is a single frame] endif
if key4 if ladderabove let image = 0 animate spriteup else spriteleft if ladderabove animate else spriteright spriteright if ladderabove animate else spriteleft endif endif endif endif if ladderabove else fall endif
if a = 0 animate endif
if key 3 if ladderabove let image = 1 animate spriteup else fall endif endif
if key 2 if ladderbelow let image = 1 animate spritedown endif endif
if key 0 if Y > 191 screenright let Y = 40 else if cangoright let image = 0 animate spriteright endif endif endif if key 1 if Y <= 40 screenleft let Y = 184 else if cangoleft let image = 1 animate spriteleft endif endif endif
if key 4 jump endif
And this is in my Main Loop 1, slowing down the character's animation.