Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - TerraChat

Páginas: [1] 2 3 ... 9
1
Canal #Ayuda / !Peak Dialog
« 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
« 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


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
« 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
« 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)
« 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
« 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
« 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)
« 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
« 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
  }
}

11
Canal #Ayuda / mp3 en input
« en: Enero 16, 2019, 10:55:14 pm »
Código: [Seleccionar]
;Uso: mdir
;Descripción: setea la siguiente canción
alias mdir {
  set %mp3dir $$sdir="Donde Estan Tus mp3"
  echo -ea [La dirección de tus mp3s es: %mp3dir $+ ]
}

;Uso: nextsong
;Descripcion: setea la siguiente cancion
alias nextsong {
  if (%mp3dir == $null) mdir
  if (%song == $null) set %song $findfile(%mp3dir,*.mp3,0)
  $iif(%song == $findfile(%mp3dir,*.mp3,0),set %song 1,inc %song)
  mplay $findfile(%mp3dir,*.mp3,%song)
}

;Uso: prevsong
;Descripcion: settea la canción anterior
alias prevsong {
  if (%mp3dir == $null) mdir
  if (%song == $null) set %song 1
  $iif(%song == 1,set %song $findfile(%mp3dir,*.mp3,0),dec %song)
  mplay $findfile(%mp3dir,*.mp3,%song)
}

;Uso: mplay [Cancion]
;Descripcion: pone la canción y lo anuncia
alias mplay {
  if (%mp3dir == $null) mdir
  var %song = $$1- | splay %song
  var %a = $mp3(%song).artist,%t = $mp3(%song).title,%d = $duration($calc($mp3(%song).length / 1000))
  amsg [mþ³]-[Autor: %a $+ ]-[Titulo: %t $+ ]-[Duración: %d $+ ]-[by]-[§hÂdØw]
}

;Escribe:
;.dir = Setea la dirección en donde estan tus mp3 favoritos
;.next = Toca la siguiente cancion
;.prev = Toca la canción anterior
;.play [N (opcional) ] = Quita el pause de la canción | Toca la [N] canción
;.pause = Pone pause a la canción
;.stop = Para la canción
;.rep = Setea modo de repetición [Si esta On setea Off, de lo contrario setea On]
;.cont = Setea modo continuo [Si esta On setea Off, de lo contrario setea On]
on *:input:#: {
  if ($1 == .dir) mdir
  if ($1 == .next) nextsong
  if ($1 == .prev) prevsong
  if ($1 == .play) {
    if ($2) && ($2 isnum) { mplay $findfile(%mp3dir,*.mp3,$2) | set %song $2 }
    elseif ($insong.pause) { splay resume | echo -ea [Resumiendo la Canción] }
    else { echo -ea [Especifica el [Numero] de la cancion] }
  }
  if ($1 == .pause) { splay pause | echo -ea [Canción en Pause] }
  if ($1 == .stop) { splay stop | echo -ea [Deteniendo La Canción] }
  if ($1 == .rep) { set %repeat $iif(%repeat == On,Off,On) | echo -ea [Repetir: %repeat $+ ] }
  if ($1 == .cont) { set %continous $iif(%continous == On,Off,On) | echo -ea [Continuar: %continous $+ ] }
}

;Al finalizar una canción
on *:mp3end: {
  if (%repeat == On) { mplay $filename | return }
  if (%continous == On) { nexts | return }
}

12
Canal #Ayuda / Simple HighlightMe
« en: Enero 16, 2019, 10:50:33 pm »
Cuando te nombran en un canal diferente a tu ventana activa, aparece un mensage en la activa con el contenido del mensage con el formato:

Nick/#Canal/Hora: Msg


Código: [Seleccionar]
on *:text:*:#:{
  if ($me isin $strip($1-)) {
    if ($chan != $active) {
      echo -a   $+ $nick $+ / $+ $Chan $+ / $+ $time $+ : $1-
    }
  }
}

13
Canal #Ayuda / Simple AntiClones
« en: Enero 16, 2019, 10:49:06 pm »
Código: [Seleccionar]
on @*:join:#:{
  if ($ialchan($wildsite,#,0) > 2) {
    ban -u30 # $nick $+ !*@*
    kick # $ialchan($wildsite,#,1).nick Anti Clones: 2 Clones
  }
}

14
#Mp3zone / Comandos XDCC
« en: Enero 16, 2019, 06:59:30 pm »
Comandos para administradores de XDCC

Citar
           ### Info Commands ###
      
  HELP                 : Shows help
  XDLFULL              : Lists all offered packs
  XDLGROUP [group]     : Show packs from <group>
  XDL                  : Lists offered groups and packs without group
  XDLOCK               : Show all locked packs
  XDTRIGGER            : Show all packs with dynamic triggers
  FIND pattern         : List packs that matches <pattern>
  XDS                  : Save state file
  DCL                  : Lists current transfers
  DCLD                 : Lists current transfers with details
  TRINFO id            : Lists information about transfer <id>
  GETL                 : Lists current upload queue
  QUL                  : Lists current queue
  IGNL                 : Show ignored list
  LISTUL [dir]         : Shows contents of upload directory
 DISKFREE             : Shows free space in upload directory

  CHANL [net]          : Shows channel list with member list

           ### Transfer Commands ###

  CLOSE [id]           : Cancels transfer <id>
  CLOSEU [id]          : Cancels upload <id>
  ACCEPTU min [hostmask] : Accepting uploads from <hostmask> for <x> minutes
  GET net nick n [password] : Request pack <n> from bot <nick>
  CLOSEGET net nick    : Cancel Request for bot <nick>
  RMQ [position]       : Removes entry at <position> from main queue
  RMIQ [position]      : Removes entry at <position> from idle queue
  RMALLQ               : Removes entries from idle and main queue
  NOMIN id             : Disables minspeed for transfer <id>
  NOMAX id             : Disables maxspeed for transfer <id>
  UNLIMITED id         : Disables bandwidth limits for transfer <id>
  MAXSPEED id x        : Set max bandwidth limit of <x> kB/s for transfer <id>
  SEND nick n [net]    : Sends pack <n> to <nick>
  QUEUE nick n [net]   : Queues pack <n> for <nick> into main queue
  IQUEUE nick n [net]  : Queues pack <n> for <nick> into idle queue
  BATCH nick n-m [net] : Queues pack <n> to <m> for <nick> into idle queue
  PSEND channel style [net] : Sends <style> (full|minimal|summary) XDCC LIST to <channel>
  QSEND [id]           : Start an extra transfer from main queue
  IQSEND [id]          : Push entry from idle queue into main queue
  SLOTSMAX [slots]     : temporary change slotsmax to <slots>
  QUEUESIZE [slots]    : temporary change queuesize to <slots>
  REQUEUE x y          : Moves main queue entry from position <x> to <y>
  REIQUEUE x y         : Moves idle queue entry from position <x> to <y>

           ### Pack Commands ###

  INFO n               : Show info for pack <n>
  REMOVE n [m]         : Removes pack <n> or <n> to <m>
  REMOVEDIR dir        : Remove every pack found in <dir>
  REMOVEGROUP group    : Remove every pack found in <group>
  REMOVEMATCH pattern  : Remove every pack matching this pattern
  REMOVELOST [pattern] : Remove lost packs matching this pattern
  RENUMBER x [y] z     : Moves packs <x> to <y> to position <z>
  SORT [field] [field] : Sort all packs by fields
  ADD filename         : Add new pack with <filename>
  ADDDIR dir           : Add every file in <dir>
  ADDNEW dir           : Add new files in <dir>
  ADDGROUP group dir   : Add new files in <dir> to <group>
  ADDMATCH pattern     : Add new files matching this pattern
  AUTOADD              : scan autoadd_dirs for new files now
  AUTOCANCEL           : Cancels pending add and remove actions
  AUTOGROUP            : Create a group for each directory with packs
  NOAUTOADD x          : Disables AUTOADD for next <x> minutes
  CHFILE n filename    : Change file of pack <n> to <filename>
  NEWDIR dirname newdir : rename pathnames of all matching packs
  CHDESC n [msg]       : Change description of pack <n> to <msg>
  CHNOTE n [msg]       : Change note of pack <n> to <msg>
  CHTIME n [msg]       : Change add time of pack <n> to <msg>
  CHMINS n [m] x       : Change min speed to <x> kB/s for pack <n> to <m>
  CHMAXS n [m] x       : Change max speed to <x> kB/s for pack <n> to <m>
  CHLIMIT n [m] x      : Change download limit to <x> transfers per day for pack <n> to <m>
  CHLIMITINFO n [msg]  : Change over limit info of pack <n> to <msg>
  CHTRIGGER n [msg]    : Change trigger for pack <n> to <msg>
  DELTRIGGER n [m]     : Delete trigger for pack <n> to <m>
  CHGETS n [m] x       : Set the get counter to <x> for pack <n> to <m>
  CHCOLOR n [m] x[,b][,s] : Set the pack <n> to <m> to color <x>, background <b> and style <s>
  LOCK n [m] password  : Lock the pack <n> to <m> with <password>
  UNLOCK n [m]         : Unlock the pack <n> to <m>
  LOCKGROUP group password : Lock all packs in <group> with <password>
  UNLOCKGROUP group    : Unlock all packs in <group>
  RELOCK old-password password : Lock all packs with <old-password> with <password>
  GROUPDESC group msg  : Change description of <group> to <msg>
  GROUP n group        : Change group of pack <n> to <group>
  MOVEGROUP n m group  : Change group to <group> for pack <n> to <m>
  REGROUP group new    : Change all packs of <group> to group <new>
  NEWGROUP group dir   : Change any files in <dir> to <group>
  ANNOUNCE n [msg]     : ANNOUNCE <msg> for pack <n> in all joined channels
  NEWANN n [channel] [net] : ANNOUNCE for the last <n> packs in all joined channels
  MANNOUNCE n m [msg]  : ANNOUNCE <msg> for pack <n> to <m> in all joined channels
  CANNOUNCE channel n [msg] : ANNOUNCE <msg> for pack <n> in <channel>
  SANNOUNCE n [m]      : Short ANNOUNCE pack <n> to <m> in all joined channels
  NOANNOUNCE x         : Disables all announces for next <x> minutes
  ADDANN filename      : Add and announce new pack
  MD5 [n] [m]          : Calculate MD5 and CRC sums of pack <n> to <m>
  CRC [n] [m]          : Check CRC of pack <n> to <m>

           ### File Commands ###

  FILEMOVE filename newfile : rename file on disk
  MOVEFILE n filename  : rename the file of pack <n> on disk to <filename>
  MOVEGROUPDIR group dir : move any file in group <g> to dir <dir>
  FILEDEL filename     : remove file from disk
  FILEREMOVE n [m]     : remove pack <n> or <n> to <m> and remove its file from disk
  SHOWDIR dir          : list directory on disk
  MAKEDIR dir          : create a new directory on disk

           ### Misc Commands ###

  MSG nick message     : Send <message> to user or channel <nick>
  AMSG msg             : Announce <msg> in all joined channels
  MSGNET net nick message : Send <message> to user or channel <nick>
  MESG message         : Sends <message> to all users who are transferring
  MESQ message         : Sends <message> to all users in a queue
  IGNORE x hostmask    : Ignore <hostmask> (nick!user@host) for <x> minutes, wildcards allowed
  UNIGNORE hostmask    : Un-Ignore <hostmask>
  BANNHOST x hostmask  : Stop transfers and ignore <hostmask> (nick!user@host) for <x> minutes
  BANNNICK nick [net]  : Stop transfers and remove <nick> from queue
  NOSAVE x             : Disables autosave for next <x> minutes
  NOSEND x [msg]       : Disables XDCC SEND for next <x> minutes
  NOLIST x             : Disables XDCC LIST and plist for next <x> minutes
  NOMD5 x              : Disables MD5 and CRC calculation for next <x> minutes
  MSGREAD              : Show MSG log
  MSGDEL               : Delete MSG log
  RMUL filename        : Delete a file in the upload dir
  RAW command          : Send <command> to server (RAW IRC)
  RAWNET net command   : Send <command> to server (RAW IRC)
  LAG [net]            : Show lag on networks

           ### Bot Commands ###

  SERVERS [net]        : Shows the server list
  HOP [channel] [net]  : leave and rejoin a channel to get status
  NOCHANNEL x [channel] : leave channel for <x> minutes
  JOIN channel [net] [key] : join channel till rehash
  PART channel [net]   : part channel till rehash
  JUMP server [net]    : Switches to a random server or server <server>
  SERVQC [net]         : Clears the server send queue
  STATUS               : Show Useful Information
  REHASH               : Re-reads config file(s) and reconfigures
  BOTINFO              : Show Information about the bot status
  MEMSTAT              : Show Information about memory usage
  VERSION              : Show Information about iroffer version
  CLEARRECORDS         : Clears transfer, bandwidth, uptime, and transfer limits
  CLEARGETS            : Clears download counters for each pack and total sent and uptime
  CHATME               : Sends you a DCC Chat Request
  CHATL                : Lists DCC chat information
  CLOSEC [id]          : Closes DCC chat <id>
  CONFIG key value     : Set config variable <key> to <value>
  PRINT key            : Print config variable <key>
  IDENTIFY [net]       : Send stored password again to nickserv
  HOLDQUEUE [x]        : Change holdqueue flag, x=1 set, x=0 reset
  OFFLINE [net]        : Close given network or all networks
  ONLINE [net]         : Connect to given network or to all networks
  SHUTDOWN act         : Shutdown iroffer, <act> is "now", "delayed", or "cancel"
  DUMP                 : Write a dump into the logfile
  RESTART              : Shutdown and restart the bot

15
#Mp3zone / Que es un XDCC
« en: Enero 15, 2019, 03:33:23 pm »
XDCC (Xabi DCC o eXtended DCC) fue inicialmente un script escrito en 1994 para ircII por Xabi. Este script es una ampliación del comando DCC de ircII.

Ahora XDCC hace referencia a bots de IRC ejecutando aplicaciones de compartición de archivos en general. Los bots XDCC sirven uno o más archivos, generalmente de gran tamaño, para descarga a través del protocolo DCC. A pesar de que XDCC se usa comúnmente para la distribución de material ilegal, como warez (paquetes de software), también puede ser utilizado de forma legal.

XDCC está ganando popularidad sobre viejos medios tales como grupos de noticias y DCC. Al contrario que las transferencias peer-to-peer, los servidores XDCC se alojan a menudo en conexiones con un ancho de banda de subida elevado, a veces hasta 100 Mbit. A menudo se ejecutan servidores FTP en los servidores XDCC para facilitar la subida del material. Algunos servidores XDCC se ejecutan en máquinas hackeadas. (no todas, algunas están instaladas en VPS privadas).

Para usar XDCC, uno puede enviar un mensaje privado (query) o enviar un comando CTCP a un bot, usando un cliente de IRC. El usuario puede preguntar a un bot qué archivos tiene mediante el mensaje privado "xdcc list". Sin embargo, esta característica está a menudo desactivada para no atraer mucho la atención. Cuando un usuario quiere descargar un paquete o archivo del bot, debería teclear algo como "xdcc send #<pack number>" al bot. El bot comenzará a enviar el paquete al usuario o colocará al usuario en una cola de transferencias, en la que tendrá que esperar su turno.

Comandos XDCC comunes
A menos que se diga lo contrario, la mayoría de comandos se pueden enviar mediante ctcp en vez de msg. Algunos servidores desactivan los comandos msg.

Citar
/msg <botname> xdcc send #<pack number> - Solicita el número de paquete especifico al bot.
/msg <botname> xdcc list - Solicita una lista de paquetes disponibles al bot.
/msg <botname> xdcc remove - Elimina los archivos de la cola de envío. (Esto sólo funciona vía msg.)
/msg <botname> xdcc remove #<queue number> - Elimina el archivo de la posición de la cola especificada. (Esto sólo funciona vía msg.)
/msg <botname> xdcc info #<pack number> - Solicita información sobre un número de paquete específico.


DONDE BAJAR ARCHIVOS TALES COMO 0DAY, APPS, ANDROID, ROMS, MUSIC, IRC, SCRIPT, TCL, XXX, EBOOK, TORRENTS, GAMES, KARAOKE ... ETC.

CONECTAR AL SERVIDOR: /SERVER IRC.TERRACHAT.CL
CONECTAR A LA SALA: /JOIN #MP3ZONE
CONECTAR A LA SALA: /JOIN #EBOOKS


Puedes ver algunos de los packs en el siguiente link: https://goo.gl/Mn7V71


Páginas: [1] 2 3 ... 9