remote !seen

on *:TEXT:*!idle*:*: {
if ($2) {
if ($2 = $nick) {
msg $chan Well you are no longer idle $nick $+ !
halt
}
if ($2 = $me) {
msg $chan I am never idle my friend
halt
}
if ($nick($chan,$2).idle) {
set %var.time $calc($ctime - $nick($chan,$2).idle)
msg $chan $2 has been idle for $duration($calc($ctime - %var.time))
halt
}
else { msg $chan I'm sorry $nick $+ , but $2 is not on the channel }
}
if (!$2) { msg $chan Please specify a nick $nick $+ . }
}

on *:join:#: {
hadd -m Seendata $nick J $nick $right($address($nick,0),-2) $ctime $chan
}

on *:PART:#: {
hadd -m Seendata $nick P $nick $right($address($nick,0),-2) $ctime $chan $1-
}

on *:QUIT: {
hadd -m Seendata $nick Q $nick $right($address($nick,0),-2) $ctime $1-
}

on *:NICK: {
hadd -m Seendata $nick N $nick $right($address($newnick,0),-2) $ctime $newnick $chan
hadd -m Seendata $newnick N $newnick $right($address($newnick,0),-2) $ctime $nick $chan
}

on *:KICK:#: {
hadd -m Seendata $knick K $knick $right($address($knick,0),-2) $ctime $chan $1-
}

on *:START: {
hmake Seendata 200
hload -bi Seendata Seendata.hsh
seen.save
}

alias seen.save {
hsave -bio Seendata Seendata.hsh
.timerseensave 0 300 seen.save
}

on *:text:*!seen*:#: {
if ($1 == !seen) && ($2 != $null) {
if ($3 != $null) { halt }
if ($2 == $nick) {
msg $chan Look a little harder and you might find yourself $nick
halt
}
if ($2 == $me) {
msg $chan Find me yet $nick $+ ?
halt
}
if ($2 ison $chan) {
msg $chan $2 is currently on the channel.
halt
}
if ($hfind(Seendata,$2) == $null) {
msg $chan $2 was not found in the database.
halt
}
else {
set %seenres $hget(Seendata,$hfind(Seendata,$2))
if ($left(%seenres,1) == J) {
msg $chan $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago.
halt
}
if ($left(%seenres,1) == P) {
msg $chan $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago.
halt
}
if ($left(%seenres,1) == Q) {
msg $chan $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago.
halt
}
if ($left(%seenres,1) == K) {
msg $chan $2 was last seen $duration($calc($ctime - $gettok(%seenres,4,32))) ago.
halt
}
if ($left(%seenres,1) == N) {
msg $chan $2 was last seen changing nickname to $gettok(%seenres,5,32) $duration($calc($ctime - $gettok(%seenres,4,32))) ago.
set %seenres2 $hget(Seendata,$hfind(Seendata,$gettok(%seenres,5,32)))
if ($gettok(%seenres,5,32)) !ison $chan) { msg $chan $gettok(%seenres,5,32)) was last seen $duration($calc($ctime - $gettok(%seenres2,4,32))) ago. }
if ($gettok(%seenres,5,32)) ison $chan) { msg $chan $gettok(%seenres,5,32)) is currently on the channel. Looks like your in luck $nick $+ !! }
halt
}
}
}
if ($1 == !seen) && ($2 == $null) {
msg $chan are you looking for someone?
return
}
else {
return
}
}

wahhh.. xpaham aku... nak kene belajar nih..

ala...copy and paste dalam mirc tu..dalam remote alt+r p