Özele Kabul Sistemi

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.

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
  -
}