Utimer

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Feb 18, 2008
Last Updated	Feb 18, 2008
Tags	timer

Introduction

This script is "utimer" script, with it you can basically save timers which will expire in a long time like a year. The timers are saved into a hash table which will be saved on disconnection or when you exit your mirc. The script is simple, you can feel free to modify it in your needs.

Grab the Code

on *:load:{ 
  timer 0 10 unsettimers 
  if (!$hget(timers)) { hmake timers | hsave timers timers.hsh }
}
on *:exit:{ 
  if ($hget(timers)) { hsave timers timers.hsh }
}
on *:disconnect:{ 
  if ($hget(timers)) { hsave timers timers.hsh }
}
on *:connect:{ 
  timer 0 10 unsettimers
  if (!$hget(timers)) { hmake timers | hsave timers timers.hsh }
}
alias utimer {
  hadd timers $+(timer,$ctime,�,$calc($ctime + $1)) $2-
  echo 2 -a * Timer: $duration($1) ( $+ $1 $+ ): $2-
}
alias utimers {
  if ($hfind(timers,$+(timer,*),0,w) == 0) { echo 2 -a * no active utimers }
  else {
    var %x $hfind(timers,$+(timer,*),0,w)
    while (%x) {
      echo 2 -a * Timer $+ %x (Will unset: $asctime($gettok($hfind(timers,$+(timer,*),%x,w),2,255))) $+ ): $hget(timers,$hfind(timers,$+(timer,*),%x,w))
      dec %x
    }
  }
}
alias unsettimers {
  if ($hfind(timers,$+(timer,*),0,w) > 0) {
    var %x $hfind(timers,$+(timer,*),0,w)
    while (%x) {
      if ($gettok($hfind(timers,$+(timer,*),%x,w),2,255) < $ctime) { $hget(timers,$($hfind(timers,$+(timer,*),%x,w))) | hdel timers $hfind(timers,$+(timer,*),%x,w) }
      dec %x
    }
  }
}

Comments

(0) RSS

Go to Bottom

Utimer

Introduction

Grab the Code

Comments

juhapuha

My Snippet Tags

Contact

Sponsors


Last seen: Jul 14, 2008 Profile Snippets (17) Comments Received (104) Comments Submitted (57)