macro warp guild

yang sering woe atau punya guild pasti butuh yang namanya warper untuk warp ke kastil2 yang mau diserang atau defend. ini macro warper guild yang udh di tambah fitur2 tambahan antara lain :
-bisa cek gemstone dengan ketik !gemstone di public chat
-hanya merespon guild yg diinginkan untuk membuka warp
-jika gemstone habis akan memberitahu bahwa gems abis
-hanya menerima trans gems dari auth atau master yang terdaftar di overallAuth.txt
-menolak trans barang lain selain blue gemstone
-jika warp gagal karena cast cancel, ada orang, atau lainnya dia akan otomatis mengulang warp hingga terbuka

untuk pengaturannya sudah saya beri penjelasan dibagian bertanda "###" mohon dibaca dan bisa di edit sesuai yang dibutuhkan


############################### JASA WARP GUILD V.1.0 ###############################
######################## by "Naya" char fnc : amelo , gtx260 ########################
############################# rebirth : naya. , amelo` ##############################
############################ tested at einbroch rebirth #############################

#### sebelum menggunakan macro ini pastikan confignya diatur seperti ini ####
#### dealAuto 1
#### itemsTakeAuto 0
#### itemsTakeAuto_party 0
#### itemsGatherAuto 0
####



#### dibagian ini untuk ngecek jumlah gem dengan whisp !gemstone ####

automacro gems {
pubm /^!gemstone$/
exclusive 1
call {

$nick = $.lastpub
$auth = @eval (defined $::overallAuth{"$nick"} ? $::overallAuth{"$nick"}:"None")
if ($auth == 1) goto ok
goto lain

:ok
$gem = @invamount (Blue Gemstone)
do pm $.lastpub gemstone ada $gem buah
release all
}
}

#### di dalam kurung yg berisi kata lui2|gre2|val2 boleh diganti menjadi kata untuk membuka warp ####
#### jangan lupa mengganti fungsi if yg berisi $tujuan sesuai nomer warpnya ####
#### $guildn bisa diganti atau ditambah sesuai kebutuhan ####
#### jangan lupa menambahkan fungsi if jika menambahkan list guild yg bisa meminta warp ####

automacro warpwarp {
pubm /^(lui2|gre2|val2)$/ 8
run-once 1
call {
$tujuan = $.lastMatch1
$namaPlayer = $.lastpub
$playerID = @player($namaPlayer)
$distance = @eval ($::players{$::playersID[$playerID]}->distance)
$playerguild = @eval (exists $::players{$::playersID[$playerID]}->{guild} ? $::players{$::playersID[$playerID]}->{guild}{name} : 'null')

$guild1 = • Renaissance™ •
$guild2 = abc
$guild3 = 123

if ($playerguild == $guild1) goto sip
if ($playerguild == $guild2) goto sip
if ($playerguild == $guild3) goto sip
goto lain

:sip
if (@invamount (Blue Gemstone) < 4) goto abiss
if ($tujuan = lui2) goto warp1
if ($tujuan = gre2) goto warp2
if ($tujuan = val2) goto warp3

:warp1
$a = 1
call warp
stop

:warp2
$a = 2
call warp
stop

:warp3
$a = 3
call warp
stop

:lain
do c kamu siapa?! aku cuma mau ngasih warp anak $guild1
do e ??
goto end

:abiss
do c gem abis, tolong di trans ya
goto end

:end
release all
}
}

#### kata2 setelah location adalah nama map tempat bot berada ####
#### kata2 setelah look adalah arah bot ####
#### format penulisan adalah "look (no arah badan) (no arah kepala) ####

automacro arah {
location ein_in01
run-once 1
call {
do look 6 0
}
}

#### kata2 setelah location bisa diganti menjadi koordinat tempat menaruh warper ####
#### jangan lupa mengganti koordinat setelah kata move menjadi koordinat tempat ingin menaruh warper ####

automacro posisi {
location not ein_in01 264 226
run-once 1
call {
do move 264 226
release all
}
}

#### ini salah satu contoh jika ingin merandom koordinat warp terbatas pada koordinat tertentu ####
#### kata2 setelah @rand adalah koordinat y warp portal ####
#### dengan penulisan @rand(225,227) berarti warp akan di random pada koordinat y 225,226 dan 227 ####
#### pada kata do sl 27 266 $y 4, angka 226 mewakili koordinat x warp yg diinginkan ####
#### koordinat bisa diganti dengan koordinat yg diinginkan ####

macro warp {
$y = @rand(225,227)
do sl 27 266 $y 4
pause 3
do warp $a
do c ayo semangat! warp ke $tujuan udh kubuka^^
release all
}

automacro castcancel {
console /^Casting has been cancelled/
call {
do c jangan iseng dong!
do e an
pause 2
do c warpnya ku ulang lagi ya
do e sry
call warp
}
}

automacro ulang {
console /^Unable to cast skill Warp Portal in \d+ tries/
call {
call warp
}
}

automacro reload {
console /^You are now in the game/
call {
pause 3
do reload mac
release all
}
}

automacro gagal {
console /^Skill Warp Portal failed/
call {
do c minggir dong jangan nutupin warp
do e an
pause 2
do c warpnya ku ulang lagi ya
do e sry
call warp
}
}

automacro gagal2 {
console /^You didn't cast warp portal/
call warp
}

automacro deal {
console /^(\S+) \(level (\d+)\) Requests a Deal/
overrideAI 1
call {
lock warpwarp
$nick = $.lastMatch1
$auth = @eval (defined $::overallAuth{"$nick"} ? $::overallAuth{"$nick"}:"None")
if ($auth == 1) goto ok
release all
stop

:ok
$i = 15
do deal
do e ok
while ($i > 0) as loop
pause 1
$i--
end loop
do deal no
pause 1
do c lama banget, niat ngasih ga sih?
pause 1
release all
stop
}
}

automacro kasihgem {
console /^(\S+) added Item to Deal: (.*) x (.*)$/i
overrideAI 1
call {
lock warpwarp

:ok
if ($.lastMatch2 == "Blue Gemstone") goto benar
goto end

:benar
pause 1
do deal
pause 2
do deal
while ($i > 0) as loop1
pause 1
$i--
end loop1
goto end

:end
do deal no
do c lama banget, niat ngasih gasih?
call bukapub1
release all
stop
}
}

automacro dptgem {
console /^Item added to inventory: Blue Gemstone/
overrideAI 1
call {
pause 1
do c makasih ya gemnya ^^
release all
stop
}
}