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

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.