automacro pubm {
console /\[(距离|dist)=(.*)\] (.*) \((\d+)\): (.*)$/
call {
$a = @invamount(藍色魔力礦石)
$c =
@eval (222 - $a)
$b = @invamount(藍色魔力礦石)
if (@invamount(藍色魔力礦石) == 0) goto nostone
$i = $.lastMatch4
$pname =
@eval (exists $::players{$::playersID[$i]} ? $::players{$::playersID
[$i]}->{name} : 'null')
$gname =
@eval (exists $::players{$::playersID[$i]}->{guild} ? $::players
{$::playersID[$i]}->{guild}{name} : 'null')
$authp = authplayer("$pname")
$authg = authguild("$gname")
if ($authp == 1 || $authg == 1 ) goto ok
stop
:nostone
do chat create "(> <)我要石头" 2 0 1111
pause 20
do chat leave
pause 1
stop
:ok
$posx =
@arg ("$.pos", 1)
$posy =
@arg ("$.pos", 2)
$pos1 = randpos($posx,$posy)
#构建的子函数，返回一个对原坐标修正值在（-3 ~ 3）的一个新坐标
$warpid = warpid("$.lastMatch5")
if ($.lastMatch5 == "123") goto buff1
if ($warpid != 0) goto a
stop
:buff1
do sp 34 $i 10
do sp 29 $i 10
pause 1
stop
:a
pause 1
do c 送你离开千里之外，请不要回来
pause 1
do sl 27 $pos1
pause 3
do warp $warpid
pause 1
if ($b == @invamount(藍色魔力礦石)) goto a
stop
}
}
