امر زقرتي :)

[S2`]

هذا الامر من تصميم يلونك الي يدشون والي يطلعون ولي يفترون ولي يتكلمون وليييييي ...... الخ وانشاءالله يعجبكم

;############################################
;#
;# Thank you for using
;# my addon and have nice with it
;# For need help send me email To:
;# onm@hotmail.com;#
;##############################################
#Color[Join\Nick\text\Part\Quit..] on
On ^*:join:#:{ IF ($nick != $me) { set %joiningn Join | var %nc = $rand(1,$len(%joiningn)) | echo -t $chan * $+($chr(2),$chr(91),$chr(2)) $+ $left(%joiningn,$calc(%nc - 1)) $+ $chr(31) $+ 12 $+ $mid(%joiningn,%nc,1) $+  $+ $chr(15) $+ $right(%joiningn,$calc($len(%joiningn) - %nc)) $+ $+($chr(2),$chr(93),$chr(2)) $nick ( $+ $iif($address($nick,0) == $null,$replace($wildsite,@,12@,.,.),$replace($ remove($address($nick,0),!,*),@,12@,.,.)) $+ ) [ $+ # $+ ] | haltdef } }
On ^*:part:#:{ IF ($nick != $me) { set %Partingn Part | var %nc = $rand(1,$len(%Partingn)) | echo -t $chan * $+($chr(2),$chr(91),$chr(2)) $+ $left(%Partingn,$calc(%nc - 1)) $+ $chr(31) $+ 4 $+ $mid(%Partingn,%nc,1) $+  $+ $chr(15) $+ $right(%Partingn,$calc($len(%joiningn) - %nc)) $+ $+($chr(2),$chr(93),$chr(2)) $nick ( $+ $iif($address($nick,0) == $null,$replace($wildsite,@,4@,.,.),$replace($r emove($address($nick,0),!,*),@,4@,.,.)) $+ ) $iif($1 != $null,$+($chr(2),$chr(40),$chr(2),$replace($strip( $1-),$chr(35),$chr(22) $+ $chr(35) $+ $chr(22)),$chr(2),$chr(41),$chr(2)) ) [ $+ # $+ ] | haltdef } }
on ^*:quit:{ IF ($nick != $me) { var %p = $comchan($nick,0) | while (%p) { set %Quitingn Quit | var %nc = $rand(1,$len(%Quitingn)) | echo $comchan($nick,%p) * $+($chr(2),$chr(91),$chr(2)) $+ $left(%Quitingn,$calc(%nc - 1)) $+ $chr(31) $+ 3 $+ $mid(%Quitingn,%nc,1) $+  $+ $chr(15) $+ $right(%Quitingn,$calc($len(%joiningn) - %nc)) $+ $+($chr(2),$chr(93),$chr(2)) $nick ( $+ $iif($address($nick,0) == $null,$replace($wildsite,@,3@,.,.),$replace($r emove($address($nick,0),!,*),@,3@,.,.)) $+ ) $iif($1 != $null,$+($chr(2),$chr(40),$chr(2),$1-,$chr(2),$chr(41),$chr(2))) | dec %p | haltdef } } }
On ^*:kick:#:{ IF ($knick != $me) { set %kickedingn kicked | var %nc = $rand(1,$len(%kickedingn)) | echo -t $chan * [ $+ $+ $knick $+ ] $+($chr(2),$chr(91),$chr(2)) $+ was $left(%kickedingn,$calc(%nc - 1)) $+ $chr(31) $+ 3 $+ $mid(%kickedingn,%nc,1) $+  $+ $chr(15) $+ $right(%kickedingn,$calc($len(%kickedingn) - %nc)) $+ $+($chr(2),$chr(93),$chr(2)) By ( $+ $nick $+ ) (1 $+ $1- $+ ) | haltdef } }
On ^*:nick:{ If ($nick == $me) { echo -a $+($chr(3),$color(mode)) * Your nick is now $newnick } | set %Nickingn Nick | var %nc = $rand(1,$len(%Nickingn)) | set %anick $comchan($newnick,0) | while (%anick) { echo -t $comchan($newnick,%anick) * $+($chr(2),$chr(91),$chr(2)) $+ $left(%Nickingn,$calc(%nc - 1)) $+ $chr(31) $+ 7 $+ $mid(%Nickingn,%nc,1) $+  $+ $chr(15) $+ $right(%Nickingn,$calc($len(%joiningn) - %nc)) $+ $+($chr(2),$chr(93),$chr(2)) (3 $+ $nick $+ ) Is Now known as [7 $+ $newnick $+ ] | dec %anick } haltdef }
On ^*:Notice:*:?:{
If ($nick == ChanServ) || ($nick == nickserv) || ($nick == MemoSerV) { return }
If ($comchan($Nick,0) == 0) { set %Noticeingn Notice | var %nc = $rand(1,$len(%Noticeingn)) | echo -a * $+($chr(2),$chr(91),$chr(2)) $+ $left(%Noticeingn,$calc(%nc - 1)) $+($chr(31),$chr(3),$color(Notice)) $+ $mid(%Noticeingn,%nc,1) $+  $+ $chr(15) $+ $right(%Noticeingn,$calc($len(%Noticeingn) - %nc)) $+ $+($chr(2),$chr(93),$chr(2)) $+($chr(3),$color(Notice)) $+ $+(-,$nick,-)) ( $+ $+($chr(3),$color(Notice)) $1- $+ ) }
else {
set %Noticeingn Notice
var %nc = $rand(1,$len(%Noticeingn))
set %anick $comchan($Nick,0)
while (%anick) {
echo -t $comchan($Nick,%anick) * $+($chr(2),$chr(91),$chr(2)) $+ $left(%Noticeingn,$calc(%nc - 1)) $+ $chr(31) $+ $+($chr(3),$color(Notice)) $+ $mid(%Noticeingn,%nc,1) $+  $+ $chr(15) $+ $right(%Noticeingn,$calc($len(%Noticeingn) - %nc)) $+ $+($chr(2),$chr(93),$chr(2)) $+($chr(3),$color(Notice)) $+ $+(-,$nick,-)) ( $+ $+($chr(3),$color(Notice)) $+ $1- $+ )
dec %anick
}
haltdef
}
}
On ^*:text:*:#:{
echo -t # * $iif($comchan($nick,0) > 1,[# $+ $calc($comchan($nick,0) - 1) $+ ]) ( $+ $iif($nick isop $chan,4@,$iif($nick isvoice $chan,10±)) $+  $+ $iif($nick isNotify,$chr(3) $+ $color(Notify),$iif($nick isProtect,$chr(3) $+ 5))) $+ $nick $+ ) $1-
haltdef
}
On ^*:text:*:?:{
echo $nick $iif($comchan($nick,0) > 1,[# $+ $calc($comchan($nick,0) - 1) $+ ]) ( $+  $+ $iif($nick isNotify,$chr(3) $+ $color(Notify),$iif($nick isProtect,$chr(3) $+ 5))) $+ $nick $+ ) $1-
haltdef
}
#Color[Join\Nick\text\Part\Quit..] end

menu channel,menubar,status {
Color [Join\Part\Quit\Nick…]
.On:enable #Color[Join\Nick\text\Part\Quit..]
.Off:disable #Color[Join\Nick\text\Part\Quit..]
}

[][..صـاحبة السمـو..][]

تسلم اخوي عالامر

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

وعساك عالقوة

[ديــمــا]

السلام عليكم ورحمة الله وبركاته

تحيه طيبه بالمسك والعنبر ابعثها لك اخي

S2

الله يعطيك العافيه على طرحك لهذا الامر

اتمنى ان يستفيد منه الجميع

ننتظر المزيد

ودمت كما تتمنى

اختك في الله ديــمــا

[Q87ob]

S2`

اسعد الله اوقاتك اخي الفاضل

بارك الله فيك وجزاك الله الف خير

على مجهودك الطيب ونشاطك الملحوظ

واشكرك على الموضوع والاوامر الرائعه

ونشاءلله تكون في ميزان حسناتك

نور الله وجهكم بنور الايمان وطاعة الرحمن

وننتظر منك المزيد كما عودتنا دائما

تحياتي لك اختك كويت حب

[abdullah]

يسلموو صديقي الصدوق:p