الكتابه بزخرفه

[AL7OOT]

هذا امر الكتابه بزخرفه انشالله يعجبكم



#3sl on
on 1:INPUT:*: {
if ($left($1,1) = /) { return }
if ($1 ison $chan) { return }
set %mote $rand(1,1)
if (%mote == 1) { set %tupac $1- }
%tupac = $replace(%tupac,ذ,ذُ)
%tupac = $replace(%tupac,د,دَ)
%tupac = $replace(%tupac,ج,جّ)
%tupac = $replace(%tupac,ح,حٍ)
%tupac = $replace(%tupac,خ,خٌ)
%tupac = $replace(%tupac,ه,هُ)
%tupac = $replace(%tupac,ع,عْ)
%tupac = $replace(%tupac,غ,غَ)
%tupac = $replace(%tupac,ف,فَ)
%tupac = $replace(%tupac,ص,صَ)
%tupac = $replace(%tupac,ض,ضَ)
%tupac = $replace(%tupac,ش,شُ)
%tupac = $replace(%tupac,س,سَ)
%tupac = $replace(%tupac,ي,يِ)
%tupac = $replace(%tupac,ب,بُ)
%tupac = $replace(%tupac,ت,تٌ)
%tupac = $replace(%tupac,ن,نَ)
%tupac = $replace(%tupac,م,مِ)
%tupac = $replace(%tupac,ك,كُ)
%tupac = $replace(%tupac,ئ,ئُ)
%tupac = $replace(%tupac,ء,ءَ)
%tupac = $replace(%tupac,ؤ,ؤُ)
%tupac = $replace(%tupac,ر,رِ)
%tupac = $replace(%tupac,ى,ىَ)
%tupac = $replace(%tupac,ة,ة)
%tupac = $replace(%tupac,و,وِ)
%tupac = $replace(%tupac,ز,زَ)
%tupac = $replace(%tupac,ظ,ظَ)
msg $active %Tupac
halt
}
#3sl end

menu Status,menubar,channel {
-
!الكتابة باحرف مزخرفه!
.On:/.enable #3sl off
.Off:/.disable #3sl end
}

[JeKaR^Bs^7LoOo]

مشكور ويعطيك الف الف الف عافيه على المواضيع الحلوه