on *:LOAD:{
  var %f = 15
  while (%f) {
    write -c $+(mi,%f,.ini)
    writeini $+(mi,%f,.ini) 1 question  
    writeini $+(mi,%f,.ini) 1 a1  
    writeini $+(mi,%f,.ini) 1 a2  
    writeini $+(mi,%f,.ini) 1 a3  
    writeini $+(mi,%f,.ini) 1 a4  
    writeini $+(mi,%f,.ini) 1 correct a1
    writeini $+(mi,%f,.ini) 2 question  
    writeini $+(mi,%f,.ini) 2 a1  
    writeini $+(mi,%f,.ini) 2 a2  
    writeini $+(mi,%f,.ini) 2 a3  
    writeini $+(mi,%f,.ini) 2 a4  
    writeini $+(mi,%f,.ini) 2 correct a2
    dec %f
  }
}
menu channel {
    
  .:{
    if (%mi.chan ischan) { echo $color(info) -a ***  ɡ      }
    else {
      if ($server) {
        %mi.chan = $chan
        %mi.qq = $$?="    $+ $crlf $+    "
        %mi.qa = $$?="    "
        %mi.hint = $$?="         "
        %mi.ticks = $ticks
        msg $chan     :  
        msg $chan  : %mi.qq
        msg $chan : %mi.hint
      }
    }
  }
  . :{
    if (%mi.chan) {
      if (%mi.chan ischan) { msg %mi.chan       }
      unset %mi.*
      echo $color(info) -a ***   
    }
    else { echo $color(info) -a    }
  }
  .-
  .
  .. :{ if (!$exists(mi1.ini)) { write -c mi1.ini } | run mi1.ini }
  .. :{ if (!$exists(mi2.ini)) { write -c mi2.ini } | run mi2.ini }
  .. :{ if (!$exists(mi3.ini)) { write -c mi3.ini } | run mi3.ini }
  .. :{ if (!$exists(mi4.ini)) { write -c mi4.ini } | run mi4.ini }
  .. :{ if (!$exists(mi5.ini)) { write -c mi5.ini } | run mi5.ini }
  .. :{ if (!$exists(mi6.ini)) { write -c mi6.ini } | run mi6.ini }
  .. :{ if (!$exists(mi7.ini)) { write -c mi7.ini } | run mi7.ini }
  .. :{ if (!$exists(mi8.ini)) { write -c mi8.ini } | run mi8.ini }
  .. :{ if (!$exists(mi9.ini)) { write -c mi9.ini } | run mi9.ini }
  .. :{ if (!$exists(mi10.ini)) { write -c mi10.ini } | run mi10.ini }
  ..  :{ if (!$exists(mi11.ini)) { write -c mi11.ini } | run mi11.ini }
  ..  :{ if (!$exists(mi12.ini)) { write -c mi12.ini } | run mi12.ini }
  ..  :{ if (!$exists(mi13.ini)) { write -c mi13.ini } | run mi13.ini }
  ..  :{ if (!$exists(mi14.ini)) { write -c mi14.ini } | run mi14.ini }
  ..  :{ if (!$exists(mi15.ini)) { write -c mi15.ini } | run mi15.ini }
}
on *:TEXT:*:%mi.chan:{
  if (%mi.qa) {
    if (%mi.qa == $1-) {
      %mi.nick = $nick
      msg $chan  $nick $+ ,    : $calc(($ticks - %mi.ticks) / 1000) 
      msg $chan < $+ $nick $+ > $chr(2) $+        
      msg $chan < $+ $nick $+ >    : !ta9weet - !50:50 - !call - !
      unset %mi.qq %mi.qa %mi.ticks
      if (!$ini(mi1.ini,0)) {
        unset %mi.*
        msg $chan ǡ         
      }
      else {
        var %r = $r(1,$ini(mi1.ini,0))
        msg $chan < $+ $nick $+ >  : $readini(mi1.ini,n,$ini(mi1.ini,%r),question)
        msg $chan < $+ $nick $+ > !A1 = $readini(mi1.ini,n,$ini(mi1.ini,%r),a1) $+ , !A2 = $readini(mi1.ini,n,$ini(mi1.ini,%r),a2) $+ , !A3 = $readini(mi1.ini,n,$ini(mi1.ini,%r),a3) $+ , !A4 = $readini(mi1.ini,n,$ini(mi1.ini,%r),a4)
        %mi.cor = $readini(mi1.ini,n,$ini(mi1.ini,%r),correct)
        %mi.lev = 1
      }
    }
  }
  else {
    var %mi.num = , , , , , , , , ,  ,  ,  ,  ,  
    var %mi.kd = 100, 200, 300, 500, 1000, 2000, 4000, 8000, 16000, 32000, 64000, 125000, 250000, 500000, 1000000
    if ($nick == %mi.nick) {
      if ($len($1) == 3) && ($left($1,2) == !a) && ($right($1,1) isnum 1-4) {
        if ($right($1,2) == %mi.cor) {
          var %mi.mon = $token(%mi.kd,%mi.lev,44)
          msg $chan  $nick $+ ,   : KD $+ %mi.mon
          if (%mi.lev == 15) {
            msg $chan < $+ $nick $+ > ,   
            unset %mi.*
            return
          }
          if (!$ini($+(mi,$calc(%mi.lev + 1),.ini),0)) {
            unset %mi.*
            msg $chan ǡ         $token(%mi.num,%mi.lev,44)
          }
          var %r = $r(1,$ini($+(mi,$calc(%mi.lev + 1),.ini),0))
          msg $chan < $+ $nick $+ >  $token(%mi.num,%mi.lev,44) $+ : $readini($+(mi,$calc(%mi.lev + 1),.ini),n,$ini($+(mi,$calc(%mi.lev + 1),.ini),%r),question)
          msg $chan < $+ $nick $+ > !A1 = $readini($+(mi,$calc(%mi.lev + 1),.ini),n,$ini($+(mi,$calc(%mi.lev + 1),.ini),%r),a1) $+ , !A2 = $readini($+(mi,$calc(%mi.lev + 1),.ini),n,$ini($+(mi,$calc(%mi.lev + 1),.ini),%r),a2) $+ , !A3 = $readini($+(mi,$calc(%mi.lev + 1),.ini),n,$ini($+(mi,$calc(%mi.lev + 1),.ini),%r),a3) $+ , !A4 = $readini($+(mi,$calc(%mi.lev + 1),.ini),n,$ini($+(mi,$calc(%mi.lev + 1),.ini),%r),a4)
          %mi.cor = $readini($+(mi,$calc(%mi.lev + 1),.ini),n,$ini($+(mi,$calc(%mi.lev + 1),.ini),%r),correct)
          inc %mi.lev
        }
        else {
          msg $chan  $nick $+ ,    
          msg $chan   : %mi.cor
          if (%mi.lev isnum 1-5) { msg $chan < $+ $nick $+ >     }
          elseif (%mi.lev isnum 6-10) { msg $chan < $+ $nick $+ >    : KD1000 }
          else { msg $chan < $+ $nick $+ >    : KD32000 }
          msg $chan   
          unset %mi.*
        }
      }
      elseif ($1 == !ta9weet) {
        if (%mi.ta9) {
          if (!%mi.tempta9) {
            set -u60 %mi.tempta9 1
            .notice $nick  $nick $+ ,     
          }
        }
        else {
          %mi.ta9 = 1
          msg $chan        
          msg $chan   : !V A1 - !V A2 - !V A3 - !V A4
          msg $chan  : 30 
          .timerMIVOTE 1 30 _mi.vote
        }
      }
      elseif ($1 == !50:50) {
        if (%mi.50) {
          if (!%mi.temp50) {
            set -u60 %mi.temp50 1
            .notice $nick  $nick $+ ,     
          }
        }
        else {
          %mi.50 = 1
          %mi.50 = 1
          %mi.d2 = A1 A2 A3 A4
          %mi.d2 = $remove(%mi.d2,%mi.cor)
          %mi.d2 = $deltok(%mi.d2,$r(1,3),32)
          msg $chan $chr(31) $+   $+ $chr(15) $+ : ! $+ $token(%mi.d2,1,32)  ! $+ $token(%mi.d2,2,32)
        }
      }
      elseif ($1 == !call) {
        if (!%mi.call) {
          %mi.call = 1
          msg $chan < $+ $nick $+ >   ʿ     :P
        }
      }
      elseif ($1 == !) {
        if (%mi.lev isnum 1-5) { msg $chan < $+ $nick $+ >     }
        elseif (%mi.lev isnum 6-10) { msg $chan < $+ $nick $+ >    : KD1000 }
        else { msg $chan < $+ $nick $+ >    : KD32000 }
        msg $chan $nick   
        unset %mi.*
      }
    }
    else {
      if ($1 == !V) {
        if ($timer(MIVOTE)) {
          if ($2 == a1) { inc %mi.v1 }
          elseif ($2 == a2) { inc %mi.v2 }
          elseif ($2 == a3) { inc %mi.v3 }
          elseif ($2 == a4) { inc %mi.v4 }
        }
      }
    }
  }
}
alias -l _mi.vote {
  %mi.v5 = $iif(!$int($calc((%mi.v1 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)),0,$int($calc((%mi.v1 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)))
  %mi.v6 = $iif(!$int($calc((%mi.v2 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)),0,$int($calc((%mi.v2 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)))
  %mi.v7 = $iif(!$int($calc((%mi.v3 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)),0,$int($calc((%mi.v3 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)))
  %mi.v8 = $iif(!$int($calc((%mi.v4 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)),0,$int($calc((%mi.v4 / (%mi.v1 + %mi.v2 + %mi.v3 + %mi.v4)) * 100)))
  if (%mi.chan ischan) && ($server) {
    msg %mi.chan  : !A1 = %mi.v5 $+ $chr(37) $+ , !A2 = %mi.v6 $+ $chr(37) $+ , !A3 = %mi.v7 $+ $chr(37) $+ , !A4 = %mi.v8 $+ $chr(37)
  }
}
