API tools faq
paste
Guest User

Untitled

a guest
Mar 14th, 2018
89
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 12.75 KB | None | 0 0
raw download clone embed print report
  1. on *:TEXT:!tempban *:#:{
  2.   if ($me ishop $chan || $me isop $chan) {
  3.     if ($$2 ishop $chan || $$2 isop $chan) { halt }
  4.     elseif ($nick !ishop $chan || $nick !isop $chan) && ($$2 ison $chan && $$3 isnum) {
  5.       set %reason. [ $+ [ $$2 ] ] $4-
  6.       if (%reason. [ $+ [ $$2 ] ] == $null) { set %reason. [ $+ [ $$2 ] ] No Reason }
  7.       inc %kcount
  8.       ban -ku $+ $calc($3 * 60) $chan $$2 2 10Reason: %reason. [ $+ [ $$2 ] ] ¤ Banned for $$3 minutes ¤ Requested By: $nick ¤12
  9.       unset %reason. [ $+ [ $$2 ] ]
  10.     }
  11.   }
  12. }
  13.  
  14.  
  15. on *:TEXT:!tempmute *:#:{
  16.   if ($me ishop $chan || $me isop $chan) {
  17.     if ($$2 ishop $chan || $$2 isop $chan) { halt }
  18.     elseif ($nick !ishop $chan || $nick !isop $chan) && ($$2 ison $chan) {
  19.       ban -u $+ $calc($3 * 60) $chan $$2 2
  20.       msg $chan $$2 has been muted for $3 minutes.
  21.     }
  22.   }
  23. }
  24.  
  25. on *:JOIN:#: {
  26.   if ($regex($nick,/^mib_/)) {
  27.     echo -t #PokeTD Sending warning to $nick
  28.     notice $nick Please use your 02forum name on this chat. Refresh the page and enter your name into the name box.
  29.     notice $nick You will now be kicked. You may rejoin with another name.
  30.     set %kicks. [ $+ [ $nick ] ] 1
  31.     .timer 1 30 KickMib $nick $chan
  32.   }
  33. }
  34.  
  35. on *:NICK: {
  36.   CheckMib $nick $newnick
  37. }
  38.  
  39. alias KickMib {
  40.   if ( %kicks. [ $+ [ $1 ] ] == 1 ) {
  41.     echo -t #PokeTD Kicking $1 from $2
  42.     kick $2 $1 Please use your forum name.
  43.     ;mode $2 +b $1
  44.   }
  45.   unset %kicks. [ $+ [ $1 ] ]
  46. }
  47.  
  48. alias CheckMib {
  49.   if ( %kicks. [ $+ [ $1 ] ] == 1) && (!$regex($2,/^mib_/)) {
  50.     set %kicks. [ $+ [ $1 ] ] 0
  51.     echo -t #PokeTD Cancelling kick for $1 ( [ $+ [ $2 ] $+ ] )
  52.   }
  53. }
  54.  
  55. on *:TEXT:!commands:#: {
  56.   if ($nick ishop $chan || $nick isop $chan) {
  57.   notice $nick System commands: !warn <nick>, !dewarn <nick>, !checkwarn <nick> (nick must be present on channel), !tempban <nick> <time(mins)> [reason], !tempmute <nick> <time(mins)> }
  58.   else { notice $nick Only staff can view the commands list. }
  59. }
  60.  
  61. on *:JOIN:#:{
  62.   if ($nick == Jonaton) {
  63.   msg $nick Didn't you forget something? ;) }
  64.   else if ($left($nick,4) == mib_) {
  65.   /notice $nick Change your nick with "/nick name" (You can replace "name" with any nick you'd like to have). Mibs who don't change their names, will be kicked. }
  66. }
  67.  
  68.  
  69. on *:NICK:{
  70.   if ($regex($newnick,/^Jonaton)) {
  71.     msg $newnick Didn't you forget something? ;)
  72.   }
  73. }
  74. on *:TEXT:*11312011*:#:{
  75.   kick $chan $nick Don't give away the mystery code -_-
  76. }
  77.  
  78.  
  79.  
  80. on *:TEXT:!warn*:#:{
  81.   if ( $2 == $null ) { msg $nick Command : !warn [nick] | HALT }
  82.   if ($nick ishop $chan || $nick isop $chan) {
  83.     if ($2 ishop $chan || $2 isop $chan) { halt }
  84.     if ( $readini(warnings.ini, $address($2,2),warning) == $null )  {
  85.       writeini warnings.ini $address($2,2) warning 1
  86.       writeini warnings.ini $address($2,2) nick $2
  87.       if ( $2 ison #PokeTD ) { kick #PokeTD $2 You have now been warned (1/4) }
  88.       if ( $2 ison #PokeTD-Trade ) { kick #PokeTD-Trade This is your first warning, $2 }
  89.       if ( $2 ison #PokeTD-Auction ) { kick #PokeTD-Auction This is your first warning, $2 }
  90.       if ( $2 ison #PokeTD-Mature ) { kick #PokeTD-Mature This is your first warning, $2 }
  91.       if ( $2 ison #PokeTD-GPX ) { kick #PokeTD-GPX This is your first warning, $2 }
  92.       if ( $2 ison #PokeTD-Contest ) { kick #PokeTD-Contest This is your first warning, $2 }
  93.       HALT
  94.     }
  95.     if ( $readini(warnings.ini, $address($2,2),warning) == 1 )  {
  96.       writeini warnings.ini $address($2,2) warning 2
  97.       if ( $2 ison #PokeTD ) { kick #PokeTD $2 This is your second warning. You have been banned for 1 hour. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  98.       else {  mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  99.  
  100.       if ( $2 ison #PokeTD-Trade ) { kick #PokeTD-Trade $2 This is your second warning. | notice $2 You have been banned for 1 hour. Further warning will lead to a 3 hour ban. | mode #PokeTD-Trade +b $address($2,2) | timer 1 3600 mode #PokeTD-Trade -b $address($2,2) }
  101.       else {  mode #PokeTD-Trade +b $address($2,2) | timer 1 3600 mode #PokeTD-Trade -b $address($2,2) }
  102.  
  103.       if ( $2 ison #PokeTD-Auction ) { kick #PokeTD-Auction $2 This is your second warning. | notice $2 You have been banned for 1 hour. Further warning will lead to a 3 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  104.       else {  mode #PokeTD-Auction +b $address($2,2) | timer 1 3600 mode #PokeTD-Auction -b $address($2,2) }
  105.  
  106.       if ( $2 ison #PokeTD-Mature ) { kick #PokeTD-Mature $2 This is your second warning. | notice $2 You have been banned for 1 hour. Further warning will lead to a 3 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  107.       else {  mode #PokeTD-Mature +b $address($2,2) | timer 1 3600 mode #PokeTD-Mature -b $address($2,2) }
  108.  
  109.       if ( $2 ison #PokeTD-GPX ) { kick #PokeTD-GPX $2 This is your second warning. | notice $2 You have been banned for 1 hour. Further warning will lead to a 3 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  110.       else {  mode #PokeTD-GPX +b $address($2,2) | timer 1 3600 mode #PokeTD-GPX -b $address($2,2) }
  111.  
  112.       if ( $2 ison #PokeTD-Contest ) { kick #PokeTD-Contest $2 This is your second warning. | notice $2 You have been banned for 1 hour. Further warning will lead to a 3 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  113.       else {  mode #PokeTD-Contest +b $address($2,2) | timer 1 3600 mode #PokeTD-Contest  -b $address($2,2) }
  114.       HALT
  115.     }
  116.     if ( $readini(warnings.ini, $address($2,2),warning) == 2 )  {
  117.       writeini warnings.ini $address($2,2) warning 3
  118.       if ( $2 ison #PokeTD ) { kick #PokeTD $2 This is your third warning. | notice $2 You have been banned for 3 hours. Further warning will lead to a 24 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 8400 mode #PokeTD -b $address($2,2) }
  119.       else {  mode #PokeTD +b $address($2,2) | timer 1 10800 mode #PokeTD -b $address($2,2) }
  120.  
  121.       if ( $2 ison #PokeTD-Trade ) { kick #PokeTD-Trade $2 This is your third warning. | notice $2 You have been banned for 3 hours. Further warning will lead to a 24 hour ban. | mode #PokeTD-Trade +b $address($2,2) | timer 1 8400 mode #PokeTD-Trade -b $address($2,2) }
  122.       else {  mode #PokeTD-Trade +b $address($2,2) | timer 10800 mode #PokeTD-Trade -b $address($2,2) }
  123.  
  124.       if ( $2 ison #PokeTD-Auction ) { kick #PokeTD-Auction $2 This is your third warning. | notice $2 You have been banned for 3 hours. Further warning will lead to a 24 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 8400 mode #PokeTD -b $address($2,2) }
  125.       else {  mode #PokeTD-Auction +b $address($2,2) | timer 1 10800 mode #PokeTD-Auction -b $address($2,2) }
  126.  
  127.       if ( $2 ison #PokeTD-Mature ) { kick #PokeTD-Mature $2 This is your third warning. | notice $2 You have been banned for 3 hours. Further warning will lead to a 24 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 8400 mode #PokeTD -b $address($2,2) }
  128.       else {  mode #PokeTD-Mature +b $address($2,2) | timer 1 10800 mode #PokeTD-Mature -b $address($2,2) }
  129.  
  130.       if ( $2 ison #PokeTD-GPX ) { kick #PokeTD-GPX $2 This is your third warning. | notice $2 You have been banned for 3 hours. Further warning will lead to a 24 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 8400 mode #PokeTD -b $address($2,2) }
  131.       else {  mode #PokeTD-GPX +b $address($2,2) | timer 1 10800 mode #PokeTD-GPX -b $address($2,2) }
  132.  
  133.       if ( $2 ison #PokeTD-Contest ) { kick #PokeTD-Contest $2 This is your third warning. | notice $2 You have been banned for 3 hours. Further warning will lead to a 24 hour ban. | mode #PokeTD +b $address($2,2) | timer 1 8400 mode #PokeTD -b $address($2,2) }
  134.       else {  mode #PokeTD-Contest +b $address($2,2) | timer 1 10800 mode #PokeTD-Contest  -b $address($2,2) }
  135.       HALT
  136.     }
  137.     if ( $readini(warnings.ini, $address($2,2),warning) == 3 )  {
  138.       writeini warnings.ini $address($2,2) warning 4
  139.       if ( $2 ison #PokeTD ) { kick #PokeTD $2 This is your final warning. | notice $2 You have been banned for 24 hours. Further warning will lead to a permanent ban. | mode #PokeTD +b $address($2,2) | timer 1 86400 mode #PokeTD -b $address($2,2) }
  140.       else {  mode #PokeTD +b $address($2,2) | timer 1 86400 mode #PokeTD -b $address($2,2) }
  141.  
  142.       if ( $2 ison #PokeTD-Trade ) { kick #PokeTD-Trade $2 This is your final warning. | notice $2 You have been banned for 24 hours. Further warning will lead to a permanent ban. | mode #PokeTD-Trade +b $address($2,2) | timer 1 86400 mode #PokeTD-Trade -b $address($2,2) }
  143.       else {  mode #PokeTD-Trade +b $address($2,2) | timer 1 86400 mode #PokeTD-Trade -b $address($2,2) }
  144.  
  145.       if ( $2 ison #PokeTD-Auction ) { kick #PokeTD-Auction $2 This is your final warning. | notice $2 You have been banned for 24 hours. Further warning will lead to a permanent ban. | mode #PokeTD +b $address($2,2) | timer 1 86400 mode #PokeTD -b $address($2,2) }
  146.       else {  mode #PokeTD-Auction +b $address($2,2) | timer 1 86400 mode #PokeTD-Auction -b $address($2,2) }
  147.  
  148.       if ( $2 ison #PokeTD-Mature ) { kick #PokeTD-Mature $2 This is your final warning. | notice $2 You have been banned for 24 hours. Further warning will lead to a permanent ban. | mode #PokeTD +b $address($2,2) | timer 1 86400 mode #PokeTD -b $address($2,2) }
  149.       else {  mode #PokeTD-Mature +b $address($2,2) | timer 1 86400 mode #PokeTD-Mature -b $address($2,2) }
  150.  
  151.       if ( $2 ison #PokeTD-GPX ) { kick #PokeTD-GPX $2 This is your final warning. | notice $2 You have been banned for 24 hours. Further warning will lead to a permanent ban. | mode #PokeTD +b $address($2,2) | timer 1 86400 mode #PokeTD -b $address($2,2) }
  152.       else {  mode #PokeTD-GPX +b $address($2,2) | timer 1 86400 mode #PokeTD-GPX -b $address($2,2) }
  153.  
  154.       if ( $2 ison #PokeTD-Contest ) { kick #PokeTD-Contest $2 This is your final warning. | notice $2 You have been banned for 24 hours. Further warning will lead to a permanent ban. | mode #PokeTD +b $address($2,2) | timer 1 86400 mode #PokeTD -b $address($2,2) }
  155.       else {  mode #PokeTD-Contest +b $address($2,2) | timer 1 86400 mode #PokeTD-Contest  -b $address($2,2) }
  156.       HALT
  157.     }
  158.     if ( $readini(warnings.ini, $address($2,2),warning) == 4 )  {
  159.       writeini warnings.ini $address($2,2) warning 5
  160.       if ( $2 ison #PokeTD ) { kick #PokeTD $2 You are permanently banned. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  161.       else {  mode #PokeTD +b $address($2,2) }
  162.  
  163.       if ( $2 ison #PokeTD-Trade ) { kick #PokeTD-Trade $2 You are permanently banned. | mode #PokeTD-Trade +b $address($2,2) | timer 1 3600 mode #PokeTD-Trade -b $address($2,2) }
  164.       else {  mode #PokeTD-Trade +b $address($2,2) }
  165.  
  166.       if ( $2 ison #PokeTD-Auction ) { kick #PokeTD-Auction $2 You are permanently banned. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  167.       else {  mode #PokeTD-Auction +b $address($2,2) }
  168.  
  169.       if ( $2 ison #PokeTD-Mature ) { kick #PokeTD-Mature $2 You are permanently banned. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  170.       else {  mode #PokeTD-Mature +b $address($2,2)  }
  171.  
  172.       if ( $2 ison #PokeTD-GPX ) { kick #PokeTD-GPX $2 You are permanently banned. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  173.       else {  mode #PokeTD-GPX +b $address($2,2) }
  174.  
  175.       if ( $2 ison #PokeTD-Contest ) { kick #PokeTD-Contest $2 You are permanently banned. | mode #PokeTD +b $address($2,2) | timer 1 3600 mode #PokeTD -b $address($2,2) }
  176.       else {  mode #PokeTD-Contest +b $address($2,2) }
  177.  
  178.       remini warnings.ini $address($2,2) warning
  179.       HALT
  180.     }
  181.     else { msg # $2 is on the Max Warn Level! Original Nickname : $readini(warnings.ini, $address($2,2),nick)  | HALT }
  182.   }
  183.   else { msg # $nick $+ , this command is for operators only | HALT }
  184. }
  185.  
  186. on *:TEXT:!checkwarn*:#:{
  187.   if ( $readini(warnings.ini, $address($2,2),warning) == $null ) { msg # $2 does not have a warning level | HALT }
  188.   else { msg # Warning Level : $readini(warnings.ini, $address($2,2),warning) | HALT }
  189. }
  190.  
  191. on *TEXT:!dewarn*:#:{
  192.   if ( $readini(warnings.ini, $address($2,2),warning) == $null ) { msg $nick $2 does not have a warning level | HALT }
  193.   elseif ( $readini(warnings.ini, $address($2,2),warning) == 1 ) { remini warnings.ini $address($2,2) warning }
  194.   elseif ( $readini(warnings.ini, $address($2,2),warning) == 2 ) { writeini warnings.ini $address($2,2) warning 1 }
  195.   elseif ( $readini(warnings.ini, $address($2,2),warning) == 3 ) { writeini warnings.ini $address($2,2) warning 2 }
  196.   elseif ( $readini(warnings.ini, $address($2,2),warning) == 4 ) { writeini warnings.ini $address($2,2) warning 3 }
  197.   else { msg $nick $2 cannot be dewarned. }
  198. }
Add Comment
Please, Sign In to add comment
Public Pastes
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!