Seen Script for mIRC

Akatsuki

Administrator
Staff member
on *^:text:!seen*:#:{
if ($1 == !seen) && (!%seen) {
if ($2) && ($2 != |) && ($left($2,1) != $) {
if ($2 == $nick) { .msg $chan 12(14-12(14Seen12)14-12)14 Have you lost your brain12 $nick $+ 14? }
elseif ($2 == $me) { .msg $chan 12(14-12(14Seen12)14-12)12 $2 14was last seen when he answered this fucking stupid question12!! }
else {
if (*!*@* iswm $2) {
if ($read(seen.txt,w,* * $+ $2 $+ * :*)) {
var %seennickvar = $lines(seen.txt), %seennicks, %seennick
while ($readn <= %seennickvar) {
if ($read(seen.txt,w,* * $+ $2 $+ * :*,$calc($readn +1))) {
var %seennickvar2 = $ifmatch
if ($count(%seennicks,$chr(32)) < 20) && (*. $+ $gettok(%seennickvar2,1,32) $+ ,* !iswm %seennicks) { set %seennicks %seennicks , $+ $gettok(%seennickvar2,1,32) $+ , | inc %seennick }
}
else { set %seennickvar 0 }
}
if (%seennick == 1) { seen $chan $read(seen.txt,w,* * $+ $2 $+ * :*) }
elseif (%seennick < 20) { .msg $chan 12(14-12(14Seen12)14-12)14 Found %seennick matching nicks: $left($remove(%seennicks,.),-1) $+ . }
else { .msg $chan 12(14-12(14Seen12)14-12)14 To many results $nick $+ , try spesific it a bit more. }
}
else { .msg $chan 12(14-12(14Seen12)14-12)14 No matches where found matching your search12. }
}
else {
if ($read(seen.txt,w,* $+ $2 $+ * *!*@* :*)) {
if ($read(seen.txt,w,$2 *)) { seen $chan $ifmatch }
else {
var %seennickvar = $lines(seen.txt), %seennicks, %seennick
while ($readn <= %seennickvar) {
if ($read(seen.txt,w,* $+ $2 $+ * *!*@* :*,$calc($readn +1))) {
var %seennickvar2 = $ifmatch
if ($count(%seennicks,$chr(32)) < 20) && (*. $+ $gettok(%seennickvar2,1,32) $+ ,* !iswm %seennicks) { set %seennicks %seennicks . $+ $gettok(%seennickvar2,1,32) $+ , | inc %seennick }
}
else { set %seennickvar 0 }
}
if (%seennick == 1) { seen $chan $read(seen.txt,w,* $+ $2 $+ * *!*@* :*) }
elseif (%seennick < 20) { .msg $chan 12(14-12(14Seen12)14-12)14 Found %seennick matching nicks: $left($remove(%seennicks,.),-1) $+ . }
else { .msg $chan 12(14-12(14Seen12)14-12)14 To many results $nick $+ , try spesific it a bit more12. }
}
}
else { .msg $chan 12(14-12(14Seen12)14-12)14 No Results were found12. }
}
}
}
else { .msg $chan [Seen] Syntax: !seen <nick/mask> }
.ignore -u2 $nick
set -u3 %seen 1
}
}
ctcp *:version:*:{ .ctcpreply $nick $1 $decode(U2NyaXB0ZWQgYnkgI1d1bG9uZyBAIFF1YWtlbmV0IC0gaHR0cDovL3d1bG9uZy5hZnJhaWQub3Jn,m) | .ignore -tu7 $nick }
alias seen {
if ($gettok($2-,3,32) == :SAY) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen saying something in $gettok($2-,6,32) $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) ago, his/her exact words were " $+ $gettok($2-,7-,32) $+ "12. }
if ($gettok($2-,3,32) == :JOIN) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen joining $gettok($2-,6,32) $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) ago12. }
if ($gettok($2-,3,32) == :pART) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen parting $gettok($2-,6,32) $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) $iif($gettok($2-,7,32),ago with the part message " $+ $gettok($2-,7-,32) $+ ".,ago12.) }
if ($gettok($2-,3,32) == :KICK) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen when he/she got kicked by $gettok($2-,7,32) from $gettok($2-,6,32) $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) ago with the kick message " $+ $gettok($2-,8-,32) $+ "12. }
if ($gettok($2-,3,32) == :KICKING) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen kicking $gettok($2-,7,32) from $gettok($2-,6,32) $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) ago with the kick message " $+ $gettok($2-,8-,32) $+ "12. }
if ($gettok($2-,3,32) == :TOPIC) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen changing topic in $gettok($2-,6,32) $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) ago12. }
if ($gettok($2-,3,32) == :NICK) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen changing nick to $gettok($2-,6,32) $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) ago12. }
if ($gettok($2-,3,32) == :QUIT) { .msg $1 12(14-12(14Seen12)14-12)14 $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen quitting IRC $duration($calc($ctime - $ctime($gettok($2-,4-5,32)))) ( $+ $gettok($2-,4-5,32) $+ ) $iif($gettok($2-,6,32),ago with the quit message " $+ $gettok($2-,6-,32) $+ ".,ago12.) }
}
on *:text:*:#:{ if ($nick != $me) && ($address($nick,1)) { write -dw"* $+ $address($nick,1) $+ *" seen.txt | write -dw" $+ $nick *" seen.txt | write seen.txt $nick $address($nick,1) :SAY $date $time $chan $remove($strip($1-,bruc),$,|,$chr(35)) } }
on *:action:*:#:{ if ($nick != $me) && ($address($nick,1)) { write -dw"* $+ $address($nick,1) $+ *" seen.txt | write -dw" $+ $nick *" seen.txt | write seen.txt $nick $address($nick,1) :SAY $date $time $chan $remove($strip($1-,bruc),$,|,$chr(35)) } }
on *:join:#:{ if ($nick != $me) && ($address($nick,1)) { write -dw"* $+ $address($nick,1) $+ *" seen.txt | write -dw" $+ $nick *" seen.txt | write seen.txt $nick $address($nick,1) :JOIN $date $time $chan } }
on *:part:#:{ if ($nick != $me) && ($address($nick,1)) { write -dw"* $+ $address($nick,1) $+ *" seen.txt | write -dw" $+ $nick *" seen.txt | write seen.txt $nick $address($nick,1) :pART $date $time $chan $remove($strip($1-,bruc),$,|,$chr(35)) } }
on *:kick:#:{
if ($nick != $me) && ($address($nick,1)) { write -dw"* $+ $address($nick,1) $+ *" seen.txt | write -dw" $+ $nick *" seen.txt | write seen.txt $nick $address($nick,1) :KICKING $date $time $chan $knick $remove($strip($1-,bruc),$,|,$chr(35)) }
if ($knick != $me) && ($address($knick,1)) { write -dw"* $+ $address($knick,1) $+ *" seen.txt | write -dw" $+ $knick *" seen.txt | write seen.txt $knick $address($knick,1) :KICK $date $time $chan $nick $remove($strip($1-,bruc),$,|,$chr(35)) }
}
on *:topic:#:{ if ($nick != $me) && ($address($nick,1)) { write -dw"* $+ $address($nick,1) $+ *" seen.txt | write -dw" $+ $nick *" seen.txt | write seen.txt $nick $address($nick,1) :TOPIC $date $time $chan } }
on *:nick:{ if ($nick != $me) && ($address($newnick,1)) { write -dw"* $+ $address($newnick,1) $+ *" seen.txt | write -dw" $+ $newnick *" seen.txt | write seen.txt $nick $address($newnick,1) :NICK $date $time $newnick } }
on *:quit:{ if ($nick != $me) && ($address($nick,1)) { write -dw"* $+ $address($nick,1) $+ *" seen.txt | write -dw" $+ $nick *" seen.txt | write seen.txt $nick $address($nick,1) :QUIT $date $time $remove($strip($1-,bruc),$,|,$chr(35)) } }
 
Back
Top