Botun özeline !durum Yazıldığında. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

KivanC · 09 Şubat 2012, 00:16

mIRCScriptKoruma Botunun Özeline Kullanıcı Bot hakkında Bilgi almak istese
!durum olarak belirtse Botun içerisindeki Codlamalar kac satır , kac kb 'dır olduğunu öğrenmesini nasıl sağlarız..

Örnek :
!durum
Suan Botnick 55 txt'den oluşmakta
Botnick koruma.txt 325 kb 'dır

Gibi mümkünmüdür.

Narsinha · 09 Şubat 2012, 00:57

//echo -a $bytes($file(koruma.txt),k).suf

koruma.txt kb cinsinden büyüklüğünü verir.

//echo -a $lines(koruma.txt)

koruma.txt'deki satır sayısını verir.

SiLuet · 09 Şubat 2012, 11:12

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

//echo -a $bytes($file(koruma.txt),k).suf

koruma.txt kb cinsinden büyüklüğünü verir.

//echo -a $lines(koruma.txt)

koruma.txt'deki satır sayısını verir.

Ek Olarak Dosya Klasor, dll txt ini vs uzantılı dosya sayısını Almak İçin Örnek;

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

//echo 1 Bot4 $finddir($mircdir,*.*,0) Klasor4 $findfile($mircdir,*.txt,0)  Text:4  $findfile($mircdir,*.dll,0)  dll4 $findfile($mircdir,*.ini,0)  İni Uzantılı Dosyadan Oluşmaktadır.

Bot[B] 75[/B] Klasor [B]403[/B] Text: [B]53[/B] dll [B]93[/B] İni Uzantılı Dosyadan Oluşmaktadır.

Gibi Sonuçlar Alabilirsin. Verilen Örneklerden Sorununu Halletmeye Çalış Yapamazsan Yardımcı Oluruz Yine.

KivanC · 09 Şubat 2012, 11:38

<Worgen> [ • 7W12o2rge7n - v-1 2] - 6•2 Modüller 6•
<Worgen> 6•2 Worgen: 6.37 5KB ve 173 2Satır.
<Worgen> 6•2 Worgen-SERVER: 30.14 5KB ve 478 2Satır.
<Worgen> 6•2 Worgen-CHANNEL: 26.91 5KB ve 421 2Satır.
<Worgen> 6•2 Worgen-PROFILE: 13.1 5KB ve 289 2Satır.
<Worgen> 6•2 Worgen-RADIO: 6.53 5KB ve 150 2Satır.
<Worgen> 6•2 Worgen-ENJOY: 801 5B ve 20 2Satır.
<Worgen> 6•2 Worgen--------: 5.52 5KB ve 129 2Satır.
<Worgen> 6•2 Worgen-mIRCHelp: 4.1 5KB ve 92 2Satır.
<Worgen> [ • Worgen - v-1 ] - • Data Kayıtları •
<Worgen> • Küfür Data: 9.88 KB
<Worgen> • Badnick Data: 28.82 KB
<Worgen> • Chan Data: 309 B
<Worgen> -

Gibi Bir özelden !durum halinde kişileri bilgilendirebilirmiyiz

SiLuet · 09 Şubat 2012, 13:25

Örnek Olarak Botun Mirci İçindeki Txt Uzantılı Dosyaların
Boyutunu almak ve Kaç satır Olduğu Bilgisini istiyoruz Ve Bunun için Bota Özelden !durum Yazıyoruz.

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

on *:text:*!durum:?:{
  msg $nick Durum Kontrol
  var %1. 1,%2. $findfile($mircdir,*.txt,0)
  while (%1. <= %2.) {
    msg $nick 4 $Nopath($findfile($mircdir,*.txt,%1.)) Dosya Bilgisi: 4Boyut: $bytes($file($findfile($mircdir,*.txt,%1.)),k).suf 4Satır: $lines($shortfn($findfile($mircdir,*.txt,%1.))) 
    inc %1.
  }
}

Ancak Sağlıklı Olacağını Düşünmüyorum ,Çünkü Botda Dosya Çok Olursa Flood Dan düşer. Düşmese Bile Kasma Yapar.

KivanC · 09 Şubat 2012, 14:43

globals.txt kanalında Bulunan kanalları Takip Etmek isteriz ,

Icerisinde Bulunan #Sohbet Kanalı örnek verelim

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

!Durum #Sohbet

#Sohbet Kanalı Son ban : $1-
#Sohbet kanalında Son Cümle: $1-
#Sohbet Kanalında Son Giren: $1-
#Sohbet Kanalında Son Cıkıs: $1-

Bunlar gibi örnek vermek istedim Biraz Değişiklik artık iyi gelir dimi

SiLuet · 09 Şubat 2012, 16:11

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

on !*:join:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Giris 1 $nick }
on !*:part:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Part 1 $nick }
on !*:BAN:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Ban  1 $nick }
on !*:UNBAN:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) UnBan 1 $nick }
on !*:Kick:#:if $read(global.txts,w,#) { writeini $+(Kanal\,#,.ini,) Kick 1 $nick }
on !*:text:*:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Text 1 $nick : $1- }

on *:text:!durum*:#Kanal:{
  msg $nick 4 $qt($2) Durum Kontrolu Yapılıyor.
  msg $Nick 4 $qt($2) Dosya Bilgisi: $bytes($file($+(Kanal\,$2,.ini)),k).suf  $lines($+(Kanal\,$2,.ini)) Satır.
  msg $Nick 4 $qt($2) Son Giren: $readini($+(Kanal\,$2,.ini),Giris,1)
  msg $Nick 4 $qt($2) Son Çıkan: $readini($+(Kanal\,$2,.ini),part,1)
  msg $Nick 4 $qt($2) Son Ban: $readini($+(Kanal\,$2,.ini),ban,1)
  msg $Nick 4 $qt($2) Son Unban: $readini($+(Kanal\,$2,.ini),unban,1)
  msg $Nick 4 $qt($2) Son Kick: $readini($+(Kanal\,$2,.ini),Kick,1)
  msg $Nick 4 $qt($2) Son Text: $readini($+(Kanal\,$2,.ini),Text,1)
}

Gibi.

KivanC · 10 Şubat 2012, 09:50

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

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

on !*:join:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Giris 1 $nick }
on !*:part:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Part 1 $nick }
on !*:BAN:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Ban  1 $nick }
on !*:UNBAN:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) UnBan 1 $nick }
on !*:Kick:#:if $read(global.txts,w,#) { writeini $+(Kanal\,#,.ini,) Kick 1 $nick }
on !*:text:*:#:if $read(globals.txt,w,#) { writeini $+(Kanal\,#,.ini,) Text 1 $nick : $1- }

on *:text:!durum*:#Kanal:{
  msg $nick 4 $qt($2) Durum Kontrolu Yapılıyor.
  msg $Nick 4 $qt($2) Dosya Bilgisi: $bytes($file($+(Kanal\,$2,.ini)),k).suf  $lines($+(Kanal\,$2,.ini)) Satır.
  msg $Nick 4 $qt($2) Son Giren: $readini($+(Kanal\,$2,.ini),Giris,1)
  msg $Nick 4 $qt($2) Son Çıkan: $readini($+(Kanal\,$2,.ini),part,1)
  msg $Nick 4 $qt($2) Son Ban: $readini($+(Kanal\,$2,.ini),ban,1)
  msg $Nick 4 $qt($2) Son Unban: $readini($+(Kanal\,$2,.ini),unban,1)
  msg $Nick 4 $qt($2) Son Kick: $readini($+(Kanal\,$2,.ini),Kick,1)
  msg $Nick 4 $qt($2) Son Text: $readini($+(Kanal\,$2,.ini),Text,1)
}

Gibi.

Suanda Usta Herhangi Bir Klasor , Txt , Txt içerisinde Veri kayıt olmamıs.

SiLuet · 10 Şubat 2012, 10:26

Çalışmaması İçin Bir Sorun Görünmüyor Bende Şimdi denedim?

[10:18:59] <Sancak> !durum #radyo
[10:18:59] <Fenerbahçe> "#radyo" Durum Kontrolu Yapılıyor.
[10:18:59] <Fenerbahçe> "#radyo" Dosya Bilgisi: 0.18KB 10 Satır.
[10:18:59] <Fenerbahçe> "#radyo" Son Giren: Danq3Rxx
[10:18:59] <Fenerbahçe> "#radyo" Son Çıkan: doktorrr__ist
[10:18:59] <Fenerbahçe> "#radyo" Son Ban: aSLim
[10:18:59] <Fenerbahçe> "#radyo" Son Unban: Cesuryürek
[10:18:59] <Fenerbahçe> "#radyo" Son Kick:
[10:18:59] <Fenerbahçe> "#radyo" Son Text: TrApPeR : şirin_süsleniyoruumm bizim köyde dügün cumadan başlar pazar biter
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Gördüğün Gibi,veriler Kayıt edilcek Kanallar globals.txt İçerisinde Olmalı.

Kodun Ekli olduğu Kışımda Başka Kod Olmamasınada Dikkat edin belki Çakışma Yapabilir.

KivanC · 09 Şubat 2012, 16:52

<Sky-BLuE> !durum #Diyalog
<IBot> "#Diyalog" Durum Kontrolu Yapılıyor.
<IBot> "#Diyalog" Dosya Bilgisi: 0 Satır.
<IBot> "#Diyalog" Son Giren:
<IBot> "#Diyalog" Son Çıkan:
<IBot> "#Diyalog" Son Ban:
<IBot> "#Diyalog" Son Unban:
<IBot> "#Diyalog" Son Kick:
<IBot> "#Diyalog" Son Text:

Herhangi Bir Sonuc Alamadım Pardon Birde Kanalda kullanabilirmiyiz.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Nickim yazıLdığında uyarı	LanetLy	mIRC Scripting Sorunları	10	18 Nisan 2016 13:49
Botun özeline !zline, !kickban	yaLin	mIRC Scripting Sorunları	5	11 Kasım 2009 21:59
botun özeline slm yazana mesajına benden a.selam cevabı gitsin	sniper	mIRC Scripting Sorunları	13	27 Ocak 2009 17:52
botun özeline userin !banımıac yazması	cashmare	mIRC Scripting Sorunları	3	13 Nisan 2008 15:34
botun özeline gelenleri listelemek istiyorum	Techno	mIRC Scripting Sorunları	2	20 Ağustos 2007 22:43

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 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.