Bot instructions

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

#}