IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 22 Haziran 2007, 02:53   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




merhaba;

#opers kanalında !msnoku dediğimizde msnye ait botun otomatik kaydettiği txt dosya isimlerinin ve içindekilerin kanala yansımasını istiyorum mesela
<SmartQ> !msnbasvuru
<DenemeBot> --Msn Başvuru Listesi--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot> --Toplam 4 Adet Başvuru Listesi Mevcut--
<SmartQ> !msnkonuoku
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (msndeki görünüş)
<DenemeBot> Yardim Konularini Gorebilmek Icin Lutfen !yardım komutunu Kullanin
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

<DenemeBot> !yardım
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
<DenemeBot> Gline Açtırmak İçin !gline @ipno şeklinde yazınız
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

<DenemeBot> !gline @85.207.27.78
<DenemeBot> Talebiniz Alınmıştır. İyi Günler

ve txt dosyasında altlarda olduğu için !gline komutunu bulmak istiyorum fakat bu komutu yazdığımda
//msg $chan $read(\read\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
@hotmail.com.txt,w, *!gline*)
<DenemeBot> "Gline Açtırmak İçin !gline @ipno şeklinde yazınız"
yine bu çıkıyor. benim istediğim onun yazdığı her "!" başlayanı kanalda görmek istiyorum bir türlü olmuyor yardımcı olursanız sevinirim. biraz karışık gibi geldi bana ama eminim ki sizler için çok basittir.şimdiden teşekkür ederim.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 22 Haziran 2007, 03:51   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




1. Sorunun cevabı ;

on *:text:*:#opers:{
if $1 == !msnbasvuru { /play #opers
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
0 }
}

2. Sorunun cevabı ;

on *:text:*:#opers:{
if $1 == !gline {
/msg $chan $read(
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.txt,w,*gline* $+ * }
}
}

denemedim ama calısması lazım

 
Alıntı ile Cevapla

Alt 22 Haziran 2007, 04:50   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




tam olarak anlatamadım sanırım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
verdiklerinde faydalı oldu bana ama benim istediğim mirc dizini i&#231;inde read dosyası i&#231;inde bulunan 4 tane msn adresini kanala listelemesini istiyorum &#246;rnek
SmartQ> !msnbasvuru
<DenemeBot> --Msn Başvuru Listesi--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
--
<DenemeBot> --Toplam 4 Adet Başvuru Listesi Mevcut--

daha sonra bunlardan birinin i&#231;indeki yazıları;
!msnoku
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
şeklinde okutmak kanala yansıtmak yani

<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] (msndeki g&#246;r&#252;n&#252;ş)
<DenemeBot> Yardim Konularini Gorebilmek Icin Lutfen !yardım komutunu Kullanin
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

<DenemeBot> !yardım
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
<DenemeBot> Gline A&#231;tırmak İ&#231;in !gline @ipno şeklinde yazınız
<DenemeBot>
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

<DenemeBot> !gline @85.207.27.78
<DenemeBot> Talebiniz Alınmıştır. İyi G&#252;nler

dosyayı ben aramayayım yani $findfile() komutuyla bulmak istiyorum
!msnoku
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
yazdığımda read dosyasının i&#231;indeki
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
dosyasını bulsun ve kanala yansıtsın

 
Alıntı ile Cevapla

Alt 22 Haziran 2007, 06:37   #4
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




on *:text:!msnbasvuru:#opers: {
.msg $chan --Msn Başvuru Listesi--
var &#37;r = $findfile($mircdir\read,*hotmail?com.txt,0), %s = 1
while %s <= %r {
.msg $chan $findfile($mircdir\read,*hotmail?com.txt,%s)
inc %s
}
.msg $chan Toplam %r adet dosya bulundu..
}


İlk kısmı bu şekilde halledebilirsin. İkinci kısımda bir &#231;ok şey istemişsin, o dosyada neler yazılı olduğunu bilmeden birşey s&#246;ylemek zor, &#231;&#252;nk&#252; ne anlatmak istediğini anlamadım, hem bot yardım almak yardım yazın diyor hem kendisi yazıyor! Gline a&#231;tırmak i&#231;in... yazın diyor, yine senin oraya eklediğin g&#246;r&#252;nt&#252;de kendisi diyor! yani biraz karışık olmuş, ama nasıl başlayacağın konusunda bir fikir olsun diye:


on *:text:!msnoku *:#opers {
if ($read(read\$2) == $null) { .msg $chan dosya adını yanlış yazdınız ya da &#246;yle bir dosya kayıtlı değil, mevcut dosyaları g&#246;rmek i&#231;in: !msnbasvuru yazınız. | halt }
var %~ = $lines(read\$2), %&#180; = 1
while %&#180; <= %~ {
.msg $chan $read(read\$2,%&#180
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

inc %&#180;
}
}


Genel mantığı budur. Tam olarak nasıl istiyosan ona g&#246;re geliştirebilirsin.


 
Alıntı ile Cevapla

Alt 23 Haziran 2007, 02:27   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)





Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Nebiliymben Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:text:!msnbasvuru:#opers: {
.msg $chan --Msn Başvuru Listesi--
var %r = $findfile($mircdir\read,*hotmail?com.txt,0), %s = 1
while %s <= %r {
.msg $chan $findfile($mircdir\read,*hotmail?com.txt,%s)
inc %s
}
.msg $chan Toplam %r adet dosya bulundu..
}

İlk kısmı bu şekilde halledebilirsin. İkinci kısımda bir çok şey istemişsin, o dosyada neler yazılı olduğunu bilmeden birşey söylemek zor, çünkü ne anlatmak istediğini anlamadım, hem bot yardım almak yardım yazın diyor hem kendisi yazıyor! Gline açtırmak için... yazın diyor, yine senin oraya eklediğin görüntüde kendisi diyor! yani biraz karışık olmuş, ama nasıl başlayacağın konusunda bir fikir olsun diye:

on *:text:!msnoku *:#opers {
if ($read(read\$2) == $null) { .msg $chan dosya adını yanlış yazdınız ya da öyle bir dosya kayıtlı değil, mevcut dosyaları görmek için: !msnbasvuru yazınız. | halt }
var %~ = $lines(read\$2), %´ = 1
while %´ <= %~ {
.msg $chan $read(read\$2,%´)
inc %´
}
}

Genel mantığı budur. Tam olarak nasıl istiyosan ona göre geliştirebilirsin.

ilk yazdığın kod çalışıyor

[ 01:57 ] <DenemeBot> --Msn Başvuru Listesi--
[ 01:57 ] <DenemeBot> D:\scriptdizini\msn\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.txt
[ 01:57 ] <DenemeBot> D:\scriptdizini\msn\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.txt
[ 01:57 ] <DenemeBot> D:\scriptdizini\msn\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.txt
[ 01:57 ] <DenemeBot> D:\scriptdizini\msn\
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.txt
[ 01:57 ] <DenemeBot> Toplam 4 adet dosya bulundu..

fakat ikinci yazdığın kodda sorun war
[ 01:57 ] <SmartQ>!msnoku
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
dediğim zaman
[ 01:58 ] <DenemeBot> dosya adını yanlış yazdınız ya da öyle bir dosya kayıtlı değil, mevcut dosyaları görmek için: !msnbasvuru yazınız. diyor
ben dosyanın içindekileri kanala yansıtmasını istiyorum. çokmu karışık bişe benim kafam pek almadı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 
Alıntı ile Cevapla

Alt 23 Haziran 2007, 02:49   #6
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




Ben onu örnek olsun diye yazmıştım zaten, ama bir kaç ufak değişiklikkle çalışır hale geldi, denedim ben..

on *:text:!msnbasvuru:#opers: {
.msg $chan --Msn Başvuru Listesi--
var %r = $findfile($mircdir\read,*hotmail?com.txt,0), %s = 1
while %s <= %r {
.msg $chan $gettok($findfile($mircdir\read,*hotmail?com.txt,% s),4,92)
inc %s
}
.msg $chan Toplam %r adet dosya bulundu..
}


on *:text:!msnoku*:#opers: {
var %k = $+(read,\,$2)
if ($read(%k) == $null) { .msg $chan dosya adını yanlış yazdınız ya da öyle bir dosya kayıtlı değil, mevcut dosyaları görmek için: !msnbasvuru yazınız. | halt }
var %~ = $lines(%k), %´ = 1
while %´ <= %~ {
.msg $chan $read(%k,%´)
inc %´
}
}

Bir de böyle dene ikisini de değiştirdim biraz.



 
Alıntı ile Cevapla

Alt 23 Haziran 2007, 02:52   #7
Çevrimdışı
SaW
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




.msg $chan $gettok($findfile($mircdir\read,*hotmail?com.txt,& #37; s),4,92)

Bu satırda sanki en sonda % ile s arasında boşluk var gibi ama editle d&#252;zeltmeye &#231;alıştığımda boşluksuz g&#246;z&#252;k&#252;yor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
herneyse sen boşluksuz yapacaksın onu.


 
Alıntı ile Cevapla

Alt 23 Haziran 2007, 02:56   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:!msnoku &:#opers: { if !$exists($mircdir/msn/ $+ $2) { msg # b&#246;yle bir dosya yok | return } | play -m1 #opers $shortfn($mircdir/msn/ $+ $2) 250 }

scriptteki msn dosyasında bulunan dosyayı kanala aktarır.
Umarım işine yarar.

__________________
TurkSohbet.NET | #XPass
 
Alıntı ile Cevapla

Alt 23 Haziran 2007, 04:43   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)




&#231;ok teşekk&#252;rler arkadaşlar &#231;alıştı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


on *:text:!msnbasvuru:#opers: {
.msg $chan --Msn Başvuru Listesi--
var &#37;r = $findfile($mircdir\read,*.txt,0), %s = 1
while %s <= %r {
.msg $chan $findfile($mircdir\read,*.txt,%s)
inc %s
}
.msg $chan Toplam %r adet dosya bulundu..
}

on *:text:!msnoku*:#opers: {
var %k = $+(read,\,$2)
if ($read(%k) == $null) { .msg $chan dosya adını yanlış yazdınız ya da &#246;yle bir dosya kayıtlı değil, mevcut dosyaları g&#246;rmek i&#231;in: !msnbasvuru yazınız. | halt }
var %~ = $lines(%k), %&#180; = 1
while %&#180; <= %~ {
.msg $chan $read(%k,%&#180
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

inc %&#180;
}
}

komut bu inşallah kısa s&#252;rede ne i&#231;in yaptığımı yayınlayacam burda anlamışsınızdır ama ben yinede yayınlayacam
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


 
Alıntı ile Cevapla

Cevapla

Etiketler
ama, biraz, dosyasindan, karisik, mirc download, mirc indir, sanirim, yansitmak, yaziyi


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

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
kanal genelinde sadece belirtilen nickin yazıyı görebilmesi benben77 mIRC Scripting Sorunları 1 26 Temmuz 2009 15:40
yazıyı Pencereye yansıtmak soul69 mIRC Scripting Sorunları 3 11 Mart 2009 13:32
kanal user sayısını webe yansıtmak (YaRDIM) SurucLu Unreal IRCd 1 30 Ocak 2008 11:27