macro avoid monster dan anti warp

macro shared kali ini adalah macro untuk avoid monster mvp atau db di field. tiap ada monster yang mencurigakan dia akan langsung dc, dan akan langsung nyatet nama monster penyebab dcnya ke pelaku.txt di folder control. macro ini juga bisa menghindari warp iseng, namun selalu mengecek koordinat warp portal sehingga hanya akan membuka pub jika dia benar2 sedang menuju warp tersebut. dan hanya akan menutup pub jika benar2 tidak ada warp disekitarnya.
catatan : jangan lupa membuat file pelaku.txt di folder control



automacro dbdanbdb {
map ve_fild03
monster not Drosera, Muscipular, Magmaring, Yellow Plant, Red Plant, Green Plant, Blue Plant, Shining Plant, White Plant ##nama monster yang ada di map itu##
run-once 1
exclusive 1
call {
$monster = "monster $.lastMonster"
catet("$monster")
call dc
}
}

macro dc {
do relog 1200 ##detik bot akan dc##
release all
}

automacro isengwarp {

areaSpell Warp Portal

run-once 1

exclusive 1

call {

$pelaku1 = "warper $.areaSourceName"

if ($.areaDist < 3) call iseng

$w = 1

while ($w != 0) as loop

$w = spell("Warp Portal")

$xw = @eval ($::char->{pos_to}{x})

$yw = @eval ($::char->{pos_to}{y})

$xs = @arg("$.areaPos", 1)

$ys = @arg("$.areaPos", 2)

if ($xs = $xw && $ys = $yw) goto bahaya

goto end

:bahaya

$i = 1

$w = 0

:end

pause 0.5

end loop

if ($i = 1) call iseng

release isengwarp

}

}

macro iseng {

pub("iseng ya", "password")

catet("$pelaku1")

do e shy

$w = 1

while ($w != 0) as loop1

$w = spell("Warp Portal")

end loop1

pause 1

do chat leave

$i = 0

release all

}

sub catet{
my $pelaku = $_[0];
open (F, ">>:utf8", "../../control/pelaku.txt") or open (F, ">>:utf8", "./control/pelaku.txt");
print F "$pelaku\n";
close (F);
}

sub spell{
use Misc;
use strict;
for my $ID (@spellsID) {
my $spell = $spells{$ID};
my $statuses = $_[0];
my $spactor = getActorName($spell->{sourceID});
next unless $spell;
return $spactor if existsInList($statuses, getSpellName($spell->{type}))
}
return 0;
}

sub pub{
my $title = $_[0];
my $users = 2;
my $public = 0;
my $password = $_[1];
$messageSender->sendChatRoomCreate($title, $users, $public, $password);
}