Wednesday, February 8, 2012

Bot Macro Warp Seller

automacro one {
console /You are sitting./i
call {
do chat create "Mosco 2.5K,ICE1.5K,GEO2K,Alde4K" 2 0 1749 (THIS IS FOR PUB)
do sit
}
}


automacro antiblock { (IF THE WARP BUYER DEALS YOUR CHAR)
console /lale .*? requests a deal/i
call {
do deal no
pause 1
do e omg
}
}


automacro two { (YOUR CHAR WILL PM THE WARP BUYER)
console /(.*?) .*? requests a deal/i
call {
do pm "$.lastMatch1" Mosco 2.5K,ICE1.5K,GEO2K,Alde4K
do pm "$.lastMatch1" Please Pay Exact Amount. Or Else You Will Waste Your Money.
do pm "$.lastMatch1" Thank You For Your Cooperation!
}
}


automacro three { (IF THE BUYER PAY EXACT AMOUNT THE WARP WILL TRIGGERED)
console /You gained 2,500 zeny./i
exclusive 1
call {
do chat leave
do stand
pause 1
pause 1
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,3))
$x1 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 @random("$x0", "$x1") $y0
pause 1
do warp mosk_fild02
do c This warp goes to Moscovia. Thanks!
do sp "Heal" "$.lastMatch1" 6
do sp "Blessing" "$.lastMatch1" 10
do sp "Increase Agi" "$.lastMatch1" 10
do e thx
do e go
do sit
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "MOSCO-2500 \n"; close FILE;
do chat create "Mosco 2.5K,ICE1.5K,GEO2K,Alde4K" 2 0 1749
}
}

automacro four { (IF THE BUYER PAY EXACT AMOUNT THE WARP WILL TRIGGERED)
console /You gained 1,500 zeny./i
exclusive 1
call {
do chat leave
do stand
pause 1
pause 1
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,3))
$x1 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 @random("$x0", "$x1") $y0
pause 1
do warp ra_fild01
do c This warp goes to Ice Dungeon. Thanks!
do sp "Heal" "$.lastMatch1" 6
do sp "Blessing" "$.lastMatch1" 10
do sp "Increase Agi" "$.lastMatch1" 10
do e thx
do e go
do sit
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "ICE-1500 \n"; close FILE;
do chat create "Mosco 2.5K,ICE1.5K,GEO2K,Alde4K" 2 0 1749
}
}

automacro five { (IF THE BUYER PAY EXACT AMOUNT THE WARP WILL TRIGGERED)
console /You gained 2,000 zeny./i
exclusive 1
call {
do chat leave
do stand
pause 1
pause 1
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,3))
$x1 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 @random("$x0", "$x1") $y0
pause 1
do warp ein_fild07
do c This warp goes to Geographer's Map. Thanks!
do sp "Heal" "$.lastMatch1" 6
do sp "Blessing" "$.lastMatch1" 10
do sp "Increase Agi" "$.lastMatch1" 10
do e thx
do e go
do sit
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "GEO-2000 \n"; close FILE;
do chat create "Mosco 2.5K,ICE1.5K,GEO2K,Alde4K" 2 0 1749
}
}


automacro six { (IF THE BUYER PAY EXACT AMOUNT THE WARP WILL TRIGGERED)
console /You gained 4,000 zeny./i
exclusive 1
call {
do chat leave
do stand
pause 1
pause 1
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,3))
$x1 = @eval($x - @rand(1,3))
$y0 = @eval($y - @rand(1,3))
do sl 27 @random("$x0", "$x1") $y0pause 1
do warp aldebaran
do c This warp goes to the City of Aldebaran. Thanks!
do sp "Heal" "$.lastMatch1" 6
do sp "Blessing" "$.lastMatch1" 10
do sp "Increase Agi" "$.lastMatch1" 10
do e thx
do e go
do sit
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "ALDE-4000 \n"; close FILE;
do chat create "Mosco 2.5K,ICE1.5K,GEO2K,Alde4K" 2 0 1749
}
}