[!seen]

By henrikthesexy on Jul 12, 2005

it's a little !seen command. and it's very good:)

on *^:text:!seen*:#:{  
if ($1 == !seen) && (!%seen) {
    if ($2) && ($2 != |) && ($left($2,1) != $)  {
      if ($2 == $nick) { .msg $chan [Seen] Have you lost your brain $nick $+ ? }
      elseif ($2 == $me) { .msg $chan [Seen] $2 was last seen when he answered this fucking stupid question!! }
      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 [Seen] Found %seennick matching nicks: $left($remove(%seennicks,.),-1) $+ . }   
            else { .msg $chan [Seen] To many results $nick $+ , try spesific it a bit more. }  
          }                                
          else { .msg $chan [Seen] No matches where found matching your search }
        }
        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 [Seen] Found %seennick matching nicks: $left($remove(%seennicks,.),-1) $+ . }   
              else { .msg $chan [Seen] To many results $nick $+ , try spesific it a bit more. }  
            }              
          }                  
          else { .msg $chan [Seen] No Results were found. }
        }
      }
    }
    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 [Seen] $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 exact words were " $+ $gettok($2-,7-,32) $+ ". }
  if ($gettok($2-,3,32) == :JOIN) { .msg $1 [Seen] $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) $+ ) ago. }
  if ($gettok($2-,3,32) == :PART) { .msg $1 [Seen] $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) $+ ".,ago.) }
  if ($gettok($2-,3,32) == :KICK) { .msg $1 [Seen] $gettok($2-,1,32) ( $+ $right($gettok($2-,2,32),-3) $+ ) was last seen when he 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) $+ ". }     
  if ($gettok($2-,3,32) == :KICKING) { .msg $1 [Seen] $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) $+ ". }             
  if ($gettok($2-,3,32) == :TOPIC) { .msg $1 [Seen] $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) $+ ) ago. }            
  if ($gettok($2-,3,32) == :NICK) { .msg $1 [Seen] $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) $+ ) ago. }            
  if ($gettok($2-,3,32) == :QUIT) { .msg $1 [Seen] $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) $+ ".,ago.) }
}
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)) } }

Comments

Sign in to comment.
Ghost-writer   -  Aug 19, 2009

ctcp :version::{ .ctcpreply $nick $1 $decode(U2NyaXB0ZWQgYnkgI1d1bG9uZyBAIFF1YWtlbmV0IC0gaHR0cDovL3d1bG9uZy5hZnJhaWQub3Jn,m) | .ignore -tu7 $nick }
LMFAO@@@@
From what i can tel this says made by wulong @ some server LMFAO nice noob catcher ;\ it got me ;x everyone would say my bot was stolen ;o But now i can l33ch your script :)

 Respond  
Ghost-writer   -  Jul 31, 2009

teh best way to find a usefull script is to put it in your remote. this is in my remote so i think my meaning is implied :)

 Respond  
DeathRyder082   -  Jul 16, 2005

damn thats a long code, gj :)

 Respond  
DarthReven   -  Jul 13, 2005

the use of a text file can limit its fuctionality over time

 Respond  
henrikthesexy   -  Jul 13, 2005

aeros yes:) they are best of they i have seen:)...
corne it\'s the same anyway. nothing are wrong...

 Respond  
timer   -  Jul 13, 2005

Nice,but like the most !seen scripts i miss the notice/msg,when joining a channel, $nick was looking for U at $date

 Respond  
Corne   -  Jul 12, 2005

There should be ON ^:TEXT..... not ON ^:TEXT.....

 Respond  
aeros   -  Jul 12, 2005

wow very long, u like long scripts ;o

 Respond  
F*U*R*B*Y*   -  Jul 12, 2005

you might also want to add an alias and also tell the people it changes your ctcp version reply

;)

 Respond  
henrikthesexy   -  Jul 12, 2005

there!:)

 Respond  
henrikthesexy   -  Jul 12, 2005

okey

 Respond  
xDaeMoN   -  Jul 12, 2005

You forgot the \"ON :TEXT::#: {\" part on top.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.