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 Görüşme isteği Yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/878423-ozel-gorusme-istegi-yardim.html)

eLsukr 20 Ağustos 2020 16:18
Özel Görüşme isteği Yardım
 
Kod:
alias ozelkabul {
  set %ozelkabul.nick $1
  set %ozelkabul.address $2
  set %ozelkabul.msg $3-
  if ($dialog($1) != $null) { goto son }
  dialog -m $1 ozelkabul
  :son
}

dialog ozelkabul {
  title "Özel Konuşma İsteği"
  size -1 -1 164 61
  option dbu
  edit "", 1, 40 4 120 10, read
  text "Nick :", 2, 4 7 27 8
  text "Adres :", 3, 4 19 28 8
  text "Mesaj :", 4, 4 31 28 8
  edit "", 5, 40 18 121 10, read
  edit "", 6, 40 30 121 10, read
  button "Kabul ET", 7, 13 44 67 12, flat ok
  button "Red ET", 8, 86 44 66 12, flat cancel
}

on *:dialog:*:init:*:{
  if (Özel Konuşma İsteği == $dialog($dname).title ) {
    set %ozelkabul.dialog $dname
    did -a $dname 1 %ozelkabul.nick
    did -a $dname 5 %ozelkabul.address
    did -a $dname 6 %ozelkabul.msg
  }
}

on *:dialog:*:sclick:*:{
  if (Özel Konuşma İsteği == $dialog($dname).title ) {
    if ($did == 7) {
      .window -w $dname
      .msg $dname 3,9/9,3\1,3/3,1\9,19,1  15,2 ÖzeL  ~   Görüşme  ~   İsteginiz   11,1    ®    15,2  KaBuL   Edilmiştir  11,1  ||  8,2 $$me 11,1  ||    3,1/1,3\9,3/3,9\0,9
      .set %ozelkabul.gorusme. [ $+ [ $dname ] ] ok
    }
    if ($did == 8) {
      .msg $dname  3,9/9,3\1,3/3,1\ 0,4  R  E  D  !  ®    8,5ÖzeL  ~   Görüşme  ~   İsteginiz   11,1    ®    15,2  KaBuL   Edilmemiştir  !    11,1  ||  8,2 $$me 11,1  ||    3,1/1,3\9,3/3,9\0,9

      .ignore -pu300 $dname
      .closemsg $dname
    }
  }
}

on *:TEXT:*:?:{
  if ($nick == $me) { goto son }
  if (%ozelkabul.gorusme. [ $+ [ $nick ] ] == $null) {
    .ozelkabul $nick $address($nick,2) $1-
    .msg $nick  3,9/9,3\1,3/3,1\9,1 15 11,1 ÖzeL  ~  Görüşme  ~  İçin  11,1  ®  11,1  Lutfen ~  Bekleyiniz 11,1  ||  8,2 $$me 11,1  ||    3,1/1,3\9,3/3,9\0,93,9\0,9
    .window -h $nick
  }
}

on *:CLOSE:?:{
  if (%ozelkabul.gorusme. [ $+ [ $target ] ] != $null) { unset %ozelkabul.gorusme. [ $+ [ $target ] ] }
}

menu status,query,channel,nicklist,menubar {
  -
  Ozel sistem
  .Aç:.enable #ozelkabul| echo -a 4,1Özel Sistem :4,1 Açık 
  .Kapa:.disable #ozelkabul | echo -a 4,1Özel Sistem :4,1 Kapalı 
  -
}
}
Arkadaşlar ben bu kodu açıp kapatamıyorum. Mıri açtıgımda kapatmak istiyorum kodu, servere girdikten bir müddet sonrada açmak istiyorum.(girişte kapatmazsam lag ta kalıyorum). yardımınız için şimdiden teşekkürler.

The 20 Ağustos 2020 16:25
Cevap: Özel Görüşme isteği Yardım
 
Kod:
menu status,menubar,channel {
  -
  Özel Kabul Sistemi
  .Açık:.enable #özelkabul | echo -a 4 Aktif.
  .Kapalı:.disable #özelkabul | echo -a 4 Deaktif.
}
#özelkabul off
kodun en üstüne bunu koy

en alt kısımada

Kod:
#özelkabul end


bu sende olan
Kod:
menu status,query,channel,nicklist,menubar {
-
Ozel sistem
.Aç:.enable #ozelkabul| echo -a 4,1Özel Sistem :4,1 Açık 
.Kapa:.disable #ozelkabul | echo -a 4,1Özel Sistem :4,1 Kapalı 
-
}
}
bunuda sil

eLsukr 20 Ağustos 2020 17:25
Cevap: Özel Görüşme isteği Yardım
 
Alıntı:
The Nickli Üyeden Alıntı (Mesaj 1042350024)
Kod:
menu status,menubar,channel {
  -
  Özel Kabul Sistemi
  .Açık:.enable #özelkabul | echo -a 4 Aktif.
  .Kapalı:.disable #özelkabul | echo -a 4 Deaktif.
}
#özelkabul off
kodun en üstüne bunu koy

en alt kısımada

Kod:
#özelkabul end


bu sende olan
Kod:
menu status,query,channel,nicklist,menubar {
-
Ozel sistem
.Aç:.enable #ozelkabul| echo -a 4,1Özel Sistem :4,1 Açık 
.Kapa:.disable #ozelkabul | echo -a 4,1Özel Sistem :4,1 Kapalı 
-
}
}
bunuda sil
Kardeşim birde istediğim nikleri hiç özel bekletme yapmadan doğrudan kabul ettirebilirmiyim ?

eLsukr 21 Ağustos 2020 15:19
Cevap: Özel Görüşme isteği Yardım
 
kardeşim özelde bekletmek istemediğim nick için yapabileceğim bir şey yokmu?

Bir de özele bir nick geldiğinde ve kabul ettiğimde statuste şu uyarı veriyor ;
* /window: Geçersiz parametre (Satır 62, script17.mrc)
-
* /window: Geçersiz parametre (Satır 43, script17.mrc)

62.nci satır da : .window -h $nick
43.ncü satırda: .window -w $dname



-

OperServ 21 Ağustos 2020 20:45
Cevap: Özel Görüşme isteği Yardım
 
Alıntı:
eLsukr Nickli Üyeden Alıntı (Mesaj 1042350535)
kardeşim özelde bekletmek istemediğim nick için yapabileceğim bir şey yokmu?

Bir de özele bir nick geldiğinde ve kabul ettiğimde statuste şu uyarı veriyor ;
* /window: Geçersiz parametre (Satır 62, script17.mrc)
-
* /window: Geçersiz parametre (Satır 43, script17.mrc)

62.nci satır da : .window -h $nick
43.ncü satırda: .window -w $dname



-
Merhaba asagidaki kodu ekleyip sag tiklayip ozel kabul sistemini ayarlayabilirsin metin ayarini ve Arkadas listesini

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 - ZaiL]" 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
  -
}
}


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

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