on *:TEXT:*!Ray*:#: { if (%scalekill == 0) { /Ray $nick
    set %scalekill 1
timerscalekill 1 5 set %scalekill 0 } }

alias Ray {
  if ($me = Ray) {
    if (%scaletime = 0) {
      if %secdec == 1 { describe $chan still belongs to %scalenick for 1 more second! }
      elseif %secdec < 60 { describe $chan still belongs to %scalenick for %secdec more seconds, because Ray is still one %scalenick $+ 's head .-. }
      else {
        if $round($calc( %secdec / 60 ),0) = 1 { describe $chan still belongs to %scalenick for $round($calc( %secdec / 60 ),0) more minute, because Ray is still on %scalenick $+ 's head .-. }
        else {
          if $round($calc( %secdec / 60 ),0) > 1 { describe $chan still belongs to %scalenick for $round($calc( %secdec / 60 ),0) more minutes, because Ray is still on %scalenick $+ 's head .-. }
        }
      }
    }
    else {
      %stime = $rand(5,20)
      %scalenick = $1
      if %stime = 1 { describe $chan now belongs to %scalenick for %stime minute, and climbs on %scalenick $+ 's head :3 }
      else { describe $chan now belongs to %scalenick for %stime minutes, and climbs on %scalenick $+ 's head :3 }
      %scaletime = 0
      %secdec = $calc( %stime * 60 )
      timerrayleft $calc( %stime * 60 ) 1 dec %secdec
      timerray 1 $calc( %stime * 60) set %scaletime 1
    }
  }
}
ctcp *:act:*: if ($nick == %scalenick) /describe $$2 $$3- ( $+ $nick $+ )
;ctcp *:say:*: if ($nick == %scalenick) /msg $$2 $$3- ( $+ $nick $+ )

ctcp *:say:*: {
  if ($nick == %scalenick) {
    if (! isin $3) {
      /notice $nick 5Afraid I can't let you do that >:D, 6 $+ $nick $+ .
      halt
    }
    else {
      /msg $$2 $$3- ( $+ $nick $+ )
    }
  }
}


alias varset { unset %scalenick | set %scalekill 0 | unset %scaletime | msg $chan 3[Variables kinda scaly :3c] }