SHARE
TWEET

Untitled

a guest Sep 16th, 2019 14 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. raw 314:*: {
  2.   ;.msg #ops $2 $+ 's whowas ID: $+($3,@,$4) and Real Name was: $6-
  3.   if ($hasActiveSearch(314,$2)) {
  4.     haltdef
  5.     sendToUser $numeric $2 10 $2 $+ 's whowas ID: $+($3,@,$4) and Real Name was: $6-
  6.   }
  7. }
  8.  
  9. raw 406:*: {
  10.   if ($hasActiveSearch(314,$2)) {
  11.     haltdef
  12.     sendToUser 314 $2 $2 $+ 's whowas information could not be found
  13.   }
  14. }
  15.  
  16. raw 369:*: {
  17.   if ($hasActiveSearch(314,$2)) {
  18.     haltdef
  19.     removeRawUser 314 $2
  20.   }
  21. }
  22.  
  23. on *:text:*:#ops: {
  24.   if ($nick isop $chan) && ($regex($1-,/(^|\s)(.idshow?w?s?\s\S+)/i)) {
  25.     tokenize 32 $regml(2) | whois $2
  26.   }
  27.   if ($nick isop $chan) && ($regex($1-,/(^|\s)(.lastid?d?s?\s\S+)/i)) {
  28.     addRawUser 314 $2 $nick
  29.     if (!$hasActiveSearch(314,$2)) tokenize 32 $regml(2) | whowas $2
  30.   }
  31. }
  32.  
  33. ;/addRawUser [rawEventId] [searchTerm/searchForUser] [searchByUser]
  34. alias -l addRawUser {
  35.   var %search = $2, %user = $3, %table = $+(event_search_table_,$1), %table2 = event_search_max
  36.   if (!$hget(%table)) .hmake %table 2
  37.   if (!$hget(%table2)) .hmake %table2 2
  38.   if ($len($hget(%table,%search))) hadd %table %search $addtok($hget(%table,%search),%user,9)
  39.   else hadd %table %search %user
  40.   if (!$hget(%table2,$+($1,_,$2))) hadd event_search_max $+($1,_,$2) 0
  41. }
  42.  
  43. ;/removeRawUser [rawEventId] [searchTerm/searchForUser]
  44. alias -l removeRawUser {
  45.   var %search = $2, %table = $+(event_search_table_,$1), %table2 = event_search_max
  46.   if ($len($hget(%table,%search))) {
  47.     hdel %table %search
  48.     if ($len($hget(%table2,$+($1,_,%search)))) {
  49.       hdel %table2 $+($1,_,%search)
  50.     }
  51.   }
  52. }
  53.  
  54. ;$hasActiveSearch([rawEventId],[searchTerm/searchForUser])
  55. alias -l hasActiveSearch {
  56.   return $len($hget($+(event_search_table_,$1),$2))
  57. }
  58.  
  59. ;/sendToUser [rawEventId] [searchTerm/searchForUser] [max] [message] (0 for no max)
  60. alias -l sendToUser {
  61.   var %search = $2, %table = $+(event_search_table_,$1)
  62.   if ($len($hget(%table,%search))) {
  63.     var %table2 = event_search_max, %item = $+($1,_,%search)
  64.     if ($len($hget(%table2, %item)) && ($hget(%table2, %item) < $3 || $3 == 0)) {
  65.       hinc %table2 %item
  66.       if ($3 == $hget(%table2, %item)) hdel %table2 %item
  67.       var %users = $hget(%table,%search)
  68.       while ($len(%users)) {
  69.         .msg $gettok(%users,1,9) $4-
  70.         %users = $deltok(%users,1,9)
  71.       }
  72.     }
  73.   }
  74. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top