analizem essa macro e vejam se da pra aproveitar algo

#################################Macro Respostas########################################

automacro preventionPlayer01 {
pm /(bot|botter|boti|butter|but|boot)/i
priority 2
overrideAI 0
macro_delay 1
call {
do conf logConsole 1
$preventionPlayer01 = 01
call bancoRespostas
}
}

#automacro preventionPlayer03 {
pubm /(bot|botter|boti|butter|but|boot)/i
priority 3
overrideAI 0
macro_delay 1
call {
do conf logConsole 1
$preventionPlayer03 = 03
call bancoRespostas
}#
}

automacro preventionPlayer02 {
pm /(lvl|lvl\?|level|level\?|lv\?|lv|nivel|nivel\?)/i
priority 4
disabled 0
overrideAI 0
macro_delay 1
call {
do conf logConsole 1
$preventionPlayer02 = 02
call bancoRespostas
}
}

macro bancoRespostas {
do conf logConsole 1
log --- Aviso: Escolhendo respostas no Banco ---

:msgCumprimento
$msgCumprimento001 = @random ("eae!","ola.","oi Oo","e ae xD","ola....","diz")
$msgCumprimento002 = @random ("eae vei","Eae, sussa?!")

:msgExclamacao
$msgExclamacao001 = @random ("noob","wtf?","se eh besta?"," tá doido é?","eu?","lol....","hahahahaha.","^^ looool","ahisohisaoihoasih","UAHAUHAUHAUHAUHAUHAUHAU","lol")

:msgPergunta
$msgPergunta001 = @random ("pq?","por que?","pq quer sabe?","pq","pra que?")
$msgPergunta002 = @random ("quando?","qdo?","onde?","mas quando isso?","quando aconteceu?","o que é isso","Tem certeza?")
$msgPergunta003 = @random ("pq c q sabe?","mas pq?","pq ta perguntando?","pq?")
$msgPergunta004 = @random ("eu?","lol eu?")
$msgPergunta005 = @random ("e vc?","e voce?","e você?","qual o seu?","e o seu?")
$msgPergunta006 = @random ("d novo?","Aff, d novo?","denovo meu?","affe ... de novo?","=PP de novo?","como assim, novamente?","outra vez meu?")
$msgPergunta999 = @random ("pq?","Por que?","pq quer saber","pq","pra que?","quando?","qdo?","onde?","Mas quando isso?","Quando aconteceu?","o que é isso","Tem certeza?",pq vc quer saber?","mas pq?","pq ta perguntando?","Por que?","eu?","lol eu?","e vc?","e voce?","e você?","qual o seu?","e o seu?",d novo?","Aff, d novo?","denovo meu?","affe ... de novo?","=PPP de novo?","como assim, novamente?","outra vez meu?")

:msgAfirmacao
$msgAfirmacao001 = @random ("n viaja cara","larga d c troxa","nao enxe cara","a mano")

:msgPositivo
$msgPositivo001 = @random ("SIM","sim","s","é","é sim","sim vcei")

:msgNegativo
$msgNegativo001 = @random ("n","NÃO","não","ñ","naum","nem é","n é")

:msgAgradecimento
$msgAgradecimento001 = @random ("obrigado.","muito obrigado","vlw","opa, vlw mesmo","thx","thanks","vlw ^^")

:msgRespostasDiversas
$msgRespostasDiversas001 = @random ("d boa cara, nao enxe","eu to de boa aqui","deixa eu de boa aqui")
$msgRespostasDiversas002 = @random ("vo te bloquear","vou bloquear","vo dar ex","ta bloqueado","vo bloquear","aff flw ae","chato pra kara1o, vc ein")

:msgRespostasBot
$msgRespostasBot001 = @random ("nao ","nem vei","n so n","parece?","nem comesa cara","AUSDhusahDSUAHdusAHdu","AOSUDHOUAHDAOSUHDAUS",""asijdsiajdsahdusahudsaudhsaoeoau","se liga ae vei auhauhau")
$msgRespostasBot002 = @random ("jah falei que nao sou bot","de novo? vc eh bobo?","xiispa velho","kkkkkk de novo ,.. uhauahua","meu eu n sou.","de novo ? nao so bot num mano","ee bobo alegre, so bot nao rapa")

:msgRespostasKS
$msgRespostasKS001 = @random ("hahaha...","mal ae sem kerer","=P mal ae","mal ae mano.. na humildade","mal o ks","opa cara desculpa ai.","foi mal ")
$msgRespostasKS002 = @random ("nem vi mano","mal ae nem reparei","eh tenso","lolololol mal ae entao ne xapa","denovo? foi sem querer mano")

:msgRespostasLevel
$msgRespostasLevel001 = @random ("so $.lvl/$.joblvl","$.lvl/$.joblvl","meu level é $.lvl","$.lvl")

:msgDiversas
$msgDiversas001 = @random ("maria das almondegas uahduahsudhsau","conhece o mario?","ow vei vc conhece o mario?","ow vei olha, o apagador está no teto...")

:msgDespedida
$msgDespedida001 = @random ("flw ae","vlw, flw","flw mano","to indo nessa,abrass","flw ae","xau","bye","bye bye","xP flw")

:msgEmotions
$msgEmotions001 = @random ("-.-","-.-'","xD","XD","0.o","Ô.ô","Oo","^^","","O_O")

call responderSituacao
}

macro responderSituacao {
:identificarSituacao
if ($preventionPlayer01 = 01) goto preventionAction01
if ($preventionPlayer02 = 02) goto preventionAction02
if ($preventionPlayer03 = 03) goto preventionAction03
goto fimSituacao

:preventionAction01
if (${$.lastpm} = prevention0101) goto prevention0101
if (${$.lastpm} = prevention0102) goto prevention0102
if (${$.lastpm} = prevention0103) goto prevention0103
if (${$.lastpm} = finalAction01) goto finalAction01

:ignorar01
do conf logConsole 1
log --- Alerta: PM Me chamando de BOT. Jogador: $.lastpm ---
log --- Vamos ignorar esta primeira PM ---
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')

do stand
${$.lastpm} = prevention0101

:prevention0101
do conf logConsole 1
log --- Alerta: PM Me chamando de BOT Novamente. Jogador: $.lastpm ---
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')

do pm "$.lastpm" @random ("$msgRespostasBot001","$msgExclamacao001")
${$.lastpm} = prevention0102
goto finalAction01

:prevention0102
do conf logConsole 1
log --- Alerta: $.lastpm Chamou de BOT pela 3ª Vez. ---
log --- Vamos responde-lo ---
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')

do pm "$.lastpm" @random ("$msgRespostasBot001","$msgRespostasBot002")
${$.lastpm} = prevention0103

goto finalAction01

:prevention0103
do conf logConsole 1
log ----Alerta: $.lastpm Chamou de BOT pela 4ª vez ----
log --- Vamos Responde-lo novamente ---
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\49.error.wav')

do pm "$.lastpm" @random ("$msgEmotions001 $msgRespostasDiversas002","$msgRespostasBot002","$msgRespostasBot001","$msgRespostasDiversas002","$msgRespostasBot001, $msgRespostasDiversas002")
${$.lastpm} = finalAction01
do ignore 1 $.lastpm


goto finalAction01

:finalAction01
log --- Checando Vars ---
log .lastpm é $.lastpm
log $.lastpm tem o valor: $($.lastpm)

$preventionPlayer01 = unset
goto fimSituacao

:preventionAction02
if (${$.lastpm} = prevention0202) goto prevention0202
if (${$.lastpm} = finalAction02) goto finalAction02

:prevention0201
do conf logConsole 1
log ----Alerta: PM Peguntando o Level. User: $.lastpm.----
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\17.welcome.wav')

do pm "$.lastpm" @random ("$msgPergunta001","$msgPergunta003")
pause 5
do pm "$.lastpm" @random ("$msgRespostasLevel001 $msgEmotions001")
${$.lastpm} = prevention0302
goto finalAction02

:prevention0202
do conf logConsole 1
log ----Alerta: NOVAMENTE fui chamado de KS pelo user $.lastpm.----
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')

do pm "$.lastpm" @random ("$msgPergunta006","$msgRespostasDiversas001")
${$.lastpm} = finalAction02
do ignore 1 $.lastpm
goto finalAction03

:finalAction02
log .lastpm é $.lastpm
log $.lastpm tem o valor: $($.lastpm)

$preventionPlayer02 = unset
goto fimSituacao


:preventionAction03
if (${$.lastpub} = prevention0301) goto prevention0301
if (${$.lastpub} = prevention0302) goto prevention0302
if (${$.lastpub} = prevention0303) goto prevention0303
if (${$.lastpub} = finalAction01) goto finalAction01
${$.lastpub} = prevention0301

:prevention0301
log --- Alerta: PUB Me chamando de BOT Novamente. Jogador: $.lastpub ---
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
pause 1
$olhar = @player ($.lastpub)
do lookp $olhar
pause 4
do c @random ("$msgRespostasBot001","$msgExclamacao001")
pause 2
do c pif
pause 3
${$.lastpub} = prevention0302
goto finalAction03

:prevention0302
log --- Alerta: $.lastpm Chamou de BOT pela 2ª Vez. ---
log --- Vamos responde-lo ---
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
pause 3
do c @random ("$msgRespostasBot001","$msgRespostasBot002")
pause 4
$olhar = @player ($.lastpub)
do lookp $olhar
${$.lastpub} = prevention0303
goto finalAction03

:prevention0303
log ----Alerta: $.lastpm Chamou de BOT pela 3ª vez ----
log --- Vamos Responde-lo novamente ---
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
pause 1
pause 2
do sit
pause 0.4
do look 4 5
pause 0.3
do stand
pause 0.3
do sit
pause 0.3
do stand
pause 2
do c hmm
pause 3
do c @random ("$msgEmotions001 $msgRespostasDiversas002","$msgRespostasBot002","$msgRespostasBot001","$msgRespostasDiversas002","$msgRespostasBot001, $msgRespostasDiversas002")
${$.lastpub} = finalAction03
do ignore 1 $.lastpm

goto finalAction01

:finalAction03
log --- Checando Vars ---
log .lastpub é $.lastpub
log $.lastpub tem o valor: $($.lastpub)

$preventionPlayer03 = unset
goto fimSituacao

:fimSituacao
}

automacro charCURAMONSTRO {
console /^Player (.*) uses Heal on Monster|^Player (.*) uses Heal (.*) on Monster/i
macro_delay 0.1
priority 2
disabled 1
exclusive 1
call {

log Algum Player esta : CURANDO MONSTROS
if ($.map = $mapaLock) goto ativa
if ($.map != $mapaLock) goto nativa

:ativa

do conf attackAuto 0
do conf route_randomWalk 0
do move stop
do as
do pl
do ml
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
pause 7
do c ?
pause 6
do c pra q faze isso ?
pause 4
do c isso e abuse skill e da ban
pause 1
do conf attackAuto 0
do conf route_randomWalk 1

:nativa
}
}


automacro estouMudo {
exclusive 1
priority 1
macro_delay 0.1
timeout 120
status muted
call {
do conf teleportAuto_idle 0
do conf teleportAuto_allPlayers 0
log ATENÇÃO
log Voce esta : MUTED
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
do conf attackAuto 1
do conf route_randomWalk 0
do conf itemsTakeAuto 0
pause 6
do move stop
do pl
do ml
pause 5
do sit
pause 5
do c flg6
pause 5
do c ?
pause 5
do c ??
pause 5
do c kis
pause 5
do stand
pause 5
do conf attackAuto 0
do conf route_randomWalk 1
do conf itemsTakeAuto 1
do quit
}
}

automacro gmBUFFS {
console /^Unknown (#100001 |#100007 |#100008 |#100009 |#100010 |#100011 |#100012 |#100013 |#100014 |#100015 |#100016 |#100022 |#100023 |#100024 |#100025 |#100026 |#100027 |#100028 |#100029 |#100030 |#100031 |#799194 |#799195 |#799196 |#799197 |#799198 |#799199 |#799200 |#799201 |#799202 |#799203) uses (.*) on you|Player \[GM\](.*) uses (.*) on you/i
exclusive 1
macro_delay 0.1
priority 1
call gmCHEGOU
}

automacro gmCASTING {
console /^Unknown (#100001 |#100007 |#100008 |#100009 |#100010 |#100011 |#100012 |#100013 |#100014 |#100015 |#100016 |#100022 |#100023 |#100024 |#100025 |#100026 |#100027 |#100028 |#100029 |#100030 |#100031 |#799194 |#799195 |#799196 |#799197 |#799198 |#799199 |#799200 |#799201 |#799202 |#799203) casting (.*) on you|Player \[GM\](.*) casting (.*) on you/i
exclusive 1
macro_delay 0.1
priority 1
call gmCHEGOU
}

automacro gmCURAMONSTRO {
console /^Unknown (#100001 |#100007 |#100008 |#100009 |#100010 |#100011 |#100012 |#100013 |#100014 |#100015 |#100016 |#100022 |#100023 |#100024 |#100025 |#100026 |#100027 |#100028 |#100029 |#100030 |#100031 |#799194 |#799195 |#799196 |#799197 |#799198 |#799199 |#799200 |#799201 |#799202 |#799203) uses Heal (.*) on Monster|Player \[GM\](.*) uses Heal (.*) on Monster/i
exclusive 1
macro_delay 0.1
priority 1
call gmCHEGOU
}

macro gmCHEGOU {
do conf teleportAuto_idle 0
do conf teleportAuto_allPLayers 0
log -- Algum **** GM **** esta te TESTANDO
do conf attackAuto 0
do conf route_randomWalk 0
do conf itemsTakeAuto 0
do as
do pl
do ml
do pause 1
do north 2
pause 1
do east 3
pause 6
do c hmm
pause 4
do c ??
pause 0.4
do look 4
pause 2
do sit
pause 4
do c lol
pause 1
do c hmm
pause 1
do stand
pause 0.3
do look 5
pause 1
do sit
pause 0.3
do stand
pause 0.3
do sit
pause 0.3
do stand
pause 3
do c to saindo...
pause 1
do quit
}

automacro sumonaMONSTRO {
macro_delay 0.1
exclusive 1
priority 1
orphan reregister
notMonster Goat, Black Mushroom, Giearth, Harpy, Red Plant, Yellow Plant, Pupa, Creamy
location ein_fild06
overrideAI 1
call {
[
do conf teleportAuto_idle 0
do conf teleportAuto_allPlayers 0
do conf teleportAuto_maxDmgInLock 0
do ml
log -----
log -- Existem MONSTROS que NAO constam no LOCKMAP
log -----
log -- Mensagem Console : $.lastLogMsg
log -- Mapa Atual : $.map
log -- Monstro Encontrado : $.lastMonster
log -----
log -- Inicializando Macro de Protecao
log -----
do conf attackAuto 0
do conf route_randomWalk 0
do conf itemsTakeAuto 0
]
do as
do pl
do ml
do eval Utils::Win32::playSound('c:\Sons\gm.wav')
do eval Utils::Win32::playSound('c:\Sons\gm.wav')
pause 2
do south 2
pause 3
do look 5
pause 2
do sit
pause 4
do c Oo'
pause 5
do c mah oxi
pause 0.5
do look 3
pause 5
do c xD eh zuera isso?
pause 1.4
do stand
pause 1
do north 3
pause 4
do c da buffs pls ^^
pause 4
do c heh
pause 3
do c vlw o_O
pause 3
do south 4
pause 0.6
do sit
pause 1
do stand
pause 4
do c tenho que sair moço >.< boa noite
pause 3
do respawn
do north 4
pause 0.4
do look 4
pause 0.8
do quit
pause 0.3
pause 7

}
}

automacro pmLVL {
pm /(lvl|lv|nivel|nível|level|leveu|nv)/i
macro_delay 0.1
priority 2
exclusive 1
orphan reregister
call resp_PMLVL
}
macro resp_PMLVL {
$lastpmlvl = $.lastpm lvl
log -- Algum Player disse : LVL via PM
log -- Mensagem Console : $.lastLogMsg
log -- Mensagem Privada : $.lastpmMsg
log -- Nome do Player : $.lastpm
log -- Numero de Vezes : $lastpmlvl

if (${$lastpmlvl} = 1) goto pmLVLum
if (${$lastpmlvl} = 2) goto pmLVLdois
if (${$lastpmlvl} = 3) goto pmLVLtres
if (${$lastpmlvl} > 3) goto pmLVLfim

:pmLVLzero
${$lastpmlvl} = 1
goto pmLVLum

:pmLVLum
pause 8
do pm '$.lastpm' $.lvl $.joblvl xD
pause 8
do pm '$.lastpm' flw ae
do c flg6
${$lastpmlvl}++
goto pmLVLfim

:pmLVLdois
pause 10
do pm "$.lastpm" ja disse lvl $.lvl job $.joblvl
${$lastpmlvl}++
goto pmLVLfim

:pmLVLtres
pause 8
do pm "$.lastpm" aff... para -.- !
${$lastpmlvl}++
goto pmLVLfim

:pmLVLfim
do conf attackAuto 0
do conf route_randomWalk 1
}



automacro relogastrip {
status Strip Weapon
call {
do relog
pause 5
}
}

automacro respondeANYPM {
pm /(.*)/
priority 3
call {
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
pause 5
do pm "$.lastpm" @random ("?","lol","O.o","...")
pause 1
do ignore 1 $.lastpm
}
}
## automacro respondecura {
spell Heal, Increase Agi, Blessing, Assumptio, Impositio Manus, Aspersio
timeout 15
priority 2
call healresp
}

macro healresp {
$heal++
if ($heal = 1) goto resp1
if ($heal = 2) goto resp2
if ($heal = 3) goto resp3
if ($heal = 4) goto resp4
if ($heal = 5) goto resp5
if ($heal = 6) goto resp6
:resp1
pause 3
do c @random ("vlw","xD","=P","thx","=D","^^")
pause 3
goto fim
:resp2
pause 3
do c @random ("vlw","xD","=P","thx","=D","^^")
pause 3
goto fim
:resp3
pause 3
do c @random ("vlw","xD","=P","thx","=D","^^")
pause 3
goto fim
:resp4
pause 3
do c @random ("vlw","xD","=P","thx","=D","^^")
pause 3
goto fim
:resp5
pause 3
do c @random ("vlw","xD","=P","thx","=D","^^")
pause 3
goto fim
:resp 6
$heal = 0
pause 3
do c @random ("vlw","xD","=P","thx","=D","^^")
pause 3
:fim

}

automacro PmOi {
pm /^([oe][ei]|he[iy]|o[pl][aá])($|.*[^at]$)/i
disabled 1
call {
$tipo = Pm
$subtipo = Oi
call TalkBack
}

}

automacro PmLvl {
pm /(([ln][ei]vel)|([ln]vl)|([ln][ei]vl)|([ln]vel)).*[?]/i
disabled 1
call {
$tipo = Pm
$subtipo = Lvl
call TalkBack
}

}

automacro PmLvl {
pm /(part[iy]|pt[yi]|grup[ou]|grp[uo]|grp|prt[iy]).*[?]/i
disabled 1
call {
$tipo = Pm
$subtipo = Party
call TalkBack
}
}

macro GeraRespostas {
$Oi1 = @random("oi","oi","oi","?","?","?","fala","olá","opa","ola","ei","hey","ee","diga")
$Oi2 = @random("oi?","oi?","??","??","o q vc quer?","oO","fala logo","fala oO","já disse oi lol","wtf")
$Oi3 = @random("WTF","...","lol cara","law","oO?","¬¬","wtf lol","vc eh loko? pqp","vc eh doido? aff","aff vei")

$Lvl1 = @random("$.lvl","$.lvl...","sou $.lvl","$.lvl =]","$.lvl ^^","$.lvl/$.joblvl","$.lvl/$.joblvl...","$.lvl/$.joblvl ^^","$.lvl/$.joblvl =]","$.lvl, $.joblvl","$.lvl/$.joblvl")
$Lvl2 = @random("wtf? eh $.lvl","lol denovo? sou $.lvl/$.joblvl","wtf denovo? sou $.lvl/$.joblvl","lol eu já te disse, $.lvl","lol? sou $.lvl/$.joblvl, te falei","denovo? é $.lvl","oO?","ja disse lol, sou lvl $.lvl","wt f lol, sou $.lvl/$.joblvl")
$Lvl3 = @random("pqp","ngm merece","nguem merece","ng merece","lol cara","pqp que mala","vc eh cego?","LOL","vou ter q desenhar?","PQP","WTF")

$Party1 = @random("n","nao","non","nop","nope","não","naum","naun","n~~ao")
$Party2 = @random("ja falei q n","ja diss nao","ja falei nao","nao po","nao cara","naao","NAO","aff... nao","nnnnn","nao")
$Party3 = @random("pqp cara, NAO","NAO por**","NAAAO","falei NAO","wtf NAO","lol cara, NAO","NAO","vc eh cego? eu falei NAO","NAO é NAO","PQP")


$RespSim = @random ("e ok","e no1","c blz","c ok ^^","c k","c =]")
$RespSim2 = @random ("e hmm","e swt","c ok...","c ...","c aff")
$RespNao = @random ("e ??","e pif","e swt","e e4","e e5","e ho")
$RespSemSp = @random ("e mp","e swt","e wah","c sem sp","c sp","c malz, sem sp","c malz, sp","c sp =x","c sem sp =x")
$EmoteSp = @random ("e mp","e swt","e wah")

$Roll = @random ("1","2","3","4","5","6","7","8","9","10")

$Lvl = @random ("1","2","3","4","5","6","7","8","9","10")

$PauseSkill = @Random("2","3","4","5")
$PausePub = @random("4","5","6")
$PausePm = @random("5","6","7")
}

macro CastSpell {
do conf route_randomWalk 0
call ChecaOrigem
call GeraRespostas
call Casta
}

macro TalkBack {
do conf route_randomWalk 0
call ChecaOrigem
call GeraRespostas
call Responde
}

macro ChecaOrigem {
if ($tipo = Pub) goto BeginChecaVarPub
goto EndChecaVarPub

:BeginChecaVarPub
$var = $.lastpub_$subtipo
if (${$var} = ) goto BeginSetaVarPub
goto EndSetaVarPub

:BeginSetaVarPub
${$.lastpub} = $.lastpub
${$var} = 0
log Jogador $.lastpub ($subtipo) Adicionado
:EndSetaVarPub

${$var}++
$cont = ${$var}
:EndChecaVarPub

if ($tipo = Pm) goto BeginChecaVarPm
goto EndChecaVarPm

:BeginChecaVarPm
$var = $.lastpm_$subtipo
if (${$var} = ) goto BeginSetaVarPm
goto EndSetaVarPm

:BeginSetaVarPm
${$.lastpm} = $.lastpm
${$var} = 0
log Jogador $.lastpm ($subtipo) Adicionado
:EndSetaVarPm

${$var}++
$cont = ${$var}
:EndChecaVarPm
}

macro Responde {
$label = $tipo$subtipo
$frase = $subtipo$cont
log $var [$contª vez]

if ($cont > 3) goto Block
if ($tipo = Pub) goto SayPub
if ($tipo = Pm ) goto SayPm
goto End

:SayPub
if (${$.lastpub} = IGNORADO) goto Block
pause $PausePub
do c $$frase
goto End

:SayPm
if (${$.lastpm} = IGNORADO) goto Block
pause $PausePm
do pm "$.lastpm" $$frase
goto End

:Block
if ($tipo = Pub) goto BlockPub
if ($tipo = Pm ) goto BlockPm
:BlockPub
do ignore 1 $.lastpub
${$.lastpub} = IGNORADO
log Jogador [$.lastpub] bloqueado
goto End
:BlockPm
do ignore 1 $.lastpm
${$.lastpm} = IGNORADO
log Jogador [$.lastpm] bloqueado
goto End
:End
do conf route_randomWalk 0
}

macro Casta {
log $var [$contª vez]
$Agi = 29
$Bless = 34
$Heal = 28

$HPporc = @eval($::char->{hp}*100/$::char->{hp_max})
$SPporc = @eval($::char->{sp}*100/$::char->{sp_max})

if ($subtipo = Heal) goto ChecaHealCont
if ($subtipo = Buff) goto ChecaBuffCont

:ChecaHealCont
if ($cont >= 5) goto NaoMais
goto CastaHeal

:ChecaBuffCont
if ($cont >= 3) goto NaoMais
if ($cont <= 1) goto CastaBuff
:MudaResp
$RespSim = $RespSim2
goto CastaBuff

:CastaHeal
$Lvl = 10
goto CastaBuff

:CastaBuff
if ($SPporc < 70) goto SemSp

pause $PauseSkill
if ($Roll <= 5) goto SoBuffa
:RespondeBuff
do $RespSim
pause 2
:SoBuffa
do sp $$spell "$.lastpub" $Lvl
goto End

:SemSp
${$var}--
pause $PauseSpell
if ($Roll >= 7) goto RespSp
if ($Roll < 7) goto EmoteSp
:RespSp
do $RespSemSp
goto End
:EmoteSp
do $EmoteSp
goto End

:NaoMais
pause $PauseSkill
if ($Roll >= goto NemResponde
do $RespNao
:NemResponde
goto End

:End
do conf route_randomWalk 0
}

automacro avoiddust {
console /Monster (.*) is casting Venom Dust on location \((.*), (.*)[)] (.*)/i
timeout 4
run-once 1
call {
[
$msg = $.lastLogMsg
$x = @arg ("$.pos", 1)
$y = @arg ("$.pos", 2)
:ta
do conf attackAuto 0
$tx = $.lastMatch2
$ty = $.lastMatch3
do as
$random1 = @random ("3","4","5")
$random2 = @random ("-3","-4","-5")
$posx = @eval ($tx + $random1)
$posy = @eval ($ty + $random2)
do move $posx $posy
do conf attackAuto 0
]
log Pos atual é $.pos, antiga é $x $y
$poscx = @arg ("$.pos", 1)
$poscy = @arg ("$.pos", 2)
$posax = @eval ($x + 2)
if ($.pos = $x $y) goto ta
if ($.poscx < $posax) goto ta
:fim
release avoiddust
}
}

automacro quit {
party /gmonae/i
call {
do quit
}
}

###################################################################################
########################### anti GM ###############################################

# GM Buffs

automacro GMBHideuffs {
console /^(Algo desconhecido|O jogador [GM])(.*) (usou) (.*) (em você)/i
exclusive 1
macro_delay 0.1
priority 1
call {
do conf logConsole 1
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
log ------------------------------------
log ------ Evento GM Ativado -----------
log ------ GM esta t bufando -----------
log ------------------------------------
log $.datetime
log $.lastLogMsg
do conf logConsole 0
do relog 2000
}
}

# GM Falando

automacro GMtalk {
console /^[dist=(.*)] [GM](.*)/
exclusive 1
macro_delay 0.1
priority 1
call {
do conf logConsole 1
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
log ------------------------------------
log ------ Evento GM Ativado -----------
log ---- GM esta falando com vc --------
log ------------------------------------
log $.datetime
log $.lastLogMsg
do conf logConsole 0
do relog 2000
}
}

# BlockChat

automacro Muted {
run-once 1
exclusive 1
priority 1
status muted
call {
do conf logConsole 1
log ------------------------------------
log ------ Evento GM Ativado -----------
log ------ GM t deixou mudo ------------
log ------------------------------------
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
log $.datetime
log Voce esta com status $.status
do conf logConsole 0
do quit
}
}

# Santuario

automacro GMSantuario {
console /^(Unknown|Player [GM])(.*) (uses Santuary)/i
exclusive 1
macro_delay 0.1
priority 1
call {
do conf logConsole 1
do eval Utils::Win32::playSound('C:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
log ------------------------------------
log ------ Evento GM Ativado -----------
log ----- GM castou santuario ----------
log ------------------------------------
log $.datetime
log $.lastLogMsg
do conf logConsole 0
do relog 2000
}
}

# no stand chance

automacro nstand {
console /Aqui é sua equipe de GMs|não ataque|atacar o monstro|não me ataque|Olá Infante., aqui é a sua equipe de G M s!|Infante., não ande por favor!|Infante., Se continuar será considerado B O T!/
exclusive 1
macro_delay 0.1
priority 1
call {
do conf logConsole 1
do eval Utils::Win32::playSound('E:\Arquivos de programas\Teamspeak2_RC2\sounds\50.fatalerror.wav')
log ------------------------------------
log ------ Evento GM Ativado -----------
log -------- GM espertinho -------------
log ------------------------------------
log $.datetime
log $.lastLogMsg
do conf logConsole 0
do relog 2000
}
}

####################################################################################
#################################################################
########################## warp prisao ##########################

automacro cadeia {
location not gef_fild10
location not gef_fild14
location not
location not
location not
exclusive 1
macro_delay 0.1
call {
do quit
}
}

###############################################################
###############################################################

macro boa
\o