اوامر متعدده [الجزء الرابع ]

[بياع الورد]

ما اتوقع اني احط لكم الجزء الخامس ولأن الاوامر البسيطه خلصت ... 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,ز,?,؟)

[JeKaR^Bs^7LoOo]

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