protection flood Long Text

Admin Mon Apr 09, 2012 10:36 pm

Code:: dialog longp { title "Long Text" size -1 -1 300 340 box "Configuration", 1, 6 6 288 328 box "Option", 2, 160 30 100 133 box "Status", 3, 42 30 81 85 radio "On", 4, 54 52 60 23, push group radio "Off", 5, 54 82 60 23, push radio "Warning", 6, 175 55 60 13, group edit "", 7, 170 180 60 20 radio "Kick", 8, 175 80 64 13 radio "Kick+Ban", 9, 175 105 64 13 radio "By X", 10, 175 130 64 13 box "Duration", 11, 42 120 81 42 edit "", 12, 52 135 60 20 box "Level", 13, 42 165 81 42 edit "", 14, 52 180 60 20 box "Warning Msg", 15, 25 210 252 43 edit "", 16, 30 225 242 20 box "Kick Msg", 17, 25 255 252 43 edit "", 18, 30 270 242 20 button "Done", 19, 120 305 60 23, ok box "", 20, 117 297 66 33 box "Count", 21, 160 165 81 42 text "lallouSs Edition", 22, 200 310 80 33 } on *:dialog:longp:*:*: { if $devent = init { did -a longp 7 %long.count did -a longp 12 %long.duration did -a longp 14 %long.level did -a longp 16 %long.warning did -a longp 18 %long.kick if (%long.status == on) { did -c longp 4 } elseif (%long.status == off) { did -c longp 5 } if (%long.reason = k) { did -c longp 8 } if (%long.reason = kb) { did -c longp 9 } if (%long.reason = warning) { did -c longp 6 } if (%long.reason = byx) { did -c longp 10 } } if $devent = sclick { if $did = 4 { .set %long.status on | .enable #longp | echo -a Long Text Protection is now "ON" [lallouSs Edition] } if $did = 5 { .set %long.status off | .disable #longp | echo -a Long Text Protection is now "OFF" [lallouSs Edition] } if $did = 8 { .set %long.reason k | echo -a Action turned to Kick [lallouSs Edition] } if $did = 9 { .set %long.reason kb | echo -a Action turned to Kick-Ban [lallouSs Edition] } if $did = 10 { .set %long.reason byx | echo -a Action turned to Ban-By-X [lallouSs Edition] } if $did = 6 { .set %long.reason warning | echo -a Action turned to Warning [lallouSs Edition] } } if $devent = edit { if $did = 7 { .set %long.count $did(7) } if $did = 12 { .set %long.duration $did(12) } if $did = 14 { .set %long.level $did(14) } if $did = 16 { .set %long.warning $did(16) } if $did = 18 { .set %long.kick $did(18) } } } #longp on on @*:TEXT:*:#:{ if ($nick !isop $chan) { if ($len($strip($1-)) >= %long.count ) { if (%long.reason == warning) { .msg $nick %long.warning } if (%long.reason == k) { kick $chan $nick %long.kick } if (%long.reason == kb) { mode $chan +b $nick | kick $chan $nick %long.kick } if (%long.reason == byx) { .msg x ban $chan $nick %long.duration %long.level %long.kick } } } } #longp end menu menubar { - Long Text Pro:/dialog -m longp longp - }

Mon	Tue	Wed	Thu	Fri	Sat	Sun
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31