Advertisement
Guest User

Untitled

a guest
Jul 22nd, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 3.90 KB | None | 0 0
  1. alias DC.Actions {
  2.   CheckLags
  3.   if ($GlobalChecks($1,$2,$3)) && (!$CheckProtect($address($2,5))) {
  4.     if ($me isop $chan) {
  5.       if ($+(%,DC.Ban.,$network,.,$3,.,$2)) {
  6.         if ($DC.Read($3,$1,Act) == 1) { unset $+(%,DC.Ban.,$network,.,$3,.,$2) | return }
  7.         var %m
  8.         if ($2 isop $3) { %m = $+(%m,o) }
  9.         if ($2 ishop $3) { %m = $+(%m,h) }
  10.         if ($2 isvoice $3) { %m = $+(%m,v) }
  11.         if ($len(%m) > 0) { mode $3 $+(-,%m) $str($2 $+ $chr(32),$v1) }
  12.         var %o = BNicks BWords BIdents Spam Guest NickF BigMsg NoticeF CodeF CtcpF Repeat Caps ASCII FJP
  13.         if ($istok(%o,$1,32)) {
  14.           if ($DC.Read($3,$1,Act) == 2) {
  15.             if ($+(%,DC.Warn.,$network,.,$3,.,$1) == $null) { set $+(%,DC.Warn.,$network,.,$3,.,$1) Warned | inc %w | goto end }
  16.             elseif ($+(%,DC.Warn.,$network,.,$3,.,$1) == Warned) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $2 $DC.Read($3,$1,Btype) | inc %b | goto end }
  17.           }
  18.           elseif ($DC.Read($3,$1,Act) == 3) || ($DC.Read($3,$1,Act) == 4) {
  19.             if ($DC.Read($3,$1,Btype) isnum 0-9) {
  20.               if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $2 $DC.Read($3,$1,Btype) }
  21.               else { ban $3 $2 $DC.Read($3,$1,Btype) }
  22.               inc %b
  23.               goto end
  24.             }
  25.             else {
  26.               if ($DC.Read($3,$1,Btype) == 10) {
  27.                 if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $+($2,!*@*) }
  28.                 else { ban $3 $+($2,!*@*) }
  29.                 inc %b
  30.                 goto end
  31.               }
  32.               if ($DC.Read($3,$1,Btype) == 11) {
  33.                 if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $4 }
  34.                 else { ban $3 $4 }
  35.                 inc %b
  36.                 goto end
  37.               }
  38.             }
  39.           }
  40.           elseif ($DC.Read($3,$1,Act) == 5) goto Kick
  41.           elseif ($DC.Read($3,$1,Act) == 6) {
  42.             if ($DC.Read($3,$1,Btype) isnum 0-9) {
  43.               if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,KBT) ] ] $3 $2 $DC.Read($3,$1,Btype) }
  44.               else { ban $3 $2 $DC.Read($3,$1,Btype) }
  45.               inc %b
  46.               goto Kick
  47.             }
  48.             else {
  49.               if ($DC.Read($3,$1,Btype) == 10) {
  50.                 if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $+($2,*!*@*) }
  51.                 else { ban $3 $+($2,*!*@*) }
  52.                 inc %b
  53.                 goto Kick
  54.               }
  55.               if ($DC.Read($3,$1,Btype) == 11) {
  56.                 if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $4 | goto end }
  57.                 if ($DC.Read($3,$1,Act) == 4) || ($DC.Read($3,$1,Act) == 6) { ban $3 $4 $GetIdent($address($2,5)) | inc %b }
  58.                 if ($DC.Read($3,$1,Act) == 5) || ($DC.Read($3,$1,Act) == 6) goto Kick
  59.                 goto end
  60.               }
  61.             }
  62.           }
  63.         }
  64.         elseif ($1 == JoinF) { }
  65.         elseif ($1 == Clone) {
  66.           if ($DC.Read($3,$1,Act) == 2) { ban -u [ $+ [ $DC.Read($3,Clone,KBT) ] ] $3 $address($2,2) | inc %b | goto end }
  67.           elseif ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,Clone,KBT) ] ] $3 $address($2,7) | goto kick }
  68.           elseif ($DC.Read($3,$1,Act) == 4) || ($DC.Read($3,$1,Act) == 5) { DC.Clone.KA $iif($DC.Read($3,$1,Act) == 5,-b) $3 $address($2,2) | inc %b | goto end }
  69.         }
  70.         :Kick
  71.         kick $3 $2 $DC.Reason($1,$2,$3,KRes)
  72.         inc %k
  73.         :end
  74.         if ($DC.Read($3,$1,Res) == 1) {
  75.           if (%WRes) { notice $2 $DC.Reason($1,$2,$3,WRes,$iif($4, $4)) | unset %WRes }
  76.           else { notice $2 $DC.Reason($1,$2,$3,BRes,$iif($4, $4)) }
  77.         }
  78.         if (%w) { SaveCount $3 WCount %w | unset %w }
  79.         if (%b) { SaveCount $3 BCount %b | unset %b }
  80.         if (%k) { SaveCount $3 KCount %k | unset %k }
  81.       }
  82.     }
  83.   }
  84. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement