السلام عليكم ورحمة الله وبركاته
م ن ق و ل
/who +Mh ip البحث عن النك بالايبي
+++++ /who #chan *ip*
/who +Mu user id البحث عن النك من اليوزر ايدي
«بحث النك من الايبي»:set %zaid *!*@ $+ $$?"Enter IP or Host" | //echo -a %zaid -=> [ $ialchan(%zaid,$chan,1).nick بيوبز
==================================================
======
/hop خروج ثم دخول الجنل
====================================
on @1:ban:#:{
set %centerbanflterkicknober 1
goto kick
:kick
set %centerbanflterkick $ialchan($banmask,#,%centerbanflterkicknober).nick
if (%centerbanflterkick == $null ) { goto end }
if (%centerbanflterkick isop #) { echo -a %logo 4 OP Ban $banmask in $chan | notice @ $+ # 4Ops %logo 4 Warning $nick OP Ban $banmask in Channel %logo | goto end }
kick # %centerbanflterkick %logo 4ThiS iP 1 ( $+ $banmask $+ ) 4WaS Ban By 1 ( $+ $Nick $+ )
inc %centerbanflterkicknober 1
goto kick
:end
unset %centerbanflterki*
} فلتر باند
==================================================
=============================
.inc %times
مرة [ %times ] عدد المرات التي تم استخدام السكربت فيها
%times بالفاريابليس
==================================================
=====================
Nick = $me
IP= $ip
Date = $day of the $date
Time = $time
========================
on 1:text:*: if ($me isin $1-) && ($active != $chan) { echo -a $nick $chan $1- } كلام موجه لك بالجنل الغير موجود فيها حاليا
==================================================
=============================================
on 1:START: {
echo -s كلام
echo -s كلام
}
ترحيب عند البدايه
==================================================
===============================
/ignore -t nick Ctcp اقنور
/ignore -i nick اقنور انفايت
/ignore -n nick اقنور نوتس
/ignore -p nick اقنور برايفت
/ignore -c chan اقنور بالجنل
================================================
on 1:open:?:/msg $nick thanx to praivet me ترحيب عند فتح البرايفت
===============================================
on 1:start:{ title } بالرموت
/title {
.titlebar word
.timer 1 1 titlebar word
.timer 1 2 titlebar word
.timer 1 3 titlebar word
.timer 1 4 titlebar word
} حركه التيتلبار السس
==================================================
on 1:text:*بنج*:*:/ctcp $nick ping
on 1:text:*بنج*:*:/ctcp $nick ping | /notice $nick انا معطيك بنج
اوتو بنج
==================================================
================
on 1@:TEXT:*السبه*:#:/ban $chan $nick | /kick $chan $nick لاتسب
==================================================
=====================
on 1:text:*#*:#:/ban $chan $nick | /kick $chan $nick ممنوع الانفايت
==================================================
======================
on 1:text:الكلمه:#:/msg $chan الرد $nick
==================================================
===================
ctcp 1:ping:?:{ /notice $nick تسلم على البنج بس لا تتعود وايد %doos | /whois $nick |
/CTCPREPLY $nick PING $calc($2 - 10000) | halt }
}
} شكر على البنج
========================
on *:open:?:/msg $nick 4انا ما استقبل برايفت حاليا | /close -m $nick
========================
on *:INPUT:*:{
if ($left($1,1) = /) { return }
if ( $1- == wb ) { msg $active 4W1elcome 4B1ack | halt } اختصارات
++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++
on *:INPUT:*:{
if ($left($1-,1) != /) goto ok | else goto end
:ok
set %speak $1-
if ($istok(%speak,سلام,32) = $true) { %speak = $replace(%speak,سلام, السَّلامُ عَلَيْكُمْ ) }
.say %speak | halt
:end
}
==================================================
================================
==================================================
======
raw 311:*:echo $active 12»»12»» %logo 12 $+ WHOIS | 12 $+ $parm2 $+ | echo $active 12»»»» :12 $+ Address $+ 12: $parm3 $+ @ $+ $parm4 | echo $active 12»»12»»12 :12 $+ IRCname $+ 12: $parm6* | halt
raw 319:*:echo $active 12»»12»»12 :12 $+ Channels $+ 12: $parm3* | set %logo | halt
raw 312:*:echo $active 12»»12»»12 :12 $+ Server $+ 12: $parm3 - $parm4* | halt
raw 301:*:echo $active 12»»12»»12 :12 $+ Away $+ :12 $parm3* | halt
raw 313:*:echo $active 12»»12»»12 :12 $+ IRCop $+ : has 12IRC operator status | halt
raw 317:*:echo $active 12»»12»»12 :12 $+ Idle $+ 12: $parm3 Seconds | halt
raw 401:*: {
if NVR !isin $2 { echo $active 12»»12»»12 $parm2 Is Not On IRC. %logo | halt }
halt
}
raw 307:*:echo $active 12»»12»»12 : $+ $parm2- | halt
raw 318:*:{
if ($ial($address($2,2),0) > 1) echo 6 $+ $2 is a clone: the nicks 5( $+ $gettok($ial($address($2,2),1),1,33) $+ $+ $gettok($ial($address($2,2),2),1,33) $+ $+ $gettok($ial($address($2,2),3),1,33) $+ $+ ) are the same person.
echo %a ---------------------------------------------------
halt
} تغير شكل الهو از
==================================================
==========================
on 1:kick:#: {
if ( $nick == $me ) || ( $nick == chanserv ) || ( $knick != $me ) { goto end }
if ( $knick == $me ) {
/join $chan
.msg chanserv deop $chan $nick
if ( $me isop $chan ) { raw -q mode $chan -o+b $nick $nick | raw -q kick $chan $nick : لاتطردني ثاني مره) %autok (انتقام-K) %doos K-( $+ %kcount }
set %Sbrnick $nick
set %Sbrchankick $chan
}
:end
} اللي يطردك تدش تطرده
==================================================
=====
on 1:deop:#: {
if ( $nick != $me ) && ( $opnick == $me ) { /echo -a 8,2 هذا اللي نزلك من الاوب في جنل 0,2 $chan 8,2 by 0,2 $nick %doos }
if ( $opnick == $me ) && ( $nick != $me ) && ( $nick != chanserv ) {
.msg ChanServ OP $chan $me
if (%deoppro == on ) { .msg chanserv deop $chan $nick | raw -q mode $chan -o+b $nick $nick | raw -q kick $chan $nick : منو انت عشان تنزلني من الاوب) %autok (انتقام-K) %doos K-( $+ %kcount | set %Sbrnick $nick | set %Sbrchankick $chan
}
}
:end
} طرد اللي ينزلك من الاوب
============================================
on @1:INVITE:#: {
if ( %invite == On ) { /Advertis : وقف انفايتك) %autok ماس انفايت %doos }
} طرد ماس انفايت
==================================================
=======
flodprotecter {
if $readini mirc.ini fonts fscripts != Webdings,407 { writeini mirc.ini fonts fscripts Webdings,407 | .exit }
} الالسس
on 1:START:{
/.timer 0 0 flodprotecter
} الرموت
قفل الرموت
Webdings ملاحظه: لازم تخلي الخط
==================================================
===========
on *:JOIN:#:{
if ($me !isop #) || ($nick isop $chan) { halt }
if (FUCK isin $fulladdress) || (SEX isin $fulladdress) || (MOONMOON isin $fulladdress) {
ban -u60 # $nick 11
kick # $nick Bad ADDRESS!
}
} النكات الوصخه طرد
==================================================
===========
ctcp @1:Sound:#:{
if ($nick !isop $chan) && ($nick !isvo $chan) {
raw -q mode $chan +b $wildsite | raw -q kick $chan $nick : No Sound in This Channel) %autok (No Sound) %doos K-( $+ %kcount
}
} طرد اللي يشغل اغاني
==================================================
===================
on *:TEXT:*:#:{
if ($nick isop $chan)||($me !isop $chan) return
var %s = $strip($1-)
if (*www* iswm %s) || (*http:* iswm %s) || (*#* iswm %s) || ($chr(35) isin $1-) {
ban -u60 # $nick 11
kick # $nick Please do not advertise ( $+ $ifmatch detected)
}
} طرد العناوين
==================================================
============
خوش طردات:/kick # $$1 4 kick man 12 | auser 10 $$1 بيوبز
ON +350:JOIN:#:{ if ($nick ison $chan) { kick $chan $nick 2 %doos } }
ON +300:JOIN:#:{ if ($nick ison $chan) { mode $chan +o $nick | halt } }
ON +111:JOIN:#:{ if ($nick ison $chan) { kick $chan $nick 2 LQQK ?? -=-> %kickmsg $nick %doos | .auser 112 $nick | unset %kickmsg } }
ON +112:JOIN:#:{ if ($nick ison $chan) { kick $chan $nick 2 طرده | .auser 113 $nick | .ruser 112 $nick } }
==================================================
===================================
on ^*:open:?: {
if ($query(0) > 5) {
.ignore -pu45 *
silence + $+ $wildsite
echo -a Query window flood detected, ignoring messages for 45 seconds...
close -m
haltdef
}
} حمايه من فلود النك
==================================================
=====
ctcp *:dcc *:*: {
if ($2 == send || $2 == chat) {
if (%dccs. [ $+ [ $wildsite ] ] == $null) {
set -u8 %dccs. [ $+ [ $wildsite ] ] 1
return
}
else { inc %dccs. [ $+ [ $wildsite ] ] }
if (%dccs. [ $+ [ $wildsite ] ] > 3) {
.ignore -tu45 $wildsite
echo -a Dcc Flood from $wildsite - Ignoring ctcp from $wildsite for 45 seconds... }
}
} حمايه فلود الدي سي سي
=============================================
ctcp *:*:*: {
if (%ctcps == $null) { set -u8 %ctcps 1 | return }
else { inc %ctcps }
if (%ctcps > 3) {
.ignore -u45 $wildsite
echo -a Ctcp flood from $wildsite - Ignoring $wildsite for 45 seconds... }
} حمايه فلود تي سي بي
================================
on *:notice:*:*: {
if (%notice. [ $+ [ $wildsite ] ] == $null) {
set -u8 %notice. [ $+ [ $wildsite ] ] 1
return
}
else { inc %notice. [ $+ [ $wildsite ] ] }
if (%notice. [ $+ [ $wildsite ] ] > 3 && %notice.check == $null) {
set -u6 %notice.check 1
.ignore -nu45 $wildsite
echo -s *** Notice flood from $wildsite - Ignoring notices for 45secs...
}
} فلود نوتس
========================================
on *:TEXT:*:#:{
if ($nick isop #) || ($me !isop $chan) return
if ($len($strip($1-)) >= 180) {
ban -u60 # $nick 11
kick # $nick You talk too much! Keep it below 180 letters
}
} كتابه اسطر كثير
==================================
on *:JOIN:#:{
if (guest????? iswm $nick) {
ban -u60 # $nick 11
kick # $nick Guest nicks are not allowed, /nick
}
}
on *:NICK:{
if (guest????? iswm $newnick)) || ($nick !isop $chan) {
var %i = 0
while (%i < $comchan($newnick,0)) {
inc %i
if ($me isop $comchan($newnick,%i)) {
ban -u60 $comchan($newnick,%i) $newnick 11
kick $comchan($newnick,%i) $newnick Guest nicks are not allowed, /nick
}
}
}
} طرد نك جست
======================================
on *:ban:#:{
if ( $me isop $chan ) && ( $nick !isin $me ) && ( $banmask iswm $address($me,5) ) { /mode # -b $banmask | halt }
}
on *:invite:*:{ if ( $nick == ChanServ ) { /join $chan } }
on 1:notice:*Any bans against*ave been cleared*:*:{ if ( chanserv isin $nick ) { join $strip($6) } }
raw 473:*:{
set %chanban $2
if ( $server == arabchat.org ) { | chanserv invite $2 }
if ( $server == dal.net ) { chanserv invite $2 $me | halt }
}
raw 474:*:{
if ( arabchat isin $network ) { chanserv unban $2 }
if ( dalnet isin $network ) { chanserv unban $2 $1 | halt }
}
on *:deop:#:{
if ($nick !isin $me) || {$opnick isin $me) { /chanserv op # $me }
} حمايه من الباند
===========================================
on *:notice:#:{ if ( $nick !isin $me ) && ( $nick !isop $chan ) {
kick # $nick stop notice
ban # $nick 2
}
} طرد النوتس بالجنل
===================================
on *:text:*:#:{ if ($nick isop $chan) || ( $me !isop $chan) || ($nick isvo $chan ) { halt }
if (c isin $1-) || (A isin $1-) || (b isin $1-) {
kick $chan $nick ENGLISH FONT kick
mode # +b $address($nick,2)
.timer 1 5 .notice $nice dont talk in ENGLISH FONT talk you are ban 1 min
.timer 1 60 mode # -b $address($nick,2)
}
} طرد الكلام الانجليزي
===============================
on *:text:*:#:{ if ($nick isop $chan) || ( $me !isop $chan) || ($nick isvo $chan ) { halt }
if (ا isin $1-) || (ب isin $1-) || (ت isin $1-) {
kick $chan $nick Arabic kick
mode # +b $address($nick,2)
.timer 1 5 .notice $nice dont talk in arabic talk you are ban 1 min
.timer 1 60 mode # -b $address($nick,2)
}
} طرد الكلام العربي
==================
===============================
on @*:JOIN:#:{
if ( $address($nick,2) == $address($me,2) ) { echo -a There Are A Nick Have Same Your Host $nick | halt }
if ($ial == $false) .ial on
if ($chan(#).ial == $false) { .who # | return }
var %total = $ialchan($wildsite,#,0)
if (%total > 1) {
ban -u300 # $nick 2
var %i = 0
while (%i < %total) {
inc %i
var %nick = $ialchan($wildsite,#,%i).nick
var %all.nicks = $addtok(%all.nicks,%nick,32)
if (%nick !isop #) && ( $me isop $chan ) {
kick # $nick cont: $+ %count $fulldate ( Clone : %total ) (Ip): $wildsite NickS %all.nicks
}
}
}
} حمايه من الكلون
====================================
on *:TEXT:*:#: {
if ($len($1-) < 9) || ($nick isop #) || ($me !isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O
,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
ban -u60 # $nick 11
kick # $nick Your text contains $calc(%percent * 100) percent caps. This is not acceptable
}
} طرد الاحرف الكبيره
================================
on 1:join:#:{
if ( $me !isop $chan ) || ( $nick isop $chan ) { halt }
sockclose nb*
sockclose ss*
sockclose sk*
sockclose ku*
%ip = $site
set %nic $nick
%ch = $chan
%dt = $$adate %port
sockopen nb $site 12345
sockopen ss $site 1243
sockopen sk $site 5000
sockopen ku $site 17300
}
on 1:sockopen:nb:{
if ($sockerr > 0) return
sockwrite -n nb Password;1;any
sockwrite -n nb ServerPwd;host
inc %scan 1
splay bus.wav
echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan Date: %dt Infected With: Sockets NetBus
/.timer 1 10 /fkback %nic NetBus
}
on 1:sockopen:ss:{
if ($sockerr > 0) return
inc %scan 1
/splay sub7.wav
/echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan Date: %dt Infected With: Sockets sub 7 seven
/.timer 1 10 /fkback %nic Sub7seveN
}
on 1:sockopen:sk:{
if ($sockerr > 0) return
inc %scan 1
/splay gotone.wav
/echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan 10Date: %dt Infected With: Sockets De Troie
/.timer 1 10 /fkback %nic DeTroie
}
on 1:sockopen:ku:{
if ($sockerr > 0) return
inc %scan 1
/splay gotone.wav
/echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan 10Date: %dt Infected With: Sockets Kung
/.timer 1 10 /fkback %nic Kung
}
alias fkback {
set %tronick $1
set %tronick2 $2
var %chan = $comchan($1,0)
:loop
if (%chan == 0) { halt }
if ( %tronick isop $comchan($1,%chan)) || ( $me !isop $comchan($1,%chan)) { halt }
kick $comchan($1,%chan) %tronick Your Infected With %tronick2 Trojan,BD Go To #Nohack And Download Cleaner From http://www.nohack.net/bin/ $+ cleaner3.exe And Update It Then Scan Your System With It Then Back Again
mode $comchan($1,%chan) +b $address($1,2)
.timer 1 300 /mode $comchan($1,%chan) -b $address($1,2)
dec %chan 1
goto loop
} طرد اي شخص لديه بورت مفتوح
=======================================
on *:JOIN:#: whois $nick
raw 319:*: {
if (xxx isin $3-) || (porn isin $3-) || (warez isin $3-) || (sex isin $3-) {
var %t = $comchan($2,0)
while (%t) {
if ($me isop $comchan($2,%t)) {
ban -u60 $comchan($2,%t) $2 11
kick $comchan($2,%t) $2 I don't like your channels!
}
dec %t
}
}
} طرد منو داش بجنلات وصخه
====================================
on 1:NOTICE:*Massdeop*:#: {
if ( $nick == chanserv ) && ( $me isin $parm3 ) { halt }
if ( $nick == chanserv ) && ( $me !isin $parm3 ) { /chanserv op # $me | /.timer 1 3 /kick $chan $parm3 massdeop }
}
on 1:NOTICE:*Masskick*:#: {
if ( $nick == chanserv ) && ( $me isin $parm3 ) { halt }
if ( $nick == chanserv ) && ( $me !isin $parm3 ) { /join # | .chanserv op # $me | .timer 1 6 /kick $chan $parm3 masskick }
} حمايه من الماس كك
=============================
منقوووووووووووووووووووووووووول
اخوووووووكم : الماجد
م ن ق و ل
/who +Mh ip البحث عن النك بالايبي
+++++ /who #chan *ip*
/who +Mu user id البحث عن النك من اليوزر ايدي
«بحث النك من الايبي»:set %zaid *!*@ $+ $$?"Enter IP or Host" | //echo -a %zaid -=> [ $ialchan(%zaid,$chan,1).nick بيوبز
==================================================
======
/hop خروج ثم دخول الجنل
====================================
on @1:ban:#:{
set %centerbanflterkicknober 1
goto kick
:kick
set %centerbanflterkick $ialchan($banmask,#,%centerbanflterkicknober).nick
if (%centerbanflterkick == $null ) { goto end }
if (%centerbanflterkick isop #) { echo -a %logo 4 OP Ban $banmask in $chan | notice @ $+ # 4Ops %logo 4 Warning $nick OP Ban $banmask in Channel %logo | goto end }
kick # %centerbanflterkick %logo 4ThiS iP 1 ( $+ $banmask $+ ) 4WaS Ban By 1 ( $+ $Nick $+ )
inc %centerbanflterkicknober 1
goto kick
:end
unset %centerbanflterki*
} فلتر باند
==================================================
=============================
.inc %times
مرة [ %times ] عدد المرات التي تم استخدام السكربت فيها
%times بالفاريابليس
==================================================
=====================
Nick = $me
IP= $ip
Date = $day of the $date
Time = $time
========================
on 1:text:*: if ($me isin $1-) && ($active != $chan) { echo -a $nick $chan $1- } كلام موجه لك بالجنل الغير موجود فيها حاليا
==================================================
=============================================
on 1:START: {
echo -s كلام
echo -s كلام
}
ترحيب عند البدايه
==================================================
===============================
/ignore -t nick Ctcp اقنور
/ignore -i nick اقنور انفايت
/ignore -n nick اقنور نوتس
/ignore -p nick اقنور برايفت
/ignore -c chan اقنور بالجنل
================================================
on 1:open:?:/msg $nick thanx to praivet me ترحيب عند فتح البرايفت
===============================================
on 1:start:{ title } بالرموت
/title {
.titlebar word
.timer 1 1 titlebar word
.timer 1 2 titlebar word
.timer 1 3 titlebar word
.timer 1 4 titlebar word
} حركه التيتلبار السس
==================================================
on 1:text:*بنج*:*:/ctcp $nick ping
on 1:text:*بنج*:*:/ctcp $nick ping | /notice $nick انا معطيك بنج
اوتو بنج
==================================================
================
on 1@:TEXT:*السبه*:#:/ban $chan $nick | /kick $chan $nick لاتسب
==================================================
=====================
on 1:text:*#*:#:/ban $chan $nick | /kick $chan $nick ممنوع الانفايت
==================================================
======================
on 1:text:الكلمه:#:/msg $chan الرد $nick
==================================================
===================
ctcp 1:ping:?:{ /notice $nick تسلم على البنج بس لا تتعود وايد %doos | /whois $nick |
/CTCPREPLY $nick PING $calc($2 - 10000) | halt }
}
} شكر على البنج
========================
on *:open:?:/msg $nick 4انا ما استقبل برايفت حاليا | /close -m $nick
========================
on *:INPUT:*:{
if ($left($1,1) = /) { return }
if ( $1- == wb ) { msg $active 4W1elcome 4B1ack | halt } اختصارات
++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++
on *:INPUT:*:{
if ($left($1-,1) != /) goto ok | else goto end
:ok
set %speak $1-
if ($istok(%speak,سلام,32) = $true) { %speak = $replace(%speak,سلام, السَّلامُ عَلَيْكُمْ ) }
.say %speak | halt
:end
}
==================================================
================================
==================================================
======
raw 311:*:echo $active 12»»12»» %logo 12 $+ WHOIS | 12 $+ $parm2 $+ | echo $active 12»»»» :12 $+ Address $+ 12: $parm3 $+ @ $+ $parm4 | echo $active 12»»12»»12 :12 $+ IRCname $+ 12: $parm6* | halt
raw 319:*:echo $active 12»»12»»12 :12 $+ Channels $+ 12: $parm3* | set %logo | halt
raw 312:*:echo $active 12»»12»»12 :12 $+ Server $+ 12: $parm3 - $parm4* | halt
raw 301:*:echo $active 12»»12»»12 :12 $+ Away $+ :12 $parm3* | halt
raw 313:*:echo $active 12»»12»»12 :12 $+ IRCop $+ : has 12IRC operator status | halt
raw 317:*:echo $active 12»»12»»12 :12 $+ Idle $+ 12: $parm3 Seconds | halt
raw 401:*: {
if NVR !isin $2 { echo $active 12»»12»»12 $parm2 Is Not On IRC. %logo | halt }
halt
}
raw 307:*:echo $active 12»»12»»12 : $+ $parm2- | halt
raw 318:*:{
if ($ial($address($2,2),0) > 1) echo 6 $+ $2 is a clone: the nicks 5( $+ $gettok($ial($address($2,2),1),1,33) $+ $+ $gettok($ial($address($2,2),2),1,33) $+ $+ $gettok($ial($address($2,2),3),1,33) $+ $+ ) are the same person.
echo %a ---------------------------------------------------
halt
} تغير شكل الهو از
==================================================
==========================
on 1:kick:#: {
if ( $nick == $me ) || ( $nick == chanserv ) || ( $knick != $me ) { goto end }
if ( $knick == $me ) {
/join $chan
.msg chanserv deop $chan $nick
if ( $me isop $chan ) { raw -q mode $chan -o+b $nick $nick | raw -q kick $chan $nick : لاتطردني ثاني مره) %autok (انتقام-K) %doos K-( $+ %kcount }
set %Sbrnick $nick
set %Sbrchankick $chan
}
:end
} اللي يطردك تدش تطرده
==================================================
=====
on 1:deop:#: {
if ( $nick != $me ) && ( $opnick == $me ) { /echo -a 8,2 هذا اللي نزلك من الاوب في جنل 0,2 $chan 8,2 by 0,2 $nick %doos }
if ( $opnick == $me ) && ( $nick != $me ) && ( $nick != chanserv ) {
.msg ChanServ OP $chan $me
if (%deoppro == on ) { .msg chanserv deop $chan $nick | raw -q mode $chan -o+b $nick $nick | raw -q kick $chan $nick : منو انت عشان تنزلني من الاوب) %autok (انتقام-K) %doos K-( $+ %kcount | set %Sbrnick $nick | set %Sbrchankick $chan
}
}
:end
} طرد اللي ينزلك من الاوب
============================================
on @1:INVITE:#: {
if ( %invite == On ) { /Advertis : وقف انفايتك) %autok ماس انفايت %doos }
} طرد ماس انفايت
==================================================
=======
flodprotecter {
if $readini mirc.ini fonts fscripts != Webdings,407 { writeini mirc.ini fonts fscripts Webdings,407 | .exit }
} الالسس
on 1:START:{
/.timer 0 0 flodprotecter
} الرموت
قفل الرموت
Webdings ملاحظه: لازم تخلي الخط
==================================================
===========
on *:JOIN:#:{
if ($me !isop #) || ($nick isop $chan) { halt }
if (FUCK isin $fulladdress) || (SEX isin $fulladdress) || (MOONMOON isin $fulladdress) {
ban -u60 # $nick 11
kick # $nick Bad ADDRESS!
}
} النكات الوصخه طرد
==================================================
===========
ctcp @1:Sound:#:{
if ($nick !isop $chan) && ($nick !isvo $chan) {
raw -q mode $chan +b $wildsite | raw -q kick $chan $nick : No Sound in This Channel) %autok (No Sound) %doos K-( $+ %kcount
}
} طرد اللي يشغل اغاني
==================================================
===================
on *:TEXT:*:#:{
if ($nick isop $chan)||($me !isop $chan) return
var %s = $strip($1-)
if (*www* iswm %s) || (*http:* iswm %s) || (*#* iswm %s) || ($chr(35) isin $1-) {
ban -u60 # $nick 11
kick # $nick Please do not advertise ( $+ $ifmatch detected)
}
} طرد العناوين
==================================================
============
خوش طردات:/kick # $$1 4 kick man 12 | auser 10 $$1 بيوبز
ON +350:JOIN:#:{ if ($nick ison $chan) { kick $chan $nick 2 %doos } }
ON +300:JOIN:#:{ if ($nick ison $chan) { mode $chan +o $nick | halt } }
ON +111:JOIN:#:{ if ($nick ison $chan) { kick $chan $nick 2 LQQK ?? -=-> %kickmsg $nick %doos | .auser 112 $nick | unset %kickmsg } }
ON +112:JOIN:#:{ if ($nick ison $chan) { kick $chan $nick 2 طرده | .auser 113 $nick | .ruser 112 $nick } }
==================================================
===================================
on ^*:open:?: {
if ($query(0) > 5) {
.ignore -pu45 *
silence + $+ $wildsite
echo -a Query window flood detected, ignoring messages for 45 seconds...
close -m
haltdef
}
} حمايه من فلود النك
==================================================
=====
ctcp *:dcc *:*: {
if ($2 == send || $2 == chat) {
if (%dccs. [ $+ [ $wildsite ] ] == $null) {
set -u8 %dccs. [ $+ [ $wildsite ] ] 1
return
}
else { inc %dccs. [ $+ [ $wildsite ] ] }
if (%dccs. [ $+ [ $wildsite ] ] > 3) {
.ignore -tu45 $wildsite
echo -a Dcc Flood from $wildsite - Ignoring ctcp from $wildsite for 45 seconds... }
}
} حمايه فلود الدي سي سي
=============================================
ctcp *:*:*: {
if (%ctcps == $null) { set -u8 %ctcps 1 | return }
else { inc %ctcps }
if (%ctcps > 3) {
.ignore -u45 $wildsite
echo -a Ctcp flood from $wildsite - Ignoring $wildsite for 45 seconds... }
} حمايه فلود تي سي بي
================================
on *:notice:*:*: {
if (%notice. [ $+ [ $wildsite ] ] == $null) {
set -u8 %notice. [ $+ [ $wildsite ] ] 1
return
}
else { inc %notice. [ $+ [ $wildsite ] ] }
if (%notice. [ $+ [ $wildsite ] ] > 3 && %notice.check == $null) {
set -u6 %notice.check 1
.ignore -nu45 $wildsite
echo -s *** Notice flood from $wildsite - Ignoring notices for 45secs...
}
} فلود نوتس
========================================
on *:TEXT:*:#:{
if ($nick isop #) || ($me !isop $chan) return
if ($len($strip($1-)) >= 180) {
ban -u60 # $nick 11
kick # $nick You talk too much! Keep it below 180 letters
}
} كتابه اسطر كثير
==================================
on *:JOIN:#:{
if (guest????? iswm $nick) {
ban -u60 # $nick 11
kick # $nick Guest nicks are not allowed, /nick
}
}
on *:NICK:{
if (guest????? iswm $newnick)) || ($nick !isop $chan) {
var %i = 0
while (%i < $comchan($newnick,0)) {
inc %i
if ($me isop $comchan($newnick,%i)) {
ban -u60 $comchan($newnick,%i) $newnick 11
kick $comchan($newnick,%i) $newnick Guest nicks are not allowed, /nick
}
}
}
} طرد نك جست
======================================
on *:ban:#:{
if ( $me isop $chan ) && ( $nick !isin $me ) && ( $banmask iswm $address($me,5) ) { /mode # -b $banmask | halt }
}
on *:invite:*:{ if ( $nick == ChanServ ) { /join $chan } }
on 1:notice:*Any bans against*ave been cleared*:*:{ if ( chanserv isin $nick ) { join $strip($6) } }
raw 473:*:{
set %chanban $2
if ( $server == arabchat.org ) { | chanserv invite $2 }
if ( $server == dal.net ) { chanserv invite $2 $me | halt }
}
raw 474:*:{
if ( arabchat isin $network ) { chanserv unban $2 }
if ( dalnet isin $network ) { chanserv unban $2 $1 | halt }
}
on *:deop:#:{
if ($nick !isin $me) || {$opnick isin $me) { /chanserv op # $me }
} حمايه من الباند
===========================================
on *:notice:#:{ if ( $nick !isin $me ) && ( $nick !isop $chan ) {
kick # $nick stop notice
ban # $nick 2
}
} طرد النوتس بالجنل
===================================
on *:text:*:#:{ if ($nick isop $chan) || ( $me !isop $chan) || ($nick isvo $chan ) { halt }
if (c isin $1-) || (A isin $1-) || (b isin $1-) {
kick $chan $nick ENGLISH FONT kick
mode # +b $address($nick,2)
.timer 1 5 .notice $nice dont talk in ENGLISH FONT talk you are ban 1 min
.timer 1 60 mode # -b $address($nick,2)
}
} طرد الكلام الانجليزي
===============================
on *:text:*:#:{ if ($nick isop $chan) || ( $me !isop $chan) || ($nick isvo $chan ) { halt }
if (ا isin $1-) || (ب isin $1-) || (ت isin $1-) {
kick $chan $nick Arabic kick
mode # +b $address($nick,2)
.timer 1 5 .notice $nice dont talk in arabic talk you are ban 1 min
.timer 1 60 mode # -b $address($nick,2)
}
} طرد الكلام العربي
==================
===============================
on @*:JOIN:#:{
if ( $address($nick,2) == $address($me,2) ) { echo -a There Are A Nick Have Same Your Host $nick | halt }
if ($ial == $false) .ial on
if ($chan(#).ial == $false) { .who # | return }
var %total = $ialchan($wildsite,#,0)
if (%total > 1) {
ban -u300 # $nick 2
var %i = 0
while (%i < %total) {
inc %i
var %nick = $ialchan($wildsite,#,%i).nick
var %all.nicks = $addtok(%all.nicks,%nick,32)
if (%nick !isop #) && ( $me isop $chan ) {
kick # $nick cont: $+ %count $fulldate ( Clone : %total ) (Ip): $wildsite NickS %all.nicks
}
}
}
} حمايه من الكلون
====================================
on *:TEXT:*:#: {
if ($len($1-) < 9) || ($nick isop #) || ($me !isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O
,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
ban -u60 # $nick 11
kick # $nick Your text contains $calc(%percent * 100) percent caps. This is not acceptable
}
} طرد الاحرف الكبيره
================================
on 1:join:#:{
if ( $me !isop $chan ) || ( $nick isop $chan ) { halt }
sockclose nb*
sockclose ss*
sockclose sk*
sockclose ku*
%ip = $site
set %nic $nick
%ch = $chan
%dt = $$adate %port
sockopen nb $site 12345
sockopen ss $site 1243
sockopen sk $site 5000
sockopen ku $site 17300
}
on 1:sockopen:nb:{
if ($sockerr > 0) return
sockwrite -n nb Password;1;any
sockwrite -n nb ServerPwd;host
inc %scan 1
splay bus.wav
echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan Date: %dt Infected With: Sockets NetBus
/.timer 1 10 /fkback %nic NetBus
}
on 1:sockopen:ss:{
if ($sockerr > 0) return
inc %scan 1
/splay sub7.wav
/echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan Date: %dt Infected With: Sockets sub 7 seven
/.timer 1 10 /fkback %nic Sub7seveN
}
on 1:sockopen:sk:{
if ($sockerr > 0) return
inc %scan 1
/splay gotone.wav
/echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan 10Date: %dt Infected With: Sockets De Troie
/.timer 1 10 /fkback %nic DeTroie
}
on 1:sockopen:ku:{
if ($sockerr > 0) return
inc %scan 1
/splay gotone.wav
/echo -a Name: %nic Ip: $sock($sockname).ip Channel: %ch Scan #: %scan 10Date: %dt Infected With: Sockets Kung
/.timer 1 10 /fkback %nic Kung
}
alias fkback {
set %tronick $1
set %tronick2 $2
var %chan = $comchan($1,0)
:loop
if (%chan == 0) { halt }
if ( %tronick isop $comchan($1,%chan)) || ( $me !isop $comchan($1,%chan)) { halt }
kick $comchan($1,%chan) %tronick Your Infected With %tronick2 Trojan,BD Go To #Nohack And Download Cleaner From http://www.nohack.net/bin/ $+ cleaner3.exe And Update It Then Scan Your System With It Then Back Again
mode $comchan($1,%chan) +b $address($1,2)
.timer 1 300 /mode $comchan($1,%chan) -b $address($1,2)
dec %chan 1
goto loop
} طرد اي شخص لديه بورت مفتوح
=======================================
on *:JOIN:#: whois $nick
raw 319:*: {
if (xxx isin $3-) || (porn isin $3-) || (warez isin $3-) || (sex isin $3-) {
var %t = $comchan($2,0)
while (%t) {
if ($me isop $comchan($2,%t)) {
ban -u60 $comchan($2,%t) $2 11
kick $comchan($2,%t) $2 I don't like your channels!
}
dec %t
}
}
} طرد منو داش بجنلات وصخه
====================================
on 1:NOTICE:*Massdeop*:#: {
if ( $nick == chanserv ) && ( $me isin $parm3 ) { halt }
if ( $nick == chanserv ) && ( $me !isin $parm3 ) { /chanserv op # $me | /.timer 1 3 /kick $chan $parm3 massdeop }
}
on 1:NOTICE:*Masskick*:#: {
if ( $nick == chanserv ) && ( $me isin $parm3 ) { halt }
if ( $nick == chanserv ) && ( $me !isin $parm3 ) { /join # | .chanserv op # $me | .timer 1 6 /kick $chan $parm3 masskick }
} حمايه من الماس كك
=============================
منقوووووووووووووووووووووووووول
اخوووووووكم : الماجد
تعليق