| LeadeR | 06 Temmuz 2006 01:46 |
çeşitli aranan dialoglar
Forum'da bir cok kez soruldu bunlar.. bende bunları bir dialog sekline getirip sizlere sundum.. Birinci dialog'umuz ; Kelime belirleriz , eğer bu kelimeler kanal 'da herhangi bir cümle icerisinde gecerse secenekleri uygular örneğin [ uyarmasını isterseniz önünüze bilgi gelir ]
Yok [ kullananlar atılsın derseniz o kelimeyi kullanan kanaldan atılır ]
Kod ; Kod:
alias leader { dialog -m leader1 leader1 }
dialog leader1 {
title "[ Coded : LeadeR ] • [
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi
check "Check Box", 10, 12 92 8 10
edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır..", 11, 19 93 53 27, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:leader1:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%l,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }
if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }
}
}
if ($devent == init) {
var %l.e = 1
var %l.d = $numtok(%l,32)
while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }
if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }
if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }
}
}
#uyari on
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) isin $1- {
echo -a 0,5« Bilgi » 0,4 •• # •• Kanalından •• $nick •• $ifmatch Kelimesini Kullandı ••
}
inc %i
}
}
#uyari end
#kickle off
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) isin $1- {
mode $active +b $wildsite
kick $active $nick 0,5« Kickban » 0,4 •• # •• Kanalında •• $ifmatch Kelimesini Kullandığınız icin Uzaklaştırıldınız ••
}
inc %i
}
}
#kickle end
/leader
iyi çalışmalar , kolay gelsin |
