Calendario

[TerraChat]

Código [Seleccionar] Expandir

bind pub - !keygen pub:keygen

proc pub:keygen {nick host hand chan arg} {

  if {$arg==""} {
    set arg $nick
  } else {
    set arg [lindex $arg 0]
  }
  set tablero "11 6 17 12 12 14 5 12 16 10 11 6 14 14 4 11 9 12 11 10 8 10 10 16 8 4 6 10 12 16 8 1"
  set contador 3
  if {[string length $arg]<5} {
    putserv "PRIVMSG $chan :\002\037ERROR\037:\002 El nombre de usuario debe tener al menos 5 caracteres."
    return 0
  }
  set parte1 0
  set parte2 0
  set largo [string length $arg]
  while {$contador<$largo} {
    scan [string index $arg $contador] %c codascii ;
    scan [string index $arg [expr $contador-1]] %c codascii2 ;
    set parte1 [expr $parte1 + $codascii * [lindex $tablero [expr $contador-3]]]
    set parte2 [expr $parte2 + $codascii * $codascii2 * [lindex $tablero [expr $contador-3]]]
    incr contador
  }
  putserv "PRIVMSG $chan :KEYGEN - Para Registrar tu mIRC pon: alt + H, luego vaz a REGISTER .. y ahi ponez Usuario: $arg Key: $parte1-$parte2 "
}

putlog "=== keygen @ TerraChat ==="