Latest Channel Limit

on *:JOIN:#fd: {
  if ($nick == $me) { halt }  
  set %usernum $nick(#,0)
  .timer 1 $r(5,30) mode $chan +l $calc(%usernum + 1)
  var %tempgreet $r(1,10)
  if (%tempgreet == 1) { set %fd.greet Welcome Back $nick }
  if (%tempgreet == 2) { set %fd.greet Howzat $nick }
  if (%tempgreet == 3) { set %fd.greet Hello $nick }
  if (%tempgreet == 4) { set %fd.greet Howdi doodee $nick }
  if (%tempgreet == 5) { set %fd.greet Good to see you are back $nick }
  if (%tempgreet == 6) { set %fd.greet Hi $nick }
  if (%tempgreet == 7) { $iif($time > 12:00:00 && $time < 17:59:59,set %fd.greet Good Afternoon $nick,$iif($time > 17:59:59 && $time < 23:59:59,set %fd.greet Good Evening $nick,set %fd.greet Good Morning $nick)) } 
  if (%tempgreet == 8) { $iif($time > 12:00:00 && $time < 17:59:59,set %fd.greet Good Afternoon $nick,$iif($time > 17:59:59 && $time < 23:59:59,set %fd.greet Good Evening $nick,set %fd.greet Good Morning $nick)) }
  if (%tempgreet == 9) { $iif($time > 12:00:00 && $time < 17:59:59,set %fd.greet Good Afternoon $nick,$iif($time > 17:59:59 && $time < 23:59:59,set %fd.greet Good Evening $nick,set %fd.greet Good Morning $nick)) }
  if (%tempgreet == 10) { $iif($time > 12:00:00 && $time < 17:59:59,set %fd.greet Good Afternoon $nick,$iif($time > 17:59:59 && $time < 23:59:59,set %fd.greet Good Evening $nick,set %fd.greet Good Morning $nick)) }
  var %ttemp $right($read(C:\Terrick\Acidmax\LastSaid.txt,s, $nick),10)
  var %yu = $read(data\seen.txt, s, $nick ) 
  var %yu1 = $duration($calc($ctime - $gettok(%yu,4,32))) 
  msg #fd %fd.greet $+ , You were [LAST SEEN] as " $+ $nick $+ " $replace(%yu,$gettok(%yu,4,32),%yu1 ago) [SAYING]: $remove($read(C:\Terrick\Acidmax\LastSaid.txt,s, $nick),1,2,3,4,5,6,7,8,9,0)
}

on *:PART:#fd: {
  .timer 1 $r(5,30) mode $chan +l $calc($chan(#fd).limit - 1)
}

on *:KICK:#fd: {
  .timer 1 $r(5,30) mode $chan +l $calc($chan(#fd).limit - 1)
}

on *:quit:{
  var %i 1 
  var %c $comchan($nick,0)
  while %i <= %c {
    if ($me isop $comchan($nick,%i)) && ($comchan($nick,%i) == #fd) { 
      timer4 1 1 mode $comchan($nick,%i) +l $calc($chan(#fd).limit - 1)  
    }
    inc %i
  }
}