;|=======================================================================| alias erro.cad return 4ERRO : 14 Você já está Cadastrado2 ! } on *:CHAT:!deslutar: { alias change.turn {
;| Para Perfeito desenvolvimento do BOT não altere nenhum comando abaixo
|
;| BOT feito por: SauroNTL |
;|=======================================================================|
alias erro.ncad return 4ERRO : 14 Você Não está Cadastrado2 !
alias tb /titlebar SDaBOT v2.0 Loaded... - Feito Por: SauroNTL
alias sdabot return 2SDa BOT
alias versao return 2.0.1b
alias lag { set %lag $ticks | .ctcp $me lag }
alias configurar {
/clear
//echo -a 2P14ara 2Configurar 14o BOT use os Seguintes Comandos2 :
//echo -a 2/Setar Canal <#Canal> 14Para Setar o Canal
//echo -a 2/Setar FAQ 14Para Setar o Local do FAQ
//echo -a 2/Setar Comando <Comando> 14Para Setar o Comando do BOT
//echo -a 2/Setar Nick <Nick> 14Para Setar o Nick do BOT
//echo -a 2/Setar Senha <Senha> 14Para Setar o Senha do BOT
//echo -a 2/Setar Turno <Segs> 14Para Setar o Tempo do Turno de Ataque
//echo -a 2/Setar Parceiros <Canais> 14Para Setar o Parceiros
//echo -a 2/Setar Inutilidade <Dias> 14Para Setar o máximo de
dias de inutilidade de cadastros
}
alias aj {
if $readini(cadastros.ini,geral,parceiros) != $null {
.set %parceiros.total $numtok($readini(cadastros.ini,geral,parceiros),32)
if %parceiros.total == 1 { /join $readini(cadastros.ini,geral,parceiros) }
if %parceiros.total > 1 {
.set %x 1
while %x <= %parceiros.total {
/join $gettok($readini(cadastros.ini,geral,parceiros),%x,32)
inc %x
}
}
}
}
alias setar {
if $1 $1 == canal {
.set %canal.sda $2
if %canal.sda == $null {
//echo -a 2N14enhum Canal Setado2 !
halt
}
if %canal.sda != $null {
//echo -a 2C14anal Setado2 : $2
halt
}
}
if $1 == FAQ {
.set %faq.sda $sfile(c:\,Selecione o FAQ,Setar)
if %faq.sda == $null {
//echo -a 2N14enhum FAQ foi Selecionado2 !
halt
}
if %faq.sda != $null {
echo -a 2F14AQ Escolhido2 : %faq.sda
halt
}
}
if $1 == comando {
.set %comando.sda $2
if %comando.sda == $null {
//echo -a 2N14enhum Comando Foi Setado2 !
halt
}
if %comando.sda != $null {
//echo -a 2C14omando Setado2 : $2
halt
}
}
if $1 == nick {
.set %nick.sda $2
if %nick.sda == $Null {
//echo -a 2N14enhum Nick Setado2 !
halt
}
if %nick.sda != $null {
//echo -a 2N14ick Setado2 : $2
/nick $2
halt
}
}
if $1 == Senha {
.set %Senha.sda $2
if %senha.sda == $Null {
//echo -a 2N14enhuma Senha Setado2 !
halt
}
if %senha.sda != $null {
//echo -a 2S14enha Setada2 : $2
halt
}
}
if $1 == turno {
.set %time.turno $2
if %time.turno == $null {
//echo -a 2N14enhum Tempo Setado2 !
.set %time.turno 60
//echo -a 2T14empo Setado Automáticamente2 : 60segs
halt
}
if %time.turno != $null {
//echo -a 2T14empo Setado2 : %time.turno $+ segs
halt
}
}
if $1 == parceiros {
.set %parceiros.sda $2
if %parceiros.sda == nenhum {
.remini cadastros.ini geral parceiros
//echo -a 2L14ista de parceiros deletada2 .
halt
}
if %parceiros.sda == $null {
//echo -a 2N14enhum Parceiro Setado2 !
halt
}
if %parceiros.sda != $null {
if $numtok($readini(cadastros.ini,geral,parceiros),32) >= 1 {
.set %parceiros.agora $readini(cadastros.ini,geral,parceiros)
.writeini cadastros.ini geral parceiros %parceiros.agora %parceiros.sda
}
else { .writeini cadastros.ini geral parceiros %parceiros.sda }
//echo -a 2P14arceiro Setado2 : %parceiros.sda
halt
}
}
if $1 == Inutilidade {
.set %tempo.des.sda $2
if %tempo.des.sda == $null {
//echo -a 2N14enhum Limite de Dias Setado2 !
.set %tempo.des.sda 30
//echo -a 2L14imite setado automáticamente2 : %tempo.des.sda
Dias
halt
}
if %tempo.des.sda != $null {
if %tempo.des.sda == 1 { //echo -a 2L14imite de dias Setado2 : %tempo.des.sda
Dia | halt }
else { //echo -a 2L14imite de dias Setado2 : %tempo.des.sda Dias | halt
}
halt
}
}
}
alias f1 painel
alias painel {
clear @sdabot
window @SDaBOT verdana 11
echo @sdabot $str($chr(160),50) $+ $sdabot v $+ $versao $+
echo @sdabot $str($chr(160),40) $+ 14Duelos de Senhor Dos Anéis
echo @sdabot $str($chr(160),45) $+ 14Feito por2 : SauroNTL
echo @sdabot $chr(160)
echo @sdabot 2S14tatus2 :
echo @sdabot 15.2N14ick2 : $me
echo @sdabot 15.2B14OT iniciado às2 : %timer.inicio
echo @sdabot 15.2D14ata2 : $date
if %start == 1 { echo @sdabot 15.2B14OT ultizado2 : %start Vez }
if %start > 1 { echo @sdabot 15.2B14OT ultizado2 : %start Vezes
}
echo @sdabot 15.2U14ltima vez Utilizado à2 : $replace($duration($calc(%ctime.entrada
- %ctime.saida)),wk,$chr(32) $+ dia,hr,$chr(32) $+ hora,min,$chr(32) $+ minuto,sec,$chr(32)
$+ segundo)
if $server != $null { echo @sdabot 15.2S14ervidor2 : $server }
echo @sdabot $chr(160)
echo @sdabot 2I14nfo Cadastros2 :
echo @sdabot 15.2R14aças2 :
if $readini(cadastros.ini,raças,elfos) == $null { echo @sdabot 15:.2C14adastros
Elfo2 : 0 }
if $readini(cadastros.ini,raças,elfos) != $null { echo @sdabot 15:.2C14adastros
Elfo2 : $readini(cadastros.ini,raças,elfos) }
if $readini(cadastros.ini,raças,humanos) == $null { echo @sdabot 15:.2C14adastros
Humano2 : 0 }
if $readini(cadastros.ini,raças,humanos) != $null { echo @sdabot 15:.2C14adastros
Humano2 : $readini(cadastros.ini,raças,humanos) }
if $readini(cadastros.ini,raças,anões) == $null { echo @sdabot
15:.2C14adastros Anão2 : 0 }
if $readini(cadastros.ini,raças,anões) != $null { echo @sdabot
15:.2C14adastros Anão2 : $readini(cadastros.ini,raças,anões)
}
if $readini(cadastros.ini,raças,hobbits) == $null { echo @sdabot 15:.2C14adastros
Hobbit2 : 0 }
if $readini(cadastros.ini,raças,hobbits) != $null { echo @sdabot 15:.2C14adastros
Hobbit2 : $readini(cadastros.ini,raças,hobbits) }
if $readini(cadastros.ini,raças,orcs) == $null { echo @sdabot 15:.2C14adastros
Orc2 : 0 }
if $readini(cadastros.ini,raças,orcs) != $null { echo @sdabot 15:.2C14adastros
Orc2 : $readini(cadastros.ini,raças,orcs) }
echo @sdabot $chr(160)
echo @sdabot 15.2C14lasses2 :
if $readini(cadastros.ini,classe,guerreiros) == $null { echo @sdabot 15:.2C14adastros
Guerreiro2 : 0 }
if $readini(cadastros.ini,classe,guerreiros) != $null { echo @sdabot 15:.2C14adastros
Guerreiro2 : $readini(cadastros.ini,classe,guerreiros) }
echo @sdabot 15:..2S14ub-Classes Guerreiro2 :
if $readini(cadastros.ini,subclasse,bárbaros) == $null { echo @sdabot
15:...2C14adastros Bárbaros2 : 0 }
if $readini(cadastros.ini,subclasse,bárbaros) != $null { echo @sdabot
15:...2C14adastros Bárbaros2 : $readini(cadastros.ini,subclasse,bárbaros)
}
if $readini(cadastros.ini,subclasse,arqueiros) == $null { echo @sdabot 15:...2C14adastros
Arqueiro2 : 0 }
if $readini(cadastros.ini,subclasse,arqueiros) != $null { echo @sdabot 15:...2C14adastros
Arqueiro2 : $readini(cadastros.ini,subclasse,arqueiros) }
if $readini(cadastros.ini,subclasse,cavaleiros) == $null { echo @sdabot 15:...2C14adastros
Cavaleiro2 : 0 }
if $readini(cadastros.ini,subclasse,cavaleiros) != $null { echo @sdabot 15:...2C14adastros
Cavaleiro2 : $readini(cadastros.ini,subclasse,cavaleiros) }
if $readini(cadastros.ini,subclasse,guardiões) == $null { echo @sdabot
15:...2C14adastros Guardião2 : 0 }
if $readini(cadastros.ini,subclasse,guardiões) != $null { echo @sdabot
15:...2C14adastros Guardião2 : $readini(cadastros.ini,subclasse,guardiões)
}
if $readini(cadastros.ini,classe,ladinos) == $null { echo @sdabot 15:.2C14adastros
Ladino2 : 0 }
if $readini(cadastros.ini,classe,ladinos) != $null { echo @sdabot 15:.2C14adastros
Ladino2 : $readini(cadastros.ini,classe,ladinos) }
echo @sdabot 15:..2S14ub-Classes Ladino2 :
if $readini(cadastros.ini,subclasse,assasinos) == $null { echo @sdabot 15:...2C14adastros
Assasino2 : 0 }
if $readini(cadastros.ini,subclasse,assasinos) != $null { echo @sdabot 15:...2C14adastros
Assasino2 : $readini(cadastros.ini,subclasse,assasinos) }
if $readini(cadastros.ini,subclasse,bardos) == $null { echo @sdabot 15:...2C14adastros
Bardo2 : 0 }
if $readini(cadastros.ini,subclasse,bardos) != $null { echo @sdabot 15:...2C14adastros
Bardo2 : $readini(cadastros.ini,subclasse,bardos) }
echo @sdabot $chr(160)
echo @sdabot 2T14otal de Cadastros2 : $readini(cadastros.ini,cadastros,total)
echo @sdabot $chr(160)
echo @sdabot $chr(160)
echo @sdabot 2I14nfo Loja2 :
echo @sdabot 15.2C14ompras2 :
if $readini(cadastros.ini,compras,armas) == $null { echo @sdabot 15:.2A14rmas
Compradas2 : 0 }
if $readini(cadastros.ini,compras,armas) != $null { echo @sdabot 15:.2A14rmas
Compradas2 : $readini(cadastros.ini,compras,armas) }
if $readini(cadastros.ini,compras,acessorios) == $null { echo @sdabot 15:.2A14cessorios
Comprados2 : 0 }
if $readini(cadastros.ini,compras,acessorios) != $null { echo @sdabot 15:.2A14cessorios
Comprados2 : $readini(cadastros.ini,compras,acessorios) }
if $readini(cadastros.ini,compras,armadura) == $null { echo @sdabot 15:..2A14rmaduras
Compradas2 : 0 }
if $readini(cadastros.ini,compras,armadura) != $null { echo @sdabot 15:..2A14rmadura
Compradas2 : $readini(cadastros.ini,compras,armadura) }
if $readini(cadastros.ini,compras,escudo) == $null { echo @sdabot 15:..2E14scudos
Comprados2 : 0 }
if $readini(cadastros.ini,compras,escudo) != $null { echo @sdabot 15:..2E14scudos
Comprados2 : $readini(cadastros.ini,compras,escudo) }
if $readini(cadastros.ini,compras,elmo) == $null { echo @sdabot 15:..2E14lmos
Comprados2 : 0 }
if $readini(cadastros.ini,compras,elmo) != $null { echo @sdabot 15:..2E14lmos
Comprados2 : $readini(cadastros.ini,compras,elmo) }
if $readini(cadastros.ini,compras,total) == $null { echo @sdabot 2T14otal
de Compras2 : 0 }
if $readini(cadastros.ini,compras,total) != $null { echo @sdabot 2T14otal
de Compras2 : $readini(cadastros.ini,compras,total) }
echo @sdabot $chr(160)
echo @sdabot 15.2V14endas2 :
if $readini(cadastros.ini,vendas,armas) == $null { echo @sdabot 15:.2A14rmas
Vendidas2 : 0 }
if $readini(cadastros.ini,vendas,armas) != $null { echo @sdabot 15:.2A14rmas
Vendidas2 : $readini(cadastros.ini,vendas,armas) }
if $readini(cadastros.ini,vendas,armaduras) == $null { echo @sdabot 15:.2A14rmaduras
Vendidas2 : 0 }
if $readini(cadastros.ini,vendas,armaduras) != $null { echo @sdabot 15:.2A14rmaduras
Vendidas2 : $readini(cadastros.ini,vendas,armaduras) }
if $readini(cadastros.ini,vendas,escudos) == $null { echo @sdabot 15:.2E14scudos
Vendidos2 : 0 }
if $readini(cadastros.ini,vendas,escudos) != $null { echo @sdabot 15:.2E14scudos
Vendidos2 : $readini(cadastros.ini,vendas,escudos) }
if $readini(cadastros.ini,vendas,elmos) == $null { echo @sdabot 15:.2E14lmos
Vendidos2 : 0 }
if $readini(cadastros.ini,vendas,elmos) != $null { echo @sdabot 15:.2E14lmos
Vendidos2 : $readini(cadastros.ini,vendas,elmos) }
if $readini(cadastros.ini,vendas,total) == $null { echo @sdabot 2T14otal
de Vendas2 : 0 }
if $readini(cadastros.ini,vendas,total) != $null { echo @sdabot 2T14otal
de Vendas2 : $readini(cadastros.ini,vendas,total) }
echo @sdabot $chr(160)
echo @sdabot $chr(160)
echo @sdabot 2I14nfo Arsenal2 :
echo @sdabot 15.2T14otal de Armas2 : $replace($ini(armas.ini,0),$null,0)
echo @sdabot 15.2T14otal de Acessorios2 : $replace($ini(acessorios.ini,0),$null,0)
echo @sdabot 15.2T14otal de Cavalos2 : $replace($ini(cavalos.ini,0),$null,0)
echo @sdabot $chr(160)
echo @sdabot 2P14ara atualizar o painel digite2 : /painel 14ou tecle2
F1
}
on *:exit: { .set %ctime.saida $ctime }
on *:load: { load -rs SDaBOT2.mrc }
on *:unload: {
unload SDaBOT2.mrc
unset %canal.sda
unset %faq.sda
unset %comando.sda
unset %nick.sda
unset %senha.sda
unset %time.turno
unset %parceiros.sda
unset %tempo.des.sda
//echo -a 2SDa BOT v2.0 14Unloaded...
}
alias quotes .msg %canal.sda 2I14nfo2 : $read(quotes.txt)
on *:TEXT:!Quote:%canal.sda: { quotes }
on *:connect: {
if %canal.sda == $null { /disconnect | //echo -a --- | //echo -a 2É
14necessário setar um 2Canal14, use, 2/Setar Canal #Canal | //echo
-a --- | halt }
if %comando.sda == $null { /disconnect | //echo -a --- | //echo -a 2É
14necessário setar um 2Comando14, use, 2/Setar Comando !Comando |
//echo -a --- | halt }
if %nick.sda == $null { /disconnect | //echo -a --- | //echo -a 2É
14necessário setar um 2Nick14, use, 2/Setar Nick Nick | //echo -a
--- | halt }
if %senha.sda == $null { /disconnect | //echo -a --- | //echo -a 2É
14necessário setar uma 2Senha para o Nick14, use, 2/Setar Senha Senha
| //echo -a --- | halt }
if %time.turno == $null { /disconnect | //echo -a --- | //echo -a 2É
14necessário setar um 2Tempo para o Turno14, use, 2/Setar Turno Tempo(Em
segundos) | //echo -a --- | halt }
if %tempo.des.sda == $null { /disconnect | //echo -a --- | //echo -a 2É
14necessário setar um 2Limite de dias de inutilidade dos cadastros14,
use, 2/Setar Inutilidade Dias | //echo -a --- | halt }
if %canal.sda != $null {
/join %canal.sda
/.timerlag 0 900 lag
/.timerquote 0 1200 quotes
/.timercheckcadastros 0 18000 check.cadastros
check.cadastros
aj
}
}
on *:TEXT:!Join*:?: {
if $nick isop %canal.sda && $2 != $null {
if $chan($2) != $null { .msg $nick 4ERRO : 14 Já estou no2 $2 $+
2 ! | halt }
else { /join $2 | .msg $nick 2P14ronto2 ! }
}
if $nick !isop %canal.sda { halt }
}
on *:TEXT:!AJ*:?: {
if $readini(cadastros.ini,geral,parceiros) != $null && $nick isop %canal.sda
{
if $2 == $null { aj | .msg $nick 2P14ronto2 ! }
if $2 == list { .msg $nick 2A14uto-Join2 : $readini(cadastros.ini,geral,parceiros)
}
}
else { halt }
}
on *:TEXT:!Versão:*: { .msg %canal.sda $sdabot v $+ $versao $+ }
on *:TEXT:!Part*:?: {
if $nick isop %canal.sda && $2 != $null {
if $2 == %canal.sda { .msg $nick 4ERRO : 14Impossivel sair do2 %canal.sda
$+ 2 ! | halt }
if $chan($2) == $null { .msg $nick 4ERRO : 14 Não estou no2 $2 $+
2 ! | halt }
else { /part $2 | .msg $nick 2P14ronto2 ! }
}
if $nick !isop %canal.sda { halt }
}
on *:TEXT:!Listar Canais:?: {
if $nick isop %canal.sda {
.msg $nick 2L14istando Canais2 :
var %meuovo = 0
while %meuovo < $chan(0) {
inc %meuovo
var %meuovo.canal $chan(%meuovo)
.msg $nick 15-14=1> 2 $+ %meuovo.canal
}
if $chan(0) == 1 { .msg $nick 2T14otal de2 $chan(0) 14Canal2 . }
if $chan(0) > 1 { .msg $nick 2T14otal de2 $chan(0) 14Canal2 . }
halt
}
}
on *:TEXT:!Server:?: { if $nick isop %canal.sda { .msg $nick 2C14onectado
em2 : $server } | else { halt } }
on *:TEXT:%comando.sda:%canal.sda: { /dcc chat $nick }
alias check.configurações {
//echo -a 2V14erificando Configurações2 :
if %canal.sda == $null { //echo -a 5C4anal5 : Nenhum }
else { //echo -a 2C14anal2 : %canal.sda }
if %faq.sda == $null { //echo -a 5F4AQ5 : Nenhum }
else { //echo -a 2F14AQ2 : %faq.sda }
if %comando.sda == $null { //echo -a 5C4omando5 : Nenhum }
else { //echo -a 2C14omando2 : %comando.sda }
if %nick.sda == $null { //echo -a 5N4ick5 : Nenhum }
else { //echo -a 2N14ick2 : %nick.sda }
if %senha.sda == $null { //echo -a 5S4enha5 : Nenhuma }
else { //echo -a 2S14enha2 : %senha.sda }
if %time.turno == $null { //echo -a 5T4empo do Turno5 : Nenhum }
else { //echo -a 2T14empo do Turno2 : %time.turno }
if %parceiros.sda == $null { //echo -a 5P4arceiros5 : Nenhum }
else { //echo -a 2P14arceiros2 : %parceiros.sda }
if %tempo.des.sda == $null { //echo -a 5L4imite de dias de inutilidade5 :
Nenhum }
else { //echo -a 2L14imite de dias de inutilidade2 : %tempo.des.sda
}
}
on *:START: {
inc %start
.set %timer.inicio $time
.set %ctime.entrada $ctime
//echo -a $sdabot v $+ $versao $+ 14Loaded2 ...
//echo -a 2F14eito Por2 : SauroNTL
//echo -a 2P14ara Configura-lo digite2 : /Configurar
//echo -a 15---
check.configurações
tb
painel
vne.del
des.del
if $exists(luta.ini) { .remove luta.ini }
}
on *:TEXT:!Nick*:?: {
if $nick !isop %canal.sda && $2 != $null { halt }
if $nick !isop %canal.sda && $2 == $null { halt }
if $nick isop %canal.sda && $2 != $null { /nick $2 }
}
on *:TEXT:!Reconnect*:?: {
if $nick !isop %canal.sda { halt }
if $nick isop %canal.sda && $2 == $null { .set %server.atual $server
| /quit Reconectar. | /server %server.atual }
if $nick isop %canal.sda && $2 != $null { /quit Mudando de Servidor.
| /server $2 }
}
on *:join:%canal.sda: {
if $nick != $me { inc %join }
if $readini(sda.ini,$nick,nick) == $null && $nick != $me { notice $nick
2V14ocê não está cadastrado, Digite:2 /dcc chat %nick.sda
14ou2 %comando.sda 14para se cadastrar2 ! }
}
on *:TEXT:!Acesso:%canal.sda: { .msg %canal.sda 2N14umero de Visitantes2 :
%join }
on *:TEXT:!FAQ:%canal.sda: { /dcc send $nick %faq.sda }
on *:open:=: {
if $readini(cadastros.ini,banidos,$nick) == $chat($nick).ip {
.msg = $+ $nick 4ERRO : 14 Você está Banido do 2 $+ CHAT $+
!
/close -c $nick
halt
}
if $readini(sda.ini,$nick,nick) == $null {
.msg = $+ $nick 2S14eja Bem Vindo ao $sdabot
.msg = $+ $nick 2V14ocê Ainda não está cadastrado, Digite
2 ! Cadastrar
halt
}
if $readini(sda.ini,$nick,nick) != $null {
.msg = $+ $nick 2S14eja Bem Vindo ao $sdabot
.msg = $+ $nick 2V14ocê ainda não está Identificado,
Digite2 ! L ogin <Senha>
.msg = $+ $nick 2C14aso esqueceu digite 2! E squeci
}
}
on *:close:@sdabot: { /.timersda 1 1 painel }
on *:part:%canal.sda: {
if $readini(sda.ini,$nick,nick) != $null { .writeini sda.ini $nick ctime $ctime
}
if $readini(cadastros.ini,status,$nick) != $null { .remini cadastros.ini status
$nick | .remini sda.ini $nick }
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)
.msg = $+ %nick 2*** 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 $atk == $nick {
msg.all2 $+ $atk 14fugiu da luta2 !
msg.all 2V14encedor2 : $def
atualizar $def $atk
halt
}
if $def == $nick {
msg.all2 $+ $def 14fugiu da luta2 !
msg.all 2V14encedor2 : $atk
atualizar $atk $def
halt
}
}
if $readini(luta.ini,geral,luta) != ok {
if $lutador1 == $nick {
.remini luta.ini vaga lutador1
.remini luta.ini ips lutador1
msg.all 2V14aga para Lutador Aberta2 !
halt
}
if $lutador2 == $nick {
.remini luta.ini vaga lutador2
.remini luta.ini ips lutador2
msg.all 2V14aga para Lutador Aberta2 !
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 }
.msg = $+ $nick 2L14utador12 : %lutador1
.msg = $+ $nick 2L14utador22 : %lutador2
}
}
on *:close:=: {
if $readini(sda.ini,$nick,nick) != $null { .writeini senhas.ini $nick $+ 1 ident
off }
if $readini(cadastros.ini,status,$nick) != $null { .remini cadastros.ini status
$nick | .remini sda.ini $nick }
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick != $nick && $readini(senhas.ini,%nick $+ 1,ident) == ok { .msg
= $+ %nick 2*** 2 $+ $nick 14Desconectou2 . }
inc %x
}
unset %x
unset %users
unset %nick
if $readini(luta.ini,geral,luta) == ok {
if $atk == $nick {
msg.all 2 $+ $atk 14fugiu da luta2 !
msg.all 2V14encedor2 : $def
atualizar $def $atk
halt
}
if $def == $nick {
msg.all 2 $+ $def 14fugiu da luta2 !
msg.all 2V14encedor2 : $atk
atualizar $atk $def
halt
}
}
if $readini(luta.ini,geral,luta) != ok {
if $lutador1 == $nick {
.remini luta.ini vaga lutador1
.remini luta.ini ips lutador1
msg.all 2V14aga para Lutador Aberta2 !
halt
}
if $lutador2 == $nick {
.remini luta.ini vaga lutador2
.remini luta.ini ips lutador2
msg.all 2V14aga para Lutador Aberta2 !
inc %x
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! L ogin <Senha> | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2B14em Vindo ao $sdabot v $+ $versao $+
.msg = $+ $nick 2! D escadastrar 15-14 Para se descadastrar
.msg = $+ $nick 2! F icha 15-14 Para Ver sua Ficha
.msg = $+ $nick 2! F icha <Nick> 15-14 Para Ver a Ficha do Nick
Desejado
.msg = $+ $nick 2! L oja 15-14 Para comprar os Melhores itens da Terra-Média
.msg = $+ $nick 2! T reinar 15-14 Para ganhar Experiencia
.msg = $+ $nick 2! T rabalhar 15-14 Para ganhar MdO
;.msg = $+ $nick 2! D esafiar <Nick> 15-14 Desafiar nicks pra um
Duelo
.msg = $+ $nick 2! O nLine 15-14 Para ver quantas pessoas estão
no BOT
.msg = $+ $nick 2@ O P 15-14 Comando só para OP's
.msg = $+ $nick 2! B OT 15-14 Para Ver a configuração do
BOT
.msg = $+ $nick 2! E xit 15-14 Para desconectar do BOT
}
}
on *:TEXT:!Nick*:?: {
if $nick !isop %canal.sda { halt }
else { /nick $2 }
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %total $chat(0)
.set %x 0
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 $sdabot, Listando2 : }
while ( %x < %total ) {
inc %x
.set %nick $chat(%x)
if %nick isop %canal.sda { set %opv @ }
if %nick isvo %canal.sda { set %opv + }
if %nick !isop %canal.sda && %nick !isvo %canal.sda { unset %opv }
if %opv != $null { .msg = $+ $nick 15-14=1>2 %opv $+ %nick | unset %opv
}
else { .msg = $+ $nick 15-14=1>2 %nick | unset %opv }
}
unset %x
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 $sdabot
.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 $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 }
/mode %canal.sda +ooo $2
.msg $nick 2D14ado OP a2 $2
}
on *:TEXT:!deop*:?: {
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 }
/mode %canal.sda -ooo $2
.msg $nick 2T14irado OP de2 $2
}
on *:TEXT:!Disconnect*:?: {
if $nick !isop %canal.sda { halt }
else { /quit $2- }
}
on *:TEXT:!voice*:?: {
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 }
/mode %canal.sda +vvv $2
.msg $nick 2D14ado Voice a2 $2
}
on *:TEXT:!devoice*:?: {
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 }
/mode %canal.sda -vvv $2
.msg $nick 2T14irado Voice de2 $2
}
on *:TEXT:!kick*:?: {
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(sda.ini,$2,nick) != $null { .writeini senhas.ini $2 $+ 1 ident off
}
/kick %canal.sda $2 $3-
.msg $nick 2K14ickado2 : $2 $+ 14, Motivo2 : $3-
.msg $2 2V14ocê foi kickado do CHAT, Motivo2 : $3-
if $chat($2) == $2 {
.msg = $+ $2 2F14echando CHAT em 023 14Segundos, Motivo2 : Você
foi Kickado do 2 $+ CHAT $+ !
/.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 2*** 2 $+ $2 14Desconectou2 . }
inc %x
}
unset %x
unset %users
unset %nick
}
}
on *:TEXT:!ban*:?: {
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(sda.ini,$2,nick) != $null { .writeini senhas.ini $2 $+ 1 ident off
}
/ban -k %canal.sda $2 2 $3-
.msg $nick 2B14anido2 : $2 $+ 14, Motivo2 : $3-
.msg $2 2V14ocê foi banido do CHAT, Motivo2 : $3-
if $chat($2) == $2 {
.msg = $+ $2 2F14echando CHAT em 023 14Segundos, Motivo2 : Você
está 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 2*** 2 $+ $2 14Desconectou2 . }
inc %x
}
unset %x
unset %users
unset %nick
}
}
on *:TEXT:!unban*:?: {
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 }
/ban -r %canal.sda $2 2
.msg $nick 2D14esbanido2 $2 14do 2 $+ %canal.sda $+ .
.msg $2 2V14ocê foi desbanido do2 %canal.sda $+ 2 .
}
on *:CHAT:!bot: { .msg = $+ $nick $sdabot v $+ $versao $+ 15-2 F14eito
por2 : SauroNTL }
on *:TEXT:!bot:*: { .msg %canal.sda $sdabot v $+ $versao $+ 15-2 F14eito
por2 : SauroNTL }
on *:TEXT:*late*bot*:%canal.sda: { if $nick != SauroNTL { 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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 %userclasse $readini(sda.ini,$nick,classe)
.set %usersubclasse $readini(sda.ini,$nick,subclasse)
.set %userouro $readini(sda.ini,$nick,ouro)
.set %userganhou $readini(sda.ini,$nick,ganhou)
.set %userperdeu $readini(sda.ini,$nick,perdeu)
.set %userlevel $readini(sda.ini,$nick,level)
.set %userelmo $readini(sda.ini,$nick,cabeça)
.set %userarmadura $readini(sda.ini,$nick,peito)
.set %userpernas $readini(sda.ini,$nick,pernas)
.set %userescudo $readini(sda.ini,$nick,braço.esquerdo)
.set %userarma $readini(sda.ini,$nick,braço.direito)
.set %userpontos $readini(sda.ini,$nick,pontos)
.set %userforça $readini(sda.ini,$nick,força)
.set %userfoco $readini(sda.ini,$nick,foco)
.set %userdestreza $readini(sda.ini,$nick,destreza)
.set %uservigor $readini(sda.ini,$nick,vigor)
.set %useritem $readini(sda.ini,$nick,item)
.msg = $+ $nick 2S14eus Dados2 :
.msg = $+ $nick 2I14nfo2 :
.msg = $+ $nick 15* 2R14aça2 : %userraça
.msg = $+ $nick 15* 2C14lasse2 : %userclasse $+ 15/2 $+ %usersubclasse
.msg = $+ $nick 15* 2L14evel2 : %userlevel
.msg = $+ $nick 15* 2E14xp2 : %userexp $+ 15/02 $+ %userproxnivel
.msg = $+ $nick 2A14tributos2 :
.msg = $+ $nick 15* 2F14orça2 : %userforça
.msg = $+ $nick 15* 2F14oco2 : %userfoco
.msg = $+ $nick 15* 2D14estreza2 : %userdestreza
.msg = $+ $nick 15* 2V14igor2 : %uservigor
.msg = $+ $nick 2A14rmadura2 :
.msg = $+ $nick 15* 2C14abeça2 : %userelmo
.msg = $+ $nick 15* 2P14eito2 : %userarmadura
.msg = $+ $nick 15* 2B14raços2 :
.msg = $+ $nick 15** 2E14squerdo2 : %userescudo
.msg = $+ $nick 15** 2D14ireito2 : %userarma
.msg = $+ $nick 15* 2P14ernas2 : %userpernas
.msg = $+ $nick 2O14utros2 :
.msg = $+ $nick 15* 2I14tem2 : %useritem
.msg = $+ $nick 15* 2O14uro2 : %userouro MdO
if $cavalo($nick) != $null { .msg = $+ $nick 15* 2C14avalo2 : $readini(sda.ini,$nick,cavalo)
}
.msg = $+ $nick 15* 2M14pT2 : $readini(sda.ini,$nick,mpt)
.msg = $+ $nick 15* 2P14ontos de atributos2 : %userpontos
.msg = $+ $nick 15* 2G14anhou2 : %userganhou 15-14 2P14erdeu2 :
%userperdeu
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(sda.ini,$2,nick) == $null { .msg = $+ $nick 4ERRO : 2 $2 14não
está Cadastrado2 ! | halt }
.set %outroraça $readini(sda.ini,$2,raça)
.set %outroexp $readini(sda.ini,$2,exp)
.set %outroproxnivel $readini(sda.ini,$2,proxnivel)
.set %outroclasse $readini(sda.ini,$2,classe)
.set %outrosubclasse $readini(sda.ini,$2,subclasse)
.set %outroouro $readini(sda.ini,$2,ouro)
.set %outroganhou $readini(sda.ini,$2,ganhou)
.set %outroperdeu $readini(sda.ini,$2,perdeu)
.set %outrolevel $readini(sda.ini,$2,level)
;.set %outroelmo $readini(sda.ini,$2,cabeça)
;.set %outroarmadura $readini(sda.ini,$2,peito)
;.set %outropernas $readini(sda.ini,$2,pernas)
;.set %outroescudo $readini(sda.ini,$2,braço.esquerdo)
;.set %outroarma $readini(sda.ini,$2,braço.direito)
;.set %outropontos $readini(sda.ini,$2,pontos)
;.set %outroforça $readini(sda.ini,$2,força)
;.set %outrofoco $readini(sda.ini,$2,foco)
;.set %outrodestreza $readini(sda.ini,$2,destreza)
;.set %outrovigor $readini(sda.ini,$2,vigor)
;.set %outroitem $readini(sda.ini,$2,item)
.msg = $+ $nick 2F14icha de2 $2 $+ :
.msg = $+ $nick 2I14nfo2 :
.msg = $+ $nick 15* 2R14aça2 : %outroraça
.msg = $+ $nick 15* 2C14lasse2 : %outroclasse $+ 15/2 $+ %outrosubclasse
.msg = $+ $nick 15* 2L14evel2 : %outrolevel
.msg = $+ $nick 15* 2E14xp2 : %outroexp $+ 15/02 $+ %outroproxnivel
;.msg = $+ $nick 2A14tributos2 :
;.msg = $+ $nick 15* 2F14orça2 : %outroforça
;.msg = $+ $nick 15* 2F14oco2 : %outrofoco
;.msg = $+ $nick 15* 2D14estreza2 : %outrodestreza
;.msg = $+ $nick 15* 2V14igor2 : %outrovigor
;.msg = $+ $nick 2A14rmadura2 :
;.msg = $+ $nick 15* 2C14abeça2 : %outroelmo
;.msg = $+ $nick 15* 2P14eito2 : %outroarmadura
;.msg = $+ $nick 15* 2B14raços2 :
;.msg = $+ $nick 15** 2E14squerdo2 : %outroescudo
;.msg = $+ $nick 15** 2D14ireito2 : %outroarma
;.msg = $+ $nick 15* 2P14ernas2 : %outropernas
.msg = $+ $nick 2O14utros2 :
;.msg = $+ $nick 15* 2I14tem2 : %outroitem
;.msg = $+ $nick 15* 2O14uro2 : %outroouro MdO
if $cavalo($2) != $null { .msg = $+ $nick 15* 2C14avalo2 : $readini(sda.ini,$2,cavalo)
}
;.msg = $+ $nick 15* 2M14pT2 : $readini(sda.ini,$2,mpt)
;.msg = $+ $nick 15* 2P14ontos de atributos2 : %outropontos
if $2 ison %canal.sda { .msg = $+ $nick 15* 2U14ltima vez visto2 :
Está no %canal.sda }
else { .msg = $+ $nick 15* 2U14ltima vez visto2 : $duracao($calc($ctime
- $readini(sda.ini,$2,ctime))) }
.msg = $+ $nick 15* 2G14anhou2 : %outroganhou 15-14 2P14erdeu2 :
%outroperdeu
}
}
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 : 14 Você Já está
identificado2 ! | 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 Incorreta 14, Por Favor Verifique sua Digitação | halt
}
if $readini(senhas.ini,$nick $+ 1,senha) == $2- {
.writeini senhas.ini $nick $+ 1 ident ok
.writeini sda.ini $nick ctime $ctime
.msg = $+ $nick 2S14enha Aceita, Você Está Reconhecido.
.msg = $+ $nick 1---
.msg = $+ $nick 2O14lá meu caro 2 $+ $nick $+ .
.msg = $+ $nick 2P14ara Acessar o Menu Digite 2 $+ %comando.sda
.set %total $chat(0)
.set %x 1
while ( %x <= %total ) {
.set %nick $chat(%x)
if %nick != $nick && $readini(senhas.ini,%nick $+ 1,ident) == ok { .msg
= $+ %nick 2*** 2 $+ $nick 14Conectou2 . }
inc %x
}
unset %x
unset %users
unset %nick
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,geral,luta) == ok && $lutador1 == $nick { .msg
= $+ $nick 4ERR : 14 Você está Lutando2 ! | halt }
if $readini(luta.ini,geral,luta) == ok && $lutador2 == $nick { .msg
= $+ $nick 4ERR : 14 Você está Lutando2 ! | halt }
var %treino = $readini(sda.ini,$nick,Treino)
if %treino == $date { .msg = $+ $nick 4ERRO : 14 Você 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 $int($calc(%iniexp + (%inilevel * 3)/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 $int($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 sda.ini $nick pontos %fimpontos
.msg = $+ $nick 2V14ocê evoluiu de Level e ganhou mais 025 14pontos
de Atributos 2 !
.msg = $+ $nick 2D14igite2 : ! D istribuir Atributo Quantia
}
}
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 != Força && $2 != Destreza && $2 != Foco &&
$2 != Vigor {
.msg = $+ $nick 4ERRO : 14Estão disponível para distribuir
os seguintes2 :
.msg = $+ $nick 2Força 15-2 Destreza 15-2 Foco 15-2 Vigor
halt
}
.set %pontos $readini(sda.ini,$nick,pontos)
if %pontos == 0 { .msg = $+ $nick 4ERRO : 14Você não tem pontos
para distribuir2 ! | halt }
if %pontos != 0 {
if $3 == $null { .msg = $+ $nick 4ERRO : 14É necessario uma quantia
de pontos2 ! | halt }
if $3 != $null {
if $3 == 0 { .msg = $+ $nick 4ERRO : 14 É necessario uma quantia
de pontos2 ! | halt }
if $3 != 0 {
if $2 == Força {
if $3 > %pontos {
if %pontos > 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos pontos 14para
distribuir2 !
halt
}
if %pontos == 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos ponto 14para
distribuir2 !
halt
}
}
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %fimforca $calc($readini(sda.ini,$nick,força) + $3)
.writeini sda.ini $nick força %fimforca
.writeini sda.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2 : Força
if %fimpontos == 1 { .msg = $+ $nick 2V14ocê tem2 $+ %fimpontos
$+ ponto 14para distribuir2 ! }
if %fimpontos == 0 { .msg = $+ $nick 2V14ocê não tem mais ponto
para distribuir2 ! }
if %fimpontos != 1 && %fimpontos != 0 { .msg = $+ $nick 2V14ocê
tem2 $+ %fimpontos $+ pontos 14para distribuir2 ! }
halt
}
}
if $2 == Destreza {
if $3 > %pontos {
if %pontos > 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos pontos 14para
distribuir2 !
halt
}
if %pontos == 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos ponto 14para
distribuir2 !
halt
}
}
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %fimdestreza $calc($readini(sda.ini,$nick,destreza) + $3)
.writeini sda.ini $nick destreza %fimdestreza
.writeini sda.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2 : Destreza
if %fimpontos == 1 { .msg = $+ $nick 2V14ocê tem2 $+ %fimpontos
$+ ponto 14para distribuir2 ! }
if %fimpontos == 0 { .msg = $+ $nick 2V14ocê não tem mais ponto
para distribuir2 ! }
if %fimpontos != 1 && %fimpontos != 0 { .msg = $+ $nick 2V14ocê
tem2 $+ %fimpontos $+ pontos 14para distribuir2 ! }
halt
}
}
if $2 == foco {
if $3 > %pontos {
if %pontos > 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos pontos 14para
distribuir2 !
halt
}
if %pontos == 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos ponto 14para
distribuir2 !
halt
}
}
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %fimfoco $calc($readini(sda.ini,$nick,foco) + $3)
.writeini sda.ini $nick foco %fimfoco
.writeini sda.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2 : Foco
if %fimpontos == 1 { .msg = $+ $nick 2V14ocê tem2 $+ %fimpontos
$+ ponto 14para distribuir2 ! }
if %fimpontos == 0 { .msg = $+ $nick 2V14ocê não tem mais ponto
para distribuir2 ! }
if %fimpontos != 1 && %fimpontos != 0 { .msg = $+ $nick 2V14ocê
tem2 $+ %fimpontos $+ pontos 14para distribuir2 ! }
halt
}
}
if $2 == Vigor {
if $3 > %pontos {
if %pontos > 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos pontos 14para
distribuir2 !
halt
}
if %pontos == 1 {
.msg = $+ $nick 4ERRO : 14Você só tem2 %pontos ponto 14para
distribuir2 !
halt
}
}
if $3 <= %pontos {
.set %fimpontos $calc(%pontos - $3)
.set %fimvigor $calc($readini(sda.ini,$nick,vigor) + $3)
.writeini sda.ini $nick vigor %fimvigor
.writeini sda.ini $nick pontos %fimpontos
.msg = $+ $nick 2P14ontos distribuidos para o Atributo2 : Vigor
if %fimpontos == 1 { .msg = $+ $nick 2V14ocê tem2 $+ %fimpontos
$+ ponto 14para distribuir2 ! }
if %fimpontos == 0 { .msg = $+ $nick 2V14ocê não tem mais ponto
para distribuir2 ! }
if %fimpontos != 1 && %fimpontos != 0 { .msg = $+ $nick 2V14ocê
tem2 $+ %fimpontos $+ pontos 14para distribuir2 ! }
halt
}
}
}
}
}
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $lutador1 == $nick && $readini(luta.ini,geral,luta) == ok { .msg
= $+ $nick 4ERRO: 14Você está lutando. | halt }
if $lutador2 == $nick && $readini(luta.ini,geral,luta) == ok { .msg
= $+ $nick 4ERRO: 14Você está lutando. | halt }
if $lutador1 == $nick && $readini(luta.ini,geral,luta) != ok { .msg
= $+ $nick 4ERRO: 14Você está setado como lutador, use 2!Deslutar
14para que possa efetuar seu descadastro. | halt }
if $lutador2 == $nick && $readini(luta.ini,geral,luta) != ok { .msg
= $+ $nick 4ERRO: 14Você está setado como lutador, use 2!Deslutar
14para que possa efetuar seu descadastro. | 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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $2 != $readini(senhas.ini,$nick $+ 1,senha) { .msg = $+ $nick 4ERRO :
2 Senha Incorreta 14, por favor verifique sua Digitação2 !
| halt }
if $lutador1 == $nick && $readini(luta.ini,geral,luta) == ok { .msg
= $+ $nick 4ERRO: 14Você está lutando. | halt }
if $lutador2 == $nick && $readini(luta.ini,geral,luta) == ok { .msg
= $+ $nick 4ERRO: 14Você está lutando. | halt }
if $lutador1 == $nick && $readini(luta.ini,geral,luta) != ok { .msg
= $+ $nick 4ERRO: 14Você está setado como lutador, use 2!Deslutar
14para que possa efetuar seu descadastro. | halt }
if $lutador2 == $nick && $readini(luta.ini,geral,luta) != ok { .msg
= $+ $nick 4ERRO: 14Você está setado como lutador, use 2!Deslutar
14para que possa efetuar seu descadastro. | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.set %raça $readini(sda.ini,$nick,raça)
.set %classe $readini(sda.ini,$nick,classe)
.set %subclasse $readini(sda.ini,$nick,subclasse)
.writeini cadastros.ini cadastros total $calc($readini(cadastros.ini,cadastros,total)
- 1)
if %raça == Humano {
.set %fimraça $calc($readini(cadastros.ini,raças,humanos) - 1)
.writeini cadastros.ini raças humanos %fimraça
}
if %raça == Hobbit {
.set %fimraça $calc($readini(cadastros.ini,raças,hobbits) - 1)
.writeini cadastros.ini raças hobbits %fimraça
}
if %raça == Elfo {
.set %fimraça $calc($readini(cadastros.ini,raças,elfos) - 1)
.writeini cadastros.ini raças elfos %fimraça
}
if %raça == Orc {
.set %fimraça $calc($readini(cadastros.ini,raças,orcs) - 1)
.writeini cadastros.ini raças orcs %fimraça
}
if %raça == Anão {
.set %fimraça $calc($readini(cadastros.ini,raças,anões)
- 1)
.writeini cadastros.ini raças anões %fimraça
}
if %classe == Guerreiro {
.set %fimclasse $calc($readini(cadastros.ini,classe,guerreiros) - 1)
.writeini cadastros.ini subclasse guerreiros %fimclasse
if %subclasse == Bárbaro {
.set %fimsubclasse $calc($readini(cadastros.ini,subclasse,bárbaros) -
1)
.writeini cadastros.ini subclasse bárbaros %fimsubclasse
}
if %subclasse == Arqueiro {
.set %fimsubclasse $calc($readini(cadastros.ini,subclasse,arqueiros) - 1)
.writeini cadastros.ini subclasse arqueiros %fimsubclasse
}
if %subclasse == Cavaleiro {
.set %fimsubclasse $calc($readini(cadastros.ini,subclasse,cavaleiros) - 1)
.writeini cadastros.ini subclasse cavaleiros %fimsubclasse
}
if %subclasse == Guardião {
.set %fimsubclasse $calc($readini(cadastros.ini,subclasse,guardiões)
- 1)
.writeini cadastros.ini subclasse guardiões %fimsubclasse
}
}
if %classe == Ladino {
.set %fimclasse $calc($readini(cadastros.ini,classe,ladinos) - 1)
.writeini cadastros.ini classe ladinos %fimclasse
if %subclasse == Assasino {
.set %fimsubclasse $calc($readini(cadastros.ini,subclasse,assasinos) - 1)
.writeini cadastros.ini subclasse assasinos %fimsubclasse
}
if %subclasse == Bardo {
.set %fimsubclasse $calc($readini(cadastros.ini,subclasse,bardos) - 1)
.writeini cadastros.ini subclasse bardos %fimsubclasse
}
}
.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 cabeça
.remini sda.ini $nick peito
.remini sda.ini $nick força
.remini sda.ini $nick foco
.remini sda.ini $nick destreza
.remini sda.ini $nick vigor
.remini sda.ini $nick braço.esquerdo
.remini sda.ini $nick ganhou
.remini sda.ini $nick perdeu
.remini sda.ini $nick classe
.remini sda.ini $nick subclasse
.remini sda.ini $nick braço.direito
.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
.msg = $+ $nick 2D14escadastro Efetuado com Sucesso2 . . .
.msg %canal.sda 2 $+ $nick 14acaba de se Descadastrar no 2 $+ %canal.sda
$+ .
}
}
off *: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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 ...
}
}
off *: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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(desafios.ini,$nick,desafiador) == $null { .msg $nick 4ERRO : 14
2N14inguem te Desafiou2 ! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,luta,geral,status) == 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
halt
}
else { start.battle $readini(desafios.ini,$nick,desafiador) $readini(desafios.ini,$2,desafiou)
| halt }
}
}
off *: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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 *:notice:*identify*:*:{ if $nick == Nickserv && %senha.sda != $null
{ nickserv identify %senha.sda } }
off *:CHAT:!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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,geral,luta) == ok { msg = $+ $nick 2J14á está
ocorrendo uma luta2 . | halt }
if $readini(desafios.ini,$nick,desafiou) != $null {
.set %desafiado $readini(desafios.ini,$nick,desafiou)
.msg = $+ $nick 4ERRO : 14 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:!Lista Geral:%canal.sda: { /dcc send $nick $mircdirlistageral.txt
}
off *:CHAT:!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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 2F14ale com ele e marque o duelo2 ...
.msg = $+ $nick 2E14nviando resposta2 ...
if $readini(luta.ini,geral,status) != ok { start.battle $nick $2 }
.remini desafios.ini $nick desafiador
.remini desafios.ini $2 desafiou
}
}
off *:CHAT:!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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 $+ 1,senha)
/memoserv send $nick 2S14ua Senha no2 %canal.sda $+ 2 : %senha.memo
.msg = $+ $nick 2S14enha enviada via 2Memoserv ...
}
}
on *:TEXT:!Esqueci:?: {
if $readini(sda.ini,$nick $+ 1,nick) == $null { .msg $nick $erro.ncad | halt
}
else {
.set %senha.memo $readini(senhas.ini,$nick $+ 1,senha)
/memoserv send $nick 2S14ua Senha no2 %canal.bot $+ 2 : %senha.memo
.msg $nick 2S14enha enviada via 2Memoserv ...
}
}
on *:CHAT:!exit*: {
if $2 == $null {
/close -c $nick
msg.all 2*** 2 $+ $nick 14Desconectou2 .
.writeini senhas.ini $nick $+ 1 ident off
}
else {
/close -c $nick
msg.all 2*** 2 $+ $nick 14Desconectou 2[Quit: $2 $+ ]
.writeini senhas.ini $nick $+ 1 ident off
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $readini(luta.ini,geral,luta) == ok { .msg = $+ $nick 4ERRO : 14Já
existe uma luta ocorrendo2 ! | halt }
if $readini(sda.ini,$nick,braço.direito) == Nada { .msg = $+ $nick 4ERRO : 14
Você tem de ter uma arma para lutar2 . | halt }
if $lutador2 == $nick { .msg = $+ $nick 4ERRO : 14 Você já
está setado como lutador2 . | halt }
if $lutador1 == $null && $lutador2 == $null {
.writeini luta.ini Vaga Lutador1 $nick
.writeini luta.ini ips Lutador1 $chat($nick).ip
msg.all 2 $+ $nick 14esperando Lutador2 !
.msg %canal.sda 2 $+ $nick 14esperando Lutador2 !
halt
}
if $lutador1 == $null && $lutador2 != $null {
if $lutador2 == $nick { .msg = $+ $nick 4ERRO : 14 Você já
está setado como lutador2 . | halt }
if $readini(luta.ini,ips,lutador2) == $chat($nick).ip { .msg = $+ $nick 4ERRO : 14
Proibido lutas entre users com o mesmo IP2 ! | halt }
.writeini luta.ini Vaga Lutador1 $nick
.writeini luta.ini ips Lutador1 $chat($nick).ip
start.battle
halt
}
if $lutador1 != $null && $lutador2 == $null {
if $lutador1 == $nick { .msg = $+ $nick 4ERRO : 14 Você já
está setado como lutador2 . | halt }
if $readini(luta.ini,ips,lutador1) == $chat($nick).ip { .msg = $+ $nick 4ERRO : 14
Proibido lutas entre users com o mesmo IP2 ! | halt }
.writeini luta.ini Vaga Lutador2 $nick
.writeini luta.ini ips Lutador2 $chat($nick).ip
start.battle
halt
}
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 $lutador1 == $nick {
.remini luta.ini vaga lutador1
.remini luta.ini ips lutador1
msg.all 2V14aga Para lutador Aberta2 !
}
if $lutador2 == $nick {
.remini luta.ini vaga lutador2
.remini luta.ini ips lutador2
msg.all 2V14aga Para lutador Aberta2 !
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | 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 $atk == $nick {
msg.all 2 $+ $nick 14desistiu da Luta2 !
msg.all 2V14encedor2 : $def
atualizar $def $atk
halt
}
if $def == $nick {
msg.all 2 $+ $nick 14desistiu da Luta2 !
msg.all 2V14encedor2 : $atk
atualizar $atk $def
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Loja 14do $sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas
de Ouro)
.msg = $+ $nick 2! E spadas 15-14 Para ver as melhores Espadas da Terra - Média
.msg = $+ $nick 2! A rcos 15-14 Para ver os melhores Arcos da Terra - Média
.msg = $+ $nick 2! B estas 15-14 Para ver os melhores Bestas da Terra - Média
.msg = $+ $nick 2! M achados 15-14 Para ver os melhores Machados da Terra - Média
.msg = $+ $nick 2! M anguais 15-14 Para ver os melhores Manguais da Terra - Média
.msg = $+ $nick 2! M aças 15-14 Para ver as melhores Maças
da Terra - Média
.msg = $+ $nick 2! A cessorios 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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Acessorios 14do
$sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO15(Moedas
de Ouro)
.msg = $+ $nick 2! A rmaduras 15-14 Para ver as melhores Armaduras da
Terra - Média
.msg = $+ $nick 2! E lmos 15-14 Para ver as melhores Elmos da Terra - Média
.msg = $+ $nick 2! E scudos 15-14 Para ver as melhores Escudos da Terra - Média
.msg = $+ $nick 2! P oções 15-14 Para ver as melhores Poções
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Armaduras 14do
$sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 2S14imples2 :
.msg = $+ $nick 15* 02 1g 15-2 Roupa Grossa de Pano 15»»»»»»»»»»»»2
50 MdO
.msg = $+ $nick 15* 02 2g 15-2 Armadura de Couro Batido 15»»»»»»»»2
80 MdO
.msg = $+ $nick 15* 02 3g 15-2 Armadura de Couro Estofado 15»»»»»»2
100 MdO
.msg = $+ $nick 15* 02 4g 15-2 Cota de Talas 15»»»»»»»»»»»»»»»»»»»2
120 MdO
.msg = $+ $nick 2M14édias2 :
.msg = $+ $nick 15* 02 5g 15-2 Cota de Malha 15»»»»»»»»»»»»»»»»»»»2
150 MdO
.msg = $+ $nick 15* 02 6g 15-2 Armadura de Ferro 15»»»»»»»»»»»»»»»2
180 MdO
.msg = $+ $nick 15* 02 7g 15-2 Armadura de Liga 15»»»»»»»»»»»»»»»»2
200 MdO
.msg = $+ $nick 15* 02 8g 15-2 Couro com Cota de Malha 15»»»»»»»»»2
230 MdO
.msg = $+ $nick 15* 02 9g 15-2 Cota de Talas com Ferro 15»»»»»»»»»2
250 MdO
.msg = $+ $nick 2P14esadas2 :
.msg = $+ $nick 15* 02 10g 15-2 Arm. de Ferro c/ Cota de Malha 15»2
280 MdO
.msg = $+ $nick 15* 02 11g 15-2 Malha de Anéis 15»»»»»»»»»»»»»»»»»2
310 MdO
.msg = $+ $nick 15* 02 12g 15-2 Couro com Malha de Anéis 15»»»»»»»2
340 MdO
.msg = $+ $nick 15* 02 13g 15-2 Cota de Talas com Liga 15»»»»»»»»»2
380 MdO
.msg = $+ $nick 15* 02 14g 15-2 Cota de Escamas 15»»»»»»»»»»»»»»»»2
420 MdO
.msg = $+ $nick 2M14uito Pesadas2 :
.msg = $+ $nick 15* 02 15g 15-2 Cota Mista de Escama e Anéis 15»»»2
460 MdO
.msg = $+ $nick 15* 02 16g 15-2 Armadura Mista de Liga e Anéis
15»2 500 MdO
.msg = $+ $nick 15* 02 17g 15-2 Arm. de Liga com Cota de Malha 15»2
600 MdO
.msg = $+ $nick 2OBS ¹ : 14 P/ comprar algum item digite 2 ! Comprar
Acessorio Armadura < Código >
.msg = $+ $nick 2OBS ² : 14 P/ ver info de alguma arma digite2 :
! Info Acessorio < Código >
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Elmos 14do $sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 2S14imples2 :
.msg = $+ $nick 15* 02 1h 15-2 Gorro de Couro 15»»»»»»»»»»»»»»»»»»2
50 MdO
.msg = $+ $nick 15* 02 2h 15-2 Elmo de Couro Batido 15»»»»»»»»»»»»2
80 MdO
.msg = $+ $nick 15* 02 3h 15-2 Elmo de Couro Estofado 15»»»»»»»»»»2
100 MdO
.msg = $+ $nick 2M14édios2 :
.msg = $+ $nick 15* 02 4h 15-2 Elmo de Ferro Aberto 15»»»»»»»»»»»»2
120 MdO
.msg = $+ $nick 15* 02 5h 15-2 Elmo de Ferro Fechado 15»»»»»»»»»»»2
150 MdO
.msg = $+ $nick 15* 02 6h 15-2 Elmo de Liga Aberto 15»»»»»»»»»»»»»2
200 MdO
.msg = $+ $nick 2P14esados2 :
.msg = $+ $nick 15* 02 7h 15-2 Elmo de Liga Fechado 15»»»»»»»»»»»»2
250 MdO
.msg = $+ $nick 2OBS ¹ : 14 P/ comprar algum item digite 2 ! Comprar
Acessorio Elmo < Código >
.msg = $+ $nick 2OBS ² : 14 P/ ver info de alguma arma digite2 :
! Info Acessorio < Código >
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Escudos 14do $sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 2S14imples2 :
.msg = $+ $nick 15* 02 1i 15-2 Broquel 15»»»»»»»»»»»»»»»»»»»»»»»»»2
50 MdO
.msg = $+ $nick 15* 02 2i 15-2 Escudo de Madeira Pequeno 15»»»»»»»2
80 MdO
.msg = $+ $nick 15* 02 3i 15-2 Escudo de Madeira Grande 15»»»»»»»»2
100 MdO
.msg = $+ $nick 2M14édios2 :
.msg = $+ $nick 15* 02 4i 15-2 Escudo de Ferro Pequeno 15»»»»»»»»»2
130 MdO
.msg = $+ $nick 15* 02 5i 15-2 Escudo de Talas Pequeno 15»»»»»»»»»2
150 MdO
.msg = $+ $nick 15* 02 6i 15-2 Escudo de Ferro Grande 15»»»»»»»»»»2
180 MdO
.msg = $+ $nick 15* 02 7i 15-2 Escudo de Talas Grande 15»»»»»»»»»»2
200 MdO
.msg = $+ $nick 2G14randes2 :
.msg = $+ $nick 15* 02 8i 15-2 Escudo Escamado de Ferro 15»»»»»»»»2
230 MdO
.msg = $+ $nick 15* 02 9i 15-2 Escudo Misto 15»»»»»»»»»»»»»»»»»»»»2
250 MdO
.msg = $+ $nick 15* 02 10i 15-2 Escudo de Choque 15»»»»»»»»»»»»»»»2
300 MdO
.msg = $+ $nick 2OBS ¹ : 14 Para comprar algum item digite 2 ! Comprar
Acessorio Escudo < Código >
.msg = $+ $nick 2OBS ² : 14 Para ver info de alguma arma digite2 :
! Info Acessorio < Código >
}
}
on *:CHAT:!Poções: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Poções
14do $sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 2B14raços2 :
.msg = $+ $nick 02 1j 14-2 Poção B. Pequena 15»»»»»»2
25 MdO
.msg = $+ $nick 02 2j 14-2 Poção B. Média 15»»»»»»»»2
50 MdO
.msg = $+ $nick 02 3j 14-2 Poção B. Grande 15»»»»»»»2
75 MdO
.msg = $+ $nick 02 4j 14-2 Poção B. Total 15»»»»»»»»2
100 MdO
.msg = $+ $nick 2P14ernas2 :
.msg = $+ $nick 02 5j 14-2 Poção P. Pequena 15»»»»»»2
25 MdO
.msg = $+ $nick 02 6j 14-2 Poção P. Média 15»»»»»»»»2
50 MdO
.msg = $+ $nick 02 7j 14-2 Poção P. Grande 15»»»»»»»2
75 MdO
.msg = $+ $nick 02 8j 14-2 Poção P. Total 15»»»»»»»»2
100 MdO
.msg = $+ $nick 2T14otal2 :
.msg = $+ $nick 02 9j 14-2 Poção T. Pequena 15»»»»»»2
50 MdO
.msg = $+ $nick 02 10j 14-2 Poção T. Média 15»»»»»»»2
100 MdO
.msg = $+ $nick 02 11j 14-2 Poção T. Grande 15»»»»»»2
150 MdO
.msg = $+ $nick 02 12j 14-2 Poção T. Total 15»»»»»»»2
300 MdO
.msg = $+ $nick 2OBS¹ : 14 P/ comprar algum item digite 2 ! Comprar
Poção < Código >
.msg = $+ $nick 2OBS² : 14 P/ ver info de alguma arma digite2 :
! Info Poção < Código >
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Espadas 14do $sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 02 1a 14-2 Facas de Arremessos 15»»»»»»2
100 MdO
.msg = $+ $nick 02 2a 14-2 Adaga 15»»»»»»»»»»»»»»»»»»»»2
100 MdO
.msg = $+ $nick 02 3a 14-2 Faca de Caça 15»»»»»»»»»»»»»2
200 MdO
.msg = $+ $nick 02 4a 14-2 Espada Curta 15»»»»»»»»»»»»»2
300 MdO
.msg = $+ $nick 02 5a 14-2 Espada Dentada 15»»»»»»»»»»»2
400 MdO
.msg = $+ $nick 02 6a 14-2 Falcione 15»»»»»»»»»»»»»»»»»2
500 MdO
.msg = $+ $nick 02 7a 14-2 Florete 15»»»»»»»»»»»»»»»»»»2
600 MdO
.msg = $+ $nick 02 8a 14-2 Cimitarra 15»»»»»»»»»»»»»»»»2
700 MdO
.msg = $+ $nick 02 9a 14-2 Espada Longa 15»»»»»»»»»»»»»2
900 MdO
.msg = $+ $nick 2OBS¹ : 14 P/ comprar algum item digite 2 ! Comprar
Arma < Código >
.msg = $+ $nick 2OBS² : 14 P/ ver info de alguma arma digite2 :
! Info Arma < Código >
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Arcos 14do $sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 02 1b 14-2 Arco Curto 15»»»»»»»»»»»»»»»2
200 MdO
.msg = $+ $nick 02 2b 14-2 Arco Longo 15»»»»»»»»»»»»»»»2
400 MdO
.msg = $+ $nick 02 3b 14-2 Arco Composto 15»»»»»»»»»»»»2
800 MdO
.msg = $+ $nick 2OBS ¹ : 14 P/ comprar algum item digite 2 ! Comprar
Arma < Código >
.msg = $+ $nick 2OBS ² : 14 P/ ver info de alguma arma digite2 :
! Info Arma < Código >
}
}
on *:CHAT:!Bestas: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Bestas 14do $sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 02 1c 14-2 Besta de Mão 14»»»»»»»»»»»»»»»»2
200 MdO
.msg = $+ $nick 02 2c 14-2 Besta de Corda 14»»»»»»»»»»»»»»2
500 MdO
.msg = $+ $nick 2OBS ¹ : 14 P/ comprar algum item digite 2 ! Comprar
Arma < Código >
.msg = $+ $nick 2OBS ² : 14 P/ ver info de alguma arma digite2 :
! Info Arma < Código >
}
}
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Machados 14do
$sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 02 1f 14-2 Machadinha 14»»»»»»»»»»»»»»»»»»2
200 MdO
.msg = $+ $nick 02 2f 14-2 Machado Largo 14»»»»»»»»»»»»»»»2
300 MdO
.msg = $+ $nick 02 3f 14-2 Machado Longo 14»»»»»»»»»»»»»»»2
700 MdO
.msg = $+ $nick 2OBS ¹ : 14 P/ comprar algum item digite 2 ! Comprar
Arma < Código >
.msg = $+ $nick 2OBS ² : 14 P/ ver info de alguma arma digite2 :
! Info Arma < Código >
}
}
on *:CHAT:!Maças: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Maças 14do
$sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 02 1e 14-2 Maça Estrela 14»»»»»»»»»»»»»»»2
200 MdO
.msg = $+ $nick 02 2e 14-2 Maça Grande 14»»»»»»»»»»»»»»»»2
400 MdO
.msg = $+ $nick 2OBS ¹ : 14 P/ comprar algum item digite 2 ! Comprar
Arma < Código >
.msg = $+ $nick 2OBS ² : 14 P/ ver info de alguma arma digite2 :
! Info Arma < Código >
}
}
on *:CHAT:!Manguais: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
.msg = $+ $nick 2S14eja Bem Vindo a sessão 2 ! Manguais 14do
$sdabot
.msg = $+ $nick 2V14ocê tem2 $readini(sda.ini,$nick,ouro) MdO
.msg = $+ $nick 02 1e 14-2 Mangual Curto 14»»»»»»»»»»»»»»2
300 MdO
.msg = $+ $nick 02 2e 14-2 Mangual Longo 14»»»»»»»»»»»»»»2
500 MdO
.msg = $+ $nick 2OBS ¹ : 14 P/ comprar algum item digite 2 ! Comprar
Arma < Código >
.msg = $+ $nick 2OBS ² : 14 P/ ver info de alguma arma digite2 :
! Info Arma < Código >
}
}
on *:CHAT:!info*: {
if $2 != raça && $2 != classe && $2 != Sub-classe &&
$2 != Acessorio && $2 != Arma && $2 != Atributo && $2
!= Poção {
.msg = $+ $nick 4ERRO: 14Informação inxistente, por favor verifique
sua digitação2 .
halt
}
if $2 == Raça {
if $3 != Elfo && $3 != Anão && $3 != Humano &&
$3 != Orc && $3 != Hobbit {
.msg = $+ $nick 4ERRO : 14 Raça inexistente, por favor verifique
sua digitação2 .
halt
}
if $readini(infos.ini,$3,info) == $null {
.msg = $+ $nick 4ERRO : 14 Raça inexistente, por favor verifique
sua digitação2 .
halt
}
.msg = $+ $nick 2I14nfo da Raça 2 $+ $3 $+ :
.msg = $+ $nick 2C14aracteristicas2 : $readini(infos.ini,$3,info)
halt
}
if $2 == Classe {
if $3 != Guerreiro && $3 != Ladino {
.msg = $+ $nick 4ERRO : 14 Classe inexistente, por favor verifique sua digitação2 .
halt
}
if $readini(infos.ini,$3,info) == $null {
.msg = $+ $nick 4ERRO : 14 Classe inexistente, por favor verifique sua digitação2 .
halt
}
.msg = $+ $nick 2I14nfo da Classe 2 $+ $3 $+ :
.msg = $+ $nick 2C14aracteristicas2 : $readini(infos.ini,$3,info)
halt
}
if $2 == Sub-classe {
if $3 != Bárbaro && $3 != Arqueiro && $3 != Guardião
&& $3 != Cavaleiro && $3 != Bardo && $3 != Assasino
{
.msg = $+ $nick 4ERRO : 14 SubClasse inexistente, por favor verifique sua
digitação2 .
halt
}
if $readini(infos.ini,$3,info) == $null {
.msg = $+ $nick 4ERRO : 14 Subclasse inexistente, por favor verifique sua
digitação2 .
halt
}
.msg = $+ $nick 2I14nfo da Subclasse 2 $+ $3 $+ :
.msg = $+ $nick 2C14aracteristicas2 : $readini(infos.ini,$3,info)
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 == arma {
if $readini(armas.ini,$3,nome) == $null { .msg = $+ $nick 4ERRO : 14 Codigo
inexistente, por favor verifique sua digitação2 . | halt }
.set %nome.arma $readini(armas.ini,$3,nome)
.set %descricao.arma $readini(armas.ini,$3,descrição)
.set %apt.arma $readini(armas.ini,$3,apt)
.set %dano.arma.ini $gettok($readini(armas.ini,$3,dano),1,32)
.set %dano.arma.fim $gettok($readini(armas.ini,$3,dano),2,32)
.set %critico.arma.ini $gettok($readini(armas.ini,$3,critico),1,32)
.set %critico.arma.fim $gettok($readini(armas.ini,$3,critico),2,32)
.set %MdO.arma $readini(armas.ini,$3,MdO)
.set %alcance.arma $readini(armas.ini,$3,alcance)
.set %dificuldade.arma $readini(armas.ini,$3,dificuldade)
.set %mãos.arma $readini(armas.ini,$3,mãos)
.set %destreza.arma $readini(armas.ini,$3,destreza)
.set %força.arma $readini(armas.ini,$3,força)
.msg = $+ $nick 2I14nfo do Código2 $3 $+ :
.msg = $+ $nick 2N14ome2 : %nome.arma
.msg = $+ $nick 2D14escrição2 : %descricao.arma
.msg = $+ $nick 2D14ano2 : %dano.arma.ini a %dano.arma.fim
.msg = $+ $nick 2D14ano Crítico2 : %critico.arma.ini a %critico.arma.fim
if %alcance.arma == 1 { .msg = $+ $nick 2A14lcance2 : %alcance.arma
Metro }
if %alcance.arma != 1 { .msg = $+ $nick 2A14lcance2 : %alcance.arma
Metros }
.msg = $+ $nick 2D14ificuldade2 : + $+ %dificuldade.arma
if %mãos.arma == 1 { .msg = $+ $nick 2U14so2 : %mãos.arma
mão }
if %mãos.arma != 1 { .msg = $+ $nick 2U14so2 : %mãos.arma
mãos }
if %destreza.arma == $null && %força.arma == $null { goto norequer
}
.msg = $+ $nick 2R14equer2 :
if %destreza.arma != $null { .msg = $+ $nick 15* 2D14estreza2 : %destreza.arma
}
if %força.arma != $null { .msg = $+ $nick 15* 2F14orça2 :
%força.arma }
:norequer
.msg = $+ $nick 2M14dO2 : %MdO.arma
.msg = $+ $nick 0.....2F14im do Info
halt
}
}
if $2 == Acessorio {
if $readini(acessorios.ini,$3,nome) == $null { .msg = $+ $nick 4ERRO : 14
Codigo inexistente, por favor verifique sua digitação2 . |
halt }
.set %nome.armadura $readini(acessorios.ini,$3,nome)
.set %descricao.armadura $readini(acessorios.ini,$3,descrição)
.set %ada.armadura $readini(acessorios.ini,$3,ada)
.set %mdo.armadura $readini(acessorios.ini,$3,mdo)
.set %mpt.armadura $readini(acessorios.ini,$3,mpt)
.msg = $+ $nick 2I14nfo do Código2 $3 $+ :
.msg = $+ $nick 2N14ome2 : %nome.armadura
.msg = $+ $nick 2D14escrição2 : %descricao.armadura
.msg = $+ $nick 2A14dA2 : %ada.armadura
if %mpt.armadura != $null { .msg = $+ $nick 2M14pT2 : - $+ %mpt.armadura
}
.msg = $+ $nick 2M14dO2 : %mdo.armadura
.msg = $+ $nick 0.....2F14im do Info
.unset %nome.acessorio
.unset %descricao.acessorio
.unset %ada.acessorio
.unset %MdO.acessorio
halt
}
if $2 == Atributo {
if $3 != Força && $3 != Destreza && $3 != Foco &&
$3 != Vigor {
.msg = $+ $nick 4ERRO : 14 Atributo inexistente, por favor verifique sua
digitação2 .
halt
}
if $readini(infos.ini,$3,info) == $null {
.msg = $+ $nick 4ERRO : 14 Atributo inexistente, por favor verifique sua
digitação2 .
halt
}
.msg = $+ $nick 2I14nfo do Atributo 2 $+ $3 $+ :
.msg = $+ $nick 2C14aracteristicas2 : $readini(infos.ini,$3,info)
}
if $2 == Poção {
if $readini(itens.ini,$3,nome) == $null {
.msg = $+ $nick 4ERRO : 14 Item inexistente, por favor verifique sua digitação2 .
halt
}
.msg = $+ $nick 2I14nfo da Poção 02 $+ $3 $+ 02 :
.msg = $+ $nick 2N14ome2 : $readini(itens.ini,$3,nome)
.msg = $+ $nick 2E14feito2 : $readini(itens.ini,$3,efeito)
if $readini(itens.ini,$3,recupera) != total { .msg = $+ $nick 2R14ecupera2 :
+ $+ $readini(itens.ini,$3,recupera) }
else { .msg = $+ $nick 2R14ecupera2 : $readini(itens.ini,$3,recupera)
}
.msg = $+ $nick 2M14dO2 : $readini(itens.ini,$3,mdo)
}
}
on *:CHAT:!comprar*: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 != Arma && $2 != Acessorio && $2 != Poção
{ .msg = $+ $nick 2O14 Vendedor disse2 : "Acessório inexistente,
por favor verifique sua digitação . " | halt }
if $2 == arma {
if $ouro($nick) < $preço.arma($3) { .msg = $+ $nick 2O14 Vendedor
disse2 : "Desculpe-me, você só tem2 $ouro($nick) MdO,
o item custa2 $preço.arma($3) MdO . " | halt }
if $readini(armas.ini,$3,nome) == $null { .msg = $+ $nick 2O14 Vendedor
disse2 : "Código inexistente, por favor verifique sua digitação . "
| halt }
if $readini(sda.ini,$nick,braço.direito) != Nada { .msg = $+ $nick 2O14
Vendedor disse2 : "Você já tem uma arma, para que possa
comprar outra terá de vende-la, use ! Vender Arma" | halt }
if $readini(armas.ini,$3,destreza) != $null && $readini(sda.ini,$nick,destreza)
< $readini(armas.ini,$3,destreza) && $readini(sda.ini,$nick,destreza)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,destreza) pontos de destreza, Você só tem
$readini(sda.ini,$nick,destreza) pontos . " | halt }
if $readini(armas.ini,$3,destreza) != $null && $readini(sda.ini,$nick,destreza)
< $readini(armas.ini,$3,destreza) && $readini(sda.ini,$nick,destreza)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,destreza) pontos de destreza, você só tem
$readini(sda.ini,$nick,destreza) ponto . " | halt }
if $readini(armas.ini,$3,força) != $null && $readini(sda.ini,$nick,força)
< $readini(armas.ini,$3,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,força) pontos de força, você só
tem $readini(sda.ini,$nick,força) pontos . " | halt }
if $readini(armas.ini,$3,força) != $null && $readini(sda.ini,$nick,força)
< $readini(armas.ini,$3,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,força) pontos de força, você só
tem $readini(sda.ini,$nick,força) ponto . " | halt }
if $ouro($nick) >= $preço.arma($3) && $readini(sda.ini,$nick,braço.direito)
== Nada && $readini(sda.ini,$nick,braço.esquerdo) != Nada &&
$readini(armas.ini,$3,mãos) == 2 { .msg = $+ $nick 2O14 vendedor
disse2 : "Essa arma é de uso de para as 2 mãos, e sua
mão esquerda está ocupada com um(a) $readini(sda.ini,$nick,braço.esquerdo)
$+ . " | halt }
if $ouro($nick) >= $preço.arma($3) && $readini(sda.ini,$nick,braço.direito)
== Nada {
.set %fimouro $calc($ouro($nick) - $preço.arma($3))
.set %fimcompra $calc($readini(cadastros.ini,compras,armas) + 1)
.set %fimtotal $calc($readini(cadastros.ini,compras,total) + 1)
.writeini cadastros.ini compras armas %fimcompra
.writeini cadastros.ini compras total %fimtotal
.writeini sda.ini $nick braço.direito $readini(armas.ini,$3,nome)
if $readini(armas.ini,$3,mãos) != 1 { .writeini sda.ini $nick braço.esquerdo
$readini(armas.ini,$3,nome) }
.writeini sda.ini $nick ouro %fimouro
if $readini(sda.ini,$nick,desconto) != $null { .remini sda.ini $nick desconto
}
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, Volte
Sempre . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
}
if $2 == Acessorio {
if $3 == Armadura {
if $ouro($nick) < $preço.acessorio($4) { .msg = $+ $nick 2O14
Vendedor disse2 : "Desculpe-me, você só tem2 $ouro($nick)
MdO, o item custa2 $preço.acessorio($4) MdO . " | halt }
if $readini(acessorios.ini,$4,nome) == $null { .msg = $+ $nick 4ERRO : 14
Codigo inexistente, por favor verifique sua digitação2 . |
halt }
if $readini(sda.ini,$nick,peito) != Nada { .msg = $+ $nick 2O14 Vendedor
disse2 : "Você já tem uma armadura, para que possa comprar
outra terá de vende-la . " | halt }
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) pontos . " | halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) ponto . " | halt }
.set %fimouro $calc($ouro($nick) - $preço.acessorio($4))
.writeini cadastros.ini compras acessorios $calc($readini(cadastros.ini,compras,acessorios)
+ 1)
.writeini cadastros.ini compras total $calc($readini(cadastros.ini,compras,total)
+ 1)
.writeini cadastros.ini compras armadura $calc($readini(cadastros.ini,compras,armadura)
+ 1)
if $readini(acessorios.ini,$4,mpt) != $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt)
- $readini(acessorios.ini,$4,mpt)) }
.writeini sda.ini $nick peito $readini(acessorios.ini,$4,nome)
.writeini sda.ini $nick ouro %fimouro
if $readini(sda.ini,$nick,desconto) != $null { .remini sda.ini $nick desconto
}
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, Volte
Sempre . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
if $3 == Escudo {
if $ouro($nick) < $preço.acessorio($4) { .msg = $+ $nick 2O14
Vendedor disse2 : "Desculpe-me, você só tem2 $ouro($nick)
MdO, o item custa2 $preço.acessorio($4) MdO . " | halt }
if $readini(acessorios.ini,$4,nome) == $null { .msg = $+ $nick 4ERRO : 14
Codigo inexistente, por favor verifique sua digitação2 . |
halt }
if $subclasse($nick) == Bardo { .msg = $+ $nick 4ERRO : 14 Bardos não
podem usar escudos2 . | halt }
if $readini(sda.ini,$nick,braço.esquerdo) != Nada { .msg = $+ $nick 2O14
Vendedor disse2 : "Seu braço Esquerdo já está
em uso, para que possa comprar outra terá de desoculpa-lo . "
| halt }
if $readini(sda.ini,$nick,escudo) == on { .msg = $+ $nick 2O14 Vendedor
disse2 : "Seu braço Esquerdo já está em uso, para
que possa comprar outra terá de desoculpa-lo . " | halt }
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) pontos . " | halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) ponto . " | halt }
.set %fimouro $calc($ouro($nick) - $preço.acessorio($4))
.writeini cadastros.ini compras acessorios $calc($readini(cadastros.ini,compras,acessorios)
+ 1)
.writeini cadastros.ini compras total $calc($readini(cadastros.ini,compras,total)
+ 1)
.writeini cadastros.ini compras escudos $calc($readini(cadastros.ini,compras,escudos)
+ 1)
if $readini(acessorios.ini,$4,mpt) != $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt)
- $readini(acessorios.ini,$4,mpt)) }
.writeini sda.ini $nick braço.esquerdo $readini(acessorios.ini,$4,nome)
.writeini sda.ini $nick ouro %fimouro
.writeini sda.ini $nick escudo on
if $readini(sda.ini,$nick,desconto) != $null { .remini sda.ini $nick desconto
}
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, Volte
Sempre . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
if $3 == Elmo {
if $ouro($nick) < $preço.acessorio($4) { .msg = $+ $nick 2O14
Vendedor disse2 : "Desculpe-me, você só tem2 $ouro($nick)
MdO, o item custa2 $preço.acessorio($4) MdO . " | halt }
if $readini(acessorios.ini,$4,nome) == $null { .msg = $+ $nick 4ERRO : 14
Codigo inexistente, por favor verifique sua digitação2 . |
halt }
if $readini(sda.ini,$nick,cabeça) != Nada { .msg = $+ $nick 2O14
Vendedor disse2 : "Você já tem um elmo, para que possa
comprar outro terá de vende-lo . " | halt }
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) pontos . " | halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) ponto . " | halt }
.set %fimouro $calc($ouro($nick) - $preço.acessorio($4))
.writeini cadastros.ini compras acessorios $calc($readini(cadastros.ini,compras,acessorios)
+ 1)
.writeini cadastros.ini compras total $calc($readini(cadastros.ini,compras,total)
+ 1)
.writeini cadastros.ini compras elmo $calc($readini(cadastros.ini,compras,elmo)
+ 1)
if $readini(acessorios.ini,$4,mpt) != $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt)
- $readini(acessorios.ini,$4,mpt)) }
.writeini sda.ini $nick cabeça $readini(acessorios.ini,$4,nome)
.writeini sda.ini $nick ouro %fimouro
if $readini(sda.ini,$nick,desconto) != $null { .remini sda.ini $nick desconto
}
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, Volte
Sempre . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
}
if $2 == Poção {
if $ouro($nick) < $preço.item($3) { .msg = $+ $nick 2O14 Vendedor
disse2 : "Desculpe-me, você só tem2 $ouro($nick) MdO,
o item custa2 $preço.item($3) MdO . " | halt }
if $readini(itens.ini,$3,nome) == $null { .msg = $+ $nick 4ERRO : 14 Codigo
inexistente, por favor verifique sua digitação2 . | halt }
if $readini(sda.ini,$nick,item) != Nenhum { .msg = $+ $nick 2O14 Vendedor
disse2 : "Você já tem uma poção, para que
possa comprar outro terá de vende-la . " | halt }
.set %fimouro $calc($ouro($nick) - $preço.item($3))
.writeini cadastros.ini compras itens $calc($readini(cadastros.ini,compras,itens)
+ 1)
.writeini cadastros.ini compras total $calc($readini(cadastros.ini,compras,total)
+ 1)
.writeini sda.ini $nick item $readini(itens.ini,$3,nome)
.writeini sda.ini $nick ouro %fimouro
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, Volte
Sempre . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
}
}
}
on *:CHAT:!Desconto*: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 != Arma && $2 != Acessorio { .msg = $+ $nick 4ERRO : 14 Acessório
inexistente, por favor verifique sua digitação2 . | halt }
if $readini(sda.ini,$nick,desconto) == 0 { .msg = $+ $nick 2O14 vendedor
disse2 : "Já disse que não posso lhe dar nenhum desconto ! "
| halt }
if $rand(1,10) <= 0 {
.msg = $+ $nick 2O14 vendedor disse2 : "Não posso lhe dar
nenhum desconto, desculpe-me . "
.writeini sda.ini $nick desconto 0
halt
}
if $2 == Arma {
if $ouro($nick) < $preçodes.arma($3) { .msg = $+ $nick 2O14 Vendedor
disse2 : "Desculpe-me, você só tem2 $ouro($nick) MdO,
o item ficaria por2 $preçodes.arma($3) MdO . " | halt }
if $readini(armas.ini,$3,destreza) != $null && $readini(sda.ini,$nick,destreza)
< $readini(armas.ini,$3,destreza) && $readini(sda.ini,$nick,destreza)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,destreza) pontos de destreza, você só tem
$readini(sda.ini,$nick,destreza) pontos . " | halt }
if $readini(armas.ini,$3,destreza) != $null && $readini(sda.ini,$nick,destreza)
< $readini(armas.ini,$3,destreza) && $readini(sda.ini,$nick,destreza)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,destreza) pontos de destreza, você só tem
$readini(sda.ini,$nick,destreza) ponto . " | halt }
if $readini(armas.ini,$3,força) != $null && $readini(sda.ini,$nick,força)
< $readini(armas.ini,$3,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,força) pontos de força, você só
tem $readini(sda.ini,$nick,força) pontos . " | halt }
if $readini(armas.ini,$3,força) != $null && $readini(sda.ini,$nick,força)
< $readini(armas.ini,$3,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(armas.ini,$3,força) pontos de força, você só
tem $readini(sda.ini,$nick,força) ponto . " | halt }
if $ouro($nick) >= $preçodes.arma($3) && $readini(sda.ini,$nick,braço.direito)
== Nada {
.set %fimouro $calc($ouro($nick) - $preçodes.arma($3))
.set %fimcompra $calc($readini(cadastros.ini,descontos,armas) + 1)
.set %fimtotal $calc($readini(cadastros.ini,descontos,total) + 1)
.writeini cadastros.ini descontos armas %fimcompra
.writeini cadastros.ini descontos total %fimtotal
.writeini sda.ini $nick braço.direito $readini(armas.ini,$3,nome)
if $readini(armas.ini,$3,mãos) == 2 { .writeini sda.ini $nick braço.esquerdo
$readini(armas.ini,$3,nome) }
.writeini sda.ini $nick ouro %fimouro
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, mas
não se acostume com os descontos, lhe dei desconto de $calc($preço.arma($3)
- $preçodes.arma($3)) MdO . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
}
if $2 == Acessorio {
if $3 == Armadura {
if $readini(acessorios.ini,$4,nome) == $null { .msg = $+ $nick 4ERRO : 14
Codigo inexistente, por favor verifique sua digitação2 . |
halt }
if $readini(sda.ini,$nick,peito) != Nada {
.msg = $+ $nick 2O14 Vendedor disse2 : "Você já tem
uma armadura, para que possa comprar outra terá de vende-la . "
halt
}
if $ouro($nick) < $preçodes.acessorio($4) { .msg = $+ $nick 2O14
Vendedor disse2 : "Desculpe-me, você só tem2 $ouro($nick)
MdO, o item ficaria por2 $preço.acessorio($3) MdO . " | halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) pontos . " | halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$4,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) ponto . " | halt }
.set %fimouro $calc($ouro($nick) - $preçodes.acessorio($4))
.writeini cadastros.ini descontos acessorios $calc($readini(cadastros.ini,descontos,acessorios)
+ 1)
.writeini cadastros.ini descontos total $calc($readini(cadastros.ini,descontos,total)
+ 1)
.writeini cadastros.ini descontos armaduras $calc($readini(cadastros.ini,descontos,armaduras)
+ 1)
if $readini(acessorios.ini,$4,mpt) != $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt)
- $readini(acessorios.ini,$4,mpt)) }
.writeini sda.ini $nick peito $readini(acessorios.ini,$4,nome)
.writeini sda.ini $nick ouro %fimouro
if $readini(sda.ini,$nick,desconto) != $null { .remini sda.ini $nick desconto
}
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, mas
não se acostume com os descontos, lhe dei desconto de $calc($preço.acessorio($4)
- $preçodes.acessorio($4)) MdO . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
if $3 == Escudo {
if $ouro($nick) < $preçodes.acessorio($4) { .msg = $+ $nick 2O14
Vendedor disse2 : "Desculpe-me, você só tem2 $ouro($nick)
MdO, o item ficaria por2 $preço.acessorio($3) MdO . " | halt
}
if $readini(acessorios.ini,$4,nome) == $null { .msg = $+ $nick 4ERRO : 14
Codigo inexistente, por favor verifique sua digitação2 . |
halt }
if $subclasse($nick) == Bardo { .msg = $+ $nick 4ERRO : 14 Bardos não
podem usar escudos2 . | halt }
if $readini(sda.ini,$nick,braço.esquerdo) != Nada {
.msg = $+ $nick 2O14 Vendedor disse2 : "Seu braço Esquerdo
já está em uso, para que possa comprar outra terá de desoculpa-lo . "
halt
}
if $readini(sda.ini,$nick,escudo) == on { .msg = $+ $nick 2O14 Vendedor
disse2 : "Seu braço Esquerdo já está em uso, para
que possa comprar outra terá de desoculpa-lo . " | halt }
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$3,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) pontos . " | halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$3,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) ponto . " | halt }
.set %fimouro $calc($ouro($nick) - $preçodes.acessorio($4))
.writeini cadastros.ini descontos acessorios $calc($readini(cadastros.ini,descontos,acessorios)
+ 1)
.writeini cadastros.ini descontos total $calc($readini(cadastros.ini,descontos,total)
+ 1)
.writeini cadastros.ini descontos escudos $calc($readini(cadastros.ini,descontos,escudos)
+ 1)
if $readini(acessorios.ini,$4,mpt) != $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt)
- $readini(acessorios.ini,$4,mpt)) }
.writeini sda.ini $nick braço.esquerdo $readini(acessorios.ini,$4,nome)
.writeini sda.ini $nick ouro %fimouro
.writeini sda.ini $nick escudo on
if $readini(sda.ini,$nick,desconto) != $null { .remini sda.ini $nick desconto
}
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, mas
não se acostume com os descontos, lhe dei desconto de $calc($preço.acessorio($4)
- $preçodes.acessorio($4)) MdO . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
if $3 == Elmo {
if $ouro($nick) < $preçodes.acessorio($4) { .msg = $+ $nick 2O14
Vendedor disse2 : "Desculpe-me, você só tem2 $ouro($nick)
MdO, o item ficaria por2 $preço.acessorio($3) MdO . " | halt
}
if $readini(acessorios.ini,$4,nome) == $null { .msg = $+ $nick 4ERRO : 14
Codigo inexistente, por favor verifique sua digitação2 . |
halt }
if $readini(sda.ini,$nick,cabeça) != Nada {
.msg = $+ $nick 2O14 Vendedor disse2 : "Você já tem
um elmo, para que possa comprar outra terá de vende-lo . "
halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
> 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$3,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) pontos . " | halt
}
if $readini(acessorios.ini,$4,força) != $null && $readini(sda.ini,$nick,força)
< $readini(acessorios.ini,$4,força) && $readini(sda.ini,$nick,força)
<= 1 { .msg = $+ $nick 2O14 Vendedor disse2 : "Esse item requer
$readini(acessorios.ini,$3,força) pontos de força, você
só tem $readini(sda.ini,$nick,força) ponto . " | halt }
.set %fimouro $calc($ouro($nick) - $preçodes.acessorio($4))
.writeini cadastros.ini descontos acessorios $calc($readini(cadastros.ini,descontos,acessorios)
+ 1)
.writeini cadastros.ini descontos total $calc($readini(cadastros.ini,descontos,total)
+ 1)
.writeini cadastros.ini descontos elmos $calc($readini(cadastros.ini,descontos,elmos)
+ 1)
if $readini(acessorios.ini,$4,mpt) != $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt)
- $readini(acessorios.ini,$4,mpt)) }
.writeini sda.ini $nick cabeça $readini(acessorios.ini,$4,nome)
.writeini sda.ini $nick ouro %fimouro
if $readini(sda.ini,$nick,desconto) != $null { .remini sda.ini $nick desconto
}
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado pela compra, mas
não se acostume com os descontos, lhe dei desconto de $calc($preço.acessorio($4)
- $preçodes.acessorio($4)) MdO . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
}
}
}
on *:CHAT:!vender*: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 != Arma && $2 != Armadura && $2 != Poção
&& $2 != Escudo && $2 != Elmo { .msg = $+ $nick 2O14 Vendedor
disse2 : "Acessório inexistente, por favor verifique sua digitação . "
| halt }
if $readini(sda.ini,$nick,vne) == 1 { .msg = $+ $nick 2O14 Vendedor disse2 :
"Ainda não quero nenhum item, volte depois . " | halt }
if $rand(1,10) <= 3 {
.msg = $+ $nick 2O14 Vendedor disse2 : "Não quero comprar
nenhum item, volte depois . "
.writeini sda.ini $nick vne 1
/.timervenda $+ $nick 1 600 .remini sda.ini $nick vne
halt
}
if $2 == Arma {
if $readini(sda.ini,$nick,braço.direito) == Nada { .msg = $+ $nick 2O14
Vendedor disse2 : "Caro $nick $+ , você não tem nenhuma
arma . " | halt }
.set %fimouro $int($calc($ouro($nick) + $preço.buy.arma($codigo($arma($nick)))))
.set %fimarma $calc($readini(cadastros.ini,vendas,armas) + 1)
.set %fimtotal $calc($readini(cadastros.ini,vendas,total) + 1)
if $readini(sda.ini,$nick,braço.direito) == $readini(Sda.ini,$nick,braço.esquerdo)
{ .writeini sda.ini $nick braço.esquerdo Nada }
.set %arma.buy $codigo($arma($nick))
.writeini sda.ini $nick braço.direito Nada
.writeini sda.ini $nick ouro %fimouro
.writeini cadastros.ini vendas armas %fimarma
.writeini cadastros.ini vendas total %fimtotal
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado por me vender
sua arma, estava precisando . "
.msg = $+ $nick 2V14ocê vendeu sua arma por2 $preço.buy.arma(%arma.buy)
MdO14, ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
if $2 == Armadura {
if $readini(sda.ini,$nick,peito) == Nada { .msg = $+ $nick 2O14 Vendedor
disse2 : "Caro $nick $+ , você não tem nenhuma armadura . "
| halt }
.set %fimouro $int($calc($ouro($nick) + $preço.buy.arma($codigo($arma($nick)))))
.set %fimarmadura $calc($readini(cadastros.ini,vendas,acessorios) + 1)
.set %fimtotal $calc($readini(cadastros.ini,vendas,total) + 1)
if $readini(acessorios.ini,$codigo($readini(sda.ini,$nick,peito)),mpt) != $null
{ .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt) + $readini(acessorios.ini,$codigo($readini(sda.ini,$nick,peito)),mpt))
}
.writeini sda.ini $nick peito Nada
.writeini sda.ini $nick ouro %fimouro
.writeini cadastros.ini vendas acessorios %fimarma
.writeini cadastros.ini vendas total %fimtotal
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado por me vender
sua armadura, estava precisando . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
if $2 == Elmo {
if $readini(sda.ini,$nick,cabeça) == Nada { .msg = $+ $nick 2O14
Vendedor disse2 : "Caro $nick $+ , você não tem nenhum
elmo . " | halt }
.set %fimouro $int($calc($ouro($nick) + $preço.buy.acessorio($codigo($elmo($nick)))))
.set %fimacessorio $calc($readini(cadastros.ini,vendas,acessorios) + 1)
.set %fimtotal $calc($readini(cadastros.ini,vendas,total) + 1)
if $readini(acessorios.ini,$codigo($readini(sda.ini,$nick,cabeça)),mpt)
!= $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt) + $readini(acessorios.ini,$codigo($readini(sda.ini,$nick,cabeça)),mpt))
}
.writeini sda.ini $nick cabeça Nada
.writeini sda.ini $nick ouro %fimouro
.writeini cadastros.ini vendas acessorios %fimacessorio
.writeini cadastros.ini vendas total %fimtotal
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado por me vender
seu elmo, estava precisando . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
halt
}
if $2 == Escudo {
if $readini(sda.ini,$nick,braço.esquerdo) == Nada { .msg = $+ $nick 2O14
Vendedor disse2 : "Caro $nick $+ , você não tem nenhum
escudo . "| halt }
if $readini(sda.ini,$nick,escudo) != on { .msg = $+ $nick 2O14 Vendedor
disse2 : "Caro $nick $+ , você não tem nenhum escudo . "
| halt }
.set %fimouro $int($calc($ouro($nick) + $preço.buy.acessorio($codigo($escudo($nick)))))
.set %fimacessorio $calc($readini(cadastros.ini,vendas,acessorios) + 1)
.set %fimtotal $calc($readini(cadastros.ini,vendas,total) + 1)
if $readini(acessorios.ini,$codigo($readini(sda.ini,$nick,braço.esquerdo)),mpt)
!= $null { .writeini sda.ini $nick mpt $calc($readini(sda.ini,$nick,mpt) + $readini(acessorios.ini,$codigo($readini(sda.ini,$nick,braço.esquerdo)),mpt))
}
.remini sda.ini $nick escudo
.writeini sda.ini $nick braço.esquerdo Nada
.writeini sda.ini $nick ouro %fimouro
.writeini cadastros.ini vendas acessorios %fimacessorio
.writeini cadastros.ini vendas total %fimtotal
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado por me vender
seu escudo, estava precisando . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
}
if $2 == Poção {
if $readini(sda.ini,$nick,item) == nenhum { .msg = $+ $nick 2O14 Vendedor
disse2 : "Caro $nick $+ , você não tem nenhuma poção .
" | halt }
.set %fimouro $int($calc($ouro($nick) + $preço.buy.item($codigo($item($nick)))))
.set %fimitem $calc($readini(cadastros.ini,vendas,itens) + 1)
.set %fimtotal $calc($readini(cadastros.ini,vendas,total) + 1)
.writeini sda.ini $nick item Nenhum
.writeini sda.ini $nick ouro %fimouro
.writeini cadastros.ini vendas itens %fimitem
.writeini cadastros.ini vendas total %fimtotal
.msg = $+ $nick 2O14 Vendedor disse2 : "Obrigado por me vender
sua poção, estava precisando . "
.msg = $+ $nick 2V14ocê ficou com2 $ouro($nick) MdO
.msg = $+ $nick 2D14igite 2 ! Ficha 14para ver seus dados2 .
}
}
}
on *:CHAT:!preço*: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 != Arma && $2 != Escudo && $2 != Item && $2 !=
Armadura && $2 != Elmo { .msg = $+ $nick 4ERRO : 14 Acessorio inexistente,
por favor verifique sua digitação2 . | halt }
if $2 == Arma {
if $readini(sda.ini,$nick,braço.direito) == Nada { .msg = $+ $nick 4ERRO : 14
Você não tem nenhuma arma2 . | halt }
.msg = $+ $nick 2V14ocê tem um(a)2 : $readini(sda.ini,$nick,braço.direito)
.msg = $+ $nick 2S14ua arma será vendida por2 : $preço.buy.arma($codigo($arma($nick)))))
.msg = $+ $nick 2P14ara vende-la digite2 : !Vender Arma
halt
}
if $2 == Escudo {
if $readini(sda.ini,$nick,braço.esquerdo) == Nada { .msg = $+ $nick 4ERRO : 14
Você não tem nenhum escudo2 . | halt }
if $readini(sda.ini,$nick,escudo) != on { .msg = $+ $nick 4ERRO : 14 Você
não tem nenhum escudo2 . | halt }
.msg = $+ $nick 2V14ocê tem um2 : $readini(sda.ini,$nick,braço.esquerdo)
.msg = $+ $nick 2S14eu escudo será vendido por2 : $preço.buy.acessorio($codigo($readini(sda.ini,$nick,braço.esquerdo)))
.msg = $+ $nick 2P14ara vende-lo digite2 : !Vender Escudo
halt
}
if $2 == Armadura {
if $readini(sda.ini,$nick,peito) == Nada { .msg = $+ $nick 4ERRO : 14 Você
não tem nenhuma armadura2 . | halt }
.msg = $+ $nick 2V14ocê tem uma2 : $readini(sda.ini,$nick,peito)
.msg = $+ $nick 2S14ua armadura será vendida por2 : $preço.buy.acessorio($codigo($readini(sda.ini,$nick,peito)))
.msg = $+ $nick 2P14ara vende-la digite2 : !Vender Armadura
halt
}
if $2 == Elmo {
if $readini(sda.ini,$nick,cabeça) == Nada { .msg = $+ $nick 4ERRO : 14
Você não tem nenhum elmo2 . | halt }
.msg = $+ $nick 2V14ocê tem uma2 : $readini(sda.ini,$nick,cabeça)
.msg = $+ $nick 2S14eu elmo será vendido por2 : $preço.buy.acessorio($codigo($readini(sda.ini,$nick,cabeça)))
.msg = $+ $nick 2P14ara vende-lo digite2 : !Vender Elmo
halt
}
if $2 == Item {
if $readini(sda.ini,$nick,item) == Nada { .msg = $+ $nick 4ERRO : 14 Você
não tem nenhum item2 . | halt }
.msg = $+ $nick 2V14ocê tem um2 : $readini(sda.ini,$nick,item)
.msg = $+ $nick 2S14eu item será vendido por2 : $preço.buy.item($codigo($readini(sda.ini,$nick,item)))
.msg = $+ $nick 2P14ara vende-lo digite2 : !Vender Item
halt
}
}
}
on *:TEXT:!Hora:%canal.sda: {
if $time >= 06:00 && $time <= 11:59 {
.msg %canal.sda 2B14om Dia2 $nick 14agora são2 : $time
}
if $time >= 12:00 && $time <= 17:59 {
.msg %canal.sda 2B14oa Tarde2 $nick $+ 14, Agora são2 : $time
}
if $time >= 18:00 && $time <= 23:59 {
.msg %canal.sda 2B14oa Noite2 $nick $+ 14, Agora são2 : $time
}
if $time >= 00:00 && $time <= 05:59 {
.msg %canal.sda 2B14oa Madrugada2 $nick $+ 14, Agora são2 :
$time
}
}
on *:TEXT:!data:%canal.sda: { .msg %canal.sda 2 $+ $nick $+ 14, hoje são2 :
$date $+ 14, Dia2 : $replace($day,Monday,Segunda-Feira,Tuesday,Terça-Feira,Wednesday,Quarta-Feira,Thursday,Quinta-Feira,Friday,Sexta-Feira,Saturday,Sábado,Sunday,Domingo)
}
ctcp *:lag:*:{
var %duration = $calc(($ticks - %lag) / 100)
.msg %canal.sda 2L14ag2 : %duration 14segundos2 .
unset %lag
}
on *:TEXT:!lag:%canal.sda: { lag }
on *:CHAT:!rastrear*:{
if $2 != mais && $2 != menos { .msg = $+ $nick 4ERRO : 14 Apenas
2Mais14 e 2Menos14 estão dísponiveis2 ! | halt }
if $3 != força && $3 != foco && $3 != destreza &&
$3 != vigor && $3 != rico && $3 != level && $3 != Vitoria
&& $3 != Derrota {
.msg = $+ $nick 4ERRO : 14 Apenas 2Força14, 2Foco14, 2Destreza14,
2Vigor14, 2Rico14 e 2Level14 estão dísponiveis2 !
halt
}
if $2 == mais {
if $3 == Força {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %força = $readini(sda.ini,%nick,força)
if %força >= %y {
set %y %força
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o mais Forte 14com2 %y 14pontos no
Atributo 2Força !
}
if $3 == foco {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %foco = $readini(sda.ini,%nick,foco)
if %foco >= %y {
set %y %foco
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o de mais Precisão 14com2 %y
14pontos no Atributo 2Foco !
}
if $3 == destreza {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %destreza = $readini(sda.ini,%nick,destreza)
if %destreza >= %y {
set %y %destreza
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o mais Ágil 14com2 %y 14pontos
no Atributo 2Destreza !
}
if $3 == Vigor {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %Vigor = $readini(sda.ini,%nick,Vigor)
if %Vigor >= %y {
set %y %Vigor
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o mais Resistente 14com2 %y 14pontos
no Atributo 2Vigor !
}
if $3 == rico {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %ouro = $readini(sda.ini,%nick,ouro)
if %ouro >= %y {
set %y %ouro
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o mais Rico 14com2 %y MdO !
}
if $3 == level {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %level = $readini(sda.ini,%nick,level)
if %level >= %y {
set %y %level
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o mais Evoluido 14com2 %y 14de 2Level !
}
if $3 == vitoria {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %ganhou = $readini(sda.ini,%nick,ganhou)
if %ganhou >= %y {
set %y %ganhou
set %z %nick
}
inc %x
}
if %y == 1 { .msg = $+ $nick 2 $+ %z 14é o mais Vitorioso 14com2
%y 2Vitoria ! }
if %y > 1 { .msg = $+ $nick 2 $+ %z 14é o mais Vitorioso 14com2
%y 2Vitorias ! }
}
if $3 == derrota {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %derrota = $readini(sda.ini,%nick,perdeu)
if %derrota >= %y {
set %y %derrota
set %z %nick
}
inc %x
}
if %y == 1 { .msg = $+ $nick 2 $+ %z 14é o mais Derrotado 14com2
%y 2Derrota ! }
if %y > 1 { .msg = $+ $nick 2 $+ %z 14é o mais Derrotado 14com2
%y 2Derrotas ! }
}
}
if $2 == menos {
if $3 == força {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %força $readini(sda.ini,%nick,força)
if %força < %y {
set %y %força
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o menos Forte 14com2 %y 14pontos no
Atributo 2Força !
}
if $3 == foco {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %foco $readini(sda.ini,%nick,foco)
if %defesa < %y {
set %y %foco
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o de menos Precisão 14com2 %y
14pontos no Atributo 2Foco !
}
if $3 == destreza {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %destreza $readini(sda.ini,%nick,destreza)
if %destreza < %y {
set %y %destreza
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o menos Ágil 14com2 %y 14pontos
no Atributo 2Destreza !
}
if $3 == vigor {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %vigor $readini(sda.ini,%nick,vigor)
if %vigor < %y {
set %y %vigor
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o menos Resistente 14com2 %y 14pontos
no Atributo 2Vigor !
}
if $3 == level {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %level $readini(sda.ini,%nick,level)
if %level < %y {
set %y %level
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o menos Evoluido 14com2 %y 14de 2Level !
}
if $3 == rico {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %ouro $readini(sda.ini,%nick,ouro)
if %ouro < %y {
set %y %ouro
set %z %nick
}
inc %x
}
.msg = $+ $nick 2 $+ %z 14é o menos Rico 14com2 %y 2MdO !
}
if $3 == vitoria {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %vitoria $readini(sda.ini,%nick,ganhou)
if %vitoria < %y {
set %y %vitoria
set %z %nick
}
inc %x
}
if %y == 0 { .msg = $+ $nick 2 $+ %z 14é o menos Vitorioso 14com2
Nenhuma 2Vitoria ! }
if %y == 1 { .msg = $+ $nick 2 $+ %z 14é o menos Vitorioso 14com2
1 2Vitoria ! }
if %y > 1 { .msg = $+ $nick 2 $+ %z 14é o menos Vitorioso 14com2
%y 2Vitorias ! }
}
if $3 == derrota {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %derrota $readini(sda.ini,%nick,perdeu)
if %derrota < %y {
set %y %derrota
set %z %nick
}
inc %x
}
if %y == 0 { .msg = $+ $nick 2 $+ %z 14é o menos Derrotado 14com2
Nenhuma 2Derrota ! }
if %y == 1 { .msg = $+ $nick 2 $+ %z 14é o menos Derrotado 14com2
1 2Derrota ! }
if %y > 0 { .msg = $+ $nick 2 $+ %z 14é o menos Derrotado 14com2
%y 2Derrotas ! }
}
}
}
on *:TEXT:!rastrear*:%canal.sda: {
if $2 != mais && $2 != menos { .msg = $+ $nick 4ERRO : 14 Apenas
2Mais14 e 2Menos14 estão dísponiveis2 ! | halt }
if $3 != força && $3 != foco && $3 != destreza &&
$3 != vigor && $3 != rico && $3 != level && $3 != Vitoria
&& $3 != Derrota {
.msg $nick 4ERRO : 14 Apenas 2Força14, 2Foco14, 2Destreza14,
2Vigor14, 2Rico14, 2Level14, 2Vitoria14 e 2Derrota14 estão
dísponiveis2 !
halt
}
if $2 == mais {
if $3 == Força {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %força = $readini(sda.ini,%nick,força)
if %força >= %y {
set %y %força
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o mais Forte 14com2 %y 14pontos no
Atributo 2Força !
}
if $3 == foco {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %foco = $readini(sda.ini,%nick,foco)
if %foco >= %y {
set %y %foco
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o de mais Precisão 14com2 %y
14pontos no Atributo 2Foco !
}
if $3 == destreza {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %destreza = $readini(sda.ini,%nick,destreza)
if %destreza >= %y {
set %y %destreza
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o mais Ágil 14com2 %y 14pontos
no Atributo 2Destreza !
}
if $3 == Vigor {
set %total $nick(%canal.sda,0)
set %x 1
set %y 0
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %Vigor = $readini(sda.ini,%nick,Vigor)
if %Vigor >= %y {
set %y %Vigor
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o mais Resistente 14com2 %y 14pontos
no Atributo 2Vigor !
}
if $3 == rico {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %ouro = $readini(sda.ini,%nick,ouro)
if %ouro >= %y {
set %y %ouro
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o mais Rico 14com2 %y MdO !
}
if $3 == level {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %level = $readini(sda.ini,%nick,level)
if %level >= %y {
set %y %level
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o mais Evoluido 14com2 %y 14de 2Level !
}
if $3 == vitoria {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %ganhou = $readini(sda.ini,%nick,ganhou)
if %ganhou >= %y {
set %y %ganhou
set %z %nick
}
inc %x
}
if %y == 0 { .msg %canal.sda 2 $+ %z 14é o mais Vitorioso 14com2
%y 2Vitoria ! }
if %y == 1 { .msg %canal.sda 2 $+ %z 14é o mais Vitorioso 14com2
%y 2Vitoria ! }
if %y > 1 { .msg %canal.sda 2 $+ %z 14é o mais Vitorioso 14com2
%y 2Vitorias ! }
}
if $3 == derrota {
set %total $nick(%canal.sda,0)
set %x 1
set %y 1
while %x <= %total {
var %nick = $nick(%canal.sda,%x)
var %derrota = $readini(sda.ini,%nick,perdeu)
if %derrota >= %y {
set %y %derrota
set %z %nick
}
inc %x
}
if %y == 1 { .msg %canal.sda 2 $+ %z 14é o mais Derrotado 14com2
%y 2Derrota ! }
if %y == 0 { .msg %canal.sda 2 $+ %z 14é o mais Derrotado 14com2
0 2Derrota ! }
if %y > 1 { .msg %canal.sda 2 $+ %z 14é o mais Derrotado 14com2
%y 2Derrotas ! }
}
}
if $2 == menos {
if $3 == força {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %força $readini(sda.ini,%nick,força)
if %força < %y {
set %y %força
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o menos Forte 14com2 %y 14pontos no
Atributo 2Força !
}
if $3 == foco {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %foco $readini(sda.ini,%nick,foco)
if %defesa < %y {
set %y %foco
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o de menos Precisão 14com2 %y
14pontos no Atributo 2Foco !
}
if $3 == destreza {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %destreza $readini(sda.ini,%nick,destreza)
if %destreza < %y {
set %y %destreza
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o menos Ágil 14com2 %y 14pontos
no Atributo 2Destreza !
}
if $3 == vigor {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %vigor $readini(sda.ini,%nick,vigor)
if %vigor < %y {
set %y %vigor
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o menos Resistente 14com2 %y 14pontos
no Atributo 2Vigor !
}
if $3 == level {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %level $readini(sda.ini,%nick,level)
if %level < %y {
set %y %level
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o menos Evoluido 14com2 %y 14de 2Level !
}
if $3 == rico {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %ouro $readini(sda.ini,%nick,ouro)
if %ouro < %y {
set %y %ouro
set %z %nick
}
inc %x
}
.msg %canal.sda 2 $+ %z 14é o menos Rico 14com2 %y 2MdO !
}
if $3 == vitoria {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %vitoria $readini(sda.ini,%nick,ganhou)
if %vitoria < %y {
set %y %vitoria
set %z %nick
}
inc %x
}
if %y == 0 { .msg %canal.sda 2 $+ %z 14é o menos Vitorioso 14com2
Nenhuma 2Vitoria ! }
if %y == 1 { .msg %canal.sda 2 $+ %z 14é o menos Vitorioso 14com2
%y 2Vitoria ! }
if %y > 1 { .msg %canal.sda 2 $+ %z 14é o menos Vitorioso 14com2
%y 2Vitorias ! }
}
if $3 == derrota {
set %total $nick(%canal.sda,0)
set %x 1
set %y 999999999999999999999999
while %x <= %total {
set %nick $nick(%canal.sda,%x)
set %derrota $readini(sda.ini,%nick,perdeu)
if %derrota < %y {
set %y %derrota
set %z %nick
}
inc %x
}
if %y == 0 { .msg %canal.sda 2 $+ %z 14é o menos Derrotado 14com2
Nenhuma 2Derrota ! }
if %y == 1 { .msg %canal.sda 2 $+ %z 14é o menos Derrotado 14com2
%y 2Derrota ! }
if %y > 1 { .msg %canal.sda 2 $+ %z 14é o menos Derrotado 14com2
%y 2Derrotas ! }
}
}
}
on *:CHAT:!Top*: {
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! L ogin <Senha> | .msg = $+ $nick 2C14aso
esqueceu digite 2! E squeci | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 != força && $2 != foco && $2 != destreza &&
$2 != vigor && $2 != ouro && $2 != level {
.msg = $+ $nick 4ERRO : 14 Apenas estão dísponiveis os atributos2 :
Força14,2 Destreza14,2 Foco14,2 Vigor14,2 Ouro14 e 2Level2 .
halt
}
if $3 > 15 {
.msg = $+ $nick 4ERRO : 14 Máximo do comando 2 ! Top 14é
0215 .
halt
}
if $3 == $null { .msg = $+ $nick 4ERRO : 14 Digite a número do Top2,14
Ex2. : ! Top Força 5 | halt }
if $2 == força {
set %top $3
var %x = 1
while $ini(sda.ini,%x) {
var %² = $addtok(%²,$readini(sda.ini,$ifmatch,força) $ifmatch,44)
inc %x
}
var %² = $sorttok(%²,44,nr)
.msg = $+ $nick 2T14op02 $+ %top 14do Atributo 2Força2 :
var %p = 1
while ($gettok(%²,%p,44) && %p <= %top) {
var %¬ = $gettok(%²,%p,44)
.msg = $+ $nick 02 $+ %p $+ º2 : $gettok(%¬,2,32) 15-2 $gettok(%¬,1,32)
14pontos
inc %p
}
.msg = $+ $nick 2F14im dos resultados2 .
halt
}
if $2 == foco {
set %top $3
var %x = 1
while $ini(sda.ini,%x) {
var %² = $addtok(%²,$readini(sda.ini,$ifmatch,foco) $ifmatch,44)
inc %x
}
var %² = $sorttok(%²,44,nr)
.msg = $+ $nick 2T14op02 $+ %top 14do Atributo 2Foco2 :
var %p = 1
while ($gettok(%²,%p,44) && %p <= %top) {
var %¬ = $gettok(%²,%p,44)
.msg = $+ $nick 02 $+ %p $+ º2 : $gettok(%¬,2,32) 15-2 $gettok(%¬,1,32)
14pontos
inc %p
}
.msg = $+ $nick 2F14im dos resultados2 .
halt
}
if $2 == destreza {
set %top $3
var %x = 1
while $ini(sda.ini,%x) {
var %² = $addtok(%²,$readini(sda.ini,$ifmatch,destreza) $ifmatch,44)
inc %x
}
var %² = $sorttok(%²,44,nr)
.msg = $+ $nick 2T14op02 $+ %top 14do Atributo 2Destreza2 :
var %p = 1
while ($gettok(%²,%p,44) && %p <= %top) {
var %¬ = $gettok(%²,%p,44)
.msg = $+ $nick 02 $+ %p $+ º2 : $gettok(%¬,2,32) 15-2 $gettok(%¬,1,32)
14pontos
inc %p
}
.msg = $+ $nick 2F14im dos resultados2 .
halt
}
if $2 == vigor {
set %top $3
var %x = 1
while $ini(sda.ini,%x) {
var %² = $addtok(%²,$readini(sda.ini,$ifmatch,vigor) $ifmatch,44)
inc %x
}
var %² = $sorttok(%²,44,nr)
.msg = $+ $nick 2T14op02 $+ %top 14do Atributo 2Vigor2 :
var %p = 1
while ($gettok(%²,%p,44) && %p <= %top) {
var %¬ = $gettok(%²,%p,44)
.msg = $+ $nick 02 $+ %p $+ º2 : $gettok(%¬,2,32) 15-2 $gettok(%¬,1,32)
14pontos
inc %p
}
.msg = $+ $nick 2F14im dos resultados2 .
halt
}
if $2 == level {
set %top $3
var %x = 1
while $ini(sda.ini,%x) {
var %² = $addtok(%²,$readini(sda.ini,$ifmatch,level) $ifmatch,44)
inc %x
}
var %² = $sorttok(%²,44,nr)
.msg = $+ $nick 2T14op02 $+ %top 14de 2Level2 :
var %p = 1
while ($gettok(%²,%p,44) && %p <= %top) {
var %¬ = $gettok(%²,%p,44)
.msg = $+ $nick 02 $+ %p $+ º2 : $gettok(%¬,2,32) 15-2 $gettok(%¬,1,32)
14Level
inc %p
}
.msg = $+ $nick 2F14im dos resultados2 .
halt
}
if $2 == ouro {
set %top $3
var %x = 1
while $ini(sda.ini,%x) {
var %² = $addtok(%²,$readini(sda.ini,$ifmatch,ouro) $ifmatch,44)
inc %x
}
var %² = $sorttok(%²,44,nr)
.msg = $+ $nick 2T14op02 $+ %top 14de 2Ouro2 :
var %p = 1
while ($gettok(%²,%p,44) && %p <= %top) {
var %¬ = $gettok(%²,%p,44)
.msg = $+ $nick 02 $+ %p $+ º2 : $gettok(%¬,2,32) 15-2 $gettok(%¬,1,32)
14MdO
inc %p
}
.msg = $+ $nick 2F14im dos resultados2 .
halt
}
}
}
on *:TEXT:!adcionar*:?: {
if $nick !isop %canal.sda { .msg $nick 4ERRO : 14 Você não
é OP do 02 $+ %canal.sda | halt }
if $readini(sda.ini,$3,nick) == $null { .msg $nick 4ERRO : 2 $3 14não
está Cadastrado2 ! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 == ouro {
.set %ouro.inicial $readini(sda.ini,$3,ouro)
.set %ouro.final $calc(%ouro.inicial + $4)
.writeini sda.ini $3 ouro %ouro.final
.msg $nick 2C14oncededido 02 $+ $4 14MdO à 2 $+ $3 $+ .
.unset %ouro.inicial
.unset %ouro.final
halt
}
}
}
on *:TEXT:!retirar*:?: {
if $nick !isop %canal.sda { .msg $nick 4ERRO : 14 Você não
é OP do 02 $+ %canal.sda | halt }
if $readini(sda.ini,$3,nick) == $null { .msg $nick 4ERRO : 2 $3 14não
está Cadastrado2 ! | halt }
if $readini(senhas.ini,$nick $+ 1,ident) == ok {
if $2 == ouro {
.set %ouro.inicial $readini(sda.ini,$3,ouro)
.set %ouro.final $calc(%ouro.inicial - $4)
.writeini sda.ini $3 ouro %ouro.final
.msg $nick 2R14etirado 02 $+ $4 14MdO de 2 $+ $3 $+ .
.unset %ouro.inicial
.unset %ouro.final
halt
}
}
}
menu menubar {
&Zerar SDaBOT {
if $server != $null { //echo -a 2O $sdabot 14tem que está desconectado
para que possa ser Zerado2 . | halt }
var %resposta = $$?!="Deseja Realmente zerar o SDaBOT?"
if %resposta == $true {
.remove sda.ini
.remove cadastros.ini
.remove senhas.ini
unset %canal.sda
unset %faq.sda
unset %comando.sda
unset %nick.sda
unset %senha.sda
unset %time.turno
unset %parceiros.sda
unset %tempo.des.sda
//echo -a 2A14rquivo 2SDa.ini14 apagado do Sistema2 .
//echo -a 2A14rquivo 2Cadastros.ini14 apagado do Sistema2 .
//echo -a 2A14rquivo 2Senhas.ini14 apagado do Sistema2 .
//echo -a $sdabot 14zerado com êxito2 .
halt
}
if %resposta == $false {
//echo -a 2O14pção Cancelada2 .
halt
}
}
&Deletar cadastros {
var %resposta = $$?!="Deseja Realmente deletar os cadastros do SDaBOT?"
if %resposta == $true {
.remove sda.ini
.remove senhas.ini
//echo -a 2A14rquivo 2SDa.ini14 apagado do Sistema2 .
//echo -a 2A14rquivo 2Senhas.ini14 apagado do Sistema2 .
//echo -a 2C14adastros zerados com êxito2 .
halt
}
if %resposta == $false {
//echo -a 2O14pção Cancelada2 .
halt
}
}
&Cancelar Luta {
if $readini(luta.ini,geral,luta) != ok { //echo -a 4ERRO : 14 Não
está havendo nenhuma luta2 . | halt }
.set %motivo $$?="Motivo:"
if %motivo == $null { .msg = $+ $nick 4ERRO : 14 É necessário
um motivo para cancelar a luta, Ex2. : ! C ancelar Fulano não responde
os ataques. | halt }
msg.cancel
}
Zerar &Parceiros {
.remini cadastros.ini geral parceiros
//echo -a 2P14arceiros Zerado com Sucesso2 .
}
}
alias lvl return $readini(sda.ini,$1,level)
alias atk return $readini(luta.ini,geral,atk)
alias def return $readini(luta.ini,geral,def)
alias lutador1 return $readini(luta.ini,vaga,lutador1)
alias lutador2 return $readini(luta.ini,vaga,lutador2)
alias hp return $readini(luta.ini,$1,hp)
alias hptotal {
if $raça($1) == Anão {
return $calc((($readini(sda.ini,$1,vigor) +5) + $lvl($1)) * 10)
}
else {
return $calc(($readini(sda.ini,$1,vigor) + $lvl($1)) * 10)
}
}
alias vne.del {
if $exists(sda.ini) {
set %x.vne 0
while %x.vne < $ini(sda.ini,0) {
inc %x.vne
if $readini(sda.ini,$ini(sda.ini,%x.vne),vne) != $null {
.remini sda.ini $ini(sda.ini,%x.vne) vne
}
}
}
}
alias des.del {
if $exists(sda.ini) {
set %x.des 0
while %x.des < $ini(sda.ini,0) {
inc %x.des
if $readini(sda.ini,$ini(sda.ini,%x.des),desconto) != $null {
.remini sda.ini $ini(sda.ini,%x.des) desconto
}
}
}
}
alias quit quit $1- 15( $+ $sdabot v2.0 15)
on *:TEXT:!Check Cadastros:?: {
if $nick !isop %canal.sda { halt }
else { check.cadastros }
}
alias duracao { return $replace($duration($1),wk,$+ $chr(160) $+ semana,day,$+
$chr(160) $+ dia,hr,$+ $chr(160) $+ hora,min,$+ $chr(160) $+ minuto,sec,$+ $chr(160)
$+ segundo) }
alias check.cadastros {
if $exists(sda.ini) {
var %c.des = 0
while %c.des < $ini(sda.ini,0) {
inc %c.des
if $calc($ctime - $readini(sda.ini,$ini(sda.ini,%c.des),ctime)) >= $calc(3600
* 24 * %tempo.des.sda) {
.set %nick.des.senha $ini(sda.ini,%c.des)
.remini -n senhas.ini %nick.des.senha $+ 1
if %nick.des == $null { .set %nick.des $ini(sda.ini,%c.des) }
else { .set %nick.des %nick.des - $ini(sda.ini,%c.des) }
.remini -n sda.ini $ini(sda.ini,%c.des)
}
}
if $server != $null {
.msg %canal.sda 2V14erificando Contas com mais de2 %tempo.des.sda dias
14de inutilidade2 .
if $numtok(%nick.des,45) == 0 { .msg %canal.sda 2N14enhuma Conta inutilizada2 .
| halt }
if $numtok(%nick.des,45) == 1 {
.msg %canal.sda 2T14otal de2 $numtok(%nick.des,45) 14descadastro, listando2 :
.msg %canal.sda 2 $+ %nick.des
.msg %canal.sda 2F14im da listagem2 .
unset %nick.des
halt
}
if $numtok(%nick.des,45) > 1 {
.msg %canal.sda 2T14otal de2 $numtok(%nick.des,45) 14descadastro, listando2 :
.msg %canal.sda 2 $+ %nick.des
.msg %canal.sda 2F14im da listagem2 .
unset %nick.des
halt
}
}
}
}
alias pcthp return $int($calc($hp($1) * 100 / $hptotal($1)))
alias hp.final return $calc($hp($1) - %dano)
alias timer.atk {
/.timer $+ $def off
/.timer $+ $atk 1 %time.turno change.turn.tempo
}
alias status {
msg.all 2S14tatus2 :
if $readini(luta.ini,$atk,silenciox) == on && $readini(luta.ini,$atk,silencioy)
== on { msg.all 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02 $+ $pcthp($atk)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 : $+ ? $+ 15]
}
if $readini(luta.ini,$def,silenciox) == on && $readini(luta.ini,$def,silencioy)
== on { msg.all 15-14=1>2 $def $+ : $hp($def) $+ 15(02 $+ $pcthp($def)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 : $+ ? $+ 15]
}
if $readini(luta.ini,$atk,silenciox) == on && $readini(luta.ini,$atk,silencioy)
!= on { msg.all 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02 $+ $pcthp($atk)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 : $+ $y($atk)
$+ 15] }
if $readini(luta.ini,$def,silenciox) == on && $readini(luta.ini,$def,silencioy)
!= on { msg.all 15-14=1>2 $def $+ : $hp($def) $+ 15(02 $+ $pcthp($def)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 : $+ $y($def)
$+ 15] }
if $readini(luta.ini,$atk,silenciox) != on && $readini(luta.ini,$atk,silencioy)
== on { msg.all 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02 $+ $pcthp($atk)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($atk) $+ 15|14Y2 : $+
? $+ 15] }
if $readini(luta.ini,$def,silenciox) != on && $readini(luta.ini,$def,silencioy)
== on { msg.all 15-14=1>2 $def $+ : $hp($def) $+ 15(02 $+ $pcthp($def)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($def) $+ 15|14Y2 : $+
? $+ 15] }
if $readini(luta.ini,$atk,silenciox) != on && $readini(luta.ini,$atk,silencioy)
!= on { msg.all 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02 $+ $pcthp($atk)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($atk) $+ 15|14Y2 : $+
$y($atk) $+ 15] }
if $readini(luta.ini,$def,silenciox) != on && $readini(luta.ini,$def,silencioy)
!= on { msg.all 15-14=1>2 $def $+ : $hp($def) $+ 15(02 $+ $pcthp($def)
$+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($def) $+ 15|14Y2 : $+
$y($def) $+ 15] }
}
if $readini(luta.ini,$atk,metade.mov) != $null { .remini luta.ini $atk metade.mov
}
if %mpt.total != $null { .writeini luta.ini $atk mpt %mpt.total | .unset %mpt.total
}
if $readini(luta.ini,$atk,silenciox) == on {
.writeini luta.ini $atk turn.silencx $calc($readini(Luta.ini,$atk,turn.silencx)
+ 1)
if $readini(luta.ini,$atk,turn.silencx) == 3 {
.remini luta.ini $atk silenciox
.remini luta.ini $atk turn.silencx
}
if $readini(luta.ini,$atk,silencioy) == on {
.writeini luta.ini $atk turn.silency $calc($readini(Luta.ini,$atk,turn.silency)
+ 1)
if $readini(luta.ini,$atk,turn.silency) == 3 {
.remini luta.ini $atk silencioy
.remini luta.ini $atk turn.silency
}
}
}
if $readini(luta.ini,$atk,fb) == on {
.writeini luta.ini $atk turn.fb $calc($readini(luta.ini,$atk,turn.fb) + 1)
if $readini(luta.ini,$atk,turn.fb) == 7 {
.writeini luta.ini $atk força $readini(luta.ini,$atk,força.ant)
.writeini luta.ini $atk foco $readini(luta.ini,$atk,foco.ant)
.writeini luta.ini $atk destreza $readini(luta.ini,$atk,destreza.ant)
.remini luta.ini $atk foco.ant
.remini luta.ini $atk destreza.ant
.remini luta.ini $atk força.ant
.remini luta.ini $atk turn.fb
.writeini luta.ini $atk fb 1
msg.all 2O14 efeito da 4Fúria Bárbara14 de2 $atk 14acabou2 .
}
}
var %def = $atk
.writeini luta.ini geral atk $def
.writeini luta.ini geral def %def
}
alias change.turn.tempo {
status
change.turn
msg.all 2 $+ $def $+ 14, Limite de2 %time.turno segs 14excedido, Ataque2
$atk $+ !
timer.atk
}
alias dist {
.set %x.atk $readini(luta.ini,$atk,x)
.set %y.atk $readini(luta.ini,$atk,y)
.set %x.def $readini(luta.ini,$def,x)
.set %y.def $readini(luta.ini,$def,y)
if %x.atk == %x.def && %y.atk == %y.def { return 0 }
if %x.atk <= 0 && %x.def >= 0 { set %a $calc($abs(%x.atk) + $abs(%x.def))
}
if %x.atk >= 0 && %x.def <= 0 { set %a $calc($abs(%x.atk) + $abs(%x.def))
}
if %x.atk <= 0 && %x.def <= 0 { set %a $calc($abs(%x.atk) - $abs(%x.def))
}
if %x.atk >= 0 && %x.def >= 0 { set %a $calc($abs(%x.atk) - $abs(%x.def))
}
if %y.atk <= 0 && %y.def <= 0 { set %b $calc($abs(%y.atk) - $abs(%y.def))
}
if %y.atk >= 0 && %y.def >= 0 { set %b $calc($abs(%y.atk) - $abs(%y.def))
}
if %y.atk <= 0 && %y.def >= 0 { set %b $calc($abs(%y.atk) + $abs(%y.def))
}
if %y.atk <= 0 && %y.def <= 0 { set %b $calc($abs(%y.atk) + $abs(%y.def))
}
return $abs($calc(%a + %b))
}
alias msg.all {
.set %total $chat(0)
.set %x 1
while %x <= %total {
.set %nick $chat(%x)
if $readini(sda.ini,%nick,nick) != $null && $readini(senhas.ini,%nick
$+ 1,ident) == ok { .msg = $+ %nick $1- }
inc %x
}
}
alias msg.death {
msg.all 2 $+ $atk 14derrotou2 $def $+ 2 !
.msg %canal.sda 2L14uta entre2 $atk 14e02 $def 14Finalizada2 !
.msg %canal.sda 2V14encedor2 : $atk
}
alias start.battle {
.set %nick1 $lutador1
.set %nick2 $lutador2
.set %level1 $readini(sda.ini,%nick1,level)
.set %level2 $readini(sda.ini,%nick2,level)
.set %local $read(locais.txt)
if %local == Montanhas Cinzas(Norte) { .set %clima Polar }
if %local == Montanhas Nebulosas(Centrais) { .set %sort $rand(1,2) | if %sort
== 1 { .set %clima Inverno Úmido } | if %sort == 2 { .set %clima Verão
Úmido } }
if %local == Montanhas Brancas(Sul) { .set %sort $rand(1,2) | if %sort == 1
{ .set %clima Inverno Úmido } | if %sort == 2 { .set %clima Verão
Quente } }
if %local == Montanhas de Mordor(Sudeste) { .set %clima Árido }
if %local == Montanhas Azuis(Noroeste) { .set %sort $rand(1,2) | if %sort ==
1 { .set %clima Inverno Úmido } | if %sort == 2 { .set %clima Verão
Úmido } }
if %local == Rohan(Sul) { .set %sort $rand(1,2) | if %sort == 1 { .set %clima
Inverno Úmido } | if %sort == 2 { .set %clima Verão Quente } }
if %local == Dagolard(Sudeste) { .set %sort $rand(1,2) | if %sort == 1 { .set
%clima Inverno Seco } | if %sort == 2 { .set %clima Verão Quente } }
if %local == Lithlad(Mordor) { .set %clima Árido }
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador1)
mode %canal.sda +vvv $readini(luta.ini,vaga,lutador2)
.writeini luta.ini %nick1 X 10
.writeini luta.ini %nick1 Y 0
.writeini luta.ini %nick1 HP $calc(($readini(sda.ini,%nick1,vigor) + $readini(sda.ini,%nick1,level))
*10)
.writeini luta.ini %nick1 braço.esquerdo $calc(($readini(sda.ini,%nick1,vigor)
+ $readini(sda.ini,%nick1,level)) *3)
.writeini luta.ini %nick1 braço.direito $calc(($readini(sda.ini,%nick1,vigor)
+ $readini(sda.ini,%nick1,level)) *3)
.writeini luta.ini %nick1 perna.esquerda $calc(($readini(sda.ini,%nick1,vigor)
+ $readini(sda.ini,%nick1,level)) *3)
.writeini luta.ini %nick1 perna.direita $calc(($readini(sda.ini,%nick1,vigor)
+ $readini(sda.ini,%nick1,level)) *3)
if $subclasse(%nick1) == cavaleiro {
.writeini luta.ini %nick1 cavalo $calc($readini(cavalos.ini,$codigo($cavalo(%nick1)),vigor)
*5)
.writeini luta.ini %nick1 mpt.cavalo $readini(cavalos.ini,$codigo($cavalo(%nick1)),mpt)
}
if $raça(%nick1) == anão {
.writeini luta.ini %nick1 HP $calc((($readini(sda.ini,%nick1,vigor) +5) + $readini(sda.ini,%nick1,level))
*10)
.writeini luta.ini %nick1 braço.esquerdo $int($calc((($readini(sda.ini,%nick1,vigor)
+2.5) + $readini(sda.ini,%nick1,level)) *3))
.writeini luta.ini %nick1 braço.direito $int($calc((($readini(sda.ini,%nick1,vigor)
+2.5) + $readini(sda.ini,%nick1,level)) *3))
.writeini luta.ini %nick1 perna.esquerda $int($calc((($readini(sda.ini,%nick1,vigor)
+2.5) + $readini(sda.ini,%nick1,level)) *3))
.writeini luta.ini %nick1 perna.direita $int($calc((($readini(sda.ini,%nick1,vigor)
+2.5) + $readini(sda.ini,%nick1,level)) *3))
}
.writeini luta.ini %nick1 força $readini(sda.ini,%nick1,força)
.writeini luta.ini %nick1 destreza $readini(sda.ini,%nick1,destreza)
.writeini luta.ini %nick1 foco $readini(sda.ini,%nick1,foco)
.writeini luta.ini %nick1 vigor $readini(sda.ini,%nick1,vigor)
.writeini luta.ini %nick1 mpt $readini(Sda.ini,%nick1,mpt)
if $subclasse(%nick1) == Guardião { .writeini luta.ini %nick1 força
$calc($readini(luta.ini,%nick1,força) + 5) }
if $subclasse(%nick1) == Bardo { .writeini luta.ini %nick1 destreza $calc($readini(luta.ini,%nick1,destreza)
+ 5) }
if $raça(%nick1) == Humano { .writeini luta.ini %nick1 foco $calc($readini(luta.ini,%nick1,foco)
+ 5) }
if $raça(%nick1) == Orc { .writeini luta.ini %nick1 força $calc($readini(luta.ini,%nick1,força)
+ 5) }
if $elmo(%nick1) != nada { .writeini luta.ini %nick1 ada.elmo $readini(acessorios.ini,$codigo($elmo(%nick1)),ada)
}
else { .writeini luta.ini %nick1 ada.elmo 0 }
if $armadura(%nick1) != nada { .writeini luta.ini %nick1 ada.armadura $readini(acessorios.ini,$codigo($armadura(%nick1)),ada)
}
else { .writeini luta.ini %nick1 ada.armadura 0 }
if $escudo(%nick1) != nada { .writeini luta.ini %nick1 ada.escudo $readini(acessorios.ini,$codigo($escudo(%nick1)),ada)
}
else { .writeini luta.ini %nick1 ada.escudo 0 }
if $bota(%nick1) != nada { .writeini luta.ini %nick1 ada.bota $readini(acessorios.ini,$codigo($bota(%nick1)),ada)
}
else { .writeini luta.ini %nick1 ada.bota 0 }
.writeini luta.ini %nick2 X 0
.writeini luta.ini %nick2 Y 10
.writeini luta.ini %nick2 HP $calc(($readini(sda.ini,%nick2,vigor) + $readini(sda.ini,%nick2,level))
*10)
.writeini luta.ini %nick2 braço.esquerdo $calc(($readini(sda.ini,%nick2,vigor)
+ $readini(sda.ini,%nick2,level)) *3)
.writeini luta.ini %nick2 braço.direito $calc(($readini(sda.ini,%nick2,vigor)
+ $readini(sda.ini,%nick2,level)) *3)
.writeini luta.ini %nick2 perna.esquerda $calc(($readini(sda.ini,%nick2,vigor)
+ $readini(sda.ini,%nick2,level)) *3)
.writeini luta.ini %nick2 perna.direita $calc(($readini(sda.ini,%nick2,vigor)
+ $readini(sda.ini,%nick2,level)) *3)
if $subclasse(%nick2) == cavaleiro {
.writeini luta.ini %nick2 cavalo $calc($readini(cavalos.ini,$codigo($cavalo(%nick2)),vigor)
*5)
.writeini luta.ini %nick2 mpt.cavalo $readini(cavalos.ini,$codigo($cavalo(%nick2)),mpt)
}
if $raça(%nick2) == anão {
.writeini luta.ini %nick2 HP $calc((($readini(sda.ini,%nick2,vigor) +5) + $readini(sda.ini,%nick2,level))
*10)
.writeini luta.ini %nick2 braço.esquerdo $int($calc((($readini(sda.ini,%nick2,vigor)
+2.5) + $readini(sda.ini,%nick2,level)) *3))
.writeini luta.ini %nick2 braço.direito $int($calc((($readini(sda.ini,%nick2,vigor)
+2.5) + $readini(sda.ini,%nick2,level)) *3))
.writeini luta.ini %nick2 perna.esquerda $int($calc((($readini(sda.ini,%nick2,vigor)
+2.5) + $readini(sda.ini,%nick2,level)) *3))
.writeini luta.ini %nick2 perna.direita $int($calc((($readini(sda.ini,%nick2,vigor)
+2.5) + $readini(sda.ini,%nick2,level)) *3))
}
.writeini luta.ini %nick2 força $readini(sda.ini,%nick2,força)
.writeini luta.ini %nick2 destreza $readini(sda.ini,%nick2,destreza)
.writeini luta.ini %nick2 foco $readini(sda.ini,%nick2,foco)
.writeini luta.ini %nick2 vigor $readini(sda.ini,%nick2,vigor)
.writeini luta.ini %nick2 mpt $readini(Sda.ini,%nick2,mpt)
if $subclasse(%nick2) == Guardião { .writeini luta.ini %nick2 força
$calc($readini(luta.ini,%nick2,força) + 5) }
if $subclasse(%nick2) == Bardo { .writeini luta.ini %nick2 destreza $calc($readini(luta.ini,%nick2,destreza)
+ 5) }
if $raça(%nick2) == Humano { .writeini luta.ini %nick2 foco $calc($readini(luta.ini,%nick2,foco)
+ 5) }
if $raça(%nick2) == Orc { .writeini luta.ini %nick2 força $calc($readini(luta.ini,%nick2,força)
+ 5) } if $elmo(%nick2) != nada { .writeini luta.ini %nick2 ada.elmo $readini(acessorios.ini,$codigo($elmo(%nick2)),ada)
}
else { .writeini luta.ini %nick2 ada.elmo 0 }
if $armadura(%nick2) != nada { .writeini luta.ini %nick2 ada.armadura $readini(acessorios.ini,$codigo($armadura(%nick2)),ada)
}
else { .writeini luta.ini %nick2 ada.armadura 0 }
if $escudo(%nick2) != nada { .writeini luta.ini %nick2 ada.escudo $readini(acessorios.ini,$codigo($escudo(%nick2)),ada)
}
else { .writeini luta.ini %nick2 ada.escudo 0 }
if $bota(%nick2) != nada { .writeini luta.ini %nick2 ada.bota $readini(acessorios.ini,$codigo($bota(%nick2)),ada)
}
else { .writeini luta.ini %nick2 ada.bota 0 }
if %level1 > %level2 {
.writeini luta.ini geral atk %nick1
.writeini luta.ini geral def %nick2
.writeini luta.ini geral luta ok
msg.all 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2 !
msg.all 2L14ocal2 : %local 15-2 C14lima2 : %clima
status
msg.all 2A14taque2 %nick1 $+ !
.msg %canal.sda 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2 !
halt
}
if %level2 > %level1 {
.writeini luta.ini geral atk %nick2
.writeini luta.ini geral def %nick1
.writeini luta.ini geral luta ok
msg.all 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2 :
msg.all 2L14ocal2 : %local 15-2 C14lima2 : %clima
status
msg.all 2A14taque2 %nick2 $+ !
.msg %canal.sda 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2 !
halt
}
if %level2 == %level1 {
.writeini luta.ini geral atk %nick1
.writeini luta.ini geral def %nick2
.writeini luta.ini geral luta ok
msg.all 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2 :
msg.all 2L14ocal2 : %local 15-2 C14lima2 : %clima
status
msg.all 2A14taque2 %nick1 $+ !
.msg %canal.sda 2L14uta entre2 %nick1 14Vs.2 %nick2 14iniciada2 !
halt
}
}
alias atualizar {
.set %iniexp1 $readini(sda.ini,$1,exp)
.set %inilevel1 $readini(sda.ini,$1,level)
.set %proxnivel1 $readini(sda.ini,$1,proxnivel)
.set %iniouro1 $readini(sda.ini,$1,ouro)
.set %inivitoria $readini(sda.ini,$1,ganhou)
.set %iniexp2 $readini(sda.ini,$2,exp)
.set %inilevel2 $readini(sda.ini,$2,level)
.set %proxnivel2 $readini(sda.ini,$2,proxnivel)
.set %iniouro2 $readini(sda.ini,$2,ouro)
.set %iniperdeu $readini(sda.ini,$2,perdeu)
.set %inilutas $readini(cadastros.ini,lutas,total)
.set %fimexp1 $int($calc(%iniexp1 + (%inilevel1 + (%inilevel2 *2))))
.set %fimouro1 $calc(%iniouro1 + 10)
.set %fimvitoria $calc(%inivitoria + 1)
.set %fimexp2 $int($calc(%iniexp2 + (%inilevel2 + %inilevel2)))
.set %fimouro2 $calc(%iniouro2 + 5)
.set %fimperdeu $calc(%iniperdeu + 1)
.set %fimlutas $calc(%inilutas + 1)
.writeini sda.ini $1 exp %fimexp1
.writeini sda.ini $1 ouro %fimouro1
.writeini sda.ini $1 ganhou %fimvitoria
.writeini sda.ini $2 exp %fimexp2
.writeini sda.ini $2 ouro %fimouro2
.writeini sda.ini $2 perdeu %fimperdeu
.writeini cadastros.ini lutas total %fimlutas
mode %canal.sda -vvv $lutador1
mode %canal.sda -vvv $lutador2
if %fimexp1 >= %proxnivel1 {
.set %fimlevel $calc(%inilevel1 + 1)
.set %fimproxnivel $calc((%proxnivel1 + %fimlevel1) * 2)
.set %inipontos $readini(sda.ini,$1,pontos)
.set %fimpontos $calc(%inipontos + 5)
.writeini sda.ini $1 exp 0
.writeini sda.ini $1 proxnivel %fimproxnivel
.writeini sda.ini $1 level %fimlevel
.writeini sda.ini $1 pontos %fimpontos
.msg $1 2V14ocê evoluiu de Level e ganhou mais 025 14pontos de Atributos 2 !
.msg $1 2A14bra um CHAT com o $sdabot e Digite2 : ! D istribuir
Atributo Quantia
}
if %fimexp2 >= %proxnivel2 {
.set %fimlevel $calc(%inilevel2 + 1)
.set %fimproxnivel $calc((%proxnivel2 + %fimlevel2) * 2)
.set %inipontos $readini(pontos.ini,$2,pontos)
.set %fimpontos $calc(%inipontos + 5)
.writeini sda.ini $2 exp 0
.writeini sda.ini $2 proxnivel %fimproxnivel
.writeini sda.ini $2 level %fimlevel
.writeini sda.ini $2 pontos %fimpontos
.msg $2 2V14ocê evoluiu de Level e ganhou mais 025 14pontos de Atributos 2 !
.msg $2 2A14bra um CHAT com o $sdabot e Digite2 : ! D istribuir
Atributo Quantia
}
.remove luta.ini
}
alias msg.cancel {
mode -vvv $lutador1
mode -vvv $lutador2
.writeini cadastros.ini lutas canceladas $calc($readini(luta.ini,lutas,canceladas)
+ 1)
msg.all 2L14uta entre2 $atk 14Vs.2 $def 14Cancelada2 !
msg.all 2M14otivo2 : %motivo
.msg %canal.sda 2L14uta entre2 $atk 14Vs.2 $def 14Cancelada2 !
.msg %canal.sda 2M14otivo2 : %motivo
timer.atk
.remove luta.ini
halt
}
alias força return $readini(luta.ini,$1,força)
alias destreza return $readini(luta.ini,$1,destreza)
alias foco return $readini(luta.ini,$1,foco)
alias vigor return $readini(luta.ini,$1,vigor)
alias mpt return $readini(luta.ini,$1,mpt)
alias mpt.cavalo return $readini(luta.ini,$1,mpt.cavalo)
alias defesa.escudo return $readini(luta.ini,$1,ada.escudo)
alias defesa.elmo return $readini(luta.ini,$1,ada.elmo)
alias defesa.armadura return $readini(luta.ini,$1,ada.armadura)
alias defesa.bota return $readini(luta.ini,$1,ada.bota)
alias codigo return $readini(codigos.ini,$1,codigo)
alias alcance return $readini(armas.ini,$codigo($1),alcance)
alias raça return $readini(sda.ini,$1,raça)
alias classe return $readini(sda.ini,$1,classe)
alias subclasse return $readini(sda.ini,$1,subclasse)
alias x return $readini(luta.ini,$1,x)
alias y return $readini(luta.ini,$1,y)
alias recupera return $readini(itens.ini,$codigo($1),recupera)
alias efeito return $readini(itens.ini,$codigo($1),efeito)
alias dificuldade return $readini(armas.ini,$1,dificuldade)
alias ouro return $readini(sda.ini,$1,ouro)
alias cavalo return $readini(sda.ini,$1,cavalo)
alias preço.arma return $readini(armas.ini,$1,mdo)
alias preço.acessorio return $readini(acessorios.ini,$1,mdo)
alias preço.item return $readini(itens.ini,$1,mdo)
alias preço.buy.arma return $int($calc($preço.arma($1) /2))
alias preço.buy.acessorio return $int($calc($preço.acessorio($1)
/2))
alias preço.buy.item return $int($calc($preço.item($1) /2))
alias preçodes.arma return $readini(armas.ini,$1,mdodes)
alias preçodes.acessorio return $readini(acessorios.ini,$1,mdodes)
alias elmo return $readini(sda.ini,$1,cabeça)
alias armadura return $readini(sda.ini,$1,peito)
alias escudo {
if $readini(acessorios.ini,$codigo($readini(sda.ini,$1,braço.esquerdo)),nome)
== $null { return Nada }
else { return $readini(sda.ini,$1,braço.esquerdo) }
}
alias arma return $readini(sda.ini,$1,braço.direito)
alias bota return $readini(sda.ini,$1,pernas)
alias item return $readini(sda.ini,$1,item)
alias dano.soco return $rand(1,$int($calc((($força($atk) + $lvl($atk))
*2.5) - ($destreza($def) + $lvl($def)))))
alias dano.chute return $rand(1,$int($calc((($força($atk) + $lvl($atk))
*2.5) - ($destreza($def) + $lvl($def)))))
alias dano.arma return $rand($gettok($readini(armas.ini,$codigo($1),dano),1,32),$gettok($readini(armas.ini,$codigo($1),dano),2,32))
alias dano.critico return $rand($gettok($readini(armas.ini,$codigo($1),critico),1,32),$gettok($readini(armas.ini,$codigo($1),critico),2,32))
alias dano.cabeça {
if $readini(luta.ini,$def,ada.elmo) <= 0 { return $int($calc((($força($atk)
+ $dano.arma($arma($atk)) + $lvl($atk))*2)-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc((($força($atk) + $dano.arma($arma($atk)) + $lvl($atk))*2)-(($defesa.elmo($def)
+ $destreza($def) + $lvl($def))/2))) }
}
alias dano.cabeça.critico {
if $readini(luta.ini,$def,ada.elmo) <= 0 { return $int($calc((($força($atk)
+ $dano.critico($arma($atk)) + $lvl($atk))*2)-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc((($força($atk) + $dano.critico($arma($atk))
+ $lvl($atk))*2)-(($defesa.elmo($def) + $destreza($def) + $lvl($def))/2))) }
}
alias dano.peito {
if $readini(luta.ini,$def,ada.armadura) <= 0 { return $int($calc((($força($atk)
+ $dano.arma($arma($atk)) + $lvl($atk))*1.5)-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc((($força($atk) + $dano.arma($arma($atk)) + $lvl($atk))*1.5)-(($defesa.armadura($def)
+ $destreza($def) + $lvl($def))/2))) }
}
alias dano.peito.critico {
if $readini(luta.ini,$def,ada.armadura) <= 0 { return $int($calc((($força($atk)
+ $dano.critico($arma($atk)) + $lvl($atk))*1.5)-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc((($força($atk) + $dano.critico($arma($atk))
+ $lvl($atk))*1.5)-(($defesa.armadura($def) + $destreza($def) + $lvl($def))/3)))
}
}
alias dano.braço {
if $readini(luta.ini,$def,ada.escudo) <= 0 { return $int($calc(($força($atk)
+ $dano.arma($arma($atk)) + $lvl($atk))-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc(($força($atk) + $dano.arma($arma($atk)) + $lvl($atk))-(($defesa.escudo($def)
+ $destreza($def) + $lvl($def))/2))) }
}
alias dano.braço.critico {
if $readini(luta.ini,$def,ada.escudo) <= 0 { return $int($calc(($força($atk)
+ $dano.critico($arma($atk)) + $lvl($atk))-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc(($força($atk) + $dano.critico($arma($atk)) +
$lvl($atk))-(($defesa.escudo($def) + $destreza($def) + $lvl($def))/2))) }
}
alias dano.perna {
if $readini(luta.ini,$def,ada.bota) <= 0 { return $int($calc(($força($atk)
+ $dano.arma($arma($atk)) + $lvl($atk))-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc(($força($atk) + $dano.arma($arma($atk)) + $lvl($atk))-(($defesa.bota($def)
+ $destreza($def) + $lvl($def))/2))) }
}
alias dano.perna.critico {
if $readini(luta.ini,$def,ada.bota) <= 0 { return $int($calc(($força($atk)
+ $dano.critico($arma($atk)) + $lvl($atk))-(($destreza($def) + $lvl($def))/3)))
}
else { return $int($calc(($força($atk) + $dano.critico($arma($atk)) +
$lvl($atk))-(($defesa.bota($def) + $destreza($def) + $lvl($def))/2))) }
}
alias dano.cavalo return $int($calc(($força($atk) + $dano.arma($arma($atk))
+ $lvl($atk))-(($destreza($def) + $lvl($def))/3)))
alias dano.cavalo.critico return $int($calc(($força($atk) + $dano.critico($arma($atk))
+ $lvl($atk))-(($destreza($def) + $lvl($def))/3)))
on *:CHAT:!Atacar*: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $nick { .msg = $+ $nick 4ERRO : 14 Não está no
seu turno2 ! | halt }
if $readini(armas.ini,$codigo($arma($atk)),mãos) == 2 && $readini(luta.ini,$atk,braço.direito)
<= 0 { .msg = $+ $nick 4ERRO : 14 Sua arma só ataca com o uso
das duas mãos e você está impossibilitado de seu braço
direito2 . | halt }
if $readini(armas.ini,$codigo($arma($atk)),mãos) == 2 && $readini(luta.ini,$atk,braço.esquerdo)
<= 0 { .msg = $+ $nick 4ERRO : 14 Sua arma só ataca com o uso
das duas mãos e você está impossibilitado de seu braço
esquerdo2 . | halt }
if $raça($def) == Hobbit && $readini(luta.ini,$def,esconder)
== on { .msg = $+ $nick 4ERRO : 14 Você não pode atacar2 $def
$+ 14, pois, ele está escondido2 . | halt }
if $raça($atk) == Hobbit && $readini(luta.ini,$atk,esconder)
== on { .msg = $+ $nick 4ERRO : 14 Você não pode atacar por
enquanto está escondido2 . | halt }
if $readini(luta.ini,$atk,braço.direito) <= 0 { .msg = $+ $nick 4ERRO :
14Você está impossibilitado de utilizar o Braço Direito2 !
| halt }
if $dist > $alcance($arma($atk)) { .msg = $+ $nick 4ERRO : 14 Sua arma
só ataca a uma distancia de2 $alcance($arma($atk)) 14metros2 .
| halt }
if $2 == Cabeça {
if $rand(1,$int($calc($foco($atk) /2))) < $rand(1,$calc($destreza($def) +
$dificuldade($codigo($arma($atk))))) {
change.turn
msg.all 2 $+ $def 14errou o Ataque, Ataque2 $atk $+ 2 !
timer.atk
halt
}
.set %dano.arma $dano.arma($arma($atk))
if %dano.arma == $gettok($readini(armas.ini,$codigo($arma($atk)),dano),2,32)
{
.set %dano.cabeça.critico $dano.cabeça.critico
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.cabeça.critico }
.writeini luta.ini $def HP $hp.final($def)
if $elmo($def) != nada { .writeini luta.ini $def ada.elmo $int($calc($readini(luta.ini,$def,ada.elmo)-(%dano
/2))) }
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 4CRÍTICO ! 2 $atk 14atacou a Cabeça de2 $def 14e
causou2 %dano 14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 4CRÍTICO ! 2 $atk 14atacou a Cabeça de2 $def 14e
causou2 %dano 14de dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
.set %dano.cabeça $dano.cabeça
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.cabeça }
.writeini luta.ini $def HP $hp.final($def)
if $elmo($def) != nada { .writeini luta.ini $def ada.elmo $int($calc($readini(luta.ini,$def,ada.elmo)-(%dano
/3))) }
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 2 $+ $atk 14atacou a Cabeça de2 $def 14e causou2 %dano 14de
dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 2 $+ $atk 14atacou a Cabeça de2 $def 14e causou2 %dano 14de
Dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $2 == Peito {
if $rand(1,$foco($atk)) < $rand(1,$calc($destreza($def) + $dificuldade($codigo($arma($atk)))))
{
change.turn
msg.all 2 $+ $def 14errou o Ataque, Ataque2 $atk $+ 2 !
timer.atk
halt
}
.set %dano.arma $dano.arma($arma($atk))
if %dano.arma == $gettok($readini(armas.ini,$codigo($arma($atk)),dano),2,32)
{
.set %dano.peito.critico $dano.peito.critico
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.peito.critico }
.writeini luta.ini $def HP $hp.final($def)
if $armadura($def) != nada { .writeini luta.ini $def ada.armadura $int($calc($readini(luta.ini,$def,ada.armadura)-(%dano
/2))) }
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 4CRÍTICO ! 2 $atk 14atacou o Peito de2 $def 14e causou2
%dano 14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 4CRÍTICO ! 2 $atk 14atacou o Peito de2 $def 14e causou2
%dano 14de dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
.set %dano.peito $dano.peito
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.peito }
.writeini luta.ini $def HP $hp.final($def)
if $armadura($def) != nada { .writeini luta.ini $def ada.armadura $int($calc($readini(luta.ini,$def,ada.armadura)-(%dano
/3))) }
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 2 $+ $atk 14atacou o Peito de2 $def 14e causou2 %dano 14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 2 $+ $atk 14atacou o Peito de2 $def 14e causou2 %dano 14de Dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $2 == braço {
if $3 == $null { .msg = $+ $nick 4ERRO : 14 Você tem de Especificar
o Braço, Direito ou Esquerdo , Ex2. : !Atacar Braço Esquerdo
| halt }
if $3 != Esquerdo && $3 != Direito { .msg = $+ $nick 4ERRO : 14
Você tem de Especificar o Braço, Direito ou Esquerdo , Ex2. :
!Atacar Braço Esquerdo | halt }
if $rand(1,$foco($atk)) < $rand(1,$calc($destreza($def) + $dificuldade($codigo($arma($atk)))))
{
change.turn
msg.all 2 $+ $def 14errou o Ataque, Ataque2 $atk $+ 2 !
timer.atk
halt
}
.set %dano.arma $dano.arma($arma($atk))
if %dano.arma == $gettok($readini(armas.ini,$codigo($arma($atk)),dano),2,32)
{
.set %dano.braço.critico $dano.braço.critico
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.braço.critico }
.writeini luta.ini $def HP $hp.final($def)
if $escudo($def) != nada { .writeini luta.ini $def ada.escudo $int($calc($readini(luta.ini,$def,ada.escudo)-(%dano
/2))) }
if $3 == Esquerdo { .writeini luta.ini $def braço.esquerdo $calc($readini(luta.ini,$def,braço.esquerdo)
- %dano) }
if $3 == Direito { .writeini luta.ini $def braço.direito $calc($readini(luta.ini,$def,braço.direito)
- %dano) }
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 4CRÍTICO ! 2 $atk 14atacou o Braço $3 de2 $def 14e
causou2 %dano 14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 4CRÍTICO ! 2 $atk 14atacou o Braço $3 de2 $def 14e
causou2 %dano 14de dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
.set %dano.braço $dano.braço
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.braço }
if $3 == Esquerdo { .writeini luta.ini $def braço.esquerdo $calc($readini(luta.ini,$def,braço.esquerdo)
- %dano) }
if $3 == Direito { .writeini luta.ini $def braço.direito $calc($readini(luta.ini,$def,braço.direito)
- %dano) }
.writeini luta.ini $def HP $hp.final($def)
if $escudo($def) != nada { .writeini luta.ini $def ada.escudo $int($calc($readini(luta.ini,$def,ada.escudo)-(%dano
/3))) }
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 2 $+ $atk 14atacou o Braço $3 de2 $def 14e causou2 %dano
14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 2 $+ $atk 14atacou o Braço $3 de2 $def 14e causou2 %dano
14de Dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $2 == Perna {
if $3 == $null { .msg = $+ $nick 4ERRO : 14 Você tem de Especificar
o perna, Direita ou Esquerda , Ex2. : !Atacar Perna Esquerda | halt }
if $3 != Esquerda && $3 != Direita { .msg = $+ $nick 4ERRO : 14
Você tem de especificar a perna, Direita ou Esquerda , Ex2. : !Atacar
Perna Esquerda | halt }
if $rand(1,$foco($atk)) < $rand(1,$calc($destreza($def) + $dificuldade($codigo($arma($atk)))))
{
change.turn
msg.all 2 $+ $def 14errou o Ataque, Ataque2 $atk $+ 2 !
timer.atk
halt
}
.set %dano.arma $dano.arma($arma($atk))
if %dano.arma == $gettok($readini(armas.ini,$codigo($arma($atk)),dano),2,32)
{
.set %dano.perna.critico $dano.perna.critico
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.perna.critico }
.writeini luta.ini $def HP $hp.final($def)
if $bota($def) != nada { .writeini luta.ini $def ada.bota.esquerda $int($calc($readini(luta.ini,$def,ada.bota)-(%dano
/2))) }
if $3 == Esquerda {
if $bota($def) != nada { .writeini luta.ini $def ada.bota.esquerda $int($calc($readini(luta.ini,$def,ada.bota)-(%dano
/2))) }
.writeini luta.ini $def perna.esquerda $calc($readini(luta.ini,$def,perna.esquerda)
- %dano)
}
if $3 == Direita {
if $bota($def) != nada { .writeini luta.ini $def ada.bota.direita $int($calc($readini(luta.ini,$def,ada.bota)-(%dano
/2))) }
.writeini luta.ini $def perna.direita $calc($readini(luta.ini,$def,perna.direita)
- %dano)
}
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 4CRÍTICO ! 2 $atk 14atacou a Perna $3 de2 $def 14e causou2
%dano 14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
var %mpt = $readini(luta.ini,$def,mpt)
.dec %mpt 2
.writeini luta.ini $def mpt %mpt
if $readini(luta.ini,$def,mpt) <= 0 { .writeini luta.ini $def mpt 1 }
msg.all 4CRÍTICO ! 2 $atk 14atacou a Perna $3 de2 $def 14e causou2
%dano 14de dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
.set %dano.perna $dano.perna
if %dano <= 0 { .set %dano 1 }
else { .set %dano %dano.perna }
var %mpt = $readini(luta.ini,$def,mpt)
.dec %mpt
.writeini luta.ini $def mpt %mpt
if $readini(luta.ini,$def,mpt) <= 0 { .writeini luta.ini $def mpt 1 }
if $3 == Esquerda {
if $bota($def) != nada { .writeini luta.ini $def ada.bota.esquerda $int($calc($readini(luta.ini,$def,ada.bota)-(%dano
/3))) }
.writeini luta.ini $def perna.esquerda $calc($readini(luta.ini,$def,perna.esquerda)
- %dano)
}
if $3 == Direita {
if $bota($def) != nada { .writeini luta.ini $def ada.bota.direita $int($calc($readini(luta.ini,$def,ada.bota)-(%dano
/3))) }
.writeini luta.ini $def perna.direita $calc($readini(luta.ini,$def,perna.direita)
- %dano)
}
.writeini luta.ini $def HP $hp.final($def)
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 2 $+ $atk 14atacou a Perna $3 de2 $def 14e causou2 %dano 14de
dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 2 $+ $atk 14atacou a Perna $3 de2 $def 14e causou2 %dano 14de
Dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $2 == Cavalo {
if $subclasse($def) != Cavaleiro { .msg = $+ $nick 4ERRO : 2 $def 14não
é 2Guerreiro15/2Cavaleiro2 . | halt }
if $readini(luta.ini,$def,cavalo) <= 0 { .msg = $+ $nick 4ERRO : 14 O
cavalo de2 $def 14já está morto2 . | halt }
if $rand(1,$foco($atk)) < $rand(1,$calc($destreza($def) + $dificuldade($codigo($arma($atk)))))
{
change.turn
msg.all 2 $+ $def 14errou o Ataque, Ataque2 $atk $+ 2 !
timer.atk
halt
}
.set %dano.arma $dano.arma($arma($atk))
if %dano.arma == $gettok($readini(armas.ini,$codigo($arma($atk)),dano),2,32)
{
.set %dano.cavalo.critico $dano.cavalo.critico
if %dano.cavalo.critico <= 0 { .set %dano 1 }
else { .set %dano %dano.cavalo.critico }
.writeini luta.ini $def cavalo $calc($readini(luta.ini,$def,cavalo) - %dano)
.writeini luta.ini $def mpt.cavalo $calc($readini(luta.ini,$def,mpt.cavalo)
- 2)
if $readini(luta.ini,$def,cavalo) <= 0 {
.set %dano.queda $rand(1,$destreza($def))
.writeini luta.ini $def HP $calc($readini(luta.ini,$def,hp) - %dano.queda))
msg.all 4CRÍTICO ! 2 $atk 14atacou o Cavalo de2 $def 14e o matou
causando-lhe2 %dano 14de dano2 .
msg.all 2 $+ $def 14perdeu2 %dano.queda 14de HP por ter caido do cavalo2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
msg.all 4CRÍTICO ! 2 $atk 14atacou o Cavalo de2 $def 14e causou2
%dano 14de dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
.set %dano.cavalo $dano.cavalo
if %dano.cavalo <= 0 { .set %dano 1 }
else { .set %dano %dano.cavalo }
.writeini luta.ini $def cavalo $calc($readini(luta.ini,$def,cavalo) - %dano)
.writeini luta.ini $def mpt.cavalo $calc($readini(luta.ini,$def,mpt.cavalo)
- 1)
if $readini(luta.ini,$def,cavalo) <= 0 {
.set %dano.queda $rand(1,$destreza($def))
.writeini luta.ini $def HP $calc($readini(luta.ini,$def,hp) - %dano.queda))
msg.all 2 $+ $atk 14atacou o Cavalo de2 $def 14e o matou causando-lhe2
%dano 14de dano2 .
msg.all 2 $+ $def 14perdeu2 %dano.queda 14de HP por ter caido do cavalo2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
msg.all 2 $+ $atk 14atacou o Cavalo de2 $def 14e causou2 %dano 14de Dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
on *:CHAT:!Esconder: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $nick { .msg = $+ $nick 4ERRO : 14 Não está no
seu turno2 ! | halt }
if $raça($atk) != Hobbit { .msg = $+ $nick 4ERRO : 14Apenas Hobbits
podem se esconder2 ! | halt }
if $readini(luta.ini,$atk,perna.esquerda) <= 0 && $readini(luta.ini,$atk,perna.direita)
<= 0 { .msg = $+ $nick 4ERRO : 14 Você está impossibilitado
de utilizar as Pernas2 ! | halt }
if $readini(luta.ini,$atk,escondido) == 1 { .msg = $+ $nick 4ERRO : 14 Você
só pode usar essa habilidade apenas uma vez por Luta2 . | halt }
if $readini(luta.ini,$atk,esconder) != on {
.writeini luta.ini $atk esconder on
.writeini luta.ini $atk x.escondido $rand(1,$x($atk))
.writeini luta.ini $atk y.escondido $rand(1,$y($atk))
.writeini luta.ini $atk x ?
.writeini luta.ini $atk y ?
msg.all 2 $+ $atk 14se esconde de2 $def $+ .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $readini(luta.ini,$atk,esconder) == on {
.remini luta.ini $atk esconder
.writeini luta.ini $atk x $readini(luta.ini,$atk,x.escondido)
.writeini luta.ini $atk y $readini(luta.ini,$atk,y.escondido)
.remini luta.ini $atk x.escondido
.remini luta.ini $atk y.escondido
.writeini luta.ini $atk escondido 1
msg.all 2 $+ $atk 14sai do seu esconderijo e fica a vista de2 $def $+ .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
on *:CHAT:!Encontrar: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $nick { .msg = $+ $nick 4ERRO : 14 Não está no
seu turno2 ! | halt }
if $raça($atk) != Elfo { .msg = $+ $nick 4ERRO : Apenas Elfos podem
utilizar essa Habilidade2 . | halt }
if $raça($def) == hobbit && $readini(luta.ini,$def,esconder)
!= on { .msg = $+ $nick 4ERRO : Não tem ninguem escondido2 .
| halt }
if $subclasse($def) == Assasino && $readini(luta.ini,$def,silenciox)
!= on && $readini(luta.ini,$def,silencioy) != on { .msg = $+ $nick 4ERRO : 14
Você já está vendo2 $def $+ . | halt }
if $readini(luta.ini,$atk,encontrar) == 1 { .msg = $+ $nick 4ERRO : 14 Você
só pode usar essa habilidade apenas uma vez por Luta2 . | halt }
if $rand(0,$lvl($atk)) < $int($calc($lvl($atk) /2)) {
msg.all 2 $+ $atk 14tenta encontrar2 $def 14mas não consegue2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $raça($def) == hobbit && $readini(luta.ini,$def,esconder)
== on {
.writeini luta.ini $def x $readini(luta.ini,$def,x.escondido)
.writeini luta.ini $def y $readini(luta.ini,$def,y.escondido)
.remini luta.ini x.escondido
.remini luta.ini y.escondido
.remini luta.ini $def esconder
.writeini luta.ini $atk encontrar 1
.writeini luta.ini $def escondido 1
msg.all 2 $+ $atk 14encontrou2 $def 14que estava escondido2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $subclasse($def) == assasino && $readini(luta.ini,$def,silenciox)
== on {
.remini luta.ini $def silenciox
.remini luta.ini $def turn.silencx
msg.all 2 $+ $atk 14usa sua visão élfica e consegue a vistar2
$def $+ .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $subclasse($def) == assasino && $readini(luta.ini,$def,silencioy)
== on {
.remini luta.ini $def silencioy
.remini luta.ini $def turn.silency
msg.all 2 $+ $atk 14usa sua visão élfica e consegue a vistar2
$def $+ .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
on *:CHAT:!Fúria Bárbara: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $atk { .msg = $+ $nick 4ERRO : 14 Não está no seu
turno2 ! | halt }
if $subclasse($atk) != Bárbaro { .msg = $+ $nick 4ERRO : 14 Apenas
Bárbaros podem usar essa Habilidade2 . | halt }
if $readini(luta.ini,$atk,fb) == on { .msg = $+ $nick 4ERRO : Você
já está sob efeito da Fúria Bárbara2 . | halt
}
if $readini(luta.ini,$atk,fb) == 1 { .msg = $+ $nick 4ERRO : 14 Você
está cansado demais para ultilizar essa Habilidade novamente2 . |
halt }
.writeini luta.ini $atk força.ant $readini(luta.ini,$atk,força)
.writeini luta.ini $atk foco.ant $readini(luta.ini,$atk,foco)
.writeini luta.ini $atk destreza.ant $readini(luta.ini,$atk,destreza)
.writeini luta.ini $atk força $calc($readini(luta.ini,$atk,força)
+4)
.writeini luta.ini $atk foco $calc($readini(luta.ini,$atk,foco) +4)
.writeini luta.ini $atk destreza $calc($readini(luta.ini,$atk,destreza) -2)
.writeini luta.ini $atk fb on
msg.all 2 $+ $atk 14usa a 4Fúria Bárbara14 e aumenta seus
pontos em2 : +415/2Força14,2 +415/2Foco14,2 -215/2Des.
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
}
on *:CHAT:!Status: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
.msg = $+ $nick 2S14tatus2 :
if $readini(luta.ini,$atk,silenciox) == on && $readini(luta.ini,$atk,silencioy)
== on { .msg = $+ $nick 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02
$+ $pcthp($atk) $+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 :
$+ ? $+ 15] }
if $readini(luta.ini,$def,silenciox) == on && $readini(luta.ini,$def,silencioy)
== on { .msg = $+ $nick 15-14=1>2 $def $+ : $hp($def) $+ 15(02
$+ $pcthp($def) $+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 :
$+ ? $+ 15] }
if $readini(luta.ini,$atk,silenciox) == on && $readini(luta.ini,$atk,silencioy)
!= on { .msg = $+ $nick 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02
$+ $pcthp($atk) $+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 :
$+ $y($atk) $+ 15] }
if $readini(luta.ini,$def,silenciox) == on && $readini(luta.ini,$def,silencioy)
!= on { .msg = $+ $nick 15-14=1>2 $def $+ : $hp($def) $+ 15(02
$+ $pcthp($def) $+ % $+ 15) $+ 2HP 15[14X2 : $+ ? $+ 15|14Y2 :
$+ $y($def) $+ 15] }
if $readini(luta.ini,$atk,silenciox) != on && $readini(luta.ini,$atk,silencioy)
== on { .msg = $+ $nick 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02
$+ $pcthp($atk) $+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($atk) $+ 15|14Y2 :
$+ ? $+ 15] }
if $readini(luta.ini,$def,silenciox) != on && $readini(luta.ini,$def,silencioy)
== on { .msg = $+ $nick 15-14=1>2 $def $+ : $hp($def) $+ 15(02
$+ $pcthp($def) $+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($def) $+ 15|14Y2 :
$+ ? $+ 15] }
if $readini(luta.ini,$atk,silenciox) != on && $readini(luta.ini,$atk,silencioy)
!= on { .msg = $+ $nick 15-14=1>2 $atk $+ : $hp($atk) $+ 15(02
$+ $pcthp($atk) $+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($atk) $+ 15|14Y2 :
$+ $y($atk) $+ 15] }
if $readini(luta.ini,$def,silenciox) != on && $readini(luta.ini,$def,silencioy)
!= on { .msg = $+ $nick 15-14=1>2 $def $+ : $hp($def) $+ 15(02
$+ $pcthp($def) $+ % $+ 15) $+ 2HP 15[14X2 : $+ $x($def) $+ 15|14Y2 :
$+ $y($def) $+ 15] }
}
on *:CHAT:!Mover*: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $nick { .msg = $+ $nick 4ERRO : 14 Não está no
seu turno2 ! | halt }
if $raça($atk) == Hobbit && $readini(luta.ini,$atk,esconder)
== on { .msg = $+ $nick 4ERRO : 14 Você não pode mover-se por
enquanto está escondido2 . | halt }
if $readini(luta.ini,$atk,perna.esquerda) <= 0 && $readini(luta.ini,$atk,perna.direita)
<= 0 { .msg = $+ $nick 4ERRO : 14 Você está impossibilitado
de utilizar as Pernas2 ! | halt }
if $2 != x && $2 != y && $2 != silencio { .msg = $+ $nick 4ERRO : 14
Só é possível mover-se para 2X 14ou 2Y . | halt }
if $subclasse($atk) == Cavaleiro && $readini(luta.ini,$atk,cavalo) >
0 { goto mov.cavalo }
if $2 == Silencio {
if $4 > $mpt($atk) {
if $mpt($atk) == 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt($atk)
metro 14por turno2 .
halt
}
if $mpt($atk) != 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt($atk)
metros 14por turno2 .
halt
}
}
if $subclasse($atk) != Assasino { .msg = $+ $nick 4ERRO : 14 Apenas Assasinos
tem essa Habilidade2 . | halt }
if $3 != x && $3 != y { .msg = $+ $nick 4ERRO : 14 Só é
possível mover-se para 2X 14ou 2Y . | halt }
if $4 != + && $4 != - { .msg = $+ $nick 4ERRO : 14 Só é
possível mover-se com 2+14 ou 2- . | halt }
if $readini(luta.ini,$atk,ms) == 1 { .msg = $+ $nick 4ERRO : 14 Só
é possível utilizar essa Habilidade uma vez por luta2 . |
halt }
if $5 == 0 { .msg = $+ $nick 4ERRO : 14 O Número tem de ser maior
que 0(zero)2 . | halt }
if $3 == x {
if $4 == + {
.set %x $x($atk)
.set %fimx $calc(%x + $5)
.writeini luta.ini $atk x %fimx
.writeini luta.ini $atk silenciox on
.writeini luta.ini $atk ms 1
msg.all 2 $+ $atk 14mover-se sem que2 $def 14o veja2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $4 == - {
.set %x $x($atk)
.set %fimx $calc(%x - $5)
.writeini luta.ini $atk x %fimx
.writeini luta.ini $atk silenciox on
.writeini luta.ini $atk ms 1
msg.all 2 $+ $atk 14mover-se sem que2 $def 14o veja2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
if $3 == y {
if $4 == + {
.set %y $x($atk)
.set %fimy $calc(%y + $5)
.writeini luta.ini $atk y %fimy
.writeini luta.ini $atk silencioy on
.writeini luta.ini $atk ms 1
msg.all 2 $+ $atk 14mover-se sem que2 $def 14o veja2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $4 == - {
.set %y $x($atk)
.set %fimy $calc(%y - $5)
.writeini luta.ini $atk y %fimy
.writeini luta.ini $atk silencioy on
.writeini luta.ini $atk ms 1
msg.all 2 $+ $atk 14mover-se sem que2 $def 14o veja2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
}
if $2 == x {
if $3 != + && $3 != - { .msg = $+ $nick 4ERRO : 14 Só é
possível mover-se com 2+14 ou 2- . | halt }
if $4 == 0 { .msg = $+ $nick 4ERRO : 14 O Número tem de ser maior
que 0(zero)2 . | halt }
if $4 > $mpt($atk) {
if $mpt($atk) == 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt($atk)
metro 14por turno2 .
halt
}
if $mpt($atk) != 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt($atk)
metros 14por turno2 .
halt
}
}
if $readini(luta.ini,$atk,silenciox) == on { .remini luta.ini $atk silenciox
}
if $3 == + {
if $4 > $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto fim.mov.mais.x }
if $4 > $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 { goto
fim.mov.mais.x }
if $4 <= $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto metade.mov.mais.x }
if $4 <= $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 {
:fim.mov.mais.x
.set %x $x($atk)
.set %fimx $calc(%x + $4)
.writeini luta.ini $atk x %fimx
msg.all 2 $+ $atk 14vai para2 %fimx 14no eixo 2X . 15(02+ $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
if $3 == - {
if $4 > $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto fim.movi.menos.x }
if $4 > $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 { goto
fim.movi.menos.x }
if $4 <= $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto metade.mov.menos.x }
if $4 <= $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 {
:fim.movi.menos.x
.set %x $x($atk)
.set %fimx $calc(%x - $4)
.writeini luta.ini $atk x %fimx
msg.all 2 $+ $atk 14vai para2 %fimx 14no eixo 2X . 15(02- $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
}
if $2 == y {
if $4 > $mpt($atk) {
if $mpt($atk) == 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt($atk)
metro 14por turno2 .
halt
}
if $mpt($atk) != 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt($atk)
metros 14por turno2 .
halt
}
}
if $readini(luta.ini,$atk,silencioy) == on { .remini luta.ini $atk silencioy
}
if $3 == + {
if $4 > $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto fim.mov.mais.y }
if $4 > $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 { goto
fim.mov.mais.y }
if $4 <= $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto metade.mov.mais.y }
if $4 <= $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 {
:fim.mov.mais.y
.set %y $y($atk)
.set %fimy $calc(%y + $4)
.writeini luta.ini $atk y %fimy
msg.all 2 $+ $atk 14vai para2 %fimy 14no eixo 2Y . 15(02+ $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
if $3 == - {
if $4 > $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto fim.mov.menos.y }
if $4 > $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 { goto
fim.mov.menos.y }
if $4 <= $int($calc($mpt($atk) /2)) && $readini(luta.ini,$atk,metade.mov)
== $null { goto metade.mov.menos.y }
if $4 <= $mpt($atk) && $readini(luta.ini,$atk,metade.mov) == 1 {
:fim.mov.menos.y
.set %y $y($atk)
.set %fimy $calc(%y - $4)
.writeini luta.ini $atk y %fimy
msg.all 2 $+ $atk 14vai para2 %fimy 14no eixo 2Y . 15(02- $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
}
:mov.cavalo
if $2 == x {
if $3 != + && $3 != - { .msg = $+ $nick 4ERRO : 14 Só é
possível mover-se com 2+14 ou 2- . | halt }
if $4 == 0 { .msg = $+ $nick 4ERRO : 14 O Número tem de ser maior
que 0(zero)2 . | halt }
if $4 > $mpt.cavalo($atk) {
if $mpt.cavalo($atk) == 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt.cavalo($atk)
metro 14por turno2 .
halt
}
if $mpt.cavalo($atk) != 1 {
.msg = $+ $nick 4ERRO : 14 Você só pode mover-se2 $mpt.cavalo($atk)
metros 14por turno2 .
halt
}
}
if $readini(luta.ini,$atk,silenciox) == on { .remini luta.ini $atk silenciox
}
if $3 == + {
.set %x $x($atk)
.set %fimx $calc(%x + $4)
.writeini luta.ini $atk x %fimx
msg.all 2 $+ $atk 14vai para2 %fimx 14no eixo 2X . 15(02+ $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $3 == - {
.set %x $x($atk)
.set %fimx $calc(%x - $4)
.writeini luta.ini $atk x %fimx
msg.all 2 $+ $atk 14vai para2 %fimx 14no eixo 2X . 15(02- $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
if $2 == y {
if $readini(luta.ini,$atk,silencioy) == on { .remini luta.ini $atk silencioy
}
if $3 == + {
.set %y $y($atk)
.set %fimy $calc(%y + $4)
.writeini luta.ini $atk y %fimy
msg.all 2 $+ $atk 14vai para2 %fimy 14no eixo 2Y . 15(02+ $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $3 == - {
.set %y $y($atk)
.set %fimy $calc(%y - $4)
.writeini luta.ini $atk y %fimy
msg.all 2 $+ $atk 14vai para2 %fimy 14no eixo 2Y . 15(02- $+ $4 $+
15)
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
:metade.mov.mais.x
.set %x $x($atk)
.set %fimx $calc(%x + $4)
.set %mpt.total $mpt($atk)
.writeini luta.ini $atk metade.mov $calc($readini(luta.ini,$atk,metade.mov)
+ 1)
.writeini luta.ini $atk mpt $calc($mpt($atk) - $4)
.writeini luta.ini $atk x %fimx
msg.all 2 $+ $nick 14vai para2 %fimx 14no eixo 2X . 15(02+ $+ $4
$+ 15)
msg.all 2 $+ $nick 14você ainda pode atacar ou mover-se nesse turno2 !
halt
:metade.mov.menos.x
.set %fimx $calc($x($atk) - $4)
.set %mpt.total $mpt($atk)
.writeini luta.ini $atk metade.mov $calc($readini(luta.ini,$atk,metade.mov)
+ 1)
.writeini luta.ini $atk mpt $calc($mpt($atk) - $4)
.writeini luta.ini $atk x %fimx
msg.all 2 $+ $atk 14vai para2 %fimx 14no eixo 2X . 15(02- $+ $4 $+
15)
msg.all 2 $+ $atk 14você ainda pode atacar ou mover-se nesse turno2 !
halt
:metade.mov.mais.y
.set %y $y($atk)
.set %fimy $calc(%y + $4)
.set %mpt.total $mpt($atk)
.writeini luta.ini $atk metade.mov $calc($readini(luta.ini,$atk,metade.mov)
+ 1)
.writeini luta.ini $atk mpt $calc($mpt($atk) - $4)
.writeini luta.ini $atk y %fimy
msg.all 2 $+ $atk 14vai para2 %fimy 14no eixo 2Y . 15(02+ $+ $4 $+
15)
msg.all 2 $+ $atk 14você ainda pode atacar ou mover-se nesse turno2 !
halt
:metade.mov.menos.y
.set %y $y($atk)
.set %fimy $calc(%y - $4)
.set %mpt.total $mpt($atk)
.writeini luta.ini $atk metade.mov $calc($readini(luta.ini,$atk,metade.mov)
+ 1)
.writeini luta.ini $atk mpt $calc($mpt($atk) - $4)
.writeini luta.ini $atk y %fimy
msg.all 2 $+ $atk 14vai para2 %fimy 14no eixo 2Y . 15(02- $+ $4 $+
15)
msg.all 2 $+ $atk 14você ainda pode atacar ou mover-se nesse turno2 !
halt
}
on *:CHAT:!Soco: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $nick { .msg = $+ $nick 4ERRO : 14 Não está no
seu turno2 ! | halt }
if $raça($def) == Hobbit && $readini(luta.ini,$def,esconder)
== on { .msg = $+ $nick 4ERRO : 14 Você não pode atacar2 $def
$+ 14, pois, ele está escondido2 . | halt }
if $raça($atk) == Hobbit && $readini(luta.ini,$atk,esconder)
== on { .msg = $+ $nick 4ERRO : 14 Você não pode atacar por
enquanto está escondido2 . | halt }
if $readini(luta.ini,$atk,braço.esquerdo) <= 0 && $readini(luta.ini,$atk,braço.direito)
<= 0 { .msg = $+ $nick 4ERRO : 14 Você está impossibilitado
de utilizar os Braços2 ! | halt }
if $dist > 0 { .msg = $+ $nick 4ERRO : 14 Você tem de está
a uma distancia corpo a corpo, ou seja, no mesmo ponto do eixo do inimigo2 .
| halt }
if $rand(1,$calc($foco($atk) *2)) < $rand(1,$destreza($def)) {
change.turn
msg.all 2 $+ $def 14errou o Ataque, Ataque2 $atk $+ 2 !
timer.atk
halt
}
.set %dano.soco $dano.soco
if %dano.soco <= 0 { .set %dano 1 }
else { .set %dano %dano.soco }
.writeini luta.ini $def HP $hp.final($def)
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 2 $+ $atk 14deu um soco em2 $def 14e causou2 %dano 14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 2 $+ $atk 14deu um soco em2 $def 14e causou2 %dano 14de dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
}
on *:CHAT:!Chute: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $nick { .msg = $+ $nick 4ERRO : 14 Não está no
seu turno2 ! | halt }
if $raça($def) == Hobbit && $readini(luta.ini,$def,esconder)
== on { .msg = $+ $nick 4ERRO : 14 Você não pode atacar2 $def
$+ 14, pois, ele está escondido2 . | halt }
if $raça($atk) == Hobbit && $readini(luta.ini,$atk,esconder)
== on { .msg = $+ $nick 4ERRO : 14 Você não pode atacar por
enquanto está escondido2 . | halt }
if $readini(luta.ini,$atk,perna.esquerda) <= 0 && $readini(luta.ini,$atk,perna.direita)
<= 0 { .msg = $+ $nick 4ERRO : 14 Você está impossibilitado
de utilizar as Pernas2 ! | halt }
if $dist > 0 { .msg = $+ $nick 4ERRO : 14 Você tem de está
a uma distancia corpo a corpo, ou seja, no mesmo ponto do eixo dele2 . |
halt }
if $rand(1,$calc($foco($atk) *2)) < $rand(1,$destreza($def)) {
change.turn
msg.all 2 $+ $def 14errou o Ataque, Ataque2 $atk $+ 2 !
timer.atk
halt
}
.set %dano.chute $dano.chute
if %dano.chute <= 0 { .set %dano 1 }
else { .set %dano %dano.chute }
.writeini luta.ini $def HP $hp.final($def)
if $readini(luta.ini,$def,hp) <= 0 {
msg.all 2 $+ $atk 14deu um chute em2 $def 14e causou2 %dano 14de dano2 .
msg.death
/.timer $+ $atk off
atualizar $atk $def
halt
}
msg.all 2 $+ $atk 14deu um chute em2 $def 14e causou2 %dano 14de dano2 .
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
}
on *:CHAT:!Item: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $atk != $nick { .msg = $+ $nick 4ERRO : 14 Não está no
seu turno2 ! | halt }
if $item($atk) == nenhum { .msg = $+ $nick 4ERRO : 14 Você não
tem nenhum item2 ! | halt }
if $recupera($item($atk)) == total {
if $efeito($item($atk)) == braços {
.writeini luta.ini $atk braço.esquerdo $calc(($readini(sda.ini,$atk,vigor)
+ $lvl($atk)) * 3)
.writeini luta.ini $atk braço.direito $calc(($readini(sda.ini,$atk,vigor)
+ $lvl($atk)) * 3)
.writeini luta.ini $atk HP $calc(($readini(sda.ini,$atk,vigor) + $lvl($atk))
* 10)
if $raça($atk) == anão {
.writeini luta.ini $atk HP $calc((($readini(sda.ini,$atk,vigor) +5) + $readini(sda.ini,$atk,level))
*10)
.writeini luta.ini $atk braço.esquerdo $int($calc((($readini(sda.ini,$atk,vigor)
+2.5) + $readini(sda.ini,$atk,level)) *3))
.writeini luta.ini $atk braço.direito $int($calc((($readini(sda.ini,$atk,vigor)
+2.5) + $readini(sda.ini,$atk,level)) *3))
}
msg.all 2 $+ $atk 14usa seu item e recupera-se total seus braços e
HP2 !
.writeini sda.ini $atk item Nenhum
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $efeito($item($atk)) == pernas {
.writeini luta.ini $atk perna.esquerda $calc(($readini(sda.ini,$atk,vigor) +
$lvl($atk)) * 3)
.writeini luta.ini $atk perna.direita $calc(($readini(sda.ini,$atk,vigor) +
$lvl($atk)) * 3)
.writeini luta.ini $atk HP $calc(($readini(sda.ini,$atk,vigor) + $lvl($atk))
* 10)
if $raça($atk) == anão {
.writeini luta.ini $atk HP $calc((($readini(sda.ini,$atk,vigor) +5) + $readini(sda.ini,$atk,level))
*10)
.writeini luta.ini $atk perna.esquerda $int($calc((($readini(sda.ini,$atk,vigor)
+2.5) + $readini(sda.ini,$atk,level)) *3))
.writeini luta.ini $atk perna.direita $int($calc((($readini(sda.ini,$atk,vigor)
+2.5) + $readini(sda.ini,$atk,level)) *3))
}
.writeini luta.ini $atk mpt $readini(sda.ini,$atk,mpt)
msg.all 2 $+ $atk 14usa seu Item e recupera-se total suas pernas e HP2 !
.writeini sda.ini $atk item Nenhum
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $efeito($item($atk)) == total {
.writeini luta.ini $atk braço.esquerdo $calc(($readini(sda.ini,$atk,vigor)
+ $lvl($atk)) * 3)
.writeini luta.ini $atk braço.direito $calc(($readini(sda.ini,$atk,vigor)
+ $lvl($atk)) * 3)
.writeini luta.ini $atk perna.esquerda $calc(($readini(sda.ini,$atk,vigor) +
$lvl($atk)) * 3)
.writeini luta.ini $atk perna.direita $calc(($readini(sda.ini,$atk,vigor) +
$lvl($atk)) * 3)
.writeini luta.ini $atk HP $calc(($readini(sda.ini,$atk,vigor) + $lvl($atk))
* 10)
if $raça($atk) == anão {
.writeini luta.ini $atk HP $calc((($readini(sda.ini,$atk,vigor) *2) + $readini(sda.ini,$atk,level))
*10)
.writeini luta.ini $atk braço.esquerdo $int($calc(($readini(sda.ini,$atk,vigor)
+ $readini(sda.ini,$atk,level)) *3.5))
.writeini luta.ini $atk braço.direito $int($calc(($readini(sda.ini,$atk,vigor)
+ $readini(sda.ini,$atk,level)) *3.5))
.writeini luta.ini $atk perna.esquerda $int($calc(($readini(sda.ini,$atk,vigor)
+ $readini(sda.ini,$atk,level)) *3.5))
.writeini luta.ini $atk perna.direita $int($calc(($readini(sda.ini,$atk,vigor)
+ $readini(sda.ini,$atk,level)) *3.5))
}
.writeini luta.ini $atk mpt $readini(sda.ini,$atk,mpt)
msg.all 2 $+ $atk 14usa seu Item e recupera-se total de todos seus membros2 !
.writeini sda.ini $atk item Nenhum
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
if $recupera($item($atk)) != total {
if $efeito($item($atk)) == braços {
.writeini luta.ini $atk braço.esquerdo $int($calc($readini(luta.ini,$atk,braço.esquerdo)
+ $recupera($item($atk))))
.writeini luta.ini $atk braço.direito $int($calc($readini(luta.ini,$atk,braço.direito)
+ $recupera($item($atk))))
.writeini luta.ini $atk HP $calc($readini(luta.ini,$atk,hp) + $recupera($item($atk))))
msg.all 2 $+ $atk 14usa seu Item e recupera 2+ $+ $recupera($item($atk))
14de seus Braços e HP2 !
.writeini sda.ini $atk item Nenhum
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $efeito($item($atk)) == pernas {
.writeini luta.ini $atk perna.esquerda $int($calc(($readini(luta.ini,$atk,perna.esquerda)
+ $recupera($item($atk))) /3))
.writeini luta.ini $atk perna.direita $int($calc(($readini(luta.ini,$atk,perna.direita)
+ $recupera($item($atk))) /3))
.writeini luta.ini $atk HP $calc($readini(luta.ini,$atk,hp) + $recupera($item($atk)))
msg.all 2 $+ $atk 14usa seu Item e recupera 2+ $+ $recupera($item($atk))
14de suas Pernas e HP2 !
.writeini luta.ini $atk mpt $readini(sda.ini,$atk,mpt)
.writeini sda.ini $atk item Nenhum
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
if $efeito($item($atk)) == total {
.writeini luta.ini $atk perna.esquerda $int($calc(($readini(luta.ini,$atk,perna.esquerda)
+ $recupera($item($atk))) /3))
.writeini luta.ini $atk perna.direita $int($calc(($readini(luta.ini,$atk,perna.direita)
+ $recupera($item($atk))) /3))
.writeini luta.ini $atk braço.esquerdo $int($calc(($readini(luta.ini,$atk,braço.esquerdo)
+ $recupera($item($atk))) /3))
.writeini luta.ini $atk braço.direito $int($calc(($readini(luta.ini,$atk,braço.direito)
+ $recupera($item($atk))) /3))
.writeini luta.ini $atk HP $calc($readini(luta.ini,$atk,hp) + $recupera($item($atk)))
.writeini luta.ini $atk mpt $readini(sda.ini,$atk,mpt)
msg.all 2 $+ $atk 14usa seu Item e recupera 2+ $+ $recupera($item($atk))
14de todos seus membros2 !
.writeini sda.ini $atk item Nenhum
status
change.turn
msg.all 2A14taque,2 $atk $+ !
timer.atk
halt
}
}
}
on *:CHAT:!Estado*: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $2 == $null {
.msg = $+ $nick 2S14eu Estado2 :
.msg = $+ $nick 2H14P Total2 : $readini(luta.ini,$nick,hp) $+ 15(02
$+ $pcthp($nick) $+ % $+ 15)
.msg = $+ $nick 2B14raços2 :
if $readini(luta.ini,$nick,braço.esquerdo) > 0 { .msg = $+ $nick 15*2
B14raço Esquerdo2 : $readini(luta.ini,$nick,braço.esquerdo)
2HP }
if $readini(luta.ini,$nick,braço.esquerdo) <= 0 { .msg = $+ $nick
4*5 B4raço Esquerdo4 : 0 5HP }
if $readini(luta.ini,$nick,braço.direito) > 0 { .msg = $+ $nick 15*2
B14raço Direito2 : $readini(luta.ini,$nick,braço.direito)
2HP }
if $readini(luta.ini,$nick,braço.direito) <= 0 { .msg = $+ $nick 4*5
B4raço Direito4 : 0 5HP }
.msg = $+ $nick 2P14ernas2 :
if $readini(luta.ini,$nick,perna.esquerda) > 0 { .msg = $+ $nick 15*2
P14erna Esquerda2 : $readini(luta.ini,$nick,perna.esquerda) 2HP }
if $readini(luta.ini,$nick,perna.esquerda) <= 0 { .msg = $+ $nick 4*5
P4erna Esquerda4 : 0 5HP }
if $readini(luta.ini,$nick,perna.direita) > 0 { .msg = $+ $nick 15*2
P14erna Direita2 : $readini(luta.ini,$nick,perna.direita) 2HP }
if $readini(luta.ini,$nick,perna.direita) <= 0 { .msg = $+ $nick 4*5
P4erna Direita4 : 0 5HP }
.msg = $+ $nick 2A14rmadura2 :
if $readini(luta.ini,$nick,ada.elmo) <= 0 { .msg = $+ $nick 4*5 E4lmo5 : 4
0 5AdA }
else { .msg = $+ $nick 15*2 E14lmo2 : $readini(luta.ini,$nick,ada.elmo)
AdA }
if $readini(luta.ini,$nick,ada.armadura) <= 0 { .msg = $+ $nick 4*5 A4rmadura5 : 4
0 5AdA }
else { .msg = $+ $nick 15*2 A14rmadura2 : $readini(luta.ini,$nick,ada.armadura)AdA
}
if $readini(luta.ini,$nick,ada.escudo) <= 0 { .msg = $+ $nick 4*5 E4scudo5 : 4
0 5AdA }
else { .msg = $+ $nick 15*2 E14scudo2 : $readini(luta.ini,$nick,ada.escudo)
AdA }
if $readini(luta.ini,$nick,ada.escudo) <= 0 { .msg = $+ $nick 4*5 B4otas5 : 4
0 5AdA }
else { .msg = $+ $nick 15*2 B14otas2 : $readini(luta.ini,$nick,ada.bota)
AdA }
if $readini(luta.ini,$nick,cavalo) != $null {
if $readini(luta.ini,$nick,cavalo) <= 0 { .msg = $+ $nick 5C4avalo5 : 4
0 5HP }
if $readini(luta.ini,$nick,cavalo) > 0 { .msg = $+ $nick 2C14avalo2 :
$readini(luta.ini,$nick,cavalo) HP }
}
if $subclasse($nick) == Cavaleiro && $readini(luta.ini,$nick,cavalo)
<= 0 && $readini(luta.ini,$nick,mpt) <= 0 { .msg = $+ $nick 2M14pT2 :
0 }
if $subclasse($nick) == Cavaleiro && $readini(luta.ini,$nick,cavalo)
<= 0 && $readini(luta.ini,$nick,mpt) > 0 { .msg = $+ $nick 2M14pT2 :
$readini(luta.ini,$nick,mpt) }
if $subclasse($nick) == Cavaleiro && $readini(luta.ini,$nick,cavalo)
> 0 && $readini(luta.ini,$nick,mpt) <= 0 { .msg = $+ $nick 2M14pT2 :
$readini(luta.ini,$nick,mpt.cavalo) }
if $subclasse($nick) == Cavaleiro && $readini(luta.ini,$nick,cavalo)
> 0 && $readini(luta.ini,$nick,mpt) > 0 { .msg = $+ $nick 2M14pT2 :
$readini(luta.ini,$nick,mpt.cavalo) }
if $subclasse($nick) != Cavaleiro && $readini(luta.ini,$nick,mpt) >
0 { .msg = $+ $nick 2M14pT2 : $readini(luta.ini,$nick,mpt) }
if $subclasse($nick) != Cavaleiro && $readini(luta.ini,$nick,mpt) <=
0 { .msg = $+ $nick 2M14pT2 : 0 }
}
if $2 != $null {
if $readini(luta.ini,$2,hp) == $null { .msg = $+ $nick 4ERRO : 2 $2 14não
está Lutando2 ! | halt }
.msg = $+ $nick 2E14stado de2 $2 $+ 2 :
.msg = $+ $nick 2H14P Total2 : $readini(luta.ini,$2,hp) $+ 15(02
$+ $pcthp($2) $+ % $+ 15)
.msg = $+ $nick 2B14raços2 :
if $readini(luta.ini,$2,braço.esquerdo) > 0 { .msg = $+ $nick 15*2
B14raço Esquerdo2 : $readini(luta.ini,$2,braço.esquerdo)
2HP }
if $readini(luta.ini,$2,braço.esquerdo) <= 0 { .msg = $+ $nick 15*5
B4raço Esquerdo4 : 0 5HP }
if $readini(luta.ini,$2,braço.direito) > 0 { .msg = $+ $nick 15*2
B14raço Direito2 : $readini(luta.ini,$2,braço.direito)
2HP }
if $readini(luta.ini,$2,braço.direito) <= 0 { .msg = $+ $nick 15*5
B4raço Direito4 : 0 5HP }
.msg = $+ $nick 2P14ernas2 :
if $readini(luta.ini,$2,perna.esquerda) > 0 { .msg = $+ $nick 15*2 P14erna
Esquerda2 : $readini(luta.ini,$2,perna.esquerda) 2HP }
if $readini(luta.ini,$2,perna.esquerda) <= 0 { .msg = $+ $nick 15*5 P4erna
Esquerda4 : 0 5HP }
if $readini(luta.ini,$2,perna.direita) > 0 { .msg = $+ $nick 15*2 P14erna
Direita2 : $readini(luta.ini,$2,perna.direita) 2HP }
if $readini(luta.ini,$2,perna.direita) <= 0 { .msg = $+ $nick 15*5 P4erna
Direita4 : 0 5HP }
if $readini(luta.ini,$2,cavalo) != $null {
if $readini(luta.ini,$2,cavalo) <= 0 { .msg = $+ $nick 2C14avalo2 :
0 HP }
if $readini(luta.ini,$2,cavalo) > 0 { .msg = $+ $nick 2C14avalo2 :
$readini(luta.ini,$2,cavalo) HP }
}
.msg = $+ $nick 2M14pT2 : $readini(luta.ini,$2,mpt)
}
}
on *:CHAT:!Localização*: {
if $readini(luta.ini,vaga,lutador1) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO : Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,vaga,lutador2) == $nick && $readini(luta.ini,geral,luta)
!= ok { .msg = $+ $nick 4ERRO 2 Aguardando Lutador 22 ! | halt }
if $readini(luta.ini,$nick,hp) == $null { .msg = $+ $nick 4ERRO : 14 Você
não está Lutando2 ! | halt }
if $2 == $null {
.msg = $+ $nick 2S14ua Localização2 :
.msg = $+ $nick 15* 2X : $x($nick)
.msg = $+ $nick 15* 2Y : $y($nick)
if $atk == $nick && $readini(luta.ini,$def,silenciox) == on { .msg =
$+ $nick 2D14istancia entre vocês2 : ? | halt }
if $def == $nick && $readini(luta.ini,$atk,silenciox) == on { .msg =
$+ $nick 2D14istancia entre vocês2 : ? | halt }
if $atk == $nick && $readini(luta.ini,$def,silencioy) == on { .msg =
$+ $nick 2D14istancia entre vocês2 : ? | halt }
if $def == $nick && $readini(luta.ini,$atk,silencioy) == on { .msg =
$+ $nick 2D14istancia entre vocês2 : ? | halt }
else { .msg = $+ $nick 2D14istancia entre vocês2 : $dist | halt
}
}
if $2 != $null {
if $readini(luta.ini,$2,hp) == $null { .msg = $+ $nick 4ERRO : 2 $2 14não
está Lutando2 ! | halt }
.msg = $+ $nick 2L14ocalização de2 $2 $+ :
if $readini(luta.ini,$2,silenciox) == on { .msg = $+ $nick 15* 2X : ?
}
if $readini(luta.ini,$2,silenciox) != on { .msg = $+ $nick 15* 2X : $x($2)
}
if $readini(luta.ini,$2,silencioy) == on { .msg = $+ $nick 15* 2Y : ?
}
if $readini(luta.ini,$2,silencioy) != on { .msg = $+ $nick 15* 2Y : $y($2)
}
if $readini(luta.ini,$2,silencioy) == on { .msg = $+ $nick 2D14istancia
entre vocês2 : ? | halt }
if $readini(luta.ini,$2,silenciox) == on { .msg = $+ $nick 2D14istancia
entre vocês2 : ? | halt }
if $readini(luta.ini,$2,silenciox) != on && $readini(luta.ini,$2,silencioy)
!= on { .msg = $+ $nick 2D14istancia entre vocês2 : $dist | halt
}
halt
}
}
on *:CHAT:!Cancelar*: {
if $nick !isop %canal.sda { .msg = $+ $nick 4ERRO : Apenas OP's podem cancelar
lutas2 . | halt }
if $readini(luta.ini,geral,luta) != ok { .msg = $+ $nick 4ERRO : 14 Não
está havendo nenhuma luta2 . | halt }
if $nick isop %canal.sda {
.set %motivo $2-
if %motivo == $null { .msg = $+ $nick 4ERRO : 14 É necessário
um motivo para cancelar a luta2 . | halt }
msg.cancel
halt
}
else { halt }
}
ON *:NICK: {
if $chat($nick) == $nick {
.msg = $+ $nick 2F14echando CHAT em2 3 14segundos2 .
.msg = $+ $nick 2M14otivo2 : Mudança de Nick.
/timerfecharchat 0 3 /close -c $nick
halt
}
}
on *:CHAT:!Cadastrar: {
if $readini(sda.ini,$nick,nick) != $null { .msg = $+ $nick 4ERRO : 14 Você
já está Cadastrado2 ! | halt }
.writeini cadastros.ini status $nick Raça
.msg = $+ $nick 2D14igite a Raça que você deseja ser2 .
.msg = $+ $nick 2R14aças Disponíveis2 :
.msg = $+ $nick 2Hobbit 15-2 Humano 15-2 Elfo 15-2 Orc 15-2
Anão
.msg = $+ $nick 2P14ara ver info das Raças Digite2 :
.msg = $+ $nick 2 ! Info Raça <Raça>14, Ex2. : !Info
Raça Hobbit
halt
}
on *:CHAT:*: {
if $left($1-,1) == ! { halt }
if $left($1-,1) == @ { halt }
if $readini(cadastros.ini,status,$nick) == raça {
if $1 != Hobbit && $1 != Humano && $1 != Elfo && $1
!= Orc && $1 != Anão {
.msg = $+ $nick 4ERRO : 14 Estão disponiveis para cadastro apenas
as seguintes raças2 :
.msg = $+ $nick 2Hobbit 15-2 Humano 15-2 Elfo 15-2 Orc 15-2
Anão
halt
}
if $1 == Hobbit { .writeini sda.ini $nick raça Hobbit }
if $1 == Humano { .writeini sda.ini $nick raça Humano }
if $1 == Elfo { .writeini sda.ini $nick raça Elfo }
if $1 == Orc { .writeini sda.ini $nick raça Orc }
if $1 == Anão { .writeini sda.ini $nick raça Anão }
.writeini cadastros.ini status $nick classe
.msg = $+ $nick 2R14aças Escolhida2 : $readini(sda.ini,$nick,raça)
.msg = $+ $nick 2A14gora Digite a Classe que deseja ser2 .
.msg = $+ $nick 2C14lasses Disponíveis2 :
if $raça($nick) != Elfo { .msg = $+ $nick 2Guerreiro 15-2 Ladino
}
if $raça($nick) == Elfo { .msg = $+ $nick 2Guerreiro }
.msg = $+ $nick 2P14ara ver info das Classe Digite2 :
.msg = $+ $nick 2 ! Info Classe <Classe>14, Ex2. : !Info Classe
Guerreiro
halt
}
if $readini(cadastros.ini,status,$nick) == classe {
if $readini(sda.ini,$nick,raça) == Elfo && $1 == Ladino { .msg
= $+ $nick 4ERRO : 2Elfos14 não podem ser 2Ladinos ! | halt
}
if $1 != Guerreiro && $1 != Ladino {
.msg = $+ $nick 4ERRO : 14 Estão disponiveis para cadastro apenas
as seguintes classe2 :
.msg = $+ $nick 2Guerreiro 15-2 Ladino
halt
}
.writeini cadastros.ini status $nick subclasse
if $1 == Guerreiro { .writeini sda.ini $nick classe Guerreiro }
if $1 == Ladino { .writeini sda.ini $nick classe Ladino }
.msg = $+ $nick 2C14lasse Escolhida2 : $readini(sda.ini,$nick,classe)
.msg = $+ $nick 2A14gora Digite a Subclasse que deseja ser2 .
.msg = $+ $nick 2S14ub-lasses Disponíveis para a Classe2 $readini(sda.ini,$nick,classe)
$+ :
if $readini(sda.ini,$nick,classe) == Guerreiro && $raça($nick)
!= anão { .msg = $+ $nick 2Bárbaro 15-2 Arqueiro 15-2
Cavaleiro 15-2 Guardião }
if $readini(sda.ini,$nick,classe) == Guerreiro && $raça($nick)
== anão { .msg = $+ $nick 2Bárbaro 15-2 Arqueiro 15-2
Guardião }
if $readini(sda.ini,$nick,classe) == Ladino { .msg = $+ $nick 2Assasino 15-2
Bardo }
.msg = $+ $nick 2P14ara ver info das Subclasse Digite2 :
if $readini(sda.ini,$nick,classe) == Guerreiro { .msg = $+ $nick 2 ! Info
Sub-classe <Sub-Classe>14, Ex2. : !Info Sub-classe Bárbaro
}
if $readini(sda.ini,$nick,classe) == Ladino { .msg = $+ $nick 2 ! Info Sub-classe
<Sub-Classe>14, Ex2. : !Info Sub-classe Bardo }
halt
}
if $readini(cadastros.ini,status,$nick) == subclasse {
if $readini(sda.ini,$nick,classe) == Guerreiro {
if $1 != Bárbaro && $1 != Arqueiro && $1 != Guardião
&& $1 != Cavaleiro {
.msg = $+ $nick 4ERRO : 14 Estão disponiveis para cadastro de 2Guerreiros
14apenas as seguintes Subclasses2 :
.msg = $+ $nick 2Bárbaro 15-2 Arqueiro 15-2 Cavaleiro 15-2
Guardião
halt
}
if $raça($nick) == anão && $1 == cavaleiro { .msg = $+
$nick 4ERRO:14 Anões não podem ser cavaleiros2 . | halt
}
.writeini cadastros.ini status $nick senha
if $1 == Bárbaro { .writeini sda.ini $nick subclasse Bárbaro }
if $1 == Arqueiro { .writeini sda.ini $nick subclasse Arqueiro }
if $1 == Guardião { .writeini sda.ini $nick subclasse Guardião
}
if $1 == Cavaleiro { .writeini sda.ini $nick subclasse Cavaleiro }
.msg = $+ $nick 2S14ub-Classe Escolhida2 : $readini(sda.ini,$nick,subclasse)
.msg = $+ $nick 2A14gora para finalizar digite sua Senha2 .
halt
}
if $readini(sda.ini,$nick,classe) == Ladino {
if $1 != Assasino && $1 != Bardo {
.msg = $+ $nick 4ERRO : 14 Estão disponiveis para cadastro de 2Ladinos
14apenas as seguintes Subclasse2 :
.msg = $+ $nick 2Assasino 15-2 Bardo
halt
}
.writeini cadastros.ini status $nick senha
if $1 == Assasino { .writeini sda.ini $nick subclasse Assasino }
if $1 == Bardo { .writeini sda.ini $nick subclasse Bardo }
.msg = $+ $nick 2S14ub-Classe Escolhida2 : $readini(sda.ini,$nick,subclasse)
.msg = $+ $nick 2A14gora para finalizar digite sua Senha2 .
halt
}
}
if $readini(cadastros.ini,status,$nick) == senha {
.msg = $+ $nick 2A14justando ficha à sua Raça2 .
.remini cadastros.ini status $nick
.writeini senhas.ini $nick $+ 1 senha $1
.writeini senhas.ini $nick $+ 1 ident ok
.writeini sda.ini $nick nick $nick
.writeini sda.ini $nick level 1
.writeini sda.ini $nick exp 0
.writeini sda.ini $nick proxnivel 20
.writeini sda.ini $nick ganhou 0
.writeini sda.ini $nick perdeu 0
.writeini sda.ini $nick cabeça Nada
.writeini sda.ini $nick peito Nada
.writeini sda.ini $nick braço.esquerdo Nada
.writeini sda.ini $nick pernas Nada
.writeini sda.ini $nick força 0
.writeini sda.ini $nick destreza 0
.writeini sda.ini $nick foco 0
.writeini sda.ini $nick vigor 0
.writeini sda.ini $nick pontos 30
.writeini sda.ini $nick mpt 10
.writeini sda.ini $nick ouro 30
.writeini sda.ini $nick item Poção T. Pequena
.writeini sda.ini $nick ctime $ctime
.set %fimtotal $calc($readini(cadastros.ini,cadastros,total) + 1)
.writeini cadastros.ini cadastros total %fimtotal
if $readini(sda.ini,$nick,raça) == Hobbit {
.set %fimcadastros $calc($readini(cadastros.ini,raças,hobbits) + 1)
.writeini cadastros.ini raças hobbits %fimcadastros
.writeini sda.ini $nick mpt 10
.writeini sda.ini $nick destreza 2
}
if $readini(sda.ini,$nick,raça) == Humano {
.set %fimcadastros $calc($readini(cadastros.ini,raças,humanos) + 1)
.writeini cadastros.ini raças humanos %fimcadastros
.writeini sda.ini $nick mpt 10
.writeini sda.ini $nick foco 2
}
if $readini(sda.ini,$nick,raça) == Elfo {
.set %fimcadastros $calc($readini(cadastros.ini,raças,elfos) + 1)
.writeini cadastros.ini raças elfos %fimcadastros
.writeini sda.ini $nick mpt 10
.writeini sda.ini $nick destreza 2
}
if $readini(sda.ini,$nick,raça) == Anão {
.set %fimcadastros $calc($readini(cadastros.ini,raças,anões) +
1)
.writeini cadastros.ini raças anões %fimcadastros
.writeini sda.ini $nick mpt 8
.writeini sda.ini $nick vigor 2
}
if $readini(sda.ini,$nick,raça) == Orc {
.set %fimcadastros $calc($readini(cadastros.ini,raças,orcs) + 1)
.writeini cadastros.ini raças orcs %fimcadastros
.writeini sda.ini $nick mpt 10
.writeini sda.ini $nick força 2
}
if $readini(sda.ini,$nick,classe) == Guerreiro {
.set %fimcadastros $calc($readini(cadastros.ini,classe,guerreiros) + 1)
.writeini cadastros.ini classe guerreiros %fimcadastros
if $readini(sda.ini,$nick,subclasse) == Bárbaro {
.set %fimcadastros $calc($readini(cadastros.ini,subclasse,bárbaros) +
1)
.writeini cadastros.ini subclasse bárbaros %fimcadastros
.writeini sda.ini $nick braço.direito Machadinha
}
if $readini(sda.ini,$nick,subclasse) == Arqueiro {
.set %fimcadastros $calc($readini(cadastros.ini,subclasse,arqueiros) + 1)
.writeini cadastros.ini subclasse arqueiros %fimcadastros
.writeini sda.ini $nick braço.direito Arco Curto
.writeini sda.ini $nick braço.esquerdo Arco Curto
}
if $readini(sda.ini,$nick,subclasse) == Cavaleiro {
.set %fimcadastros $calc($readini(cadastros.ini,subclasse,cavaleiros) + 1)
.writeini cadastros.ini subclasse Cavaleiros %fimcadastros
.writeini sda.ini $nick braço.direito Mangual Curto
.writeini sda.ini $nick mpt 10
.writeini sda.ini $nick Cavalo Cavalo Comum
}
if $readini(sda.ini,$nick,subclasse) == Guardião {
.set %fimcadastros $calc($readini(cadastros.ini,subclasse,guardiões)
+ 1)
.writeini cadastros.ini subclasse Guardiões %fimcadastros
.writeini sda.ini $nick braço.direito Espada Curta
}
}
if $readini(sda.ini,$nick,classe) == Ladino {
.set %fimcadastros $calc($readini(cadastros.ini,classe,ladinos) + 1)
.writeini cadastros.ini classe ladinos %fimcadastros
if $readini(sda.ini,$nick,subclasse) == Assasino {
.set %fimcadastros $calc($readini(cadastros.ini,subclasse,assasinos) + 1)
.writeini cadastros.ini subclasse assasinos %fimcadastros
.writeini sda.ini $nick braço.direito Maça Estrela
}
if $readini(sda.ini,$nick,subclasse) == Bardo {
.set %fimcadastros $calc($readini(cadastros.ini,subclasse,bardos) + 1)
.writeini cadastros.ini subclasse bardos %fimcadastros
.writeini sda.ini $nick braço.direito Besta de Mão
.writeini sda.ini $nick braço.esquerdo Besta de Mão
}
}
if $raça($nick) == Hobbit { .msg = $+ $nick 2A14lterações
feita2 : | .msg = $+ $nick 2C14olocado 2+214 pontos em 2Destreza .
}
if $raça($nick) == Elfo { .msg = $+ $nick 2A14lterações
feita2 : | .msg = $+ $nick 2C14olocado 2+214 pontos em 2Destreza .
}
if $raça($nick) == Anão { .msg = $+ $nick 2A14lterações
feita2 : | .msg = $+ $nick 2C14olocado 2+214 pontos em 2Vigor .
}
if $raça($nick) == Humano { .msg = $+ $nick 2A14lterações
feita2 : | .msg = $+ $nick 2C14olocado 2+214 pontos em 2Foco .
}
if $raça($nick) == Orc { .msg = $+ $nick 2A14lterações
feita2 : | .msg = $+ $nick 2C14olocado 2+214 pontos em 2Força .
}
.msg = $+ $nick 1---
.msg = $+ $nick 2S14enha Cadastrada2 : $readini(senhas.ini,$nick $+
1,senha)
.msg = $+ $nick 2C14adastro Efetuado com Sucesso2 !
.msg = $+ $nick 2V14ocê tem02 30 14para distribuir nos seguintes
Atributos2 :
.msg = $+ $nick 2Força 15-2 Destreza 15-2 Foco 15-2 Vigor
.msg = $+ $nick 2P14ara Distribuir os Pontos Digite2 :
.msg = $+ $nick 2 ! Distribuir <Atributo> <Pontos>14, Ex2. :
! Distribuir Força 10
halt
}
if $readini(sda.ini,$nick,nick) != $null {
.set %total $chat(0)
.set %x 1
while %x <= %total {
.set %nick $chat(%x)
if $nick isop %canal.sda { .set %opv @ }
if $nick isvoice %canal.sda { .set %opv + }
if $nick !isop %canal.sda && $nick !isvoice %canal.sda { .unset %opv
}
if $nick != %nick && $readini(sda.ini,%nick,nick) != $null {
if %opv == $null { .msg = $+ %nick 15(02 $+ $nick $+ 15)14 $1- }
else { .msg = $+ %nick 15(02 $+ %opv $+ $nick $+ 15)14 $1- }
}
inc %x
}
}
}