mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Snippets - Parça kodlar

Snippets - Parça kodlar mIRC Scripting hakkında "parça /ufak kod" niteliği taşıyan kodlarını bulup veya paylaşabileceğiniz bölüm.

Like Tree1Teşekkür
  • 1 Post By Goemon
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 29 Haziran 2015, 20:26
Avatar Yok

mS Puan: 311
mS Derece: Goemon MeraklıGoemon MeraklıGoemon MeraklıGoemon Meraklı
 
Üyelik tarihi: 05 Ekim 2012
Mesajlar: 91
Konular: 70
Eklentiler: 0
Alınan Teşekkür: 5
Yapılan Teşekkür: 28
Arrow Kanal Join ve Part Kodu

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 
  }
}
Feragat buna teşekkür etti.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
join, kanal, kodu, part

Seçenekler

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


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Nick join/part mesajlarını iptal etme. Prens Help - Yardım 1 02 Mayıs 2014 21:41
Op Deop Voice Devoice Ban Notice Join Part Hakkında Bilgi kodu Goemon Snippets - Parça kodlar 0 09 Şubat 2014 09:25
Diyalog oto join oto part kodu Goemon Snippets - Parça kodlar 0 26 Ocak 2014 19:43
ConferenceRoom; Kanal droplama kodu Goemon ConferenceRoom 0 07 Ocak 2014 14:24


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76