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
}
}