lookjapan.COM - IRC ve mIRC dünyasının forumu!

Kod:

on $*:text:/^s(\.a(\.|leyk[uüÜ]m)?|lm|elam(s|lar|[uÜü]n\saleyk[uÜü]m)?)$/Si:#: {

  if !$hget($nick,$chan) {

    if (%selamno == $null) {

      set %selamno 1

      .timer 1 $r(15,20) msg $chan $read(selam.txt,%selamno) | inc %selamno | .hadd -m $nick $chan selam

    }

    elseif ($lines(selam.txt) < %selamno) { set %selamno 1 | .timer 1 $r(15,20) msg $chan $read(selam.txt,%selamno) | inc %selamno | .hadd -m $nick $chan selam }

    else { .timer 1 $r(15,20) msg $chan $read(selam.txt,%selamno) | inc %selamno | .hadd -m $nick $chan selam }

  }

}

on *:QUIT: { 

  if $hget($nick) { .hfree $nick }

}

on *:PART:#: { 

  if $hget($nick,$chan) { .hdel $nick $chan }

}

selam.txt de kayıtlı olan veriler

Merhaba $nick Hoşgeldin
Selam $nick Hoşgeldin
Hoşgeldin $nick Aleyküm Selam

vs..

İstediğin şey bu tarz birşey mi bilemiyorum. İşlevini anlatayım kanala selam veren kişinin selamını 15 20 saniye random olarak alır. Selam.txt de yazdığın verileri sırayla söyler. Aynı kişi kanaldan çıkmadan veya sunucudan çıkmadan aynı kanalda selamını almaz.

Örneğin:

Ahmet geldi Selam verdi Merhaba $nick Hoşgeldin diye cevap verir.
Merhmet geldi Selam verdi Selam $nick Hoşgeldin diye cevap verir.
Hüseyin geldi Selam verdi Hoşgeldin $nick Aleyküm Selam diye cevap verir.

Diyelim selam.txt deki satırlar bitti o zaman başa döner.