Mensajes recientes

Páginas: [1] 2 3 ... 10
1
Canal #Ayuda / !Peak Dialog
« Último mensaje por TerraChat en Julio 29, 2019, 06:42:44 pm »
Código: [Seleccionar]
menu channel {
  Peak Script v1.1:peakdia
}

alias -l peakdia {
  $iif($dialog(multi_peak),dialog -v,dialog -m multi_peak) multi_peak
}

dialog multi_peak {
  title "Peak Dialog"
  size -1 -1 144 122
  option dbu
  box "Peak Setup", 4, 2 20 140 100
  combo 5, 5 38 60 50, sort size
  text "Networks:", 6, 5 28 25 8
  button "Add", 7, 5 90 30 12
  button "Del", 8, 36 90 30 12
  combo 9, 78 38 60 50, size
  text "Channels:", 10, 78 28 24 8
  button "Add", 11, 78 90 30 12
  button "Del", 12, 109 90 30 12
  button "Ok", 13, 29 104 37 12, ok
  button "Cancel", 14, 78 104 37 12
  box "Master Switch:", 15, 2 2 63 17
  check "On/Off", 16, 16 8 36 10
  box "Setting:", 17, 79 2 63 17
  check "Op's Only Switch", 18, 82 8 59 10
  menu "File", 1
  item "Unset All", 2, 1
  item "Exit", 3, 1
}

on *:DIALOG:multi_peak:init:*: {
  var %a = $numtok(%peak.networks,44)
  while (%a) {
    did -a $dname 5 $gettok(%peak.networks,%a,44)
    dec %a
  }
  if (%peakmaster == on) {
    did -c $dname 16
  }
  if (%peakmaster == $null) {
    did -b $dname 5,7-9,11,12,18
  }
  if (%peakops == on) {
    did -c $dname 18
  }
}

on *:DIALOG:multi_peak:menu:2,3: {
  if ($did == 2) {
    unset %peak.*
    did -r $dname 5,9
  }
  if ($did == 3) {
    dialog -x multi_peak multi_peak
  }
}

on *:DIALOG:multi_peak:sclick:5,7,8,11,12,16,18: {
  if ($did == 5) {
    did -r $dname 9
    var %a = $numtok(%peak. [ $+ [ $did($dname,5).text ] ],44)
    while (%a) {
      did -a $dname 9 $gettok(%peak. [ $+ [ $did($dname,5).text ] ],%a,44)
      dec %a
    }
  }
  if ($did == 7) {
    if (!$did($dname,5).text) { noop $input(Please enter a Network to add for Peaks.,o) }
    elseif ($istok(%peak.networks,$did($dname,5).text,44)) { noop $input(The Network you entered is already setup for Peaks.,o) }
    else {
      set %peak.networks $addtok(%peak.networks,$did($dname,5).text,44)
      did -a $dname 5 $did($dname,5).text
    }
  }
  if ($did == 8) {
    if (!$did($dname,5).text) { noop $input(Please enter a Network to remove from Peaks.,o) }
    elseif (!$istok(%peak.networks,$did($dname,5).text,44)) { noop $input(The Network you wish to remove is not in the Peak setup.,o) }
    else {
      set %peak.networks $remtok(%peak.networks,$did($dname,5).text,44)
      did -r $dname 5
      var %a = $numtok(%peak.networks,44)
      while (%a) {
        did -a $dname 5 $gettok(%peak.networks,%a,44)
        dec %a
      }
      $iif(%peak.networks == $null,unset %peak.networks)
    }
  }
  if ($did == 11) {
    if (!$did($dname,5).text) { noop $input(Please select a Network to add channels to.,o) }
    elseif (!$did($dname,9).text) { noop $input(Please enter a channel to add to the Peak Setup.,o) }
    elseif ($istok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44)) { noop $input(The Selected channel name is already setup for Peaks.o) }
    else {
      set %peak. [ $+ [ $did($dname,5).text ] ] $addtok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44)
      did -a $dname 9 $did($dname,9).text
    }
  }
  if ($did == 12) {
    if (!$did($dname,5).text) { noop $input(Please select a Network to remove channels from.,o) }
    elseif (!$did($dname,9).text) { noop $input(Please enter a channel to remove from the Peak Setup.,o) }
    elseif (!$istok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44)) { noop $input(The Selected channel name is not in the setup for Peaks.o) }
    else {
      set %peak. [ $+ [ $did($dname,5).text ] ] $remtok(%peak. [ $+ [ $did($dname,5).text ] ],$did($dname,9).text,44)
      unset %peak. [ $+ [ $did($dname,5).text ] $+ ] . [ $+ [ $did($dname,9).text ] $+ ] .*
      did -r $dname 9
      var %a = $numtok(%peak. [ $+ [ $did($dname,5).text,44)
      while (%a) {
        did -a $dname 9 $gettok(%peak. [ $+ [ $did($dname,5).text ] ],%a,44)
        dec %a
      }
      $iif(%peak. [ $+ [ $did($dname,5).text ] ] == $null,unset %peak. [ $+ [ $did($dname,5).text ] ])
    }     
  }
  if ($did == 16) {
    if ($did(16).state == 0) {
      unset %peakmaster
      noop $input(Peak script has been disabled.,o,Success!)
      did -b $dname 5,7-9,11,12,18
    }
    if ($did(16).state == 1) {
      set %peakmaster on
      noop $input(Peak script has been enabled.,o,Success!)
      did -e $dname 5,7-9,11,12,18
    }
  }
  if ($did == 18) {
    if ($did(18).state == 0) {
      unset %peakops
      noop $input(Peak trigger now works for everyone.,o,Success!)
    }
    if ($did(18).state == 1) {
      set %peakops on
      noop $input(Peak trigger now works for Ops only.,o,Success!)
    }
  }
}

on *:JOIN:#: {
  if ($istok(%peak. [ $+ [ $network ] ],$chan,44)) {
    if (!%peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak) {
      set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak $nick($chan,0)
      set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime $ctime
    }
    else {
      if ($nick($chan,0) <= %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak) { HALT }
      else {
        set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak $nick($chan,0)
        msg $chan New Peak: %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak Last Peak: $duration($calc($ctime - %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime)) ago.
        .timer 1 3 set %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime $ctime
      }
    }
  }
}

on *:TEXT:!Peak:#: {
  if ($istok(%peak. [ $+ [ $network ] ],$chan,44)) {
    if (%peakops == on) {
      if ($nick isop $chan) {
        msg $chan Current Peak: %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak Peak Set: $duration($calc($ctime - %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime)) ago.
      }
    }
    if (%peakops == $null) {
      msg $chan Current Peak: %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .peak Peak Set: $duration($calc($ctime - %peak. [ $+ [ $network ] $+ ] . [ $+ [ $chan ] $+ ] .ctime)) ago.
    }
  }
}
2
Canal #Ayuda / PHP Bot
« Último mensaje por TerraChat en Julio 29, 2019, 06:34:28 pm »
Código: [Seleccionar]
<?php
// Prevent PHP from stopping the script after 30 sec
set_time_limit(0);

// Edit these settings
$chan "#php";
$server "127.0.0.1";
$port 6667;
$nick "PHP_Bot";

// STOP EDITTING NOW.
$socket fsockopen("$server"$port);
fputs($socket,"USER $nick $nick $nick $nick :$nick\n");
fputs($socket,"NICK $nick\n");
fputs($socket,"JOIN ".$chan."\n");

while(
1) {
    while(
$data fgets($socket)) {
            echo 
nl2br($data);
            
flush();

            
$ex explode(' '$data);
        
$rawcmd explode(':'$ex[3]);
        
$oneword explode('<br>'$rawcmd);
            
$channel $ex[2];
        
$nicka explode('@'$ex[0]);
        
$nickb explode('!'$nicka[0]);
        
$nickc explode(':'$nickb[0]);

        
$host $nicka[1];
        
$nick $nickc[1];
            if(
$ex[0] == "PING"){
                
fputs($socket"PONG ".$ex[1]."\n");
            }

        
$args NULL; for ($i 4$i count($ex); $i++) { $args .= $ex[$i] . ' '; }

            if (
$rawcmd[1] == "!sayit") {
                
fputs($socket"PRIVMSG ".$channel." :".$args." \n");
            }
        elseif (
$rawcmd[1] == "!md5") {
            
fputs($socket"PRIVMSG ".$channel." :MD5 ".md5($args)."\n");
        }
    }
}
?>
3
#Mp3zone / A. Roth, Ariel - La Ciencia Descubre A Dios (#free #ebooks #epub)
« Último mensaje por TerraChat en Mayo 29, 2019, 07:39:04 am »


Título: La Ciencia Descubre A Dios
Autor: A. Roth, Ariel
Género: Religión
Papyre ID: 24276
Sinopsis:

            Cada vez es más razonable creer en la existencia de un
            Dios que está detrás del origen del universo, en lugar
            de aceptar las improbabilidades extremas que es preciso
            postular para que el universo llegara a la existencia por
            sí solo.Este libro aborda la cuestión de la existencia
            de Dios desde la perspectiva de que la ciencia es -o al
            menos debería ser- una búsqueda abierta de la verdad y
            de si estamos dispuestos a permitir que los datos de la
            naturaleza nos dirijan al lugar a donde apunten, sea el
            que sea.





4
Canal #Ayuda / Files
« Último mensaje por TerraChat en Marzo 30, 2019, 04:03:06 pm »
Código: [Seleccionar]
; Alias
e $iif($left($1,1) = - && $mid($1,2,1),echo $1 $+ a $2-,echo -a $1-)

on *:filesent:*:e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep) | e -t 2[04Enviado:14 $nopath($filename) 04Para:14 $nick $+ 2] | e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep) | close -s $nick
on *:filercvd:*:e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep) | e -t 2[04recibido:14 $nopath($filename) 04De:14 $nick $+ 2] | e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep)
on *:sendfail:*:e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep) | e -t 2[04Fallo el envio:14 $nopath($filename) 04Para:14 $nick $+ 2] | e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep)
on *:getfail:*:e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep) | e -t 2[04Fallo la recepcion:14 $nopath($filename) 04De:14 $nick $+ 2] | e  $+ $colour(Info Text) $+ $readini($mircini,text,linesep)
5
Canal #Ayuda / AutoQ
« Último mensaje por TerraChat en Marzo 30, 2019, 10:25:42 am »
Código: [Seleccionar]
menu channel {
  -
  AutoQ: {
    if (!$window(@Q/ $+ $active)) {
      window -Deik0lv @Q/ $+ $active 0 0 500 350
      if ($isfile($remove($qt($mircdir $+ AutoQ\ $+ $active $+ .txt),@Q/))) {
        filter -fw $remove($qt($mircdir $+ AutoQ\ $+ $active $+ .txt),@Q/) $active
        window -b $active
      }
    }
    else { window -ar @Q/ $+ $active }
  }
}

menu nicklist {
  -
  $iif(($me !isin $snicks),AutoQ)
  .Get Listfile: {
    var %i = 1
    while (%i <= $snick($chan,0)) {
      if (($window(@OS.Buffer)) && ($timer(SDbuff))) { aline @OS.Buffer scid $cid msg $chan $+(@,$snick($chan,%i))  ::4,0Auto12,0Q1,0:: }
      else { msg $chan $+(@,$snick($chan,%i))  ::4,0Auto12,0Q1,0:: }
      inc %i
    }
  }
  .Que Status: {
    var %i = 1
    while (%i <= $snick($chan,0)) {
      if (($window(@OS.Buffer)) && ($timer(SDbuff))) { aline @OS.Buffer scid $cid msg $chan $+($snick($chan,%i),-que) }
      else { msg $chan +($snick($chan,%i),-que) }
      inc %i
    }
  }
}

menu @Q/* {
  dclick: {
    if ($active isin %OT.Q) { %OT.Q = $remove(%OT.Q,$active) }
    request
  }
  .$iif(($active !isin %OT.Q),Pause AutoQ): { set -e %OT.Q %OT.Q $active }
  $iif(($line($active,0)),Edit)
  .$iif((($line($active,0)) && ($sline($active,0) < $line($active,0)) || (!$sline($active,0))), Select all, $style(2) Select all): {
    var %i = 1
    while (%i <= $line($active,0)) {
      sline -a $active %i
      inc %i
    }
  }
  .$iif((($line($active,0)) && ($sline($active,0))), Cut, $style(2) Cut): { clipboard $null | clip | remlines }
  .$iif((($line($active,0)) && ($sline($active,0))), Copy, $style(2) Copy): { clipboard $null | clip }
  .$iif((($line($active,0)) && ($sline($active,0))), Delete, $style(2) Delete): { remlines }
  $iif(($sline($active,0)),Selection)
  .Request: {
    if ($active isin %OT.Q) { %OT.Q = $remove(%OT.Q,$active) }
    request
  }
  .Reset: reset
  .Deselect: clearsel
  Window
  .$iif(($line($active,0)), Clear, $style(2) Clear): { clear $active | window -b $active }
  .$iif(($line($active,0)),Save As..., $style(2) Save As...) { filter -wfc $active $+(",$$sfile($remove($qt($mircdir $+ AutoQ\ $+ $active $+ .txt),@Q/),Select file,Save As),$qt($mircdir $+ AutoQ\)") }
  .Close: { close -@ $active }
}

on *:close:@Q/*: {
  if ($line($target,0) > 0) {
    if ($target isin %OT.Q) { %OT.Q = $remove(%OT.Q,$target) }
    filter -wfc $target $qt($mircdir $+ AutoQ\ $+ $remove($target,@Q/) $+ .txt)
  }
  elseif ($exists($qt($mircdir $+ AutoQ\ $+ $remove($target,@Q/) $+ .txt))) { .remove $qt($mircdir $+ AutoQ\ $+ $remove($target,@Q/) $+ .txt)) }
}

on *:unload: {
  close -@Q/*
  unset %OT.*
  .echo -q $findfile($mircdir $+ AutoQ,*,0,remove $qt($1-))
  .rmdir $qt($mircdir $+ AutoQ)
}

on *:filercvd:*: {
  var %i = $window(@Q/*,0)
  while (%i >= 1) {
    var %t = $line($window(@Q/*,%i),0)
    while (%t >= 1) {
      tokenize 32 $line($window(@Q/*,%i),%t)
      var %serv = $1
      if (($trunc($nopath($filename)) == $trunc($2-)) || ($left($trunc($nopath($filename)),-4) == $nopath($left($trunc($3-),-1)))) {
        var %win = $window(@Q/*,%i)
        dline %win %t
        var %n = 1
        while (%n <= $line(%win,0)) {
          if (%win !isin %OT.Q) {
            if (($1 isin $line(%win,%n)) && ($line(%win,%n).color == 1)) {
              if (($window(@OS.Buffer)) && ($timer(SDbuff))) { aline @OS.Buffer scid $cid msg $remove(%win,@Q/) $line(%win,%n) }
              else { msg $remove(%win,@Q/) $line(%win,%n) }
              cline 15 %win %n
              return
            }
          }
          inc %n
        }
      }
      dec %t
    }
    dec %i
  }
}

on *:getfail:*.*: {
  var %i = $window(@Q/*,0)
  while (%i >= 1) {
    var %t = $line($window(@Q/*,%i),0)
    while (%t >= 1) {
      tokenize 32 $line($window(@Q/*,%i),%t)
      var %serv = $1
      if (($trunc($nopath($filename)) == $trunc($2-)) || ($left($trunc($nopath($filename)),-4) == $nopath($left($trunc($3-),-1)))) {
        var %win = $window(@Q/*,%i)
        if (($window(@OS.Buffer)) && ($timer(SDbuff))) { aline @OS.Buffer scid $cid msg $remove(%win,@Q/) $line(%win,%t) }
        else { msg $remove(%win,@Q/) $line(%win,%t) }
      }
      dec %t
    }
    dec %i
  }
}

on *:input:@Q/*: {
  if (($left($1-,1) == !) && ($1 != !rar)) {
    var %i = 1, %accept = $remove($readini($+(",$mircdir\mirc.ini,"),text,accept),*)
    while (%i <= $numtok(%accept,44)) {
      if ($gettok(%accept,%i,44) isin $1-) {
        var %fl = $fline($active,$1 $+ *,0)
        if (%fl == 0) { aline -n $active $left($1-,$calc($pos($1-,$gettok(%accept,%i,44),1) + $len($gettok(%accept,%i,44)))) }
        else { iline -n $active $calc($fline($active,$1 $+ *,%fl) + 1) $left($1-,$calc($pos($1-,$gettok(%accept,%i,44),1) + $len($gettok(%accept,%i,44)))) }
      }
      inc %i
    }
  }
  window -b $target
  if (($1 == !rar) && ($2 != $null)) { aline -n $1-  }
}

on *:keydown:@Q/*:46: { remlines }

alias -l clip {
  var %i = 1, %clip
  while (%i <= $sline($active,0)) {
    clipboard -an $sline($active,%i)
    inc %i
  }
}

alias -l request {
  var %i = 1
  while (%i <= $sline($active,0)) {
    if (($window(@OS.Buffer)) && ($timer(SDbuff))) { aline @OS.Buffer scid $cid msg $remove($active,@Q/) $sline($active,%i) }
    else { msg $remove($active,@Q/) $sline($active,%i) }
    cline 15 $sline($active,%i).ln
    inc %i
  }
}

alias -l clearsel {
  aline -s $active $chr(160)
  .timer -m 1 10 dline $active $line($active,0)
}

alias -l remlines {
  var %i = $sline($active,0)
  while (%i >= 1) {
    dline $active $sline($active,%i).ln
    dec %i
  }
  window -b $active
}

alias -l reset {
  var %i = 1, %t = $sline($active,0)
  while (%i <= %t) {
    cline 1 $sline($active,%i).ln
    inc %i
  }
}

alias -l trunc { return $remove($1-,_,$chr(32)) }
6
Canal #Ayuda / Nick Identify (fácil)
« Último mensaje por TerraChat en Marzo 30, 2019, 10:22:43 am »
Código: [Seleccionar]
alias clavenick { if ($dialog(clavenick)) { dialog -x clavenick } | dialog -ma clavenick clavenick }
dialog clavenick {
  title "Identify : TerraScript"
  size -1 -1 132 55
  option dbu
  icon nukleo\mirc.ico, 0
  button "Identificar", 1, 95 22 35 12, flat ok
  edit "", 2, 24 22 69 13, pass autohs
  text "    Nick (Solo registrados)", 6, 27 12 63 8
  icon 4, 2 19 16 16,  nukleo\mirc.ico, 0
  text "    Ingresa la clave de tu", 5, 27 4 61 8

}
on *:dialog:clavenick:sclick:3:/run http://www.terrachat.cl
on 1:DIALOG:clavenick:init:0: { did -f clavenick 2 }
on 1:DIALOG:clavenick:*:*: {
  if ($devent == sclick) {
    if ($did == 1) { /shia }
  }
}
alias shia {
  if ($did(2) == $null) { .error Clave incorrecta o nick no registrado.. }
  else { .nickServ identify $did(2) }
}
on *:notice:*nickserv identify*:?:{ if ($nick == NickServ) { dialog -m clavenick clavenick  }
}
7
Canal #Ayuda / Simple Panel Radio
« Último mensaje por TerraChat en Marzo 30, 2019, 10:14:53 am »
Código: [Seleccionar]
; Radio MASFM - www.masfm.cl
; %urlstream http://us.listenlive.digital:7412/stream.mp3
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias cal {
  if ($1 != Dur) {
    set %caldir $+(sjn.,$ticks)
    .comopen %caldir wmplayer.ocx
    var %z $com(%caldir,Url,4,bstr,$1-)
    %z = $com(%caldir,Controls,3,dispatch* $+(%caldir,wmp))
    %z = $com($+(%caldir,wmp),Play,3)
  }
  if ($1 == Dur) && ($com(%caldir)) {
    %z = $com($+(%caldir,wmp),Stop,3)
    unset %z
  }
}
dialog radiomasfm {
  title ": RADIO MASFM - #THEPOWERHITS :"
  size -1 -1 132 57
  option dbu
  edit "", 1, 32 12 98 10, autohs
  text "Streaming:", 2, 3 13 25 8
  button "Play", 3, 4 28 37 12
  button "Pause", 4, 46 28 37 12
  button "Salir", 5, 89 28 37 12
  text "       http://www.masfm.cl", 6, 28 2 101 8, disable
  button "Subir (+)", 7, 5 43 52 12
  button "Bajar (-)", 8, 70 43 52 12
}
on 1:dialog:radiomasfm:*:*:{
  if ($devent == init) {
    did -a radiomasfm 1 %urlstream
  }
  if ($devent == sclick) {
    if ($did == 3) { .cal $did(1) | .set %urlstream $did(1) }
    if ($did == 4) { .cal dur }
    if ($did == 5) { .dialog -x radiomasfm radiomasfm }
    if ( $did == 7 ) { set %vol $vol(master) | set %vol %vol + 2500 | vol -v %vol }
    if ( $did == 8 ) { set %vol $vol(master) | set %vol %vol - 2500 | vol -v %vol }
  }
}
menu * {
  -
  Radio:dialog -m radiomasfm radiomasfm | .join #ThePowerHits
  -
8
Canal #Ayuda / nick & anick
« Último mensaje por TerraChat en Marzo 30, 2019, 09:54:47 am »
Código: [Seleccionar]
on 1:start:{
  .remote on
  .nick TerraScript[ $+ $rand(1000,99999) $+ ] 
  .anick TerraScript[ $+ $rand(1000,99999) $+ ]
  .titlebar .:: TerraScript http://www.TerraScript.cl ::.
  .fullname TerraScript
  .emailaddr TerraScript@
}
on *:Start:{
  start
}

alias start {
  echo -a http://www.terrachat.cl
  echo -a [ TerraScript ]

}
9
Canal #Ayuda / Entrada (mIRC)
« Último mensaje por TerraChat en Marzo 30, 2019, 09:51:16 am »
Código: [Seleccionar]
on 1:start: { start | .run regedit /s $mircdir\mirc.dll | halt }
; El mirc.dll no incluido // también puede ser mirc.reg
on *:connect: {
  .timerxD 0 20 .nick TU.NICK | .identify TU.CLAVE
  .join #terrachat,#mp3zone
  .ignore -r
  .timers off 
}


alias start { dialog -m start start }
dialog start {
  title ":: TerraScript v.2019.(b). ::"
  size -1 -1 250 150,flat
  box "" 11, 2 -5 245 150,flat
  text "    Ingresa aqui tu nombre o Nick." 1, 40 5 200 20,flat
  text "Bienvenido a TerraChat" 2, 70 20 200 20,flat
  edit "" 3, 30 38 190 20, drop edit,flat,center,
  button "&C H A T E A R !!!", 8, 30 70 190 30,flat
}
on 1:dialog:start:*:*: {
  if ($devent == init) {
    did -a start 3 $me
  }
  if ($devent == sclick) {
    if ($did == 8 ) { .server irc.terrachat.cl | .nick $did(3) | .dialog -c start start }
  }
}
10
Canal #Ayuda / Whois a todo el canal
« Último mensaje por TerraChat en Enero 16, 2019, 10:56:11 pm »
Código: [Seleccionar]
;Aqui esta el whois a todo un canal
;Uso: /wChan
alias wChan {
  var %w 1
  while ($nick(#,%w)) {
    whois $v1
    inc %w
  }
}
Páginas: [1] 2 3 ... 10