thanks 4 help with codes - 03/12/05 11:56 PM
hi all i just wanted 2 say thank you
if u help me on any of these codes here is end products
if any thinks they
need edited alittle more plz reply but in testing
they all seem 2 be working great
here is my codes
this is protection
here is the logger
it logs everything on every chan and every server u on
and it puts up window 2 veiw all things being said in each
chan while it logs so u dont have 2 switch back and forth
2 see whats being said
now here is bad word protection
but i havent got 2 finish 1 part of it if any
could help me that would be great the last part
i need 2 finish is so i can make a setting in dialog
so it will only work in chan i add or in all chan
if u help me on any of these codes here is end products
if any thinks they
need edited alittle more plz reply but in testing
they all seem 2 be working great
here is my codes
this is protection
Code:
on *:LOAD: { set %bp.kmsg 9Do You Honesty No What Your 10Doing! [4Kick9~5Ban9~4Deop9~7Pro 4Pûñíshë5R 12script] echo -a 9>>> 7Ban Protection was successfully loaded.. echo -a 9>>> 7Author: |PunishER| echo -a 9>>> 7Created: in year 2005 } alias bprot { dialog -m bp bp } dialog bp { title "Kick Ban Protection" {By PûñíshëR} size -1 -1 125 90 option dbu box "Enter kick message:", 5, 3 13 98 22 edit "", 6, 6 20 92 11, autohs check "Enable", 7, 3 1 28 10 box "Punishment:", 1, 3 37 69 39 radio "DeSop.Op.Hop.user", 2, 7 44 65 10, group radio "Kick user", 3, 7 54 65 10 radio "Kick/Ban user", 4, 7 64 66 10 button "Help", 8, 75 56 30 10 button "Close", 9, 75 67 30 10, cancel button "Clear kick msg", 10, 75 36 42 10 } on *:dialog:bp:init:*: { did -a bp 6 %bp.kmsg if (%bp.p == d) { did -c bp 2 } elseif (%bp.p == k) { did -c bp 3 } elseif (%bp.p == kb) { did -c bp 4 } if (%bp.st == on) { did -c bp 7 | did -e bp 2,3,4,6,10 } if (%bp.st == off) { did -b bp 2,3,4,6,10 } } on *:dialog:bp:sclick:*: { if ($did == 7) { if ($did(bp,$did).state == 1) { did -e bp 2,3,4,6,10 | set %bp.st on | .enable #prot } | else { did -b bp 2,3,4,6,10 | set %bp.st off | .disable #prot } } if ($did == 2) { set %bp.p d } if ($did == 3) { set %bp.p k } if ($did == 4) { set %bp.p kb } if ($did == 10) { did -r bp 6 | unset %bp.kmsg } if ($did == 8) { dialog -m bphelp bphelp } } on *:dialog:bp:edit:6: { set %bp.kmsg $did(bp,6) } #prot on on *:BAN:#: { if (%bp.st == on) { if ($nick != $me) && ($+(*,$banmask,*) iswm $address($me,5)) { mode $chan -bbb $banmask | set %nickk $nick if (%bp.p == d) && { mode $chan -qaohv %nickk %nickk %nickk %nickk | msg %nickk %bp.kmsg | msg $chan [ What The F? Dont BAN ME!! 4PûñíshëR 5script ] } if (%bp.p == k) && { mode $chan -qaohv %nickk %nickk %nickk %nickk | mode $chan -bbb $banmask | kick $chan %nickk | msg %nickk %bp.kmsg | msg $chan [ What The F? Dont BAN ME!! 4PûñíshëR 5script ] } if (%bp.p == kb) && { mode $chan -qaohv+bbb %nickk %nickk %nickk %nickk $address(%nickk,2) $address(%nickk,9) %nickk | kick $chan %nickk | msg %nickk %bp.kmsg | msg $chan [ What The F? Dont BAN ME!! 4PûñíshëR 5script ] } } unset %nickk $nick } } on *:KICK:#: { if (%bp.st == on) { if ($nick != $me && $knick == $me) { join $chan | /msg chanserv invite $chan $me | /msg chanserv unban $chan $me | set %nickk $nick if (%bp.p == d) { mode $chan -qaohv %nickk %nickk %nickk %nickk | msg $chan %nickk [ What The F? Dont kick ME!! 4PûñíshëR 0script ] | msg %nickk %bp.kmsg } if (%bp.p == k) { kick $chan %nickk | msg $chan %nickk [ What The F? Dont kick ME!! 4PûñíshëR 0script ] | msg %nickk %bp.kmsg } if (%bp.p == kb) { mode $chan -qaohv+bbb %nickk %nickk %nickk %nickk $address(%nickk,3) $address(%nickk,8) %nickk | kick $chan %nickk | msg $chan %nickk [ What The F? Dont kick ME!! 4PûñíshëR 5script ] | msg $nick %bp.kmsg } } unset %nickk $nick } } on *:DEOP:#: { if (%bp.st == on) { if ($nick != $me) && ($opnick == $me) { /msg chanserv op $chan $me | set %nickk $nick if (%bp.p == d) { mode $chan -qaohv %nickk %nickk %nickk %nickk | msg $chan %nickk [ What The F? Dont DeOP ME!! 4PûñíshëR 0script ] | msg $nick %bp.kmsg } if (%bp.p == k) { kick $chan %nickk | msg $chan %nickk [ What The F? Dont DeOP ME!! 4PûñíshëR 0script ] | msg %nickk %bp.kmsg } if (%bp.p == kb) { mode $chan -qaohv+bbb %nickk %nickk %nickk %nickk $address(%nickk,1) $address(%nickk,9) %nickk | kick $chan %nickk | msg $chan %nickk [ What The F? Dont DeOP ME!! 4PûñíshëR 5script ] | msg %nickk %bp.kmsg } } unset %nickk $nick } } #prot end Menu channel,status,menubar { Kick Ban Protection { bprot } } dialog bphelp { title "Ban Protection Help" size -1 -1 110 86 option dbu link "Ban Protection Help Dialog:", 1, 14 3 79 8 edit "Thanks 4 using Kick Ban Pro By The PûñíshëR :^)~", 2, 2 12 106 63, read multi button "Button", 3, 80 76 30 10, cancel }
here is the logger
it logs everything on every chan and every server u on
and it puts up window 2 veiw all things being said in each
chan while it logs so u dont have 2 switch back and forth
2 see whats being said
Code:
menu menubar { Today's Log:run logs\ $+ $asctime(m.d.yyyy.) $+ server.log } on *:start: { set %log write logs\ $+ $asctime(m.d.yyyy.) $+ server.log window @logger aline @logger Session Start $fulldate %log Session ID $time } alias log.start { set %log write logs\ $+ $asctime(m.d.yyyy.) $+ server.log window @logger aline @logger Session Start $fulldate %log Session ID $time } on *:join:#:{ aline @logger 0 $timestamp 7 ( $network ) 8< $nick > 0 $address($nick,3) 4< joins > 7( $chan ) 10( $network ) %log 0 $timestamp 7 ( $network ) 10 ( $nick ) $address($nick,3) < joins > $chan $network } on *:part:#:{ aline @logger 0 $timestamp 7 ( $network ) 8 < $nick > 0 $address($nick,3) 7( $chan ) 10( $network ) 3< parted > %log 0 $timestamp 7 ( $network ) 10 ( $nick ) $address($nick,3) $chan $network parted } on *:quit:{ if ($nick == $me) { aline @logger $timestamp $me $chan $network quit %log $timestamp $me $chan $network quit } else { aline @logger 0 $timestamp 7 ( $network ) 7 ( $chan ) 8 < $nick > 0 $address($nick,3) 7( $chan ) 10( $network ) 3< quit > | %log $timestamp $chan $network ( $nick ) quit } } ;pvms,topic,onjoin,onpart,ctcpreply,away,return added raw 821:*: { aline @logger $timestamp < $chan > ( $network ) < $nick > returns $1- | %log $timestamp < $chan > ( $network ) < $nick > returns $1- } raw 822:*: { aline @logger $timestamp < $chan > ( $network ) < $nick > goes away $1- | %log $timestamp < $chan > ( $network ) < $nick > goes away $1- } on *:topic:*:#: { aline @logger $timestamp < $chan > ( $network ) < $nick > changes topic $1- | %log $timestamp < $chan > ( $network ) < $nick > changes topic $1- } on *:onjoin:#: { aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) < $nick > changes onjoin $1- | %log $timestamp < $chan > ( $network ) < $nick > changes onjoin $1- } on *:onpart:#: { aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) < $nick > changes onpart $1- | %log $timestamp < $chan > ( $network ) < $nick > changes onpart $1- } on *:ctcpreply:*: { aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) < $nick > ctcp replies $1- | %log $timestamp < $chan > ( $network ) < $nick > ctcp replies $1- } on *:text:*:?:{ aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) 8 < $nick > 6 whispers 0 $1- | %log $timestamp < $chan > ( $network ) < $nick > whispers $1- } on *:text:*:#:{ aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) 8 < $nick( #,$nick ).pnick > 7 $1- | %log $timestamp < $chan > ( $network ) < $nick( #,$nick ).pnick $1- } on *:input:#:{ aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) 8 < $nick( #,$nick ).pnick > 3 $1- | %log $timestamp < $chan > ( $network ) < $nick( #,$nick ).pnick $1- } on *:input:?:{ aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) 8 < $nick > 6 whispers 3 $1- | %log $timestamp < $chan > ( $network ) < $nick > whispers $1- } on *:nick: { aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) 8 < $nick > 0 is now known as 11( $newnick ) $1- | %log $timestamp < $chan > ( $network ) < $nick > is now known as ( $newnick ) $1- } on *:close:@:{ if ($target == @logger) { %log $timestamp @logger window Closed } } on *:notice:*:?:{ aline @logger $timestamp < $nick > sent notice -> $1- | %log $timestamp < $nick > sent notice -> $1- } on *:notice:*:#:{ aline @logger 0 $timestamp < $nick > sent notice -> $1- | %log $timestamp < $nick > sent notice -> $1- } on *:snotice:*:{ aline @logger 0 $timestamp SNotice < $nick > $1- | %log $timestamp SNotice < $nick > $1- } on *:mode:#:{ aline @logger 0 $timestamp 4< $chan > 7( $network ) 8< $nick > 0 changed MODE $1- | %log $timestamp < $chan > ( $network ) < $nick > changed MODE $1- } on ^*:RAWMODE:*:{ aline @logger 0 $timestamp 4 < $chan > 7 ( $network ) 8 < $nick > 0 changed MODE $1- | %log $timestamp < $chan > ( $network ) < $nick > changed MODE $1- } on *:kick:#:{ aline @logger 7 $timestamp < $chan > ( $network ) < $nick > kicked $knick $1- | %log $timestamp < $chan > ( $network ) < $nick > kicked $knick $1- } on *:ban:#:{ aline @logger 8 $timestamp < $chan > ( $network ) < $nick > banned $banmask $1- | %log $timestamp < $chan > ( $network ) < $nick > banned $banmask $1- } on *:unban:#:{ aline @logger 8 $timestamp < $chan > ( $network ) < $nick > unbanned $banmask $1- | %log $timestamp < $chan > ( $network ) < $nick > unbanned $banmask $1- } on *:topic:#:{ aline @logger $timestamp < $chan > ( $network ) < $nick > changes topic to: $1- | %log $timestamp < $chan > ( $network ) < $nick > changes topic to: $1- } on *:action:*:#:{ aline @logger 0 $timestamp *** 5 < $nick > 10 $1- | %log $timestamp *** < $nick > $1- } on *:action:*:?:{ aline @logger 0 $timestamp *** 5 < $nick > 10 $1- | %log $timestamp *** < $nick > $1- } ctcp *:*:{ aline @logger 15 $timestamp CTCP from < $nick > $+ : $1- | %log $timestamp CTCP from < $nick > $+ : $1- } on *:notify:{ aline @logger $timestamp < $nick > is on $network $1- | %log $timestamp < $nick > is on $network $1- } on *:global:*:{ aline @logger $timestamp < $nick > is on $network $1- | %log $timestamp < $nick > is on $network $1- } on *:input:Status Window:{ aline @logger $timestamp -> * $+ $2 $+ * * < $nick > $1- | %log $timestamp -> * $+ $2 $+ * * < $nick > $1- } on *Status Window:{ aline @logger $timestamp -> * $+ $2 $+ * * < $nick > $1- | %log $timestamp -> * $+ $2 $+ * * < $nick > $1- }
now here is bad word protection
but i havent got 2 finish 1 part of it if any
could help me that would be great the last part
i need 2 finish is so i can make a setting in dialog
so it will only work in chan i add or in all chan
Code:
on *:load: { if ($version > 6.0) { echo Bad word Pro echo 7PuNishER echo Check your popups, or type4 /BadWord } else { echo Version 6.0 or higher required, get a newer version of mirc at http://www.mirc.com unload -rs $script } } on *:unload: { echo -s Badword Pro by PuNishER unloaded. if ($isfile(badwords.ini)) echo -s Files left after usage :4 $mircdirBadwords.ini echo -s Glad you used this :] hfree badword } on *:start: { hmake badword 100 if ($isfile(badwords.ini)) hload badword badwords.ini } on *:close: { hsave badword badwords.ini } alias badword { if ($dialog(badword)) { dialog -ve badword badword } else dialog -mdo badword badword } alias -l badword.ref { var %ss $hget(badword,0).data while (%ss) { did -a badword 1 $hget(badword,%ss).item = $hget(badword,%ss).data dec %ss } } alias -l add.badwords { if ($dialog(badword)) { dialog -i badword } var %bw $$input(Enter badwords for %badwords,e,Add badwords) if (%bw != $null) { hadd -m badword %badwords %bw } if ($dialog(badword)) { did -r badword 1 badword.ref dialog -e badword } } dialog badword { title "Bad Word Pro by PuNishER" size -1 -1 210 125 option dbu list 1, 5 5 135 75, size sort autovs edit "", 2, 35 85 43 10, autohs edit "", 3, 40 100 135 10, autohs button "Add", 4, 80 85 25 10, flat button "Remove", 5, 110 85 35 10, flat button "Close", 6, 150 85 30 10, flat ok text "BadWord Msg :", 7, 4 100 35 8 text "BadWord :", 8, 4 85 22 8 box "Punishment:", 9, 145 50 61 33 radio "Warn", 10, 148 60 23 10, group radio "Kick", 11, 148 70 25 10 radio "DeMote", 12, 172 60 30 10 radio "Kick/Ban", 13, 172 70 30 10 } on *:dialog:badword:init:*: { badword.ref if (%BadWord.p == w) { did -c BadWord 10 } elseif (%BadWord.p == k) { did -c BadWord 11 } elseif (%BadWord.p == d) { did -c badWord 12 } elseif (%BadWord.p == kb) { did -c badWord 13 } } on *:dialog:badword:sclick:*: { if ($did == 1) { if ($did(1).seltext != $null) { did -r $dname 2,3 did -a $dname 2 $gettok($did(1).seltext,1,32) did -a $dname 3 $gettok($did(1).seltext,3-,32) } } if ($did == 4) { if ($did(2).text != $null) && ($did(3).text != $null) && ($left($did(2).text,1) != $chr(32)) && ($left($did(3).text,1) != $chr(32)) { hadd -m badword $did(2).text $did(3).text } did -r $dname 1,2,3 badword.ref } if ($did == 5) { if ($did(1).seltext != $null) { hdel badword $gettok($did(1).seltext,1,32) } did -r $dname 1,2,3 badword.ref } if ($did == 6) { hsave badword badwords.ini } if ($did == 10) { set %badWord.p w } if ($did == 11) { set %badWord.p k } if ($did == 12) { set %badWord.p d } if ($did == 13) { set %badWord.p kb } } #badword on on 1:text:*:#:{ var %a = 1 while %a <= $0 { if $hfind(badword,$gettok($1-,%a,32),1) { if (%badword.p == w) { msg $chan $nick $hget(badword,$hfind(badword,$gettok($1-,%a,32),1)) } if (%badword.p == k) { kick $chan $nick | msg $chan $nick $hget(badword,$hfind(badword,$gettok($1-,%a,32),1)) } if (%badword.p == d) { mode $chan -aohv $nick $nick $nick $nick | msg $chan $nick $hget(badword,$hfind(badword,$gettok($1-,%a,32),1)) } if (%badword.p == kb) { mode $chan +bbb $nick $nick $nick $address($nick,2) $address($nick,9) $nick | kick $chan $nick | msg $chan $nick $hget(badword,$hfind(badword,$gettok($1-,%a,32),1)) } } inc %a } } #badword end menu menubar,channel,status,nicklist,query { BadWordPro .BadWord Pro:badword .$$iif($group(#badword).status == on,Disable):.disable #badword | echo Bad Word Pro OFF .$$iif($group(#badword).status == off,Enable):.enable #badword | echo Bad Word Pro ON .- .Unload:unload -rs $script }