Advertisement
Guest User

Untitled

a guest
Jun 28th, 2017
55
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.12 KB | None | 0 0
  1. on ^$*:TEXT:/(Priit)/Si:*:{
  2. if ($readini(highlight.ini,nick,$nick)) || ($readini(highlight.ini,addr,$address($nick,2))) || (*RuneScript iswm $nick) || (*iDM iswm $nick) || (# = #leghump) {
  3. echo -ti11 $iif(#,#,$nick) $nickm($nick) $1-
  4. halt
  5. }
  6. else {
  7. haltdef
  8. if (!$window(@Logs)) window @Logs
  9. var %x $replace($1-,$regml(1),$+(,$regml(1),))
  10. echo -ti11 @Logs $nickm($nick) %x $icq
  11. echo -ti11 $iif(#,#,$nick) $nickm($nick) %x
  12. if ($nick = $active) || (# = $active) halt
  13. else echo -ati11 03HIGHLIGHT01: $nickm($nick) %x $icq
  14. noop $tip($nick,Highlight,$nickm($nick) %x $icq,10,,,window -a $iif(#,#,$nick))
  15. }
  16. }
  17. on ^$*:ACTION:/(Priit)/Si:*:{
  18. if ($readini(highlight.ini,nick,$nick)) || ($readini(highlight.ini,addr,$address($nick,2))) || (*RuneScript iswm $nick) || (*iDM iswm $nick) || (# = #leghump) {
  19. echo -ti11 $iif(#,#,$nick) $remove($nickm($nick),>,<) $1-
  20. halt
  21. }
  22. else {
  23. haltdef
  24. if (!$window(@Logs)) window @Logs
  25. var %x $replace($1-,$regml(1),$+(,$regml(1),))
  26. echo -ti11 @Logs $nicka($nick) %x $icq
  27. echo -ti11 $iif(#,#,$nick) $nicka($nick) %x
  28. if ($nick = $active) || (# = $active) halt
  29. else echo -ati11 03HIGHLIGHT01: $nicka($nick) %x $icq
  30. noop $tip($nick,Highlight,$nicka($nick) %x $icq,10,,,window -a $iif(#,#,$nick))
  31. }
  32. }
  33. alias nickm {
  34. if (#) return $+(<,$nick(#,$1).color,$iif($left($nick(#,$1).pnick,1) isin @%+,$v1),$1,>)
  35. else return $+(<,$iif($1 = $me,06,10),$1,>)
  36. }
  37. alias nicka return $+(06*,$chr(32),$1)
  38. alias icq return $+([03,$iif(#,#,query),])
  39.  
  40. alias hlsetup {
  41. var %addr reddevilclan.nl swiftirc.net lcon.punch enter.the.wilderness services.swiftirc.net chine.to.make.big.decisions $&
  42. and.cookies.ftw all.noobs sleeping.dragons bet.you.wish.you.knew.me warcraft.bot, %nick -sbnc -psybnc chanserv botserv hostserv memoserv nickserv, %x $numtok(%addr,32), %z $numtok(%nick,32)
  43. while (%x) {
  44. writeini highlight.ini addr *!*@ $+ $gettok(%addr,%x,32) on
  45. dec %x
  46. }
  47. while (%y) {
  48. writeini highlight.ini addr $gettok(%nick,%y,32) on
  49. dec %y
  50. }
  51. echo -a * writeini completed.
  52. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement