| Kimimben | 19 Ekim 2013 01:48 |
Dialog sorunu
Kod:
on *:text:*:#: {
if $istok(#Admin #Kontrol #Yardim #Services,#,32) == $true { halt }
if $istok(KiMiMBeN Radyo islam Kelime Test Oyun Bilgi Yarismaci,$nick,32) == $true { halt }
if $hfind(kgline,$1-,1,W).data { gline $nick - 8,115 Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir10.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir10. 4Lutfen 15Sohbet kurallarina Uyunuz10... | msg #Admin .temizle # }
if $hfind(kshun,$1-,1,W).data { shun $nick - 8,115 Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir10.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir10. 4Lutfen 15Sohbet kurallarina Uyunuz10... }
if $hfind(kban,$1-,1,W).data { os mode # +b $nick 2 | kick # $nick 15,1 Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15/ 4Rahatsiz Edici Hareket ve Sozler Tespit Edilmistir10.15 Kurallara Uyana kadar Salondan Uzaklastirildiniz10.14Ban15Kick | msg #Admin .temizle # }
}
alias havin { dialog -m havin havin }
dialog havin {
title "Kelime Yasaklama"
size -1 -1 233 247
option dbu
list 1, 4 12 75 175, size
list 2, 79 12 75 175, size
list 3, 154 12 75 175, size
edit "", 4, 4 190 75 10
edit "", 5, 79 190 75 10
edit "", 6, 154 190 75 10
text "Gline", 7, 4 2 47 8
text "Shun", 8, 79 2 47 8
text "Ban+Kick", 9, 154 2 64 8
button "Ekle", 10, 23 202 37 12
button "Ekle", 11, 97 202 37 12
button "Ekle", 12, 174 202 37 12
text "Silmek icin Ustune Cift tiklayin", 13, 10 222 190 8
button "Kapat", 14, 67 233 104 12, ok
}
on *:dialog:havin:*:*:{
if $devent == init {
mdx MarkDialog $dname
mdx SetDialog $dname bgcolor $rgb(230,245,252)
mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 +b Turkish 13 550 Tahoma
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 textbg $rgb(230,245,252)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 background $rgb(230,245,252)
mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 text $rgb(0,0,0)
var %x = 1
while (%x <= $hget(kgline,0).item) {
did -a havin 1 $hget(kgline,%x).data
inc %x
}
var %c = 1
while (%c <= $hget(kshun,0).item) {
did -a havin 2 $hget(kshun,%c).data
inc %c
}
var %t = 1
while (%t <= $hget(kban,0).item) {
did -a havin 3 $hget(kban,%t).data
inc %t
}
}
if $devent == dclick {
if $did == 1 {
.hdel -s kgline $hfind(kgline,$did($dname,1).seltext,1,W).data
.hsave kgline kgline.save
did -d $dname 1 $did(1).sel
}
if $did == 2 {
.hdel -s kshun $hfind(kshun,$did($dname,2).seltext,1,W).data
.hsave kshun kshun.save
did -d $dname 2 $did(2).sel
}
if $did == 3 {
.hdel -s kban $hfind(kban,$did($dname,3).seltext,1,W).data
.hsave kban kban.save
did -d $dname 3 $did(3).sel
}
}
if $devent == sclick {
if $did == 10 {
hadd -m kgline $calc($hget(kgline,0).item + 1) $did(4)
hsave kgline kgline.save
did -a $dname 1 $did(4)
}
if $did == 11 {
hadd -m kshun $calc($hget(kshun,0).item + 1) $did(5)
hsave kshun kshun.save
did -a $dname 2 $did(5)
}
if $did == 12 {
hadd -m kban $calc($hget(kban,0).item + 1) $did(6)
hsave kban kban.save
did -a $dname 3 $did(6)
}
}
}
Öncelikle Code Tag çalışmıyor ama bana has bir şey yetkililere bildirdim. Yukarıdaki dialogda Shun Gline ve Bankick bölümü var buraya kelime eklediğimiz zaman salonda o kelimeyi yazana ceza uyguluyor, ve salonda otomatik !temizle yapıyor ve temizliyor güzel bir kod tüm işlemleri sorunsuz yapıyor sadece kelime ekledikten sonra mrci kapatıp açıyorum ve dialoga girdiğim zaman eklenen kelimeyi silmiş olduğunu görüyorum. Silmemesi için ne yapmalıyız Yardımcı olacak arkadaşlara teşekkür ederim
Kod Sahibi : UnreaL |
