Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;This dialog was made, in its entirity, by me, Xzempt
- ;if you have this, you are obviously a friend that i
- ;trust wont give it out or claim it as their own work
- ;I' put alot of work in this dialog, to make things a
- ; bit easier for us all
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;dialog table;;;;;;;;;;;;;;;;;;;;;
- dialog stat {
- title "Ircop Stats Dialog"
- size -1 -1 493 205
- option dbu
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;popup menu;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- menu * {
- IRC Stats: st
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;alias to open the dialog;;;;;;;;;;;;;;;;;
- alias st {
- if ($dialog(stat)) {
- dialog -x stat stat
- dialog -ma stat stat
- }
- else {
- dialog -ma stat stat
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;dialog initialization;;;;;;;;;;;;;;;;;;;;
- on *:DIALOG:stat:INIT:*: {
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;marks the dialog;;;;;;;;;;;;;;;;;;;;
- var %x = $dcx( Mark,$dname statscallback)
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;dialog border;;;;;;;;;;;;;;;;;;;;;;;;
- xdialog -b stat +s
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;dialog background color;;;;;;;;;;;;;;;
- xdialog -g stat +b $rgb(0,0,0)
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;close and minimize button;;;;;;;;;;;;;;;
- xdialog -c stat 3 image 950 6 10 10
- xdid -i stat 3 + $mircdirimages\min2.png
- xdialog -c stat 1000 image 971 6 10 10
- xdid -i stat 1000 + $mircdirimages\close.png
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;headers buttons and listview;;;;;;;;;
- xdialog -c $dname 1 listview 1 30 740 20 icon showsel autoarrange report grid fullrow multiline group
- xdid -t $dname 1 +l 0 25 B $chr(9) +l 0 25 b $chr(9) +l 0 25 C $chr(9) +l 0 25 d $chr(9) +l 0 25 D $chr(9) +l 0 25 e $chr(9) +l 0 25 E $chr(9) +l 0 25 f $chr(9) +l 0 25 F $chr(9) +l 0 25 G $chr(9) +l 0 25 I $chr(9) +l 0 25 j $chr(9) +l 0 25 K $chr(9) +l 0 25 L $chr(9) +l 0 25 M $chr(9) +l 0 25 n $chr(9) +l 0 25 O $chr(9) +l 0 25 P $chr(9) +l 0 25 Q $chr(9) +l 0 25 r $chr(9) +l 0 25 s $chr(9) +l 0 25 u $chr(9) +l 0 25 U $chr(9) +l 0 25 v $chr(9) +l 0 25 V $chr(9) +l 0 25 X $chr(9) +l 0 65 Spamfilter
- xdialog -c $dname 2 listview 1 50 740 355 icon showsel autoarrange report grid fullrow multiline group
- xdid -t stat 2 +l 0 100 Network: $chr(9) +l 0 100 Nick: $chr(9) +l 0 300 Address: $chr(9) +l 0 200 Spammed:
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;calls the alias to load the spam tracker;;;;;;
- spammed
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- xdialog -c $dname 4 check 780 50 10 10 smooth
- xdialog -c $dname 5 check 780 65 10 10 smooth
- xdialog -c $dname 6 check 780 80 10 10 smooth
- xdialog -c $dname 7 check 780 95 10 10 smooth
- xdialog -c $dname 8 check 780 110 10 10 smooth
- xdialog -c $dname 9 check 890 50 10 10 smooth
- xdialog -c $dname 10 check 890 65 10 10 smooth
- xdialog -c $dname 11 check 890 80 10 10 smooth
- xdialog -c $dname 12 check 890 95 10 10 smooth
- xdialog -c $dname 13 check 890 110 10 10 smooth
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;radio buttons ;;;;;;;;;;;;;;;;;;;;;;
- xdialog -c $dname 14 radio 780 165 10 10 smooth
- xdid -C $dname 14 +b $rgb(0,0,0)
- xdid -t $dname 14 kill
- xdialog -c $dname 15 radio 780 180 10 10 smooth
- xdid -C $dname 15 +b $rgb(0,0,0)
- xdid -t $dname 15 tempshun
- xdialog -c $dname 16 radio 780 195 10 10 smooth
- xdid -C $dname 16 +b $rgb(0,0,0)
- xdid -t $dname 16 shun
- xdialog -c $dname 17 radio 780 210 10 10 smooth
- xdid -C $dname 17 +b $rgb(0,0,0)
- xdid -t stat 17 kline
- xdialog -c $dname 18 radio 890 165 10 10 smooth
- xdid -C $dname 18 +b $rgb(0,0,0)
- xdid -t stat 18 zline
- xdialog -c $dname 19 radio 890 180 10 10 smooth
- xdid -C $dname 19 +b $rgb(0,0,0)
- xdid -t stat 19 gzline
- xdialog -c $dname 20 radio 890 195 10 10 smooth
- xdid -C $dname 20 +b $rgb(0,0,0)
- xdid -t stat 20 block
- xdialog -c $dname 21 radio 890 210 10 10 smooth
- xdid -C $dname 21 +b $rgb(0,0,0)
- xdid -t stat 21 dccblock
- xdialog -c $dname 23 radio 780 225 10 10 smooth
- xdid -C $dname 23 +b $rgb(0,0,0)
- xdid -t stat 23 gline
- xdialog -c $dname 24 radio 890 225 10 10 smooth
- xdid -C $dname 24 +b $rgb(0,0,0)
- xdid -t stat 24 warn
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;edit boxes and default text thats in them;;;;;;
- xdialog -c $dname 47 edit 845 290 120 20 smooth autohs
- xdid -C $dname 47 +b $rgb(255,255,255)
- xdid -E stat 47 Enter a number + s for seconds, m fore minutes, h for hours or d for days
- xdialog -T $dname +b
- xdid -T $dname 47 Enter a number + s for seconds, m fore minutes, h for hours or d for days
- xdialog -c $dname 48 edit 845 310 120 20 smooth autohs
- xdid -C $dname 48 +b $rgb(255,255,255)
- xdid -E stat 48 Enter A Reason
- xdialog -c $dname 49 edit 845 330 120 20 smooth autohs
- xdid -C $dname 49 +b $rgb(255,255,255)
- xdid -E stat 49 Regular Expression
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;group boxes and their colors and text;;;;;;;;
- xdialog -c $dname 22 box 750 25 230 110 left rounded
- xdid -t stat 22 Type:
- xdid -C $dname 22 +b $rgb(0,0,0)
- xdid -C $dname 22 +t $rgb(130,192,255)
- xdid -C $dname 22 +r $rgb(255,255,255)
- xdialog -c $dname 39 box 750 135 230 115 left rounded
- xdid -t stat 39 Action:
- xdid -C $dname 39 +b $rgb(0,0,0)
- xdid -C $dname 39 +t $rgb(130,192,255)
- xdid -C $dname 39 +r $rgb(255,255,255)
- xdialog -c $dname 46 box 750 255 230 125 left rounded
- xdid -t stat 46 Tkl - Reason - Regex:
- xdid -C $dname 46 +b $rgb(0,0,0)
- xdid -C $dname 46 +t $rgb(130,192,255)
- xdid -C $dname 46 +r $rgb(255,255,255)
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;checkboxes and text color;;;;;;;;;;;;;;;;;;;;;;
- xdialog -c $dname 40 text 800 50 60 15
- xdid -C $dname 40 +b $rgb(0,0,0)
- xdid -C $dname 40 +t $rgb(130,192,255)
- xdid -t $dname 40 Channel
- xdid -C $dname 40 +r $rgb(130,192,255)
- xdialog -c $dname 25 text 800 65 60 15
- xdid -C $dname 25 +b $rgb(0,0,0)
- xdid -C $dname 25 +t $rgb(130,192,255)
- xdid -C $dname 25 +r $rgb(130,192,255)
- xdid -t $dname 25 Private Msg
- xdialog -c $dname 26 text 800 80 90 15
- xdid -t $dname 26 Private Notice
- xdid -C $dname 26 +b $rgb(0,0,0)
- xdid -C $dname 26 +t $rgb(130,192,255)
- xdid -C $dname 26 +r $rgb(130,192,255)
- xdialog -c $dname 27 text 800 95 90 15
- xdid -t $dname 27 Part Msg
- xdid -C $dname 27 +b $rgb(0,0,0)
- xdid -C $dname 27 +t $rgb(130,192,255)
- xdid -C $dname 27 +r $rgb(130,192,255)
- xdialog -c $dname 28 text 800 110 90 15
- xdid -t $dname 28 Channel Notice
- xdid -C $dname 28 +b $rgb(0,0,0)
- xdid -C $dname 28 +t $rgb(130,192,255)
- xdid -C $dname 28 +r $rgb(130,192,255)
- xdialog -c $dname 29 text 910 50 60 15
- xdid -t $dname 29 Quit Msg
- xdid -C $dname 29 +b $rgb(0,0,0)
- xdid -C $dname 29 +t $rgb(130,192,255)
- xdid -C $dname 29 +r $rgb(130,192,255)
- xdialog -c $dname 30 text 910 65 60 15
- xdid -t $dname 30 DCC
- xdid -C $dname 30 +b $rgb(0,0,0)
- xdid -C $dname 30 +t $rgb(130,192,255)
- xdid -C $dname 30 +r $rgb(130,192,255)
- xdialog -c $dname 31 text 910 80 60 15
- xdid -t $dname 31 Away
- xdid -C $dname 31 +b $rgb(0,0,0)
- xdid -C $dname 31 +t $rgb(130,192,255)
- xdid -C $dname 31 +r $rgb(130,192,255)
- xdialog -c $dname 32 text 910 95 60 15
- xdid -t $dname 32 Topic
- xdid -C $dname 32 +b $rgb(0,0,0)
- xdid -C $dname 32 +t $rgb(130,192,255)
- xdid -C $dname 32 +r $rgb(130,192,255)
- xdialog -c $dname 33 text 910 110 60 15
- xdid -t $dname 33 User
- xdid -C $dname 33 +b $rgb(0,0,0)
- xdid -C $dname 33 +t $rgb(130,192,255)
- xdid -C $dname 33 +r $rgb(130,192,255)
- xdialog -c $dname 34 text 800 165 60 15
- xdid -t $dname 34 Kill
- xdid -C $dname 34 +b $rgb(0,0,0)
- xdid -C $dname 34 +t $rgb(130,192,255)
- xdid -C $dname 34 +r $rgb(130,192,255)
- xdialog -c $dname 35 text 800 180 60 15
- xdid -t $dname 35 Temp Shun
- xdid -C $dname 35 +b $rgb(0,0,0)
- xdid -C $dname 35 +t $rgb(130,192,255)
- xdid -C $dname 35 +r $rgb(130,192,255)
- xdialog -c $dname 36 text 800 195 60 15
- xdid -t $dname 36 Shun
- xdid -C $dname 36 +b $rgb(0,0,0)
- xdid -C $dname 36 +t $rgb(130,192,255)
- xdid -C $dname 36 +r $rgb(130,192,255)
- xdialog -c $dname 37 text 800 210 60 15
- xdid -t $dname 37 K:Line
- xdid -C $dname 37 +b $rgb(0,0,0)
- xdid -C $dname 37 +t $rgb(130,192,255)
- xdid -C $dname 37 +r $rgb(130,192,255)
- xdialog -c $dname 38 text 800 225 60 15
- xdid -t $dname 38 G:Line
- xdid -C $dname 38 +b $rgb(0,0,0)
- xdid -C $dname 38 +t $rgb(130,192,255)
- xdid -C $dname 38 +r $rgb(130,192,255)
- xdialog -c $dname 41 text 910 165 60 15
- xdid -t $dname 41 Z:Line
- xdid -C $dname 41 +b $rgb(0,0,0)
- xdid -C $dname 41 +t $rgb(130,192,255)
- xdid -C $dname 41 +r $rgb(130,192,255)
- xdialog -c $dname 42 text 910 180 60 15
- xdid -t $dname 42 GZ:Line
- xdid -C $dname 42 +b $rgb(0,0,0)
- xdid -C $dname 42 +t $rgb(130,192,255)
- xdid -C $dname 42 +r $rgb(130,192,255)
- xdialog -c $dname 43 text 910 195 60 15
- xdid -t $dname 43 Block
- xdid -C $dname 43 +b $rgb(0,0,0)
- xdid -C $dname 43 +t $rgb(130,192,255)
- xdid -C $dname 43 +r $rgb(130,192,255)
- xdialog -c $dname 44 text 910 210 60 15
- xdid -t $dname 44 DCC Block
- xdid -C $dname 44 +b $rgb(0,0,0)
- xdid -C $dname 44 +t $rgb(130,192,255)
- xdid -C $dname 44 +r $rgb(130,192,255)
- xdialog -c $dname 45 text 910 225 60 15
- xdid -t $dname 45 Warn
- xdid -C $dname 45 +b $rgb(0,0,0)
- xdid -C $dname 45 +t $rgb(130,192,255)
- xdid -C $dname 45 +r $rgb(130,192,255)
- xdialog -c $dname 50 text 800 295 60 15
- xdid -C $dname 50 +b $rgb(0,0,0)
- xdid -C $dname 50 +t $rgb(130,192,255)
- xdid -t $dname 50 Tkl Time:
- xdid -C $dname 50 +r $rgb(130,192,255)
- xdialog -c $dname 51 text 800 315 60 15
- xdid -C $dname 51 +b $rgb(0,0,0)
- xdid -C $dname 51 +t $rgb(130,192,255)
- xdid -C $dname 51 +r $rgb(130,192,255)
- xdid -t $dname 51 Reason:
- xdialog -c $dname 52 text 800 335 90 15
- xdid -t $dname 52 RegEx:
- xdid -C $dname 52 +b $rgb(0,0,0)
- xdid -C $dname 52 +t $rgb(130,192,255)
- xdid -C $dname 52 +r $rgb(130,192,255)
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;button control and its imagefile;;;;;;;;;
- xdialog -c stat 53 button 820 385 100 20 bitmap
- ;xdid -k $dname 53 +nhs $rgb(255,255,255) $mircdirimages\button.png
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;checkbox text fore targeting events for spamfilter
- xdid -t stat 4 c
- xdid -t stat 5 p
- xdid -t stat 6 n
- xdid -t stat 7 P
- xdid -t stat 8 N
- xdid -t stat 9 q
- xdid -t stat 10 d
- xdid -t stat 11 a
- xdid -t stat 12 t
- xdid -t stat 13 u
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;timer to refocus the controls;;;;;;;;;;;
- .timerfocus -m 1 100 focus
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;this ensures the ban file is clean when the dialog opens;;;;;;;;;;;;;;;;;
- .remove statsg.txt
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;this is setting focus on all the radio/checkboxes;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias focus {
- xdid -F stat 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,23,24,47,48,49,53 +c 100
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;dialog call back alias;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- on *:DIALOG:stat:0:lbdown:
- alias statscallback {
- ;echo -a $1-
- if ($1 == stat) {
- if (($xdialog(stat).key & 1) && ($mouse.bd != $true)) {
- if (($2 == mouse) && ($3 == 0)) { ;dcx m_pBEGINMOVE $mouse.dx $mouse.dy } ; nosize ;}
- }
- }
- if ($2 == close) {
- if ($3 == 0) {
- unset %did | unset %type* | unset %act | unset %time | unset %reason | unset %regex
- }
- }
- if (($2 == activate) && ($3 = 0)) {
- .timerrefocus -m 1 100 focus
- }
- if ($2 == rclick) {
- if ($3 == 5) {
- akickmenu
- }
- if (($3 == 2) && (%did == G)) {
- statsg
- }
- if ($xdid(stat,2,6).htext == Regex:) {
- sfilter
- }
- }
- if ($2 == sclick) {
- if ($3 == 1000) {
- dialog -x stat stat
- }
- if ($3 == 3) {
- xdialog -n stat stat
- }
- if ($3 == 53) {
- gettype | gettoks | getact | gettime | getreason | getregex
- }
- }
- if (($2 == trackbegin) && ($3 == 1)) {
- return notrack
- }
- if (($3 == 1) && ($4 == 27) && ($2 == hrclick)) {
- chkspam
- }
- if (($2 == hsclick) && ($3 == 1)) {
- if (($4 != 27) && ($4 != 10)) {
- .remove statsg.txt
- xdid -r stat 2
- stats $xdid(stat,1,$4).htext
- set %did $xdid(stat,1,$4).htext
- }
- elseif ($4 == 10) {
- .remove statsg.txt
- xdid -r stat 2
- stats G
- stats k
- stats s
- set %did G
- }
- elseif (($4 == 27) && ($2 != hrclick) && ($2 != close)) {
- xdid -r stat 2
- .remove statsg.txt
- xdid -t stat 2 +l 0 100 Network: $chr(9) +l 0 100 Nick: $chr(9) +l 0 300 Address: $chr(9) +l 0 200 Spammed:
- spammed
- }
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;spamfilter target aliases;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias gettype {
- %x = 4
- while (%x <= 13) {
- if ($xdid(stat,%x).state == 1) {
- set %type $addtok(%type,$xdid(stat,%x).text,32)
- }
- inc %x
- }
- else {
- inc %x
- }
- }
- alias gettoks {
- $iif(($xdid(stat,7).state == 1) && ($xdid(stat,8).state != 1),set %type2 $addtok(%type2,P,32),$null)
- $iif(($xdid(stat,8).state == 1) && ($xdid(stat,7).state != 1),set %type2 $addtok(%type2,N,32),$null)
- $iif(($xdid(stat,8).state == 1) && ($xdid(stat,7).state == 1),set %type2 $addtok(%type2,PN,32),$null)
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;spamfilter action to take;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias getact {
- %ga = 14
- while (%ga <= 24) {
- if (%ga == 22) {
- inc %ga
- }
- if ($xdid(stat,%ga).state == 1) {
- set %act $xdid(stat,%ga).text
- inc %ga
- }
- else {
- inc %ga
- }
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;spamfilter tkl time;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias gettime {
- if (!$xdid(stat,47).text) {
- set %time -
- }
- if ($xdid(stat,47).text) {
- set %time $xdid(stat,47).text
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;spamfilter reason;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias getreason {
- if (!$xdid(stat,48).text) {
- set %reason -
- }
- if ($xdid(stat,48).text) {
- set %reason $xdid(stat,48).text
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;spamfilter regex;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias getregex {
- if ($xdid(stat,49).text) {
- set %regex $xdid(stat,49).text | setfilter
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;this puts all the spamfilter aliases together and adds the spamfilter;;;;;;;;;;;;;;;
- alias setfilter {
- spamfilter add $remove(%type,$chr(32)) $+ %type2 %act %time %reason %regex | unset %type*
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;the right click menu when you right click spamfilter at the top of the dialog;;;;;;;;;;;
- alias chkspam {
- if ($xpopup(spammed).ismenu) xpopup -d spammed
- xpopup -c spammed normal
- xpopup -p spammed $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(124,124,124) $rgb(0,0,0) $rgb(0,0,0) $Rgb(255,255,255)
- xpop -a spammed 1 $chr(9) +s 0 1 Spam File
- xpop -a spammed 1 1 $chr(9) + 125 3 Clear
- xpopup -s spammed +c $calc($mouse.dx + 55) $mouse.dy
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;listview spamfilter remove popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias sfilter {
- if ($xpopup(spf).ismenu) xpopup -d spf
- if ($dialog(stat)) {
- xpopup -c spf normal
- xpopup -p spf $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(124,124,124) $rgb(0,0,0) $rgb(0,0,0) $Rgb(255,255,255)
- xpop -a spf 1 $chr(9) + 200 1 Remove Spamfilter
- xpop -a spf 2 $chr(9) + 201 3 Add Spamfilter
- xpopup -s spf +c $calc($mouse.dx + 55) $mouse.dy
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;gline/shun/zline/kline popup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias statsg {
- if ($xpopup(stg).ismenu) xpopup -d stg
- if ($dialog(stat)) {
- xpopup -c stg normal
- xpopup -p stg $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(0,0,0) $rgb(124,124,124) $rgb(0,0,0) $rgb(0,0,0) $Rgb(255,255,255)
- xpop -a stg 1 $chr(9) + 202 1 Remove Ban
- xpop -a stg 2 $chr(9) + 203 3 Add Ban
- xpopup -s stg +c $calc($mouse.dx + 55) $mouse.dy
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;popup menu actions;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ON *:SIGNAL:Xpopup-*: {
- var %m $gettok($signal, 2-, 45)
- if ($1 == 0) {
- return
- }
- if (%m == spf) {
- if ($1 == 200) {
- spamfilter del $xdid(stat,2,2).seltext $xdid(stat,2,3).seltext - $xdid(stat,2,4).seltext $xdid(stat,2,6).seltext
- xdid -d stat 2 $xdid(stat,2).sel
- }
- elseif ($1 == 201) { }
- }
- if (%m == stg) {
- if ($1 == 202) {
- if (Z isincs $xdid(stat,2,1).seltext) {
- gzline - $+ $xdid(stat,2,2).seltext
- xdid -d stat 2 $xdid(stat,2).sel
- }
- if (z isincs $xdid(stat,2,1).seltext) {
- zline - $+ $xdid(stat,2,2).seltext
- xdid -d stat 2 $xdid(stat,2).sel
- }
- if (G isincs $xdid(stat,2,1).seltext) {
- gline - $+ $xdid(stat,2,2).seltext
- xdid -d stat 2 $xdid(stat,2).sel
- }
- if (s isincs $xdid(stat,2,1).seltext) {
- shun - $+ $xdid(stat,2,2).seltext
- xdid -d stat 2 $xdid(stat,2).sel
- }
- }
- }
- if (%m == spammed) {
- if ($1 == 125) {
- .remove spammed.txt
- xdid -r stat 2
- timerfocus -m 1 100 focus
- }
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;raws for loading text into the dialog;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- raw *:*: {
- if ($dialog(stat)) {
- if (($numeric == 223) || ($numeric == 216)) {
- set -u3 %223 on
- write statsg.txt $2-
- }
- elseif ($numeric == 229) {
- set -u3 %229 on
- write statsg.txt $2-
- }
- elseif ($numeric == 210) {
- set -u3 %229 on
- write statsg.txt $2-
- }
- elseif ($numeric == 304) {
- set -u3 %304 on
- write statsg.txt $2-
- }
- elseif ($numeric == 213) {
- set -u3 %213 on
- write statsg.txt $3 $5-
- }
- elseif (($numeric == 211) && (SendQ !isin $2)) {
- set -u3 %211 on
- write statsg.txt $2-
- }
- elseif (($numeric == 219) && (%223)) {
- loadlist
- }
- elseif (($dialog(stat)) && (%304) && (!%216)) {
- xdid -r stat 2
- xdid -t stat 2 +l 0 65 Target: $chr(9) +l 0 125 Flag: $chr(9) +l 0 110 Word: $chr(9) +l 0 150 Replace With:
- var %stats 1
- while (%stats <= $lines(statsg.txt)) {
- xdid -a stat 2 1 0 +b -1 0 0 0 $rgb(255,255,255) $rgb(0,0,0) $gettok($+($read($+(statsg.txt),%stats),$crlf),1,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),2,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),3,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),4,32)
- inc %stats
- }
- .remove statsg.txt
- }
- elseif (($dialog(stat)) && (%213) && (!%216)) {
- xdid -r stat 2
- xdid -t stat 2 +l 0 95 Address: $chr(9) +l 0 125 Server: $chr(9) +l 0 110 Port: $chr(9) +l 0 150 Class:
- var %stats 1
- while (%stats <= $lines(statsg.txt)) {
- xdid -a stat 2 1 0 +b -1 0 0 0 $rgb(255,255,255) $rgb(0,0,0) $gettok($+($read($+(statsg.txt),%stats),$crlf),1,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),2,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),3,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),4-,32)
- inc %stats
- }
- }
- elseif (($dialog(stat)) && (%229) && (!%216)) {
- xdid -r stat 2
- xdid -t stat 2 +l 0 55 Flag: $chr(9) +l 0 100 Target: $chr(9) +l 0 110 Action: $chr(9) +l 0 150 Reason: $chr(9) +l 0 150 Set By: $chr(9) +l 0 150 Regex:
- var %stats 1
- while (%stats <= $lines(statsg.txt)) {
- xdid -a stat 2 1 0 +b -1 0 0 0 $rgb(255,255,255) $rgb(0,0,0) $gettok($+($read($+(statsg.txt),%stats),$crlf),1,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),2,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),3,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),7,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),8,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),9-,32)
- inc %stats
- }
- .remove statsg.txt
- }
- elseif (($dialog(stat)) && (%211) && (!%216)) {
- xdid -r stat 2
- xdid -t stat 2 +l 0 255 SendQ: $chr(9) +l 0 125 SendM: $chr(9) +l 0 110 SendBytes: $chr(9) +l 0 150 RcveM: $chr(9) +l 0 150 RcveBytes: $chr(9) +l 0 150 Open Since: $chr(9) +l 0 150 Idle:
- var %stats 1
- while (%stats <= $lines(statsg.txt)) {
- xdid -a stat 2 1 0 +b -1 0 0 0 $rgb(255,255,255) $rgb(0,0,0) $gettok($+($read($+(statsg.txt),%stats),$crlf),1,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),2,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),3,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),4,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),5,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),6,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $duration($gettok($read(statsg.txt,%stats),7,32))
- inc %stats
- }
- .remove statsg.txt
- }
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;load ban list;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias loadlist .timerloadlist 1 1 listload
- alias listload {
- xdid -t stat 2 +l 0 45 Flag: $chr(9) +l 0 125 Mask: $chr(9) +l 0 110 Ban Length: $chr(9) +l 0 100 Banned For: $chr(9) +l 0 200 Set By: $chr(9) +l 0 200 Reason:
- var %stats 1
- while (%stats <= $lines(statsg.txt)) {
- xdid -a stat 2 1 0 +b -1 0 0 0 $rgb(255,255,255) $rgb(0,0,0) $gettok($read(statsg.txt,%stats),1,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($read(statsg.txt,%stats),2,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $duration($gettok($read(statsg.txt,%stats),3,32)) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $duration($gettok($read(statsg.txt,%stats),4,32)) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$crlf),5,32) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(statsg.txt),%stats),$chr(160)),6-,32)
- inc %stats
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;load spam tracker;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- alias spammed {
- %x = 1
- while (%x <= $lines(spammed.txt)) {
- xdid -a stat 2 1 0 +b -1 0 0 0 $rgb(255,255,255) $rgb(0,0,0) $gettok($+($read($+(spammed.txt),%x),$crlf),1,33) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(spammed.txt),%x),$crlf),2,33) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(spammed.txt),%x),$crlf),3,33) $chr(9) + 0 -1 $rgb(10,210,250) $rgb(255,0,255) $gettok($+($read($+(spammed.txt),%x),$crlf),4-,33)
- inc %x
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;this keeps track of who has spammed;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- on *:SNOTICE:*: {
- if (($1 == [Spamfilter]) && ($3 == matches)) {
- write spammed.txt $network $+ ! $+ $2 $+ ! $+ $6 $7 $8-
- }
- }
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement