alias kanal return #as
alias baslat {
  rands
  .timerbaslat 0 60 /rands
}
alias rands {
  set %:rand $rand(1,$lines(sorular.txt))
  soru
}
alias soru {
  if (%:rand == %rand) {  var %:rand = $rand(1,$lines(sorular.txt)) }
  unset %cevaplayan
  set %rand %:rand
  var %sorulacak = $read(sorular.txt,%:rand)
  set %soru $gettok(%sorulacak,1,11)
  set %cevap.a $gettok(%sorulacak,2,11)
  set %cevap.b  $gettok(%sorulacak,3,11)
  set %cevap.c  $gettok(%sorulacak,4,11)
  set %cevap.d  $gettok($gettok(%sorulacak,1,153),5,11)
  if (%cevap.a ==  $gettok(%sorulacak,2,153)) { set %dogru A | set %yanlis  b c d }
  if (%cevap.b ==  $gettok(%sorulacak,2,153)) { set %dogru B |  set %yanlis a c d }
  if (%cevap.c ==  $gettok(%sorulacak,2,153)) { set %dogru C |  set %yanlis a b d }
  if (%cevap.d ==  $gettok(%sorulacak,2,153)) { set %dogru D |  set %yanlis a b c }
  msg $kanal 5 %:rand 4) SORU: %soru
  msg $kanal  -
  msg $kanal A) %cevap.a
  msg $kanal B) %cevap.b
  msg $kanal C) %cevap.c
  msg $kanal D) %cevap.d
  msg $kanal -
  msg $kanal 5 Cevap Verme Sureniz 4 60 5Saniyedir..
  .timer20 1 20 msg $kanal 5Kalan Cevap Verme Suresi 4 40 5 Saniye.
  .timer40 1 40 msg $kanal 5Kalan Cevap Verme Suresi 4 20 5 Saniye.
  .timer59 1 59 msg $kanal 5Sure Bitmistir Dogru Cevap 4 %dogru 5 Sıkkıdır.
}
on *:text:*:#: {
  if ($chan == $kanal) {
    if ($istok(%cevaplayan,$nick,32)) { notice $nick  Onceden Yanlis Cevap Vermisdiniz Bu Soruda Cevap Hakkiniz Yok ! | halt }
    if ($istok(%yanlis,$1,32)) { msg # Yanlis Cevap $nick ! | %cevaplayan = $addtok(%cevaplayan,$nick,32) | halt }
    if ($1 == %dogru) { msg # Dogru Cevap $nick Tebrikler.. | baslat }
  }
}
Kod:
[00:45] <@Aeg>  3 ) SORU: Bir ChanServ Set Ozelligi
[00:45] <@Aeg> -
[00:45] <@Aeg> A) restricted
[00:45] <@Aeg> B) restricted
[00:45] <@Aeg> C) registera
[00:45] <@Aeg> D) restrictedb
[00:45] <@Aeg> -
[00:45] <@Aeg>  Cevap Verme Sureniz  60 Saniyedir..