قديم 08-30-2003, 10:17 AM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية MF3

البيانات
التسجيل: Aug 2003
العضوية: 2227
المشاركات: 13 [+]
بمعدل : 0.00 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
MF3 غير متصل
وسائل الإتصال:

المنتدى : برامج - سكربتات - اضافات ماسنجر
اوتو سكرامبل

كما عودتكم على الجديد والمفيد لكم هذا اوتوسكرامبل بشكل جديد وممتاز تقبلوا تحيات اخوكم : معتز :)

on 1:text:*:%chan: {
if ($strip($1-) == $anmlcrckr.send) {
.alias anmlcrckr.send return ""
.inc %scor. [ $+ [ $nick ] ]
msg %chan 4 $+ $nick $+  1Get %scor. [ $+ [ $nick ] ] points
.inc %send.ask
.timersend 1 7 Asking
if (%warn [ $+ [ $nick ] ] == $null) { .notice $nick اذا تبي تعرف كم جايب نقطة //ctcp $me scores | set %warn [ $+ [ $nick ] ] anmlcrckr }
}
}
ctcp *:scores:?:Notice $nick Your points is $iif(%scor. [ $+ [ $nick ] ],%scor. [ $+ [ $nick ] ],0)
menu Channel,status {

أوتو سكرامبل
.أبدأ:write -c scrmble.txt | unset %ask* %answer* %scor* %warn* | set %chan # | set %ask.num 0 | auto-scr
.-
.إيقاف:unset %ask* %answer* %scor* %chan %send.ask %warn* | Echo 4 -a *** تم إيقاف اللعبة
.-
.قولهم الإجابة:msg %chan أجابة السؤال هي :- $anmlcrckr.send | alias anmlcrckr.send return "" | .inc %send.ask | msg %chan اذا كان هناك متوفر أسئلة سيتم أرسالها بعد سبع ثواني anmlcrckr | .timer 1 7 asking
}
alias auto-scr { inc %ask.num | window -dpoC +fl @Scrmble 0 0 300 200 | drawfill @Scrmble 1 1 1 1 1 | set %loop 0 | set %timer 0 | :loop | if (245 >= %loop) { .inc %timer 100 | .inc %loop 10 | .timer -m 1 %timer drawtext -or @Scrmble $rgb(%loop,%loop,%loop) Arial 30 75 9 أوتو سكرامبل | .goto loop } } | .timer -m 1 2600 drawtext @scrmble 0 Arial 0 118 46 :-السؤال رقم | .timer -m 1 2700 drawrect @Scrmble 2 50 113 85 80 50 | .timer -m 1 2800 drawtext -o @scrmble 0 Arial 0 150 102 %ask.num | .timer -m 1 3100 drawline @scrmble 15 10 0 0 300 0 | .timer -m 1 3200 drawline @scrmble 15 10 292 0 292 300 | .timer -m 1 3300 drawline @scrmble 15 10 0 0 0 300 | .timer -m 1 3400 drawline @scrmble 15 10 0 190 300 190 | .timer -m 1 3500 drawrect -f @scrmble 2 10 130 150 50 30 | .timer -m 1 3800 drawtext -o @scrmble 0 Arial 0 149 155 أبدا }
menu @Scrmble {
sclick {
if ($inrect($mouse.x,$mouse.y,113,85,80,50) == $true) { set %ask $input(شنو السؤال؟,e,anmlcrcrk scrmble) | set %answer $input(شنو الجواب,e,anmlcrckr scrmble) | write -l $+ %ask.num scrmble.txt Ask is: $remove(%ask, Answer is: $remove(%answer, | if ($read(scrmble.txt,%ask.num)) { inc %ask.num | drawrect @Scrmble 2 50 113 85 80 50 | drawtext -o @scrmble 0 Arial 0 150 102 %ask.num } }
if ($inrect($mouse.x,$mouse.y,130,150,50,30) == $true) { window -c @Scrmble | set %send.ask 1 | .timer 1 7 Asking | echo 4 -a سيتم طرح $+ $chr(158) $+ $lines(scrmble.txt) سؤال anmlcrckr }
}
}
on *:appactive:{
if ($window(@Scrmble)) {
if (!$appactive) { window -nh @Scrmble | halt }
window -a @Scrmble
}
}
alias Asking {
if (%send.ask > $lines(scrmble.txt)) { write -c scrmble.txt | echo -a *** End of game | halt }
alias anmlcrckr.send return $removecs($gettok($read(scrmble.txt,%send.ask),3-,58),Ask is,Answer is,)
set %sg.answer $lower($scramble($anmlcrckr.send))
set %sg.guestion $removecs($gettok($read(scrmble.txt,%send.ask),1-2,58),Ask is,Answer is,)
msg %chan السؤال يقول: $+ %sg.guestion
msg %chan الجواب من: $+ %sg.answer
}
alias scramble { if $1- == $null { echo Scrmble End | goto error } | set %sloop 0 | :loop | inc %sloop 1 | if $gettok($1-,%sloop,32) == $null { unset %sloop %smid | .timer 1 5 unset %smsg | return %smsg | goto error } | :scramble | set %smid $scramble2($gettok($1-,%sloop,32)) | if %smid == $gettok($1-,%sloop,32) && $len($gettok($1-,%sloop,32)) > 1 { goto scramble } | set %smsg %smsg %smid | goto loop | :error }
alias scramble2 { if $1- == $null { echo Scrmble End | goto error } | if $chr(32) isin $1- { echo Don't use spaces in Scramble! | goto error } | unset %scramble %ran.* %r %l | :letters | inc %l 1 | if %l > $len($1-) { goto scramble } | set %ran. [ $+ [ %l ] ] $mid($1-,%l,1) | goto letters | :scramble | set %r $rand(1,$len($1-)) | if %ran. [ $+ [ %r ] ] == $null { goto scramble } | set %scramble %scramble $+ %ran. [ $+ [ %r ] ] | set %ran. [ $+ [ %r ] ] $null | if $len(%scramble) < $len($1-) { goto scramble } | unset %ran.* %r %l | .timer 1 5 unset %scramble | return %scramble | :error }

h,j, s;vhlfg h,fk s;vhlfg












توقيع : MF3

عرض البوم صور MF3   رد مع اقتباس
قديم 09-01-2003, 03:16 AM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية AL_MoHaNdS

البيانات
التسجيل: May 2003
العضوية: 1539
المشاركات: 5,627 [+]
بمعدل : 0.91 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
AL_MoHaNdS غير متصل
وسائل الإتصال:

كاتب الموضوع : MF3 المنتدى : برامج - سكربتات - اضافات ماسنجر

تسلم اخوي على الموضوع












توقيع : AL_MoHaNdS

Every Day I Said Today My Dreams Become Real

أنت الزائر رقم لمواضيعي وردودي

My E-mail :
Good Bye And Good Luck In This Forum
With My Best Wish

عرض البوم صور AL_MoHaNdS   رد مع اقتباس
قديم 09-01-2003, 03:30 AM   المشاركة رقم: 3
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية ALMaJeD

البيانات
التسجيل: Dec 2002
العضوية: 427
المشاركات: 2,560 [+]
بمعدل : 0.40 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
ALMaJeD غير متصل
وسائل الإتصال:

كاتب الموضوع : MF3 المنتدى : برامج - سكربتات - اضافات ماسنجر
تسلم اخوي على الاوتو سكرامبل الجميل ؟؟

بس فيه مشكله شلون تحط الاسئله علشان يشتغل السكرامبل ؟؟

انا شغلته بس طلعت عندي سوف يتم طرح الاسئله وبعدين

كتبلي نهايه اللعبه ؟؟ تونا مابلشنا علشان نهايه ياريتك تراجعه ؟؟

اخوك : الماجد












توقيع : ALMaJeD


عرض البوم صور ALMaJeD   رد مع اقتباس
إضافة رد

مواقع النشر (المفضلة)

الكلمات الدلالية (Tags)
اوبن, سكرامبل

جديد منتدى برامج - سكربتات - اضافات ماسنجر


أدوات الموضوع
انواع عرض الموضوع


ترتيب الموقع عالميا
     

Site_Map


الساعة الآن 05:54 PM.


Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO 3.6.1