[b][size=4][color="#FF0000"]MACRO WARP 3 KOTA+HEal and AGI[/color][/size][/b]
[b]note :[/b] - [i]jangan lupa set harga tiap kota and harus berbeda, karena merupakan pemicu triger[/i]
- [i]Bahasa komputer di ubah pakai bahasa [b]Indonesia[/b][/i]
automacro one {
console /Anda duduk./i
call {
do chat create "J>Goat 2.5k|Ice 2k,Geo 1.8k|+paket" 2 0 1111
}
}
automacro two {
console /(.*) \(level (\d+)\) Mengajukan Transaksi/i
call {
do pm "$.lastMatch1" Warp ke GEO 1.800 z
do pm "$.lastMatch1" Warp ke ICe - 2.000 z
do pm "$.lastMatch1" Warp ke Goat - 2.500 z
do pm "$.lastMatch1" Kesalahan/kegagalan Warp bukan tanggung jawab kami
}
}
automacro three {
console /Anda mendapatkan 1.800 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e heh
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...","Warp akan di buka, 30 detik warp portal akan tertutup...","Kamu membayar saya, saya akan menolongmu warp,mudah khan...")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 1
:loop
$posx = @rand (1,2)
$posy = @rand (1,2)
$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 ein_fild04
}
}
automacro four {
console /Anda mendapatkan 2.000 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e heh
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...","Warp akan di buka, 30 detik warp portal akan tertutup...","Kamu membayar saya, saya akan menolongmu warp,mudah khan")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 2
:loop
$posx = @rand (1,2)
$posy = @rand (1,2)
$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 ra_fild01
}
}
automacro five {
console /Anda mendapatkan 2.500 zeny./i
set repeat 1
call {
do chat leave
pause 1
do e heh
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...","Warp akan di buka, 30 detik warp portal akan tertutup...","Kamu membayar saya, saya akan menolongmu warp,mudah khan")
do e thx
$distance = $.lastMatch2
$namaPlayer = $.lastMatch3
$playerID = $.lastMatch4
$i = @player($namaPlayer)
$warpslot = 3
:loop
$posx = @rand (1,2)
$posy = @rand (1,2)
$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 ein_fild06
}
}
:smiley_beer: Enjoy and Happy Warper :00100000:
