هذا أمر للألوان
;--[ auto color 1.0 ]-----------------------------
; autor: Hackin
; email: [email protected]
; website: www.hackin.net
; contacts: Dalnet Network(irc.dal.net) on #mask #sorry #feat
;---------------------------------------------------------------------------------------------
on *:load: {
echo $color(info) *** auto color 1.0 by HacKin loaded!
echo $color(info) *** command: /acolor
set %ac.status off
set %ac.text 1
set %ac.back 0
}
alias acolor { dialog -m acolor acolor }
dialog acolor {
title "auto color 1.0"
size -1 -1 169 109
box "setup", 1, 6 5 80 69
text "text:", 2, 16 27 22 13
edit "", 3, 51 20 25 22, center multi return
text "back:", 4, 16 50 29 13
edit "", 5, 51 43 25 22, center multi return
box "additional", 6, 84 5 79 69
check "bold", 7, 94 27 43 13
check "underline", 8, 94 49 61 13
button "preview", 9, 21 82 55 20
button "done", 10, 93 82 55 20, ok
box "", 11, -1 -6 171 116
}
on *:dialog:acolor:*:*: {
if $devent = init {
did -a $dname 3 %ac.text
did -a $dname 5 %ac.back
if (%ac.bold == on) { did -c $dname 7 }
if (%ac.underline == on) { did -c $dname 8 }
}
if $devent = edit {
if $did = 3 { set %ac.text $did(3).text }
if $did = 5 { set %ac.back $did(5).text }
}
if $devent = sclick {
if $did = 7 {
if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2 }
if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 }
}
if $did = 8 {
if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2 }
if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 }
}
if $did = 9 { echo -a $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ test! }
}
}
#acolor on
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt }
#acolor end
alias ac.on { set %ac.status on | .enable #acolor }
alias ac.off { set %ac.status off | .disable #acolor }
menu status,menubar,channel {
auto color 1.0
.config:acolor
.-
.set on:ac.on
.set off:ac.off
.status - %ac.status:echo -a Status: %ac.status
.-
.about :echo $color(info) *** auto color 1.0 by hackin
}
اوكي وهذا الأمر رفنجججج شقاقي
on 1:INVITE:*:{ if ( $nick == chanserv ) { /join $chan } }
on 1:OP:%cenchankick:{ if ($opnick == $me ) { raw -q mode $chan -o+b %cennick %cennick | raw -q kick %cenchankick %cennick : %iRcW 6Don't Touch my Nick } }
on @1:join:%cenchankick:{ if ($nick == %cennick ) { raw -q mode $chan -o+b %cennick %cennick | raw -q kick %cenchankick %cennick : %iRcW 1.. 6ok1 ? | unset %cennick | unset %cenchankick } }
on 1:NOTICE:*If this is your nick*:?:{
if ($nick == Nickserv) { if %nspw != $null { /.msg NickServ identify %nspw }
اوكي وهذا الأمر صائد للكلون
clonedetect on
ON 1:JOIN:#: {
/set %join1 $address($nick,2)
/set %name 0
/set %clone $nick
:step1
inc %name 1
if (%name <= $nick(0,$chan) && $nick(%name,$chan) != $nick) {
/set %join2 $address($nick(%name,$chan),2)
if (%join1 == %join2) {
%clone = %clone ] 4Are Clones 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1
H0ack 4,1^=-
:end
}
}
#clonedetect end
وهذا الأمر طرد ماس الإنفايت
on *:load:{
echo -a 12You are using mIRC $version Join/Part Ban has only been tested with mIRC 5.81, i can't guarantee proper operation with other versions.Thanks for using it, Oz :)
}
menu channel,menubar,status {
Revolving Door Ban
.Revolving Door Kick
..Revolving Door On:/.enable #Revolvingdr | /echo -a 10Revolving Door Protection is now12 On
..Revolving Door Off:/.disable #Revolvingdr | /echo -a 10Revolving Door Protection is now12 Off
.Set Ban Msg:/set %banmsg $$?=" $+ Enter Your Ban Message"
.Ban Time
..1 Minute:/set %bantm -u60 | /echo -a Ban Time Is 1 Minute
..2 minutes:/set %bantm -u120 | /echo -a Ban Time Is 2 Minutes
..5 minutes:/set %bantm -u300 | /echo -a Ban Time Is 5 Minutes
..10 minutes:/set %bantm -u600 | /echo -a Ban Time Is 10 Minutes
}
#Revolvingdr on
on @*:join:#: { set -u6 %close. [ $+ $target $+ $+ [ $chan ] ] 1 }
on @*:part:#: {
if (%close. [ $+ $target $+ $+ [ $chan ] ] && %close.seeif == $null) {
set -u6 %close.seeif 1
ban %bantm # $nick 3
.notice $nick %banmsg
.echo -a Revolving Door Ban Has Been Set
}
}
وهذا الأمر حماية من الفلووووووووود خطير
Method #1
on *:quit: {
if ($nick ison #channel && $me isop #channel) {
if (%quit-flood. [ $+ [ $wildsite ] ] == $null) {
set -u10 %quit-flood. [ $+ [ $wildsite ] ] 1
return
}
else { inc %quit-flood. [ $+ [ $wildsite ] ] }
if (%quit-flood. [ $+ [ $wildsite ] ] > 4 && %quit-flood.check == $null) {
set -u8 %quit-flood.check 1
raw -q mode #channel +bbcR *!~*@* $wildsite
notice @ $+ #channel Banning *!~*@* and $wildsite due to possible clone floods...
}
}
on @*:join:#channel: {
var %id = *!~*@* , %fa = $fulladdress
if (%fa iswm %id) {
if (%id. [ $+ [ $wildsite ] ] == $null) {
set -u10 %id. [ $+ [ $wildsite ] ] 1
return
}
else { inc %id. [ $+ [ $wildsite ] ] }
if (%id. [ $+ [ $wildsite ] ] > 3 && %id-check == $null) {
set -u8 %id-check 1
raw -q mode # +bbcR *!~*@* $wildsite
.notice # Bans and modes auto set due to possible floods, please be patient. Thank you.
.timer_id-flood 1 30 raw -q mode # -bcR *!~*@*
}
}
}
وهذا الأمر إقنور إنفايت مسج
#Pornblock on
on 1pb:OPEN:?: {
if ( *@discover* isin $pmsg ) goto Msg
if ( *leach* isin $pmsg ) goto Msg
if ( *#* isin $pmsg ) goto pornmsg
if ( sex isin $pmsg ) goto pornmsg
if ( *hardcore* isin $pmsg ) goto pornmsg
if ( *http* isin $pmsg ) goto pornmsg
if ( *www* isin $pmsg ) goto pornmsg
else { halt }
:pornmsg
msg $nick 9,1 -={7 Your message has been 9ignored 7,1(8,1suspected porn advertising. So get a life7,1) 9}=-
timer 1 .1 closemsg $nick
halt
:msg
timer 1 .1 closemsg $nick
halt
}
#Pornblock end
بس خلاص واي شي تبونه انشالله اكون قادر على هالشي
;--[ auto color 1.0 ]-----------------------------
; autor: Hackin
; email: [email protected]
; website: www.hackin.net
; contacts: Dalnet Network(irc.dal.net) on #mask #sorry #feat
;---------------------------------------------------------------------------------------------
on *:load: {
echo $color(info) *** auto color 1.0 by HacKin loaded!
echo $color(info) *** command: /acolor
set %ac.status off
set %ac.text 1
set %ac.back 0
}
alias acolor { dialog -m acolor acolor }
dialog acolor {
title "auto color 1.0"
size -1 -1 169 109
box "setup", 1, 6 5 80 69
text "text:", 2, 16 27 22 13
edit "", 3, 51 20 25 22, center multi return
text "back:", 4, 16 50 29 13
edit "", 5, 51 43 25 22, center multi return
box "additional", 6, 84 5 79 69
check "bold", 7, 94 27 43 13
check "underline", 8, 94 49 61 13
button "preview", 9, 21 82 55 20
button "done", 10, 93 82 55 20, ok
box "", 11, -1 -6 171 116
}
on *:dialog:acolor:*:*: {
if $devent = init {
did -a $dname 3 %ac.text
did -a $dname 5 %ac.back
if (%ac.bold == on) { did -c $dname 7 }
if (%ac.underline == on) { did -c $dname 8 }
}
if $devent = edit {
if $did = 3 { set %ac.text $did(3).text }
if $did = 5 { set %ac.back $did(5).text }
}
if $devent = sclick {
if $did = 7 {
if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2 }
if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 }
}
if $did = 8 {
if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2 }
if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 }
}
if $did = 9 { echo -a $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ test! }
}
}
#acolor on
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt }
#acolor end
alias ac.on { set %ac.status on | .enable #acolor }
alias ac.off { set %ac.status off | .disable #acolor }
menu status,menubar,channel {
auto color 1.0
.config:acolor
.-
.set on:ac.on
.set off:ac.off
.status - %ac.status:echo -a Status: %ac.status
.-
.about :echo $color(info) *** auto color 1.0 by hackin
}
اوكي وهذا الأمر رفنجججج شقاقي
on 1:INVITE:*:{ if ( $nick == chanserv ) { /join $chan } }
on 1:OP:%cenchankick:{ if ($opnick == $me ) { raw -q mode $chan -o+b %cennick %cennick | raw -q kick %cenchankick %cennick : %iRcW 6Don't Touch my Nick } }
on @1:join:%cenchankick:{ if ($nick == %cennick ) { raw -q mode $chan -o+b %cennick %cennick | raw -q kick %cenchankick %cennick : %iRcW 1.. 6ok1 ? | unset %cennick | unset %cenchankick } }
on 1:NOTICE:*If this is your nick*:?:{
if ($nick == Nickserv) { if %nspw != $null { /.msg NickServ identify %nspw }
اوكي وهذا الأمر صائد للكلون
clonedetect on
ON 1:JOIN:#: {
/set %join1 $address($nick,2)
/set %name 0
/set %clone $nick
:step1
inc %name 1
if (%name <= $nick(0,$chan) && $nick(%name,$chan) != $nick) {
/set %join2 $address($nick(%name,$chan),2)
if (%join1 == %join2) {
%clone = %clone ] 4Are Clones 4,1 -=^ 14,1S14,10cr15i0pt4_15,1I0R14C^15,115,1
H0ack 4,1^=-
:end
}
}
#clonedetect end
وهذا الأمر طرد ماس الإنفايت
on *:load:{
echo -a 12You are using mIRC $version Join/Part Ban has only been tested with mIRC 5.81, i can't guarantee proper operation with other versions.Thanks for using it, Oz :)
}
menu channel,menubar,status {
Revolving Door Ban
.Revolving Door Kick
..Revolving Door On:/.enable #Revolvingdr | /echo -a 10Revolving Door Protection is now12 On
..Revolving Door Off:/.disable #Revolvingdr | /echo -a 10Revolving Door Protection is now12 Off
.Set Ban Msg:/set %banmsg $$?=" $+ Enter Your Ban Message"
.Ban Time
..1 Minute:/set %bantm -u60 | /echo -a Ban Time Is 1 Minute
..2 minutes:/set %bantm -u120 | /echo -a Ban Time Is 2 Minutes
..5 minutes:/set %bantm -u300 | /echo -a Ban Time Is 5 Minutes
..10 minutes:/set %bantm -u600 | /echo -a Ban Time Is 10 Minutes
}
#Revolvingdr on
on @*:join:#: { set -u6 %close. [ $+ $target $+ $+ [ $chan ] ] 1 }
on @*:part:#: {
if (%close. [ $+ $target $+ $+ [ $chan ] ] && %close.seeif == $null) {
set -u6 %close.seeif 1
ban %bantm # $nick 3
.notice $nick %banmsg
.echo -a Revolving Door Ban Has Been Set
}
}
وهذا الأمر حماية من الفلووووووووود خطير
Method #1
on *:quit: {
if ($nick ison #channel && $me isop #channel) {
if (%quit-flood. [ $+ [ $wildsite ] ] == $null) {
set -u10 %quit-flood. [ $+ [ $wildsite ] ] 1
return
}
else { inc %quit-flood. [ $+ [ $wildsite ] ] }
if (%quit-flood. [ $+ [ $wildsite ] ] > 4 && %quit-flood.check == $null) {
set -u8 %quit-flood.check 1
raw -q mode #channel +bbcR *!~*@* $wildsite
notice @ $+ #channel Banning *!~*@* and $wildsite due to possible clone floods...
}
}
on @*:join:#channel: {
var %id = *!~*@* , %fa = $fulladdress
if (%fa iswm %id) {
if (%id. [ $+ [ $wildsite ] ] == $null) {
set -u10 %id. [ $+ [ $wildsite ] ] 1
return
}
else { inc %id. [ $+ [ $wildsite ] ] }
if (%id. [ $+ [ $wildsite ] ] > 3 && %id-check == $null) {
set -u8 %id-check 1
raw -q mode # +bbcR *!~*@* $wildsite
.notice # Bans and modes auto set due to possible floods, please be patient. Thank you.
.timer_id-flood 1 30 raw -q mode # -bcR *!~*@*
}
}
}
وهذا الأمر إقنور إنفايت مسج
#Pornblock on
on 1pb:OPEN:?: {
if ( *@discover* isin $pmsg ) goto Msg
if ( *leach* isin $pmsg ) goto Msg
if ( *#* isin $pmsg ) goto pornmsg
if ( sex isin $pmsg ) goto pornmsg
if ( *hardcore* isin $pmsg ) goto pornmsg
if ( *http* isin $pmsg ) goto pornmsg
if ( *www* isin $pmsg ) goto pornmsg
else { halt }
:pornmsg
msg $nick 9,1 -={7 Your message has been 9ignored 7,1(8,1suspected porn advertising. So get a life7,1) 9}=-
timer 1 .1 closemsg $nick
halt
:msg
timer 1 .1 closemsg $nick
halt
}
#Pornblock end
بس خلاص واي شي تبونه انشالله اكون قادر على هالشي
تعليق