daily pastebin goal
34%
SHARE
TWEET

Untitled

a guest Jul 12th, 2018 52 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;AKA Nick Tracker by Ford_Lawnmower irc.mindforge.org #USA-Chat
  2. ;*****************************************************************************;
  3. ;**Start Setup
  4. ;Change JoinDisplay, below, for On Join AKA Display. On = 1 - Off = 0
  5. alias -l JoinDisplay { return 1 }
  6. ;Change MaxNicks, below, to the number of nicknames you want to store for each hostmask. I wouldn't go over 400 with this ;/
  7. alias -l MaxNicks { return 35 }
  8. ;Change AKALogo, below, To the text you want displayed before each AKA result.
  9. ;**End Setup
  10. ;*****************************************************************************;
  11. On *:Join:#: {
  12. if ($nick == $me) { .enable #AKAInit | who $chan }
  13. NickNamesAdd $nick $+($network,$wildsite)
  14. if ($JoinDisplay) { .timerNickNames $+ $nick 1 2 NickNames.display $nick $chan $network $wildsite }
  15. }
  16. on *:Nick: { NickNamesAdd $newnick $+($network,$wildsite) $nick }
  17. alias -l NickNames.display {
  18. if ($gettok($hget(NickNames,$+($3,$4)),0,126) > 1) {
  19. echo -g $2 $AKALogo $+(09,$1) $AKALogo 07 $mid($replace($hget(NickNames,$+($3,$4)),$chr(126),$chr(44)),2,-1)
  20. }
  21. }
  22. alias -l NickNamesAdd {
  23. if ($hget(NickNames,$2)) {
  24. if (!$regex($hget(NickNames,$2),/~\Q $+ $1 $+ \E~/i)) {
  25. if ($gettok($hget(NickNames,$2),0,126) <= $MaxNicks) {
  26. hadd NickNames $2 $+($hget(NickNames,$2),$1,~)
  27. }
  28. else {
  29. hadd NickNames $2 $+($mid($hget(NickNames,$2),$pos($hget(NickNames,$2),~,2)),$1,~)
  30. }
  31. }
  32. }
  33. else {
  34. hadd -m NickNames $2 $+(~,$1,~,$iif($3,$+($3,~)))
  35. }
  36. }
  37. alias -l Fix.All.MindUser {
  38. var %Fix.Count = $hfind(NickNames,/[^~]+[0-9]{4}[~$]/,0,r).data
  39. while (%Fix.Count) {
  40. if ($Fix.MindUser($hget(NickNames,$hfind(NickNames,/[^~]+[0-9]{4}[~$]/,%Fix.Count,r).data))) {
  41. echo -ag Record %Fix.Count - $v1 - Was Cleaned
  42. hadd NickNames $hfind(NickNames,/[^~]+[0-9]{4}[~$]/,%Fix.Count,r).data $v1
  43. }
  44. dec %Fix.Count
  45. }
  46. }
  47. alias -l Fix.MindUser { return $regsubex($1,/[^~]+[0-9]{4}[~$]/g,$null) }
  48. menu nicklist {
  49. -
  50. .AKA
  51. ..Check $$1: {
  52. if ($gettok($hget(NickNames,$+($network,$address($1,2))),0,126) > 1) {
  53. NickNames.display $1 $active $network $address($1,2)
  54. }
  55. else { echo -ag $AKALogo $+(09,$1) 07has not been known by any other nicknames while I have been watching. }
  56. }
  57. ..Cleanup $$1:hadd NickNames $+($network,$address($1,2)) $fix.minduser($hget(NickNames,$+($network,$address($1,2))))
  58. ..Clear $$1:hadd NickNames $+($network,$address($1,2)) $+(~,$1,~)
  59. ..AKA Search Dialog:dialog $iif($dialog(AKA_Search),-v,-m) AKA_Search AKA_Search
  60. -
  61. }
  62. menu status,channel {
  63. -
  64. .AKA
  65. ..AKA Search Dialog:dialog $iif($dialog(AKA_Search),-v,-m) AKA_Search AKA_Search
  66. ..Clean All Records:Fix.All.Minduser
  67. -
  68. }
  69. dialog AKA_Search {
  70. title
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