Over

automacro buffandwarp { console /\[dist=(.*)\] (.*) \((\d+)\): (ald|alde|sq|pron|prt|hl|pay|asum| heal|santuary|sant|ab|buff|agi|bless)$/i sp >= 70 priority 0 class high priest exclusive 1 call checkmsg } macro checkmsg { $dist = $.lastmatch1 if ($dist > 6) stop $name = $.lastmatch2 $i = $.lastmatch3 $g = @eval (exists $::players{$::playersid[$i]}->{guild} ? $::players{$::playersid[$i]}->{guild}{name} : 'null') if ($g == gothic) goto accessgranted if ($g == v a l k y r i e) goto accessgranted goto end :accessgranted $msg = $.lastmatch4 $posx = @rand (4, 5, 6, 7) $posy = @rand (4, 5, 6, 7) $cellisfull = 0 do eval $::macro::data::varstack{cellisfull} = 0;foreach (@{$::playerslist->getitems()}) { next if (($_->{pos_to}{x} != $posx) || ($_>{pos_to}{y} != $posy));$::macro::data::varstack{cellisfull} = 1; last;} if ($cellisfull == 1) goto accessgranted $x = @arg ("$.pos", 1) $y = @arg ("$.pos", 2) $evalx = @eval ($x + $posx) $evaly = @eval ($y + $posy) if ($msg == ald) goto warpald if ($msg == ald) goto warpald if ($msg == alde) goto warpald if ($msg == alde) goto warpald if ($msg == sq) goto warpsq if ($msg == sq) goto warpsq if ($msg == gef) goto warpgef if ($msg == gef) goto warpgef if ($msg == hl) goto warphl if ($msg == hl) goto warphl if ($msg == pay) goto warphl if ($msg == asum) goto asum if ($msg == asum) goto asum if ($msg == agi) goto agi if ($msg == agi) goto agi if ($msg == bless) goto bless if ($msg == bless) goto bless if ($msg == ab) goto agibless if ($msg == ab) goto agibless if ($msg == buff) goto agibless if ($msg == heal) goto heal if ($msg == heal) goto heal if ($msg == sant) goto santuary if ($msg == santuary) goto santuary if ($msg == sant) goto santuary if ($msg == santuary) goto santuary

}

goto end :warpald do sl 27 $evalx $evaley pause 1 do warp alde_gld stop :warpsq do sl 27 $evalx $evaly pause 1 do warp prt_gld stop :warpgef do sl 27 $evalx $evaly pause 1 do warp gef_fild13 stop :warphl do sl 27 $evalx $evaly pause 1 do warp pay_gld stop :asum do sp 361 $i 5 stop :agi do sp 29 $i 10 stop :bless do sp 34 $i 10 stop :agibless do sp 34 $i 10 pause 1 do sp 29 $i 10 stop :heal do sp 28 $i 10 pause 0.5 do sp 28 $i 10 pause 0.5 do sp 28 $i 10 pause 0.5 do sp 28 $i 10 stop :santuary do sp 70 $i 7 stop :end log $name is not in our guild list! stop