Leaf
21/03/2008, 19:25:38
#################################Macro Respostas########################################
automacro preventionPlayer01 {
pm /(bot|botter|boti|butter|but|boot|oi|cara|tudo|bem)/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|oi|cara|tudo|bem)/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 ("LOL ??","wtf?","se eh besta?"," tá doido é?","eu?","lol....","hahahahaha.","^^ looool","ahisohisaoihoasih","UAHAUHAUHAUHAUHAUHAUHAU","lol")
:msgPergunta
$msgPergunta001 = @random ("pq?","Por que?","pq quer saber?","pq","pra que?")
$msgPergunta002 = @random ("quando?","qdo?","onde?","Mas quando isso?","Quando aconteceu?","o que é isso","Tem certeza?")
$msgPergunta003 = @random ("pq vc quer saber?","mas pq?","pq ta perguntando?","Por que?")
$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ão viaja vei.","=P tu fumo um estragado neh?","nao enxe vei","mlk mala")
:msgPositivo
$msgPositivo001 = @random ("SIM","sim","s","é","é sim","sim vcei")
:msgNegativo
$msgNegativo001 = @random ("n","NÃO","não","ñ","Naum","nem é","não é")
:msgAgradecimento
$msgAgradecimento001 = @random ("Obrigado.","Muito Obrigado","Vlw","opa, vlw mesmo","thx","thanks","vlw ^^")
:msgRespostasDiversas
$msgRespostasDiversas001 = @random ("De boa cara, nao enxe.","meu, 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 ("lol... nao ","nem vei","nao so","-.-' =P parece?","nem viaja velhinho","AUSDhusahDSUAHdusAHdu nem mano nao so","AOSUDHOUAHDAOSUHDAUS nao so bot nao vei",""asijdsiajdsahdusahudsaudhsaoeoau se liga.","se liga ae vei auhauhau")
$msgRespostasBot002 = @random ("Ja falei que nao sou bot","de novo? vc eh bobo?","xiispa velho","kkkkkk de novo ,.. uhauahua","Meu eu não 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_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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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 relog 300
}
}
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 relog 300
}
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('D:\Sons\gm.wav')
do eval Utils::Win32::playSound('D:\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 relog 300
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('D:\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",":D","^^","thx","mto obrigado","vlw :o")
pause 3
goto fim
:resp2
pause 3
do c @random ("mto thanks ^^","valeu vei xD","valeu =]")
pause 3
goto fim
:resp3
pause 3
do c @random ("=D","thx xD"," o.o vlw")
pause 3
goto fim
:resp4
pause 3
do c @random ("brigado","god bless you xD","deus lhe pague meu jovem")
pause 3
goto fim
:resp5
pause 3
do c @random ("mta bondade sua","vlw pela generosidade xD","se todo mundo fosse assim ahauhau brigado")
pause 3
goto fim
:resp 6
$heal = 0
pause 3
do c @random ("mto obrigado =D","muitississimo obrigadaum","^^ muito agradecido")
pause 3
:fim
}
automacro PubOi {
pubm /^([oe][ei]|he[iy]|o[pl][aá])($|.*[^at]$)/i,7
call {
$tipo = Pub
$subtipo = Oi
call TalkBack
}
}
automacro PmOi {
pm /^([oe][ei]|he[iy]|o[pl][aá])($|.*[^at]$)/i
disabled 1
call {
$tipo = Pm
$subtipo = Oi
call TalkBack
}
}
automacro PubLvl {
pubm /(([ln][ei]vel)|([ln]vl)|([ln][ei]vl)|([ln]vel)).*[?]/i,7
call {
$tipo = Pub
$subtipo = Lvl
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 PubLvl {
pubm /(part[iy]|pt[yi]|grup[ou]|grp[uo]|grp|prt[iy]).*[?]/i,7
call {
$tipo = Pub
$subtipo = Party
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 >= 8) 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 relog 300
}
}
Sinceramente, não sei de quem é essa macro, só tem esses créditos no final:
#erikuxinha@hotmail.com
#srerikuxa@gmail.com
#http://www.orkut.com/Profile.aspx?uid=16512545462723811931
Nem olhei o orkut e essas coisas porque nã otenho orkut, e não to afim de adicionar no msn, xD.
Dei umas adaptações para o meu pc, como em vez de C:\, D:\.
Créditos: Desconhecido.
Postagem By Leaf.
automacro preventionPlayer01 {
pm /(bot|botter|boti|butter|but|boot|oi|cara|tudo|bem)/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|oi|cara|tudo|bem)/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 ("LOL ??","wtf?","se eh besta?"," tá doido é?","eu?","lol....","hahahahaha.","^^ looool","ahisohisaoihoasih","UAHAUHAUHAUHAUHAUHAUHAU","lol")
:msgPergunta
$msgPergunta001 = @random ("pq?","Por que?","pq quer saber?","pq","pra que?")
$msgPergunta002 = @random ("quando?","qdo?","onde?","Mas quando isso?","Quando aconteceu?","o que é isso","Tem certeza?")
$msgPergunta003 = @random ("pq vc quer saber?","mas pq?","pq ta perguntando?","Por que?")
$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ão viaja vei.","=P tu fumo um estragado neh?","nao enxe vei","mlk mala")
:msgPositivo
$msgPositivo001 = @random ("SIM","sim","s","é","é sim","sim vcei")
:msgNegativo
$msgNegativo001 = @random ("n","NÃO","não","ñ","Naum","nem é","não é")
:msgAgradecimento
$msgAgradecimento001 = @random ("Obrigado.","Muito Obrigado","Vlw","opa, vlw mesmo","thx","thanks","vlw ^^")
:msgRespostasDiversas
$msgRespostasDiversas001 = @random ("De boa cara, nao enxe.","meu, 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 ("lol... nao ","nem vei","nao so","-.-' =P parece?","nem viaja velhinho","AUSDhusahDSUAHdusAHdu nem mano nao so","AOSUDHOUAHDAOSUHDAUS nao so bot nao vei",""asijdsiajdsahdusahudsaudhsaoeoau se liga.","se liga ae vei auhauhau")
$msgRespostasBot002 = @random ("Ja falei que nao sou bot","de novo? vc eh bobo?","xiispa velho","kkkkkk de novo ,.. uhauahua","Meu eu não 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_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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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('D:\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 relog 300
}
}
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 relog 300
}
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('D:\Sons\gm.wav')
do eval Utils::Win32::playSound('D:\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 relog 300
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('D:\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",":D","^^","thx","mto obrigado","vlw :o")
pause 3
goto fim
:resp2
pause 3
do c @random ("mto thanks ^^","valeu vei xD","valeu =]")
pause 3
goto fim
:resp3
pause 3
do c @random ("=D","thx xD"," o.o vlw")
pause 3
goto fim
:resp4
pause 3
do c @random ("brigado","god bless you xD","deus lhe pague meu jovem")
pause 3
goto fim
:resp5
pause 3
do c @random ("mta bondade sua","vlw pela generosidade xD","se todo mundo fosse assim ahauhau brigado")
pause 3
goto fim
:resp 6
$heal = 0
pause 3
do c @random ("mto obrigado =D","muitississimo obrigadaum","^^ muito agradecido")
pause 3
:fim
}
automacro PubOi {
pubm /^([oe][ei]|he[iy]|o[pl][aá])($|.*[^at]$)/i,7
call {
$tipo = Pub
$subtipo = Oi
call TalkBack
}
}
automacro PmOi {
pm /^([oe][ei]|he[iy]|o[pl][aá])($|.*[^at]$)/i
disabled 1
call {
$tipo = Pm
$subtipo = Oi
call TalkBack
}
}
automacro PubLvl {
pubm /(([ln][ei]vel)|([ln]vl)|([ln][ei]vl)|([ln]vel)).*[?]/i,7
call {
$tipo = Pub
$subtipo = Lvl
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 PubLvl {
pubm /(part[iy]|pt[yi]|grup[ou]|grp[uo]|grp|prt[iy]).*[?]/i,7
call {
$tipo = Pub
$subtipo = Party
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 >= 8) 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 relog 300
}
}
Sinceramente, não sei de quem é essa macro, só tem esses créditos no final:
#erikuxinha@hotmail.com
#srerikuxa@gmail.com
#http://www.orkut.com/Profile.aspx?uid=16512545462723811931
Nem olhei o orkut e essas coisas porque nã otenho orkut, e não to afim de adicionar no msn, xD.
Dei umas adaptações para o meu pc, como em vez de C:\, D:\.
Créditos: Desconhecido.
Postagem By Leaf.