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/)
-   -   giriş çıkış kanal diyalog (https://www.ircforumlari.net/mirc-scripting-sorunlari/495545-giris-cikis-kanal-diyalog.html)

Goemon 14 Temmuz 2012 21:39
giriş çıkış kanal diyalog
 
s.a hayırlı akşamlar arkadaşlar öncelikle herkese başarılar dilerim sizden istiyeceğim bir kod vardı aradım bulamadım.

diyalog şeklinde girilicek kanallar ve girilmiyecek kanalların olması ve eklenip siline bilmesi için nasıl diyalogdan yaparız acaba mümkünmü.

Lucifer 14 Temmuz 2012 22:39
Cevap: giriş çıkış kanal diyalog
 
Merhaba.

Elimde olan oper mIRC'lerinden bir tane istediğin gibi addon var. Kendine göre düzenleyebilirsin.

Kod:
dialog otog {
  title "Grup Giriş Menusu"
  size -1 -1 132 112
  option dbu

  button "Bulusma", 9, 109 31 22 8
  button "Şehirler", 10, 1 31 22 8
  button "Yaş", 11, 37 31 22 8
  button "iliski", 12, 73 31 22 8
  button "Oyun", 13, 2 66 22 8
  button "Team", 14, 35 66 22 8
  button "Muzik", 15, 72 66 22 8
  button "Gundem", 16, 109 66 22 8
  button "Odalarım", 17, 35 79 58 12
  button "Tamam", 18, 46 94 37 12, ok cancel
  button "Ayarlar", 19, 105 101 25 8
}

on 1:dialog:otog:sclick:*: {
  if ($did == 9) || ($did == 10) || ($did == 11) || ($did == 12) || ($did == 13) || ($did == 14) || ($did == 15) || ($did == 16) || ($did == 17) {
    var %temp 1
    while %temp <= $ini(gruplar.ini,$did($did),0) {
      sajoin $readini(gruplar.ini,$did($did),$ini(gruplar.ini,$did($did),%temp)) $me
      inc %temp
    }
  }
  if ($did == 19) { .dialog -c otog otog | .dialog -m otogirisayar otogirisayar }
}


dialog otogirisayar {
  title "Oto Giris Ayar Tablosu"
  size -1 -1 93 98
  option dbu
  combo 1, 2 8 48 89, size
  button "Ekle", 2, 57 56 25 12
  button "Sil", 3, 57 70 25 12
  button "Tamam", 4, 57 84 25 12, cancel
  combo 5, 50 8 40 48, size
  text "          Opers Script", 6, 2 0 89 8
}

on *:dialog:otogirisayar:sclick:*: {
  if ($did == 3) {
    if ($did(5) != $null) && ($did(1) != $null) { .did -d otogirisayar 1 $did(otogirisayar,1) | .did -d otogirisayar 1 $did(otogirisayar,1).sel | .remini gruplar.ini $did(5) | düzenle | did -a $dname 6 Silme İşlemi Yapılmıştır! }
    else { did -a $dname 6 Silinecek Grup/İsim Belirtmediniz }
  }
  if ($did == 5) { .otogirislist | did -a $dname 6            Opers Abc Script V1.0 }
  if ($did == 2) {
    if ($did(5) != $null) && ($did(1) != $null) { .writeini gruplar.ini $did(5) n $+ $ini(gruplar.ini,$did(5),0) $did(1) | .otogirislist | did -a $dname 6 Kanal Ekleme İşlemi Yapılmıştır! }
    else { did -a $dname 6 Eklenecek Grup/İsim Belirtmediniz! }
  }
}

on *:dialog:otogirisayar:init:*: {
  did -a $dname 5 Bulusma | did -a $dname 5 Şehirler | did -a $dname 5 Yaş | did -a $dname 5 iliski | did -a $dname 5 Oyun
  did -a $dname 5 Team | did -a $dname 5 Muzik | did -a $dname 5 Gundem | did -a $dname 5 Odalarım
}

alias otogirislist {
  did -r otogirisayar 1
  var %temp 1
  while %temp <= $ini(gruplar.ini,$did(5),0) {
    did -a otogirisayar 1 $readini(gruplar.ini,$did(5),$ini(gruplar.ini,$did(5),%temp))
    inc %temp
  }
}

alias düzenle {
  var %temp 1, %temps 0
  while %temp <= $did(otogirisayar,1).lines {
    .writeini -n gruplar.ini $did(5) n $+ %temps $did(otogirisayar,1,%temp).text
    inc %temp | inc %temps
  }
}

Goemon 14 Temmuz 2012 22:50
Cevap: giriş çıkış kanal diyalog
 
valla kod istediğim gibi birşey ama yasaklaı kanalı global kanalı nasıl ayıracam onu anlamadım artı kanal ekledim eklediğim kanala giriş yapamadım?

Goemon 17 Temmuz 2012 21:04
Cevap: giriş çıkış kanal diyalog
 
konu halen güncel.

Difuzyon 17 Temmuz 2012 23:41
Cevap: giriş çıkış kanal diyalog
 
Sunucuda online iken girmek istemediğiniz kanallara otomatik olarak mı yönlendiriliyorsunuz?Yasaklı kanallar kısmına bir açıklık getirirseniz yazılacak kodun olay esnasında ne yapması gerektiği daha belirgin olur.

Goemon 18 Temmuz 2012 21:18
Cevap: giriş çıkış kanal diyalog
 
abi sana msj atdım kusura bakma

Difuzyon 18 Temmuz 2012 22:19
Cevap: giriş çıkış kanal diyalog
 
Kod:
on me:*:join:#:$iif($read(kanal.txt,w,$chan),leave #)
dialog chanlist {
  title "Yasak Kanallar"
  size -1 -1 145 120
  option dbu
  text "Yasak Kanal Listesi", 9, 58 5 101 8
  list 10, 49 26 62 89, size vsbar
  edit "", 11, 48 13 62 12, return autohs autovs
  button "Ekle", 12, 115 14 25 11
  button "Çıkart", 13, 115 30 25 11
  box "", 14, 145 1 98 117
}
on 1:dialog:chanlist:*:*:{
  if ($regex($devent,^init$)) {
 if ($read(kanal.txt)) { loadbuf -o $dname 10 kanal.txt }
}
  if ($regex($devent,^sclick$)) {
    if ($regex($did,^12$)) {
    var %e = $did(11)
    if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt }
      else { $iif($read(kanal.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanal.txt %e) | did -a $dname 10 %e | did -r $dname 11 }
    }
    if ($regex($did,^13$)) {
      var %r = $did($dname,10).sel
      if (!%r) { $iif($input(Herhangi bir kanal seçmediniz.,y) == $true,halt,halt) | halt }
      else { var %- = $did($dname,10).seltext | did -d $dname 10 %r | write $+(-ds,%-) kanal.txt }
    }
  }
}
menu * {
  -
  Yasak Kanallar:.dialog -m chanlist chanlist
  -
}
İstemediğiniz kanallara giriş halinde çıkmak için gerekli dialog kodlaması yukarıdaki gibidir.
Otomatik giriş yapmak istediğiniz kanallar için ise kod yazmaya gerek görmüyorum çünkü bu konuyla alakalı services komutu var.Daha fazlası için Help Dünyası > Online Yardım bölümünden bilgi alabilirsiniz.

Goemon 18 Temmuz 2012 22:39
Cevap: giriş çıkış kanal diyalog
 
allah razı olsun abi sağolasın hakkını helal ed.


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

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