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/)
-   -   Mümkün müdür Acaba ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/49473-mumkun-mudur-acaba.html)

¢єℓαℓ 03 Şubat 2008 17:53

Mümkün müdür Acaba ?
 
öncelikle seLam.. ßana $öyle ßir Kod Lazım. Yazı | Cevap $eklinde oluşan bir konus.txt dosyası hazırlıcam. Yazı Bölmünde kelime/kelimeler yazıldığı zaman cevap Bölmündeki kelimenin/kelimelerin yazılmasını istiyorum. Acaba Mümkün müdür ?


Merhaba ben murat | Koyayimda Tur at
Selam | A.Selam

$eklinde bir konus.txt olmasını istiyorum.
"on *:text:Selam:#: { msg # A.Selam } " Kullanmamı tavsiye etmeden önce söyliyeyim: Uzun txt dosyası olacağı için ßöyle şey düşündüm. Olabilir mi Acaba ? Olamazsa da Canınız SagoLsun...

L4roXyL 03 Şubat 2008 18:08

Cevap: Mümkün müdür Acaba ?
 
Evet mümkündür.

on *:text:*:#:if ($read(dosya.txt,w,$+($1,*))) { var %s = $gettok($replacecs($read(dosya.txt,$readn),$chr(12 4),$(|)),2,124) | .msg # %s }

Buradaki mantık, dosya.txt içerisin'deki satılar;
Selam | a.s
Merhaba | Sanada merhaba
Şeklinde olmalıdır.
Diyelimki, birisi kanal'da, merhaba yazdı, sen cevaben "Sanada merhaba" cevabını gönderirsin.

LauReLL 03 Şubat 2008 18:10

Cevap: Mümkün müdür Acaba ?
 
Bir Türlü Denkleştiremedim Usta Sen Hızlı Davrandın Kurtuldum :)

¢єℓαℓ 03 Şubat 2008 18:13

Cevap: Mümkün müdür Acaba ?
 
L4roXyL Çok SagoL. Kod yazn ellerin dert görmesin :)

¢єℓαℓ 03 Şubat 2008 18:22

Cevap: Mümkün müdür Acaba ?
 
Yazdıklarını görme imkanımız yok mu ?

L4roXyL 03 Şubat 2008 18:39

Cevap: Mümkün müdür Acaba ?
 
Nasıl yazdıkları görme imkanı?

¢єℓαℓ 03 Şubat 2008 19:08

Cevap: Mümkün müdür Acaba ?
 
[19:05:47] <04Deneme> merhaba
[19:05:48] <04Deneme1> Sanada merhaba
[19:05:50] <04Deneme> selam
[19:05:50] <04Deneme1> a.s

Deneme Adlı kullanıcı da gözüküyr yazdıklarım fakat kendimde gözükmüyor.

[19:05:47] <05Deneme> merhaba
[19:05:50] <05Deneme> selam

Kendi Clientimizde de yazdıklarımızı görme imkanımız yok mu ?

SaintCty 03 Şubat 2008 19:41

Cevap: Mümkün müdür Acaba ?
 
on *:text:*:#:if ($read(dosya.txt,w,$+($1,*))) { var %s = $gettok($replacecs($read(dosya.txt,$readn),$chr(12 4),$(|)),2,124) | .msg # %s }


kırmızı olan noktayı kaldırırsan sende görürsün

¢єℓαℓ 04 Şubat 2008 15:35

Cevap: Mümkün müdür Acaba ?
 
Yaw Kod'u denedim. Yalnız bir sorun var.
Mesela
Merhaba Ben hasan | Bende Celal
yazdım dosya.txt'e fakat m,me,mer,merh,merha,merhab,merhaba .... gibi harf/harfleri yazdığımda Bende Celal Çıkıyor. ßuraya Yazdığım Cümlenin Tamamı Yazıldığında OLması mümkün müdür? Ve Bu Cümlenin Ortasında Olduğunda yine Aynı Cevabı vermesini istiyorum...

¢єℓαℓ 05 Şubat 2008 11:56

Cevap: Mümkün müdür Acaba ?
 
Yardım £deßiLicék Yk mu ?

diEfoRyoU 06 Şubat 2008 20:51

Cevap: Mümkün müdür Acaba ?
 
Kelimeleri kelime.txt dosyasına aşağıdaki gibi ekledikten sonra istediğin olacaktır. Yanlız şunu bilmelisin ki; eğer txt dosyasında geçen sözcüklerden birden fazlası aynı cümlede kullanılırsa sana karşı, kod dosyada ilk bulduğu cevabı verir. Örneğin, txt dosyasına "selam sanada selam" ve "nasılsın iyiyim sen?" şeklinde ekledin alt atla ve kullanıcı sana "selam dostum nasılsın" dedi.
Bu durumda kod, txt dosyasına ilk eklediğin sorunun cevabını verir.
txt dosyasına ekleme şekli;
SORU CEVAP
Selam sanada selam
nasılsın iyiyim, sen?
naber iyi, senden ne haber?
işte kod:
Kod:


alias tamamla { var %" 1 | while $gettok($1-,%",32) { if $read(kelime.txt,s,$v1) { inc $+(%,/!/) 1 | %/ = $v1 | if $+(%/!/) == 1 { return %/ } } | inc %" } }
on *:text:*:#: if $tamamla($1-) { say $v1 | unset %/* }

Umarım işine yarar.

¢єℓαℓ 07 Şubat 2008 15:05

Cevap: Mümkün müdür Acaba ?
 
çalıştıramadım :(

L4roXyL 08 Şubat 2008 14:02

Cevap: Mümkün müdür Acaba ?
 
on *:text:*:#:if ($read(dosya.txt,s,$1)) { var %s = $gettok($replacecs($read(dosya.txt,$readn),$chr(12 4),$(|)),2,124) | msg # %s }

Şeklinde değişirsen hiçbir sorun kalmaz.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk