on *:START:{
  if (!$hget(Visits)) { .hmake Visits } 
  if ($exists(Visits.txt)) { .hload Visits Visits.txt } 
} 

on *:EXIT:{ 
  .hsave Visits Visits.txt
} 

on *:Join:#:{
  .var %x = $calc($gettok($hget(Visits,$+($network,.,Count,.,$chan)),1,32) + 1)
  .var %y = $calc($gettok($hget(Visits,$+($network,.,$chan,.,$nick)),1,32) + 1)
  if (!$hget(Visits,$+($network,.,Count,.,$chan))) { .notice $nick Welcome to $+($chan,$chr(44)) $+($nick,.) You are visitor $+($chr(35),1) to join $+($chan,.) | .hadd Visits $+($network,.,Count,.,$chan) 1 | .hadd Visits $+($network,.,$chan,.,$nick) 1 $asctime(mm/dd/yyyy) $ctime | .hsave Visits Visits.txt } 
  elseif (!$hget(Visits,$+($network,.,$chan,.,$nick))) { .notice $nick Welcome to $+($chan,$chr(44)) $+($nick,.) You are visitor $+($chr(35),%x) to join $+($chan,.) | .hadd Visits $+($network,.,$chan,.,$nick) 1 $asctime(mm/dd/yyyy) $ctime | .hadd Visits $+($network,.,Count,.,$chan) %x | .hsave Visits Visits.txt }
  else { .notice $nick Welcome to $+($chan,$chr(44)) $+($nick,.) This is your $+($chr(35),%y) visit to $+($chan,.) Your last visit was on $+($gettok($hget(Visits,$+($network,.,$chan,.,$nick)),2,32),$chr(44)) $duration($calc($ctime - $gettok($hget(Visits,$+($network,.,$chan,.,$nick)),3,32))) ago. | .hadd Visits $+($network,.,$chan,.,$nick) %y $asctime(mm/dd/yyyy) $ctime | .hsave Visits Visits.txt }
}

on $*:Text:/^[!@]Visitors/Si:#:{
  if (!$2) {
    if (!$hget(Visits,$+($network,.,Count,.,$chan))) { $iif($left($1-,1) == @,.msg $chan,.notice $nick) I have not recorded anyone joining $+($chan,.) }
    elseif ($gettok($hget(Visits,$+($network,.,Count,.,$chan)),1,32) = 1) { $iif($left($1-,1) == @,.msg $chan,.notice $nick) $chan has had 1 visitor. }
    else { $iif($left($1-,1) == @,.msg $chan,.notice $nick) $chan has had $gettok($hget(Visits,$+($network,.,Count,.,$chan)),1,32) visitors. } 
  }
  if ($2) {
    $iif($left($2,1) == $chr(35),.set %a $2,.set %a $+($chr(35),$2))
    if (!$hget(Visits,$+($network,.,Count,.,%a))) { $iif($left($1-,1) == @,.msg $chan,.notice $nick) I have not recorded anyone joining $+(%a,.) }
    else { 
      if ($gettok($hget(Visits,$+($network,.,Count,.,%a)),1,32) = 1) { $iif($left($1-,1) == @,.msg $chan,.notice $nick) %a has had 1 visitor. }     
      else { $iif($left($1-,1) == @,.msg $chan,.notice $nick) %a has had $gettok($hget(Visits,$+($network,.,Count,.,%a)),1,32) visitors. }
    }      
    .unset %a 
  }        
}

on $*:Text:/^[!@]Visits/Si:#:{
  if (!$2) {
    if (!$hget(Visits,$+($network,.,$chan,.,$nick))) { $iif($left($1-,1) == @,.msg $chan,.notice $nick)) I have not recorded $nick joining $+($chan,.) }
    elseif ($gettok($hget(Visits,$+($network,.,$chan,.,$nick)),1,32) == 1) { $iif($left($1-,1) == @,.msg $chan,.notice $nick)) $nick has visited $chan 1 time, your last visit was on $+($gettok($hget(Visits,$+($network,.,$chan,.,$nick)),2,32),$chr(44)) $duration($calc($ctime - $gettok($hget(Visits,$+($network,.,$chan,.,$nick)),3,32))) ago. }
    else { $iif($left($1-,1) == @,.msg $chan,.notice $nick)) $nick has visited $chan $gettok($hget(Visits,$+($network,.,$chan,.,$nick)),1,32) times, your last visit was on $+($gettok($hget(Visits,$+($network,.,$chan,.,$nick)),2,32),$chr(44)) $duration($calc($ctime - $gettok($hget(Visits,$+($network,.,$chan,.,$nick)),3,32))) ago. }
  }
  if ($2) { 
    if (!$3) {
      if (!$hget(Visits,$+($network,.,$chan,.,$2))) { $iif($left($1-,1) == @,.msg $chan,.notice $2)) I have not recorded $2 joining $+($chan,.) }
      elseif ($gettok($hget(Visits,$+($network,.,$chan,.,$2)),1,32) == 1) { $iif($left($1-,1) == @,.msg $chan,.notice $nick)) $2 has visited $chan 1 time, their last visit was on $+($gettok($hget(Visits,$+($network,.,$chan,.,$2)),2,32),$chr(44)) $duration($calc($ctime - $gettok($hget(Visits,$+($network,.,$chan,.,$2)),3,32))) ago. }
      else { $iif($left($1-,1) == @,.msg $chan,.notice $2)) $2 has visited $chan $gettok($hget(Visits,$+($network,.,$chan,.,$2)),1,32) times, their last visit was on $+($gettok($hget(Visits,$+($network,.,$chan,.,$2)),2,32),$chr(44)) $duration($calc($ctime - $gettok($hget(Visits,$+($network,.,$chan,.,$2)),3,32))) ago. }
    }
    if ($3) {
      $iif($left($3,1) == $chr(35),.set %b $3,.set %b $+($chr(35),$3))
      if (!$hget(Visits,$+($network,.,%b,.,$2))) { $iif($left($1-,1) == @,.msg $chan,.notice $2)) I have not recorded $2 joining $+(%b,.) }
      elseif ($gettok($hget(Visits,$+($network,.,%b,.,$2)),1,32) == 1) { $iif($left($1-,1) == @,.msg $chan,.notice $nick)) $2 has visited %b 1 time, their last visit was on $+($gettok($hget(Visits,$+($network,.,%b,.,$2)),2,32),$chr(44)) $duration($calc($ctime - $gettok($hget(Visits,$+($network,.,%b,.,$2)),3,32))) ago. }
      else { $iif($left($1-,1) == @,.msg $chan,.notice $2)) $2 has visited %b $gettok($hget(Visits,$+($network,.,%b,.,$2)),1,32) times, their last visit was on $+($gettok($hget(Visits,$+($network,.,%b,.,$2)),2,32),$chr(44)) $duration($calc($ctime - $gettok($hget(Visits,$+($network,.,%b,.,$2)),3,32))) ago. }
    }     
    .unset %b
  }
}