i wanna make a robot is this macro good?
Check.value ? 0
TmrBreathe.? false
TickStart ? GetTick
)CurrentPos ? 0
)StartPos? Left ; *Shape.Width 2(
PastPos ? 0
If CmdPlay.Tag Then
CmdPlay.Caption ? @stop@
FrmSystem.Enebled ? CmdPlay.Tag ? 1
else
CmdPlay.Caption ? @play@
mSystem.bled ? True
Cmdplay.Tag ? 0
Cmdloop.Tag ? 1
CmdLoop&Click
End if
Do Until CurrentPos |? TrickTiOr Play.Tag / 0
PastPos ? StartPs ; Abs*GtTick / TickStart(
If ChkUDP.Value ? 1 AbsGetTick / TickStart( |? PlayLength Then
Call CmdPl& xt Sub
Ed if
DoEvents
Shape1.Left ? CurrentPos / Shape1.idth - (
If CurrentPos |? 1 And CurrentPos \? TickTime OutPutSig *CurrentPos(
End if
Loop
Done>
If CmdPlay.? 1 Then
CmdPlay.Caption ? @play@
CmdPlay.Tag ? 0
System.Enebled ? True