duckhunt

ON *:TEXT:!shoot:#: {
  if (!%duck) {
    if (!%noduckshoot) {
      set -u60 %noduckshoot 1
      msg $chan $nick shoots in the air and scares away some birds in the distance... the gunshot echoes till the other side of the lake...
    }
    elseif (%noduckshoot) {
      msg $chan $nick shoots at what looks like a duck shape but it actualy was a weirdly shaped branch...
    }
  }
  if (%duck) {
    var %dtime = $calc(($ticks - %duck) / 1000)
    unset %duck
    .timerduckend* off
    if (%dtime < %duckrecord) || (!%duckrecord) {
      if (%duckrecord) { var %diftime = $calc(%duckrecord - %dtime) }
      globalmsg -n $iif($nick $network == %ducknick %ducknet, $nick of $network beat their own record of %duckrecord seconds with a shot at %dtime seconds, $nick on $network shot the duck in %dtime seconds.  $iif(%diftime, $v1 seconds faster than %ducknick of %ducknet))
      set %ducknet $network
      set %ducknick $nick
      set %duckrecord %dtime
    }
    if (%dtime > %duckrecord) {
      var %diftime = $calc(%dtime - %duckrecord)
      globalmsg -n $nick of $network shot the duck in %dtime seconds. $iif($nick $network == %ducknick %ducknet, %diftime seconds slower than the record they set [ %duckrecord seconds ], %diftime seconds slower than %ducknick of %ducknet [ %duckrecord seconds ])
    }
  }
}

alias duck {
  set %duck $ticks
  globalmsg -n QUACK QUACK!!!
  .timerduckend1 1 15 unset %duck
  .timerduckend2 1 15 globalmsg -n The duck flew away...
  .timerduckstart 1 $rand(1700,3600) duck
}