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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :) (https://www.ircforumlari.net/mirc-scripting-sorunlari/32958-txt-dosyasindan-yaziyi-kanal-yansitmak-ama-karisik-sanirim-biraz.html)

SmartQ 22 Haziran 2007 02:53
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> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> --Toplam 4 Adet Başvuru Listesi Mevcut--
<SmartQ> !msnkonuoku [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
<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> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
<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> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
<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\[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]@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.

KiLL 22 Haziran 2007 03:51
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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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

SmartQ 22 Haziran 2007 04:50
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)
 
tam olarak anlatamadım sanırım :) 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> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]--
<DenemeBot> --Toplam 4 Adet Başvuru Listesi Mevcut--

daha sonra bunlardan birinin i&#231;indeki yazıları;
!msnoku [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ş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> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
<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> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
<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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] yazdığımda read dosyasının i&#231;indeki [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] dosyasını bulsun ve kanala yansıtsın

SaW 22 Haziran 2007 06:37
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;)
inc %&#180;
}
}

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

SmartQ 23 Haziran 2007 02:27
Yanıt: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)
 
:confused:
Alıntı:
Nebiliymben Nickli Üyeden Alıntı (Mesaj 224893)
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 [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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ı :confused:

SaW 23 Haziran 2007 02:49
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.

SaW 23 Haziran 2007 02:52
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 :) herneyse sen boşluksuz yapacaksın onu.

diEfoRyoU 23 Haziran 2007 02:56
Cevap: Txt Dosyasından Yazıyı Kanal Yansıtmak Ama Karışık Sanırım Biraz :)
 
Kod:
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.

SmartQ 23 Haziran 2007 04:43
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ı :D

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;)
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 :)


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 01:48.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net