1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.
  2. A secção Microsoft/Windows encontra-se actualmente em processo de reestruturação.
    Remover anúncio

Cyber Script

Discussão em 'Windows 7 e anteriores' iniciada por Haim_F^ader'_#, 28 de Março de 2009. (Respostas: 5; Visualizações: 2201)

  1. Bem, este é o meu primeiro tópico aqui, no ''novo'' site (:
    O que eu quero saber são duas coisas :
    Ambas têm a ver com o CScript e ambas têm uma coisa em comum ..

    Codigo de FERRAMENTAS > EDITOR > REMOTE :

    Código:
    ;CyberBoT - Bot Exclusivo para uso do CyberScript.
    ;Se quer colocar este B0T em outro Script fale com xBinho antes.
    on *:load: { echo -sa 12***4 Bot instalado com sucesso. 12Para obter informações digite no canal onde o bot estiver: !info - Configure o bot clicando com o botão direito no status e indo em Add-ons -> Bot }
    alias botcontrol { if ($dialog(bc)) { dialog -v bc | return } | dialog -mod bc bc }
    alias botConnect {
      var %a = 1 | :loop | var %b = CybBot $+ %a | if ($sock(%b)) { inc %a | goto loop }
      if (!$`2(botserver)) { .avisar Você Não especificou um Servidor. $iif(!$dialog(botconfig),acesse as configurações do bot e ponha um servidor.) | halt }
      sockopen %b $`2(botserver) $iif($`2(botport) isnum,$`2(botport),6667)
    }
    alias botclose { var %a = 1 | :loop | var %b = CybBot $+ %a | if (!$sock(%b).name) { inc %a | goto loop } | sockwrite -tn %b Quit : $+ $`2(botquit) 15Exit... | sockclose %b }
    alias botmaster {
      .scid $activecid
      if ($`(bot.nick) == $me) { .scid -r | return $true }
      .scid -r | var %q = $readini("sistema\bot.ini",n,masters,total)
      if (%q) && (%q isnum) { while (%q > 0) { var %e = $readini("sistema\bot.ini",n,masters,%q) | $iif($gettok(%e,1,32) iswm $`(bot.mask),return $true) | dec %q } }
      return $false
    }
    alias botop {
      .scid $activecid
      if ($`(bot.nick) == $me) { .scid -r | return $true }
      .scid -r | var %q = $readini("sistema\bot.ini",n,ops,total)
      if (%q) && (%q isnum) { while (%q > 0) { var %e = $readini("sistema\bot.ini",n,ops,%q) | $iif($gettok(%e,1,32) iswm $`(bot.mask),return $true) | dec %q } }
      var %q = $readini("sistema\bot.ini",n,masters,total)
      if (%q) && (%q isnum) { while (%q > 0) { var %e = $readini("sistema\bot.ini",n,masters,%q) | $iif($gettok(%e,1,32) iswm $`(bot.mask),return $true) | dec %q } }
      return $false
    }
    #botdns off
    ON *:DNS:{
      if ($dns(1).ip != $null) _set bot_ip $dns(1).ip | .disable #botdns | halt
    }
    #botdns end
    alias _botdata {
      var %1_ = $1- | tokenize 32 $strip($1-)
      if ($1 == PING) && ($2) sockwrite -tn $sockname PONG $2- 
      if ($2 == 433) {
        if ($4 == $`2(botnick)) { var %a = botnick1 }
        if ($4 == $`2(botnick1)) { var %a = botnick2 }
        if ($4 == $`2(botnick2)) { var %a = botnick3 }
        if ($4 == $`2(botnick3)) { window -c @ $+ $sockname | sockclose $sockname | echo -at $tw(ECHO,Erro: $crlf Todos os seus nicks de bot estão em uso. Feche-o e tente um nick diferente.) | halt }
        sockmark $sockname $`2(%a) | sockwrite -tn $sockname nick $`2(%a)
      }
      if ($2 == 001) { 
        if ($sock(botidentd).name) sockclose botidentd | .disable #botdns | sockmark $sockname $3 | _unset bot_ip | sockwrite -tn $sockname USERHOST $3 | var %a = 1 | while ($gettok($`2(botjoin),%a,44)) { sockwrite -tn $sockname join $ifmatch | inc %a }
      }
      if ($2 == 302) { .enable #botdns | .dns $gettok($4,2,64) }
      if ($2 == 376) { echo -at $tw(ECHO,4Para ver as informações do BOT digite no canal 4!info e para ver os Comandos do BOT digite no PVT dele [email protected]) | botcontrol }
      if ($left($1,1) == :) { _set bot.mask $remove($1,$left($1,1)) | _set bot.nick $gettok($`(bot.mask),1,33) }
      if ($2 == KICK) && ($4 == $sock($sockname).mark) { sockwrite -tn $sockname join $3 }
      if ($2 == NICK) && ($remove($gettok($1,1,33),:) == $sock($sockname).mark) { sockmark $sockname $remove($3,:) }
      if ($2 == JOIN) {
        if ($botmaster) { sockwrite -tn $sockname mode $remove($3,:) +o $`(bot.nick) }
        if (($`2(botjoinamsg1)) && ($`2(botjoinamsg2)) && ($`(bot.nick) !isin $sock($sockname).mark)) { sockwrite -tn $sockname privmsg $remove($3,:) : $+ $replace($`2(botjoinamsg2),<canal>,$remove($3,:),<nick>,$`(bot.nick)) }
      }
      if ($2 == NOTICE) {
        if (:NickServ!*@* iswm $1) {
          var %reg = ^:Es[st]e nick (possui |pertence |est[aá] registrado|j[aá] est[aá] registrado)+.+
          if ($regex($remove($4-,$chr(44)),%reg)) {
            if ($`2(botsenha) != $null) { sockwrite -tn $sockname nickserv identify $`2(botsenha) }
            else {
              echo @ $+ $sockname 15***4 NickServ Requisitando Senha!
            }
          }
          if ((Password incorrect isin $4-) || (Senha incorreta isin $4-)) { echo @ $+ $sockname 15***4 Senha do Nick_Bot incorreta! }
        }
      }
      if ($2 == PRIVMSG) {
        if ($left($3,1) != $chr(35)) {
          if ($4 == :VERSION) { sockwrite -tn $sockname NOTICE $`(bot.nick) :VERSION Cyber BOT - www.CyberScript.org  }
          if ($4 == :PING) && ($5) { sockwrite -tn $sockname NOTICE $`(bot.nick) : $+ $chr(1) $+ PING $5 }
          if ($4 == :FINGER) { sockwrite -tn $sockname NOTICE $`(bot.nick) :FINGER no fingers here, /me bot :) }
          if (($4 == :@listops) && ($botantflood(1,$`(bot.nick)))) { var %a = 1 | var %t = $readini("sistema\bot.ini",ops,total) | while (%a <= %t) { var %b = $readini("sistema\bot.ini",ops,%a) | sockwrite -tn $sockname privmsg $`(bot.nick) : $+ %a $+ . $iif($botop,%b,$gettok(%b,2,32)) | inc %a } }
          if (($4 == :@listmasters) && ($botantflood(2,$`(bot.nick)))) { var %a = 1 | var %t = $readini("sistema\bot.ini",masters,total) | while (%a <= %t) { var %b = $readini("sistema\bot.ini",masters,%a) | sockwrite -tn $sockname privmsg $`(bot.nick) : $+ %a $+ . $iif($botop,%b,$gettok(%b,2,32)) | inc %a } }
          if ($4 == :@Remuser) && ($botmaster) && ($5) { rembotuser $5 }
          if ($4 == :@mode) && ($botop) { sockwrite -tn $sockname mode $5 $6 $7-  }
          if ($4 == :@addop) && ($botmaster) && ($5) { var %ee = $readini("sistema\bot.ini",n,ops,total) | inc %ee | .writeni "sistema\bot.ini" ops %ee $5- | .writeni "sistema\bot.ini" ops total %ee }
          if ($4 == :@addmaster) && ($botmaster) && ($5) { var %ee = $readini("sistema\bot.ini",n,masters,total) | inc %ee | .writeni "sistema\bot.ini" masters %ee $5- | .writeni "sistema\bot.ini" masters total %ee }
          if ($4 == :@say) && ($botop) { sockwrite -tn $sockname privmsg $5 : $+ $gettok(%1_,6-,32) }
          if ($4 == :@speech) && ($botop) { sockwrite -tn $sockname privmsg $5 : $+ $chr(1) $+ ACTION $gettok(%1_,6-,32) $+ $chr(1) }
          if ($4 == :@kick) && ($botop) { Sockwrite -tn $sockname kick $5 $6 : $+ $gettok(%1_,7-,32) }
          if ($4 == :@join) && ($botmaster) { SockWrite -tn $sockname join $5 }
          if ($4 == :@ban) && ($botop) { sockwrite -tn $sockname mode $5 -o+bb $6 $address($6,3) $address($6,2) | sockwrite -tn $sockname kick $5 $6 : $+ $7-  }
          if ($4 == :@op) && ($botop) { sockwrite -tn $sockname mode $5 +o $iif($6,$6,$`(bot.nick)) }
          if ($4 == :@halfop) && ($botop) { sockwrite -tn $sockname mode $5 +h $iif($6,$6,$`(bot.nick)) }
          if ($4 == :@dehalfop) && ($botop) { sockwrite -tn $sockname mode $5 -h $iif($6,$6,$`(bot.nick)) }
          if ($4 == :@deop) && ($botop) { sockwrite -tn $sockname mode $5 -o $iif($6,$6,$`(bot.nick)) }
          if ($4 == :@devoice) && ($botop) { sockwrite -tn $sockname mode $5 -v $iif($6,$6,$`(bot.nick)) }
          if ($4 == :@voice) && ($botop) { sockwrite -tn $sockname mode $5 +v $iif($6,$6,$`(bot.nick)) }
          if ($4 == :@part) && ($botmaster) { SockWrite -tn $sockname part $5 :1515 www.cyberscript.org 4 Exit Canal... }
          if ($4 == :@rejoin) && ($botop) { sockwrite -tn $sockname part $5 :Re-Entrando... | sockwrite -tn $sockname join $5 }
          if ($4 == :@Comandos) {
            if (!$botop) { sockwrite -tn $sockname notice $`(bot.nick) :Você NÃO esta Cadrastado no BOT. | return }
            envialistadecomandosdobot $sockname $`(bot.nick)
          }
        }
        if ($left($3,1) == $chr(35)) {
          if (($4 == :!listops) && ($botantflood(1,$`(bot.nick)))) { var %a = 1 | var %t = $readini("sistema\bot.ini",ops,total) | while (%a <= %t) { var %b = $readini("sistema\bot.ini",ops,%a) | sockwrite -tn $sockname privmsg $`(bot.nick) : $+ %a $+ . $iif($botop,%b,$gettok(%b,2,32)) | inc %a } }
          if (($4 == :!listmasters) && ($botantflood(2,$`(bot.nick)))) { var %a = 1 | var %t = $readini("sistema\bot.ini",masters,total) | while (%a <= %t) { var %b = $readini("sistema\bot.ini",masters,%a) | sockwrite -tn $sockname privmsg $`(bot.nick) : $+ %a $+ . $iif($botop,%b,$gettok(%b,2,32)) | inc %a } }
          if ($4 == :!Remuser) && ($5) && ($botmaster) { rembotuser $5 }
          if ($4 == :!invite) && ($botop) { sockwrite -tn $sockname invite $5 $3 }
          if ($4 == :!mode) && ($botop) { sockwrite -tn $sockname mode $3 $5 $6- }
          if ($4 == :!addop) && ($botmaster) && ($5) { var %ee = $readini("sistema\bot.ini",n,ops,total) | inc %ee | .writeni "sistema\bot.ini" ops %ee $5- | .writeni "sistema\bot.ini" ops total %ee }
          if ($4 == :!addmaster) && ($botmaster) && ($5) { var %ee = $readini("sistema\bot.ini",n,masters,total) | inc %ee | .writeni "sistema\bot.ini" masters %ee $5- | .writeni "sistema\bot.ini" masters total %ee }
          if ($4 == :!say) && ($botop) { sockwrite -tn $sockname privmsg $3 : $+ $gettok(%1_,5-,32) }
          if ($4 == :!speech) && ($botop) { sockwrite -tn $sockname privmsg $3 : $+ $chr(1) $+ ACTION $gettok(%1_,5-,32) $+ $chr(1) }
          if ($4 == :!msg) && ($botop) { sockwrite -tn $sockname privmsg $5 : $+ $gettok(%1_,6-,32) }
          if ($4 == :!kick) && ($botop) { Sockwrite -tn $sockname kick $3 $5 : $+ $gettok(%1_,6-,32) }
          if ($4 == :!BAN) && ($botop)  { sockwrite -tn $sockname mode $3 -o+bb $5 $address($5,3) $address($5,2) | sockwrite -tn $sockname kick $3 $5 : $+ $6- }
          if ($4 == :!RegMaster) && ($botmaster) { sockwrite -tn $sockname ChanServ access $3 add $5 10 }
          if ($4 == :!listaccess) && ($botop) { sockwrite -tn $sockname ChanServ access $3 list }
          if ($4 == :!OpSeguro) && ($botmaster) { sockwrite -tn $sockname ChanServ set $3 secureops on }
          if ($4 == :!ClearBans) && ($botmaster) { sockwrite -tn $sockname chanserv clear $3 bans }
          if ($4 == :!voice) { sockwrite -tn $sockname mode $3 +v $iif($5,$5,$`(bot.nick)) }
          if ($4 == :!infoknal) && ($botop) { sockwrite -tn $sockname ChanServ info $3 }
          if ($4 == :!Topic) && ($botop) { Sockwrite -tn $sockname topic $3 : $+ $gettok(%1_,5-,32) }
          if ($4 == :!op) && ($botop) { sockwrite -tn $sockname mode $3 +o $iif($5,$5,$`(bot.nick)) }
          if ($4 == :!halfop) && ($botop) { sockwrite -tn $sockname mode $3 +h $iif($5,$5,$`(bot.nick)) }
          if ($4 == :!ClearModes) && ($botmaster) { sockwrite -tn $sockname chanserv clear $3 modes | sockwrite -tn $sockname chanserv set $3 mlock +nt-iklmps }
          if ($4 == :!dehalfop) && ($botop) { sockwrite -tn $sockname mode $3 -h $iif($5,$5,$`(bot.nick)) }
          if ($4 == :!join) && ($botmaster)  { sockwrite -tn $sockname join $5 }
          if ($4 == :!deop) && ($botop) { sockwrite -tn $sockname mode $3 -o $iif($5,$5,$`(bot.nick)) } 
          if ($4 == :!ClearOps) && ($botmaster) { sockwrite -tn $sockname ChanServ CLEAR $3 OPS }
          if ($4 == :!devoice) && ($botop) { sockwrite -tn $sockname mode $3 -v $iif($5,$5,$`(bot.nick)) } 
          if ($4 == :!allkick) && ($botmaster) { sockwrite -tn $sockname ChanServ CLEAR $3 USERS }
          if ($4 == :!voice) && ($botop) { sockwrite -tn $sockname mode $3 +v $iif($5,$5,$`(bot.nick)) }    
          if ($4 == :!Part) && ($botmaster) { SockWrite -tn $sockname part $iif(!$5,$3,$5) :15Exit Canal... }
          if ($4 == :!ReJoin) && ($botop) { sockwrite -tn $sockname part $3 | sockwrite -tn $sockname join $3 }
          if ($4 == :!On) && ($botmaster) { sockwrite -tn $sockname part $3 | sockwrite -tn $sockname join $3 }
          if ($4 == :!Comandos) {
            if (!$botop) { sockwrite -tn $sockname notice $`(bot.nick) :Você NÃO esta Cadrastado no BOT. | return }
            envialistadecomandosdobot $sockname $`(bot.nick)
          }
          if ($4 == :!info) { sockwrite -tn $sockname privmsg $`(bot.nick) : $+ 15,1«CyberBot» - Para maiores informações(Comandos disponiveis), use: 7/msg $sock($sockname).mark @Comandos 15,1ou digite 7!Comandos 15,1no canal. }
        }
      }
    }
    alias donothing { return }
    alias botantflood {
      var %nn_ = cyberbot $+ $1 $+ $2 
      if ($timer(%nn_)) return 0 | .timer $+ %nn_ -o 1 10 donothing | return 1
    }
    on *:input:@Cybbot*:if (/* !iswm $1) && ($sock($remove($active,@)).name) { echo -t $active $tw(ECHO,> $1-) | sockwrite -tn $remove($active,@) $1- } | halt
    on 1:SOCKREAD:Cybbot*:{ if ($sockerr > 0) return | var %bot.data = "" | sockread %bot.data | _botdata $remove(%bot.data,$) | __aline -hp @ $+ $sockname $remove(%bot.data,$) }
    alias __aline {
      if (!$window($2)) return
      if ($3 == PING) { aline $1 $2 *** Ping? Pong! | return }
      var %gh = ^: $+ $`2(botserver) [0-9]{1,4} $sock($sockname).mark .+
      if ($regex($3-,%gh)) { aline $1 $2 $7- | return }
      if ($4 == MODE) { aline $1 $2 *** $remove($gettok($3,1,33),:) $4- | return }
      if ($4 == PRIVMSG) { aline $1 $2 - $iif($chr(35) isin $5,$5,PVT) - < $+ $remove($gettok($3,1,33),:) $+ > $right($6-,-1) | return }
      aline $1-
    }
    on 1:SOCKOPEN:Cybbot*:{ if ($sockerr) { echo -s 4***2 Não foi possível conectar. Tente outro servidor e certifique-se de especificar a porta 6667. | halt } | _set2 botnick $iif($`2(botnick),$`2(botnick),$+(Bot,$chr($rand(65,85)),$rand(10,10000))) | sockmark $sockname $`2(botnick) | sockwrite -tn $sockname NICK $`2(botnick) | sockwrite -tn $sockname USER $`2(botident) " $+ $iif($host,$host,$ip) $+ " " $+ $sock($sockname).ip $+ " : $+ $iif($`2(botrealname),$`2(botrealname),www.cyberscript.org) | window -ek @ $+ $sockname | if ((!$sock(botidentd).name) && ($portfree(113))) socklisten botidentd 113 }
    on *:SOCKLISTEN:botidentd:{ sockaccept identd. $+ $rand(A,Z) $+ $ticks }
    on *:SOCKREAD:identd.*:{ sockread %s | if ($sockerr) { sockclose $sockname | halt } | tokenize 32 %s | if ($sockbr == 0) { return } | sockwrite -tn $sockname $1- : USERID : UNIX : $iif($`2(botident),$`2(botident),Cyber) }
    on *:SOCKWRITE:identd.*:{ if ($sockerr) || ($sock($sockname).sq == 0) { sockclose $sockname | halt } }
    on *:sockclose:Cybbot*:{ if ($sock(botidentd).name) sockclose botidentd }
    menu @Cybbot* {
      &Sistema:dialog -m bc bc
      &Controle:botconfig
      -
      Conectar:botconnect
      Desconectar:if ($sock($remove($active,@)).name) { sockwrite -tn $remove($active,@) Quit :15Exit... www.cyberscript.org }
      Fechar:if ($sock($remove($active,@)).name) { sockwrite -tn $remove($active,@) Quit :10CyberBOT - www.cyberscript.org | sockclose $remove($active,@) } | window -c $active
      -
      &Ocultar Janela:hide $active
      -
      &Entrar em canal:if ($sock($remove($active,@)).name) sockwrite -tn $remove($active,@) JOIN #$$?="Informe um canal:"
      Mudar &nick:if ($sock($remove($active,@)).name) sockwrite -tn $remove($active,@) Nick $$?="Informe um nick:"
    }
    dialog bc {
      title Cyber BOT - Controle
      size -1 -1 285 282
      icon figuras\icones\srvs.ico
      button Ok,1,200 255 75 22,style , cancel
      box "",2,0 0 285 250
      text "Selecione o bot :", 95, 74 15 110 20
      combo 3, 175 11 100 100,sort, drop 
      box "",4, 10 30 265 210
      button Speech,6, 100 60 75 20
      button Kick,7, 15 40 75 20
      button Ban,8, 15 60 75 20
      button Op,9, 15 80 75 20
      button DeOp,10, 15 100 75 20
      button Voice,11, 15 120 75 20
      button DeVoice,12, 15 140 75 20
      button Rejoin,13, 15 160 75 20
      button Join,14, 15 180 75 20
      button Part,15, 15 200 75 20
      button Quit,16, 100 80 75 20
      button Modo,17, 100 100 75 20
      box "",18, 185 50 2 150
      button /nick,23, 195 120 75 20
      button /motd,24, 195 140 75 20
      button /away,25, 195 160 75 20
      button Outro.,27, 195 200 75 20
      button Add...,28, 5 255 75 22
    }
    on *:dialog:bc:init:*:{ var %a = 1 | while $sock(Cybbot*,%a) { did -a bc 3 $sock(Cybbot*,%a) | inc %a } | did -c bc 3 1 }
    on *:dialog:bc:sclick:*:{
      if ($did == 28) { dialog -m bu bu }
      if ($did == 1) { dialog -x $dname | halt }
      var %a = $did(3,$did(3).sel)
      if (!%a) { halt }
      var %b = .sockwrite -tn %a 
      if ($did == 23) %b nick $$?="Novo Nick"
      if ($did == 24) %b motd
      if ($did == 25) %b dns $$?="Nick?"
      if ($did == 26) %b away : $+ $?="Motivo? (Clike em Ok para sair do away)."
      if ($did == 27) %b $$?="Digite um comando:"
      if ($did == 5) { var %ff = $$?="Informe o nivel, 1 = MASTER, 2 = Op" | $replace(%ff,1,masters,2,ops) | var %ee = $readini("sistema\bot.ini",n,%ff,total) | inc %ee | .writeni "sistema\bot.ini" %ff %ee $$?="Informe a mascara (ex: [email protected]*)" $$?="Informe o nick da pessoa (a pessoa será identificada pela MASCARA e não pelo NICK)" | .writeni "sistema\bot.ini" %ff total %ee }
      if ($did == 6) { %b privmsg $$?="Informe o canal ou nick:" : $+ $$?="Informe a mensagem:" }
      if ($did == 7) { %b kick #$$?="Canal?" : $+ $$?="Motivo?" }
      if ($did == 8) { var %c = #$$?="Canal?" | var %d = $$?="Quem?" | %b kick %c %d : $+ $$?="Motivo?" | %b mode %c +bb $address(%d,3) $address(%d,2) }
      if ($did == 9) { %b mode #$$?="Canal?" +o $$?="nick?" }
      if ($did == 10) { %b mode #$$?="Canal?" -o $$?="nick?" }
      if ($did == 11) { %b mode #$$?="Canal?" +v $$?="nick?" }
      if ($did == 12) { %b mode #$$?="Canal?" -v $$?="nick?" }
      if ($did == 13) { var %c = #$$?="Canal?" | %b part %c | %b join %c }
      if ($did == 14) { var %c = #$$?="Canal?" | %b join %c }
      if ($did == 15) { var %c = #$$?="Canal?" | %b part %c }
      if ($did == 16) { %b quit $$?="Informe mensagem de quit:" }
      if ($did == 17) { %b mode #$$?="Canal?" $$?="modo? ex: +nt ?" }
    }
    dialog bu { 
      title Cyber BOT - Cadrasto
      size -1 -1 250 244 
      icon figuras\icones\37.ico
      button Ok,1, 190 217 58 22,cancel
      box "",2, 0 0 250 212
      list 3,5 13 240 190,size
      button Clear,4, 4 217 60 22
      button Remover,5, 66 217 60 22
      button Adicionar,6, 128 217 60 22
    }
    on *:dialog:bu:init:0:{ rbu }
    on *:dialog:bu:sclick:4:{ .remini "sistema\bot.ini" masters | .remini "sistema\bot.ini" ops | did -r bu 3 }
    on *:dialog:bu:sclick:5:{ rembotuser $gettok($did(3,$did(3).sel),2,32) | rbu }
    on *:dialog:bu:sclick:6:{ var %ff = $$?="Informe o nivel, 1 = MASTER, 2 = OP" | %ff = $replace(%ff,1,masters,2,ops) | var %ee = $readini("sistema\bot.ini",n,%ff,total) | inc %ee | .writeini "sistema\bot.ini" %ff %ee $$?="Informe a mascara (similar a mascara de ban ex: [email protected]*)" $$?="Informe o nick da pessoa (a pessoa será identificada pela MASCARA e não pelo NICK)" | .writeini "sistema\bot.ini" %ff total %ee | rbu }
    alias rbu { 
      did -r bu 3
      var %q = 1 | var %p = $readini("sistema\bot.ini",n,masters,total)
      if (%p) && (%p isnum) { while (%q <= %p) { var %e = $readini("sistema\bot.ini",n,masters,%q) | did -a bu 3 $+(%q $+ .,$chr(32),$gettok(%e,2,32) $gettok(%e,1,32) (MASTER)) | inc %q } }
      var %qq = 1 | var %p = $readini("sistema\bot.ini",n,ops,total)
      if (%p) && (%p isnum) { while (%qq <= %p) { var %e = $readini("sistema\bot.ini",n,ops,%qq) | did -a bu 3 $+(%q $+ .,$chr(32),$gettok(%e,2,32) $gettok(%e,1,32) (BOT-OP)) | inc %q | inc %qq } }
    }
    alias rembotuser {
      var %q = 1 | var %p = $readini("sistema\bot.ini",n,masters,total) | var %foi = $false
      if (%p) && (%p isnum) { while (%q <= %p) { var %e = $readini("sistema\bot.ini",n,masters,%q) | if (%foi == $true) { .writeini "sistema\bot.ini" masters $calc(%q -1) %e | inc %q | continue } | if ($istok($gettok(%e,2,32) $gettok(%e,1,32),$1,32)) { .remini "sistema\bot.ini" masters %q | .writeini "sistema\bot.ini" masters total $calc(%p -1) | %foi = $true } | inc %q } }
      if (%foi = $true) { return }
      var %qq = 1 | var %p = $readini("sistema\bot.ini",n,ops,total)
      if (%p) && (%p isnum) { while (%qq <= %p) { var %e = $readini("sistema\bot.ini",n,ops,%qq) | if (%foi == $true) { .writeini "sistema\bot.ini" ops $calc(%qq -1) %e | inc %qq | continue } | if ($istok($gettok(%e,2,32) $gettok(%e,1,32),$1,32)) { .remini "sistema\bot.ini" ops %qq | .writeini "sistema\bot.ini" ops total $calc(%p -1) | %foi = $true } | inc %qq } }
    }
    alias envialistadecomandosdobot {
      if (!$2) return | var %porta = $rand($`4(botfirstport,23370),$`4(botlastport,49000)) | var %cxz = 1
      while ((!$portfree(%porta)) && (%cxz < 20)) { %porta = $rand(23370,49000) | inc %cxz }
      var %sn_ = bot.chat.cmdlist. $+ $1 $+ . $+ $2 | .sockclose %sn_ | .socklisten %sn_ %porta | .timer $+ %sn_ -o 1 30 .sockclose %sn_ | sockwrite -tn $1 privmsg $2 : $+ DCC CHAT chat $longip($iif($`(bot_ip),$`(bot_ip),$ip)) %porta $+ 
    }
    on *:SOCKLISTEN:bot.chat.cmdlist.*:{
      .timer $+ $sockname off | sockaccept bot.cliente. $+ $sockname | var %e = .sockwrite -tn bot.cliente. $+ $sockname
      %e ×××××××× Cyber BOT ××××××××
      %e $chr(160) | %e 7_ * Comandos do BOT em CANAL * _ | %e $chr(160)
      %e !Addop 4adress nick 15-2 Cadrastar usuario de OP no Bot
      %e !Addmaster 4adress nick 15-2 Cadrastrar usuario de MASTER no bot
      %e !RemUser 4nick 15-2 Remover Usuário do Cadrasto no BOT
      %e !invite 4nick 4#Canal 15-2 Convidar usuário para o knal
      %e !Mode 4modo 15-2 Colocar MODO no knal
      %e !Op 4nick 15-2 Dar Op a um usuário (sem o nick o bot da OP pra vc)
      %e !deOp 4nick 15-2 Tirar Op de usuário (sem o nick o bot tira o seu OP)
      %e !HalfOp 4nick 15-2 Dar HalfOp a um usuário (sem o nick o bot da HalfOP pra vc)
      %e !deHalfOp 4nick 15-2 Tirar HalfOp de usuário (sem o nick o bot tira o seu HalfOP)
      %e !Voice 4nick 15-2 Dar Voice a um usuário (sem o nick o bot da voice pra vc)
      %e !deVoice 4nick 15-2 Tirar Voice de usuário (sem o nick o bot tira o seu voice)
      %e !allkick 15-2 Kickar todos usuários
      %e !ClearOps 15-2 Tirar Op de todos operadores
      %e !ClearModes 15-2 Retira todos Modes e coloca o modo +nt e o tranca
      %e !listaccess 15-2 Lista a lista de access do Canal
      %e !OpSeguro 15-2 Só Operadores Registrados receberão Op
      %e !Ban 4nick motivo 15-2 Banir alguem
      %e !Kick 4nick motivo 15-2 Kickar alguem
      %e !Say 4msg 15-2 Mandar mensagem pelo Bot
      %e !Speech 4msg 15-2 Mandar mensagem de ação pelo Bot
      %e !Msg 4msg 15-2 Mandar mensagem pelo ChanServ
      %e !Part 4#Canal 15-2 Sair do knal
      %e !Join 4#Canal 15-2 Entar em um knal 
      %e !ReJoin 15-2 Sair e Entar do knal
      %e !info 15-2 informação do Bot
      %e !ClearBans 15-2 Limpa os BANs
      %e !Topic 4Tópico 15-2
      %e $chr(160) | %e $chr(160) | %e 7_ * Comandos do BOT em PVT ou use /MSG $upper($sock($gettok($sockname,4,46)).mark) COMANDO * _ | %e $chr(160)
      %e @AddOp 4adress nick 15-2 Cadrastar usuario de OP no Bot
      %e @AddMaster 4adress nick 15-2 Cadrastrar usuario de MASTER no bot
      %e @ClearUsers 4nick 15-2 Retirar usuario de Op ou Master
      %e @Mode 4#Canal modo 15-2 Colocar MODO no knal
      %e @Op 4#Canal 4nick 15-2 Dar Op a um usuario
      %e @HalfOp 4#Canal 4nick 15-2 Dar HalfOp a um usuário
      %e @deHalfOp 4#Canal 4nick 15-2 Tirar HalfOp do Usuário
      %e @deOp 4#Canal 4nick 15-2 Tirar Op do usuário
      %e @deVoice 4#Canal 4nick 15-2 Tirar Voice do usuário
      %e @Voice 4#Canal 4nick 15-2 Dar Voice a um usuário
      %e @Ban 4#Canal 4nick motivo 15-2 Banir alguem 
      %e @Kick 4#Canal 4nick motivo 15-2 Kickar alguem
      %e @Say 4#Canal 4msg 15-2 Mandar mensagem pelo Bot
      %e @Speech 4#Canal 4msg 15-2 Mandar mensagem pelo Bot
      %e @Join 4#Canal 15-2 Entar em um knal
      %e @Part 4#Canal 15-2 Sair de um knal
      %e @ReJoin 4#Canal 15-2 Sair e Entrar em um knal
      %e @Comandos 15-2 Lista Comandos disponíveis
      %e $chr(160)
      %e Os comandos 7RemUser, 7AddMaster, 7AddOp, 7Join, 7Part, 7ClearOps, 7ClearModes, 7listaccess, 7OpSeguro, 7RegMaster, 7+Nt e 7Allkick só pode ser usado por um master do BOT, tanto faz se for usado no canal ou PVT.
      %e Os comandos: 7!clearbans, 7!clearmodes, 7!clearops, 7!OpSeguro, 7!RegMaster, 7!+Nt e 7!Allkick Só funciona se o BOT estiver cadastrado como master ou superior no canal.
      %e O BOT não tira Voice, HalfOp nem Op de usuário com modo +q
      .sockclose bot.cliente. $+ $sockname | .sockclose $sockname
    }
    alias botconfig { if ($dialog(botconfig)) { dialog -v botconfig | return } | dialog -m botconfig botconfig }
    dialog botconfig {
      title "Cyber BOT - Sistema"
      size -1 -1 143 169
      option dbu
      icon figuras\icones\37.ico, 0
      edit "", 1, 3 12 90 10, autohs
      edit "", 2, 99 12 41 10, autohs
      edit "", 3, 68 30 70 10, autohs
      edit "", 4, 68 40 70 10, autohs
      text "Servidor:", 5, 4 3 91 8
      text "Porta:", 6, 100 3 41 8
      text "Bot_Nick:", 7, 5 31 59 8, right
      text "Bot_Nick 2:", 8, 5 41 59 8, right
      edit "", 9, 68 50 70 10, autohs
      text "Bot_Nick 3:", 10, 5 51 59 8, right
      text "Bot_Nick 4:", 11, 5 61 59 8, right
      edit "", 12, 68 60 70 10, autohs
      edit "", 13, 68 70 70 10, autohs
      text "Bot Name (whois):", 14, 5 71 59 8, right
      text "Canais [Use Virgula]:", 15, 5 81 59 8, right
      edit "", 16, 68 80 70 10, autohs
      edit "", 17, 68 90 70 10, autohs
      text "Mensagem de Quit:", 18, 5 91 59 8, right
      button "&Fechar", 19, 100 155 40 11, cancel
      button "&Add...", 20, 58 155 40 11
      button "&Conectar", 21, 16 155 40 11, ok
      edit "", 22, 68 100 70 10, autohs
      text "Senha do nick do bot:", 23, 5 101 59 8, right
      box " Sistema ", 24, 2 24 139 90
      text ":", 25, 95 13 4 8
      box " Mensagem Automatica", 26, 2 115 139 36
      edit "", 27, 38 137 100 10
      text "Mensagem:", 28, 6 139 30 8
      check "?Mensagem ao usuário?", 29, 8 124 105 10
    }
    on *:dialog:botconfig:sclick:20:{ dialog -m bu bu }
    on *:dialog:botconfig:sclick:21:{ botConnect }
    on *:dialog:botconfig:sclick:29:{
      if ($did(29).state) { _set2 botjoinamsg1 1 | return }
      _unset2 botjoinamsg1
    }
    on *:dialog:botconfig:edit:*:{ 
      if ($did == 1) { _set2 botserver $did(1).text }
      if ($did == 2) { _set2 botport $did(2).text }
      if ($did == 3) { _set2 botnick $did(3).text }
      if ($did == 4) { _set2 botnick1 $did(4).text }
      if ($did == 9) { _set2 botnick2 $did(9).text }
      if ($did == 12) { _set2 botnick3 $did(12).text }
      if ($did == 13) { _set2 botrealname $did(13).text }
      if ($did == 16) { _set2 botjoin $did(16).text }
      if ($did == 17) { _set2 botquit $did(17).text }
      if ($did == 22) { _set2 botsenha $did(22).text }
      if ($did == 27) { _set2 botjoinamsg2 $did(27).text }
    }
    on *:dialog:botconfig:init:0:{
      if (!$`2(botserver)) _set2 botserver irc.virtualife.com.br
      if (!$`2(botport)) _set2 botport 6667
      if (!$`2(botrealname)) _set2 botrealname www.cyberscript.org
      did -a botconfig 1 $`2(botserver) | did -a botconfig 2 $`2(botport) | did -a botconfig 3 $`2(botnick) | did -a botconfig 4 $`2(botnick1) | did -a botconfig 9 $`2(botnick2) | did -a botconfig 12 $`2(botnick3) | did -a botconfig 16 $`2(botjoin) | did -a botconfig 13 $`2(botrealname) | did -a botconfig 17 $`2(botquit) | did -a botconfig 22 $`2(botsenha) | _set2 botident cyber
      if (!$`2(botjoinamsg2)) { _set2 botjoinamsg2 <nick>: Bem vindo ao <canal>! }
      did -a botconfig 27 $`2(botjoinamsg2)
      if ($`2(botjoinamsg1)) { did -c $dname 29 }
    }
    menu menubar,status {
      &ADD-ONS
      .&Bot
      ..&Sistema:botconfig
      ..&Controle:botcontrol
      ..&Add...:dialog -m bu bu
      ..-
      ..&Conectar:botConnect
      ..&Desconectar:botclose
      ..-
      ..&Desinstalar AddOn:unload -rs " $+ $script $+ "
    Esse tem a ver com o meu bot, e o que eu quero é saber como alterar o comando "!" para "," ou "." Porquê?? porque o Chanserv já usa "!" e então não acontece nada c:

    o outro é para saber como adicionar comandos ao meu bot , por exemplo, escrever " .kill <%nick> e aparece uma frase ( quero saber onde adicionar e o que adicionar .. Comandos conhecidos como " Fun commands ", se precisarem das " Aliases " ou outros é so postar aqui ..

    Sem mais, Obrigado .
     
  2. viva,
    Bom se fores a alterar tens muito para alterar e provavelmente vais alterar algo que não devias. por isso a questão é

    1. O "chanserv" já usa o "!" ???? como assim?

    2. Qual é a rede de IRC que estás a usar este "bot" ?

    Saudações
    ArtD
     
  3. Rede: GameForge Server - noradim2.OGameNet.net / Porta: 6660

    Comandos de chanserv :
    !kick <ninck> ( kickar )
    !ban <nick> ( banir )
    !kb <nick> ( kick + ban ) .. percebes ?

    Obrigado pela atenção, c3 aka Haim.
     
  4. Ah! na ogamenet.net, sim, realmente o chanserv responde a esses comandos, se bem que o teu bot tb deveria responder, provavelmente o chanserv kika primeiro isto se você tem acesso a ele.

    tem de alterar o alias _botdata a partir de if left(3,1) == chr(35), aparece uma listagem dos comandos, basicamente ele verifica se você escreveu esse comando no canal (chr(35) == #) e executa a acção
    por exemplo:
    Código:
    if ($4 == :!kick) && ($botop) { ...etc... 
    
    substitui por
    if ($4 == :.kick) && ($botop) { ....etc...
    
    e assim por ai fora..
    
    Saudações
    ArtD
     
  5. E para adicionar comandos ?? :'s as funçoes quero eu dizer .. Comandos e funçoes correspondentes :'o sim, porque eu também quero adicionar umas funçoes ..
    A quem perceber disto (:

    Obrigado ArtD, cumps'
     
  6. Bump : Bring up my post ^^
     

Partilhar esta Página