[manikdepresif]

Merhaba;
180 adet fikrayi kod haline getirdim.Umarim okuyarak keyif alirsiniz.
[Komut]
Kanal genelinde ya da ozel query de !fikra yazarak baslatabilirsiniz.
fikralar.txt dosyasindan random olarak fikrayi yazacaktir.
[fikralar.txt ektedir]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Kullanim]
//run $mircdir yazdiktan sonra mirc ana klasorune fikralar.txt dosyasini yapistiriniz.
[Not]
Fikralarinizi istege gore fikralar.txt dosyasindaki formattaki gibi cogaltabilirsiniz.
;İyi eglenceler

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

on $*:text:/^[.!]f[ıiIİ]kra/i:*:{
  if %fikra { return }
  if !%fikra {
    set -eu20 %fikra OK
  }
  if !$isfile(fikralar.txt) { echo $color(info) * fikralar dosyasi mirc klasorunde degil | halt }
  fikra $target
}
on *:input:*:{
  if $regex($1,/^[.!]f[ıiIİ]kra/i) {
    if !$isfile(fikralar.txt) { echo $color(info) * fikralar dosyasi mirc klasorunde degil | halt }
    fikra $target
  }
}
alias fikra {
  var %z = 1
  write -c fikralarrandom.txt
  while %z <= $lines(fikralar.txt)  { 
    if *[*]* iswm $read(fikralar.txt,%z) {
      write fikralarrandom.txt $readn
    }
    inc %z
  }
  var %randread = $r(1 $+ , $+ $lines(fikralarrandom.txt))
  var %t = $read(fikralarrandom.txt,%randread))
  noop $read(fikralar.txt,%t)
  var %readn = $readn, %j = 1
  .timer 1 2 msg $target $read(fikralar.txt,%readn)
  while (*[*]* !iswm $read(fikralar.txt,$calc(%readn +1))) {
    inc %readn
    .timer 1 $calc(%j * 4) msg $target $v2
    inc %j
  }  
}