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

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - Add-on ve snippet(parça) kod istekleri buraya (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/523479-add-ve-snippetparca-kod-istekleri-buraya.html)

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Tesekkür ederim Deniyorum Umarim İşime Yarar Ellerinize Saqlik Emekleriniz icin Arkadaslar :)

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

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041709169)

Şöyle de yapabilirsin

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

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

Kod:

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

x leveline nick ekleyebilirsin, wildcard kullanabilirsin.

Bad Nick Ekleme:

Kod:

/auser x Feragat!*@*

/auser x *evli*!*@*

/auser x deneme*!*@*

Bad Nick Silme:

Kod:

/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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

KuL Nickli Üyeden Alıntı (Mesaj 1041708434)

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:

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:

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

ASiHeLL Nickli Üyeden Alıntı (Mesaj 1041709539)

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:

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:

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.

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

KuL Nickli Üyeden Alıntı (Mesaj 1041709635)

Kod:

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 

}

Kod:

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

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?

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

fooxx Nickli Üyeden Alıntı (Mesaj 1041710069)

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

Alıntı:

fooxx Nickli Üyeden Alıntı (Mesaj 1041710089)

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

PHP- Kodu:

   $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:

  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

Cevap: Add-on ve snippet(parça) kod istekleri buraya

üstadim cok tesekkür ederim