:: Remote
on *:text:!aktiivisuus*:#pulina: {
  if ($me == tuomitsija) {
    if ($2 == $null) {
    /notice $nick Aktiivisuusprosentti ( $+ $nick $+ ): $round($calc($gettok($read(C:\users\prime7\appdata\roaming\mirc\scripts\vars.ini, w, *pul. $+ $nick *),2,32) / 14400 * 100 ),2) $+ % }
    else {
    /notice $nick Aktiivisuusprosentti ( $+ $2 $+ ): $round($calc($gettok($read(C:\users\prime7\appdata\roaming\mirc\scripts\vars.ini, w, *pul. $+ $2 *),2,32) / 14400 * 100 ),2) $+ % } } }
on *:text:*:#pulina: {
  if ($me == tuomitsija) {
    /inc -z %pul. $+ $nick 144
    if ($gettok($read(C:\users\prime7\appdata\roaming\mirc\scripts\vars.ini, w, *pul. $+ $nick *),2,32) > 14400) {
    /mode #pulina +v $nick } } }
on *:text:!aktiivisuus*:?: {
  if ($me == tuomitsija) {
    if ($2 == $null) {
    /notice $nick Aktiivisuusprosentti ( $+ $nick $+ ): $round($calc($gettok($read(C:\users\prime7\appdata\roaming\mirc\scripts\vars.ini, w, *pul. $+ $nick *),2,32) / 14400 * 100 ),2) $+ % }
    else {
    /notice $nick Aktiivisuusprosentti ( $+ $2 $+ ): $round($calc($gettok($read(C:\users\prime7\appdata\roaming\mirc\scripts\vars.ini, w, *pul. $+ $2 *),2,32) / 14400 * 100 ),2) $+ % } } }
::Aliases
/pulinavoicer /timerpul 0 60 /pulvoicer
/pulvoicer {
  echo 4 * running #
  set %i 1
  :next
  set %nick $nick(#pulina,%i)
  if %nick == $null goto done
  if ($gettok($read(C:\users\prime7\appdata\roaming\mirc\scripts\vars.ini, w, *pul. $+ %nick *),2,32) < 14400) {
  /mode #pulina -v %nick }
  inc %i
  goto next
  :done
  echo 4 * End }