تويت
الامر هذا كله حطوة بالاريموت ماعليكم الا تحطون الأساله فقط وشكرا
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)
}
}
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)
}
}
[/align]
تعليق