on *:JOIN:#:{ 
  if ($nick != $me) {
    set %nick $nick
    set %mask $address($nick,2)
    set %nick2 $readini profili.ini %mask nick
    set %mask2 $readini profili.ini %mask mask
    if (%mask == %mask2) {
      if (%nick != %nick2) {
        set %quand $readini profili.ini %mask quand
        beep
        $iif(!$window(@log),window -z @log)
        aline -hp @log 0- $- $time $+ - 9( $+ $chan $+ )4 $nick ha joinato in precedenza con il nick %nick2 7( %quand )
        var %c = 1
        while (%c <= $comchan($nick,0)) { 
          echo $comchan($nick,%c) 4--> $+ $nick era conosciuto in precedenza con il nick 4 $+ %nick2 7(alle $gettok(%quand,1,45) 7del $gettok(%quand,2,45) $+ 7)
          inc %c 
        }
      }
    }
    if (!$ini(profili.ini,mask)) hashtable
  }
}

alias hashtable { 
  if (!$hget(profilo)) { hmake profilo 5 } 
  hadd profilo nick %nick 
  hadd profilo mask %mask 
  hadd profilo quand $time $+ - $+ $date
  hsave -sai profilo profili.ini $hget(profilo,mask) 
  hfree profilo 
}


dialog Old_user_nick {
  title "Rivela Nick"
  size -1 -1 160 67
  radio "Attiva"1,10 10 50 20
  radio "Disattiva"2,10 35 60 20
  button "Ok"5,80 10 50 20,ok
  button "Annulla"6,80 35 50 20,cancel
}
on *:dialog:Old_user_nick:init:0: {
  if (%Old_user_nick = on) { did -cf Old_user_nick 1 }
  else { did -cf Old_user_nick 2 }

}
on *:dialog:Old_user_nick:sclick:*: {
  if ($did = 1) { set %Old_user_nick on | splay -m sounds/attiva.wav | echo -a 4[11Rivela Nick4] 11Attivato }
  if ($did = 2) { set %Old_user_nick off | splay -m sounds/disattiva.wav | echo -a 4[11Rivela Nick4] 11Disattivato }
}
alias Ti_Cerca { /dialog -m Old_user_nick Old_user_nick }
}
