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

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

- - !sıradaki (https://www.ircforumlari.net/mirc-scripting-sorunlari/484251-siradaki.html)

arkadaşlar bota #kontrol kanalında !sıradaki yazdığımda bot bana mırc klasörünün içindeki txt dosyasında yani metin belgesindeki yazıları sırasıyla verebilirmi acaba bu mümkünmü?

örn:

!sıradaki
botnick: sıradaki parça 3 ( 1 2 3 4 5 6 ) hangi sıradaysa
botnick: -
botnick: aşk bir sudur iç iç kudur :)
botnick: -
botnick: asd sıradaki konu başarıyla kanala verilmiştir.

desin istiyorum acaba mümkünmü? iyi ifler kolay gelsin.

Cevap: !sıradaki

Kod:

on 1:text:*:#kontrol: {

  if $1 == !siradaki { msg $chan 4 $nick Siradaki belge: 2 $read(belge.txt) }   

}

}

Kodu remoteye ekldeikten sonra belge veya belrlediginiz belge adini yazip !siradaki yazmaniz yeterli olacak her yaziginiz sozleri kanala yansiatacaktir.

Cevap: !sıradaki

abi verdiğin kod çalışdı saol ama bu şekilde bir sonuc veremezmi

!sıradaki
botnick: sıradaki parça 3 ( 1 2 3 4 5 6 ) hangi sıradaysa
botnick: -
botnick: aşk bir sudur iç iç kudur
botnick: -
botnick: asd sıradaki konu başarıyla kanala verilmiştir.

yani bot metinbelgesinin içindekini versin

Cevap: !sıradaki

Kod:

on *:text:!siradaki*:#kontrol {

  var %i 1 

  var %e = $lines(belge.txt)

  while %i <= %e { 

    msg $chan 2 $read(belge.txt,%i)

    msg $chan - - 

    inc %i 

  } 

   msg $chan $nick Sıradaki Konu Başarıyla Kanala Verilmiştir

}

Cevap: !sıradaki

Kod:

on *:text:!sıradaki:#kontrol:{

  if !$lines(konular.txt) { msg $chan Konu yok. | Halt }

  unset %sıracılar

  $iif(%sıradakici >= $lines(konular.txt),unset %sıradakici)

  inc %sıradakici 

  var %b 1

  while %b <= $lines(konular.txt) {

    set %sıracılar $addtok(%sıracılar,$iif(%b == %sıradakici ,4 %b ,%b),32)

    set %sıracılar $addtok(%sıracılar,%b,32)

    inc %b

    if %b > $lines(konular.txt) { 

      msg $chan Sıradaki konu numarası: %sıradakici ( %sıracılar )

      msg $chan -

      msg $chan Konu: $qt($read(konular.txt,%sıradakici))    

    } 

  }

}
 

on *:text:!konu*:#kontrol:{

  if $3 {

    if $2 == ekle {

    $iif($read(konular.txt,w,$3-),msg $chan Bu konu zaten kayıtlı.,.timerpaint 1 0 write konular.txt $3- $(|) msg $chan $qt($3-) adlı konu eklendi.) }

  }

  if $2 == sil { $iif($3 <= $lines(konular.txt),.timerpaint1 1 0 write -dl $+ $3 konular.txt $(|) msg $chan $qt($3) numaralı konu silindi.,msg $chan O kadar konu yok ki sileyim.)

  }

  elseif $2 == listele {   if !$lines(konular.txt) { msg $chan Konu yok. | Halt }

    var %b 1 | while %b <= $lines(konular.txt) { msg $chan $qt($read(konular.txt,%b)) | inc %b } 

  } 

}

Komutlar
Ana komut: !sıradaki
Ekleme silme listeleme yapmak için: !konu ekle <Konu adı> | !konu sil <numara> | !konu listele