ON *:TEXT:*:#:{
  if ($+(*,$me,*) iswm $1-) {

    if ($window(@Called)) { aline $rand(1,7) @Called $nick at  $chan $+ , $time he said: $1- $+ . | .write called.txt $nick at  $chan $+ , $time he said: $1- $+ . }
    else { window -g1k0 @Called | aline 0 @Called $nick has called you on $chan at $time saing: $1- $+ . }
  }
}
ON *:ACTION:*:#:{
  if ($+(*,$me,*) iswm $1-) {
    /beep 4
    if ($window(@Called)) { aline $rand(1,7) @Called $nick at  $chan $+ , $time he said: $1- $+ . | .write called.txt $nick at  $chan $+ , $time he said: $1- $+ . }
    else { window -g1k0 @Called | aline 0 @Called $nick has called you on $chan at $time saing: $1- $+ . }
  }
}