Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias DC.Actions {
- CheckLags
- if ($GlobalChecks($1,$2,$3)) && (!$CheckProtect($address($2,5))) {
- if ($me isop $chan) {
- if ($+(%,DC.Ban.,$network,.,$3,.,$2)) {
- if ($DC.Read($3,$1,Act) == 1) { unset $+(%,DC.Ban.,$network,.,$3,.,$2) | return }
- var %m
- if ($2 isop $3) { %m = $+(%m,o) }
- if ($2 ishop $3) { %m = $+(%m,h) }
- if ($2 isvoice $3) { %m = $+(%m,v) }
- if ($len(%m) > 0) { mode $3 $+(-,%m) $str($2 $+ $chr(32),$v1) }
- var %o = BNicks BWords BIdents Spam Guest NickF BigMsg NoticeF CodeF CtcpF Repeat Caps ASCII FJP
- if ($istok(%o,$1,32)) {
- if ($DC.Read($3,$1,Act) == 2) {
- if ($+(%,DC.Warn.,$network,.,$3,.,$1) == $null) { set $+(%,DC.Warn.,$network,.,$3,.,$1) Warned | inc %w | goto end }
- 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 }
- }
- elseif ($DC.Read($3,$1,Act) == 3) || ($DC.Read($3,$1,Act) == 4) {
- if ($DC.Read($3,$1,Btype) isnum 0-9) {
- if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $2 $DC.Read($3,$1,Btype) }
- else { ban $3 $2 $DC.Read($3,$1,Btype) }
- inc %b
- goto end
- }
- else {
- if ($DC.Read($3,$1,Btype) == 10) {
- if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $+($2,!*@*) }
- else { ban $3 $+($2,!*@*) }
- inc %b
- goto end
- }
- if ($DC.Read($3,$1,Btype) == 11) {
- if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $4 }
- else { ban $3 $4 }
- inc %b
- goto end
- }
- }
- }
- elseif ($DC.Read($3,$1,Act) == 5) goto Kick
- elseif ($DC.Read($3,$1,Act) == 6) {
- if ($DC.Read($3,$1,Btype) isnum 0-9) {
- if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,KBT) ] ] $3 $2 $DC.Read($3,$1,Btype) }
- else { ban $3 $2 $DC.Read($3,$1,Btype) }
- inc %b
- goto Kick
- }
- else {
- if ($DC.Read($3,$1,Btype) == 10) {
- if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $+($2,*!*@*) }
- else { ban $3 $+($2,*!*@*) }
- inc %b
- goto Kick
- }
- if ($DC.Read($3,$1,Btype) == 11) {
- if ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,$1,TBT) ] ] $3 $4 | goto end }
- if ($DC.Read($3,$1,Act) == 4) || ($DC.Read($3,$1,Act) == 6) { ban $3 $4 $GetIdent($address($2,5)) | inc %b }
- if ($DC.Read($3,$1,Act) == 5) || ($DC.Read($3,$1,Act) == 6) goto Kick
- goto end
- }
- }
- }
- }
- elseif ($1 == JoinF) { }
- elseif ($1 == Clone) {
- if ($DC.Read($3,$1,Act) == 2) { ban -u [ $+ [ $DC.Read($3,Clone,KBT) ] ] $3 $address($2,2) | inc %b | goto end }
- elseif ($DC.Read($3,$1,Act) == 3) { ban -u [ $+ [ $DC.Read($3,Clone,KBT) ] ] $3 $address($2,7) | goto kick }
- 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 }
- }
- :Kick
- kick $3 $2 $DC.Reason($1,$2,$3,KRes)
- inc %k
- :end
- if ($DC.Read($3,$1,Res) == 1) {
- if (%WRes) { notice $2 $DC.Reason($1,$2,$3,WRes,$iif($4, $4)) | unset %WRes }
- else { notice $2 $DC.Reason($1,$2,$3,BRes,$iif($4, $4)) }
- }
- if (%w) { SaveCount $3 WCount %w | unset %w }
- if (%b) { SaveCount $3 BCount %b | unset %b }
- if (%k) { SaveCount $3 KCount %k | unset %k }
- }
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement