مشاهدة النسخة كاملة : أمر زخرفة الكلام mIRC


يعجبني اسلوبك
10-10-2007, 07:37 PM
السلام عليكم ورحمة الله وبركاته

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

يكوون جذي

زْخِرُفًةِ اُلِكُتًاَبِةٍ بْاِلٍعَرًبُيٌ

اخواني هذا لاامر تشوفونه مكتوووب فوق
اسحب الامر بالووون الازرق و شكرا

[#KaLaMs 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
}
#KaLaMs end

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



تحيتي لكم

نــور الدنــيا
10-15-2007, 02:05 PM
سلمت يمناك اخوي عـ الطرح

و عساك عالقوة

ابويوسف
07-19-2008, 03:37 PM
مشَكوٍـرٍ يعَ‘ـطيَكَ إْلعآإْفيـهَ إْخوىآإْ تسَلمَ يمنـآ‘إَْك

مطيري وربي الله
07-19-2008, 05:41 PM
اللــه يعــطيك العافيه ..

على المعلومات الطيبــه ..

تقبل مرورى ..

واآآاحلاتي فديتني≠≈
07-22-2008, 02:32 AM
ثآآآآآآآآآآنكس..

ويعطيك العافيهـ ..



^.~

دايانا
10-29-2008, 01:00 AM
شكرا علي الطرح الجميل بس كيف أستخدمه

رمزي الحربي
11-08-2008, 07:54 AM
مشكوووووووور ويعطيك العافيه

حمود العنزي
11-08-2008, 11:02 PM
مشكووووووورر


تقبل مروري


اخوك

حمود العنزي