قديم 04-16-2003, 02:20 AM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية ALMaJeD

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

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

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

بس لازم تضيف الاسئله علشان تلعب الجنل بلمسه وحده :>

menu channel {
-
السكرامبل
.ابدا:/scramble
.اضافة سؤال:{
if ($gettok($read(pri.txt,1),1-,32) == $null) { /write -n pri.txt By Private WwW.Private.Net | /write -n pri.Net.txt $$?="السؤال" | /write -n pri.Net.txt $$?="الجواب" }
else { /write -n pri.txt $$?="السؤال" | /write -n pri.txt $$?="الجواب"
}
}
.الغاء الاسئله:./remove pri.txt
.مشاهدة الاسئله:/run pri.txt
.وقف:scramble.stop
}
alias scramble {
set %schan` $active
scramble.start
}
alias scramble.start {
inc %Rshint` 2
set %Rsword` %Rshint` + 1
set %sword` $gettok($read(pri.txt,%Rsword`),1-,32)
set %shint` $gettok($read(pri.txt,%Rshint`),1-,32)
if ($gettok($read(pri.txt,2),1-,32) == $null) {
unset %sstop`
unset %Rsword`
unset %Rshint`
/unset %sword`
/unset %shint`
/unset %schan`
/unset %sranword`
/unset %score.*
halt
}
scramble.enter
}
alias scramble.tellans {
/msg %schan` 0,2 %sword` 15,2 الاجابه الصحيحه | unset %sword` | unset %shint`
.timerscramble.start 1 10 /scramble.start
}
alias scramble.stop {
msg %schan` 0,2 اللعبه انتهت
unset %sstop`
unset %Rsword`
unset %Rshint`
/unset %sword`
/unset %shint`
/unset %schan`
/unset %sranword`
/unset %score.*
.timerscramble.start off
.timerscramble.tellans off
}
alias scramble.enter {
if ($gettok($read(pri.txt,%Rshint`),1-,32) == $null) { /scramble.stop }
else {
set %sranword` $waroeng7( %sword` )
/msg %schan` 0,2 %shint` 15,2 :الســـــــــؤال
/msg %schan` 0,2 %sranword` 15,2 :الأجـــــابــــه
.timerscramble.tellans 1 40 /scramble.tellans
}
}
alias waroeng7 {
unset %w7.*
%w7.w = 1
:1
inc %w7.i
if (%w7.i > $len($gettok($1-,%w7.w,32))) goto 2
%w7.ls = %w7.ls $mid($gettok($1-,%w7.w,32),%w7.i,1)
goto 1
:2
%w7.l = $r(1,$gettok(%w7.ls,0,32))
if (%w7.i) {
%w7.wrd = %w7.wrd $gettok(%w7.ls,%w7.l,32)
unset %w7.i
}
else %w7.wrd = %w7.wrd $+ $gettok(%w7.ls,%w7.l,32)
if ($len($gettok(%w7.wrd,%w7.w,32)) == $len($gettok($1-,%w7.w,32))) {
if ($len(%w7.wrd) == $len($1-)) return %w7.wrd
inc %w7.w | %w7.ls = ""
goto 1
}
%w7.ls = $deltok(%w7.ls,%w7.l,32)
goto 2
}

on 1:text:*:#:{
if ($chan == %schan`) {
if (%sword` isin $strip($1-)) {
inc %score. [ $+ [ $nick ] ]
/msg %schan` 0,2 $nick 15,2 %sword` 0,2الاجابه صحيحه
/msg %schan` 0,2 $nick 15,2الان لديك0,2 %score. [ $+ [ $nick ] ] نقطه
unset %sword`
unset %shint`
.timerscramble.start 1 10 /scramble.start
.timerscramble.tellans off
}
}
}



ctcp 1:score: {
/notice $nick 0,2 $nick 15,2الان لديك0,2 %score. [ $+ [ $nick ] ] 15,2نقطه
}


اخوكم : الماجد

h,j, s;vhlfg u[df :> > h,fk s;vhlfg u[df












توقيع : ALMaJeD


عرض البوم صور ALMaJeD   رد مع اقتباس
قديم 04-16-2003, 03:20 AM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء
الصورة الرمزية
 
الصورة الرمزية The-Love

البيانات
التسجيل: Nov 2002
العضوية: 294
المشاركات: 80 [+]
بمعدل : 0.01 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
The-Love غير متصل
وسائل الإتصال:

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

مشكوووووووور كنت ادوره












توقيع : The-Love

-+-+-+-+-+-+-+-+-+-+-+-+-+
My
Nick
iN
--={ArabChat}=--
The-Love
-+-+-+-+-+-+-+-+-+-+-+-+-+
And
--={ANAChat}=--
WebMaster ,, The-Love
-+-+-+-+-+-+-+-+-+-+-+-+-+
Thanks FoR Visited N7eeeS Site .... Khaleed
-+-+-+-+-+-+-+-+-+-+-+-+-+

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

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

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

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


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


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

Site_Map


الساعة الآن 04:51 PM.


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