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