napa182 commented on a Page, !peak script for a bot  -  Apr 25, 2010

um this should make it like that just after you load the code type /hfree peak so you can start fresh..

#Peak on
on $@*:text:/^@peak$/iS:#:if ($nick isop #) msg # $iif(!$hget(Peak,$+($network,#)),Sorry No count yet.,Most users on04 # was04 $gettok($hget(Peak,$+($network,#)),1-11,32) before $+($duration($calc($ctime - $gettok($hget(Peak,$+($network,#)),12,32)),1),!))
on !*:join:#: { 
  if ($nick(#,0) > $gettok($hget(Peak,$+($network,#)),1,32) || !$hget(Peak,$+($network,#))) { 
    .hadd -m Peak $+($network,#) $nick(#,0) Users on04 $date(m/d/yy) at04 $time(h:nn tt) with last joiner $+($nick,$chr(44)) $ctime
    msg # !!New User Peak Record Reached!! In04 # With04 $gettok($hget(Peak,$+($network,#)),1-7,32) 
  } 
}
#Peak end
on *:start:{ $Peakstartup } 
on *:connect:{ $Peakstartup }
on *:exit:{  $Peakclose } 
on *:disconnect:{ $Peakclose }
alias -l Peakclose { .hsave Peak $qt($scriptdirPeak.hsh)  } 
alias -l Peakstartup {  
  if (!$hget(Peak)) { .hmake Peak 100 } 
  if ($exists($qt($scriptdirPeak.hsh))) { .hload Peak $qt($scriptdirPeak.hsh) } 
}
menu Channel,menubar {
  .Turn Peak $iif($group(#Peak) = On,Off,On): $iif($group(#Peak) = On,.disable,.enable) #Peak | echo -a Peak Script is now $group(#Peak)
}
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.