| rewal | 29 Nisan 2015 02:44 |
muaf,nick,host,kanal,addon
Kod:
menu * {
.Help Uyarı:/hlpu
}
alias hlpu dialog -m helps helps
dialog helps {
title "Help Uyarı"
size -1 -1 271 210
option dbu
text "#Help kanalına giriş olduğunda belirleyeceğim ses dosyasını çal", 5, 98 103 84 15
box "Giriş Ses Dosyası - [Opsiyonel]", 6, 93 93 93 73
button "Bul", 7, 98 122 36 12, flat
button "İptal Et", 8, 138 122 44 12, flat
text "Seçilen Ses Dosyası", 9, 98 142 78 8
text "Henüz Seçilmedi", 10, 98 151 78 8
text "#Help kanalına giriş olduğunda Muaf Prefix seçimi (+%@&& ~)", 11, 97 20 84 17
button "Ekle", 13, 98 54 34 12, flat
box "Muaf Prefix - [Opsiyonel]", 14, 93 8 93 79
text "#Help kanalına giriş olduğunda Muaf Nick Seçimi", 15, 12 17 73 14
button "Sil", 16, 136 54 45 12, flat
button "Ekle", 17, 11 115 72 12, flat
edit "", 18, 10 35 74 11, multi autohs
box "Muaf Nick - [Opsiyonel]", 19, 7 8 81 122
button "Ekli Prefixleri Gör", 22, 98 69 83 12, flat
box "Sistem", 33, 190 132 75 72
radio "Açık", 34, 195 141 22 9, flat
radio "Kapalı", 25, 219 141 25 9, flat
list 12, 10 47 74 65, sort size extsel vsbar
edit "", 26, 97 40 85 12, multi autohs
box "Sunucu(lar) - [Opsiyonel]", 31, 7 135 81 69
text "Bir sunucu seçin / Çift Tık", 36, 12 145 68 8
list 30, 12 154 72 46, size extsel vsbar
text "Henüz Seçilmedi", 35, 96 192 85 8
box "Sunucu", 37, 93 171 93 33
text "Seçilmiş Sunucu", 38, 96 182 39 8
button "Kaldır", 39, 138 178 20 12, flat
button "Yenile", 40, 161 178 20 12, flat
list 1, 193 49 68 61, sort size extsel vsbar
edit "", 2, 193 36 68 12, multi autohs
box "Muaf Host - [Opsiyonel]", 3, 190 8 74 121
button "Ekle", 4, 194 112 66 12, flat
text "#Help kanalına giriş olduğunda Muaf Host seçimi", 20, 193 17 68 17
text "mIRC Help:", 21, 195 155 27 8
button "mirc.chm", 23, 225 153 35 12, flat
combo 24, 224 180 37 82, size vsbar drop
text "Renkler:", 27, 195 181 25 8
}
alias muafkontrol { unset %muafhostlar
var %_c = 1,%_d = $hget(muafh,0).item
while %_c <= %_d {
set %muafhostlar $addtok(%muafhostlar,$hget(muafh,%_c).item,124)
inc %_c
}
}
alias muafnyukle {
if ($isfile(muafs.hash)) {
var %aa = 1,%bb = $hget(muaflar,0).item
while %aa <= %bb { did -a helps 12 $hget(muaflar,%aa).item | inc %aa }
}
}
alias muafhyukle {
if ($isfile(muafh.hash)) {
var %bb = 1, %cc = $hget(muafh,0).item
while %bb <= %cc { did -a helps 1 $hget(muafh,%bb).item | inc %bb }
}
}
alias snclr {
did -r helps 30
var %xx = 1
while ($scon(%xx)) {
scon %xx | scon -r did -a helps 30 $server
inc %xx
}
}
alias renklendir {
mdx MarkDialog helps
mdx SetDialog helps bgcolor %renklerim
mdx SetColor helps 5,9,11,15,36,38,6,14,19,33,31,37,34,25,12,30,3,1 text $rgb(0,0,100)
mdx SetColor helps 10,35,23 text $rgb(0,69,111)
mdx SetColor helps 5,9,11,15,36,38,6,14,19,33,31,37,34,25,10,35,4,20,21,3,23,27 textbg %renklerim
mdx SetColor helps 6,14,19,33,31,37,34,25,5,9,11,15,36,38,7,8,13,16,17,22,39,40,10,35,4,20,21,3,23,4,27 background %renklerim
mdx SetFont helps 6,14,19,33,31,37,12,30,18,26,10,35,7,8,13,16,17,22,39,40,20,21,1,2,23,3,4,27 +b Turkish 13 800 Candara
mdx SetFont helps 5,9,11,15,36,38 +b Turkish 13 800 Candara
mdx SetDialog helps style title tool sysmenu
}
on *:start: { if ($isfile(muafs.hash)) { hmake muaflar 100 | hload -i muaflar muafs.hash }
if ($isfile(muafh.hash)) { hmake muafh 100 | hload -i muafh muafh.hash }
}
on *:dialog:helps:sclick:23: {
if ($isfile($mircdirmirc.chm)) { run $mircdirmirc.chm }
else { noop $input(mIRC Yardım Dosyanıza Ulaşılamadı(mIRC Anadizininde mirc.chm bulunmuyor),o,Help Uyarı) }
}
on *:dialog:helps:sclick:4: {
if ($did(2).text) { did -a $dname 1 $did(2).text | set -e %mhost $did(2).text | hadd -m muafh %mhost 1 | hsave -i muafh muafh.hash | did -r $dname 2 }
else { noop $input(Boş Veri Giremezsiniz!,o,Help Uyarı) }
}
on *:dialog:helps:dclick:1: { if ($did(1,1).seltext) { hdel muafh $did(1,1).seltext | did -d $dname 1 $did(1,1).sel | hsave -i muafh muafh.hash } }
on *:dialog:helps:sclick:40: { snclr }
on *:dialog:helps:dclick:30: {
if ($did($dname,30,1).seltext) && ($did($dname,30,1).seltext == %snc) { set %snc $did($dname,30,1).seltext | did -ra $dname 35 %snc }
elseif ($did($dname,30,1).seltext) && ($did($dname,30,1).seltext != %snc) { set %snc $did($dname,30,1).seltext | did -ra $dname 35 %snc | noop $input(%snc Eklendi,o,Help Uyarı) }
}
on *:dialog:helps:sclick:39: { unset %snc | did -ra $dname 35 Henüz Seçilmedi }
on *:dialog:helps:sclick:7: {
if ($finddir($mircdir,sounds,0) == 1) {
if ($msfile($mircdirsounds,Ses Dosyası Seçin,Seç)) { set %sesismi $nopath($msfile(1)) | did -ra $dname 10 %sesismi }
else { did -ra $dname 10 $iif(%sesismi,%sesismi,Henüz Seçilmedi) }
}
else {
if ($msfile($mircdir,Ses Dosyası Seçin,Seç)) { set %sesismi $nopath($msfile(1)) | did -ra $dname 10 %sesismi }
else { did -ra $dname 10 $iif(%sesismi,%sesismi,Henüz Seçilmedi) }
}
}
on *:dialog:helps:sclick:8: {
unset %sesismi | did -ra $dname 10 Henüz Seçilmedi
}
on *:dialog:helps:sclick:13: {
if ($did(26).text !isalnum) && ($did(26).text != $null) { set %prefix $did(26).text | did -r $dname 26 | return $input($iif($len(%prefix) != 1,Prefixler Eklendi,Prefix Eklendi),o,Help Uyarı) }
elseif (!$did(26).text) { return $input(HATA! Boş Veri Girmeye Çalışıyorsunuz.,o,Help Uyarı) }
else { return $input(Hatalı Giriş İhtimali Kontrol Edin!,o,Help Uyarı) }
}
on *:dialog:helps:sclick:16: { if (%prefix) { unset %prefix | did -r $dname 26 | return $input(Ekli Prefix/ler Silindi,o,Help Uyarı) }
else { return $input(Ekli Prefix/ler Yok!,o,Help Uyarı) }
}
on *:dialog:helps:sclick:22: { if (%prefix) { return $input(Ekli Prefixler: %prefix,o,Help Uyarı) }
else { return $input(Ekli Prefix Yok!,o,Help Uyarı) }
}
on *:dialog:helps:sclick:17: { if ($did(18).text) { did -a $dname 12 $did(18).text | set -e %mtext $did(18).text | hadd -m muaflar %mtext 1 | hsave -i muaflar muafs.hash | did -r $dname 18 }
else { return $input(Boş Veri Giremezsiniz!,o,Help Uyarı) }
}
on *:dialog:helps:dclick:12: { if ($did(12,1).seltext) { hdel muaflar $did(12,1).seltext | did -d $dname 12 $did(12,1).sel | hsave -i muaflar muafs.hash } }
on *:dialog:helps:sclick:34: { if ($group(#systems).status == on) { return $input(Help Uyarı Zaten AÇIK!,o,Help Uyarı) }
else { .enable #systems | return $input(Help Uyarı AÇILDI!,o,Help Uyarı) }
}
on *:dialog:helps:sclick:25: { if ($group(#systems).status == off) { return $input(Help Uyarı Zaten KAPALI!,o,Help Uyarı) }
else { .disable #systems | return $input(Help Uyarı KAPATILDI!,o,Help Uyarı) }
}
#systems on
on ! *:text:*:#Help:{
if (%snc) {
if ($server == %snc) {
muafkontrol
if $regex($nick($chan,$nick).pnick,/^([ $+ %prefix $+ ])/S) || $hget(muaflar,$nick) || $regex($site,/( $+ %muafhostlar $+ )/Si) { return }
else { $iif(%sesismi,.timerplay 1 2 splay %sesismi) | noop $tip(Help Uyarı,Help Uyarı,2Help Kanalına Kullanıcı Giriş Yaptı! $crlf Nick:4 $nick $crlf Sunucu:4 %snc,10,,$window($active).wid) }
}
}
else {
muafkontrol
if $regex($nick($chan,$nick).pnick,/^([ $+ %prefix $+ ])/S) || $hget(muaflar,$nick) || $regex($site,/( $+ %muafhostlar $+ )/Si) { return }
else { $iif(%sesismi,.timerplay 1 2 splay %sesismi) | noop $tip(Help Uyarı,Help Uyarı,2Help Kanalına Kullanıcı Giriş Yaptı! $crlf Nick:4 $nick ,10,,$window($active).wid) }
}
}
#systems end
Böyle bir kod gördüm ancak kime ait bilmiyorum addon şeklinde HELP kanalına giriş oldugunda çalışdıgını söylüyordu,bunu help kanalı değilde sadece özel için çalışır bir şekle getirmek için on ! *:text:*:#Help:{ yazan yerdeki #Help yerine on ! *:text:*:?:{ yapdım ama çalışmadı bunu nasıl sadece özelim için çalışır hale getirebilirim. Tşk |
