Forum Home > Macros.txt > Warp Seller Bot | ||
---|---|---|
Administrator Posts: 51 |
automacro a { delay 3 console /You are sitting./i call { do ignore 1 all if (@invamount (Blue Gemstone) == 0) goto qk pause 1 do chat create "Morroc-26K|AlDe-28K|Prontera-25k" 2 0 siyete # A, B, C, D = Chatroom title pause 1 do sit stop
:qk lock a lock b lock c lock d lock e lock f do chat create "Out of Order" 2 0 siyete do sit stop }
}
automacro b { console /(.*?) \(level (\d*)\) Requests a Deal/ call { do deal $name = $.lastMatch1 $bufs = $.lastMatch1 do chat modify "$name Exact Amount Please~!!" 2 0 siyete pause 1 do pm "$name" "Morroc-26K|AlDe-28K|Prontera-25k" pause 3 # Cancel the deal in x seconds if the buyer no action do deal pause 2 do deal pause 5 do deal no
stop } }
automacro c { console /^(.*) added Item to Deal: (.*) x (.*)$/i call { if ($.lastMatch2 != "Blue Gemstone") goto end #Cancel the deal in x seconds if the buyer no action after put on Blue Gemstone pause 10 do deal no stop :end # Cancel the deal if the buyer put on the items do deal no stop } }
automacro d { console /(.*) added (.*) z to Deal/ call { $a = $.lastMatch2 if ($a == 26,000) goto bb if ($a == 25,000) goto bb if ($a == 28,000) goto bb # $a = ".*" = The price you want to sell pause 2 # Cancel the deal if the gained zeny != the price you sell do deal no stop :bb pause 1 do deal pause 1 do deal #Cancel the deal in x seconds if the buyer no action after put on the zeny pause 10 do deal no stop } }
automacro e { console /^You gained (.+?) zeny.$/ call { lock b lock d do chat leave $a = $.lastMatch1 if ($a == 26,00) goto a1 if ($a == 25,000) goto b2 if ($a == 28,000) goto c3 #$a = ".*" = The price you want to sell :a1 call warp1 stop :b2 call warp2 stop :c3 call warp3 stop release all } }
macro warp1 { do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "ICE-1500 \n"; close FILE; # The record will record airplane's operation condition,this is the warp point one -> A # And so no B, C, D...
$aa1 = @Invamount (Blue Gemstone) # Check the number of the bluestone "before" warp $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 2 do warp morocc pause 1 # map a = morocc # pause 1 # do c Morroc Town Map Opened. $aa2 = @Invamount (Blue Gemstone) # Check the number of the bluestone "after" warp if ($aa1 == $aa2) goto ax # If the number of bluestone before warp match that of after warp then regarding as failed, goto :ax stop
:ax do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "ICE-1500 (Failed) \n"; close FILE; # If failed to open the warp,it will print "A-2000 (Failed)" ,that you will know maybe you should change the position # And so no B, C, D... pause 2 do c Failed to open do c Just try again call axx # Run macro axx stop }
macro axx { call warp1 # Run macro warp1 }
# And so on..
macro warp2 { do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "GEO-2000 \n"; close FILE; $bb1 = @Invamount (Blue Gemstone) $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 2 do warp prontera pause 2 # map c = prontera # pause 1 # do c Prontera Town Map Opened. pause 2 $bb2 = @Invamount (Blue Gemstone) if ($bb1 == $bb2) goto bx stop
:bx do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "GEO-2000 (Failed) \n"; close FILE; pause 2 do c Failed to open do c Just try again call bxx stop }
macro bxx { call warp2 }
macro warp3 { do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "MOSCO-2500 \n"; close FILE; $cc1 = @Invamount (Blue Gemstone) $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 2 do warp aldebaran pause 2 # map b = aldebaran # pause 1 # do c Al De Baran Opened. pause 2 $cc2 = @Invamount (Blue Gemstone) if ($cc1 == $cc2) goto cx stop
:cx do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE MOSCO-2500 (Failed) \n"; close FILE; pause 2 do c Failed to open do c Just try again call cxx stop }
macro cxx { call warp3 }
automacro f { console /You opened Warp Portal on \((.*), (.*)\)/ call { do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "-------------- \n"; close FILE; do c @random("Maraming Salamat Kaibigan !!","Maraming Salamat Kaibigan !!","Maraming Salamat Kaibigan !!","Maraming Salamat Kaibigan !!","Maraming Salamat Kaibigan !!")
do sp "Increase AGI" @player($name) 10 do sp "Blessing" @player($name) 10 do sp "Impositio Manus" @player($name) 5 do sp "Kyrie Eleison" @player($name) 10
if (@invamount (Blue Gemstone) == 0) goto qk pause 3 do chat create "Morroc-26K|AlDe-28K|Prontera-25k" 2 0 siyete release b release d pause 3 do sit stop :qk lock a lock b lock c lock d lock e lock f do chat create "Out of Order" 2 0 siyete do sit stop } }
automacro debugA { console /(.*) \((\d+)\): You gained (.*) zeny./i priority 1 call { $i = $.lastMatch2 if ("$i" != "") goto ok :ok release all stop } }
automacro debugB { console /(From: (.*)) : You gained (.*) zeny./i priority 1 call { $i = $.lastMatch2 if ("$i" != "") goto ok :ok release all stop } }
automacro dealcancelled { console /^Deal Cancelled$/i delay 2 call { do chat modify "Morroc-26K|AlDe-28K|Prontera-25k" 2 0 siyete do chat create "Morroc-26K|AlDe-28K|Prontera-25k" 2 0 siyete
do sit release all } }
#automacro umay{ #console /buff/ #call fb #} # #macro fb{ #do chat leave #log @player($.lastMatch2) #do sp "Increase AGI" @player($bufs) 10 #do sp "Blessing" @player($bufs) 10 #do sp "Impositio Manus" @player($bufs) 5 #do sp "Kyrie Eleison" @player($bufs) 10 #do chat create "Morroc-26K|AlDe-28K|Prontera-25k" 2 0 siyete #do sit #release all #}
| |
| ||