Girişte version Yasaklama ?
 

menu status,menubar,channel {
.-
.Version Yansıtma Koruması
..Açık:.enable #VersionYansıtma | .echo -a 2 Version Yansıtma Koruması 4 Aktif.
..Kapalı:.disable #VersionYansıtma | .echo -a 2 Version Yansıtma Koruması 4 Deaktif.
.-
}
#VersionYansıtma off
on *:snotice:*Client connecting*: {
.ctcp $9 VERSION
.ctcp $9 FINGER
}

on 1:CTCPREPLY:*FINGER*: {
msg #Security 4Sorgu: 1  $nick 4FINGER: 1 $1-
}

on 1:CTCPREPLY:*VERSION*: {
msg #Security 4Sorgu: 1  $nick 4VERSION: 1 $strip($1-)
}

on 1:snotice:*Notice Yasak*: {
if VERSION isin $1- || FINGER isin $1- {
msg #Security 4VERSION 1/ 4FINGER:1  $2 $strip($remove($8-,[,],Notice,Yasaklanmistir))
}
}
#VersionYansıtma end


Kod Sahibi : The

Öncelikle The Arkadaşımıza Teşekkkür ederim. Benim sormak istediğim ben bi hash dosyası oluşturmak ve belirdiğim version sonucu çıkanı yasaklamak istiyorum. Bunu bu koda göre nasıl uygulayabilirim ? Yardımcı olursanız sevinirim.

Cevap: Girişte version Yasaklama ?
 

O kodun yazarı The değil, benim. Başka bir forumda yayınladım, üzerine konmuş :) Aşağıdaki ekran görüntüsündeki tarihe dikkati çekerim, yöneticisi olduğum yerde yayınladım onu ben..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]





Soruna gelince, kendi mircinde mi kullanıcaksın yoksa botta mı onu belirtirsen ona göre yazarım.

Cevap: Girişte version Yasaklama ?
 

kendi mircimde . öncelikle özür dilerim böyle bi paylaşım olmuşta burda ordan belirttim.

Cevap: Girişte version Yasaklama ?
 

Alıntı:

Xadd1 Nickli Üyeden Alıntı (Mesaj 1042004701) kendi mircimde . öncelikle özür dilerim böyle bi paylaşım olmuşta burda ordan belirttim.

Senlik bişey yok kardeşim ortalık çakma coder dolu. Aşağıdaki şekilde remote kısmına eklersen kullanabilirsin;

PHP- Kodu:

---


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 yasak.aln
hload yasakli yasak.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 yasak.aln
hload yasakli yasak.aln
echo -a Yasak version $qt($1-) silindi..
}

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

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


---

Denemedim anlık yazdım ama çalışması gerek, sorun olursa yazarsın..

Kullanımı:

Eklemek için: /versionekle VERSION
Silmek için: /versionsil VERSION

Cevap: Girişte version Yasaklama ?
 

Çok teşekkür ederim.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:15 -->-> Daha önceki mesaj 14:13 --

Bu koda ekle sil aç kapa olayı yapabilirmiyiz

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 14:18 -->-> Daha önceki mesaj 14:15 --

Yani ekran gelicek dialog şeklinde ben ordan eklicem tamam dicem gibi. sil butonu olucak kapat butonu olucak gibi

Cevap: Girişte version Yasaklama ?
 

Alıntı:

Xadd1 Nickli Üyeden Alıntı (Mesaj 1042004707) Çok teşekkür ederim. Bu koda ekle sil aç kapa olayı yapabilirmiyiz

PHP- Kodu:

---


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

#versionkoruma off
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 yasak.aln
hload yasakli yasak.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 yasak.aln
hload yasakli yasak.aln
echo -a Yasak version $qt($1-) silindi..
}

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

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


---

Bu şekilde olur. Menüyü kullanmak için oper olman gerek. Son kısımdaki "on *:start" kısmını bilerek dışarıda bıraktım, mirc açıldığında tabloyu yüklemesi gerek ki açtığında işlevsel olsun.

Cevap: Girişte version Yasaklama ?
 

tamam teşekkür ederim ilgin alakandan dolayı.

Cevap: Girişte version Yasaklama ?
 

Menüden kastın diyalog penceresiyse (ki öyleymiş) ona biraz daha vakit lazım, akşama doğru müsait olursam onu da eklerim.

Cevap: Girişte version Yasaklama ?
 

çok iyi olur ya sağolasın

Cevap: Girişte version Yasaklama ?
 

Yaptık bir iş tam olsun, diyalog pencereli haliyle kodun tamamı, bazı düzenlemeler de yaptım.

PHP- Kodu:

---

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 


---