Mmmmm. Door cogs. Mmmmmm.
#10/2001 GBK
Symbols
Message Activated
Message Timer
Surface Switch
Thing Object
Flex Speed0
Flex Speed1
Flex Speed2
Flex Speed3
Flex Pause0
Flex Pause1
Flex Pause2
Flex Pause3
Int Lock=0 Local
End
Code
Activated:
If((Getsenderref()==Switch)&&(Lock==0)){ Lock=1;
Setwallcel(Switch, 1);
Movetoframe(Object, 1, Speed0);
Settimerex(Pause0, 501, 0, 0); } Return;
Timer:
If(GetsenderID()==501){
Movetoframe(Object, 2, Speed1);
Settimerex(Pause1, 502, 0, 0); }
Else If(GetsenderID()==502){
Movetoframe(Object, 1, Speed2);
Settimerex(Pause2, 503, 0, 0); }
Else If(GetsenderID()==503){
Movetoframe(Object, 0, Speed3);
Settimerex(Pause3, 504, 0, 0); }
Else If(GetsenderID()==504){ Lock=0;
Setwallcel(Switch, 0); }
Return;
End
It works, I tested it.
------------------
Success is the inverse relationship between effort, gain, and loss.
And when the moment is right, I'm gonna fly a kite.