!Seen script

Please Register to submit score.

Average Score	3.0
Scores Submitted	1
Date Added	Apr 08, 2008
Last Updated	Apr 08, 2008
Tags	bot chan hash seen

Introduction

This is a simple !seen script for a bot or what ever you want.

just copy and paste into a new remotes file. I will keep track of Parts, Quit, Kick, and Nick Changes.

Grab the Code

on *:EXIT:hsave seen seen.hsh

on *:START:{
  if (!$Hget(Seen) { hmake seen 999 }
  hload Seen seen.hsh
}

on *:PART:#:{ iF ($Nick != $Me) { hadd -m Seen $+($Nick,.Part) $CTime } }

on *:QUIT:{
  if ($Nick != $Me) {
    hadd -m Seen $+($Nick,.Quit) $CTime
    if ($1 = Quit:) { hadd -m Seen $+($Nick,.QuitReason) $Strip($2-) }
    else { hadd -m Seen $+($Nick,.QuitReason) $Strip($1-) }

}
}

on *:KICK:#:{
  if ($KNick != $Me) {
    hadd -m Seen $+($KNick,.Kick) $CTime
    hadd -m Seen $+($KNick,.KickReason) $1-
  }
}
on *:NICK:{
  echo -s Nick $Nick NewNick $NewNick Me $me
  if ($Nick != $Me) {
    hadd -m Seen $+($Nick,.Nick) $NewNick $Ctime
  }
}

on *:TEXT:!Seen*:#:{
  if (!$2) { .msg $Chan You must select a nick to look for. | halt }
  if ($2 ison $Chan) { .msg $Chan $2 is here in the Channel | halt }

if (!$Hfind(Seen,$+($2,.*),0,w)) { .msg $Chan $2 is not in the database. | halt }

var %Times = $+($HGet(Seen,$+($2,.Part)),:Part) $+($HGet(Seen,$+($2,.Quit)),:Quit) $+($HGet(Seen,$+($2,.Kick)),:Kick) $+($GetTok($HGet(Seen,$+($2,.Nick)),2,32),:Nick)

:start
  var %a = 0
  while (%a != $NumTok(%Times,32)) {
    inc %a
    if ($Pos($GetTok(%Times,%a,32),:) = 1) { var %Times = $RemTok(%Times,$GetTok(%Times,%a,32),1,32) | goto start }
  }
  var %WhichOne = $GetTok($SortTok(%Times,32,ar),1,32)

if ($GetTok(%WhichOne,2,58) = Part) { var %Text = Parting }
  elseif ($GetTok(%WhichOne,2,58) = Quit) { var %Text = Quiting | var %Reason = Reason: $HGet(Seen,$+($2,.QuitReason)) }
  elseif ($GetTok(%WhichOne,2,58) = Kick) { var %Text = Being Kicked | var %Reason = Reason: $HGet(Seen,$+($2,.KickReason)) }
  elseif ($GetTok(%WhichOne,2,58) = Nick) { var %Text = Changing there nick to $GetTok($Hget(Seen,$+($2,.Nick)),1,32) }
  .msg $Chan $2 was last seen %Text $ShortTime($Calc($Ctime - $GetTok(%WhichOne,1,58))) ago. %Reason
}
alis ShortTime Return $Remove($replace($Duration($$1),wks,w,wk,w,days,d,day,d,hrs,h,hr,h,mins,m,min,m,secs,s,sec,s),$chr(32))

Comments

(0) RSS

Go to Bottom

!Seen script

Introduction

Grab the Code

Comments

Gecko321

My Snippet Tags

Contact

Sponsors


Last seen: Jun 07, 2008 Profile Snippets (5) Comments Received (4) Comments Submitted (11)