Macro

ferry_gukguk · Aug 11, 2010

omsusan said:
@om ferry
Iya kaya anti bot gitu... saya klo mau masuk biasanya talk textnya tulis manual pas consol jalan...
masalahnya klo tiba2 dc trus ga diawasin kan ga isa balik lagi...
klo pas jalan manual saya pake
talk npcnya
talk resp 0
talk text ..... nah klo pas manual kan keliatan di consolnya,
klo mau dibikin jadi auto gimana??
ada ga coding macro byar dya bisa ngambil 5 huruf dari blakang kata2 yang dikeluarin sama npc, kaya di coding excel gitu

hmm apa kata2 npc itu tetep setiap waktu nya?
apa beda2?

dicoba paling pake console + regexp

eday34 · Aug 11, 2010

kata2 npc setiap mau kita ngomong beda di angkanya doank...

sori oot.. maksudnya console + regexp apaan?

081553022277 · Aug 11, 2010

di folder openkore gw koq g ada macronya kk??
tolongin donk,apa yg hrs aq + in??

ferry_gukguk · Aug 15, 2010

gilaloe said:
di folder openkore gw koq g ada macronya kk??
tolongin donk,apa yg hrs aq + in??

yang harus di tambahin macro plugins
cari aja di web openkore ny

reindheart · Aug 16, 2010

FerryGukguk said:
@reindheart
yang musti di edit,
ntar kalo posting scirpt ky d atas pake tag yah..

trus,
console nya di ganti kk,
jadi trigged nya pas ada char guild di layar

tapi biasanya yang otomatis kaya gitu yang spiriter nya di 1grup sama player yg otomatis d spirit ny..
jadi ga pake macro, main ny d config

maaf kk ferry ngulang, maksutnya tirigerd pas ada char guild gimana? biasa di kasih contoh consolenya gimana? maklum masih bingung eheheheh

ferry_gukguk · Aug 17, 2010

reindheart said:
maaf kk ferry ngulang, maksutnya tirigerd pas ada char guild gimana? biasa di kasih contoh consolenya gimana? maklum masih bingung eheheheh

pake 1 grup aja lebih gampang kok kk.
1 grupin
trus pake partySkill :wink:

reindheart · Aug 18, 2010

FerryGukguk said:
pake 1 grup aja lebih gampang kok kk.
1 grupin
trus pake partySkill :wink:

nda om ferry sekalian aku mau belajar macros perasaan di kore kalo ada orang muncul di layar gak nonggolin apa2 deh heem jadi gimana biar trigerdnya ke panggil pas pas anggota guild ada di layar heem

gunknight · Aug 19, 2010

om mau tanya dong kok pas mau ngebot spirit soul linker, jadi kayak begini

Can't locate object method "statusActive" via package "Actor : You" at plugins/macro/Macro/Automacro.pm line 269.

itu kira kira automacro.pm nya di apain ya?
thx ya sebelumnya

chilo1 · Aug 30, 2010

@reindhart : itu buat autobuff yah? coba pake config party skill trus di bawahnya tambahin target_isGuild & notPartyOnly 1
itu auto trigger pas anggota guild muncul di layar jangkauan bot ntar dia auto buff

ferry_gukguk · Aug 31, 2010

reindheart said:
nda om ferry sekalian aku mau belajar macros perasaan di kore kalo ada orang muncul di layar gak nonggolin apa2 deh heem jadi gimana biar trigerdnya ke panggil pas pas anggota guild ada di layar heem

coba liat squelchDomains di config ada value apa?
biasa nya ada kok,..
kalo engga juga ada nama player sama distance yang muncul di console ny..

bhamgun said:
om mau tanya dong kok pas mau ngebot spirit soul linker, jadi kayak begini

Can't locate object method "statusActive" via package "Actor : You" at plugins/macro/Macro/Automacro.pm line 269.

itu kira kira automacro.pm nya di apain ya?
thx ya sebelumnya

bole di liat macros.txt nya?
kalo kira2 macros.txt ga ada error, coba macro plugins nya di reinstall, (copy paste sama macro plugins yang baru)

gunknight · Sep 8, 2010

FerryGukguk said:
coba liat squelchDomains di config ada value apa?
biasa nya ada kok,..
kalo engga juga ada nama player sama distance yang muncul di console ny..

bole di liat macros.txt nya?
kalo kira2 macros.txt ga ada error, coba macro plugins nya di reinstall, (copy paste sama macro plugins yang baru)

udah bisa om hehe,
trus saya mau tanya lagi nih, di PS yg saya mainin ada NPC kayak judi gitu, pas saya mau cari pake command nl, gak ada NPC yang kedeteksi, tapi pas ml, jadi ada ( sepertinya ditukar monster dengan NPC)
itu gimana ya caranya supaya bisa jalan botnya?
thanks

ferry_gukguk · Sep 8, 2010

bhamgun said:
udah bisa om hehe,
trus saya mau tanya lagi nih, di PS yg saya mainin ada NPC kayak judi gitu, pas saya mau cari pake command nl, gak ada NPC yang kedeteksi, tapi pas ml, jadi ada ( sepertinya ditukar monster dengan NPC)
itu gimana ya caranya supaya bisa jalan botnya?
thanks

sip,

itu biasanya salah serverType,
dicoba antara 8 sampe 8_5
jangan lupa paket nya di extract ya pake packet extractor..

gunknight · Sep 9, 2010

FerryGukguk said:
sip,

itu biasanya salah serverType,
dicoba antara 8 sampe 8_5
jangan lupa paket nya di extract ya pake packet extractor..

saya udah ikutin saran kk dan ternyata BERHASIL asiiik hahaha thanks ya kk

Jesc · Nov 9, 2010

Hay all..i lagi blajar macro nih..lagi coba2 di PS sih sblum maen ke idRO..mo nanya nih, ini macro i di bawah uda ke trigger, tapi masalahnya cuma 1..abis reload SP, & balik lagi ke tempat hunt..kok bot nya diem ya..ga mo lanjutin huntnya..salah dimanakah?

Code:

automacro isihp {
map cmd_fild04
sp < 10% 
run-once 1
call isihp2
}

macro isihp2 {
do c @go 11    #tele ke gonryun
do talknpc 164 130 c n    #npc healer
pause 3
do talknpc 151 130 c c r0 c n   #npc portal, back to cmd_fild04
pause 1
release all
}

salah dimana ya?

ferry_gukguk · Nov 15, 2010

Jesc said:
Hay all..i lagi blajar macro nih..lagi coba2 di PS sih sblum maen ke idRO..mo nanya nih, ini macro i di bawah uda ke trigger, tapi masalahnya cuma 1..abis reload SP, & balik lagi ke tempat hunt..kok bot nya diem ya..ga mo lanjutin huntnya..salah dimanakah?

Code:

automacro isihp { map cmd_fild04 sp < 10% run-once 1 call isihp2 } macro isihp2 { do c @go 11 #tele ke gonryun do talknpc 164 130 c n #npc healer pause 3 do talknpc 151 130 c c r0 c n #npc portal, back to cmd_fild04 pause 1 release all }

salah dimana ya?

coba d macro ny d tambah reload all sesudah release all

titoet · Nov 17, 2010

kk maff kalau leech ya bingung banget soalnya bahasa macro . ada macro buat buffer party gak ?? selama ini saya pake yang partyskill ( yang di config ) thx ya ( maff kalau tulisan ane agak membingungkan )

ferry_gukguk · Nov 18, 2010

adiy said:
kk maff kalau leech ya bingung banget soalnya bahasa macro . ada macro buat buffer party gak ?? selama ini saya pake yang partyskill ( yang di config ) thx ya ( maff kalau tulisan ane agak membingungkan )

cek disini bro

Code:

http://www.nyit-nyit.net/index.php?/topic/23017-share-macro/

RnDy · Feb 6, 2011

gan ..
ane punya problem macro soullink nih.. tentang masalah jarak nya .. tolong di cross check yak gan ..
iki gag mau kasi sprit dari jarak mana pun .. tetep jawabanya dari bot nya command :jauh

nih macro nya gan ..

Code:

automacro link {
console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (\*Kiss\*|\*Kiss 2\*|\*Flag\s\d\*)$/
sp > 10%
call linker
}

macro linker {
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$playerguild = @eval (exists $::players{$::playersID[$playerID}->{guild} ? $::players{$::playersID[$playerID]}->{guild}{name} : 

'null')

#Nama guild yg mau di Paket
$guild1 = Avazor Reborn
$guild2 = Gold Saint Zodiac
$guild3 = PirateS OfThE CaribbeaN
$guild4 = My LiFe Mu RuLeS

if ($playerguild == $guild1) goto ok
if ($playerguild == $guild2) goto ok
if ($playerguild == $guild3) goto ok
if ($playerguild == $guild4) goto ok
goto lain

:ok
if ($distance > 5) goto jauh
do e lv

:ok
if ($distance > 5) goto jauh
$jobID = @eval ($::players{$::playersID[$id]}->{jobID})
if ($jobID = 7) goto knight
if ($jobID = 13) goto knight
if ($jobID = 4008) goto knight
if ($jobID = 4014) goto knight
if ($jobID = 12) goto assassin
if ($jobID = 4013) goto assassin
if ($jobID = 10) goto smith
if ($jobID = 4011) goto smith
if ($jobID = 14) goto paladin
if ($jobID = 21) goto paladin
if ($jobID = 4015) goto paladin
if ($jobID = 4022) goto paladin
if ($jobID = 4012) goto sniper
if ($jobID = 11) goto sniper
if ($jobID = 16) goto professor
if ($jobID = 4017) goto professor
if ($jobID = 8) goto priest
if ($jobID = 4009) goto priest
if ($jobID = 15) goto champion
if ($jobID = 4016) goto champion
if ($jobID = 4010) goto wizard
if ($jobID = 4018) goto stalker
if ($jobID = 18) goto creator
if ($jobID = 4019) goto creator
if ($jobID = 4020) goto clown
if ($jobID = 4021) goto clown
if ($jobID = 19) goto clown
if ($jobID = 20) goto clown
if ($jobID = 4047) goto star
if ($jobID = 4049) goto soul
if ($jobID = 23) goto snoob
goto jauh

:jauh
do e e5
do c Jangan Jauh" Kali, $namaPlayer ~~
goto end	

:lain
do e fst
do c Mau Gratisan ??
stop
release link

:end
release link

:snoob
do sp 451 $id
stop
release link

:star
do sp 448 $id
stop
release link
:soul
do sp 461 $id
stop
release link
:knight
do sp 452 $id
stop
release link
:priest
do sp 454 $id
stop
release link
:wizard
do sp 453 $id
stop
release link
:smith
do sp 458 $id
stop
release link
:sniper
do sp 460 $id
stop
release link
:assassin
do sp 457 $id
stop
release link
:paladin
do sp 450 $id
stop
release link
:champion
do sp 447 $id
stop
release link
:professor
do sp 449 $id
stop
release link
:creator
do sp 445 $id
stop
release link
:clown
do sp 455 $id
stop
release link
:stalker
do sp 456 $id
stop
release link
}


automacro SPAbis {
console /\[(jarak|dist)=(.*)\] (.*) \((\d+)\): (\*Kiss\*|\*Kiss 2\*|\*Flag\s\d\*)$/
sp < 20%
call Abis
}

macro Abis {
do e e32
do c sp gw gan, abis.. >.<
do c sabar yo??
release SPAbis
}

tolong pencerahanya ya gan ..

kmpg · Feb 7, 2011

Kakak2 ada yang bisa bantu ga?
casenya gini:
saya mau nyediain jasa warp, macro yang saya dapet dari N3 dah jalan tapi kadang client warpnya suka buru2 dan berdiri di area warp, jadi gagal deh warpnya jadi saya pingin di buka warp ulang untuk itu. tapi sampe sekarang lom menemukan titik temu

, berikut macro saya. mohon sedianya kakaq2 mengoreksi.

Terima kasih

Code:

automacro one {
console /Anda duduk./i
call {
do chat create "Veins 5000|TV 5001|Mosco 5002" 2 0 1111
}
}

automacro two {
console /(.*) \(level (\d+)\) Mengajukan Transaksi/i
call {
do pm "$.lastMatch1" Warp ke Veins 5.000 z
do pm "$.lastMatch1" Warp ke TV  5.001 z
do pm "$.lastMatch1" Warp ke Mosco 5.002 z
do pm "$.lastMatch1" Kesalahan/kegagalan Warp bukan tanggung jawab kami
}
}

automacro three {
console /Anda mendapatkan 5.000 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e thx
#do sp 28 "$.lastMatch1" 10
#pause 0.2
#skill blessing
#do sp 34 "$.lastMatch1" 10
#skill increase agi
#pause 1
#do sp 29 "$.lastMatch1" 10
do c @random ("Terima kasih sudah menggunakan Jasa kami, Tolong Jangan Berdiri Diarea WARP!!")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 3

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp veins
}
console /Skill Warp Portal gagal (Kebutuhan)./i
set repeat 1
call {
do c @random ("PLIS DEH, GADA ULANGAN LAGI KALO GAGAL")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 3

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp veins
}
}

automacro four {
console /Anda mendapatkan 5.001 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e thx
#do sp 28 "$.lastMatch1" 10
#pause 0.2
#skill blessing 
#do sp 34 "$.lastMatch1" 10
#skill increase agi
#pause 1
#do sp 29 "$.lastMatch1" 10
do c @random ("Terima kasih sudah menggunakan Jasa kami, Tolong Jangan Berdiri Diarea WARP!!")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 1

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp ve_fild03
}
console /Skill Warp Portal gagal (Kebutuhan)./i
set repeat 1
call {
do c @random ("PLIS DEH, GADA ULANGAN LAGI KALO GAGAL")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 1

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp ve_fild03
}

}

automacro five {
console /Anda mendapatkan 5.002 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e thx
#do sp 28 "$.lastMatch1" 10
#pause 0.2
#skill blessing
#do sp 34 "$.lastMatch1" 10
#skill increase agi
#pause 1
#do sp 29 "$.lastMatch1" 10
do c @random ("Terima kasih sudah menggunakan Jasa kami, Tolong Jangan Berdiri Diarea WARP!!")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 2

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp mosk_fild02
}
console /Skill Warp Portal gagal (Kebutuhan)./i
set repeat 1
call {
do c @random ("PLIS DEH, GADA ULANGAN LAGI KALO GAGAL")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 2

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp mosk_fild02
}
}

ferry_gukguk · Feb 20, 2011

kmpg said:

Kakak2 ada yang bisa bantu ga?
casenya gini:
saya mau nyediain jasa warp, macro yang saya dapet dari N3 dah jalan tapi kadang client warpnya suka buru2 dan berdiri di area warp, jadi gagal deh warpnya jadi saya pingin di buka warp ulang untuk itu. tapi sampe sekarang lom menemukan titik temu

, berikut macro saya. mohon sedianya kakaq2 mengoreksi.

Terima kasih

Code:

automacro one {
console /Anda duduk./i
call {
do chat create "Veins 5000|TV 5001|Mosco 5002" 2 0 1111
}
}

automacro two {
console /(.*) \(level (\d+)\) Mengajukan Transaksi/i
call {
do pm "$.lastMatch1" Warp ke Veins 5.000 z
do pm "$.lastMatch1" Warp ke TV  5.001 z
do pm "$.lastMatch1" Warp ke Mosco 5.002 z
do pm "$.lastMatch1" Kesalahan/kegagalan Warp bukan tanggung jawab kami
}
}

automacro three {
console /Anda mendapatkan 5.000 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e thx
#do sp 28 "$.lastMatch1" 10
#pause 0.2
#skill blessing
#do sp 34 "$.lastMatch1" 10
#skill increase agi
#pause 1
#do sp 29 "$.lastMatch1" 10
do c @random ("Terima kasih sudah menggunakan Jasa kami, Tolong Jangan Berdiri Diarea WARP!!")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 3

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp veins
}
console /Skill Warp Portal gagal (Kebutuhan)./i
set repeat 1
call {
do c @random ("PLIS DEH, GADA ULANGAN LAGI KALO GAGAL")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 3

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp veins
}
}

automacro four {
console /Anda mendapatkan 5.001 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e thx
#do sp 28 "$.lastMatch1" 10
#pause 0.2
#skill blessing 
#do sp 34 "$.lastMatch1" 10
#skill increase agi
#pause 1
#do sp 29 "$.lastMatch1" 10
do c @random ("Terima kasih sudah menggunakan Jasa kami, Tolong Jangan Berdiri Diarea WARP!!")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 1

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp ve_fild03
}
console /Skill Warp Portal gagal (Kebutuhan)./i
set repeat 1
call {
do c @random ("PLIS DEH, GADA ULANGAN LAGI KALO GAGAL")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 1

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp ve_fild03
}

}

automacro five {
console /Anda mendapatkan 5.002 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e thx
#do sp 28 "$.lastMatch1" 10
#pause 0.2
#skill blessing
#do sp 34 "$.lastMatch1" 10
#skill increase agi
#pause 1
#do sp 29 "$.lastMatch1" 10
do c @random ("Terima kasih sudah menggunakan Jasa kami, Tolong Jangan Berdiri Diarea WARP!!")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 2

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp mosk_fild02
}
console /Skill Warp Portal gagal (Kebutuhan)./i
set repeat 1
call {
do c @random ("PLIS DEH, GADA ULANGAN LAGI KALO GAGAL")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 2

:loop
$posx = @rand (1,4)
$posy = @rand (1,4)
$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 loop
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
do sl 27 $herex $herey
pause 1.3
do warp $warpslot
pause 2
do warp mosk_fild02
}
}

itu tinggal kamu trigger console aja..
kalo warp failed, maka buka ulang portal sebanyak settingan retry portal di macros kamu..

Macro

Gukguk Love Cat

PAUD

1 SD

Gukguk Love Cat

3 SD

Gukguk Love Cat

3 SD

PAUD

TK B

Gukguk Love Cat

PAUD

Gukguk Love Cat

PAUD

PAUD

Gukguk Love Cat

2 SD

Gukguk Love Cat

PAUD

PAUD

Gukguk Love Cat