; Eli siis tällainen skripti.
; Loggaa joinit, quitit, partit ja kikit.
; Toimii nimen perusteella joten ei ole
; maailman parhaita seen-skriptejä
; mutta menettelee ainakin omassa
; käytössäni. Bugit sun muut voi antaa
; joko minulle (nimi Shadikka) @ QNet/IRCnet
; tahi sitten maililla supremecelebi@hotmail.com
; Enjoy!

on *:load:{ if (!$isdir(seen)) { mkdir seen } }

on *:text:!seen*:#:{
  var %ini seen\seen_ $+ $2 $+ .ini
  if ($readini(%ini,$2,how) != $null) {
    var %how $readini(%ini,$2,how)
    var %chan $readini(%ini,$2,chan)
    var %time $readini(%ini,$2,time)
    var %sitten $fduration($calc($ctime - $ctime($readini(%ini,$2,dtime))))
    var %sitten $replace(%sitten,wks,$chr(32) $+ viikkoa,days,$chr(32) $+ päivää,hrs,$chr(32) $+ tuntia,mins,$chr(32) $+ minuuttia,secs,$chr(32) $+ sekuntia)
    var %sitten $replace(%sitten,wk,$chr(32) $+ viikko,day,$chr(32) $+ päivä,hr,$chr(32) $+ tunti,min,$chr(32) $+ minuutti,sec,$chr(32) $+ sekunti)
    var %sitten $replace(%sitten,minuuttiuuttia,minuuttia)
    if (%how == join) { msg $chan $2 liittyi kanavalle %chan %time ( $+ %sitten sitten). }
    if (%how == part) { msg $chan $2 lähti kanavalta %chan viestillä " $+ $readini(%ini,$2,pmsg) $+ " %time ( $+ %sitten sitten). }
    if (%how == kick) { msg $chan $readini(%ini,$2,kicker) potki $2 $+ :n syyllä " $+ $readini(%ini,$2,kmsg) $+ " kanavalta %chan %time ( $+ %sitten sitten). }
    if (%how == quit) { msg $chan $2 lähti IRCistä viestillä " $+ $readini(%ini,$2,qmsg) $+ " aikaan %time ( $+ %sitten sitten). }
  }
  else { notice $nick Nimeä $2 ei löytynyt tietokannasta. }
}

on *:quit:{
  var %ini seen\seen_ $+ $nick $+ .ini
  writeini -n %ini $nick time $time(dd.mm.yy) $time(HH:nn:ss)
  writeini -n %ini $nick chan $comchan($nick,1)
  writeini -n %ini $nick dtime $time(dd/mm/yy) $time(HH:nn:ss)
  if ($1-) { writeini -n %ini $nick qmsg $1- }
  else { writeini -n %ini $nick qmsg (ei mitään) }
  writeini -n %ini $nick how quit
}

on *:join:*:{
  var %ini seen\seen_ $+ $nick $+ .ini
  writeini -n %ini $nick time $time(dd.mm.yy) $time(HH:nn:ss)
  writeini -n %ini $nick chan $comchan($nick,1)
  writeini -n %ini $nick dtime $time(dd/mm/yy) $time(HH:nn:ss)
  writeini -n %ini $nick how join
}

on *:part:{
  var %ini seen\seen_ $+ $nick $+ .ini
  writeini -n %ini $nick time $time(dd.mm.yy) $time(HH:nn:ss)
  writeini -n %ini $nick chan $comchan($nick,1)
  writeini -n %ini $nick dtime $time(dd/mm/yy) $time(HH:nn:ss)
  writeini -n %ini $nick how part
  writeini -n %ini $nick pmsg $1-
}

on *:kick:#:{
  var %ini seen\seen_ $+ $nick $+ .ini
  writeini -n %ini $knick time $time(dd.mm.yy) $time(HH:nn:ss)
  writeini -n %ini $knick chan $comchan($nick,1)
  writeini -n %ini $knick dtime $time(dd/mm/yy) $time(HH:nn:ss)
  writeini -n %ini $knick how kick
  writeini -n %ini $knick kicker $nick
  writeini -n %ini $knick kmsg $1-
}

alias fduration {
  var %teksti $duration($1)
  var %teksti $replace(%teksti,wks,$chr(32) $+ viikkoa,wk,$chr(32) $+ viikko)
  var %teksti $replace(%teksti,days,$chr(32) $+ päivää,day,$chr(32) $+ päivä)
  var %teksti $replace(%teksti,hrs,$chr(32) $+ tuntia,hr,$chr(32) $+ tunti)
  var %teksti $replace(%teksti,mins,$chr(32) $+ minuuttia,min,$chr(32) $+ minuutti)
  var %teksti $replace(%teksti,secs,$chr(32) $+ sekuntia,sec,$chr(32) $+ sekunti)
  var %teksti $replace(%teksti,minuuttiuuttia,minuuttia)
  return %teksti
}