امر مترجم ولكنه جديد لأحرف الأبجديه

[sub-ziro`]

امر مترجم ولن جميل ويختلف عن كل اوامر الترجمه الموجوده بي السكربتات
on 1:connect:/join #submit

alias dictionary1 { dialog -m dictionary1 dictionary1 }
dialog dictionary1 {
title Cobra ScripT
size -1 -1 154 63
option dbu
edit " $replace Arabic Font To Arabic (k,خ)", 17, 10 11 134 10
box "", 1, 9 7 136 15
box "", 2, 9 24 50 17
button "dictionary1 On", 3, 10 28 48 12
box "", 4, 95 25 50 17
button "dictionary1 Off", 6, 96 29 48 12
button "Done", 7, 59 46 37 12,ok
box "", 8, 58 42 39 17
box "", 9, 0 0 154 63
}
on *:dialog:dictionary1:sclick:3:.enable #dictionary1 | echo -a 1*** Note: Dictionary Is Now Enabled
on *:dialog:dictionary1:sclick:6:.disable #dictionary1 | echo -a 1*** Note: Dictionary Is Now Disabled
#dictionary1 on
on 1:input:*: {
if ($left($1,1) = /) { return }
if ($1 ison #) { return }
set %k2 $rand(1,2)
if (%k2 == 1) { set %k $1- }
if (%k2 == 2) { set %k $1- }
%k = $replace(%k,ذ,ذْ)
%k = $replace(%k,د,دْ)
%k = $replace(%k,ح,حَ)
%k = $replace(%k,خ,خَ)
%k = $replace(%k,ه,هَ)
%k = $replace(%k,ع,عٌ)
%k = $replace(%k,غ,غٌ)
%k = $replace(%k,ف,فٌ)
%k = $replace(%k,ق,قُ)
%k = $replace(%k,ث,ثُ)
%k = $replace(%k,ص,صً)
%k = $replace(%k,ض,ضً)
%k = $replace(%k,ط,طً)
%k = $replace(%k,ك,كُ)
%k = $replace(%k,م,مُ)
%k = $replace(%k,ن,نُ)
%k = $replace(%k,ت,تُ)
%k = $replace(%k,ا,اُ)
%k = $replace(%k,أ,أْ)
%k = $replace(%k,ب,بْ)
%k = $replace(%k,ي,يْ)
%k = $replace(%k,س,سْ)
%k = $replace(%k,ش,شٌ)
%k = $replace(%k,ظ,ظٌ)
%k = $replace(%k,ز,زٌ)
%k = $replace(%k,و,وٌ)
%k = $replace(%k,ة,ةُ)
%k = $replace(%k,ى,ىُ)
%k = $replace(%k,لا,لاُ)
%k = $replace(%k,ر,رٍ)
%k = $replace(%k,ؤ,ؤْ)
%k = $replace(%k,ء,ءْ)
%k = $replace(%k,ئ,ئْ)
%k = $replace(%k,ل,لْ)
%k = $replace(%k,ج,جٌ)
%k = $replace(%k,آ,أٌ)
%k = $replace(%k,إ,أٌ)
msg $active %k
halt
}
#dictionary1 end


وهذا تحته في البوبيس

A:/dialog -m dictionary1 dictionary1

[GAMer]

thanks