mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası   Reklam Alanı


  mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası MF - mIRC Scripting Hazır Kodlar

Gevezeyiz Sohbet

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Stil
Alt 30 Kasım 2018, 17:34   #1
Che
 
Che - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 554
WEB Sitesi: www.ircproxy.net
IRC Sunucusu: irc.Gevezeyiz.NET
İlgi Alanı: mIRC Scripting
Kan Grubu: 0 RH (-)
Alınan Beğeni: 87
Post Girişte version Yasaklama

Kod:
menu * {
$iif(o isin $usermode,Version Koruması,$style(2) Version Koruması)
.Aç:.enable #versionkoruma
.Kapat:.disable #versionkoruma
.Diyalog:.yasakv
}


alias versionekle {
if $hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten var. | return }
hadd -m mnick $calc($hget(yasakli,0).item + $r(999,000)) $1-
hsave yasakli yasakli.aln
hload yasakli yasakli.aln
echo -a Yasak version $qt($1-) eklendi.
}

alias versionsil {
if !$hfind(yasakli,$1-,1,W).data { echo -a Bu version zaten yok. | return }
hdel $hfind(yasakli,$1-,1,W).data
hsave yasakli yasakli.aln
hload yasakli yasakli.aln
echo -a Yasak version $qt($1-) silindi..
}

on *:start: {
hmake yasakli 1000
hload yasakli yasakli.aln
} 



alias yasakliadd { 
  hadd -m yasakli $calc($hget(yasakli,0).item + $r(999,000)) $1-
  hsave yasakli yasakli.aln
  hload yasakli yasakli.aln
}

alias yasakv { dialog -m yasakvers yasakvers }
dialog yasakvers {
  title "Version Koruması"
  size -1 -1 292 210
  option pixels
  edit "", 2, 167 21 98 23, multi return
  button "Ekle", 3, 187 57 60 17, flat
  button "Sil", 4, 187 83 60 17, flat
  button "Tamam", 5, 186 112 60 17, flat ok
  list 1, 11 18 150 183, size
  icon 6, 187 140 32 32
  box "", 7, 5 6 274 202
}

on *:dialog:yasakvers:sclick:*: {
  if ($did = 4) {
    .hdel yasakli $hfind(yasakli,$did($dname,1).seltext,1,W).data 
    hsave yasakli yasakli.aln
    hload yasakli yasakli.aln
    vbdi $dname
  }
  if ($did = 3) { yasakliadd $did($dname,2) | vbdi $dname  }
}

alias vbdi dialog -x $1 $1 | dialog -m $1 $1
on *:dialog:yasakvers:init:0: {
  var %x = 1 
  while (%x <= $hget(yasakli,0).item) { 
    did -ac yasakvers 1 $hget(yasakli,%x).data 
    inc %x 
  }
}

#versionkoruma off
on 1:CTCPREPLY:*VERSION*: { 
if o isin $usermode {
  if $hfind(yasakli,$1-,1,W).data { gzline $nick : Yasak version girişi tespit edildi. | return }
}
}
#versionkoruma end





 Che isimli Üye şuanda  online konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
girişte, mirc, mirc hazır kod, version, yasaklama

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 +3 Olarak Ayarlanmış. Şuanki Zaman: 23:35.


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2016 mIRCForum.Com | Tüm Hakları Saklıdır.