Pequeno Macro

Ir em baixo

Pequeno Macro

Mensagem  Convidad em Qui Set 16 2010, 11:48

Estava pensando se iria postar este macros para meus amigos, decidi postar não abusem mto dele e mudem algumas frases para não ser padrão e não deixe sair do clan ^^

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 ("LOL ??","wtf?","se eh besta?"," tá doido é?","eu?","lol....","hahahahaha.","^^ looool","ahisohisaoihoasih","kkkkkkk","UAHAUHAUHAUHAUHAUHAUH AU","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","^^","Surprised","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:laySound('C:\Sons\gm.mp3')

do stand
${$.lastpm} = prevention0101

:prevention0101
do conf logConsole 1
log --- Alerta: PM Me chamando de BOT Novamente. Jogador: $.lastpm ---
do eval Utils::Win32:laySound('C:\Sons\gm.mp3')

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:laySound('C:\Sons\gm.mp3')

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:laySound('C:\Sons\gm.mp3')

do pm "$.lastpm" @random ("$msgEmotions001 $msgRespostasDiversas002","$msgRespostasBot002","$ msgRespostasBot001","$msgRespostasDiversas002","$m sgRespostasBot001, $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:laySound('C:\Sons\mp3.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:laySound('C:\Sons\mp3.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:laySound('C:\Sons\mp3.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:laySound('C:\Sons\gm.mp3')
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:laySound('C:\Sons\gm.mp3')
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","$m sgRespostasBot001, $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:laySound('C:\Sons\gm.mp3')
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 2
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:laySound('C:\Sons\gm.mp3')
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 2
do conf route_randomWalk 1
do conf itemsTakeAuto 2
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
console /Olá, aqui é a sua equipe de G M s!|não ande por favor!|Se continuar será considerado B O T!|você foi avisado.|não ataque o monstro.|Estamos nos dirigindo a Juno./
delay 1
run-once 1
exclusive 1
call gmtrouxa
}

macro gmtrouxa {
do c Saido tenho que ir estudar...
do ai off
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:laySound('c:\Sons\gm.mp3')
do eval Utils::Win32:laySound('c:\Sons\gm.mp3')
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

mLVLzero
${$lastpmlvl} = 1
goto pmLVLum

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

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

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

mLVLfim

}

automacro respondeANYPM {
pm /(.*)/
priority 3
call {
do eval Utils::Win32:laySound('C:\Sons\gm.mp3')
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","","^^","thx","mto obrigado","vlw Surprised")
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á","o pa","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 1
}

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 >= Cool goto NemResponde
do $RespNao
:NemResponde
goto End

:End
do conf route_randomWalk 1
}

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
do conf attackAuto 2
:fim
release avoiddust
}

Convidad
Convidado


Voltar ao Topo Ir em baixo

Re: Pequeno Macro

Mensagem  Convidad em Qui Set 16 2010, 13:45

caralho
macro densa. parece ser boa tem bastante situações inclusas nela

Convidad
Convidado


Voltar ao Topo Ir em baixo

Duvida como usar Macros

Mensagem  Convidad em Qui Set 16 2010, 23:30

bom a algum tempo vejo varias Macros sendo postadas e modificadas aki no forum
mas nk entendi bem como funciona.
Tem q colocar dentro do Confg?Ou do arquivo macros?é soh copia e cola ou tem
q colocar alguma coisa pra macro funciona?


Vlw lol!

Convidad
Convidado


Voltar ao Topo Ir em baixo

Re: Pequeno Macro

Mensagem  Convidad em Sex Set 17 2010, 11:18

só copiar td dentro do arquivo macro
o config naum precisa mexer.

Convidad
Convidado


Voltar ao Topo Ir em baixo

Situação

Mensagem  Jr.Dank em Sex Set 17 2010, 19:12

Por favor, falae exatamente para que serve a macro em tds seus aspequtos, e depois inclua o macro Global, pois o gm tem GM que fala em global.
avatar
Jr.Dank
Admin

Mensagens : 70
Data de inscrição : 04/08/2010
Idade : 33
Localização : Rio de Janeiro

http://www.pandemonium.rg3.net/

Voltar ao Topo Ir em baixo

Re: Pequeno Macro

Mensagem  Conteúdo patrocinado


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum