;########################
; 
;      Dcc Locker
;    By [SaRRiO] 2000
;   sarrio@univers.org
;
;########################


; para iniciar el dcc locker teclea: /dcclocker 
; la idea de "administrar" el dcc locker en una "window" fue extraida del IRcap (autor GSi)

alias dcclocker {
  sockclose DCCLOCKER | sockclose locking
  set %locker.port.tmp $rand(2000,5000)
  socklisten DCCLOCKER %locker.port.tmp
  window -ak +fbn @DCCLOCKER 300 300 300 100 arial 13
  titlebar @DCCLOCKER a $$1
  echo @dcclocker 10Conectando con12 $$1
  .notice $$1 DCC Chat ( $+ $ip $+ )
  raw -q privmsg $$1 :
DCC CHAT chat $longip($ip) %locker.port.tmp $+ 

}

on 1:SOCKLISTEN:DCCLOCKER:{
  sockaccept locking
  echo @dcclocker 1conectado... blokeando dcc
  set %locker.chr  $+ $rand(1,15) $+ , $+  $rand(1,15) $chr($rand(100,300))
  sockwrite -n locking $str(%locker.chr,25)
}

on 1:SOCKWRITE:locking:{
  set %locker.chr  $+ $rand(1,15) $+ , $+  $rand(1,15) $chr($rand(100,300))
  sockwrite -n locking $str(%locker.chr,25)
}

on 1:SOCKCLOSE:locking: echo @dcclocker 6Conexión cerrada.. | .timer 1 2 close -c@ @dcclocker

on 1:CLOSE:@DCCLOCKER:{ sockclose locking | sockclose dcclocker 
  echo -s 1 Dcc Locker detenido por el usuario...
}

 Volver a la página principal