[cashmare]

S.a arkadaşlar elimde şöyle bi kode var
on *:text:!basla sohbet #:#xx: { .msg # 13 Sohbet Başlıyor.. }{
var %s 1
while %s <= $lines(sohbet.txt) {
msg # -> $read(sohbet.txt,%s)
inc %s
}
}
Şimdi bu kodede örnegin xx kanalında biri !basla sohbet #kanal yazdıgı zaman sohbete hangi kanaldaysa o kanalda sohbet.txt deki yazıları yazmasını istiyorum.. ve bu yazıları. mumkunse her cumleyi 3 saniyede bir göndersin.. kanala böyle bişe yapabilirmiyiz..

cashmare Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

S.a arkadaşlar elimde şöyle bi kode var on *:text:!basla sohbet #:#xx: { .msg # 13 Sohbet Başlıyor.. }{ var %s 1 while %s <= $lines(sohbet.txt) { msg # -> $read(sohbet.txt,%s) inc %s } } Şimdi bu kodede örnegin xx kanalında biri !basla sohbet #kanal yazdıgı zaman sohbete hangi kanaldaysa o kanalda sohbet.txt deki yazıları yazmasını istiyorum.. ve bu yazıları. mumkunse her cumleyi 3 saniyede bir göndersin.. kanala böyle bişe yapabilirmiyiz..

on *:text:!basla sohbet #:#xx: {
.msg # 13 Sohbet Başlıyor..
.play sohbet.txt 3000
}

[cashmare]

Nickolas Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

on *:text:!basla sohbet #:#xx: { .msg # 13 Sohbet Başlıyor.. .play sohbet.txt 3000 }

nickolas bide on *:text:!basla sohbet #:#xx: {
.msg # 13 Sohbet Başlıyor..
.play sohbet.txt 3000
} burda !basla sohbet #sohbet yazdıgımda baslamıyor !basla sohbet #
yazdıgımda baslıyor.. yani diyorum ki örnegin #xx kanalında biri !baslas sohbet #sohbet yazdıgında sohbet kanalına sohbet.txt deki yazılar 3 saniye aralıklarla göndericek..
bide verdigin code de
* /play: Bu pencerede oynatamassın (Satır 3, script1.txt)
diyor

Elimde mirc help yok o nedenle senin kodunu tekrar düzenliyorum...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#xx: { 
  if ($1-2 == !basla sohbet && $me ison $3) {
    .msg $3 13 Sohbet Başlıyor..
    var %s = 1, %time = 1, %r = $r(0, 9898999)
    while %s <= $lines(sohbet.txt) {
      .timer.sohbet_ $+ %s $+ _ $+ %r 1 %time msg $3 -> $read(sohbet.txt,%s)
      inc %s
      %time = $calc(%time + 3)
    }
  }
}

[cashmare]

Nickolas Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Elimde mirc help yok o nedenle senin kodunu tekrar düzenliyorum... Kod:   Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#xx: { if ($1-2 == !basla sohbet && $me ison $3) { .msg $3 13 Sohbet Başlıyor.. var %s = 1, %time = 1, %r = $r(0, 9898999) while %s <= $lines(sohbet.txt) { .timer.sohbet_ $+ %s $+ _ $+ %r 1 %time msg $3 -> $read(sohbet.txt,%s) inc %s %time = $calc(%time + 3) } } }

Teşekkür Ederim Nickolas.. Allah razı Olsun..
Bide Nickolas buraya kadar teşekkür ederim.. bide sunu ekleyebilirmiyiz bu codeye şimdi diyelimki bende sohbet.txt , muhabbet.txt, xxx.txt yy.txt felan yani kendim ekliycegim txtleri yani şöyle diyim.. şimdi #xx kanalında biri !basla muhabbet #sohbet yazdıgı zaman botum sohbet kanalına muhabbet.txt içindeklieri göndersin.. aynı şekilde !basla xxx #sohbet yazdıgında xxx.txt dekileri göndersin böyle bişe olur mu

detay Nickli Üyeden Alıntı

nickolasin verdigi kodda sadece kanal eksik, while döngüsüz daha kısa ve rahat bir kod on *:text:!basla sohbet #:#xx: { .msg # 13 Sohbet Başlıyor.. .play # sohbet.txt 3000 }

Elimde mirc help olmadığı için while kullandım. Sağolasın açıklaman için

cashmare Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Teşekkür Ederim Nickolas.. Allah razı Olsun.. Bide Nickolas buraya kadar teşekkür ederim.. bide sunu ekleyebilirmiyiz bu codeye şimdi diyelimki bende sohbet.txt , muhabbet.txt, xxx.txt yy.txt felan yani kendim ekliycegim txtleri yani şöyle diyim.. şimdi #xx kanalında biri !basla muhabbet #sohbet yazdıgı zaman botum sohbet kanalına muhabbet.txt içindeklieri göndersin.. aynı şekilde !basla xxx #sohbet yazdıgında xxx.txt dekileri göndersin böyle bişe olur mu

Şöyle diyelim istersen !basla sohbet #muhabbet yazdığında muhabbet.txt dekileri yani !basla sohbet #kanalismi yazdığında kanalismi.txt 'deki gönderir?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

 
on *:text:*:#xx: { 
  if ($1-2 == !basla sohbet && $me ison $3) {
    .msg $3 13 Sohbet Başlıyor..
    if ($isfile($right($3, -1) $+ .txt)) {
      .play $3 $right($3, -1) $+ .txt 3000
    }
    else {
      msg # $right($3, -1) $+ .txt dosyası bulunamadı
    }
  }
}

[detay]

nickolasin verdigi kodda sadece kanal eksik, while döngüsüz daha kısa ve rahat bir kod

on *:text:!basla sohbet #:#xx: {
.msg # 13 Sohbet Başlıyor..
.play # sohbet.txt 3000
}