Loop goes too fast

Hi there again!

I have a problem with loop that is going too fast. Firstly i'll give my example:

Dim position
position = world.GetVariable ("position")

While position > 1 or position < n
Select Case Position
Case 1
world.DoAfter 1, "s"
Case 2
world.DoAfter 1, "se"
Case 3
.
.
.
Case n
world.DoAfter 1, "e"
Case Else
world.note "Blah blah"
End Select
Wend

It works, but loop goes so fast that it hangs Mushclient. I've no idea what to do to run it... hmmm slower... Or better - sequentially. I mean action-reaction (I hope you understand :). It would be great if variable were checked once per loop, not still. But how to do it - that's my question.

I will be grateful for any help.

It's not going to fast, it's just that the variable is never going to change while you are looping. You could use a trigger to see when the variable changes.