Sual-Cavab

alias start {
  if (%sechimsayi > 1) { goto start }
  set %kanal $chan
  set %Verileceksuallarinsayi $?="Oyunchuya verilecek suallarin sayi?"
  set %sechimsayi 1
  msg %kanal Sual-Cavab oynu bashladi.
  :Next
  set %sechimsuali $left($read(Sechimsuali.txt,%sechimsayi),$calc($pos($read(Sechimsuali.txt,%sechimsayi),^,1)-1))
  set %sechimsualinincavabi $right($read(Sechimsuali.txt,%sechimsayi),$calc($len($read(sechimsuali.txt,%sechimsayi)) - $pos($read(Sechimsuali.txt,%sechimsayi),^,1)))
  msg %kanal Oyunchu sechimi uchun sual: %sechimsuali
  timer 1 30 $iif(%sechimsualinincavabi == tapildi,msg %kanal %Qalib cavab duzdu.Oynu sizinle davam etdirmeyimize shadiq.,msg %kanal Vaxt bitdi.Duzgun cavab %sechimsualinincavabi idi.)
  timer 1 30 $iif(%sechimsualinincavabi == tapildi,Sual-Cavab,inc %sechimsayi)
  timer 1 30 $iif(%sechimsualinincavabi != tapildi,goto next)
}
on 1:text:%sechimsualinincavabi:%kanal:{
  set %Qalib $nick
  set %sechimsualinincavabi tapildi
  chanserv %kanal mdeop
  mode %kanal +v %Qalib
  mode %kanal +m
}
alias Sual-Cavab {