API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jul 18th, 2017
125
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 11.30 KB | None | 0 0
raw download clone embed print report
  1. On *:TEXT:$($+(%prefix,SHOWCOMMANDS)):#: { .NOTICE $nick %lvl $+ $ulevel for u! }
  2. On 11:TEXT:$($+(%prefix,ADDCOMMAND * *)):#: { .set %lvl $+ $2 $3 | .NOTICE $nick % $+ lvl $+ $2 is now $3 }
  3.  
  4. ; Levels
  5. On 11:TEXT:$($+(%prefix,ACCESS 100 *)):#: { .GUSER INGET! $3 2 }
  6. On 10:TEXT:$($+(%prefix,ACCESS 1 *)):#: { .GUSER 1 $3 2 }
  7. On 10:TEXT:$($+(%prefix,ACCESS 2 *)):#: { .GUSER 2 $3 2 }
  8. On 10:TEXT:$($+(%prefix,ACCESS 3 *)):#: { .GUSER 3 $3 2 }
  9. On 10:TEXT:$($+(%prefix,ACCESS 4 *)):#: { .GUSER 4 $3 2 }
  10. On 10:TEXT:$($+(%prefix,ACCESS 5 *)):#: { .GUSER 5 $3 2 }
  11. On 10:TEXT:$($+(%prefix,ACCESS 6 *)):#: { .GUSER 6 $3 2 }
  12. On 10:TEXT:$($+(%prefix,ACCESS 7 *)):#: { .GUSER 7 $3 2 }
  13. On 10:TEXT:$($+(%prefix,ACCESS 8 *)):#: { .GUSER 8 $3 2 }
  14. On 10:TEXT:$($+(%prefix,ACCESS 9 *)):#: { .GUSER 9 $3 2 }
  15. On 11:TEXT:$($+(%prefix,ACCESS 10 *)):#: { .GUSER 10 $2 2 }
  16. On 11:TEXT:$($+(%prefix,ACCESS 11 *)):#: { .GUSER 11 $3 2 }
  17.  
  18. ;Level 1-6
  19. On 2:TEXT:$($+(%prefix,ME *)):#: { .DESCRIBE $chan $2- }
  20. On 2:TEXT:soft:#: { .msg $chan Jaaaaa, soooft! }
  21. On 2:TEXT:$($+(%prefix,SLAP *)):#: { .DESCRIBE $chan $nick slaps $2 with a big $nick dick }
  22. On 2:TEXT:$($+(%prefix,IP)):#: { .NOTICE $nick Your ip-adress is $ip $+ ! }
  23. On 3:TEXT:$($+(%prefix,INVITE *)):#: { .INVITE $2 $chan }
  24. On 3:TEXT:$($+(%prefix,TODO)):#: { .NOTICE $nick SHOWCOMMANDS, SHOWCOMMANDS (level), Autojoin, exuses. }
  25. On 4:TEXT:$($+(%prefix,SAY *)):#: { .msg $chan $2- }
  26. On 5:TEXT:$($+(%prefix,TOPIC *)):#: { if ($me isop $chan) { .TOPIC $chan $2- } | else { .NOTICE $nick $me is not OP! } }
  27. On 5:TEXT:Döö:#: { .DESCRIBE $chan have been killed by $nick }
  28. On 6:TEXT:$($+(%prefix,KICK * *)):#: { if ($me isop $chan) { .KICK $chan $2 $3- } | else { .NOTICE $nick $me is not OP! } }
  29.  
  30.  
  31.  
  32. ;Level 7-11
  33. On 7:TEXT:$($+(%prefix,QUERY * *)):#: { .query $2 $3- | .NOTICE $nick Query message sent to $2 $+ . Your message was $3- }
  34. On 7:TEXT:$($+(%prefix,PART)):#: { if ($chan == #Dark-Bot) { .NOTICE $nick I will never part #Dark-Bot! } | else { .PART $chan $nick } }
  35. On 7:TEXT:$($+(%prefix,JOIN *)):#: { if ($me ison $2) { .join $2 | .NOTICE $nick $me has joined the channel $2 } | else { .NOTICE $nick Cannot join $2 } }
  36. On 8:TEXT:$($+(%prefix,RECONNECT)):#: { .quit Reconnecting | .server se.quakenet.org 6669 }
  37. On *:START:#: { .JOIN #Bot-answer | .JOIN #Dark-Bot | .JOIN #fuska.nu@Games | .JOIN #iRules.se }
  38. On 9:TEXT:$($+(%prefix,NICK *)):#fuska.nu@Games:{
  39.   if ($2 == user) {
  40.     .NOTICE $nick The nick $2 is banned from using.
  41.   }
  42.   elseif ($2 == nick) {
  43.     .NOTICE $nick The nick $2 is banned from using.
  44.   }
  45.   if (The*Apan iswm $2) {
  46.     .NOTICE $nick The nick The $+ $2 $+ Apan is banned from using.
  47.   }
  48.   else { .nick $2 | .NOTICE $nick Done. }
  49. }
  50. On 9:TEXT:$($+(%prefix,PART *)):#: { if ($chan == #Dark-Bot) { .NOTICE $nick I will never part #Dark-Bot! } else { .PART $chan $2- } }
  51. On 9:TEXT:$($+(%prefix,SET INVITE ON)):#: { .MODE $chan +i }
  52. On 9:TEXT:$($+(%prefix,SET INVITE OFF)):#: { .MODE $chan -i }
  53. On 8:TEXT:$($+(%prefix,DEOP)):#: { if ($me isop $chan) { .mode # -o $nick } | elseif ($nick !isop $chan) { .NOTICE $nick You are already without op } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  54. On 9:TEXT:$($+(%prefix,DEOP *)):#: { if ($me isop $chan) { .mode # -o $2 } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  55. On 9:TEXT:$($+(%prefix,OP *)):#: { if ($me isop $chan) { .mode # +o $2 } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  56. On 8:TEXT:$($+(%prefix,OP)):#: { if ($me isop $chan) { .mode # +o $nick } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  57. On 9:TEXT:$($+(%prefix,DEVOICE *)):#: { if ($me isop $chan) { .mode # -v $2 } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  58. On 8:TEXT:$($+(%prefix,DEVOICE)):#: { if ($me isop $chan) { .mode # -v $nick } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  59. On 8:TEXT:$($+(%prefix,VOICE)):#: { if ($me isop $chan) { .mode # +v $nick } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  60. On 9:TEXT:$($+(%prefix,VOICE *)):#: { if ($me isop $chan) { .mode # +v $2 } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  61. On 9:JOIN:#fuska.nu@Games: { .NOTICE $nick Welcome master $nick $+ ! }
  62. On 10:TEXT:$($+(%prefix,QUIET *)):#: { if ($me isop $chan) { .mode # -ov $2 } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  63. On 9:TEXT:$($+(%prefix,UNBAN *)):#: { if ($me isop $chan) { /MODE $chan -b $address($2,2) } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  64. On 9:TEXT:$($+(%prefix,BAN *)):#: { if ($me isop $chan) { /MODE $chan +b $address($2,2) } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  65. On 9:TEXT:$($+(%prefix,UNBAN *)):#: { if ($me isop $chan) { /MODE $chan -b $address($2,2) } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  66. On 9:TEXT:$($+(%prefix,BAN *)):#: { if ($me isop $chan) { /MODE $chan +b $address($2,2) } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick $me is not OP! Ask $nick(#, 1) if I can get OP } }
  67. On 11:DEOP:#: { .msg Q OP #fuska.nu@Games Quattro }
  68. On 9:TEXT:!PREFIX *:#: { .set %prefix $2 | .writeini prefix.ini $2 $nick $address($nick,2 }
  69. On *:TEXT:SHOWPREFIX:#: { .NOTICE $nick The prefix is: %prefix }
  70. On 9:TEXT:Dark-Bot:#: { .NOTICE $nick $read(random.txt) }
  71. On 11:TEXT:$($+(%prefix,USER * *)):#: { /write userflags/ $+ $2 $+ .txt $3 | .NOTICE $nick $2 has been added to userflags! }
  72. On *:TEXT:!GETUSER *:#: { .NOTICE $nick $read(userflags/ [ $+ [ $2 ] $+ ] .txt) }
  73. On 11:TEXT:Att du slutar quita deal?:#: { .msg $chan Deal! *Suck* *Stön* }
  74. On 11:TEXT:Nej, jag kan inte omformulera frågan!:#: { .msg $chan k. }
  75. On *:TEXT:$($+(%prefix,TEST)):#: { if ($me isop $chan) { .NOTICE $nick ISOP } | elseif ($ulevel > 9) { .NOTICE $nick Access denied. You need level 9 $(|) You are $ulevel } | else { .NOTICE $nick You are under 9. } }
  76.  
  77. ;Alla levlar
  78. On *:DEOP:#: { if ($read(userflags/ [ $+ [ $2 ] $+ ] .txt) == +op){ .mode $chan +o $nick } }
  79. On *:DEVOICE:#: { if ($read(userflags/ [ $+ [ $2 ] $+ ] .txt) == +p) { .mode $chan +v $nick } }
  80. On *:TEXT:$($+(%prefix,SAY /mode #fuska.nu@Games * *)):#: { .mode #fuska.nu@Games $4- }
  81. On *:PART:#fuska.nu@Games: { .JOIN #fuska.nu@Games }
  82. On *:TEXT:$($+(%prefix,WHOAMI)):#: { .NOTICE $nick $nick $+ : $address($nick,2) $(|) Bot level: $ulevel $(|) User Flags: $read(userflags/ $+ $nick $+ .txt) }
  83. On *:TEXT:$($+(%prefix,WHOIS *)):#: { .NOTICE $nick $2 $+ : $address($2,2)  $(|) Bot level: $level($address($2,2)) $(|) User Flags: $read(userflags/ $+ $2 $+ .txt) }
  84. On *:JOIN:#fuska.nu@Games: if ($nick isop $chan) { msg $chan Welcome $nick to $chan $+ 's chat! } else { .NOTICE $nick Welcome $nick $+ ! } )
  85. On *:JOIN:#fuska.nu@Games: { .NOTICE $nick Welcome $nick }
  86. On *:TEXT:$($+(%prefix,Q)):#: { .NOTICE $nick To get Q you first need to get a auth and see !AUTH for that and now you only need to have 3 other users in the channel and type /msg R REQUESTBOT #channel }
  87. On *:TEXT:$($+(%prefix,AUTH)):#: { .NOTICE $nick Write /msg Q HELLO your@email your@email and then look at "!Q" }
  88. ; Bot Service (if anyone want the bot on these channels)
  89. ;User Commands
  90. on @1:BAN:#fuska.nu@Games:{
  91.   if ($bnick == $me) {
  92.     mode $chan -b $banmask | .msg q unbanme $chan
  93.   }
  94. }
  95. on 11:KICK:#fuska.nu@Games:{ mode $chan -b $banmask | .msg q unbanme $chan | .JOIN $chan }
  96. ;Channel Commands
  97. on *:TEXT:$($+(%prefix,add &)):#: {
  98.   var %c = $gettok($2,1,44)
  99.   if (!%c) || ($me ison %c) { return }
  100.   if (%request#. [ $+ [ $nick ] ] ) {
  101.     msg $nick Your request has been denied because: You already have a request in progress for $v1
  102.     return
  103.   }
  104.   var %i = 1, %v
  105.   while ($var(%request#.*,%i)) {
  106.     %v = $v1
  107.     if ($eval(%v,2) == %c) {
  108.       msg $nick Your request has been denied because: $gettok(%v,2,46) already requested for channel %c
  109.       return    
  110.     }
  111.     inc %i
  112.   }
  113.   set -u15 %request#. $+ $nick %c
  114.   if (*.users.quakenet.org iswm $site) {
  115.     set -u15 %requestQ. $+ $nick $gettok($site,1,46)
  116.     join %c
  117.   }
  118.   else {
  119.     set -u15 %requestQ. $+ $nick ?
  120.     who $nick n%nat,717
  121.   }
  122. }
  123. raw 354:& 717 & &:{
  124.   if (%requestQ. [ $+ [ $3 ] ] != ?) { return }
  125.   haltdef
  126.   if ($4 == 0) {
  127.     unset %requestQ. $+ $3
  128.     unset %request#. $+ $3
  129.     msg $3 Your request has been denied because: You aren't registered with Q.
  130.   }
  131.   else {
  132.     set -u15 %requestQ. $+ $3 $4
  133.     join %request#. [ $+ [ $3 ] ]
  134.   }
  135. }
  136. raw 315:*: {
  137.   if (!%requestQ. [ $+ [ $2 ] ] ) { return }
  138.   haltdef
  139.  
  140. }
  141. raw 366:*: {
  142.   var %i = 1, %v
  143.   while ($var(%request#.*,%i)) {
  144.     %v = $v1
  145.     if ($eval(%v,2) == $2) { goto found }
  146.     inc %i
  147.   }
  148.   return
  149.   :found
  150.   haltdef
  151.   var %nick = $gettok(%v,2,46)
  152.   if (%nick !ison $2) {
  153.     unset %request#. $+ %nick
  154.     unset %requestQ. $+ %nick
  155.     msg %nick Your request has been denied because: You aren't on channel $2
  156.     return
  157.   }
  158.   var %qauth = %requestQ. [ $+ [ %nick ] ]
  159.   if (%nick !isop $2) {
  160.     unset %request#. $+ %nick
  161.     unset %requestQ. $+ %nick
  162.     msg %nick Your request has been denied because: You aren't op on channel $2
  163.     return
  164.   }
  165.   writeini user.ini $2 Owner %qauth %nick
  166.   msg %nick Your request has been accepted
  167.   if ($me !isop $2) {
  168.     .timerRSWarn. $+ $2 1 300 warnop $2
  169.     .timerRSOp. $+ $2 1 600 checkop $2
  170.   }
  171. }
  172. on *:JOIN:#:{
  173.   if if ($nick == $me) && ($readini(user.ini,$chan,Owner)) {
  174.     .timerRSWarn. $+ $chan 1 300 warnop $2
  175.     .timerRSOp. $+ $chan 1 600 checkop $2
  176.   }
  177. }
  178. alias -l warnop { if ($me ison $1) && ($me !isop $1) { msg $1 Please +o me within 5 minutes. } }
  179. alias -l checkop { if ($me ison $1) && ($me !isop $1) { part $1 No +o received. } }
  180. on *:OP:#: {
  181.   if ($opnick != $me) return
  182.   if ($timer(RSWarn. $+ $chan)) { .timerRSWarn. $+ $chan OFF }
  183.   if ($timer(RSOp. $+ $chan)) { .timerRSOp. $+ $chan OFF }
  184. }
  185. on *:DEOP:#: {
  186.   if ($opnick != $me) return
  187.   if ($readini(user.ini,$chan,Owner)) { part $chan +o has been removed. }
  188. }
  189. on *:CONNECT:{
  190.  
  191.  
  192.  
  193. }
  194. ;YouTube Script & Spotify Script (only me)
  195.  
  196.  
  197. alias -l spotrx { return /(?:http:\/\/open\.)?spotify(?:\.com)?.(track|artist|album|user.*playlist).([0-9a-zA-Z]+)/ }
  198. on $^*:HOTLINK:$($spotrx):*:{ return }
  199. on $*:HOTLINK:$($spotrx):*:{ dde -e Spotify OpenLink $+(spotify:,$replace($regml(1),/,:),:,$regml(2)) }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!