IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   ÖzeL KabuL (https://www.ircforumlari.net/mirc-scripting-sorunlari/760201-ozel-kabul.html)

ZenqerDenq 12 Ekim 2016 12:45
ÖzeL KabuL
 
Kod:
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, ok
  button "İptal", 3, 235 105 30 15, cancel
  Box "Özel Görüşme İsteği" 4, 5 5 290 95
  tab "İstek Bilgisi" 5, 10 13 280 80
  tab "Ayarlar" 6, 10 13 280 80
  tab "Yardım" 7, 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 left
  button "Reddet" 14, 254 75 30 15, tab 5
  button "İgnore Et" 15, 223 75 30 15, tab 5 
  button "Kabul Et" 16, 192 75 30 15, tab 5 default
  button "EKLE" 17, 162 75 30 15, tab 5
  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.  .-°°-." 18, 15 70 148 20, tab 5
  Edit "Ozel KabuL [System Codes v1.0]" 19, 172 35 112 11, tab 5, read center
  Text "Not : Tamam ve İptal Butonlarını Ayarlarda değişiklik yapmadığınız sürece kullanmayınız." 20, 70 105 130 20
  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 left %def.Kar
  Edit "" 25, 80 45 195 11, tab 6 autohs left %def.Red
  Edit "" 26, 80 60 195 11, tab 6 autohs left %def.Kabul
  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
  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
  link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
36, 220 80 60 13, tab 7
  link "[SiyahTeaM - SiyahKaR]" 37, 150 80 60 13, tab 7
}


#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 }
  if ($did == 36) { .run
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did == 37) { .run mailto:meail@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com }
}


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
  button "Sil" 5, 66 33 43 15
  button "Listeyi Sil" 6, 66 51 43 15
  button "Tamam" 7, 66 115 43 15, ok
  icon 8, 80 92 30 30, ozel\dostlist.ico, top
}


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,query,channel,nicklist,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
  -
}
}

Yukarıdaki gibi bir özel kabul sitemi var lakin 2 sıkıntılı durumu var biricinsizi özele kabul ettiğinde karşıya bilgi mesajı gitmiyor 2 . si ise kabul veya red ettiğinde dialog un otomatik olarak kapanmasını istiyorum mümkünmüdür acaba ?

Mecnun 12 Ekim 2016 16:07
Cevap: ÖzeL KabuL
 
Kod:
Securequery


;[read write data/setting.ini]
alias _vr {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  return $readini data\setting.ini $$1 $$2
}
alias _vw {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  writeini data\setting.ini $$1 $$2 $$3-
}
alias _vrem {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  remini data\setting.ini $$1 $$2
}
alias -l sqo {
  if ($_vr(querycon,switch) == on) { return [x] }
  else { return  }
}
alias -l sqf {
  if ($_vr(querycon,switch) == off) { return [x] }
  else { return }
}
alias secure.query {
  if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt }
  if ($dialog(querycon) == $null) { dialog -m querycon querycon }
}
alias secure.query.nick {
  if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt }
  dialog -m $_vr(querycon,query.nick) querycon1
  _vrem querycon lastmsg
}
dialog querycon1 {
  title "Geveze Özel Kabul Sistemi"
  size -1 -1 160 81
  option dbu
  box "", 33, 7 14 146 42
  button "Kabul", 28, 9 62 25 10, disable default ok
  button "ignore", 26, 36 62 25 10, disable
  button "Reddet", 27, 63 62 25 10, disable
  edit "", 1, 32 21 119 10, read autohs
  edit "", 30, 32 31 119 10, read autohs
  edit "", 29, 32 41 119 10, read autohs
  check "Query Kabul Aktif", 31, 10 6 70 7
  button "Ayarlar" 2, 92 63 21 8
  button "Yetki Ekle", 3, 114 63 37 8, disable
  box "", 4, 7 57 146 18
  text "Nick", 5, 9 22 10 8
  text "Adres", 6, 9 32 19 8
  text "Mesaj", 7, 9 42 21 8
  text "", 8, 130 5 27 8, right
  text "", 9, 76 5 53 8, right
}
dialog querycon {
  title "Özel Kabul"
  size -1 -1 167 119
  option dbu
  button "Tamam", 12, 70 104 25 10, default ok
  tab "Düzenle", 2, 2 1 163 115
  edit "", 3, 4 43 159 10, tab 2 autohs
  text "Bekleme Mesajı", 13, 4 35 44 7, tab 2
  edit "", 4, 4 60 159 10, tab 2 autohs
  check "Aktif", 15, 11 83 32 10, tab 2
  button "Ses Seç", 16, 45 83 37 10, tab 2
  box "Query Kabul İçin Alarm", 17, 8 75 80 22, tab 2
  edit "", 208, 107 79 17 9, tab 2
  button "-", 206, 99 81 6 6, tab 2
  text "saniye", 210, 135 80 20 7, tab 2
  box "Otomatik Kapan", 209, 95 71 63 30, tab 2
  button "+", 207, 126 81 6 6, tab 2
  text "Red Mesajı", 14, 4 53 44 7, tab 2
  check "Query Kabul Aktif", 33, 11 20 66 10, tab 2
  check "Kullanıcıya Haber Ver", 49, 92 20 66 10, tab 2
  check "Oto-Kapanış Aktif", 50, 99 89 58 10, tab 2
  box "", 51, 7 15 154 18, tab 2
  tab "Loglar", 11
  list 34, 7 20 42 50, tab 11 sort size hsbar
  button "Sil", 35, 7 73 29 8, tab 11
  button "Kopyala", 39, 131 72 29 8, tab 11
  check "Query İsteklerini Tut", 43, 7 95 58 10, tab 11
  edit "", 52, 86 84 74 10, tab 11 autohs
  button "Yetki Ekle", 53, 48 85 37 8, tab 11
  edit "", 64, 54 21 106 50, tab 11 read multi vsbar
  button "Hepsini Sil", 65, 7 83 29 8, tab 11
  tab "Koruma", 32
  radio "Geçerli Mask *!*@*", 211, 15 42 62 12, tab 32
  radio "Hostu İgnore Et", 212, 15 56 62 9, tab 32
  box "Query Flood İgnore Şekli", 213, 11 34 70 34, tab 32
  edit "", 214, 87 54 10 10, tab 32
  check "Aktif", 219, 89 42 40 10, tab 32
  box "Query Flood Koruması", 216, 85 34 70 34, tab 32
  edit "", 217, 125 54 15 10, tab 32
  text "İstekler", 215, 99 56 24 7, tab 32
  text "saniye", 218, 141 55 17 7, tab 32
  tab "Yetki", 40
  list 41, 11 42 146 50, tab 40 sort size hsbar
  button "Sil", 42, 12 96 37 8, disable tab 40
  text "Yetki Listesi", 44, 12 34 29 8, tab 40
  edit "", 45, 26 19 106 10, tab 40 autohs
  button "Ekle", 46, 134 20 29 8, disable tab 40
  text "Adres", 47, 6 20 19 8, tab 40
  tab "Bilgi", 54
  box "", 55, 30 23 106 70, tab 54
  text "Yazar:", 56, 60 31 17 8, tab 54
  text "Version", 58, 60 42 17 8, tab 54
  link "Admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].NET", 59, 56 80 59 8, tab 54
  text "Kardelen", 60, 84 31 22 8, tab 54
  text "v1.0", 61, 84 42 14 8, tab 54
  text "Kullanımı : Ozelinize Gelen Mesajları Kabul\Red etme menusu cıkartıyor karsınıza accepted kabul etmektedir , decline ise red. -Deathwave-", 63, 34 55 97 20, tab 54
}
on *:dialog:*:init:*:{
  if ($dialog(querycon) == $dname) {
    if ($_vr(querycon,switch) == on) { did -c querycon 33 }
    elseif ($_vr(querycon,switch) == $null) { _vw querycon switch on | did -c querycon 33 }
    if ($_vr(querycon,ignore.host) == $null) { _vw querycon ignore.host on | _vw querycon ignore.uni off }
    if ($_vr(querycon,decline) == $null) { _vw querycon decline Sorry, I have declined your query, please try a more convient time. }
    if ($_vr(querycon,ignore.uni) == on) && ($_vr(querycon,ignore.host) == off) { did -c querycon 211 1 }
    else  did -c querycon 212 1
    did -o querycon 3 1 $_vr(querycon,standby)
    did -o querycon 4 1 $_vr(querycon,decline)
    if ($_vr(querycon,soundswitch) == on) { did -c querycon 15 }
    if ($_vr(querycon,timer) == $null) { _vw querycon timer 240 }
    did -o querycon 208 1 $_vr(querycon,timer)
    if ($_vr(querycon,max.query) == $null) { _vw querycon max.query 5 | did -o querycon 214 1 $_vr(querycon,max.query) }
    else  did -o querycon 214 1 $_vr(querycon,max.query)
    if ($_vr(querycon,max.query.sec) == $null) {  _vw querycon max.query.sec 20 | did -o querycon 217 1 $_vr(querycon,max.query.sec) }
    else did -o querycon 217 1 $_vr(querycon,max.query.sec)
    if ($_vr(querycon,netflood) == on) did -c querycon 219
    else did -b querycon 211,217,212,214
    if ($_vr(querycon,log) == on) { did -c querycon 43 }
    elseif ($_vr(querycon,log) == $null) { _vw querycon log on | did -c querycon 43 }
    if ($_vr(querycon,notifyaccess) == on) { did -c querycon 49 }
    elseif ($_vr(querycon,notifyaccess) == $null) { _vw querycon notifyaccess on | did -c querycon 49 }
    if ($_vr(querycon,auto-close) == on) { did -c querycon 50 }
    did -b querycon 46,42
    nick.list
    s.levels
    did -z querycon 34
  }
  if ($dialog($dname) == $_vr(querycon,query.nick)) {
    if ($_vr(querycon,auto-close) == on) { %qs.nick = $_vr(querycon,query.nick) | .timer 1 $sq_t close.qw }
  }
}
on *:dialog:querycon:edit:*:{
  if ($did == 3) {
    if ($did(querycon,3).text != $null) {   
      _vw querycon standby $did(querycon,3).text
    }
  }
  if ($did == 4) {
    if ($did(querycon,4).text != $null) {   
      _vw querycon decline $did(querycon,4).text
    }
  }
  if ($did == 45) {
    if ($did(querycon,45).text != $null) { did -e querycon 46 }
    elseif ($did(querycon,45).text == $null) { did -b querycon 46 }
  }
  if ($did == 208) {
    if ($did(querycon,208).text != $null) {   
      _vw querycon timer $did(querycon,208).text
    }
  }
  if ($did == 214) {
    if ($did(querycon,214).text != $null) { 
      _vw querycon max.query $did(querycon,214).text
    } 
  }
  if ($did == 217) {
    if ($did(querycon,217).text != $null) { 
      _vw querycon max.query.sec $did(querycon,217).text
    }
  }
}


on *:dialog:*:sclick:*:{
  if (Query request $dname == $dialog($dname).title) {
    if ($did == 2) { secure.query } 
    if ($did == 3) {
      auser -a securequery $address($did(1,$did(1)),3) $did(1,$did(1)) | did -b $did(1,$did(1)) 3
      if ($_vr(querycon,notifyaccess) == on) { if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] izin almalısınız. } }
    } 
    if ($did == 27) { .ignore -pu180 $did(30,$did(30)) | .msg $did(1,$did(1)) [Görüsme Talebi] $_vr(querycon,decline) |  dialog -x $did(1,$did(1)) }
    if ($did == 28) { 
      .ignore -r $address($did(1,$did(1)),2) | query $did(1,$did(1)) | .timer -m 1 1 echo $did(1,$did(1)) < $+ $did(1,$did(1)) $+ > $did(29,$did(29)) |  _vrem querycon lastmsg
      if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] Görüsme Talebiniz Kabul Edildi. }
      dialog -x $did(1,$did(1))
    }
    if ($did == 26) { .ignore -p $address($did(1,$did(1)),3) | dialog -x $did(1,$did(1)) }
    if ($did == 31) {
      if ($_vr(querycon,switch) != on) { _vw querycon switch on }
      else { _vw querycon switch off  }
    }
  }
  if ($dialog(querycon) ==  $dname) {
    if ($did == 15) {
      if ($_vr(querycon,soundswitch) != on) {  _vw querycon soundswitch on | did -c querycon 15 }
      else { _vw querycon soundswitch off | did -u querycon 15 }
    }
    if ($did == 16) { setquerysound }
    if ($did == 206) { if (%timer > 0) { dec %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer } }
    if ($did == 207) { inc %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer }


    if ($did == 39) { clipboard < $+ $did(34,$did(34).sel) $+ > $sr($did(34,$did(34).sel),msg) }
    if ($did == 34) { did -r querycon 64 | did -a querycon 64 $chr(91) $+ $sr($did(34,$did(34).sel),date) $+ $chr(93) | did -a querycon 64 $crlf $sr($did(34,$did(34).sel),msg) | did -o querycon 52 1 $_vr(securequery,$did(34,$did(34).sel))) }
    if ($did == 33) {
      if ($_vr(querycon,switch) != on) { _vw querycon switch on }
      else { _vw querycon switch off }
    }
    if ($did == 35) { write -ds $+ $did(34,$did(34).sel) securequery\names.txt | _vrem securequery $did(34,$did(34).sel)) | .timer -m 1 1 nick.list }
    if ($did == 41) { did -e querycon 42,46 | did -o querycon 45 1 $did(41,$did(41).sel)) }
    if ($did == 42) { ruser $did(41,$did(41).sel) | s.levels }
    if ($did == 43) {
      if ($_vr(querycon,log) != on) { _vw querycon log on | did -c querycon 43 }
      else { _vw querycon log off }
    } 
    if ($did == 50) {
      if ($_vr(querycon,auto-close) != on) { _vw querycon auto-close on | did -c querycon 50 }
      else { _vw querycon auto-close off }
    }
    if ($did == 53) {
      if ($did(querycon,52).text != $null) {   
        .auser -a  securequery $did(querycon,52).text | did -r querycon 52
      }
    }
    if ($did == 49) {
      if ($_vr(querycon,notifyaccess) != on) { _vw querycon notifyaccess on | did -c querycon 49 }
      else { _vw querycon notifyaccess off }
    }
    if ($did == 46) {
      if ($did(querycon,45).text != $null) {   
        .auser -a  securequery $did(querycon,45).text | did -r querycon 45 | s.levels
      }
    }
    if ($did == 65) { .remove securequery\names.txt | .remove securequery\logs.ini | did -r querycon 64,34,52 }   
    if ($did == 211) {
      if ($_vr(querycon,ignore.uni) == off) { _vw querycon ignore.uni on | _vw querycon ignore.host off | did -c querycon 211 | did -u querycon 212 }
      else { _vw querycon ignore.uni off | _vw querycon ignore.host on | did -u querycon 211 | did -c querycon 212 }
    }
    if ($did == 212) {
      if ($_vr(querycon,ignore.host) == off) { _vw querycon ignore.host on | _vw querycon ignore.uni off | did -c querycon 212 | did -u querycon 211 }
      else { _vw querycon ignore.host off | _vw querycon ignore.uni on | did -u querycon 212 | did -c querycon 211 }
    }
    if ($did == 219) {
      if ($_vr(querycon,netflood) == off) { _vw querycon netflood on | did -c querycon 219 | did -e querycon 211,217,212,214 }
      else { _vw querycon netflood off | did -u querycon 219 | did -b querycon 211,217,212,214 }
    }
  }
}
alias -l sr {
  if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini }
  return $readini securequery\logs.ini $$1 $$2
}
alias -l sw {
  if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini }
  writeini securequery\logs.ini $$1 $$2 $$3-
}
alias -l srem {
  if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c  securequery\logs.ini }
  remini securequery\logs.ini $$1 $$2
}
on ^*:open:?: {
  if ($_vr(querycon,switch) == $null) { _vw querycon switch on }
  if ($finddir($mircdir\,securequery*,1) == $null) { mkdir securequery }
  if ($_vr(querycon,netflood) != on) {
    inc %upflood15 1 
    if (%upflood15 > $_vr(querycon,max.query)) {
      if ($_vr(querycon,ignore.uni) == on) { .ignore -pu $+ $_vr(querycon,max.query.sec) *!*@* }
      else { .ignore -pu $+ $_vr(querycon,max.query.sec) $wildsite }
      echo -a 4[ ALERT ] $nick is Query Flooding. User ( $+ $wildsite $+ ) now ignored for $_vr(querycon,max.query.sec) secs.
    }
    .timer 1 60 unset %upflood15   
  }
  if ($_vr(querycon,standby) == $null) { _vw querycon standby görüsme isteginiz suanda degerlendiriliyor .. }
  if ($level($address($nick,3)) == securequery) { goto end }
  if ($network == WonderNet) && ($nick == Global) { goto end }
  if ($network == WonderNet) && ($nick == Nickserv) { goto end }
  if ($network == WonderNet) && ($nick == Chanserv) { goto end }
  if ($network == WonderNet) && ($nick == Memoserv) { goto end }
  if ($_vr(querycon,switch) == on) {
    if ($_vr(querycon,soundswitch) == on) { if ($_vr(querycon,sound) != $null) { splay $_vr(querycon,sound) } }
    echo -a  $+ $colour(notice) $+ %GLCBilisim Size Query Açan nick; [ $nick ]
    echo -a  $+ $colour(notice) $+ %GLCBilisim Konuşma Talebine Cevap bekleniyor...
    if ($_vr(querycon,log) == on) {
      if ($read(securequery\names.txt, w, $nick) == $nick) { write -ds $+ $nick securequery\names.txt }
      sw $nick date $asctime(h:nn:sstt m/d) | sw $nick msg $strip($1-,burc) | write securequery/names.txt $nick | _vw securequery $nick $wildsite | nick.list
    }
    .msg $nick [Görüsme Talebi] $_vr(querycon,standby)
    _vw  querycon query.nick $nick
    if ($dialog($nick) == $null) { secure.query.nick }
    dialog -t $_vr(querycon,query.nick) Query request $nick
    did -o $nick 1 1 $_vr(querycon,query.nick)
    .ignore -pu120 $wildsite   
    whosqial $nick 
    did -o $nick 9 1 ( $+ $network $+ ) 
    did -o $nick 30 1 updating...
    did -o $nick 29 1 $strip($1-,burc)
    did -o $nick 8 1 $asctime(hh:nntt)


    if ($_vr(querycon,switch) == on) { did -c $nick 31 }
    haltdef
    :end
  } 
}
#sqialud off
raw 352:*: {
  if ($dialog($6) != $null) { did -o $6 30 1 *!* $+ $3 $+ @ $+ $4  | did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | haltdef }
  else { if ($dialog($6) != $null) { did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | halt } }
  halt
}
raw 315:*: {
  halt
}
#sqialud end
alias -l whosqial { .enable #sqialud | .who $$1 }
alias -l secure.dir {
  mkdir  " $+ $mircdirsecurequery $+ \ $+ "
  return securequery $+ \
}
alias -l sq_t {
  return $_vr(querycon,timer)
}


alias -l nick.list {
  if ($dialog(querycon) != $null) {
    did -r querycon 64,34,52
    var %fst = $lines(securequery\names.txt) 
    var %f = 1
    while (%f <= %fst) { did -a querycon 34 $read(securequery\names.txt,%f) | inc %f 1 }
  }
}
alias -l s.levels {
  did -r querycon 41
  var %s.l = $ulist(*,securequery,0)
  if (%s.l == 0) { did -b querycon 42 | return }
  else  did -e querycon 42
  var %s.w = 0
  :loop
  inc %s.w
  if (%s.w <= %s.l) { did -a querycon 41  $ulist(*,securequery,%s.w) | goto loop }
  else return
}
alias -l close.qw { if ($dialog(%qs.nick) != $null) dialog -x %qs.nick }
alias -l setquerysound {
  _vw querycon sound $$dir="Choose a wav:" $mircdir*.wav;*mp3;*.mid
}
Bu kısmıda popus'ta kanal menüsüne ekleyiniz.


Kod:
® Extralar
.Query Kabul Sistemi
..:[Securequery]:
...
..Düzenle:secure.query
..Açık $sqo: _vw querycon switch on | echo %GLCBilisim 4Query Kabul Sistemi Açıldı
..Kapalı $sqf: _vw querycon switch off | echo %GLCBilisim 4Query Kabul Sistemi kapatıldı. %dost
-

ZenqerDenq 12 Ekim 2016 16:18
Cevap: ÖzeL KabuL
 
Alıntı:
Serazad Nickli Üyeden Alıntı (Mesaj 1041811728)
Kod:
Securequery


;[read write data/setting.ini]
alias _vr {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  return $readini data\setting.ini $$1 $$2
}
alias _vw {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  writeini data\setting.ini $$1 $$2 $$3-
}
alias _vrem {
  if ($exists(data\setting.ini) == $false) { mkdir data | write -c data\setting.ini }
  remini data\setting.ini $$1 $$2
}
alias -l sqo {
  if ($_vr(querycon,switch) == on) { return [x] }
  else { return  }
}
alias -l sqf {
  if ($_vr(querycon,switch) == off) { return [x] }
  else { return }
}
alias secure.query {
  if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt }
  if ($dialog(querycon) == $null) { dialog -m querycon querycon }
}
alias secure.query.nick {
  if ($version < 5.91) { echo -a 4This addon will not work properly with mIRC $version $+ , please upgrade to latest mIRC
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
beep | halt }
  dialog -m $_vr(querycon,query.nick) querycon1
  _vrem querycon lastmsg
}
dialog querycon1 {
  title "Geveze Özel Kabul Sistemi"
  size -1 -1 160 81
  option dbu
  box "", 33, 7 14 146 42
  button "Kabul", 28, 9 62 25 10, disable default ok
  button "ignore", 26, 36 62 25 10, disable
  button "Reddet", 27, 63 62 25 10, disable
  edit "", 1, 32 21 119 10, read autohs
  edit "", 30, 32 31 119 10, read autohs
  edit "", 29, 32 41 119 10, read autohs
  check "Query Kabul Aktif", 31, 10 6 70 7
  button "Ayarlar" 2, 92 63 21 8
  button "Yetki Ekle", 3, 114 63 37 8, disable
  box "", 4, 7 57 146 18
  text "Nick", 5, 9 22 10 8
  text "Adres", 6, 9 32 19 8
  text "Mesaj", 7, 9 42 21 8
  text "", 8, 130 5 27 8, right
  text "", 9, 76 5 53 8, right
}
dialog querycon {
  title "Özel Kabul"
  size -1 -1 167 119
  option dbu
  button "Tamam", 12, 70 104 25 10, default ok
  tab "Düzenle", 2, 2 1 163 115
  edit "", 3, 4 43 159 10, tab 2 autohs
  text "Bekleme Mesajı", 13, 4 35 44 7, tab 2
  edit "", 4, 4 60 159 10, tab 2 autohs
  check "Aktif", 15, 11 83 32 10, tab 2
  button "Ses Seç", 16, 45 83 37 10, tab 2
  box "Query Kabul İçin Alarm", 17, 8 75 80 22, tab 2
  edit "", 208, 107 79 17 9, tab 2
  button "-", 206, 99 81 6 6, tab 2
  text "saniye", 210, 135 80 20 7, tab 2
  box "Otomatik Kapan", 209, 95 71 63 30, tab 2
  button "+", 207, 126 81 6 6, tab 2
  text "Red Mesajı", 14, 4 53 44 7, tab 2
  check "Query Kabul Aktif", 33, 11 20 66 10, tab 2
  check "Kullanıcıya Haber Ver", 49, 92 20 66 10, tab 2
  check "Oto-Kapanış Aktif", 50, 99 89 58 10, tab 2
  box "", 51, 7 15 154 18, tab 2
  tab "Loglar", 11
  list 34, 7 20 42 50, tab 11 sort size hsbar
  button "Sil", 35, 7 73 29 8, tab 11
  button "Kopyala", 39, 131 72 29 8, tab 11
  check "Query İsteklerini Tut", 43, 7 95 58 10, tab 11
  edit "", 52, 86 84 74 10, tab 11 autohs
  button "Yetki Ekle", 53, 48 85 37 8, tab 11
  edit "", 64, 54 21 106 50, tab 11 read multi vsbar
  button "Hepsini Sil", 65, 7 83 29 8, tab 11
  tab "Koruma", 32
  radio "Geçerli Mask *!*@*", 211, 15 42 62 12, tab 32
  radio "Hostu İgnore Et", 212, 15 56 62 9, tab 32
  box "Query Flood İgnore Şekli", 213, 11 34 70 34, tab 32
  edit "", 214, 87 54 10 10, tab 32
  check "Aktif", 219, 89 42 40 10, tab 32
  box "Query Flood Koruması", 216, 85 34 70 34, tab 32
  edit "", 217, 125 54 15 10, tab 32
  text "İstekler", 215, 99 56 24 7, tab 32
  text "saniye", 218, 141 55 17 7, tab 32
  tab "Yetki", 40
  list 41, 11 42 146 50, tab 40 sort size hsbar
  button "Sil", 42, 12 96 37 8, disable tab 40
  text "Yetki Listesi", 44, 12 34 29 8, tab 40
  edit "", 45, 26 19 106 10, tab 40 autohs
  button "Ekle", 46, 134 20 29 8, disable tab 40
  text "Adres", 47, 6 20 19 8, tab 40
  tab "Bilgi", 54
  box "", 55, 30 23 106 70, tab 54
  text "Yazar:", 56, 60 31 17 8, tab 54
  text "Version", 58, 60 42 17 8, tab 54
  link "Admin@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].NET", 59, 56 80 59 8, tab 54
  text "Kardelen", 60, 84 31 22 8, tab 54
  text "v1.0", 61, 84 42 14 8, tab 54
  text "Kullanımı : Ozelinize Gelen Mesajları Kabul\Red etme menusu cıkartıyor karsınıza accepted kabul etmektedir , decline ise red. -Deathwave-", 63, 34 55 97 20, tab 54
}
on *:dialog:*:init:*:{
  if ($dialog(querycon) == $dname) {
    if ($_vr(querycon,switch) == on) { did -c querycon 33 }
    elseif ($_vr(querycon,switch) == $null) { _vw querycon switch on | did -c querycon 33 }
    if ($_vr(querycon,ignore.host) == $null) { _vw querycon ignore.host on | _vw querycon ignore.uni off }
    if ($_vr(querycon,decline) == $null) { _vw querycon decline Sorry, I have declined your query, please try a more convient time. }
    if ($_vr(querycon,ignore.uni) == on) && ($_vr(querycon,ignore.host) == off) { did -c querycon 211 1 }
    else  did -c querycon 212 1
    did -o querycon 3 1 $_vr(querycon,standby)
    did -o querycon 4 1 $_vr(querycon,decline)
    if ($_vr(querycon,soundswitch) == on) { did -c querycon 15 }
    if ($_vr(querycon,timer) == $null) { _vw querycon timer 240 }
    did -o querycon 208 1 $_vr(querycon,timer)
    if ($_vr(querycon,max.query) == $null) { _vw querycon max.query 5 | did -o querycon 214 1 $_vr(querycon,max.query) }
    else  did -o querycon 214 1 $_vr(querycon,max.query)
    if ($_vr(querycon,max.query.sec) == $null) {  _vw querycon max.query.sec 20 | did -o querycon 217 1 $_vr(querycon,max.query.sec) }
    else did -o querycon 217 1 $_vr(querycon,max.query.sec)
    if ($_vr(querycon,netflood) == on) did -c querycon 219
    else did -b querycon 211,217,212,214
    if ($_vr(querycon,log) == on) { did -c querycon 43 }
    elseif ($_vr(querycon,log) == $null) { _vw querycon log on | did -c querycon 43 }
    if ($_vr(querycon,notifyaccess) == on) { did -c querycon 49 }
    elseif ($_vr(querycon,notifyaccess) == $null) { _vw querycon notifyaccess on | did -c querycon 49 }
    if ($_vr(querycon,auto-close) == on) { did -c querycon 50 }
    did -b querycon 46,42
    nick.list
    s.levels
    did -z querycon 34
  }
  if ($dialog($dname) == $_vr(querycon,query.nick)) {
    if ($_vr(querycon,auto-close) == on) { %qs.nick = $_vr(querycon,query.nick) | .timer 1 $sq_t close.qw }
  }
}
on *:dialog:querycon:edit:*:{
  if ($did == 3) {
    if ($did(querycon,3).text != $null) {   
      _vw querycon standby $did(querycon,3).text
    }
  }
  if ($did == 4) {
    if ($did(querycon,4).text != $null) {   
      _vw querycon decline $did(querycon,4).text
    }
  }
  if ($did == 45) {
    if ($did(querycon,45).text != $null) { did -e querycon 46 }
    elseif ($did(querycon,45).text == $null) { did -b querycon 46 }
  }
  if ($did == 208) {
    if ($did(querycon,208).text != $null) {   
      _vw querycon timer $did(querycon,208).text
    }
  }
  if ($did == 214) {
    if ($did(querycon,214).text != $null) { 
      _vw querycon max.query $did(querycon,214).text
    } 
  }
  if ($did == 217) {
    if ($did(querycon,217).text != $null) { 
      _vw querycon max.query.sec $did(querycon,217).text
    }
  }
}


on *:dialog:*:sclick:*:{
  if (Query request $dname == $dialog($dname).title) {
    if ($did == 2) { secure.query } 
    if ($did == 3) {
      auser -a securequery $address($did(1,$did(1)),3) $did(1,$did(1)) | did -b $did(1,$did(1)) 3
      if ($_vr(querycon,notifyaccess) == on) { if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] izin almalısınız. } }
    } 
    if ($did == 27) { .ignore -pu180 $did(30,$did(30)) | .msg $did(1,$did(1)) [Görüsme Talebi] $_vr(querycon,decline) |  dialog -x $did(1,$did(1)) }
    if ($did == 28) { 
      .ignore -r $address($did(1,$did(1)),2) | query $did(1,$did(1)) | .timer -m 1 1 echo $did(1,$did(1)) < $+ $did(1,$did(1)) $+ > $did(29,$did(29)) |  _vrem querycon lastmsg
      if ($server != $null) { .msg $did(1,$did(1)) [Görüsme Talebi] Görüsme Talebiniz Kabul Edildi. }
      dialog -x $did(1,$did(1))
    }
    if ($did == 26) { .ignore -p $address($did(1,$did(1)),3) | dialog -x $did(1,$did(1)) }
    if ($did == 31) {
      if ($_vr(querycon,switch) != on) { _vw querycon switch on }
      else { _vw querycon switch off  }
    }
  }
  if ($dialog(querycon) ==  $dname) {
    if ($did == 15) {
      if ($_vr(querycon,soundswitch) != on) {  _vw querycon soundswitch on | did -c querycon 15 }
      else { _vw querycon soundswitch off | did -u querycon 15 }
    }
    if ($did == 16) { setquerysound }
    if ($did == 206) { if (%timer > 0) { dec %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer } }
    if ($did == 207) { inc %timer 1 | did -o querycon 208 1 %timer | _vw querycon timer %timer }


    if ($did == 39) { clipboard < $+ $did(34,$did(34).sel) $+ > $sr($did(34,$did(34).sel),msg) }
    if ($did == 34) { did -r querycon 64 | did -a querycon 64 $chr(91) $+ $sr($did(34,$did(34).sel),date) $+ $chr(93) | did -a querycon 64 $crlf $sr($did(34,$did(34).sel),msg) | did -o querycon 52 1 $_vr(securequery,$did(34,$did(34).sel))) }
    if ($did == 33) {
      if ($_vr(querycon,switch) != on) { _vw querycon switch on }
      else { _vw querycon switch off }
    }
    if ($did == 35) { write -ds $+ $did(34,$did(34).sel) securequery\names.txt | _vrem securequery $did(34,$did(34).sel)) | .timer -m 1 1 nick.list }
    if ($did == 41) { did -e querycon 42,46 | did -o querycon 45 1 $did(41,$did(41).sel)) }
    if ($did == 42) { ruser $did(41,$did(41).sel) | s.levels }
    if ($did == 43) {
      if ($_vr(querycon,log) != on) { _vw querycon log on | did -c querycon 43 }
      else { _vw querycon log off }
    } 
    if ($did == 50) {
      if ($_vr(querycon,auto-close) != on) { _vw querycon auto-close on | did -c querycon 50 }
      else { _vw querycon auto-close off }
    }
    if ($did == 53) {
      if ($did(querycon,52).text != $null) {   
        .auser -a  securequery $did(querycon,52).text | did -r querycon 52
      }
    }
    if ($did == 49) {
      if ($_vr(querycon,notifyaccess) != on) { _vw querycon notifyaccess on | did -c querycon 49 }
      else { _vw querycon notifyaccess off }
    }
    if ($did == 46) {
      if ($did(querycon,45).text != $null) {   
        .auser -a  securequery $did(querycon,45).text | did -r querycon 45 | s.levels
      }
    }
    if ($did == 65) { .remove securequery\names.txt | .remove securequery\logs.ini | did -r querycon 64,34,52 }   
    if ($did == 211) {
      if ($_vr(querycon,ignore.uni) == off) { _vw querycon ignore.uni on | _vw querycon ignore.host off | did -c querycon 211 | did -u querycon 212 }
      else { _vw querycon ignore.uni off | _vw querycon ignore.host on | did -u querycon 211 | did -c querycon 212 }
    }
    if ($did == 212) {
      if ($_vr(querycon,ignore.host) == off) { _vw querycon ignore.host on | _vw querycon ignore.uni off | did -c querycon 212 | did -u querycon 211 }
      else { _vw querycon ignore.host off | _vw querycon ignore.uni on | did -u querycon 212 | did -c querycon 211 }
    }
    if ($did == 219) {
      if ($_vr(querycon,netflood) == off) { _vw querycon netflood on | did -c querycon 219 | did -e querycon 211,217,212,214 }
      else { _vw querycon netflood off | did -u querycon 219 | did -b querycon 211,217,212,214 }
    }
  }
}
alias -l sr {
  if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini }
  return $readini securequery\logs.ini $$1 $$2
}
alias -l sw {
  if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c securequery\logs.ini }
  writeini securequery\logs.ini $$1 $$2 $$3-
}
alias -l srem {
  if ($exists(securequery\logs.ini) == $false) { mkdir securequery | write -c  securequery\logs.ini }
  remini securequery\logs.ini $$1 $$2
}
on ^*:open:?: {
  if ($_vr(querycon,switch) == $null) { _vw querycon switch on }
  if ($finddir($mircdir\,securequery*,1) == $null) { mkdir securequery }
  if ($_vr(querycon,netflood) != on) {
    inc %upflood15 1 
    if (%upflood15 > $_vr(querycon,max.query)) {
      if ($_vr(querycon,ignore.uni) == on) { .ignore -pu $+ $_vr(querycon,max.query.sec) *!*@* }
      else { .ignore -pu $+ $_vr(querycon,max.query.sec) $wildsite }
      echo -a 4[ ALERT ] $nick is Query Flooding. User ( $+ $wildsite $+ ) now ignored for $_vr(querycon,max.query.sec) secs.
    }
    .timer 1 60 unset %upflood15   
  }
  if ($_vr(querycon,standby) == $null) { _vw querycon standby görüsme isteginiz suanda degerlendiriliyor .. }
  if ($level($address($nick,3)) == securequery) { goto end }
  if ($network == WonderNet) && ($nick == Global) { goto end }
  if ($network == WonderNet) && ($nick == Nickserv) { goto end }
  if ($network == WonderNet) && ($nick == Chanserv) { goto end }
  if ($network == WonderNet) && ($nick == Memoserv) { goto end }
  if ($_vr(querycon,switch) == on) {
    if ($_vr(querycon,soundswitch) == on) { if ($_vr(querycon,sound) != $null) { splay $_vr(querycon,sound) } }
    echo -a  $+ $colour(notice) $+ %GLCBilisim Size Query Açan nick; [ $nick ]
    echo -a  $+ $colour(notice) $+ %GLCBilisim Konuşma Talebine Cevap bekleniyor...
    if ($_vr(querycon,log) == on) {
      if ($read(securequery\names.txt, w, $nick) == $nick) { write -ds $+ $nick securequery\names.txt }
      sw $nick date $asctime(h:nn:sstt m/d) | sw $nick msg $strip($1-,burc) | write securequery/names.txt $nick | _vw securequery $nick $wildsite | nick.list
    }
    .msg $nick [Görüsme Talebi] $_vr(querycon,standby)
    _vw  querycon query.nick $nick
    if ($dialog($nick) == $null) { secure.query.nick }
    dialog -t $_vr(querycon,query.nick) Query request $nick
    did -o $nick 1 1 $_vr(querycon,query.nick)
    .ignore -pu120 $wildsite   
    whosqial $nick 
    did -o $nick 9 1 ( $+ $network $+ ) 
    did -o $nick 30 1 updating...
    did -o $nick 29 1 $strip($1-,burc)
    did -o $nick 8 1 $asctime(hh:nntt)


    if ($_vr(querycon,switch) == on) { did -c $nick 31 }
    haltdef
    :end
  } 
}
#sqialud off
raw 352:*: {
  if ($dialog($6) != $null) { did -o $6 30 1 *!* $+ $3 $+ @ $+ $4  | did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | haltdef }
  else { if ($dialog($6) != $null) { did -e $6 26,28,3,27 | .timer 1 5 .disable #sqialud | halt } }
  halt
}
raw 315:*: {
  halt
}
#sqialud end
alias -l whosqial { .enable #sqialud | .who $$1 }
alias -l secure.dir {
  mkdir  " $+ $mircdirsecurequery $+ \ $+ "
  return securequery $+ \
}
alias -l sq_t {
  return $_vr(querycon,timer)
}


alias -l nick.list {
  if ($dialog(querycon) != $null) {
    did -r querycon 64,34,52
    var %fst = $lines(securequery\names.txt) 
    var %f = 1
    while (%f <= %fst) { did -a querycon 34 $read(securequery\names.txt,%f) | inc %f 1 }
  }
}
alias -l s.levels {
  did -r querycon 41
  var %s.l = $ulist(*,securequery,0)
  if (%s.l == 0) { did -b querycon 42 | return }
  else  did -e querycon 42
  var %s.w = 0
  :loop
  inc %s.w
  if (%s.w <= %s.l) { did -a querycon 41  $ulist(*,securequery,%s.w) | goto loop }
  else return
}
alias -l close.qw { if ($dialog(%qs.nick) != $null) dialog -x %qs.nick }
alias -l setquerysound {
  _vw querycon sound $$dir="Choose a wav:" $mircdir*.wav;*mp3;*.mid
}
Bu kısmıda popus'ta kanal menüsüne ekleyiniz.


Kod:
® Extralar
.Query Kabul Sistemi
..:[Securequery]:
...
..Düzenle:secure.query
..Açık $sqo: _vw querycon switch on | echo %GLCBilisim 4Query Kabul Sistemi Açıldı
..Kapalı $sqf: _vw querycon switch off | echo %GLCBilisim 4Query Kabul Sistemi kapatıldı. %dost
-
tşk ederim lakin benim verdiğim özel kabul sistemi değil bu benim vermiş olduğumu çalıştırmak istiyorum

Mylife 12 Ekim 2016 16:28
Cevap: ÖzeL KabuL
 
diyalog penceresi ayarlar bölümü mesajları secebiliyorsun tamam veya reddet diyince diyalog kapanıyor bende bir sorun gözükmüyor, diğer arkadaşlarda bir baksınlar.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:28 -->-> Daha önceki mesaj 16:25 --

/ozelsteam yaparsan diyalog penceresi acılıyor zaten orada ayarlar bölümü var ordan dilediğin mesajı yazabiliyorsun ama diyalogta benm gördüğüm bir hata reddettiğin kişileri ignore ediyor süreside uzun biraz onu biraz daha kısaltman daha iyi olur sanırım kücük kücük ayarlar gerekiyor kendinde ayarlıyabilirsin bunları, iyi forumlar.

ZenqerDenq 12 Ekim 2016 17:09
Cevap: ÖzeL KabuL
 
Alıntı:
Kod Nickli Üyeden Alıntı (Mesaj 1041811731)
diyalog penceresi ayarlar bölümü mesajları secebiliyorsun tamam veya reddet diyince diyalog kapanıyor bende bir sorun gözükmüyor, diğer arkadaşlarda bir baksınlar.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:28 -->-> Daha önceki mesaj 16:25 --

/ozelsteam yaparsan diyalog penceresi acılıyor zaten orada ayarlar bölümü var ordan dilediğin mesajı yazabiliyorsun ama diyalogta benm gördüğüm bir hata reddettiğin kişileri ignore ediyor süreside uzun biraz onu biraz daha kısaltman daha iyi olur sanırım kücük kücük ayarlar gerekiyor kendinde ayarlıyabilirsin bunları, iyi forumlar.
malesef bende kabul edince dialog kapanmıyor illede tamam tuşuna basmak gerekli benim istediğim ise kabul etti isem oto kapatsın yada red ettiğimde. ve kabul ettiğimde karşı tarafa kabul edildiniz gibi bir bilgi mesajı gitmiyor

Mylife 12 Ekim 2016 19:22
Cevap: ÖzeL KabuL
 
Kod:
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, ok
  button "İptal", 3, 235 105 30 15, cancel
  Box "Özel Görüşme İsteği" 4, 5 5 290 95
  tab "İstek Bilgisi" 5, 10 13 280 80
  tab "Ayarlar" 6, 10 13 280 80
  tab "Yardım" 7, 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 left
  button "Reddet" 14, 254 75 30 15, tab 5
  button "İgnore Et" 15, 223 75 30 15, tab 5 
  button "Kabul Et" 16, 192 75 30 15, tab 5 default
  button "EKLE" 17, 162 75 30 15, tab 5
  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.  .-°°-." 18, 15 70 148 20, tab 5
  Edit "Ozel KabuL [System Codes v1.0]" 19, 172 35 112 11, tab 5, read center
  Text "Not : Tamam ve İptal Butonlarını Ayarlarda değişiklik yapmadığınız sürece kullanmayınız." 20, 70 105 130 20
  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 left %def.Kar
  Edit "" 25, 80 45 195 11, tab 6 autohs left %def.Red
  Edit "" 26, 80 60 195 11, tab 6 autohs left %def.Kabul
  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
  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
  link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
36, 220 80 60 13, tab 7
  link "[Mirchelp - Mylife]" 37, 150 80 60 13, tab 7
}


#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:?:*:{ .timer 1 60 /tumunu.sil | .timer 1 60 /timerlar.off }
on *:open:?:*:{
  if ($nick != $me) {
    .close -m $nick
    .set %gelenNick $nick
    .set %gelenMesaj $1-
    .ozelsteam
    .msg $nick $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  $nick 1,15 Özel görüşme isteğiniz değerlendiriliyor. Lütfen Bekleyiniz.
  .set %ilk.Red  $nick 1,15 Özel görüşme talebiniz, Reddedilmiştir. Hoş Sohbetler.
  .set %ilk.Kabul  $nick 1,15 Özel görüşme isteğiniz, KABUL edildi. Özele yazabilirsin.
}

alias Def.mesajlar {
  set %def.Kar Özel görüşme isteğiniz değerlendiriliyor.0,2 Lütfen Bekleyiniz.
  set %def.Red Özel görüşme talebiniz, Reddedilmiştir.0,2 Hoş Sohbetler.
  set %def.Kabul Ö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  %gelenNick  $+ %def.Red | .auser redlist %gelenNick | dialog -x $dname }
  if ($did == 15) { .msg %gelenNick  %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  %gelenNick , %def.Kabul | dialog -x $dname | .echo -a 4 %gelenNick 2 : Geliş mesajı: 4 %gelenMesaj }
  if ($did == 17) {
    .auser dostlist %gelenNick
    .set %dost.list $addtok(%dost.list,%gelenNick,32) | dialog -x ozelsteam | .msg %gelenNick  %gelenNick , $+($chr(32)),$+(%def.Kabul) | .query %gelenNick | .echo -a 4 %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 }
  if ($did == 36) { .run
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
if ($did == 37) { .run mailto:meail@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com }
}


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
  button "Sil" 5, 66 33 43 15
  button "Listeyi Sil" 6, 66 51 43 15
  button "Tamam" 7, 66 115 43 15, ok
  icon 8, 80 92 30 30, ozel\dostlist.ico, top
}


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,query,channel,nicklist,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
  -
}
}
Yapılanlar;
-Özel e kullanıcı geldiğinde kabul veya red mesajlarında sadece nick i yazıyordu kaldırıldı kabul seceneğinden sonra query penceresinin acılması sağlandı.
-Ayarlar bölümünde kabul/Red/Karşılama mesajlarına ne yazılırsa o mesaj ı yazılması sağlandı.
- Nick mesaj mesajlarındaki düzensizlik giderildi.
- red mesajlarında ignore ediyordu kaldırıldı, red edilmiş bile olsa yazılan txt leri acılan query penceresinde görülücek.
Not; Karsılama mesajları,
/ozelsteam yapılarak ayarlar bölümünden yazılabilir orada belirtilen mesajların başına özel yazı yazan kişinin nick iyle birlikte düzenli bir cevap verilmesi sağlandı.

kendime göre ayarladım şuan sorunsuz calışıyor kendim de kullanmaya başladım ayrıca :)) iyi forumlar.

ZenqerDenq 12 Ekim 2016 19:30
Cevap: ÖzeL KabuL
 
Alıntı:
Kod Nickli Üyeden Alıntı (Mesaj 1041811753)
Yapılanlar;
-Özel e kullanıcı geldiğinde kabul veya red mesajlarında sadece nick i yazıyordu kaldırıldı kabul seceneğinden sonra query penceresinin acılması sağlandı.
-Ayarlar bölümünde kabul/Red/Karşılama mesajlarına ne yazılırsa o mesaj ı yazılması sağlandı.
- Nick mesaj mesajlarındaki düzensizlik giderildi.
- red mesajlarında ignore ediyordu kaldırıldı, red edilmiş bile olsa yazılan txt leri acılan query penceresinde görülücek.
Not; Karsılama mesajları,
/ozelsteam yapılarak ayarlar bölümünden yazılabilir orada belirtilen mesajların başına özel yazı yazan kişinin nick iyle birlikte düzenli bir cevap verilmesi sağlandı.

kendime göre ayarladım şuan sorunsuz calışıyor kendim de kullanmaya başladım ayrıca :)) iyi forumlar.
Güle güle kullanda kabul ettiğimde karşı tarafa kabul edildi diye mesaj gitmiyor kabul dediğim dialog halen kapanmıyor (: sunucu adresi ver geleyim özeline ?

Mylife 12 Ekim 2016 19:40
Cevap: ÖzeL KabuL
 
bende sorunsuz calısıyo şuan pm atamadım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] profil bilgilerindeki irc sunucusu yazıyor #mirchelp kanalına gelirsen görüşebiliriz.

ZenqerDenq 14 Ekim 2016 07:05
Cevap: ÖzeL KabuL
 
Sorunu hallettim sorun başka bir kodun çakışmasından dolayıdır bu arada bunuda paylaşmış oLaLım konu Kilitlene bilir.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:14.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net