Applets para bots em mIRC

  .=----------------------------------------------------------=.
 ##=--  Addtriggers Adicione suas triggers. -> !addtrigger --=##
 ##=--  by RenaTo  Removas suas triggers. -> !remtriggers --=##
 ##=--  2006        Lista atual das triggers adicionadas.  --=##
 ##=--                                                      --=##
 ##=--      Todos seus direitos reservados não ZIP.        --=##
  =----------------------------------------------------------=
  .=----------------------------------------------------------------------------=.
 ##=--  Exemplo:                                                              --=##
 ##=--  |- !addtrigger !trigger descrição da trigger -> Adiciona uma trigger --=##
 ##=--  |- !remtrigger !trigger -> Remove a trigger selecionada              --=##
 ##=--  |- !listtrigger -> Lista atual das triggers adicionadas              --=##
  =----------------------------------------------------------------------------=

on *:text:!*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if (($1 == !addtrigger) && ($left($2,1) == !) && ($3 !== $null)) {
      if (!$read(triggerlist.txt,w,$2)) {
        write triggerlist.txt $2
        write $2 $+ .mrc on *:text:*:#: $chr(123) 
        write $2 $+ .mrc if $+($chr(40),$chr(36),1) == $+($2,$chr(41)) $chr(123)
        write $2 $+ .mrc if $+($chr(40)) $+ $+($chr(40),$chr(36),nick) isop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) ishop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) isvoice $+($chr(36),chan,$chr(41)) $+ $+($chr(41)) && $+($chr(40),$chr(36),2) == $+($chr(36),null,$chr(41)) $chr(123) msg $+($chr(36),chan) $3- $chr(125)
        write $2 $+ .mrc if $+($chr(40)) $+ $+($chr(40),$chr(36),nick) isop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) ishop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) isvoice $+($chr(36),chan,$chr(41)) $+ $+($chr(41)) && $+($chr(40),$chr(36),2) ison $+($chr(36),chan,$chr(41)) $chr(123) notice $+($chr(36),2) $3- $chr(125)
        write $2 $+ .mrc if $+($chr(40)) $+ $+($chr(40),$chr(36),nick) isop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) ishop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) isvoice $+($chr(36),chan,$chr(41)) $+ $+($chr(41)) && $+($chr(40),$chr(36),2) !ison $+($chr(36),chan,$chr(41)) $chr(123) halt $chr(125)
        write $2 $+ .mrc if $+($chr(40)) $+ $+($chr(40),$chr(36),nick) !isop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) !ishop $+($chr(36),chan,$chr(41)) || $+($chr(40),$chr(36),nick) !isvoice $+($chr(36),chan,$chr(41)) $+ $+($chr(41)) && $+($chr(40),$chr(36),2) == $+($chr(36),null,$chr(41)) $chr(123) notice $+($chr(36),nick) $3- $chr(125)
        write $2 $+ .mrc $chr(125)
        write $2 $+ .mrc $chr(125)
        load -rs $2 $+ .mrc
        describe $chan Script concluido!
      }
      else { describe $chan Trigger não concluido. }
    }
    if ($1 == !addtrigger) && (($left($2,1) == !) || ($3 == $null)) { describe $chan $nick $+ : digite -> !addhelp }
    elseif ($1 == !remtrigger) {
      remove $2 $+ .mrc | unload -rs $2 $+ .mrc
      var %i = 1
      while (%i <= $lines(triggerlist.txt)) {
        if ($read(triggerlist.txt,%i) == $2) { write -dl $+ %i triggerlist.txt | describe $chan File removido com sucesso | halt }
        inc %i
      }
    }
  }
  if ($1 == !listtrigger) {
    var %triggers, %i = 1
    while (%i <= $lines(triggerlist.txt)) {
      var %triggers = %triggers $read(triggerlist.txt,%i)
      inc %i
    }
    describe $chan Lista atual -> %triggers
  }
  if ($1 == !addhelp) { notice $nick Para adicionar uma triggers corretamente digite da seguinte maneira -> !addtrigger !suatrigger descrição da trigger
  }
    .=----------------=.
  ##=--    EOF    --=##
    =----------------=

  .=----------------------------------------------------=.
  #=--      Sorte    Divirta-se com um jogo de mirc. --=#
 ##=--    By RenaTo  Insira o mesmo em um bot.      --=##
 ##=--      2006      Exemplo: digite !sorte 50 ...  --=##
 ##=--                                                --=##
  #=--    Todos seus direitos reservados não ZIP.    --=#
  =----------------------------------------------------=
on *:LOAD: {
  echo -a 14-
  echo -a 14 Jogo Da Sorte Carregado com sucesso
  echo -a 14..:> Produzido por RenaTo B. <':....
  echo -a 14-
  set %ligar off
  set %sortevezes 0
  set %sorteganhador n/a
}
on *:UNLOAD: {
  unset %ligar
  unset %sorte*
  unset %tentativa
  unset %1-sorte
  unset %2-sorte
  unset %numsorte
  echo -a 14-
  echo -a 14Jogo Da Sorte Descarregado com sucesso
  echo -a 14-
}
  .=----------------------------------------------------------------------------=.
 ##=--  (Systema) É aqui que o jogo é processado e interpretado NÃO ALTERE  --=##
  =----------------------------------------------------------------------------=
on *:TEXT:*:#:{
  if (!ligar == $strip($1)) {
    if (%ligar == on) { msg $chan $nick 10 O jogo já foi iniciado... }
    if (%ligar == off) || (%ligar == $null) {
      msg $chan 3 Jogo da sorte iniciado por: 4 $nick $+ .3 Para jogar digite, por exemplo: 12 !sorte 20
      iniciarsorte
    }
  }
  if (!sorte == $strip($1)) && ((%ligar == off) || (%ligar == $null)) { describe $chan 3Digite 4!ligar3 para iniciar o jogo! }
  if ((!sorte == $strip($1)) && (%ligar == on)) {
    if ($2 isnum) {
      if ($2 >= 0) && ($2 <= 99) {
        if (%s [ $+ [ $fulladdress ] ] == on) { notice $nick Apenas uma tentativa a cada 30 segundos. Não cause Flood, você pode ser banido! }
        if (%s [ $+ [ $fulladdress ] ] == $null) {
          if (%sorte- [ $+ [ $nick ] ] == $null) { set %sorte- [ $+ [ $nick ] ] 0 }
          if ($2 > %numsorte) {
            set -u30 %s $+ $fulladdress on
            inc %tentativa | msg $chan 12«4 $2 12» 14 é muito alto... (Último acertador: %sorteganhador $+ . esta é a %tentativa $+ ° tentativa. Jogo Nº %sortevezes $+ .)
            if (%2-sorte == $null) { set %2-sorte $2 }
            if (%2-sorte !== $null) && (%2-sorte > $2) { set %2-sorte $2 }
          }
          if ($2 < %numsorte) {
            set -u30 %s $+ $fulladdress on
            inc %tentativa | msg $chan 12«4 $2 12» 14 é muito baixo... (Último acertador: %sorteganhador $+ . esta é a %tentativa $+ ° tentativa. Jogo Nº %sortevezes $+ .)
            if (%1-sorte == $null) { set %1-sorte $2 }
            if (%1-sorte !== $null) && (%1-sorte < $2) { set %1-sorte $2 }
          }
          if ($2 == %numsorte) {
            var %n = $rand(1,5)
            inc %sorte- $+ $nick %n
            desligarsorte
            msg $chan 7Wowowowow 4 $nick $+ 7 Você acertou!!! 12 Você vai receber um 4 % 12 acompanhado de um drink!!3 + $+ %n ponto(s) para você! | mode $chan +h $nick | set %sorteganhador $nick | goto $r(1,5)
            halt
            :1
            msg $chan $nick ganha uma latinha de Budweiser bem geladinha... HuMh...
            halt
            :2
            msg $chan $nick ganha um copo cheinho de BatGut! AeAe...
            halt
            :3
            msg $chan $nick ganha uma garrafa grande de Jack Daniels! MmMm...
            halt
            :4
            msg $chan $nick ganha uma garrafa de Johnny Walker! MmMm...
            halt
            :5
            msg $chan $nick ganha uma grande garrafa de Old Eight! MuMm...
            halt
          }
          var %1 = %numsorte + 1 | var %2 = %numsorte - 1
          if (%1 == %2-sorte) && (%2 == %1-sorte) {
            if (%sortepato == $null) {
              msg $chan 12»04 $+ %numsorte $+ 12« 3--14 QUACK - PATO - QUACK3 -- 12»04 $+ %numsorte $+ 12« 3--14 QUACK - PATO - QUACK3 -- 12»04 $+ %numsorte $+ 12« | set %sortepato on
            }
          }
        }
      }
      elseif ($2 !== $null) || { msg $chan $nick Utilize um número entre12 0 e12 99 após o comando 4!sorte12. Ex.: 4!sorte 90 }
    }
    if ($2 !isnum) && ($2 !== $null) { msg $chan $nick Utilize um número entre12 0 e12 99 após o comando 4!sorte12. Ex.: 4!sorte $r(0,99) }
    if ($2 == $null) { msg $chan $nick Utilize um número entre12 0 e12 99 após o comando 4!sorte12. Ex.: 4!sorte $r(0,99) }
  }
  if (!rsorte == $strip($1)) {
    if (%ligar == on) {
      if (%1-sorte == $null) && (%2-sorte !== $null) { msg $chan 14O número da sorte está entre 12»»4 $+ 0 $+ 12««14 &12 »»4 $+ %2-sorte $+ 12«« 14(Pontos em jogo: %sorte- [ $+ [ $nick ] ] $+ . Jogo Nº  %sortevezes $+ .) }
      if (%2-sorte == $null) && (%1-sorte !== $null) { msg $chan 14O número da sorte está entre 12»»4 $+ %1-sorte $+ 12««14 &12 »»4 $+ 99 $+ 12«« 14(Pontos em jogo: %sorte- [ $+ [ $nick ] ] $+ . Jogo Nº  %sortevezes $+ .) }
      if (%1-sorte == $null) && (%2-sorte == $null) { msg $chan 14O número da sorte está entre 12»»4 $+ 0 $+ 12««14 &12 »»4 $+ 99 $+ 12«« 14(Pontos em jogo: %sorte- [ $+ [ $nick ] ] $+ . Jogo Nº  %sortevezes $+ .) }
      if (%1-sorte !== $null) && (%2-sorte !== $null) { msg $chan 14O número da sorte está entre 12»»4 $+ %1-sorte $+ 12««14 &12 »»4 $+ %2-sorte $+ 12«« 14(Pontos em jogo: %sorte- [ $+ [ $nick ] ]  $+ . Jogo Nº  %sortevezes $+ .) }
    }
    else { msg $chan 3Digite 4!ligar3, jogo no momento desligado. }
  }
  if (!desligar == $strip($1)) { 
    desligarsorte
    msg $chan 3 Jogo da sorte desligado por: 4 $nick $+ .
  }
  if (!comprar == $strip($1)) {
    msg $chan $nick comprou um(a) $3- para $2
  }
  if (!feio == $strip($1)) {
    var %b. = $rand(1,$nick($chan,0))
    var %c. = $nick($chan,%b.)
    msg $chan 9-->94 %c. 9<-- 12É a pessoa mais horripilante que eu conheço!
  }
}
  .=------------------------------------------------------------------------=.
 ##=--  (Alias) Parte fundamental pelo funcionamento do jogo NÃO ALTERE  --=##
  =------------------------------------------------------------------------=
alias desligarsorte {
  unset %tentativa
  unset %sortepato
  unset %1-sorte
  unset %2-sorte
  unset %numsorte
  set %ligar off
}
alias iniciarsorte {
  set %numsorte $rand(0,99)
  set %ligar on
  inc %sortevezes
}
  .=----------------=.
 ##=--    EOF    --=##
  =----------------=