;;      ##  ##   
;;  ############
;;    ##  ##
;; ###########
;;  ##  ## PULINA
;;
;; UUTTA VANHAAN:
;; 1. Joka 100sekunti poistetaan yksi rivi tilastosta
;; 2. Voicet lähtee pois kertolaskulla rivimäärät*100
;;   - Eli jos rivejä on vaikka 120 lähtee voicet pois 12000sekunnin, eli noin 3tunnin päästä :)
;; 3. Tärkein, eli joka opilla on tuloksena 1337 ;)
;; 4. Voicet saa 100rivistä, rivejä lasketaan 150asti.
;; 5. Pitää muistaa, että välttämättä ei toimi 100% oikein :)

on *:TEXT:!aktiivisuus:#pulina,?: {
  if ($nick ison $chan) {
    notice $nick Aktiivisuus $calc( %pul_scor_ [ $+ [ $nick ] ] /150*100) $+ %
  }
  else {
    notice $nick Ei löydy!
  }
}

on *:TEXT:!aktiivisuus *:#pulina,?: {
  if ($2 ison $chan) {
    notice $nick Aktiivisuus $2 $calc( %pul_scor_ [ $+ [ $2 ] ] /150*100) $+ %
  }
  else {
    notice $nick Ei löydy!
  }
}

on *:TEXT:*:#pulina: {
  if ($nick isop $chan || $nick == s13gshell || $nick == s13ge || $nick == Haamu || $nick == kummitus) {
    set %pul_scor_ $+ $nick 2005.5
  }
  else {
    if (%pul_scor_ [ $+ [ $nick ] ] == $null || %pul_scor_ [ $+ [ $nick ] ] < 100) {
      inc %pul_scor_ $+ $nick
      timer_pulina_2 $+ $nick off
      timer_pulina_2 $+ $nick %pul_scor_ [ $+ [ $nick ] ] 100 dec %pul_scor_ $+ $nick
    }
    elseif (%pul_scor_ [ $+ [ $nick ] ] = 100) {
      inc %pul_scor_ $+ $nick
      mode $chan +v $nick
      timer_pulina_2 $+ $nick off
      timer_pulina_1 $+ $nick 1 $calc(%pul_scor_ [ $+ [ $nick ] ] * 100) mode #pulina -v $nick
      timer_pulina_2 $+ $nick %pul_scor_ [ $+ [ $nick ] ] 100 dec %pul_scor_ $+ $nick 
    }
    elseif (%pul_scor_ [ $+ [ $nick ] ] <= 149) {
      if ($nick isvoice $chan) {
        inc %pul_scor_ $+ $nick
        timer_pulina_1 $+ $nick off
        timer_pulina_2 $+ $nick off
        timer_pulina_1 $+ $nick 1 $calc(%pul_scor_ [ $+ [ $nick ] ] * 100) mode #pulina -v $nick
        timer_pulina_2 $+ $nick %pul_scor_ [ $+ [ $nick ] ] 100 dec %pul_scor_ $+ $nick 
      }
      else {
        mode $chan +v $nick
        inc %pul_scor_ $+ $nick
        timer_pulina_1 $+ $nick off
        timer_pulina_2 $+ $nick off
        timer_pulina_1 $+ $nick 1 $calc(%pul_scor_ [ $+ [ $nick ] ] * 100) mode #pulina -v $nick
        timer_pulina_2 $+ $nick %pul_scor_ [ $+ [ $nick ] ] 100 dec %pul_scor_ $+ $nick
      }
    } 
  }
}