MaviNehir: Webmaster Forum, Sohbet

sohbetimg


Go Back   MaviNehir: Webmaster Forum, Sohbet > mIRC Scripting > mIRC Scripting Hazır Kodlar > mIRC Parça Kodlar

Sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
  #1  
Alt 02-25-2019, 08:46 PM
Rza - ait Kullanıcı Resmi (Avatar)
Rza Rza isimli Üye şimdilik offline konumundadır
Moderator
 
Üyelik tarihi: Feb 2019
Takım: / Galatasaray
İlişki: İlişkisi Yok
Meslek:
Web Sitesi:
Mesajlar: 35
Beğeniler: 0 / 0
Konular: 34
Standart Kanal Join ve Part Kodu Tarafımca Düzenlenmiştir Güle Güle Kullanın.

Kod:
on me:*:join:#:$iif($read(kanalpart.txt,w,$chan),leave #)

menu status,channel {
  Join&Part KanaL Menüsü:joinpart
}

alias joinpart { if $dialog(joinpart) { !echo -a 10Join&Part KanaL Menüsü 2Zaten 3AÇIK! } | else { !dialog -m joinpart joinpart } }
dialog joinpart {
  title "Join // Part Kanal Menüsü"
  size -1 -1 163 126
  option dbu
  box "Global KanaL", 1, 3 1 78 122
  list 2, 7 25 71 95, size
  edit "", 3, 7 11 42 10
  button "Ekle", 4, 51 11 26 10
  box "Yasaklı KanaL", 5, 83 1 78 122
  edit "", 6, 87 11 42 10
  button "Ekle", 7, 131 11 26 10
  list 8, 87 25 71 95, size
}

on *:dialog:joinpart:init:*: {
  loadbuf -o $dname 2 kanaljoin.txt
  loadbuf -o $dname 8 kanalpart.txt
}

on *:dialog:joinpart:sclick:4: {
  var %e = $did(3) 
  if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt } 
  else { $iif($read(kanaljoin.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanaljoin.txt %e) | did -a $dname 2 %e | did -r $dname 3 }
}

on *:dialog:joinpart:dclick:2: {
  var %sigo $did(2).seltext 
  write -ds $+ %sigo kanaljoin.txt 
  yen1ile_
}

alias yen1ile_ { did -r joinpart 2 | loadbuf -o joinpart 2 kanaljoin.txt }

on *:dialog:joinpart:sclick:7: {
  var %e = $did(6) 
  if (!%e) { $iif($input(kanal girmediniz.,y) == $true,halt,halt) | halt } 
  else { $iif($read(kanalpart.txt,w,%e),$iif($input(Eklediğiniz kanal mevcut.,y) == $true,halt,halt),write kanalpart.txt %e) | did -a $dname 8 %e | did -r $dname 6 }
}

on *:dialog:joinpart:dclick:8: {
  var %sigo $did(8).seltext 
  write -ds $+ %sigo kanalpart.txt 
  ye2nile_
}

alias ye2nile_ { did -r joinpart 8 | loadbuf -o joinpart 8 kanalpart.txt }

on 1:connect:{
  var %d = 1 | while %d <= $lines(kanaljoin.txt) { 
    /sajoin $read(kanaljoin.txt,%d) | mode $read(kanaljoin.txt,%d) +o $me | inc %d 
  }
}
Alt+R yapıp remote eklemeyşi unutmayın


Şίмdί göгεвίlίчοгυм.
Cevapla

Etiketler
kanal join, remoteler


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Tüm Zamanlar GMT +2 Olarak Ayarlanmış. Şuanki Zaman: 05:24 PM.

Forum Yasal Uyarı
YASAL UYARI : İçerik sağlayacı paylaşım sitelerinden biri olan mavinehir forum Adresimizde 5651 Sayılı Kanun'un 8. Maddesine ve T.C.K'nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. mavinehir forum hakkında yapılacak tüm hukuksal Şikayetler, Yöneticilerimiz ile iletişime geçilmesi yada iletişim formunu doldurulması halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 1 (Bir) Hafta içerisinde mavinehir forum yönetimi olarak tarafımızdan gereken işlemler yapılacak ve size dönüş sağlanacaktır.



Powered by vBulletin® Version 3.8.4
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0 RC 1