;|=======================================================================|
;| Para Perfeito desenvolvimento do BOT não altere nenhum comando abaixo |
;| BOT feito por: Sauron |
;|=======================================================================|
on *:load: {
//echo -a $sdabot v $+ $versao $+  14Loaded...
//echo -a 2F14eito Por2: SauroN
//echo -a 2P14ara Configurar o BOT digite: 2/Configurar
}
on *:unload: {
unset %canal.sda
unset %nick.sda
unset %faq.sda
unset %comando.sda
unset %limite.sda
//echo -a 2SDaBOT v2.0 14Unloaded...
}
on *:connect: {
/join %canal.sda
/.timerlag 0 600 lag
}
on *:START: {
inc %start
.set %timer.inicio $time
.set %ctime.entrada $ctime
//echo -a $sdabot v $+ $versao $+  14Loaded2...
//echo -a 2F14eito Por2: SauroN
tb
painel
.remove luta.ini
}
on *:TEXT:%comando.sda:%canal.sda: { /dcc chat $nick }
on *:join:%canal.sda: {
if $readini(cadastros.ini,banidos,$nick) == $address($nick,2) {
.msg $nick 4ERRO:14 Você está Banido do 2 $+ %canal.sda $+ !
/kick %canal.sda $nick Você está BANIDO!
halt
}
if $nick != $me { inc %join | .msg %canal.sda 2S14eja Bem Vindo2 $nick $+ 14, Você é o nosso visitante de Nº2: %join }
if $readini(sda.ini,$nick,nick) == $null && $nick != $me { notice $nick 2V14ocê não está cadastrado, Digite:2 /dcc chat %nick.sda 14para se cadastrar2! }
}
on *:open:=: {
if $readini(cadastros.ini,banidos,$nick) == $address($nick,2) {
.msg = $+ $nick 4ERRO:14 Você está Banido do 2 $+ %canal.sda $+ !
/close -c $nick
halt
}
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick != $nick { .msg = $+ %nick 15-14=1> 2 $+ $nick 14Conectou2! }
inc %x
}
unset %x
unset %users
unset %nick
if $readini(sda.ini,$nick,nick) == $null {
.msg = $+ $nick 2S14eja Bem Vindo ao 2BOT
.msg = $+ $nick 2V14ocê Ainda não está cadastrado, Digite 2!Cadastrar
halt
}
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok {
.msg = $+ $nick 2S14eja Bem Vindo ao 2BOT
.msg = $+ $nick 2V14ocê ainda não está Identificado, Digite2 !Login <Senha>
.msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci
halt
}
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo ao 2BOT
.msg = $+ $nick 2P14ara Acessar o Menu Digite 2 $+ %comando.sda
halt
}
}
on *:close:@sdabot: { /.timersda 1 1 painel }
on *:part:%canal.sda: {
if $chat($nick) == $nick {
.msg = $+ $nick 2F14echando CHAT em 023 14Segundos2!
/.timerfechachat 1 3 /close -c $nick
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick != $nick { .msg = $+ %nick 15-14=1> 2 $+ $nick 14Desconectou2! }
inc %x
}
unset %x
unset %users
unset %nick
}
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.writeini senhas.ini $nick $+ 1 ident off
}
if $readini(luta.ini,geral,luta) == ok {
if $readini(luta.ini,vaga,narrador) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 14Luta entre 2 $+ $readini(luta.ini,vaga,lutador1) 14e2 $readini(luta.ini,vaga,lutador2) 14foi cancelada2!
.msg = $+ %nick 2M14otivo2: O Narrador Saiu do Canal.
inc %x
}
unset %x
unset %users
unset %nick
remove luta.ini
halt
}
if $readini(luta.ini,vaga,lutador1) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2 $+ $readini(luta.ini,vaga,lutador1) 14fugiu da luta2!
.msg = $+ %nick 2V14encedor2: $readini(luta.ini,vaga,lutador2)
inc %x
}
unset %x
unset %users
unset %nick
atualizar $readini(luta.ini,vaga,lutador2) $readini(luta.ini,vaga,lutador1) $readini(luta.ini,vaga,narrador)
.remove luta.ini
halt
}
if $readini(luta.ini,vaga,lutador2) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2 $+ $readini(luta.ini,vaga,lutador2) 14fugiu da luta2!
.msg = $+ %nick 2V14encedor2: $readini(luta.ini,vaga,lutador1)
inc %x
}
unset %x
unset %users
unset %nick
atualizar $readini(luta.ini,vaga,lutador1) $readini(luta.ini,vaga,lutador2) $readini(luta.ini,vaga,narrador)
.remove luta.ini
halt
}
}
if $readini(luta.ini,geral,luta) != ok {
if $readini(luta.ini,vaga,narrador) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga para Narrador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
.remini luta.ini vaga narrador
.remini luta.ini ips narrador
halt
}
if $readini(luta.ini,vaga,lutador1) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga para Lutador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
.remini luta.ini vaga lutador1
.remini luta.ini ips lutador1
halt
}
if $readini(luta.ini,vaga,lutador2) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga para Lutador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
.remini luta.ini vaga lutador2
.remini luta.ini ips lutador2
halt
}
}
}
on *:CHAT:!vagas: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,vaga,lutador1) != $null { .set %lutador1 $readini(luta.ini,vaga,lutador1) }
if $readini(luta.ini,vaga,lutador1) == $null { .set %lutador1 Aberta }
if $readini(luta.ini,vaga,lutador2) != $null { .set %lutador2 $readini(luta.ini,vaga,lutador2) }
if $readini(luta.ini,vaga,lutador2) == $null { .set %lutador2 Aberta }
if $readini(luta.ini,vaga,narrador) != $null { .set %narrador $readini(luta.ini,vaga,narrador) }
if $readini(luta.ini,vaga,narrador) == $null { .set %narrador Aberta }
.msg = $+ $nick 2L14utador12: %lutador1
.msg = $+ $nick 2L14utador22: %lutador2
.msg = $+ $nick 2N14arrador2: %narrador
}
}
on *:close:=: {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick != $nick { .msg = $+ %nick 15-14=1> 2 $+ $nick 14Desconectou2! }
inc %x
}
unset %x
unset %users
unset %nick
if $readini(luta.ini,geral,luta) == ok {
if $readini(luta.ini,vaga,narrador) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 14Luta entre 2 $+ $readini(luta.ini,vaga,lutador1) 14e2 $readini(luta.ini,vaga,lutador2) 14foi cancelada2!
.msg = $+ %nick 2M14otivo2: O Narrador saiu do CHAT.
inc %x
}
unset %x
unset %users
unset %nick
remove luta.ini
halt
}
if $readini(luta.ini,vaga,lutador1) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2 $+ $readini(luta.ini,vaga,lutador1) 14fugiu da luta2!
.msg = $+ %nick 2V14encedor2: $readini(luta.ini,vaga,lutador2)
inc %x
}
unset %x
unset %users
unset %nick
atualizar $readini(luta.ini,vaga,lutador2) $readini(luta.ini,vaga,lutador1) $readini(luta.ini,vaga,narrador)
.remove luta.ini
halt
}
if $readini(luta.ini,vaga,lutador2) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2 $+ $readini(luta.ini,vaga,lutador2) 14fugiu da luta2!
.msg = $+ %nick 2V14encedor2: $readini(luta.ini,vaga,lutador1)
inc %x
}
unset %x
unset %users
unset %nick
atualizar $readini(luta.ini,vaga,lutador1) $readini(luta.ini,vaga,lutador2) $readini(luta.ini,vaga,narrador)
.remove luta.ini
halt
}
}
if $readini(luta.ini,geral,luta) != ok {
if $readini(luta.ini,vaga,narrador) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga para Narrador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
.remini luta.ini vaga narrador
.remini luta.ini ips narrador
halt
}
if $readini(luta.ini,vaga,lutador1) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga para Lutador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
.remini luta.ini vaga lutador1
.remini luta.ini ips lutador1
halt
}
if $readini(luta.ini,vaga,lutador2) == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga para Lutador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
.remini luta.ini vaga lutador2
.remini luta.ini ips lutador2
halt
}
}
}
on *:CHAT:%comando.sda: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2B14em Vindo ao BOT do 2 $+ %canal.sda
.msg = $+ $nick 2!Cadastrar 15-14 Para Efetuar Seu Cadastro
.msg = $+ $nick 2!Descadastrar 15-14 Para se descadastrar
.msg = $+ $nick 2!Ficha 15-14 Para Ver sua Ficha
.msg = $+ $nick 2!Ficha <Nick> 15-14 Para Ver a Ficha do Nick Desejado
.msg = $+ $nick 2!Loja 15-14 Para comprar os Melhores itens da Terra-Média
.msg = $+ $nick 2!Treinar 15-14 Para ganhar Experiencia
.msg = $+ $nick 2!Trabalhar 15-14 Para ganhar MdO
.msg = $+ $nick 2!Desafiar <Nick> 15-14 Desafiar nicks pra um Duelo
.msg = $+ $nick 2!OnLine 15-14 Para ver quantas pessoas estão no BOT
.msg = $+ $nick 2@OP 15-14 Comando só para OP's
.msg = $+ $nick 2!BOT 15-14 Para Ver a configuração do BOT
.msg = $+ $nick 2!Exit 15-14 Para desconectar do BOT
}
}
on *:CHAT:!online: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %total $chat(0)
.set %x 1
if %total == 1 { .msg = $+ $nick 2N14o Momento, apenas você está conectado ao BOT | halt }
if %total != 1 { .msg = $+ $nick 2N14o Momento,2 %total 14pessoas estão conectadas ao BOT, Listando2: }
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick isop %canal.sda { set %opv @ }
if %nick isvo %canal.sda { set %opv + }
if %opv != $null { .msg = $+ $nick 15-14=1>2 %opv $+ %nick }
if %opv == $null { .msg = $+ $nick 15-14=1>2 %nick }
unset %opv
inc %x
}
unset %x
unset %users
unset %nick
}
}
on *:CHAT:!trabalhar: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(sda.ini,$nick,trabalho) == $date { .msg = $+ $nick 4ERRO: 14Você já trabalhou hoje2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %iniouro $readini(sda.ini,$nick,ouro)
.set %user.level $readini(sda.ini,$nick,level)
.set %ganouro $calc(%user.level * 10)
.set %fimouro $calc(%iniouro + %ganouro)
.writeini sda.ini $nick ouro %fimouro
.writeini sda.ini $nick trabalho $date
.msg = $+ $nick 2T14rabalho efetuado com Sucesso2!
.msg = $+ $nick 2V14ocê ficou com2 %fimouro 14MdO
.unset %iniouro
.unset %user.level
.unset %ganouro
.unset %fimouro
}
}
on *:CHAT:@op: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg = $+ $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2@OP 14do BOT
.msg = $+ $nick 2!OP <Nick> 15-14 Para dar OP
.msg = $+ $nick 2!DeOP <Nick> 15-14 Para Tirar OP
.msg = $+ $nick 2!Voice <Nick> 15-14 Para dar Voice
.msg = $+ $nick 2!DeVoice <Nick> 15-14 Para Tirar Voice
.msg = $+ $nick 2!Kick <Nick> <Motivo> 15-14 Para Kickar
.msg = $+ $nick 2!Ban <Nick> <Motivo> 15-14 Para Banir
.msg = $+ $nick 2!Unban <Nick> 15-14 Para Desbanir
}
}
on *:TEXT:!op*:*: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $2 isop %canal.sda { .msg $nick 4ERRO:2 $2 14já é OP do2 %canal.sda $+ 2! | halt }
if $2 !ison %canal.sda { .msg $nick 4ERRO:2 $2 14não está no2 %canal.sda $+ 2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
/mode %canal.sda +ooo $2
.msg %canal.sda 2D14ado OP a2 $2
}
}
on *:TEXT:!deop*:*: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $2 !isop %canal.sda { .msg $nick 4ERRO:2 $2 14não é OP do2 %canal.sda $+ 2! | halt }
if $2 !ison %canal.sda { .msg $nick 4ERRO:2 $2 14não está no2 %canal.sda $+ 2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
/mode %canal.sda -ooo $2
.msg %canal.sda 2T14irado OP de2 $2
}
}
on *:TEXT:!voice*:*: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $2 isvoice %canal.sda { .msg $nick 4ERRO:2 $2 14já é Voice do2 %canal.sda $+ 2! | halt }
if $2 !ison %canal.sda { .msg $nick 4ERRO:2 $2 14não está no2 %canal.sda $+ 2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
/mode %canal.sda +vvv $2
.msg %canal.sda 2D14ado Voice a2 $2
}
}
on *:TEXT:!devoice*:*: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $2 !isvoice %canal.sda { .msg $nick 4ERRO:2 $2 14não é Voice do2 %canal.sda $+ 2! | halt }
if $2 !ison %canal.sda { .msg $nick 4ERRO:2 $2 14não está no2 %canal.sda $+ 2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
/mode %canal.sda -vvv $2
.msg %canal.sda 2T14irado Voice de2 $2
}
}
on *:TEXT:!kick*:*: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $2 isop %canal.sda { .msg $nick 4ERRO:14 Proibido Banir OP's2! | halt }
if $3- == $null { .msg $nick 4ERRO:14 É nescessario um Motivo para o Kick2! | halt }
if $2 !ison %canal.sda { .msg $nick 4ERRO:2 $2 14não está no2 %canal.sda $+ 2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
/kick %canal.sda $2 $3-
.msg %canal.sda 2 $+ $nick 14Kickou2 $2 $+ 14, Motivo2: $3-
if $chat($2) == $2 {
.msg = $+ $2 2F14echando CHAT em 023 14Segundos, Motivo2: Você Foi Kickado do 2 $+ %canal.sda $+ !
/.timerfechachat 1 3 /close -c $2
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick != $2 { .msg = $+ %nick 15-14=1> 2 $+ $2 14Desconectou2! }
inc %x
}
unset %x
unset %users
unset %nick
}
}
}
on *:TEXT:!ban*:*: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $2 == $null { .msg $nick 4ERRO:14 É necessario um Nick para ser Banido2! | halt }
if $2 isop %canal.sda { .msg $nick 4ERRO:14 Proibido Banir OP's2! | halt }
if $3- == $null { .msg $nick 4ERRO:14 É nescessario um Motivo para o Ban2! | halt }
if $2 !ison %canal.sda { .msg $nick 4ERRO:2 $2 14não está no2 %canal.sda $+ 2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.writeini cadastros.ini banidos $2 $address($2,2)
/kick %canal.sda $2 $3-
.msg %canal.sda 2 $+ $nick 14Baniu2 $2 $+ 14, Motivo2: $3-
if $chat($2) == $2 {
.msg = $+ $2 2F14echando CHAT em 023 14Segundos, Motivo2: Você Foi Banido do 2 $+ %canal.sda $+ !
/.timerfechachat 1 3 /close -c $2
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick != $2 { .msg = $+ %nick 15-14=1> 2 $+ $2 14Desconectou2! }
inc %x
}
unset %x
unset %users
unset %nick
}
}
}
on *:TEXT:!unban*:*: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $nick !isop %canal.sda { .msg $nick 4ERRO:14 Você Não é OP do2 %canal.sda $+ 2! | halt }
if $2 == $null { .msg $nick 4ERRO:14 É necessario um Nick para ser Desbanido2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.remini cadastros.ini banidos $2
.msg %canal.sda 2 $+ $nick 14Desbaniu 2 $+ $2 14do 2 $+ %canal.sda $+ .
}
}
on *:CHAT:!bot: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad| halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick $sdabot v $+ $versao $+  15-2 F14eito por2: SauroN___
}
}
on *:TEXT:!bot:*: { .msg $chan $sdabot v $+ $versao $+  15-2 F14eito por2: SauroN___ }
on *:CHAT:!cadastrar: {
if $readini(sda.ini,$nick,nick) != $null { .msg = $+ $nick $erro.cad }
if $readini(sda.ini,$nick,nick) == $null {
.msg = $+ $nick 2S14eja Bem Vindo a Sessão 2!Cadastrar14 do BOT
.msg = $+ $nick 2P14ara se Cadastrar digite 2!Cadastro <Raça> <Habilidade> <Senha>
.msg = $+ $nick 2P14ara Ver as 2Raças 14Disponíveis digite 2!Raças
.msg = $+ $nick 2P14ara Ver as 2Habilidades 14Disponíveis digite 2!Habilidades
}
}
on *:CHAT:!raças: {
if $readini(sda.ini,$nick,nick) != $null { .msg = $+ $nick $erro.cad }
if $readini(sda.ini,$nick,nick) == $null {
.msg = $+ $nick 2R14aças Disponíveis2:
.msg = $+ $nick 2Hobbit 15-2 Humano 15-2 Elfo 15-2 Istari 15-2 Anão 15-2 Orc
}
}
on *:CHAT:!habilidades: {
if $readini(sda.ini,$nick,nick) != $null { .msg = $+ $nick $erro.cad }
if $readini(sda.ini,$nick,nick) == $null {
.msg = $+ $nick 2H14abilidades Disponíveis2:
.msg = $+ $nick 2Arqueiro 15-14 Ótima experiencia com Arcos
.msg = $+ $nick 2Ranger 15-14 Ótima experiencia com Espadas
.msg = $+ $nick 2Bárbaro 15-14 Ótima experiencia com Machados
.msg = $+ $nick 2Arquimago 15-14 Ótima experiencia com Cajados
.msg = $+ $nick 2Spectro 15-14 Ótima experiencia com Espadas Sob o Dominio de Sauron
}
}
on *:CHAT:!cadastro*: {
if $readini(sda.ini,$nick,nick) != $null { .msg = $+ $nick $erro.cad }
if $readini(sda.ini,$nick,nick) == $null {
.set %raca $2
.set %habilidade $3
.set %senha.cadastro $4
if %senha.cadastro == $null { .msg = $+ $nick 4ERRO: 2É14 necessario uma Senha para cadastro2! | halt }
if $2 == hobbit {
.writeini sda.ini $nick nick $nick
.writeini sda.ini $nick raça Hobbit
.writeini sda.ini $nick level 1
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick proxnivel 10
.writeini sda.ini $nick ouro 100
.writeini sda.ini $nick força 0
.writeini sda.ini $nick defesa 0
.writeini sda.ini $nick destreza 0
.writeini sda.ini $nick magia 0
.writeini sda.ini $nick elmo Nenhum
.writeini sda.ini $nick armadura Nenhuma
.writeini sda.ini $nick escudo Nenhum
.writeini sda.ini $nick ganhou 0
.writeini sda.ini $nick perdeu 0
.writeini sda.ini $nick empate 0
.writeini sda.ini $nick narrou 0
.writeini sda.ini $nick item nenhum
.set %cadastros.Hobbit $readini(cadastros.ini,raças,Hobbit)
.set %fimcadastros.Hobbit $calc(%cadastros.Hobbit + 1)
.writeini cadastros.ini raças Hobbit %fimcadastros.Hobbit
.writeini senhas.ini $nick $+ 1 senha %senha.cadastro
.writeini senhas.ini $nick $+ 1 ident ok
.unset %cadastros.Hobbit
.unset %fimcadastros.Hobbit
}
if $2 == elfo {
.writeini sda.ini $nick nick $nick
.writeini sda.ini $nick raça Elfo
.writeini sda.ini $nick level 1
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick força 0
.writeini sda.ini $nick defesa 0
.writeini sda.ini $nick destreza 0
.writeini sda.ini $nick magia 0
.writeini sda.ini $nick proxnivel 10
.writeini sda.ini $nick ouro 100
.writeini sda.ini $nick elmo Nenhum
.writeini sda.ini $nick armadura Nenhuma
.writeini sda.ini $nick escudo Nenhum
.writeini sda.ini $nick ganhou 0
.writeini sda.ini $nick perdeu 0
.writeini sda.ini $nick empate 0
.writeini sda.ini $nick narrou 0
.writeini sda.ini $nick item nenhum
.set %cadastros.Elfo $readini(cadastros.ini,raças,Elfo)
.set %fimcadastros.Elfo $calc(%cadastros.Elfo + 1)
.writeini cadastros.ini raças Elfo %fimcadastros.Elfo
.writeini senhas.ini $nick $+ 1 senha %senha.cadastro
.writeini senhas.ini $nick $+ 1 ident ok
.unset %cadastros.Elfo
.unset %fimcadastros.Elfo
}
if $2 == Humano {
.writeini sda.ini $nick nick $nick
.writeini sda.ini $nick raça Humano
.writeini sda.ini $nick level 1
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick força 0
.writeini sda.ini $nick defesa 0
.writeini sda.ini $nick destreza 0
.writeini sda.ini $nick magia 0
.writeini sda.ini $nick proxnivel 10
.writeini sda.ini $nick ouro 100
.writeini sda.ini $nick elmo Nenhum
.writeini sda.ini $nick armadura Nenhuma
.writeini sda.ini $nick escudo Nenhum
.writeini sda.ini $nick ganhou 0
.writeini sda.ini $nick perdeu 0
.writeini sda.ini $nick empate 0
.writeini sda.ini $nick narrou 0
.writeini sda.ini $nick item nenhum
.set %cadastros.Humano $readini(cadastros.ini,raças,Humano)
.set %fimcadastros.Humano $calc(%cadastros.humano + 1)
.writeini cadastros.ini raças Humano %fimcadastros.Humano
.writeini senhas.ini $nick $+ 1 senha %senha.cadastro
.writeini senhas.ini $nick $+ 1 ident ok
.unset %cadastros.Humano
.unset %fimcadastros.Humano
}
if $2 == Istari {
.writeini sda.ini $nick nick $nick
.writeini sda.ini $nick raça Istari
.writeini sda.ini $nick level 1
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick força 0
.writeini sda.ini $nick defesa 0
.writeini sda.ini $nick destreza 0
.writeini sda.ini $nick magia 0
.writeini sda.ini $nick proxnivel 10
.writeini sda.ini $nick ouro 100
.writeini sda.ini $nick elmo Nenhum
.writeini sda.ini $nick armadura Nenhuma
.writeini sda.ini $nick escudo Nenhum
.writeini sda.ini $nick ganhou 0
.writeini sda.ini $nick perdeu 0
.writeini sda.ini $nick empate 0
.writeini sda.ini $nick narrou 0
.writeini sda.ini $nick item nenhum
.set %cadastros.Istari $readini(cadastros.ini,raças,Istari)
.set %fimcadastros.Istari $calc(%cadastros.Istari + 1)
.writeini cadastros.ini raças Istari %fimcadastros.Istari
.writeini senhas.ini $nick $+ 1 senha %senha.cadastro
.writeini senhas.ini $nick $+ 1 ident ok
.unset %cadastros.Istari
.unset %fimcadastros.Istari
}
if $2 == Anão {
.writeini sda.ini $nick nick $nick
.writeini sda.ini $nick raça Anão
.writeini sda.ini $nick level 1
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick força 0
.writeini sda.ini $nick defesa 0
.writeini sda.ini $nick destreza 0
.writeini sda.ini $nick magia 0
.writeini sda.ini $nick proxnivel 10
.writeini sda.ini $nick ouro 100
.writeini sda.ini $nick elmo Nenhum
.writeini sda.ini $nick armadura Nenhuma
.writeini sda.ini $nick escudo Nenhum
.writeini sda.ini $nick ganhou 0
.writeini sda.ini $nick perdeu 0
.writeini sda.ini $nick empate 0
.writeini sda.ini $nick narrou 0
.writeini sda.ini $nick item nenhum
.set %cadastros.Anão $readini(cadastros.ini,raças,Anão)
.set %fimcadastros.Anão $calc(%cadastros.Anão + 1)
.writeini cadastros.ini raças Anão %fimcadastros.Anão
.writeini senhas.ini $nick $+ 1 senha %senha.cadastro
.writeini senhas.ini $nick $+ 1 ident ok
.unset %cadastros.Anão
.unset %fimcadastros.Anão
}
if $2 == Orc {
.writeini sda.ini $nick nick $nick
.writeini sda.ini $nick raça Orc
.writeini sda.ini $nick level 1
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick força 0
.writeini sda.ini $nick defesa 0
.writeini sda.ini $nick destreza 0
.writeini sda.ini $nick magia 0
.writeini sda.ini $nick proxnivel 10
.writeini sda.ini $nick ouro 100
.writeini sda.ini $nick elmo Nenhum
.writeini sda.ini $nick armadura Nenhuma
.writeini sda.ini $nick escudo Nenhum
.writeini sda.ini $nick ganhou 0
.writeini sda.ini $nick perdeu 0
.writeini sda.ini $nick empate 0
.writeini sda.ini $nick narrou 0
.writeini sda.ini $nick item nenhum
.set %cadastros.Orc $readini(cadastros.ini,raças,Orc)
.set %fimcadastros.Orc $calc(%cadastros.Orc + 1)
.writeini cadastros.ini raças Orc %fimcadastros.Orc
.writeini senhas.ini $nick $+ 1 senha %senha.cadastro
.writeini senhas.ini $nick $+ 1 ident ok
.unset %cadastros.Orc
.unset %fimcadastros.Orc
}
if $3 == Arqueiro {
.writeini sda.ini $nick Habilidade Arqueiro
.writeini sda.ini $nick Arma Arco Curto
.writeini pontos.ini $nick pontos 30
.set %cadastros.Arqueiro $readini(cadastros.ini,habilidades,Arqueiro)
.set %fimcadastros.Arqueiro $calc(%cadastros.Arqueiro + 1)
.writeini cadastros.ini habilidades Arqueiro %fimcadastros.Arqueiro
.msg = $+ $nick 2C14adastro Efetuado com Sucesso..
.msg = $+ $nick 2V14ocê tem2 30 14pontos para distribuir nos seguintes Atributos2:
.msg = $+ $nick 2Força 15-2 Destreza 15-2 Defesa 15-2 Magia
.msg = $+ $nick 2P14ara distribuir digite 2!Distribuir <Atributo> <Pontos>
.msg = $+ $nick 2L14ogo apos digite 2!Ficha 14para ver sua Ficha
.msg %canal.bot 2 $+ $nick 14acaba de se Cadastrar no Canal2!
.unset %cadastros.Arqueiro
.unset %fimcadastros.Arqueiro
halt
}
if $3 == Bárbaro {
.writeini sda.ini $nick Habilidade Bárbaro
.writeini sda.ini $nick Arma Machados de Arremesso
.writeini pontos.ini $nick pontos 30
.set %cadastros.Bárbaro $readini(cadastros.ini,habilidades,Bárbaro)
.set %fimcadastros.Bárbaro $calc(%cadastros.Bárbaro + 1)
.writeini cadastros.ini habilidades Bárbaro %fimcadastros.Bárbaro
.msg = $+ $nick 2C14adastro Efetuado com Sucesso..
.msg = $+ $nick 2V14ocê tem2 30 14pontos para distribuir nos seguintes Atributos2:
.msg = $+ $nick 2Força 15-2 Destreza 15-2 Defesa 15-2 Magia
.msg = $+ $nick 2P14ara distribuir digite 2!Distribuir <Atributo> <Pontos>
.msg = $+ $nick 2L14ogo apos digite 2!Ficha 14para ver sua Ficha
.msg %canal.bot 2 $+ $nick 14acaba de se Cadastrar no Canal2!
.unset %cadastros.Bárbaro
.unset %fimcadastros.Bárbaro
halt
}
if $3 == Ranger {
.writeini sda.ini $nick Habilidade Ranger
.writeini sda.ini $nick Arma Espada Curta
.writeini pontos.ini $nick pontos 30
.set %cadastros.Ranger $readini(cadastros.ini,habilidades,Ranger)
.set %fimcadastros.Ranger $calc(%cadastros.Ranger + 1)
.writeini cadastros.ini habilidades Ranger %fimcadastros.Ranger
.msg = $+ $nick 2C14adastro Efetuado com Sucesso..
.msg = $+ $nick 2V14ocê tem2 30 14pontos para distribuir nos seguintes Atributos2:
.msg = $+ $nick 2Força 15-2 Destreza 15-2 Defesa 15-2 Magia
.msg = $+ $nick 2P14ara distribuir digite 2!Distribuir <Atributo> <Pontos>
.msg = $+ $nick 2L14ogo apos digite 2!Ficha 14para ver sua Ficha
.msg %canal.bot 2 $+ $nick 14acaba de se Cadastrar no Canal2!
.unset %cadastros.Ranger
.unset %fimcadastros.Ranger
halt
}
if $3 == Arquimago {
.writeini sda.ini $nick Habilidade Arquimago
.writeini sda.ini $nick Arma Cajado Curto
.writeini pontos.ini $nick pontos 30
.set %cadastros.Arquimago $readini(cadastros.ini,habilidades,Arquimago)
.set %fimcadastros.Arquimago $calc(%cadastros.Arquimago + 1)
.writeini cadastros.ini habilidades Arquimago %fimcadastros.Arquimago
.msg = $+ $nick 2C14adastro Efetuado com Sucesso..
.msg = $+ $nick 2V14ocê tem2 30 14pontos para distribuir nos seguintes Atributos2:
.msg = $+ $nick 2Força 15-2 Destreza 15-2 Defesa 15-2 Magia
.msg = $+ $nick 2P14ara distribuir digite 2!Distribuir <Atributo> <Pontos>
.msg = $+ $nick 2L14ogo apos digite 2!Ficha 14para ver sua Ficha
.msg %canal.bot 2 $+ $nick 14acaba de se Cadastrar no Canal2!
.unset %cadastros.Arquimago
.unset %fimcadastros.Arquimago
halt
}
if $3 == Spectro {
.writeini sda.ini $nick Habilidade Spectro
.writeini sda.ini $nick Arma Espada Curta Negra
.writeini pontos.ini $nick pontos 30
.set %cadastros.Spectro $readini(cadastros.ini,habilidades,Spectro)
.set %fimcadastros.Spectro $calc(%cadastros.Spectro + 1)
.writeini cadastros.ini habilidades Spectro %fimcadastros.Spectro
.msg = $+ $nick 2C14adastro Efetuado com Sucesso..
.msg = $+ $nick 2V14ocê tem2 30 14pontos para distribuir nos seguintes Atributos2:
.msg = $+ $nick 2Força 15-2 Destreza 15-2 Defesa 15-2 Magia
.msg = $+ $nick 2P14ara distribuir digite 2!Distribuir <Atributo> <Pontos>
.msg = $+ $nick 2L14ogo apos digite 2!Ficha 14para ver sua Ficha
.msg %canal.bot 2 $+ $nick 14acaba de se Cadastrar no Canal2!
.unset %cadastros.Spectro
.unset %fimcadastros.Spectro
halt
}
if $4 == $null {
.msg = $+ $nick 4ERRO:2 D14igite uma Senha2!
halt
}
else {
.msg = $+ $nick 4ERRO: 2Raça 14ou 2Habilidade 14inexistente, Por Favor verifique sua Digitação2!
halt
}
}
.unset %raca
.unset %habilidade
.unset %senha.cadastro
}
on *:TEXT:*late*bot*:%canal.sda: { if $nick != SauroN___ { halt } | else { .msg %canal.sda 2A14u, Au, Au2... } }
on *:CHAT:!ficha: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %userraça $readini(sda.ini,$nick,raça)
.set %userexp $readini(sda.ini,$nick,exp)
.set %userproxnivel $readini(sda.ini,$nick,proxnivel)
.set %userhabilidade $readini(sda.ini,$nick,habilidade)
.set %userouro $readini(sda.ini,$nick,ouro)
.set %userganhou $readini(sda.ini,$nick,ganhou)
.set %userperdeu $readini(sda.ini,$nick,perdeu)
.set %usernarrou $readini(sda.ini,$nick,narrou)
.set %userempate $readini(sda.ini,$nick,empate)
.set %userlevel $readini(sda.ini,$nick,level)
.set %userelmo $readini(sda.ini,$nick,elmo)
.set %userarmadura $readini(sda.ini,$nick,armadura)
.set %userescudo $readini(sda.ini,$nick,escudo)
.set %userarma $readini(sda.ini,$nick,armas)
.set %userpontos $readini(pontos.ini,$nick,pontos)
.set %userforça $readini(sda.ini,$nick,força)
.set %userdefesa $readini(sda.ini,$nick,defesa)
.set %userdestreza $readini(sda.ini,$nick,destreza)
.set %usermagia $readini(sda.ini,$nick,magia)
.set %userarma $readini(sda.ini,$nick,arma)
.set %useritem $readini(sda.ini,$nick,item)
.msg = $+ $nick 2S14eus Dados2:
.msg = $+ $nick 2R14aça2: %userraça
.msg = $+ $nick 2H14abilidade2: %userhabilidade
.msg = $+ $nick 2L14evel2: %userlevel
.msg = $+ $nick 2E14xp2: %userexp $+ 14/02 $+ %userproxnivel
.msg = $+ $nick 2F14orça2: %userforça
.msg = $+ $nick 2D14efesa2: %userdefesa
.msg = $+ $nick 2D14estreza2: %userdestreza
.msg = $+ $nick 2M14agia2: %usermagia
.msg = $+ $nick 2A14rmadura2: %userarmadura
.msg = $+ $nick 2E14scudo2: %userescudo
.msg = $+ $nick 2E14lmo2: %userelmo
.msg = $+ $nick 2A14rma2: %userarma
.msg = $+ $nick 2I14tem2: %useritem
.msg = $+ $nick 2O14uro2: %userouro
.msg = $+ $nick 2P14ontos de atributos2: %userpontos
.msg = $+ $nick 2G14anhou2: %userganhou 15-14 2P14erdeu2: %userperdeu 15-14 2E14mpate2: %userempate 15-14 2N14arrou2: %usernarrou
}
.unset %usernarrou
.unset %useritem
.unset %userarma
.unset %userraça
.unset %userexp
.unset %userproxnivel
.unset %userhabilidade
.unset %userouro
.unset %userganhou
.unset %userperdeu
.unset %userempate
.unset %userlevel
.unset %userelmo
.unset %userarmadura
.unset %userescudo
.unset %userarma
.unset %userpontos
.unset %userforça
.unset %userdefesa
.unset %userdestreza
.unset %usermagia
}
on *:CHAT:!ficha*: {
if $readini(sda.ini,$2,nick) == $null { .msg = $+ $nick 4ERRO:2 $2 14não está cadastrado! | halt }
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %outroraça $readini(sda.ini,$2,raça)
.set %outroexp $readini(sda.ini,$2,exp)
.set %outrohabilidade $readini(sda.ini,$2,habilidade)
.set %outroouro $readini(sda.ini,$2,ouro)
.set %outroganhou $readini(sda.ini,$2,ganhou)
.set %outroperdeu $readini(sda.ini,$2,perdeu)
.set %outronarrou $readini(sda.ini,$2,narrou)
.set %outroempate $readini(sda.ini,$2,empate)
.set %outrolevel $readini(sda.ini,$2,level)
.set %outroelmo $readini(sda.ini,$2,elmo)
.set %outroarmadura $readini(sda.ini,$2,armadura)
.set %outroescudo $readini(sda.ini,$2,escudo)
.set %outroarma $readini(sda.ini,$2,armas)
.set %outroforça $readini(sda.ini,$2,força)
.set %outrodefesa $readini(sda.ini,$2,defesa)
.set %outrodestreza $readini(sda.ini,$2,destreza)
.set %outromagia $readini(sda.ini,$2,magia)
.set %outroarma $readini(sda.ini,$2,arma)
.set %outroitem $readini(sda.ini,$2,item)
.msg = $+ $nick 2D14ados2 $2 $+ 2:
.msg = $+ $nick 2R14aça2: %outroraça
.msg = $+ $nick 2H14abilidade2: %outrohabilidade
.msg = $+ $nick 2L14evel2: %outrolevel
.msg = $+ $nick 2F14orça2: %outroforça
.msg = $+ $nick 2D14efesa2: %outrodefesa
.msg = $+ $nick 2D14estreza2: %outrodestreza
.msg = $+ $nick 2M14agia2: %outromagia
.msg = $+ $nick 2A14rmadura2: %outroarmadura
.msg = $+ $nick 2E14scudo2: %outroescudo
.msg = $+ $nick 2E14lmo2: %outroelmo
.msg = $+ $nick 2A14rma2: %outroarma
.msg = $+ $nick 2I14tem2: %outroitem
.msg = $+ $nick 2O14uro2: %outroouro
.msg = $+ $nick 2G14anhou2: %outroganhou 15-14 2P14erdeu2: %outroperdeu 15-14 2E14mpate2: %outroempate 15-14 2N14arrou2: %outronarrou
}
.unset %outronarrou
.unset %outroitem
.unset %outroraça
.unset %outroexp
.unset %outroproxnivel
.unset %outrohabilidade
.unset %outroouro
.unset %outroganhou
.unset %outroperdeu
.unset %outroempate
.unset %outrolevel
.unset %outroelmo
.unset %outroarmadura
.unset %outroescudo
.unset %outroarma
.unset %outropontos
.unset %outroforça
.unset %outrodefesa
.unset %outrodestreza
.unset %outromagia
}
on *:CHAT:!login*: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) == ok { .msg = $+ $nick 4ERRO:2 V14ocê Já está identificado! | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok {
if $readini(senhas.ini,$nick $+ 1,senha) != $2- { .msg = $+ $nick 4ERRO:2 Senha Incorreta14, Por Favor Verifique sua Digitação | halt }
if $readini(senhas.ini,$nick $+ 1,senha) == $2- {
.writeini senhas.ini $nick $+ 1 ident ok
.msg = $+ $nick 2S14enha Aceita, Você Está Reconhecido.
}
}
}
on *:TEXT:!login*:?: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) == ok { .msg $nick 4ERRO:2 V14ocê Já está identificado! | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok {
if $readini(senhas.ini,$nick $+ 1,senha) != $2- { .msg $nick 4ERRO:14 Senha Incorreta, Por Favor Verifique sua Digitação | halt }
if $readini(senhas.ini,$nick $+ 1,senha) == $2- {
.writeini senhas.ini $nick $+ 1 ident ok
.msg $nick 2S14enha Aceita, Você Está Reconhecido.
}
}
}
on *:CHAT:!treinar: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
var %treino = $readini(sda.ini,$nick,Treino)
if %treino == $date { .msg = $+ $nick 4ERRO:2 V14ocê já treinou Hoje2! | halt }
if %treino != $date {
.set %iniexp $readini(sda.ini,$nick,exp)
.set %inilevel $readini(sda.ini,$nick,level)
.set %proxnivel $readini(sda.ini,$nick,proxnivel)
.set %fimexp $calc(%iniexp + (%inilevel * 2))
.writeini sda.ini $nick exp %fimexp
.writeini sda.ini $nick treino $date
.msg = $+ $nick $read(treino.txt)
.msg = $+ $nick 2D14igite 2!Ficha 14para ver seus Dados2!
if %fimexp >= %proxnivel {
.set %fimlevel $calc(%inilevel + 1)
.set %fimproxnivel $calc((%proxnivel + %fimlevel) * 2)
.set %inipontos $readini(pontos.ini,$nick,pontos)
.set %fimpontos $calc(%inipontos + 5)
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick proxnivel %fimproxnivel
.writeini sda.ini $nick level %fimlevel
.writeini pontos.ini $nick pontos %fimpontos
.msg = $+ $nick 2V14ocê evoluiu de Level e ganhou mais 025 14pontos de Atributos2!
.msg = $+ $nick 2A14bra um CHAT com o BOT e Digite2: !Distribuir Atributo Quantia
}
.unset %fimlevel
.unset %fimproxnivel
.unset %inipontos
.unset %fimpontos
.unset %iniexp
.unset %inilevel
.unset %proxnivel
.unset %fimexp
}
}
}
on *:chat:!distribuir*: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %pontos $readini(pontos.ini,$nick,pontos)
if %pontos == 0 { .msg = $+ $nick 4ERRO: 2V14ocê Não tem pontos para distribuir2! }
if %pontos != 0 {
if $3 == $null { .msg = $+ $nick 4ERRO: 2É14 necessario uma quantia de pontos2! | halt }
if $3 != $null {
if $3 == 0 { .msg = $+ $nick 4ERRO: 2É14 necessario uma quantia de pontos2! | halt }
if $3 != 0 {
if $2 == Força {
if $3 > %pontos { .msg = $+ $nick 4ERRO: 2V14ocê só tem2 %pontos 14para distribuir2! | halt }
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %userforca $readini(sda.ini,$nick,força)
.set %fimforca $calc(%userforca + $3)
.writeini sda.ini $nick força %fimforca
.writeini pontos.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2: Força
.msg = $+ $nick 2V14ocê tem2 %fimpontos 14para distribuir2!
.unset %fimpontos
.unset %userforca
.unset %fimforca
halt
}
}
if $2 == Destreza {
if $3 > %pontos { .msg = $+ $nick 4ERRO: 2V14ocê só tem2 %pontos 14para distribuir2! }
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %userdestreza $readini(sda.ini,$nick,destreza)
.set %fimdestreza $calc(%userdestreza + $3)
.writeini sda.ini $nick destreza %fimdestreza
.writeini pontos.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2: Destreza
.msg = $+ $nick 2V14ocê tem2 %fimpontos 14para distribuir2!
.unset %fimpontos
.unset %userdestreza
.unset %fimdestreza
halt
}
}
if $2 == Defesa {
if $3 > %pontos { .msg = $+ $nick 4ERRO: 2V14ocê só tem2 %pontos 14para distribuir2! }
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %userdefesa $readini(sda.ini,$nick,defesa)
.set %fimdefesa $calc(%userdefesa + $3)
.writeini sda.ini $nick defesa %fimdefesa
.writeini pontos.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2: Defesa
.msg = $+ $nick 2V14ocê tem2 %fimpontos 14para distribuir2!
.unset %fimdefesa
.unset %userdefesa
.unset %fimdefesa
halt
}
}
if $2 == Magia {
if $3 > %pontos { .msg = $+ $nick 4ERRO: 2V14ocê só tem2 %pontos 14para distribuir2! }
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %userMagia $readini(sda.ini,$nick,Magia)
.set %fimMagia $calc(%userMagia + $3)
.writeini sda.ini $nick Magia %fimMagia
.writeini pontos.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2: Magia
.msg = $+ $nick 2V14ocê tem2 %fimpontos 14para distribuir2!
.unset %fimmagia
.unset %usermagia
.unset %fimmagia
halt
}
}
else { .msg = $+ $nick 4ERRO: 2A14tributo2 $2 14inexistente, Por Favor verifique sua Digitação2! | halt }
}
}
}
.unset %pontos
}
}
on *:CHAT:!descadastrar: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2D14eseja realmente se descadastrar2?
.msg = $+ $nick 2D14igite 2!Descadastro <Senha> 14caso Sim.
}
}
on *:CHAT:!descadastro*: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $2 != $readini(senhas.ini,$nick $+ 1,senha) { .msg = $+ $nick 4ERRO: 2Senha Incorreta14, por favor verifique sua Digitação2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %userraca $readini(sda.ini,$nick,raça)
.set %iniraca $readini(cadastros.ini,raças,%userraca)
.set %userhabilidade $readini(sda.ini,$nick,habilidade)
.set %inihabilidade $readini(cadastros.ini,habilidades,%userhabilidade)
.set %fimhabilidade $calc(%inihabilidade - 1)
.set %fimraca $calc(%iniraca - 1)
.remini sda.ini $nick nick
.remini sda.ini $nick raça
.remini sda.ini $nick level
.remini sda.ini $nick exp
.remini sda.ini $nick proxnivel
.remini sda.ini $nick ouro
.remini sda.ini $nick elmo
.remini sda.ini $nick armadura
.remini sda.ini $nick força
.remini sda.ini $nick magia
.remini sda.ini $nick destreza
.remini sda.ini $nick defesa
.remini sda.ini $nick escudo
.remini sda.ini $nick ganhou
.remini sda.ini $nick perdeu
.remini sda.ini $nick narrou
.remini sda.ini $nick empate
.remini sda.ini $nick Habilidade
.remini sda.ini $nick Arma
.remini sda.ini $nick item
.remini sda.ini $nick treino
.remini sda.ini $nick trabalho
.remini sda.ini $nick
.remini senhas.ini $nick $+ 1 senha
.remini senhas.ini $nick $+ 1 ident
.remini senhas.ini $nick $+ 1
.remini pontos.ini $nick pontos
.remini pontos.ini $nick
.writeini cadastros.ini raças %userraca %fimraca
.writeini cadastros.ini habilidades %userhabilidade %fimhabilidade
.msg = $+ $nick 2D14escadastro Efetuado com Sucesso2...
.msg %canal.sda 2 $+ $nick 14acaba de se Descadastrar no 2 $+ %canal.sda $+ 2.
.unset %userraca
.unset %iniraca
.unset %userhabilidade
.unset %inihabilidade
.unset %fimhabilidade
.unset %fimraca
.unset %inicadastros
.unset %fimcadastros
}
}
on *:TEXT:!desafiar*:%canal.sda: {
if $readini(sda.ini,$2,nick) == $null { .msg $nick 4ERRO:2 $2 14não está cadastrado2! | halt }
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(desafios.ini,$nick,desafiou) != $null {
.set %desafiado $readini(desafios.ini,$nick,desafiou)
.msg $nick 4ERRO:14 2A14inda aguardando resposta de2 %desafiado $+ 2!
halt
}
.writeini desafios.ini $nick desafiou $2
.writeini desafios.ini $2 desafiador $nick
.msg $2 2 $+ $nick 14está te desafiando para um Duelo...
.msg $2 2D14igite 2!Aceitar $nick 14para aceitar
.msg $2 2D14igite 2!Rejeitar $nick <Motivo> 14para Rejeitar
.msg $nick 2E14nviando Desafio2...
}
}
on *:TEXT:!aceitar*:%canal.sda: {
if $readini(sda.ini,$2,nick) == $null { .msg $nick 4ERRO:2 $2 14não está cadastrado2! | halt }
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(desafios.ini,$nick,desafiador) == $null { .msg $nick 4ERRO:14 2N14inguem te Desafiou2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg $2 2 $+ $nick 14aceitou o seu Desafio2!
.msg $2 2A14bra um PVT com ele e Marque o Duelo2...
.msg $nick 2E14nviando Resposta2...
.remini desafios.ini $nick desafiador
.remini desafios.ini $2 desafiou
}
}
on *:TEXT:!rejeitar*:%canal.sda: {
if $readini(sda.ini,$2,nick) == $null { .msg $nick 4ERRO:2 $2 14não está cadastrado2! | halt }
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(desafios.ini,$nick,desafiador) == $null { .msg $nick 4ERRO:14 2N14inguem te Desafiou2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg $2 2 $+ $nick 14rejeitou o seu Desafio2!
.msg $2 2M14otivo2: $3- $+ 2!
.msg $nick 2E14nviando Resposta2...
.remini desafios.ini $nick desafiador
.remini desafios.ini $2 desafiou
}
}
on *:TEXT:!desafiar*:?: {
if $readini(sda.ini,$2,nick) == $null { .msg $nick 4ERRO:2 $2 14não está cadastrado2! | halt }
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(desafios.ini,$nick,desafiou) != $null {
.set %desafiado $readini(desafios.ini,$nick,desafiou)
.msg $nick 4ERRO:14 2A14inda aguardando resposta de2 %desafiado $+ 2!
halt
}
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.writeini desafios.ini $nick desafiou $2
.writeini desafios.ini $2 desafiador $nick
.msg $2 2 $+ $nick 14está te desafiando para um Duelo...
.msg $2 2D14igite 2!Aceitar $nick 14para aceitar
.msg $2 2D14igite 2!Rejeitar $nick <Motivo> 14para Rejeitar
.msg $nick 2E14nviando Desafio2...
}
}
on *:TEXT:!aceitar*:?: {
if $readini(sda.ini,$2,nick) == $null { .msg $nick 4ERRO:2 $2 14não está cadastrado2! | halt }
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(desafios.ini,$nick,desafiador) == $null { .msg $nick 4ERRO:14 2N14inguem te Desafiou2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg $2 2 $+ $nick 14aceitou o seu Desafio2!
.msg $2 2A14bra um PVT com ele e Marque o Duelo2...
.msg $nick 2E14nviando Resposta2...
.remini desafios.ini $nick desafiador
.remini desafios.ini $2 desafiou
}
}
on *:TEXT:!rejeitar*:?: {
if $readini(sda.ini,$2,nick) == $null { .msg $nick 4ERRO:2 $2 14não está cadastrado2! | halt }
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(desafios.ini,$nick,desafiador) == $null { .msg $nick 4ERRO:14 2N14inguem te Desafiou2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg $2 2 $+ $nick 14rejeitou o seu Desafio2!
.msg $2 2M14otivo2: $3- $+ 2!
.msg $nick 2E14nviando Resposta2...
.remini desafios.ini $nick desafiador
.remini desafios.ini $2 desafiou
}
}
on *:CHAT:!Esqueci: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
else {
.set %senha.memo $readini(senhas.ini,$nick,senha)
/memoserv send $nick 2S14ua Senha no2 %canal.bot $+ 2: %senha.memo
.msg = $+ $nick 2S14enha enviada via 2Memoserv...
}
}
on *:TEXT:!Esqueci:?: {
if $readini(sda.ini,$nick,nick) == $null { .msg $nick $erro.ncad | halt }
else {
.set %senha.memo $readini(senhas.ini,$nick,senha)
/memoserv send $nick 2S14ua Senha no2 %canal.bot $+ 2: %senha.memo
.msg $nick 2S14enha enviada via 2Memoserv...
}
}
on *:CHAT:!exit: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
/close -c $nick
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 15-14=1> 2 $+ $nick 14Desconectou2!
inc %x
}
unset %x
unset %users
unset %nick
}
}
on *:CHAT:!Lutar: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,geral,luta) == ok { .msg = $+ $nick 4ERRO: 2J14á existe uma luta ocorrendo2! | halt }
if $readini(luta.ini,vaga,lutador1) != $null && $readini(luta.ini,vaga,lutador2) != $null && $readini(luta.ini,vaga,narrador) == $null { .msg $nick 4ERRO: 2A14guardando Narrador2! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick { .msg = $+ $nick 4ERRO:14 2A14guardando Lutador2... | halt }
if $readini(luta.ini,vaga,narrador) == $nick { .msg = $+ $nick 4ERRO:2 V14ocê já está setado como Narrador2! | halt }
if $readini(luta.ini,ips,narrador) == $address($nick,2) { .msg = $+ $nick 4ERRO:14 O narrador tem o seu mesmo IP2! | halt }
if $readini(luta.ini,vaga,lutador1) == $null && $readini(luta.ini,vaga,lutador2) == $null {
.writeini luta.ini Vaga Lutador1 $nick
.writeini luta.ini ips Lutador1 $address($nick,2)
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2 $+ $nick 14esperando Lutador 22!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
if $readini(luta.ini,vaga,lutador1) == $null && $readini(luta.ini,vaga,lutador2) != $null {
if $readini(luta.ini,vaga,lutador2) == $nick { .msg = $+ $nick 4ERRO:14 2A14guardando Lutador2... | halt }
if $readini(luta.ini,ips,lutador2) == $address($nick,2) { .msg = $+ $nick 4ERRO:14 Proibido lutas entre Users com o Mesmo IP2! | halt }
.writeini luta.ini Vaga Lutador1 $nick
.writeini luta.ini ips Lutador1 $address($nick,2)
}
if $readini(luta.ini,vaga,lutador1) != $null && $readini(luta.ini,vaga,lutador2) == $null {
if $readini(luta.ini,vaga,lutador1) == $nick { .msg = $+ $nick 4ERRO:14 2A14guardando Lutador2... | halt }
if $readini(luta.ini,ips,lutador1) == $address($nick,2) { .msg = $+ $nick 4ERRO:14 Proibido lutas entre Users com o Mesmo IP2! | halt }
.writeini luta.ini Vaga Lutador2 $nick
.writeini luta.ini ips Lutador2 $address($nick,2)
}
if $readini(luta.ini,vaga,lutador1) != $null && $readini(luta.ini,vaga,lutador2) != $null && $readini(luta.ini,vaga,narrador) == $null {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2A14guardando Narrador2!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
.set %level1 $readini(sda.ini,$readini(luta.ini,vaga,lutador1),level)
.set %level2 $readini(sda.ini,$nick,level)
.set %nick1 $readini(luta.ini,vaga,lutador1)
.set %nick2 $readini(luta.ini,vaga,lutador2)
if %level1 > %level2 {
.writeini luta.ini Geral Atk %nick1
.writeini luta.ini Geral Def %nick2
.writeini luta.ini Geral luta ok
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2:
.msg = $+ %nick 2N14arrador2: $readini(luta.ini,vaga,narrador)
.msg = $+ %nick 2L14ocal2: $read(locais.txt) 15-2 C14lima2: $read(climas.txt)
.msg = $+ %nick 2A14taque2 %nick1 $+ !
inc %x
}
unset %x
unset %users
unset %nick
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador1)
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador2)
halt
}
if %level2 > %level1 {
.writeini luta.ini Geral Atk %nick2
.writeini luta.ini Geral Def %nick1
.writeini luta.ini Geral luta ok
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2:
.msg = $+ %nick 2N14arrador2: $readini(luta.ini,vaga,narrador)
.msg = $+ %nick 2L14ocal2: $read(locais.txt) 15-2 C14lima2: $read(climas.txt)
.msg = $+ %nick 2A14taque2 %nick2 $+ !
inc %x
}
unset %x
unset %users
unset %nick
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador1)
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador2)
halt
}
if %level2 == %level1 {
.writeini luta.ini Geral Atk %nick1
.writeini luta.ini Geral Def %nick2
.writeini luta.ini Geral luta ok
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2:
.msg = $+ %nick 2N14arrador2: $readini(luta.ini,vaga,narrador)
.msg = $+ %nick 2L14ocal2: $read(locais.txt) 15-2 C14lima2: $read(climas.txt)
.msg = $+ %nick 2A14taque2 %nick1 $+ !
inc %x
}
unset %x
unset %users
unset %nick
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador1)
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador2)
halt
}
}
}
on *:CHAT:!narrar: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick %erro.ncad.sda | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(luta.ini,vaga,narrador) == $nick { .msg = $+ $nick 4ERRO:2 V14ocê já está setado como Narrador2! | halt }
if $readini(luta.ini,vaga,narrador) != $null { .msg = $+ $nick 4ERRO:14 Já tem um Narrador a espera de lutadores2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,geral,luta) == ok { .msg = $+ $nick 4ERRO: 2J14á existe uma luta ocorrendo2! | halt }
if $readini(luta.ini,ips,lutador1) == $address($nick,2) { .msg = $+ $nick 4ERRO: 14O seu IP é o mesmo de 2 $+ $readini(luta.ini,vaga,lutador1) $+ 2! | halt }
if $readini(luta.ini,ips,lutador2) == $address($nick,2) { .msg = $+ $nick 4ERRO: 14O seu IP é o mesmo de 2 $+ $readini(luta.ini,vaga,lutador2) $+ 2! | halt }
.writeini luta.ini vaga narrador $nick
.writeini luta.ini ips narrador $address($nick,2)
if $readini(luta.ini,vaga,lutador1) == $null && $readini(luta.ini,vaga,lutador2) == $null && $readini(luta.ini,vaga,narrador) != $null {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2A14guardando Lutadores 021 14e 0222!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
if $readini(luta.ini,vaga,lutador1) != $null && $readini(luta.ini,vaga,lutador2) == $null && $readini(luta.ini,vaga,narrador) != $null {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2A14guardando Lutador 0222!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
if $readini(luta.ini,vaga,lutador1) == $null && $readini(luta.ini,vaga,lutador2) != $null && $readini(luta.ini,vaga,narrador) != $null {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2A14guardando Lutador 0222!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
if $readini(luta.ini,vaga,lutador1) != $null && $readini(luta.ini,vaga,lutador2) != $null && $readini(luta.ini,vaga,narrador) != $null {
.set %level1 $readini(sda.ini,$readini(luta.ini,vaga,lutador1),level)
.set %level2 $readini(sda.ini,$nick,level)
.set %nick1 $readini(luta.ini,vaga,lutador1)
.set %nick2 $readini(luta.ini,vaga,lutador2)
if %level1 > %level2 {
.writeini luta.ini Geral Atk %nick1
.writeini luta.ini Geral Def %nick2
.writeini luta.ini Geral luta ok
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2:
.msg = $+ %nick 2N14arrador2: $readini(luta.ini,vaga,narrador)
.msg = $+ %nick 2L14ocal2: $read(locais.txt) 15-2 C14lima2: $read(climas.txt)
.msg = $+ %nick 2A14taque2 %nick1 $+ !
inc %x
}
unset %x
unset %users
unset %nick
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador1)
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador2)
halt
}
if %level2 > %level1 {
.writeini luta.ini Geral Atk %nick2
.writeini luta.ini Geral Def %nick1
.writeini luta.ini Geral luta ok
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2:
.msg = $+ %nick 2N14arrador2: $readini(luta.ini,vaga,narrador)
.msg = $+ %nick 2L14ocal2: $read(locais.txt) 15-2 C14lima2: $read(climas.txt)
.msg = $+ %nick 2A14taque2 %nick2 $+ !
inc %x
}
unset %x
unset %users
unset %nick
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador1)
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador2)
halt
}
if %level2 == %level1 {
.writeini luta.ini Geral Atk %nick1
.writeini luta.ini Geral Def %nick2
.writeini luta.ini Geral luta ok
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2:
.msg = $+ %nick 2N14arrador2: $readini(luta.ini,vaga,narrador)
.msg = $+ %nick 2L14ocal2: $read(locais.txt) 15-2 C14lima2: $read(climas.txt)
.msg = $+ %nick 2A14taque2 %nick1 $+ !
inc %x
}
unset %x
unset %users
unset %nick
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador1)
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador2)
halt
}
}
}
}
on *:CHAT:!deslutar: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick %erro.ncad.sda | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(luta.ini,vaga,lutador1) != $nick && $readini(luta.ini,vaga,lutador2) != $nick { .msg = $+ $nick 4ERRO:14 Você não está esperando Lutador2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,geral,luta) == ok { .msg = $+ $nick 4ERRO:14 Você já está Lutando2! | halt }
if $readini(luta.ini,vaga,lutador1) == $nick {
.remini luta.ini vaga lutador1
.remini luta.ini ips lutador1
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga Para lutador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
if $readini(luta.ini,vaga,lutador2) == $nick {
.remini luta.ini vaga lutador2
.remini luta.ini ips lutador2
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga Para lutador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
}
}
on *:CHAT:!desnarrar: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick %erro.ncad.sda | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(luta.ini,vaga,narrador) != $nick { .msg = $+ $nick 4ERRO:14 Você não está setado como Narrador2! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,geral,luta) == ok { .msg = $+ $nick 4ERRO:14 Você já está Narrando2! | halt }
.remini luta.ini vaga narrador
.remini luta.ini ips narrador
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2V14aga Para Narrador Aberta2!
inc %x
}
unset %x
unset %users
unset %nick
halt
}
}
on *:CHAT:!desistir: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,vaga,lutador1) != $nick && $readini(luta.ini,vaga,lutador2) != $nick { .msg = $+ $nick 4ERRO:2 V14ocê não está Lutando2! | halt }
if $readini(luta.ini,geral,luta) != ok { .msg = $+ $nick 4ERRO:14 Você não está Lutando2! | halt }
if $readini(luta.ini,vaga,lutador1) == $nick {
if %nick1 == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2 $+ $nick 14desistiu da Luta2!
.msg = $+ %nick 2V14encedor2: %nick2
inc %x
}
unset %x
unset %users
unset %nick
atualizar $readini(luta.ini,vaga,lutador2) $readini(luta.ini,vaga,lutador1) $readini(luta.ini,vaga,narrador) .remove luta.ini
remove luta.ini
.unset %nick1
.unset %nick2
.unset %level1
.unset %level2
halt
}
if %nick2 == $nick {
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
.msg = $+ %nick 2 $+ $nick 14desistiu da Luta2!
.msg = $+ %nick 2V14encedor2: %nick1
inc %x
}
unset %x
unset %users
unset %nick
atualizar $readini(luta.ini,vaga,lutador1) $readini(luta.ini,vaga,lutador2) $readini(luta.ini,vaga,narrador) .remove luta.ini
remove luta.ini
.unset %nick1
.unset %nick2
.unset %level1
.unset %level2
halt
}
}
}
}
on *:CHAT:!Loja: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Loja 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 2!Espadas 15-14 Para ver as melhores Espadas da Terra-Média
.msg = $+ $nick 2!Arcos 15-14 Para ver os melhores Arcos da Terra-Média
.msg = $+ $nick 2!Machados 15-14 Para ver os Melhores Machados da Terra-Média
.msg = $+ $nick 2!Cajados 15-14 Para ver os Melhores Cajados da Terra-Média
.msg = $+ $nick 2!Espadas Negras 15-14 Para ver as Melhores Espadas de Mordor
.msg = $+ $nick 2!Acessorios 15-14 Para ver Armaduras, Elmos e Escudos
.msg = $+ $nick 2OBS¹:14 Para saber o preço de seus equipamentos digite2:
.msg = $+ $nick 0,0......2!Preço Equipamento14, Ex2.: !Preço Armadura
halt
}
}
on *:CHAT:!acessorios: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Acessorios 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 2!Armaduras 15-14 Para ver as melhores Armaduras da Terra-Média
.msg = $+ $nick 2!Elmos 15-14 Para ver as melhores Elmos da Terra-Média
.msg = $+ $nick 2!Escudos 15-14 Para ver as melhores Escudos da Terra-Média
}
}
on *:CHAT:!armaduras: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Armaduras 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021f 14-2 Armadura de Couro 14......2 300 MdO
.msg = $+ $nick 022f 14-2 Armadura de Ferro 14......2 500 MdO
.msg = $+ $nick 023f 14-2 Armadura de Aço 14........2 700 MdO
.msg = $+ $nick 024f 14-2 Armadura de Prata 14......2 1.000 MdO
.msg = $+ $nick 025f 14-2 Armadura Dourada 14.......2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Acessorio Armadura <Código>14, 14Ex2.: 2!Comprar Acessorio Armadura 1f
.msg = $+ $nick 2OBS²:14 Para ver info de alguma arma digite2: !Info Acessorio <Código>14, 14Ex2.: 2!Info Acessorio 1f
}
}
on *:CHAT:!elmos: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Elmos 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021g 14-2 Elmo de Ferro 14..........2 150 MdO
.msg = $+ $nick 022g 14-2 Elmo de Aço 14............2 300 MdO
.msg = $+ $nick 023g 14-2 Elmo de Prata 14..........2 600 MdO
.msg = $+ $nick 024g 14-2 Elmo de Moria 14..........2 1.000 MdO
.msg = $+ $nick 025g 14-2 Elmo Dourado 14...........2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Acessorio Elmo <Código>14, 14Ex2.: 2!Comprar Acessorio Elmo 1g
.msg = $+ $nick 2OBS²:14 Para ver info de alguma arma digite2: !Info Acessorio <Código>14, 14Ex2.: 2!Info Acessorio 1g
}
}
on *:CHAT:!escudos: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Escudos 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021h 14-2 Escudo de Madeira 14......2 200 MdO
.msg = $+ $nick 022h 14-2 Escudo de Ferro 14........2 400 MdO
.msg = $+ $nick 023h 14-2 Escudo de Aço 14..........2 700 MdO
.msg = $+ $nick 024h 14-2 Escudo de Prata 14........2 1.000 MdO
.msg = $+ $nick 025h 14-2 Escudo Dourado 14.........2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Acessorio Escudo <Código>14, 14Ex2.: 2!Comprar Acessorio Escudo 1h
.msg = $+ $nick 2OBS²:14 Para ver info de alguma arma digite2: !Info Acessorio <Código>14, 14Ex2.: 2!Info Acessorio 1h
}
}
on *:CHAT:!espadas: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Espadas 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021a 14-2 Adaga 14....................2 100 MdO
.msg = $+ $nick 022a 14-2 Espada Curta 14.............2 200 MdO
.msg = $+ $nick 023a 14-2 Espada Média 14.............2 400 MdO
.msg = $+ $nick 024a 14-2 Espada Longa 14.............2 800 MdO
.msg = $+ $nick 025a 14-2 Espada Mágica 14............2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Arma <Código>14, 14Ex2.: 2!Comprar Arma 1a
.msg = $+ $nick 2OBS²:14 Para ver info de alguma arma digite2: !Info Arma <Código>14, 14Ex2.: 2!Info Arma 1a
}
}
on *:CHAT:!arcos: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Arcos 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021b 14-2 Arco Curto 14...............2 100 MdO
.msg = $+ $nick 022b 14-2 Arco Médio 14...............2 200 MdO
.msg = $+ $nick 023b 14-2 Arco Longo 14...............2 400 MdO
.msg = $+ $nick 024b 14-2 Arco Dourado 14.............2 800 MdO
.msg = $+ $nick 025b 14-2 Arco de Lórien 14.........2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Arma <Código>14, 14Ex2.: 2!Comprar Arma 1b
.msg = $+ $nick 2OBS²:14 Para ver info de alguma arma digite2: !Info Arma <Código>14, 14Ex2.: 2!Info Arma 1b
}
}
on *:CHAT:!machados: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Machados 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021c 14-2 Machados de Arremesso 14....2 100 MdO
.msg = $+ $nick 022c 14-2 Machado Curto 14............2 200 MdO
.msg = $+ $nick 023c 14-2 Machado Médio 14............2 400 MdO
.msg = $+ $nick 024c 14-2 Machado Longo 14............2 800 MdO
.msg = $+ $nick 025c 14-2 Machado Moria 14............2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Arma <Código>14, 14Ex2.: 2!Comprar Arma 1c
.msg = $+ $nick 2OBS²:14 Para ver info de alguma arma digite2: !Info Arma <Código>14, 14Ex2.: 2!Info Arma 1c
}
}
on *:CHAT:!cajados: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Cajados 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021d 14-2 Cajado Curto 14............2 100 MdO
.msg = $+ $nick 022d 14-2 Cajado Médio 14............2 200 MdO
.msg = $+ $nick 023d 14-2 Cajado Longo 14............2 400 MdO
.msg = $+ $nick 024d 14-2 Majado 14..................2 800 MdO
.msg = $+ $nick 025d 14-2 Cajado Branco 14...........2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Arma <Código>14, 14Ex2.: 2!Comprar Arma 1c
.msg = $+ $nick 2OBS²:14 Para ver
de alguma arma digite2: !Info Arma <Código>14, 14Ex2.: 2!Info Arma 1c
}
}
on *:CHAT:!espadas negras: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2!Espadas Negras 14do BOT
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas de Ouro)
.msg = $+ $nick 021e 14-2 Espada Curta Negra 14....2 100 MdO
.msg = $+ $nick 022e 14-2 Espada Médio Negra 14....2 200 MdO
.msg = $+ $nick 023e 14-2 Espada Longo Negra 14....2 400 MdO
.msg = $+ $nick 024e 14-2 Espada Vermelha 14.......2 800 MdO
.msg = $+ $nick 025e 14-2 Espada de Mordor 14......2 1.600 MdO
.msg = $+ $nick 2OBS¹:14 Para comprar algum item digite 2!Comprar Arma <Código>14, 14Ex2.: 2!Comprar Arma 1d
.msg = $+ $nick 2OBS²:14 Para ver info de alguma arma digite2: !Info Arma <Código>14, 14Ex2.: 2!Info Arma 1d
}
}
on *:CHAT:!info*: {
if $readini(sda.ini,$nick,nick) == $null { .msg = $+ $nick $erro.ncad | halt }
if $readini(sda.ini,$nick,nick) != $null && $readini(senhas.ini,$nick $+ 1,ident) != ok { .msg = $+ $nick 4ERRO:14 Você ainda não se Identificou, Digite 2!Login <Senha> | .msg = $+ $nick 2C14aso esqueceu digite 2!Esqueci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 == arma {
if $readini(armas.ini,$3,nome) == $null { .msg = $+ $nick 4ERRO:2 C14odigo inexistente, por favor verifique sua digitação2. | halt }
.set %nome.arma $readini(armas.ini,$3,nome)
.set %pericias.arma $readini(armas.ini,$3,pericias)
.set %descricao.arma $readini(armas.ini,$3,descricao)
.set %apt.arma $readini(armas.ini,$3,apt)
.set %dano.arma $readini(armas.ini,$3,dano)
.set %critico.arma $readini(armas.ini,$3,critico)
.set %mdo.arma $readini(armas.ini,$3,mdo)
.msg = $+ $nick 2I14nfo do Código2 $3 $+ :
.msg = $+ $nick 2N14ome2: %nome.arma
.msg = $+ $nick 2H14abilidade Requerida2: %pericias.arma
.msg = $+ $nick 2D14escrição2: %descricao.arma
.msg = $+ $nick 2A14PT15(Ataques por Turno)2: %apt.arma
if $readini(armas.ini,$3,alcance) != $null {
.set %alcance.arma $readini(armas.ini,$3,alcance)
.msg = $+ $nick 2A14lcance2: %alcance.arma Metros
.unset %alcance.arma
}
.msg = $+ $nick 2D14ano2: %dano.arma
.msg = $+ $nick 2D14ano Crítico2: %critico.arma
.msg = $+ $nick 2M14dO2: %mdo.arma
.msg = $+ $nick 0.....2F14im do Info
.unset %nome.arma
.unset %pericias.arma
.unset %descricao.arma
.unset %apt.arma
.unset %dano.arma
.unset %critico.arma
.unset %mdo.arma
halt
}
}
if $2 == acessorio {
if $readini(acessorios.ini,$3,nome) == $null { .msg = $+ $nick 4ERRO:2 C14odigo inexistente, por favor verifique sua digitação2. | halt }
.set %nome.acessorio $readini(acessorios.ini,$3,nome)
.set %pericias.acessorio $readini(acessorios.ini,$3,pericias)
.set %descricao.acessorio $readini(acessorios.ini,$3,descricao)
.set %ada.acessorio $readini(acessorios.ini,$3,ada)
.set %mdo.acessorio $readini(acessorios.ini,$3,mdo)
.msg = $+ $nick 2I14nfo do Código2 $3 $+ :
.msg = $+ $nick 2N14ome2: %nome.acessorio
.msg = $+ $nick 2P14ericia Requerida2: %pericias.acessorio
.msg = $+ $nick 2D14escrição2: %descricao.acessorio
.msg = $+ $nick 2A14dA15(Absorção do Ataque)2: %ada.acessorio
.msg = $+ $nick 2M14dO2: %mdo.acessorio
.msg = $+ $nick 0.....2F14im do Info
.unset %nome.acessorio
.unset %pericias.acessorio
.unset %descricao.acessorio
.unset %ada.acessorio
.unset %mdo.acessorio
halt
}
if $2 != arma && $2 != acessorio {
.msg = $+ $nick 4ERRO:2 I14tem inexistente, por favor verifique sua digitação2.
}
}