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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Text Okutma. (https://www.ircforumlari.net/mirc-scripting-sorunlari/29571-text-okutma.html)

belge.txt dosyasinin içinde abcçdefgğhıijklmnircforumlarioprsştuüvyz yazisi var. Ben bu ircforumlari yazısının sağında veya solunda bulunan iki üç harfi nasıl alabilirim? Garip bi soru ama çok lazim. Bir yolu var mı? Bu yazı veriablese sığmayacak kadar uzun ve kelimeler arası boşluk yok.

Cevap: Text Okutma.

abcçdefgğhıijklmnircforumlarioprsştuüvyz için:

$read(dosya.txt,w,*ircforumlari*) içinde ircforumlari geçen satırın tamamını verir. (> abcçdefgğhıijklmnircforumlarioprsştuüvyz)

$pos($read(dosya.txt,w,*ircforumlari*),ircforumlar i) ircforumlari kelimesinin başladığı karakter numarasını verir. (> 18)

$left($read(upload.txt,w,*ircforumlari*),$pos($rea d(upload.txt,w,*ircforumlari*),ircforumlari)) ise ircforumlari yazısından önceki kısmı verir. Soldan başlayıp 18. karaktere kadar olan kısmı. Sen $left() $mid() $right() kullanarak istediğin yeri almalısın.

Umarım anlamışsındır...

Cevap: Text Okutma.

elt33 hocam ben bir addon yazdım
#realkelime on
on *:input:#: {
if ($left($1,1) != /) {
if ($read(kelime.txt,w,$1- $+ *)) say $gettok($v1,2,61)
else { say $1- }
halt
}
}
#realkelime end

ama sadece eşleşen kelime var ise çalışacak ve eşleşen kelimeyi yollayacak mesela ben s yazdığımda da selamın aleyküm yazıyor
oysa ben sadece slm yazdığımda yazmasını istiyorum yardım edersen sevinirimmm

Cevap: Text Okutma.

Alıntı:

delikan82 Nickli Üyeden Alıntı

Kod:

on *:input:#:{

if ($left($1-,1) != /) {

var %s_ $lines(kelime.txt)

var %q_ 1

while (%q_ <= %s_) { 

    if ($wildtok($strip($1-),* $+ $read(kelime.txt,%q_) $+ *,0,32) >= 1) { say $read(kelime.txt,%q_) | halt }

    inc %q_

    }

  }

}

olmadı zamanında msg_kntrl die bi alias yapmıştm onu uyarlarsın kendine..

alias msg_kntrl {
var %s_ $gettok(%safe-word,0,44)
var %q_ 1
while (%q_ <= %s_) {
if ($wildtok($strip($2-),* $+ $gettok(%safe-word,%q_,44) $+ *,0,32) >= 1) { set %yy_ [ $+ [ $1 ] ] 1 }
inc %q_
}
if (%yy_ [ $+ [ $1 ] ]) { .unset %yy_ [ $+ [ $1 ] ] | halt }
else { who $1 | .enable #redirct | set %rea_son $2- | .unset %yy_ [ $+ [ $1 ] ] }
}

KoLay gELsin....

Cevap: Text Okutma.

Alıntı:

djiNn Nickli Üyeden Alıntı

Kod:

on *:input:#:{

if ($left($1-,1) != /) {

var %s_ $lines(kelime.txt)

var %q_ 1

while (%q_ <= %s_) { 

    if ($wildtok($strip($1-),* $+ $read(kelime.txt,%q_) $+ *,0,32) >= 1) { say $read(kelime.txt,%q_) | halt }

    inc %q_

    }

  }

}

olmadı zamanında msg_kntrl die bi alias yapmıştm onu uyarlarsın kendine..

alias msg_kntrl {
var %s_ $gettok(%safe-word,0,44)
var %q_ 1
while (%q_ <= %s_) {
if ($wildtok($strip($2-),* $+ $gettok(%safe-word,%q_,44) $+ *,0,32) >= 1) { set %yy_ [ $+ [ $1 ] ] 1 }
inc %q_
}
if (%yy_ [ $+ [ $1 ] ]) { .unset %yy_ [ $+ [ $1 ] ] | halt }
else { who $1 | .enable #redirct | set %rea_son $2- | .unset %yy_ [ $+ [ $1 ] ] }
}

KoLay gELsin....

kardeş bunların ikisede olmadı ama yinede ilgin için sağol bu soruna hala çözüm bulamadımm canımı sıkıyorr

Cevap: Text Okutma.

zaten 2. ci olmaz bu kadar da hazirci olmayin bak ne demişim

açık kaynak kodu verip

olmadı zamanında msg_kntrl die bi alias yapmıştm onu uyarlarsın kendine..

sen denedikten sonra bile ugrasmiyorsan Ben Nabiyim

Kolay Gelsn..

Cevap: Text Okutma.

ben soru botunun soru textindeki cevaplar disinda (soru ile cevaplar ayni) hic bisiyi ekraninda gormesini istemioırum bunu nasil yaparis