on *:TEXT:*!icey*:#: { if (%floodkill == 0) { /icey $nick
    set %floodkill 1
timerfloodkill 1 5 set %floodkill 0 } }
on *:TEXT:*!steal*:#: {
  if (%espynick == $nick) { halt }
  if (%iftime == 1) { halt }
  set %thief $rand(1,20)
  if (%espythiefset == 0) && (%thief == 20) { set %iftime 1
  espeon $nick }
  if (%espythiefset == 0)  && (%thief < 20) { espeon }
  if (%espythiefset == 0)  { set %espythiefset 1
  timerespythiefset 1 30 set %espythiefset 0 }
}
alias icey {
  if (%iftime = 0) {
    if %secdec == 1 { describe $chan still belongs to %espynick for 1 more second! }
    elseif %secdec < 60 { describe $chan still belongs to %espynick for %secdec more seconds }
    else {
      if $round($calc( %secdec / 60 ),0) = 1 { describe $chan still belongs to %espynick for $round($calc( %secdec / 60 ),0) more minute }
      else {
        if $round($calc( %secdec / 60 ),0) > 1 { describe $chan still belongs to %espynick for $round($calc( %secdec / 60 ),0) more minutes }
      }
    }
  }
  else {
    %time = $rand(1,15)
    %espynick = $1
    if %time = 1 { describe $chan now belongs to %espynick for %time minute }
    else { describe $chan now belongs to %espynick for %time minutes }
    %iftime = 0
    %secdec = $calc( %time * 60 )
    timerespyleft $calc( %time * 60 ) 1 dec %secdec
    timerespy 1 $calc( %time * 60) set %iftime 1
  }
}
on *:START: { set %floodkill 0 | unset %iftime | unset %espynick }
alias varset { unset %espynick | set %floodkill 0 | unset %iftime | msg $chan [!icey vars reset] }