Simple Seen v1.8

mIRC snippet that stores data for each nick and returns it with the !seen command.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	entropy	stats	Cod testat	575	2023-12-04 20:51:33

; Simple Seen v1.8 - by entropy 2020
; Usage: !seen <nick>

on *:start:{ .timerseen -o 0 300 saveall }
on *:exit:{ saveall }
on *:disconnect:{ if ($hget($+(seen.,$network))) { hsave -o $+(seen.,$network) $qt($+($scriptdir,seen.,$network,.dat)) | hfree $+(seen.,$network) } }

on *:connect:{
  if (!$hget($+(seen.,$network))) { hmake $+(seen.,$network) 100 }
  if ($exists($qt($+($scriptdir,seen.,$network,.dat)))) { hload $+(seen.,$network) $qt($+($scriptdir,seen.,$network,.dat)) }
}

alias -l saveall { var %a = 1, %b | while ($scon(%a)) { %b = $v1 | scid %b | if ($hget($+(seen.,$network))) { hsave -o $+(seen.,$network) $qt($+($scriptdir,seen.,$network,.dat)) } | inc %a } }
alias -l clearall { var %a = 1, %b | while ($scon(%a)) { %b = $v1 | scid %b | if ($hget($+(seen.,$network))) { hfree $+(seen.,$network) | hmake $+(seen.,$network) 100 } | inc %a } }

#seen on
on *:text:*:#:{ 
  hadd -m $+(seen.,$network) $fulladdress $ctime Messaging # with text: $qt($1-)
  if (?seen iswm $1 && $left($1,1) isin @!.) {
    if (!$2) { msg # No "seen" nickname specified! }
    else { seenx # $2 $1- }
  }   
}
on *:input:#:{ 
  if ($server && /* !iswm $1) { hadd -m $+(seen.,$network) $address($me,5) $ctime Messaging # with text: $qt($1-) }
  if (?seen iswm $1 && $left($1,1) isin @!.) {
    if (!$2) { msg # No "seen" nickname specified! }
    else { seenx # $2 $1- }
  } 
}

on *:action:*:#:{ hadd -m $+(seen.,$network) $fulladdress $ctime Actioning # with text: $qt($1-) }
on *:join:#:{ if ($nick == $me) { .ialfill # } | hadd -m $+(seen.,$network) $fulladdress $ctime Joining # }
on *:part:#:{ hadd -m $+(seen.,$network) $fulladdress $ctime Parting # with text: $qt($1-) }
on *:rawmode:#:{ hadd -m $+(seen.,$network) $fulladdress $ctime Setting # mode(s) to: $qt($1-) }
on *:kick:#:{ hadd -m $+(seen.,$network) $fulladdress $ctime Kicking $knick out of # with text: $qt($1-) }
on *:quit:{ hadd -m $+(seen.,$network) $fulladdress $ctime Quitting IRC with text: $qt($1-) }
on *:topic:#:{ hadd -m $+(seen.,$network) $fulladdress $ctime Setting # topic to: $qt($1-) }
on *:nick:{ hadd -m $+(seen.,$network) $fulladdress $ctime Changing nickname to: $newnick }

alias -l seenx {
  var %all, %host
  if ($gettok($address($2,5),2,33)) { %host = $+($2,!,$v1) }
  else { %host = $+($2,!*) }

  if (* isin $2) { %all = $hfind($+(seen.,$network),$2,1,w).item | var %nick = $gettok(%all,1,33) }
  else { %all = $hfind( $+(seen.,$network) , %host , 1 , w).item | var %nick = $gettok(%all,1,33) }

  if ($2 == $me) { msg $1 I`m right here! | return }

  var %a = $2
  var %b = $hget($+(seen.,$network),%a)
  var %q = $hfind($+(seen.,$network),%a,1).item
  var %time = $asctime($gettok($hget($+(seen.,$network),%all),1,32))
  var %nt = $gettok($hget($+(seen.,$network),%all),1,32)
  var %dur = $calc($ctime - %nt)
  var %dur = $remove($replace($duration(%dur),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s),$chr(32)) ago
  var %rsn = $gettok($hget($+(seen.,$network),%all),2-,32)
  var %no = $gettok(%all,2,33)
  var %mo = $gettok($gettok(%b,1,32),2,33)
  var %r = $gettok($hfind($+(seen.,$network),%a,1,w).item,1,33)

  if (* isin $2) {
    var %total = $hfind($+(seen.,$network),$2,0,w).item
    if (%total >= 5) { msg $1 [Seen] $chr(9679) $qt($2) has $bytes(%total,b) $iif(%total == 1,result!,results!) Please refine your search and try again! }
    elseif (%total != 1) {
      var %c = 1, %d, %all
      while ($hfind($+(seen.,$network),$2,%c,w).item) {
        %d = $v1
        %all = %all %d
        inc %c
      }
      if ($numtok(%all,32) >= 5) { %all = $gettok(%all,1-5,32) $+ ... }
      if ($numtok(%all,32) != 0) { msg $1 [Seen] $chr(9679) Found $bytes($numtok(%all,32),b) $iif($numtok(%all,32) == 1,Result:,Results:) $replace(%all,$chr(32),$+($chr(44),$chr(32))) }
      else { msg $1 [Seen] $chr(9679) No results found! }
    }
    elseif ($hfind($+(seen.,$network),$2,1,w).item) { 
      var %all = $hfind($+(seen.,$network),$2,1,w).item  
      var %a = %all
      var %b = $hget($+(seen.,$network),%all)
      var %q = $gettok(%all,1,33)
      var %time = $asctime($gettok($hget($+(seen.,$network),%a),1,32))
      var %nt = $gettok($hget($+(seen.,$network),%a),1,32)
      var %dur = $calc($ctime - %nt)
      var %dur = $remove($replace($duration(%dur),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s),$chr(32)) ago
      var %rsn = $gettok($hget($+(seen.,$network),%a),2-,32)
      var %no = $gettok(%a,1,33)
      var %mo = %all
      msg $1 [Seen] $chr(9679) I Last Saw $qt(%q) $iif(%mo,$+($chr(40),$gettok(%mo,2,33),$chr(41))) %time $+($chr(40),%dur,$chr(41)) - %rsn
    }
    else { msg $1 [Seen] $chr(9679) I have not seen that person. }
  }
  elseif (%all) { 

    var %c = 1, %d, %e, %elapsed, %found
    while ($hfind($+(seen.,$network),$+($2,!*),%c,w).item) {
      %d = $v1
      %e = $gettok($hget($+(seen.,$network),%d),1,32)
      if (%e >= %elapsed || !%elapsed) { 
        %found = %d $hget($+(seen.,$network),%d)
        %elapsed = %e
      }
      inc %c
    }
    if (%found) {
      var %nick = $gettok(%found,1,33)
      var %c = $gettok(%found,1,32)
      var %d = $gettok(%found,2-,32)

      var %time = $asctime($gettok(%found,2,32))
      var %dur = $calc($ctime - $gettok(%found,2,32))
      var %dur = $remove($replace($duration(%dur),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s),$chr(32)) ago
      var %rsn = $gettok(%d,2-,32)
      msg $1 [Seen] $chr(9679) I Last Saw $qt(%nick) $+($chr(40),$gettok(%c,2,33),$chr(41)) %time $+($chr(40),%dur,$chr(41)) - %rsn
    }
  }
  else { msg $1 [Seen] $chr(9679) I have not seen that person. } 
}
#seen end