Add-on ve snippet(parça) kod istekleri buraya - Sayfa 24 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Derta · 13 Aralık 2015, 21:02

Tesekkür ederim Deniyorum Umarim İşime Yarar Ellerinize Saqlik Emekleriniz icin Arkadaslar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:02 -->-> Daha önceki mesaj 20:42 --

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Şöyle de yapabilirsin

Eğer sunucuya girişte karantina vb. bir kanal varsa

ALT + R (Remote) bölümüne eklemen gereken kod.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on x:join:#karantina:os raw svsnick $nick Nick $+ $r(111,9999) :0

x leveline nick ekleyebilirsin, wildcard kullanabilirsin.

Bad Nick Ekleme:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

/auser x Feragat!*@*
/auser x *evli*!*@*
/auser x deneme*!*@*

Bad Nick Silme:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

/ruser x Feragat!*@*
/ruser x Nick!*@*

auser komutunu kullanırken kalıp, Nick!Ident@IP kalıbı ile eklenir.

Örnek:
Feragat!*@* Nick Feragat olsun, ident herhangi birşey olabilir, IP herhangi birşey olabilir.

Feragat!mIRC@* Nick Feragat olsun, Ident mIRC olsun, IP önemsiz.

Senin işine neresi yararsa onu kullan. Sadece Nick ekle yani.

Bu seni nelerden kurtarır ?
1- Döngüden
2- Dosya okuma ve yazma işleminden.

auser komutuyla eklediğin nickler mIRC içinde Script Editörünün Users (Kullanıcılar) sekmesindedir. Oradan da manuel ekleme silme düzenleme yapabilirsin.

Örnek Görüntü:

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

Ayrıntılı Bilgi ve Örnekler için Link: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bad.txt nin yerine users.ini yapsak bi sorun yatarirmi ? ki acaba bende onda eklide bad nickler txt dosyasi olarak var yani yeni metin belgesi olaraktan tşkler 2 nizede arkadaslar bu arada

ASiHeLL · 14 Aralık 2015, 01:07

KuL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kim ne sebepden ban atmis olayin bakmak icin, her atilan bani kayit etmen gerekiyor.

Bunun icin XcLusive daha önce bir Kod yazmisti, o Kodun alt kismini diledigin sekilde degistirip bunu elde edebilirsin.

Oda böyle gözükür:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias xline.data return $shortfn($+($mircdir,xline.data))
on *:snotice:*:{
  if (*Z:line added* iswm $1-) {
    if ($2 == Global) { write xline.data $6 $+ $chr(183) $+ $15 $+ $chr(183) $+ $left($25-,-1) $+ $chr(183) $+ $date $time }
    else { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  }
  if (*K:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*G:Line added for* iswm $1-) { write xline.data $5 $+ $chr(183) $+ $14 $+ $chr(183) $+ $left($24-,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent Global Z:line* iswm $1-) { write xline.data $7 $+ $chr(183) $+ $remove($16,:) $+ $chr(183) $+ $left($17,-1) $date $time }
  if (*Permanent Z:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent G:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*Permanent K:Line* iswm $1-) { write xline.data $6 $+ $chr(183) $+ $remove($15,:) $+ $chr(183) $+ $left($16,-1) $+ $chr(183) $+ $date $time }
  if (*removed Global Z:line* iswm $1-) { if ($read($xline.data,w,$+(*,$5,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed K:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) {  write $+(-dl,$readn) $xline.data  } }
  if (*removed Z:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if (*removed G:Line* iswm $1-) { if ($read($xline.data,w,$+(*,$4,*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Global Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($5,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring K:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring G:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
  if *Expiring Z:Line* iswm $1-) { if ($read($xline.data,w,$+($remove($4,$chr(40),$chr(41)),*))) { write $+(-dl,$readn) $xline.data  } }
}
on *:input:#KANAL:{
  if $1 == !banac && $2 {
    if $read($xline.data,w,$+(*,$2,*)) { var %xline.data $read($xline.data,$readn) | set -u30 %banliip $2 }
    if (!%xline.data) { msg # $qt($2) ipi icin herhangi bir Kayit bulunamadi! | halt }
    else { 
      msg # $qt($2) Hakkinda Ban Raporu:
      msg # -
      msg # IP Adresi: $gettok(%xline.data,1,183)
      msg # Banlayan: $gettok(%xline.data,2,183)
      msg # Sebep ve Tarih: $gettok(%xline.data,3,183) $gettok(%xline.data,4,183)
      msg # -
      msg # Bani acmak istiyorsaniz !ac yazmaniz yeterli.
    }
  }
  if $1 == !ac {
    .gline $+(-*@,%banliip)
    .gzline $+(-*@,%banliip)
    .zline $+(-*@,%banliip)
    .kline $+(-*@,%banliip)
    .shun $+(-*@,%banliip)
    msg # %banliip üzerinde bütün Banlar kaldirilmistir.
  }
}

!ac Komutunu anladimda, !acma ne icin gerekli onu anlamadim.

Calisma sekli söyle, Üstde kalin sekilde yazan Kanal yerine calismasini istedigin kanali yaziyorsun.

Sonra o Kanala !banac IP diyorsun.

Ban varsa sana raporu gösteriyor, yoksada bir sonuc bulunamadi yaziyor.

Rapor cikiyorsa eger verilen IP Adresi 30 Saniyeligine hafizaya aliniyor. Ve sen kanala !ac dediginde o IP üzerindeki Banlari aciyor.

30 saniye sonra gectikden sonra !ac dersen islem yapmaz.

Banin acilmasini istemiyorsan, hic birsey yapman gerekmiyor

--

Sahsi fikrim böyle birseyi yapicaksan, kanalda hep duran bir botun icine eklemeni tavsiye ederim. Yoksa sen online oldugun sürece kayit tutar. Sen ciktikdan sonra atilmis olan banlari kayit edemez.

Bu yüzden INPUT Eventini TEXT olarak degistirip, basit bir botun icine ekleyip tüm banlari kontrol edebilirsin.

######################################

Global mesaj notice olarak algilaniyordu sanirim.

Bu sekilde deniyebilirsin.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:NOTICE:*:*:{ 
  if ($nick == Global) {
    window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
    aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $1-
    halt
  }
}

Global Mesaj gelince, hangi Nickden geliyor sana bilmiyorum. Genelde GLOBAL MESAJ seklinde geldigi icin üstde $nick Kismina Global yazdim.

Eger baska Nickde geliyorsa orayi degisebilirsin.

Ya ben tüm global kanaldaki banlanan bad nickleri banlanan userlerin banını açmak için alias yada remote istiyordum ama bi türlü cevabınızı alıntı yapamadım yardımcı olurmusunuz lütfen

KuL · 14 Aralık 2015, 11:17

ASiHeLL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ya ben tüm global kanaldaki banlanan bad nickleri banlanan userlerin banını açmak için alias yada remote istiyordum ama bi türlü cevabınızı alıntı yapamadım yardımcı olurmusunuz lütfen

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

daha önce ban actirma gibi bircok Konunun acildigini biliyorum. Rica ediyorum, bir dahakine önce Aramayi kullanalim.

Acilan banlar genelde alt alta aciliyor, ama cogu Kisi bundan rahatsiz oldugu icin Yan Yana acilmasi Tercih edilir.

Bunun icinde Hazir Kodlarda Feragat Hoca söyle bir Konu paylasmisti, Detayli Bilgi almak istersen.

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

Ordaki banlari yan yana acma Kodunu alirsak ve ek olarak bide bulundugun Kanalari ögrenmek icin $comchan ile bir Döngü yaparsak sonuc olarak söyle bir Alias cikabilir.

ALIAS:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

F1 { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { xban $comchan($me,%1) | inc %1 } }

xban mode $$1 b | $+(.timer,$1) -m 0 50 znx $1
znx {
  mode $1 $+(-,$str(b,12)) $regsubex($str(.,12),/./g, $ibl( [ $1 ] ,\n) $chr(32)) 
  if ($ibl($1,0) = 0) $+(.timer,$1) off 
}

Bunu ALT+D yapip acilan Alias kismina ekliyorsun, ama F1 bos olmasi gerek. Olmaz ise baska bir Tus da secebilirsin.

;#####################################

Eger kendin bir kanala Yazi yazarak kullanicaksan (Remote). Onuda böyle yapabilirsin

REMOTE:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*:{ if ($1 == !bansil)  { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { xban $comchan($me,%1) | inc %1 } }

alias xban mode $$1 b | $+(.timer,$1) -m 0 50 znx $1
alias znx {
  mode $1 $+(-,$str(b,12)) $regsubex($str(.,12),/./g, $ibl( [ $1 ] ,\n) $chr(32)) 
  if ($ibl($1,0) = 0) $+(.timer,$1) off 
}

Bunuda (ALT+R) Remote Kismina ekliyebilirsin, herhangi bulundugun bir Kanala !bansil yazdiginda tüm banlari acar.

ASiHeLL · 14 Aralık 2015, 20:07

KuL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

daha önce ban actirma gibi bircok Konunun acildigini biliyorum. Rica ediyorum, bir dahakine önce Aramayi kullanalim.

Acilan banlar genelde alt alta aciliyor, ama cogu Kisi bundan rahatsiz oldugu icin Yan Yana acilmasi Tercih edilir.

Bunun icinde Hazir Kodlarda Feragat Hoca söyle bir Konu paylasmisti, Detayli Bilgi almak istersen.

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

Ordaki banlari yan yana acma Kodunu alirsak ve ek olarak bide bulundugun Kanalari ögrenmek icin $comchan ile bir Döngü yaparsak sonuc olarak söyle bir Alias cikabilir.

ALIAS:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

F1 { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { xban $comchan($me,%1) | inc %1 } }

xban mode $$1 b | $+(.timer,$1) -m 0 50 znx $1
znx {
  mode $1 $+(-,$str(b,12)) $regsubex($str(.,12),/./g, $ibl( [ $1 ] ,\n) $chr(32)) 
  if ($ibl($1,0) = 0) $+(.timer,$1) off 
}

Bunu ALT+D yapip acilan Alias kismina ekliyorsun, ama F1 bos olmasi gerek. Olmaz ise baska bir Tus da secebilirsin.

;#####################################

Eger kendin bir kanala Yazi yazarak kullanicaksan (Remote). Onuda böyle yapabilirsin

REMOTE:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:*:{ if ($1 == !bansil)  { var %1 = 1,%2 = $comchan($me,0) | while %1 <= %2 { xban $comchan($me,%1) | inc %1 } }

alias xban mode $$1 b | $+(.timer,$1) -m 0 50 znx $1
alias znx {
  mode $1 $+(-,$str(b,12)) $regsubex($str(.,12),/./g, $ibl( [ $1 ] ,\n) $chr(32)) 
  if ($ibl($1,0) = 0) $+(.timer,$1) off 
}

Bunuda (ALT+R) Remote Kismina ekliyebilirsin, herhangi bulundugun bir Kanala !bansil yazdiginda tüm banlari acar.

bir daha ki sefere daha dikatli olacam ilginiz için teşekkür ederim
elelrnize emeğinize sağlık

mikropp · 15 Aralık 2015, 10:29

SeLam biri Seslendiginde Msn gibi yanda kutu cıksın Bunu nasıl yapabılırız =

fooxx · 15 Aralık 2015, 16:00

mrb kolay gelsin ben bir oyun gibi bisey isticem eger elinizden gelirse.ornegin benim nickim fooxx !vur yasin yazdigimda rastgele fooxx yasin i vurmak icin ates etti ama vuramadi. fooxx yasini oldurdu fooxx.fooxx yasini olduremedi ama yasin onu oldurdu gibi rastgele yazdirmak istiyorum bottan. fakat bunlari rastgele nasil yazdirbilirim ve bu nickleri o rastgele yazilarin icine nasil koyabilirim?

YouMyCure · 15 Aralık 2015, 17:20

fooxx Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

mrb kolay gelsin ben bir oyun gibi bisey isticem eger elinizden gelirse.ornegin benim nickim fooxx !vur yasin yazdigimda rastgele fooxx yasin i vurmak icin ates etti ama vuramadi. fooxx yasini oldurdu fooxx.fooxx yasini olduremedi ama yasin onu oldurdu gibi rastgele yazdirmak istiyorum bottan. fakat bunlari rastgele nasil yazdirbilirim ve bu nickleri o rastgele yazilarin icine nasil koyabilirim?

Buna benzer Rus Ruleti Oyunu Yapılmıştı Bakmanızda Fayda var
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

fooxx · 15 Aralık 2015, 17:49

evet gordum bunu fakat fazla karısık bende fazla anlamiyorum bana basit 2 cevabı rastgele verecek bisey verebilirsen fooxx yasini oldurdu ve fooxx yasini olduremedi gibi ben onu cogaltabilirim.eger zahmet olmazsa

YouMyCure · 15 Aralık 2015, 18:04

fooxx Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

evet gordum bunu fakat fazla karısık bende fazla anlamiyorum bana basit 2 cevabı rastgele verecek bisey verebilirsen fooxx yasini oldurdu ve fooxx yasini olduremedi gibi ben onu cogaltabilirim.eger zahmet olmazsa

ilk önce mirc ana dizinine bir txt oluşturmalısın.
txt içerisine eklenecek örnek metin şu şekilde olmalı;

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


$nick nicki $2 nickini vurmak istedi ancak ıskaladı.
$nick nicki $2 nickine deadshot yaparak terlikle kafasından vurdu $2 nin kafası kanıyor

yani buradaki $nick !vur komutunu kullanan kişi
$2 ise !vur Nick Yazdığınızda nick değerindeki kişidir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

  on *:text:*:#: {
  if $regex($1,/^([!.]vur)/Si) {
    if !$2 { msg $chan Hatalı Kullanım "Lutfen Nick Belirtiniz" [!.]vur YouMyCure | return }
    if $3- { msg $chan Hatalı Kullanım "Lutfen Sadece Bir Adet Nick Belirtiniz." | retrun }
    if ($2 == $me) || ($2 == $nick) { msg $chan Hatalı Kullanım Beni veya Kendiniz Vuramazsınız. | return }
    $iif($2 ison $chan,msg $chan $read(dosyaismi.txt),msg $chan $2 Kişisi Kanalda Bulunmuyor...)
  }
}

kırmızı renkli yeri oluşturduğunuz txt ye göre değiştiriniz.
$read(dosyaismi.txt) komutu dosyaismi.txt den rastgele bir satır seçer

fooxx · 15 Aralık 2015, 18:16

üstadim cok tesekkür ederim

Konuyu Toplam 2 Üye okuyor. (0 Kayıtlı üye ve 2 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.