اوامر حلييوه

[AL_MAR3OoB]

;================================================;
; This Add-ons Written By AL_MAR3OoB ;
; Put This Add-ons In Remote ;
; E-Mail: al_pasha@HotMaiL.com ;
; Join #كويت0 In DalNet Server For Any Help ;
;================================================;

dialog t2chr {
title "(I-------------------- $chr Command -------------------I)"
option dbu
size -1 -1 160 80
box "(I------------------------------------ اكتب الجملة ------------------------------------I)", 2, 4 4 152 32
edit "", 3, 8 13 144 20, multi autovs
box "(I----------------------- الـشفـرات -----------------------I)", 4, 4 38 110 40
edit "", 5, 6 46 107 30, multi vsbar read
button "(I-- تحويل --I)", 7, 120 42 35 10
edit "By AL_MAR3OoB", 8, 120 65 35 10,read,center
button "(I-- اغـلاق --I)", 6, 120 52 35 10, ok
}

on *:dialog:t2chr:sclick:7:{
unset %{1} %{2} %{3}
var %chr.2 = $did(3).lines
var %chr.1 = 1
while (%chr.1 <= %chr.2) {
var %chr.msg = %chr.msg $did(3,%chr.1).text
inc %chr.1
}
set %{1} %chr.msg | set %{1} $left(%{1},200) | set %{2} 1
:loop
set %{3} %{3} $!chr( $+ $asc($mid(%{1},%{2},1)) $+ ) $iif($mid(%{1},$calc(%{2} + 1),1) != $null,$!+) | inc %{2}
if ( $mid(%{1},%{2},1) != $null) { goto loop }
did -ra t2chr 5 %{3} | halt
}
menu status,menubar {
Text 2 Char:/dialog -ma t2chr t2chr
}

-----------------------------------------------------------------------------------

revenge off
on 1 kick:#:if ($knick == $me) && ($nick !== ChanServ) { .set %k $nick | .set %k # | chanserv deop %k %newnick | halt }
On 1:join:#:if (%newnick ison $chan) { .kick # %newnick Http://Go.To/K_No_MerSy Revenger | halt }
On @1:op:#:{ if (%newnick ison #) && ($me isop #) { .kick %k %newnick %a | halt } }
On 1:rawmode:#:{
if (-o isin $1-) && ($2 == $me) && ($me !isop #) { .chanserv op # $me | halt }
}
#revenge end

menu channel,status,menubar {
-
Revenge&Kick
.Enable:.enable #revenge | echo -a *** Revenge Kick Is Now On .. Http://Go.To/K_No_MerSy
.Disable:.disable #revenge | echo -a *** Revenge Kick Is Now Off .. Http://Go.To/K_No_MerSy
}



on @*:part:#: {
if (%rvdban == on) {
if (%door. [ $+ [ $wildsite ] $+ . $+ [ $chan ] ] && %door.check == $null) {
set -u6 %door.check 1
ban -u60 # $nick 2
.notice $nick 14R15e4v14o15l7v14i15n4g 14D15o4o15r 7P15r14o15t4e15c14t15i7o14n 15B4a14n 15S7e14t 15O7n 14Y15o4u %stone
}
}
}

---------------------------------------------------------------------------

on *:quit:{
if (Excess flood isin $1-) && ($me isop #) {
set -u1800 %excessflood. [ $+ [ $address($1,2) ] ] $calc( %excessflood. [ $+ [ $address($1,2) ] ] + 1)
if (%excessflood. [ $+ [ $address($1,2) ] ] == 2) {
ban -u120 #channel $address($1,2)
kick $nick Excess Flood Quit Msg
}
}
}

[DenGar]

مشكور ما تقصر على الامر

[KinG-Night]

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