|
automacro smove {
delay 5
#主要針對第一次上線時座標通常都會很慢才偵測到。
#由此延遲5秒可避免執行時無偵測座標而發生程式異常問題。
call sm
timeout 300
#每5分鐘執行一次。
#程式都是以秒計算,60秒=1分鐘,300秒=5分鐘。
exclusive 1
}
macro sm {
$newpos = $.pos
$newpos = @arg ("$newpos", 1)
$newposy = @arg ("$newpos", 2)
$newposx1 = @arg ("$newpos", 1)
$newposy1 = @arg ("$newpos", 2)
log old $newposx $newposy new $newposx1 $newposy1
if ($newposx == $newposx1 && $newposy == $newposy1) goto dm
:dm
$newposx2 = @eval ($newposx1 + 15)
$newposy2 = @eval ($newposy1 - 15)
log move $newposx2 $newposy2
do move $newposx2 $newposy2
release smove
stop
} |
|