Jasa warp macro

automacro one {
location Payon
run-once 1
call ones
}
macro ones {
do sit
pause 2
do chat create "Geo 800 | Ho ct 801 | Magma 802" 2 0 1111
release one
}

automacro two {
console /to start dealing, or 'deal no' to deny the deal./i
run-once 1
call {
do deal
}
}

automacro three {
console /finalized the Deal/i
call {
do deal
}
}

automacro four {
location Payon
run-once 1
exclusive 1
call fours
}
macro fours {
$.caller = automacro ones
$i = @player ($.lastrequest deal)
$.status = You gained 800 zeny.
$.status1 = You gained 801 zeny.
$.status2 = You gained 802 zeny.
$.zeny = 800
$.zeny1 = 801
$.zeny2 = 802
$posx = @rand (1,7)
$posy = @rand (1,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;}
$mex = @arg ("$.pos", 1)
$mey = @arg ("$.pos", 2)
$herex = @eval ($mex + $posx)
$herey = @eval ($mey + $posy)
if (@invamount(Blue Gemstone) == 0) goto nogem
if ($.status == $zeny ) goto Geo
if ($.status1 == $zeny1 ) goto HO
if ($.status2 == $zeny2 ) goto Magma
:nogem
do c no gem
pause 0.2
do c sebentar y saya ambil gem dulu
pause 0.2
do chat leave
pause 0.1
do autostorage
:Geo
do chat leave
pause 0.3
do e thx
pause 0.4
do sp 34 $i 10
pause 0.2
do sp 29 $i 10
pause 0.5
do sl 27 $herex $herey
pause 2
do warp 2
pause 1
log You gained 800 zeny.
goto end
:HO
do chat leave
pause 0.3
do e thx
pause 0.4
do sp 34 $i 10
pause 0.2
do sp 29 $i 10
pause 0.5
do sl 27 $herex $herey
pause 2
do warp 1
pause 1
log You gained 801 zeny.
goto end
:Magma
do chat leave
pause 0.3
do e thx
pause 0.4
do sp 34 $i 10
pause 0.2
do sp 29 $i 10
pause 0.5
do sl 27 $herex $herey
pause 2
do warp 3
pause 1
log You gained 802 zeny.
goto end
:end
do c Thx sudah memakai Jasa Warp dari Kami....
pause 0.2
do sit
pause 0.6
do chat create "Geo 800 | Ho ct 801 | Magma 802" 2 0 1111
log You are sitting.
release all
}


###########################################
Nama pub, harga dan warpnya di sesuiaikan
dengan anda
From: skynozz/Norman
###########################################