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.

Cevapla
 
LinkBack Seçenekler
  #1  
Alt 26 Ocak 2014, 19:43
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 Diyalog oto join oto part kodu

Evet arkadaşlar yine mereba diyalog oto join oto part ne işe yarar anlatim
sunucuya bağlandığınız zaman bir çok gereksiz kanallara yönlendiriliyorsunuz bu kanallardan oto çıkmanızı sağlıyacak bir diyalogdur.
bide girmek istediğiniz kanala oto girdiriyor güle güle kullanın.


Kod:
on *:start:hmake joins | hmake parts | if !$file(j.s) { write -c j.s } | hload joins j.s | if !$file(p.s) { write -c p.s } | hload parts p.s
alias otojp if !$dialog(otojp) { dialog -m otojp otojp } | else { dialog -x otojp }
dialog otojp {
  title "Join KanaL ve Oto Part PaneLi"
  size -1 -1 406 282
  option pixels notheme
  edit "Edit", 1, 20 14 99 20
  list 2, 20 37 98 200
  button "EKLE", 3, 122 38 65 25
  button "SiL", 4, 123 73 65 25
  edit "Edit", 5, 209 13 100 20
  list 6, 208 36 100 205
  button "EKLE", 7, 319 38 65 25
  button "SiL", 8, 320 72 65 25
  text "         Auto Join ve Yasakli KanaLLaR", 9, 14 248 199 17
  button "Kapat", 10, 320 244 65 25, ok cancel
}
on *:dialog:otojp:*:*:{
  if $devent == init { did -ra $dname 1,5 #Kanal Yaz. |  y $dname p | y $dname j }
  if $devent == dclick {
    if $did == 2 { hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j }
    if $did == 6 { hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p }
  }
  if $devent == sclick {
    if $did == 4 { if !$did($dname,2).seltext { uyari kanal seçiniz listeden. | return } | hdel -m joins $did($dname,2).seltext | hsave joins j.s | .y $dname j }
    if $did == 8 { if !$did($dname,6).seltext { uyari kanal seçiniz listeden. | return } | hdel -m parts $did($dname,6).seltext | hsave parts p.s | .y $dname p }
    if $did == 3 { 
      if !$did($dname,1) { uyari $me Lütfen #Kanal Yazin. | return }  | if $chr(35) !isin $did($dname,1) { uyari $me Lütfen #Kanal yazin.  | return }
      hadd -m joins $did($dname,1) bastard | hsave joins j.s | .y $dname j
    }
    if $did == 7 { 
      if !$did($dname,5) { uyari $me Lütfen #Kanal Yazin. | return } | if $chr(35) !isin $did($dname,5) { uyari $me Lütfen #Kanal yazin. | return }
      hadd -m parts $did($dname,5) bastard | hsave parts p.s | .y $dname p
    }
  }
}
alias y {
  if $2 == j { did -r $1 2 | var %s 1, %f $hget(joins,0).item |  while %s <= %f { did -a $1 2 $hget(joins,%s).item | inc %s } }
  if $2 == p { did -r $1 6 | var %z 1, %w $hget(parts,0).item | while %z <= %w { did -a $1 6 $hget(parts,%z).item | inc %z } }
}
alias uyari {
  noop $input($str(_,30) $+ $crlf $+ $crlf $+ $1- $+ $crlf $+ $str(_,30),bwaok,Script Uyari!)
}
on *:connect:{
  var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | ./timergoemon 1 20 close -m | inc %s }
  var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x }
}

on me:*:join:#:{
  var %s 1, %f $hget(joins,0).item | while %s <= %f { .join $hget(joins,%s).item | inc %s }
  var %x 1, %w $hget(parts,0).item | while %x <= %w { .part $hget(parts,%x).item | inc %x }
}
Not:Kod IrCbaStarD a aittir.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
diyalog, join, kodu, oto, 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
Oto Kanallardan Oto Part uFuK Snippets - Parça kodlar 2 23 Eylül 2016 11:59
Channel JOIN-THROTTLE Protect Mudin Snippets - Parça kodlar 6 14 Haziran 2012 18:13
Join Flood breakwolf Help - Yardım 7 10 Aralık 2011 21:52
Join Me! SeRDaR406 Programs - Programlar 0 21 Temmuz 2009 01:44
ON Join L4roXyL mIRC events - Olaylar 0 14 Temmuz 2009 10:16


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