قديم 01-23-2003, 03:54 AM   المشاركة رقم: 1
المعلومات
الكاتب:
اللقب:
الاعضاء

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

الإتصالات
الحالة:
بياع الورد غير متصل
وسائل الإتصال:

المنتدى : برامج - سكربتات - اضافات ماسنجر
اوامر متعدده [الجزء الرابع ]

ما اتوقع اني احط لكم الجزء الخامس ولأن الاوامر البسيطه خلصت ... finish
--------------------------------------------------------------------------------------
هذا امر يعلمك متى انتهاء النك ويستخذم مع الانفو للنك

on *:notice:*:?:{
if ($nick == NickServ) {
if ( $1-3 == Last seen time ) { set %seendatex $gettok($mid($remove($1-,Last seen time :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),3,47) }
if ( $1-2 == Time now ) {
set %timenowx $gettok($mid($remove($1-,Time now :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),3,47)
set %exptimex $calc($calc($ctime(%seendatex) + 2592000)) | echo -a  $+ $colour(notice) $+ -NickServ- Nick's Expiry time: $asctime(%exptimex) GMT
if ($calc(%exptimex -$ctime(%timenow)) > 0) { echo -a  $+ $colour(notice) $+ -NickServ- The nick's expire : $duration($calc(%exptimex - $ctime(%timenowx))) }
if ($calc(%exptimex -$ctime(%timenow)) < 0) { echo -a  $+ $colour(notice) $+ -NickServ- Nick expires in: Past expirey time by $duration($remove($calc(%exptimex -$ctime(%timenowx)),-)) }
unset %nsaddy | unset %timenow | unset %exptime | unset %seendate
}
}
}


امر المترجم


on *oad:if ($version < 5.4) { echo 4 -a ** Error 2»»To use this script, you should have mIRC v5.4+«« | .unload -rs $script | halt } | if ($?!="Do you want to enable ara2eng convertor?") { .enable #ara2eng } | else { .disable #ara2eng } | .remote on
menu menubar,status,channel,query {
-
translator
.Transulation [[ $+ $group(#ara2eng) $+ ]:if ($group(#ara2eng) = on) { .disable #ara2eng } | else { .enable #ara2eng }
.Check ALL [[ $+ [ $iif($a2e-rini(words),$a2e-rini(words),10) ] $+ ] word(s):if ($$?="check first [N] words:" isnum 1-50) { a2e-wini words $! }
.channel Transulation - [[ $+ [ $iif($a2e-rini(colour) = 1,on,off) ] $+ ]:if ($a2e-rini(colour) = 1) { a2e-wini colour 0 } | else { a2e-wini colour 1 }
.-
.@Ara2Eng Window:a2e-win
}
alias a2e-win {
if ($window(@Ara2Eng) = $null) {
if ($a2e-rini(pos) = $null) { a2e-wini pos 100 100 450 300 }
window -de @Ara2Eng- $a2e-rini(pos) @Ara2Eng
echo 9 @Ara2Eng- * Double click?!
renwin @Ara2Eng- @Ara2Eng - Arabic to English
}
}
alias a2e-rini return $readini -n configs.ini ara2eng $1
alias a2e-wini writeini configs.ini ara2eng $1 *2
alias -l a2e-e2a {
if ($window(@Ara2Eng)) && ($window(@Eng2Ara) = $null) { renwin @Ara2Eng @Eng2Ara - English to Arabic }
elseif ($window(@Eng2Ara)) && ($window(@Ara2Eng) = $null) { renwin @Eng2Ara @Ara2Eng - Arabic to English }
}
menu @Ara2Eng {
dclick:a2e-e2a
$iif($active = @Ara2Eng,@Eng2Ara,@Ara2Eng):a2e-e2a
-
clear:clear
-
close:window -c $active
}
on *:input:@:if ($target = @Ara2Eng) { a2e *1 | halt } | elseif ($target = @Eng2Ara) { ara *1 | halt }
on *:close:@:if (($target = @Ara2Eng) || ($target = @Eng2Ara)) && ($window($target).state != maximized) { a2e-wini pos $window($target).x $window($target).y $window($target).w $window($target).h }
#ara2eng off
on *:text:*:*:checkara *1
on *:action:*:*:checkara *1
on *:chat:*:checkara *1
#ara2eng end
alias isara if ($asc($left($strip($1),1)) isnum 194-237) return $true
alias checkara oop | inc -u %ara.i | if ($isara($gettok($strip(*1),%ara.i,32),1)) { a2e *1 | return } | if (%ara.i < $iif($a2e-rini(words),$a2e-rini(words),10)) && (%ara.i < $gettok($strip(*1),0,32)) { goto loop }
alias -l getwindow return $iif($event = chat,=$nick,$iif(#,#,$iif($nick,$nick,-a)))
alias a2e echo $iif($a2e-rini(colour) = 1,$r(2,7),5) $getwindow < $+ $iif($nick,$nick,14CONVERT) $+ :10ARA2ENG> $replace($$remove($strip(*1),ـ,ء,ّ,َ,ً,ُ,ٌ,ِ,ٍ,~,ْ
,$null),ده,d'h,كه,k'h,سه,s'h,ته,t'h,أ,a,ا,a,إ,i,ب,
b,ت,t,ث,th,ج,j,ح,7,خ,kh,د,d,ذ,th,ر,r,ز,z,س,s,ش,sh,
ص,9,ض,dh,ط,6,ظ,`6,ع,3,غ,`3,ف,f,ق,q,ك,k,ل,l,م,m,ن,n
,ه,h,و,o,ي,i,ى,a,ؤ,o,ئ,a,؟,?,آ,a,ة,h,،,$chr(44))
;* You can type in Arabic using "/ara msg !msg", Tip: Use '!' as shown to prevent conversion.
alias ara {
oop | inc -u %ara.i1 | if ($left($gettok($strip(*1),%ara.i1,32),1) = !) && ($remove($gettok($strip(*1),%ara.i1,32),!) != $null) { set -u %ara.tok %ara.tok %ara.i1 } | if (%ara.i1 < $gettok($strip(*1),0,32)) { goto loop }
set -u %ara $ara2(*1) | oop2 | inc -u %ara.i2 | if ($gettok(%ara.tok,%ara.i2,32)) { set -u %ara $puttok(%ara,$remove($gettok($strip(*1),$ifmatch,3
2),!),$ifmatch,32) } | if (%ara.i2 < $gettok(%ara.tok,0,32)) { goto loop2 }
$iif($active = Status Window || $active = @Eng2Ara,echo [ $iif($a2e-rini(colour) = 1,$r(2,7),5) ] * 14CONVERT:10ENG2ARA:,say) %ara
}
alias ara2 return $replace($$remove($strip(*1),$null),th-,ث,- th,ث,'3,غ,`3,غ,'6,ظ,`6,ظ,'7,خ,`7,خ,'9,ض,`9,ض,3,ع,6
,ط,7,ح,9,ص,d'h,ده,g'h,قه,k'h,كه,s'h,سه,t'h,ته,dh,ض
,gh,غ,kh,خ,sh,ش,th,ذ,a,ا,b,ب,c,ك,d,د,e,ي,f,ف,g,ق,h
,ه,i,ي,j,ج,k,ك,l,ل,m,م,n,ن,o,و,p,ب,q,ق,r,ر,s,س,t,ت
,u,و,v,ف,w,و,y,ي,z,ز,?,؟)

h,hlv lju]]i Fhg[.x hgvhfu D hg[.x hgvhfu












عرض البوم صور بياع الورد   رد مع اقتباس
قديم 01-23-2003, 11:41 AM   المشاركة رقم: 2
المعلومات
الكاتب:
اللقب:
الاعضاء

البيانات
التسجيل: Sep 2002
العضوية: 104
المشاركات: 1,173 [+]
بمعدل : 0.18 يوميا
اخر زياره : [+]
معدل التقييم:
نقاط التقييم: 10
 

الإتصالات
الحالة:
JeKaR^Bs^7LoOo غير متصل
وسائل الإتصال:

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

يعطيك العافيه وماقصرت على هالاوامر الحلوه












توقيع : JeKaR^Bs^7LoOo

[FL=http://www.geocities.com/warnetq8/jekar.swf] width = 400 height = 45 [/FL]
My Email
JeKaR_Bs_7LoOo@hotmail.com

عرض البوم صور JeKaR^Bs^7LoOo   رد مع اقتباس
إضافة رد

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

الكلمات الدلالية (Tags)
متعدده, الجزء, الرابع, اوامر

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


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


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

Site_Map


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


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