can you help me guys.
This is my code
#######################################
########Avoid Strong Monsters################
#######################################
automacro AvoidStrongMonsters {
#list of monsters to avoid:
monster Amon Ra, Archangeling, Baphomet, Bacsojin, Dark Illusion, Dark Lord, Detale, Doppelganger, Dracula, Drake, Eddga, Dark Snake Lord, Garm, Egnigem Cenia, Golden Thief Bug, Incantation Samurai, Lady Tany, Lord of Death, Maya, Maya Purple, Mistress, Moonlight, Mutant Dragon, Orc Hero, Orc Lord, Osiris, Pharaoh, Phreeoni, RSX-0806, Stormy Knight, Tao Gunka, Thanatos, Turtle General, Vesper, Howard Alt-Eisen, Seyren Windsor, Eremes Guile, Margaretha Sorin, Cecil Damon, Kathryne Keyron, Lord Knight Seyren, Assassin Cross Eremes, Whitesmith Howard, High Priest Margaretha, Sniper Cecil, High Wizard Kathryne, Morroc's Shadow Angel, Vocal, Morroc's Shadow Human, Abysmal Knight, Thanatos, Memory of Thanatos, Thanatos Despero, Despero of Thanatos, Thanatos Dolor, Dolor of Thanatos, Thanatos Maero, Maero of Thanatos, Thanatos Odium, Odium of Thanatos, Incantation Samurai, Samurai Specter, Incarnation of Morroc, Incarnation of Morroc, Sniper Shecil, Sniper Cecil, Bloody Knight, Knight Guardian, Knight of Abyss, Abysmal Knight, Knight of Windstorm, Stormy Knight, Lord Knight Seyren, Archdam, Archer Guardian, Acidus, Agav Alicel, Aliot, Amon Ra, Ancient Mimic, Ancient Mummy, Ancient Worm, Anolian, Anubis, Apocalypse, Armaia, Armeyer Dinze, Assassin Cross Eremes, Atroce, Aunoe, Bacsojin, White Lady, Baphomet, Banshee, Beelzebub, Bloody Butterfly, Bloody Murderer, Bow Guardian, Bow Master, Byorgue, Cat o' Nine Tails, Chimera, Chung E, Green Maiden, Civil Servant, Mao Guai, Dark Illusion, Dark Lord, Dark Priest, Dark Snake Lord, Evil Snake Lord, Deathword, Death Word, Deleter, Detale, Detarderous, Deviling, Diabolic, Dimik, Doppelganger, Dracula, Drake, Dullahan, Echio, Eddga, Entweihen Crothen, Eremes, Eremes Guile, Erend, Errende Ebecee, Executioner, Fallen Bishop, Fallen Bishop Hibram, Fanat, Ferus, Frus, Garden Watcher, Garden Keeper, Garm, Garm Baby, Gazeti, Gemini-S58, Gloom Under Night, Gremlin, Gryphon, Harpy, Harword, Howard Alt-Eisen, Hell Fly, Hellion Revenant, High Priest Magaleta, High Priest Margaretha, High Wizard Katrinn, High Wizard Kathryne, Hodremlin, Hydro, Hydrolancer, Ice Titan, Ifrit, Imp, Fire Imp, Samurai Specter, Incubus, Isilla, Kasa, Katrinn, Kathryne Keyron, Kavac, Kavach Icarus, Kiel, Kiehl, Knight Guardian, Lady Tanee, Lava Golem, Leib Olmai, Loli Ruri, Lord Knight Seyren, Lord of Death, Lord of the Dead, Magaleta, Margaretha Sorin, Majoruros, Marozka's Guard, Mavka, Maya, Maya Purple, Medusa, Mini Demon, Monemus, Mutant Dragon, Mutant Dragonoid, Mysteltainn, Naght Seiger, Necromancer, Nightmare Terror, Observation, Dame of Sentinel, Owl Baron, Owl Duke, Penomena, Pharaoh, Phendark, Piamette, Ragged Zombie, Rawrel, Laurell Weinder, Retribution, Baroness of Retribution, RSX 0806, RSX-0806, Salamander, Satan Morroc, Seyren, Seyren Windsor, Shecil,Cecil Damon, Shelter, Mistress of Shelter,, Shinobi, Skeggiold, Skogul, Sniper Shecil, Sniper Cecil, Soldier Guardian, Succubus, Sword Guardian, Sword Master, Thanatos, Memory of Thanatos, The Immortal Koshei, Thorn of Magic, Thorn of Purification, Thorn of Recovery, Thorny Skeleton, Tirfing, Ogretooth, Tristan III, Dead King, Ungoliant, Valkyrie, Valkyrie Randgris, Vanberk, Venatu, Vesper, Violy, Whitesmith Harword, Mastersmith Howard, Wicked Nymph, Evil Nymph, Wish Maiden, Wounded Morroc, Ygnizem, Egnigem Cenia, Zombie Slaughter
timeout 3
exclusive 1
call caifora
}
macro caifora {
$Move = 10
$myPos = $.pos
$myPosX = @arg ("$myPos", 1)
$myPosY = @arg ("$myPos", 2)
$monPos = $.lastMonsterPos
$monPosX = @arg ("$monPos", 1)
$monPosY = @arg ("$monPos", 2)
if ($myPosX >= $monPosX) goto leste
if ($myPosX < $monPosX) goto oeste
:leste
if ($myPosY <= $monPosY) goto sudeste
if ($myPosY > $monPosY) goto nordeste
:sudeste
do southeast $Move
do move stop
stop
#do conf follow 1
#pause 1
#do reload config
:nordeste
do northeast $Move
do move stop
stop
#do conf follow 1
#pause 1
#do reload config
:oeste
if ($myPosY <= $monPosY) goto sudoeste
if ($myPosY > $monPosY) goto noroeste
:sudoeste
do southwest $Move
do move stop
stop
#do conf follow 1
#pause 1
#do reload config
:noroeste
do northwest $Move
do move stop
stop
#do conf follow 1
#pause 1
#do reload config
}
automacro sit {
delay 1
console /Other players are not allowed to view your Equipment./
call {
if (@invamount (Blue Gemstone) == 10) goto qk
do move 191 252
pause 3
do chat create "~Nomad~ is now Online" 2 0 4564
pause 1
do chat modify "W>Pront3k|Payon3.2k|Aldebaran3.5k| Geffen4k" 2 0 01305
do sit
# 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 stand
do storageauto
stop
}
}
macro repeat {
do chat modify "W>Pront3k|Payon3.2k|Aldebaran3.5k| Geffen4k" 2 0 01305
do sit
stop
}
automacro deal_cancel {
console /Deal Cancelled/
call {
do e hmm
call repeat
}
}
automacro antiblock {
console /lale .*? requests a deal/i
call {
do deal no
pause 1
do e omg
}
}
automacro b {
console /(.*?) \(level (\d*)\) Requests a Deal/
call {
do deal
$name = $.lastMatch1
do chat modify "Dealing with $name" 2 0 24689
do pm "$name" "Prontera 3k"
do pm "$name" "Payon 3.2k"
do pm "$name" "Aldebaran 3.5k"
do pm "$name" "Geffen 4k"
pause 15
# Cancel the deal in 15 seconds if the buyer no action
do deal no
call repeat
}
}
automacro c {
console /(.*) added Item to Deal: (.*)/
call {
# Cancel the deal if the buyer put on the items
do deal no
do e hmm
call repeat
}
}
automacro d {
console /(.*) added (.*) z to Deal/
call {
$a = $.lastMatch2
if ($a = 3,000) goto bb
if ($a = 3,200) goto bb
if ($a = 3,500) goto bb
if ($a = 4,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
do e omg
call repeat
:bb
pause 1
do deal
pause 1
do deal
#Cancel the deal in 10 seconds if the buyer no action after put on the zeny
pause 10
do deal no
call repeat
}
}
automacro e {
console /You gained (.*) zeny./
call {
lock b
lock d
do chat leave
$a = $.lastMatch1
if ($a = 3,000) goto a1
if ($a = 3,200) goto b2
if ($a = 3,500) goto c3
if ($a = 4,000) goto d4
#$a = ".*" = The price you want to sell
:a1
call warp1
stop
:b2
call warp2
stop
:c3
call warp3
stop
:d4
call warp4
stop
release all
}
}
macro warp1 {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "A-3000 \n"; close FILE;
# The record will record airplane's operation condition,this is the warp opint 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,1))
$x1 = @eval($x - @rand(1,1))
$y0 = @eval($y - @rand(1,1))
do sl 27 @random("$x0", "$x1") $y0
pause 3
do c Prontera yan, Sama na haha, Murang mura ang warp!!
do warp 0
pause 5
# map a = The map name
pause 3
$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 "A-3000 (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 1
do c Failed to open
do c Please wait...
call axx
# Run macro axx
}
macro axx {
call warp1
# Run macro warp1
}
# And so on..
macro warp2 {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "B-3200 \n"; close FILE;
$bb1 = @Invamount (Blue Gemstone)
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,1))
$x1 = @eval($x - @rand(1,1))
$y0 = @eval($y - @rand(1,1))
do sl 27 @random("$x0", "$x1") $y0
pause 3
do c Payon yan, Sama na haha, Murang mura ang warp!!
do warp 1
pause 5
# map b = The map name
pause 3
$bb2 = @Invamount (Blue Gemstone)
if ($bb1 == $bb2) goto bx
stop
:bx
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "B-3200 (Failed) \n"; close FILE;
pause 1
do c Failed to open
do c Please wait...
call bxx
}
macro bxx {
call warp2
}
macro warp3 {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "C-3500 \n"; close FILE;
$cc1 = @Invamount (Blue Gemstone)
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,1))
$x1 = @eval($x - @rand(1,1))
$y0 = @eval($y - @rand(1,1))
do sl 27 @random("$x0", "$x1") $y0
pause 3
do c Aldebaran Yesss... Pasookk na.. Lilipad na tayu
do warp 2
pause 5
# map c = The map name
pause 3
$cc2 = @Invamount (Blue Gemstone)
if ($cc1 == $cc2) goto cx
stop
:cx
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "C-3500 (Failed) \n"; close FILE;
pause 1
do c Failed to open
do c Please wait...
call cxx
}
macro cxx {
call warp3
}
macro warp4 {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "D-4000 \n"; close FILE;
$dd1 = @Invamount (Blue Gemstone)
$x = @arg("$.pos", 1)
$y = @arg("$.pos", 2)
$x0 = @eval($x + @rand(1,1))
$x1 = @eval($x - @rand(1,1))
$y0 = @eval($y - @rand(1,1))
do sl 27 @random("$x0", "$x1") $y0
pause 3
do c Geffen Yan.. Ariba.. Pasok na mga Abangerzz
do warp 3
pause 5
# map d = The map name
pause 3
$cc2 = @Invamount (Blue Gemstone)
if ($dd1 == $cc2) goto dx
stop
:dx
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "D-4000 (Failed) \n"; close FILE;
pause 1
do c Failed to open
do c Please wait...
call dxx
}
macro dxx {
call warp4
}
automacro f {
console /You opened Warp Portal on \((.*), (.*)\)/
call {
do eval open(FILE, ">>", Settings::getControlFilename("recorder.txt")); print FILE "-------------- \n"; close FILE;
do c Good Luck!
do sit
if (@invamount (Blue Gemstone) == 10) goto qk
pause 1
release antiblock
release b
release d
do chat create "~Nomad~ is now Online" 2 0 4564
do sit
pause 1
call repeat
stop
:qk
lock a
lock b
lock c
lock d
lock e
lock f
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 itemdealcancel {
console /^(.*) added item to deal: (.*) x (.*)/i
exclusive 1
call {
do deal no
}
}
automacro RelogMe {
run-once 0
aggressives >= 2
hp < 20%
call {
do relog 60
}
}