| KivanC | 15 Ekim 2020 09:13 |
ame - Amsg Kontrol Etmek istemezmisiniz?
Kod:
dialog ame_amsg {
title "Ame/Amsg control"
size -1 -1 184 113
option dbu
tab "Ame", 5, 2 5 178 105
button "ekle", 7, 34 92 37 12, tab 5
button "sil", 8, 34 79 37 12, tab 5
text "Channels in this list will be excluded whenever you use the /ame command", 9, 8 28 61 28, tab 5
check "Activate ame control", 17, 8 63 63 10, tab 5
list 1, 75 25 99 80, tab 5 size hsbar vsbar
tab "Amsg", 10
text "Channels in this list will be excluded whenever you use the /amsg command", 12, 8 28 61 28, tab 10
button "sil", 13, 34 79 37 12, tab 10
button "ekle", 14, 34 92 37 12, tab 10
check "Activate amsg control", 18, 8 63 63 10, tab 10
list 2, 75 25 99 80, tab 10 size hsbar vsbar
tab "About", 15
edit "Ame/Amsg control is a simple mIRC addon which allows users to exclude certain channels from the /amsg and the /ame commands. These commands are commonly used by away or mp3 systems, which on certain channels (in particular help channels) are not tollerated. Simply add the channels where you don't want them to show up, and you're done. For suggestions questions bugs etc.. you can contact me via e-mail on: intruder@ircmalta.com or via irc on #mirc (undernet). |ntruder", 19, 8 21 167 85, tab 15 read multi
}
ON *:dialog:ame_amsg:init:*:{
if (!$isfile(ame_amsg.ini)) { return }
if ($readini(ame_amsg.ini,settings,ame) == on) { did -c $dname 17 }
if ($readini(ame_amsg.ini,settings,amsg) == on) { did -c $dname 18 }
if ($ini(ame_amsg.ini,ame_channels)) loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini
if ($ini(ame_amsg.ini,amsg_channels)) loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini
did -z $dname 1
did -z $dname 2
}
ON *:dialog:ame_amsg:sclick:*:{
if ($did == 8) {
remini ame_amsg.ini ame_channels $gettok($did(1).seltext,1,61)
did -r $dname 1
if ($ini(ame_amsg.ini,ame_channels)) loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini
did -z $dname 1
return
}
if ($did == 7) {
var %ame_add = $$input(Add a channel to exclude from /ame $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from ame),61)
if ($numtok(%ame_add,61) == 2) { writeini ame_amsg.ini ame_channels $replace(%ame_add,=,$chr(32)) | did -r ame_amsg 1 | loadbuf $ini(ame_amsg.ini,ame_channels,0) -otame_channels $dname 1 ame_amsg.ini }
else echo -a *** Invalid format. Format shoud be: #channel=network. Example: #mirc=all or #mirc=undernet,dalnet
did -z $dname 1
return
}
if ($did == 17) {
writeini ame_amsg.ini settings ame $iif($did(17).state == 1,on,off)
return
}
if ($did == 18) {
writeini ame_amsg.ini settings amsg $iif($did(18).state == 1,on,off)
return
}
if ($did == 13) {
remini ame_amsg.ini amsg_channels $gettok($did(2).seltext,1,61)
did -r $dname 2
if ($ini(ame_amsg.ini,amsg_channels)) loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini
did -z $dname 2
return
}
if ($did == 14) {
var %amsg_add = $$input(Add a channel to exclude from /amsg $+ $chr(44) in the form: #channel=all for all networks or #channel=network1 $+ $chr(44) $+ network2 $+ $chr(44) $+ network3 for particular networks.,e,Add a channel to exclude from amsg),61)
if ($numtok(%amsg_add,61) == 2) { writeini ame_amsg.ini amsg_channels $replace(%amsg_add,=,$chr(32)) | did -r ame_amsg 2 | loadbuf $ini(ame_amsg.ini,amsg_channels,0) -otamsg_channels $dname 2 ame_amsg.ini }
else echo -a *** Invalid format. Format shoud be: #channel=network. Example: #mirc=all or #mirc=undernet,dalnet
did -z $dname 2
return
}
}
alias ame {
if ($readini(ame_amsg.ini,settings,ame) != on) { ame $1- | return }
var %all_chans = $chan(0)
while (%all_chans) {
if ($ini(ame_amsg.ini,ame_channels,$chan(%all_chans)) == 0) { var %ame_list = $chan(%all_chans) $+ $chr(44) $+ %ame_list | echo $chan(%all_chans) $+ $color(action) $+ $timestamp * $me $1- | goto skip }
if ($readini(ame_amsg.ini,ame_channels,$chan(%all_chans)) == all) { goto skip }
if ($network !isin $readini(ame_amsg.ini,ame_channels,$chan(%all_chans))) { var %ame_list = $chan(%all_chans) $+ $chr(44) $+ %ame_list | echo $chan(%all_chans) $+ $color(action) $+ $timestamp * $me $1- }
:skip
dec %all_chans
}
if (%ame_list) { .raw PRIVMSG %ame_list :ACTION $1- $+ }
}
alias amsg {
if ($readini(ame_amsg.ini,settings,amsg) != on) { amsg $1- | return }
var %all_chans = $chan(0)
while (%all_chans) {
if ($ini(ame_amsg.ini,amsg_channels,$chan(%all_chans)) == 0) { var %amsg_list = $chan(%all_chans) $+ $chr(44) $+ %amsg_list | echo $chan(%all_chans) $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- | goto skip }
if ($readini(ame_amsg.ini,amsg_channels,$chan(%all_chans)) == all) { goto skip }
if ($network !isin $readini(ame_amsg.ini,amsg_channels,$chan(%all_chans))) { var %amsg_list = $chan(%all_chans) $+ $chr(44) $+ %amsg_list | echo $chan(%all_chans) $+ $color(own text) $+ $timestamp < $+ $me $+ > $1- }
:skip
dec %all_chans
}
if (%amsg_list) { .raw privmsg %amsg_list : $+ $1- }
}
menu channel,menubar {
ame/amsg control: dialog -m ame_amsg ame_amsg
}
|
