Skip to content

Commit

Permalink
Commit inicial
Browse files Browse the repository at this point in the history 
Signed-off-by: André Luiz <[email protected]>
  • Loading branch information
@dvl
dvl committed Jun 27, 2012
0 parents commit ebaf09f
Show file tree
Hide file tree
Showing 136 changed files with 27,640 additions and 0 deletions.
6 changes: 6 additions & 0 deletions .gitignore
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
logs/*
users/*
users2/*
sys/*.txt
*.log
*.db
411 changes: 411 additions & 0 deletions CdzForever/!ElevarAura.mrc

Large diffs are not rendered by default.

116 changes: 116 additions & 0 deletions CdzForever/!invocar.mrc
Original file line number Diff line number Diff line change
@@ -0,0 +1,116 @@
on *:text:!Invocar Armadura:#: {
if ($chan isin %chanscdz) {
if ($readini users/ $+ $nick $+ .ini $Nick Nick == $null) { .notice $nick 1,1 14,14 4,1 Você não está0 cadastrado! 14,14 1,1  | Halt }
.set %arminvoc $readini users/ $+ $nick $+ .ini $Nick Armadura
.set %armadinv $readini users/ $+ $nick $+ .ini $Nick Arm.On
if (%arminvoc == Nenhuma) { .notice $nick 1,1 14,14 9,1 $nick $+ 15, você não tem Armadura! 14,14 1,1  | .unset %arminvoc | Halt }
if (%armadinv == Sim) { .notice $nick 1,1 14,14 9,1 $nick $+ 15, Você já está usando Armadura! 14,14 1,1  | .unset %armadinv | Halt }
.set %armlife $readini users/ $+ $nick $+ .ini $Nick Hp.Arm
if (%armlife <= 0) { .notice $nick 1,1 14,14 9,1 $nick $+ 15, sua armadura está 4DESTRUÍDA15! 14,14 1,1  | .unset %armlife | Halt }
if ($user.treino.active) { .notice $nick 1,1 14,14 9,1 $nick $+ 15, você 4não15 pode Invocar armadura enquanto está treinando! 14,14 1,1  | Halt }
if ( %#cdzbattleLut1 == $nick ) || ( %#cdzbattleLut2 == $nick ) || ( %#cdzbattle2Lut1 == $nick ) || ( %#cdzbattle2Lut2 == $nick ) || ( %#cdzbattle3Lut1 == $nick ) || ( %#cdzbattle3Lut2 == $nick ) || ( %#cdzbattle4Lut1 == $nick ) || ( %#cdzbattle4Lut2 == $nick ) || ( %#cdzbattle1Lut1 == $nick ) || ( %#cdzbattle1Lut2 == $nick ) || ( %#cdzbattle5Lut1 == $nick ) || ( %#cdzbattle5Lut2 == $nick ) {
.notice $nick 1,1|14,14|15,1 Você acha que é malandro de onde?0 Espere confirmarem a atualização, pra você invocar a armadura. 14,14 1,1  | Halt }
if ( %narrador == $nick ) || ( %lutador1 == $nick ) || ( %lutador3 == $nick ) || ( %lutador2 == $nick ) {
.notice $nick 1,1|14,14|15,1 Você acha que é malandro de onde?0 Espere confirmarem a atualização, pra você invocar a armadura. 14,14 1,1  | Halt }
.set %arinv $readini users/ $+ $nick $+ .ini $Nick Armadura
.set %armain $remove(%arinv,$chr(32))
.set %armclas $readini armaduras.ini %armain Classe
$+(.timer.armadura.,$nick,.invocada) 1 $calc(2 * 60) noop
if (%armclas == d) { .set %cporcinv 0.01 }
if (%armclas == c) { .set %cporcinv 0.05 }
if (%armclas == b) { .set %cporcinv 0.1 }
if (%armclas == a) { .set %cporcinv 0.2 }
if (%armclas == s) { .set %cporcinv 0.5 }
.set %cosinvarm $readini users/ $+ $nick $+ .ini $nick Cosmo
.set %csinfarma $calc((%cosinvarm * %cporcinv))
.set %cosinvfin $round(%csinfarma,0)
.writeini users/ $+ $nick $+ .ini $nick Cosarm %cosinvfin
.set %cosarminv $readini users/ $+ $nick $+ .ini $nick Cosarm
.set %pizzainvf $calc(%cosinvarm + %cosarminv)
.msg $chan 1,1 14,14 9,1 $nick $+ ,15 vestiu a Armadura de0 %arinv 14/15 Seu Cosmo com a armadura invocada é de7  $+ $replace($bytes(%pizzainvf,b),$chr(44),.) $+  14,14 1,1 
.writeini users/ $+ $nick $+ .ini $Nick Arm.On Sim
.writeini users/ $+ $nick $+ .ini $Nick Cosmo2 %cosinvarm
.writeini users/ $+ $nick $+ .ini $Nick Cosmo %pizzainvf
.unset %csinfarma
.unset %arminvoc
.unset %armadinv
.unset %armlife
.unset %arinv
.unset %armain
.unset %armclas
.unset %cosinvarm
.unset %cosinvfin
.unset %cosarminv
.unset %pizzainvf
}
}

on *:text:!Retirar Armadura:#: {
if ($chan isin %chanscdz) {
if ($readini users/ $+ $nick $+ .ini $Nick Nick == $null) { .notice $nick 1,1 14,14 4,1 Você não está0 Cadastrado! 14,14 1,1  | Halt }
.set %armretir $readini users/ $+ $nick $+ .ini $Nick Armadura
if (%armretir == Nenhuma) { .notice $nick 1,1 14,14 9,1 $nick $+ 15, você não tem Armadura! 14,14 1,1  | .unset %armretir | Halt }
if ($readini users/ $+ $nick $+ .ini $Nick Arm.On == Nao) { .notice $nick 1,1 14,14 9,1 $nick $+ 15, você não está usando Armadura! 14,14 1,1  | Halt }
if ( %#cdzbattleLut1 == $nick ) || ( %#cdzbattleLut2 == $nick ) || ( %#cdzbattle2Lut1 == $nick ) || ( %#cdzbattle2Lut2 == $nick ) && ( %#cdzbattle3Lut1 == $nick ) || ( %#cdzbattle3Lut2 == $nick ) || ( %#cdzbattle4Lut1 == $nick ) || ( %#cdzbattle4Lut2 == $nick ) && ( %#cdzbattle1Lut1 == $nick ) || ( %#cdzbattle1Lut2 == $nick ) || ( %#cdzbattle5Lut1 == $nick ) || ( %#cdzbattle5Lut2 == $nick ) {
.notice $nick 1,1 14,14 15,1 Você acha que é malandro de onde?0 Espere confirmarem a atualização, pra você retirar a armadura. 14,14 1,1  | Halt }
if ( %narrador == $nick ) || ( %lutador1 == $nick ) || ( %lutador3 == $nick ) || ( %lutador2 == $nick ) {
.notice $nick 1,1 14,14 15,1 Você acha que é malandro de onde?0 Espere confirmarem a atualização, pra você retirar a armadura. 14,14 1,1  | Halt }
if ($timer($+(.armadura.,$nick,.invocada))) {
.noticen Você só pode retirar armadura após passar 082 minutos15 da invocação.
halt
}
else {
.set %armret $readini users/ $+ $nick $+ .ini $nick Armadura
.set %armart $remove(%armret,$chr(32))
.set %retcls $readini armaduras.ini %golpeif Classe
.set %retcos $readini users/ $+ $nick $+ .ini $nick Cosmo
.set %rcosarm $readini users/ $+ $nick $+ .ini $nick Cosarm
.set %pizzaretf $calc(%retcos - %rcosarm)
.msg $chan 1,1 14,14 9,1 $nick $+ ,15 retirou a Armadura de0 %armret 14/15 Seu Cosmo com a armadura retirada é de7  $+ $replace($bytes(%pizzaretf,b),$chr(44),.) $+  14,14 1,1 
.writeini users/ $+ $nick $+ .ini $Nick Arm.On Nao
.writeini users/ $+ $nick $+ .ini $Nick Cosmo %pizzaretf
}
.unset %armret
.unset %armart
.unset %retcls
.unset %retcos
.unset %rcosarm
.unset %pizzaretf
.unset %armretir
}
}

on *:text:!Life Armadura:#: {
if ($chan isin %chanscdz) {
if ($readini users/ $+ $nick $+ .ini $Nick Nick == $null) { .notice $nick 1,1 14,14 4,1 Você não está0 Cadastrado! 14,14 1,1  | Halt }
.set %arlifem $readini users/ $+ $nick $+ .ini $Nick Armadura
if (%arlifem == Nenhuma) { .notice $nick 1,1 14,14 9,1 $nick $+ 15, você não tem Armadura! 14,14 1,1  | .unset %arlifem | Halt }
.set %hparm $readini users/ $+ $nick $+ .ini $Nick Hp.Arm
.set %hprec $readini users/ $+ $nick $+ .ini $Nick Hp.Rec
if (%hparm < 0) { .set %hparm2 0 }
if (%hparm >= 0) { .set %hparm2 %hparm }
.msg $chan 1,1 14,14 0,1 $nick $+ , 15o life da sua Armadura é de9 %hparm2 15/7 %hprec 14,14 1,1 
.unset %hparm2
.unset %hparm
.unset %hprec
.unset %arlifem
}
}

on *:text:@Life Armadura*:#: {
if ($chan isin %chanscdz) {
if ($readini users/ $+ $nick $+ .ini $Nick Nick == $null) { .notice $nick 1,1 14,14 4,1 Você não está0 cadastrado! 14,14 1,1  | Halt }
if ($readini users/ $+ $3 $+ .ini $3 Nick == $null) { .notice $nick 1,1 14,14 4,1 $3 0não está cadastrado! 14,14 1,1  | Halt }
.set %armlifeout $readini users/ $+ $3 $+ .ini $3 Armadura
if (%armlifeout == Nenhuma) { .notice $nick 1,1 14,14 9,1 $3 $+ 15 não tem Armadura! 14,14 1,1  | .unset %armlifeout | Halt }
.set %hparm3 $readini users/ $+ $3 $+ .ini $3 Hp.Arm
.set %hprec3 $readini users/ $+ $3 $+ .ini $3 Hp.Rec
if (%hparm3 < 0) { .set %hparm4 0 }
if (%hparm3 >= 0) { .set %hparm4 %hparm3 }
.msg $chan 1,1 14,14 0,1 $nick $+ , 15o life da Armadura do14(15a14) 11 $+ $3 $+ 15 é de9 %hparm4 15/7 %hprec3 14,14 1,1 
.unset %armlifeout
.unset %hparm3
.unset %hprec3
.unset %hparm4
}
}
41 changes: 41 additions & 0 deletions CdzForever/!livres.mrc
Original file line number Diff line number Diff line change
@@ -0,0 +1,41 @@
on *:chat:*: {
if $strip($1) = !livres {
id.check =
if $istok(S A B C D,$strip($2),32) {
var %x = 1,%arm,%mundo,%a,%l,%t = 0
if $hget(arms) { hfree arms }
while %x <= $ini(armaduras.ini,0) {
%arm = $ini(armaduras.ini,%x)
if ($readini(armaduras.ini,%arm,nick) == nenhum) && ($readini(armaduras.ini,%arm,classe) == $strip($2)) {
%mundo = $readini(armaduras.ini,%arm,mundo)
hadd -m arms %mundo $addtok($hget(arms,%mundo),%arm,44)
}
inc %x
}

msgtopo | msgt 0Lista das Armaduras Livres | msgt 14-08 Classe $upper($strip($2)) 14-
var %x = 1
while %x <= 6 {
%a = $hget(arms,$replace(%x,1,Sekai,2,Kaikai,3,Meikai,4,Makai,5,Tenkai,6,Olimpo))
if %a {
inc %t
msgdiv | msgt 9 $+ $replace(%x,1,S  E  K  A  I,2,K  A  I  K  A  I,3,M  E  I  K  A  I,4,M A K A I,5,T  E  N  K  A  I,6,O  L  I  M  P  O) | msgt 14¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
while %a { %l = $spc($readini(armaduras.ini,$gettok(%a,1,44),arm),22) $+ $iif($readini(armaduras.ini,$gettok(%a,1,44),liberada) == sim,00,11) $+ $readini(armaduras.ini,$gettok(%a,1,44),arm)     $iif($readini(armaduras.ini,$gettok(%a,2,44),liberada) == sim,00,11) $+ $readini(armaduras.ini,$gettok(%a,2,44),arm) | msgl 0  %l | %a = $deltok(%a,1-2,44) }
}
inc %x
}
if !%t { msgdiv | msgt 9Nenhuma 15Armadura está livre para a 0Classe 15selecionada }
else {
msgdiv | msgt 0,11 11,1 Bloqueada     0Liberada 0,0 0,1  | msgdiv
msgt Para ver 0informações 15sobre alguma dessas armaduras
msgt Digite 9!Info 14<0Armadura14>
msgt Ex: 11!Info Pégaso
}
msgbase
}
else {
msgtopo | msgt 4Erro | msgt As 0Classes 15disponíveis são: 9S15, 9A15, 9B15, 9C 15e 9D
msgt Sintaxe: 11!Livres 14<0Classe14> /15 Exemplo: 11!Livres 0S | msgbase
}
}
}
Loading

0 comments on commit ebaf09f

Please sign in to comment.