Bilgilendirme :--
Özel Konrol Sistemi, özelinize mesaj yazan kişilere,--
Bir karşılama mesajı gönderir, Bu Mesajı dilediğiniz gibi--
Değişebilirsiniz.-
Örn Mesaj : “Görüşme isteğiniz değerlendiriliyor, Lütfen Bekleyiniz.”-
Opsiyonlar : EKLE, Kabul Et, Ignore Et, Reddet.-
EKLE butonu : Özelinize gelen kişiyi, Dost listeinize ekler ve-
özel kontrol sistemi açık durumda iken dahi kullanıcı özelinize-
geldiğinde, dost listesinde olduğunuz için yazabilirsiniz, mesajı-
alır ve özelinize yazabilir.-
Kabul Et : Bu butonu, özelinize gelen kişinin özelinize yazmasına-
izin vermek için kullanırsınız.-
İgnore Et : Bu butonu, özelinize gelen kişinin, özeline yazdığı
yazıları görmemek için kullanabilirsiniz.
Not : Kişinin kanalda yazdıklarını görüceksiniz.
Reddet : Bu buton, özelinize gelen kişiye bir, mesaj gönderir..
Bu mesajıda, ayarlar bölümünden değiştirebilirsiniz.
Örn Mesaj : Görüşme isteğiniz Reddedilmiştir, Hoş Sohbetler.
Kod:
on *:load:{
.def.mesajlar
}
alias ozelsteam { dialog -m ozelsteam ozelsteam }
dialog ozelsteam {
title "Özel Kontrol Sistemi"
size 180 220 300 123
option dbu
check "Özel Sistem On/Off", 1, 8 108 60 10, flat
button "Tamam", 2, 265 105 30 15, flat ok
button "İptal", 3, 232 105 30 15, flat cancel
box "Özel Görüşme İsteği", 4, 4 4 290 95
tab "İstek Bilgisi", 5, 10 13 280 80
box "", 8, 20 30 64 18, tab 5
edit "Özele Gelen Nick =>", 9, 23 35 58 11, tab 5 read
box "", 10, 20 50 64 18, tab 5
edit "Özele Yazdığı Yazı =>", 11, 23 55 58 11, tab 5 read
edit "", 12, 90 35 80 11, tab 5 autohs center
edit "", 13, 90 55 195 11, tab 5 autohs
button "Reddet", 14, 254 75 30 15, tab 5 flat
button "İgnore Et", 15, 223 75 30 15, tab 5 flat
button "Kabul Et", 16, 192 75 30 15, tab 5 default flat
button "EKLE", 17, 162 75 30 15, tab 5 flat
text "Not : Kişiyi dost listenize, eklemek için EKLE butonuna basınız. Eklediğiniz kişi, özel sitem açık durumda iken, sistem kapalıymış gibi özelinize yazabilir. .-°SiyahTeaM°-.", 18, 15 70 148 20, tab 5
tab "Ayarlar", 6
edit "Karşılama Mesajı =>", 21, 16 30 58 11, tab 6 read
edit "Reddetme Mesajı =>", 22, 16 45 58 11, tab 6 read
edit "Kabul Etme Mesajı=>", 23, 16 60 58 11, tab 6 read
edit "", 24, 80 30 195 11, tab 6 autohs
edit "", 25, 80 45 195 11, tab 6 autohs
edit "", 26, 80 60 195 11, tab 6 autohs
link "Dost Listenizi Düzenlemek için", 27, 16 80 70 13, tab 6
button "BURAYA", 28, 90 78 30 13, tab 6
link "Tıklayınız", 29, 123 80 70 13, tab 6
button "İlk Ayara Dön", 30, 227 78 50 13, tab 6
tab "Yardım", 7
box "Özel Sistem Yardımı", 31, 14 27 272 63, tab 7
link "Dost Listesi :", 32, 20 38 35 13, tab 7
link "İlk Ayara Dön :", 33, 20 61 40 13, tab 7
text " Listeye Nick ekleme yapmak için, 'Istek bilgisi' bölümünden 'EKLE' butonunu ve 'Ayarlar' bölümünden düzenleme butonunu kullanabilirsiniz. Listeye Eklediğiniz kişi, Özel Sistem açık durumda dahi olsa, özelinize yazı yazabilir.", 34, 59 39 220 23, tab 7
text " Ayarlar bölümündeki mesajlarda yapmış olduğunuz değişiklikleri iptal etmek için, Ayarlar bölümündeki 'İlk Ayara Dön' butonunu kullanabilirsiniz.", 35, 59 62 220 18, tab 7
text "Not : Tamam ve İptal Butonlarını Ayarlarda değişiklik yapmadığınız sürece kullanmayınız.", 20, 70 105 134 16
}
#ozelim on
on dostlist:open:?:*:{ .msg $nick 0,2 Özel Sistem 1,15 Nick'iniz dost listesinde olduğu için, özele yazabilirsiniz. }
on redlist:open:?:*:{ .close -m $nick | .timer 0 600 /tumunu.sil | .timer 0 660 /timerlar.off }
on *:open:?:*:{
if ($nick != $me) {
.close -m $nick
.set %gelenNick $nick
.set %gelenMesaj $1-
.ozelsteam
.msg $nick 0,2 $nick $+ %def.Kar
.did -a ozelsteam 13 $1-
.did -a ozelsteam 12 $nick
}
}
#ozelim end
alias tumunu.sil {
.flush redlist
}
alias timerlar.off {
.timers off
}
alias Ozelmesajlar {
.set %ilk.Kar 0,2 $nick 1,15 Özel görüşme isteğiniz değerlendiriliyor. Lütfen Bekleyiniz.
.set %ilk.Red 0,2 $nick 1,15 Özel görüşme talebiniz, Reddedilmiştir. Hoş Sohbetler.
.set %ilk.Kabul 0,2 $nick 1,15 Özel görüşme isteğiniz, KABUL edildi. Özele yazabilirsin.
}
alias Def.mesajlar {
set %def.Kar 1,15 Özel görüşme isteğiniz değerlendiriliyor.0,2 Lütfen Bekleyiniz.
set %def.Red 1,15 Özel görüşme talebiniz, Reddedilmiştir.0,2 Hoş Sohbetler.
set %def.Kabul 1,15 Özel görüşme isteğiniz, KABUL edildi.0,2 Özele yazabilirsin.
}
on *:dialog:ozelsteam:init:*: {
if ($group(#ozelim) == on) {
.did -c $dname 1
.did -c $dname 1
.did -a $dname 24 %def.Kar
.did -a $dname 25 %def.Red
.did -a $dname 26 %def.Kabul
}
elseif ($group(#ozelim) == off) {
.did -b $dname 12,13,14,15,16,17,24,25,26,30
.did -a $dname 24 %def.Kar
.did -a $dname 25 %def.Red
.did -a $dname 26 %def.Kabul
}
}
on *:dialog:ozelsteam:sclick:*: {
if ($did == 1) {
if ($did(1).state == 0) { did -b $dname 12,13,14,15,16,17,24,25,26,30 | .disable #ozelim | .ignore -r }
else { did -e $dname 12,13,14,15,16,17,24,25,26,30 | .enable #ozelim }
}
if ($did == 30) {
.def.mesajlar
.did -o $dname 24 1 %def.Kar
.did -o $dname 25 1 %def.Red
.did -o $dname 26 1 %def.Kabul
}
if ($did == 14) { .msg %gelenNick 0,2 %gelenNick $+ %def.Red | .auser redlist %gelenNick | .ignore -p %gelenNick | dialog -x $dname }
if ($did == 15) { .msg %gelenNick 0,2 %gelenNick $+ %def.Red | .notice %gelenNick 4,1 İgnore Edildiniz | .ignore -p %gelenNick | .echo -a 4,1 .:: 0,1 %gelenNick İgnore Listesine Eklendi. | dialog -x $dname }
if ($did == 16) { .query %gelenNick | .msg %gelenNick 0,2 %gelenNick $+ %def.Kabul | dialog -x $dname | .echo -a 0,2 %gelenNick 2: Geliş mesajı: 0,2 %gelenMesaj }
if ($did == 17) {
.auser dostlist %gelenNick
.set %dost.list $addtok(%dost.list,%gelenNick,32) | dialog -x ozelsteam | .msg %gelenNick 0,2 %gelenNick $+ %def.Kabul | .query %gelenNick | .echo -a 0,2 %gelenNick 2: Geliş mesajı: 0,2 %gelenMesaj
.echo -a 4,1 .:: 0,1 %gelenNick Dost Listesine Eklendi.
}
if ($did == 2) {
if ($group(#ozelim) == off) { .flush redlist }
.set %def.Kar $did(24).text
.set %def.Red $did(25).text
.set %def.Kabul $did(26).text
}
if ($did == 28) { .dostlar }
}
alias dostlar { dialog -m dostlistim dostlistim }
dialog dostlistim {
title "Özel Sistem - Dost Listesi"
size 450 250 120 140
option dbu
box "Dost Listesi", 1, 5 5 110 130
edit "", 2, 10 18 50 12, autohs right
list 3, 10 35 50 93, size
button "Ekle", 4, 66 15 43 15, flat
button "Sil", 5, 66 33 43 15, flat
button "Listeyi Sil", 6, 66 51 43 15, flat
button "Tamam", 7, 66 115 43 15, flat ok
}
on *:dialog:dostlistim:init:*: {
didtok dostlistim 3 32 %dost.list
}
alias dostlist.tumunu.sil { .flush dostlist }
on *:dialog:dostlistim:sclick:*: {
if ($did = 4) { if ($did(2).text == $null) { return } | else { did -a dostlistim 3 $did(2).text | set %dost.list $didtok(dostlistim,3,32) | .auser dostlist $did(2).text | did -r dostlistim 2 } }
if ($did = 5) { if ($did(3).sel == $null) { return } | else { .ruser $did(3,$did(3).sel).text | did -d dostlistim 3 $did(3).sel | set %dost.list $didtok(dostlistim,3,32) } }
if ($did == 6) { dostlist.tumunu.sil | .did -r dostlistim 3 | .unset %dost.list }
}
menu status,channel,menubar {
-
Ozel sistem
.Aç:.enable #ozelim | echo -a 4,1 ..::0,1 Özel Sistem :4,1 Açık
.Kapa:.disable #ozelim | echo -a 4,1 ..::0,1 Özel Sistem :4,1 Kapalı
.Ayarlar:.ozelsteam | .did -f ozelsteam 6
.Yardım:.ozelsteam | .did -f ozelsteam 7
-
}