ALw7sh
08-03-2003, 04:03 PM
تشكيلة اوامر 2003
------------
طرد اللوان من يكتب بالجنل اي لون يطردة السكربت
on @*:TEXT:*:#:{
if ($nick isop #) return
var %count = $count($1-,$chr(3))
inc %count $count($1-,$chr(2))
inc %count $count($1-,$chr(22))
inc %count $count($1-,$chr(31))
inc %count $count($1-,$chr(15))
;The above 5 lines count the number of control codes
if (%count >= 10) {
ban -u60 # $nick 11
kick # $nick Please don't use soo much colour ( $+ %count $+ ) ALW7SH Script
}
}
طرد تيكست فلود Text Flood
on @*:TEXT:*:#:{
if ($nick isop #) return
if ($len($strip($1-)) >= 250) {
;Note that I $strip the text before I use $len, so it won't count any
; control codes like colour or bold etc...
ban -u60 # $nick 11
kick # $nick You talk too much! Keep it below 250 letters ALW7SH Script
}
}
طرد دعايات بالجنل مثل الصفحة والجنل
on @*:TEXT:*:#:{
if ($nick isop #) return
var %s = $strip($1-)
if (*www* iswm %s) || (*http:* iswm %s) || (*ftp:* iswm %s) || ($chr(35) isin $1-) {
ban -u60 # $nick 11
kick # $nick Please do not advertise ( $+ $ifmatch detected) ALW7SH Script
}
}
طرد الايدينت السيئ
on @*:JOIN:#:{
if (*!******@* iswm $fulladdress) || (*!*SHIT*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) {
ban -u60 # $nick 11
kick # $nick Bad Identd! ALW7SH Script
}
}
طرد نكات قيست
on @*:JOIN:#:{
if (guest????? iswm $nick) {
ban -u60 # $nick 11
kick # $nick Guest nicks are not allowed, /nick <New Nickname>
}
}
on *:NICK:{
if (guest????? iswm $newnick)) {
var %i = 0
while (%i < $comchan($newnick,0)) {
;This while loop goes through every channel both you and the nick are on
inc %i
if ($me isop $comchan($newnick,%i)) {
;You can only kick if you are an op =)
ban -u60 $comchan($newnick,%i) $newnick 11
kick $comchan($newnick,%i) $newnick Guest nicks are not allowed, /nick <New Nickname>
}
}
}
}
طرد تكرار الكلام
on @*:TEXT:*:#:{
if ($nick isop #) || ($nick isvo #) return
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 4) {
ban -u60 # $nick 2
kick # $nick You repeated %count times! ALW7SH script }
}
طرد الفلود في الجنل
on @*:TEXT:*:#: {
if ($nick isop #) return
set -u3 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)
; The variable, %fld.#chan.nick counts the number of lines the person speaks
; It is automatically unset 3 seconds after the last time the person talked
; So I guess in _theory_ if you managed to do 1 line per 3 secs for 3 lines you could be kicked
if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 5) {
;The above if statement checks if that variable is greater to or equals 5
ban -u60 # $nick 11
kick # $nick Please do not flood ALW7SH Script
}
}
طرد تكرار تغير النك فلود نك
on *:NICK: {
set -u60 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1)
if (%fld. [ $+ [ $address ] ] >= 5) {
var %i = 0
while (%i < $comchan($newnick,0)) {
inc %i
ban -u60 $comchan($newnick,%i) $newnick 2
kick $comchan($newnick,%i) $newnick Stop the nick flooding mate! ALW7sh Script
}
}
}
CTCP Floods طرد
ctcp *:*:*: {
set -u60 %ctcp. [ $+ [ $site ] ] $calc( %ctcp. [ $+ [ $site ] ] + 1)
if (%ctcp. [ $+ [ $address ] ] >= 5) {
.ignore -tu60 $site
var %i = 0
while (%i < $comchan($nick,0)) {
inc %i
if ($nick !isop $comchan($nick,%i) {
ban -u60 $comchan($nick,%i) 2
kick $comchan($newnick,%i) $nick Stop the CTCP flooding please! ALW7sh Script
}
}
}
}
طرد كلون دخول اكثر من نك بالايبية واحد
on @*:JOIN:#:{
if ($ial == $false) .ial on
if ($chan(#).ial == $false) { who # | return }
var %total = $ialchan($wildsite,#,0)
; %total is set to the number of people on the channel using $wildsite
if (%total > 1) {
;If there is MORE than one person using $wildsite then we start kicking...
ban -u60 # $nick 2
;Notice how I put the ban command here and used bantype 2 ($wildsite).
;Why? So I only have to place one ban yet it bans every clone.
var %i = 0
while (%i < %total) {
;This while loop loops through all the nicks using $wildsite
inc %i
var %nick = $ialchan($wildsite,#,%i).nick
; %nick is set to the current nickname
var %all.nicks = $addtok(%all.nicks,%nick,32)
; %all.nicks is set to every nick from $wildsite
if (%nick !isop #) {
kick # $nick Clone flood detected from $wildsite ( $+ %total users) ALW7sh Script
}
}
echo 4 -a *** Clone flood detected from $wildsite $+ : %all.nicks
}
}
طرد تيربو انفايت
on *:JOIN:#:{
if ($me isop $chan) && ($len($nick) = 6) { .set %lett abcdefjhigklmnopqrstuvwxyz | .set %num 1234566890 }
if ($me isop $chan) && ($len($nick) = 6) && ($left($nick,1) isin %lett) && ($mid($nick,2,1) isin %lett) && ($mid($nick,3,1) isin %lett) && ($mid($nick,4,1) isin %lett) && ($mid($nick,5,1) isin %num) && ($right($nick,1) isin %num) && ($nick ison $chan) {
if ($mid($address,1,1) isin %lett) && ($mid($address,2,1) isin %lett) && ($mid($address,3,1) isin %lett) && ($mid($address,4,1) isin %lett) && ($mid($address,5,1) isin %num) && ($mid($address,6,1) isin %num) { kick # $nick do not use turbo invite ALW7sh Script $+ %inric | ban # $nick 2 | unset %num %lett }
}
}
on 1:JOIN:#:{
if ($me isop $chan) && ($left($address,5) = TuRBo) || ($left($address,6) = ~TuRBo) || ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
}
on 1:NICK:{
if ($me isop $comchan($newnick,1)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,1)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
}
طرد ماس انفايت
on @1:INVITE:#: {
if ($nick !isop $chan) && ($nick !isvo $chan) {
set %invite.total $comchan($nick,0)
set %invite.which 0
goto invite
}
else { goto end }
:invite
if ( %invite.which > %invite.total ) { goto end }
else {
inc %invite.which 1
if ( $me isop $comchan($nick,%invite.which)) && ( $nick !isop $comchan($nick,%invite.which)) {
ban -u9000 $comchan($nick,%invite.which)) $nick 2
raw -q kick $comchan($nick,%invite.which)) $nick : $+ Do not use mass invite in channel - ALW7sh Script
goto invite
}
else { goto invite }
}
:end
unset %invite.*
}
طرد فلتر باند
on *:ban:#:{
.ial on
if $me !isop $chan { halt }
else {
if $ialchan($banmask,$chan,1).nick == $me { mode $chan -b $banmask | halt }
if $level($address($ialchan($banmask,$chan,1).nick,3) ) >= 80 { mode $chan -b $banmask | halt }
if $ialchan($banmask,$chan,1).nick == $null { halt }
else {
set %themusicman 0
:monitorflash
inc %themusicman
if $ialchan($banmask,$chan,%themusicman).nick == $null { unset %themusicman | halt }
else { kick $chan $ialchan($banmask,$chan,%themusicman).nick Banned By $nick - ALW7sh Scipt | goto monitorflash }
}
}
}
CtCP طرد وتسكير المود
ctcp *:*:#:{
if ($nick isop $chan) || ($nick isvo $chan) || ($nick == Chanserv) || ($nick == Memoserv) || ($nick == Operserv) || ($nick == $server) || ($nick == $me) || (dal.net isin $nick) { halt }
if ($me isop $chan) { .mode $chan +mRb $wildsite $chan | .ignore -tu30 *!*@* | echo -a 3*** Script Detected Channel Ctcp From $nick | .kick $chan $nick 3 Ctcp you want make flood in channel or what..? 1=- 14,4K14,0u1,3w0,1Mâktôôb1,3a14,0i14,4T 1=- | .ignore -ut60 $wildsite | .timer 1 60 mode $chan -R | halt }
else { .ignore -tnu60 *!*@* | .ignore -u90 $wildsite
}
}
Join And Part With FLood طرد
on @*:PART:#:{
if ($nick isop #) return
set -u30 %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1 )
if ( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 2) {
ban -u600 # $nick 2
kick # $nick part join flood - ALW7sh Script
}
}
}
حماية من فلود بالجنل وبرايفت
on ^*:OPEN:?:{
var %i = 1
set -u30 %osc [ $+ [ $site ] ] $addtok(%osc [ $+ [ $site ] ] ,$nick,32)
if $numtok(%osc [ $+ [ $site ] ] ,32) >= 3 {
ignore -a $wildsite | mode $me +R
while %i <= $numtok(%osc [ $+ [ $site ] ] ,32) {
.close -m $gettok(%osc [ $+ [ $site ] ] ,%i,32)
inc %i
}
unset %osc [ $+ [ $site ] ]
halt
}
}
on ^*:JOIN:#:{
var %i = 1
set -u30 %flood [ $+ [ $site ] ] $addtok(%flood [ $+ [ $site ] ] ,$nick,32)
if $numtok(%flood [ $+ [ $site ] ] ,32) >= 3 {
mode # +mRb $wildsite | timer2 1 70 mode # -R
.ignore -a $wildsite
{
/kick # $gettok(%flood [ $+ [ $site ] ] ,%i,32) bot flood - ALW7sh Script
inc %i
}
unset %flood [ $+ [ $site ] ]
}
}
طرد الشتائم في نوتس
on @+1:NOTICE:*كس*:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
on @+1:NOTICE:******:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
طرد اكسس فلود
on !*:QUIT:{ if (Excess?Flood iswm $1-) { inc -u120 %quit. [ $+ [ $wildsite ] ] | if (%quit. [ $+ [ $wildsite ] ] >= 3) { if ($level($wildsite) !== excessflood) { auser excessflood $wildsite } } } }
on @excessflood:JOIN:#:{ kick $chan $nick ExcessFlooD Please Do Not excessflood In Channel If want stay here - ALW7sh Script | /ban # $nick 2 | guser excessflood $nick } }
طرد النوتس بالجنل
on *:NOTICE:*:#:{
if (%chan-notice-flood == on) {
if ($nick == chanserv) || ($nick == nickserv) || ($nick == memoserv) || ($nick == $server) || ($nick == operserv) || ($nick == helpserv) || ($nick == statserv) { halt }
inc %notice-flood. [ $+ [ $nick ] ] | .timer 1 6 unset %notice-flood. [ $+ [ $nick ] ]
if (%notice-flood. [ $+ [ $nick ] ] >= 1) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
if ($len($1-) > 350) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
}
}
هذا امر يعلمك متى انتهاء النك ويستخذم مع الانفو للنك
on *:notice:*:?:{
if ($nick == NickServ) {
if ( $1-3 == Last seen time ) { set %seendatex $gettok($mid($remove($1-,Last seen time :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),3,47) }
if ( $1-2 == Time now ) {
set %timenowx $gettok($mid($remove($1-,Time now :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),3,47)
set %exptimex $calc($calc($ctime(%seendatex) + 2592000)) | echo -a $+ $colour(notice) $+ -NickServ- Nick's Expiry time: $asctime(%exptimex) GMT
if ($calc(%exptimex -$ctime(%timenow)) > 0) { echo -a $+ $colour(notice) $+ -NickServ- The nick's expire : $duration($calc(%exptimex - $ctime(%timenowx))) }
if ($calc(%exptimex -$ctime(%timenow)) < 0) { echo -a $+ $colour(notice) $+ -NickServ- Nick expires in: Past expirey time by $duration($remove($calc(%exptimex -$ctime(%timenowx)),-)) }
unset %nsaddy | unset %timenow | unset %exptime | unset %seendate
}
}
}
امر المترجم
on *:load:if ($version < 5.4) { echo 4 -a ** Error 2»»To use this script, you should have mIRC v5.4+«« | .unload -rs $script | halt } | if ($?!="Do you want to enable ara2eng convertor?") { .enable #ara2eng } | else { .disable #ara2eng } | .remote on
menu menubar,status,channel,query {
-
translator
.Transulation [[ $+ $group(#ara2eng) $+ ]:if ($group(#ara2eng) = on) { .disable #ara2eng } | else { .enable #ara2eng }
.Check ALL [[ $+ [ $iif($a2e-rini(words),$a2e-rini(words),10) ] $+ ] word(s):if ($$?="check first [N] words:" isnum 1-50) { a2e-wini words $! }
.channel Transulation - [[ $+ [ $iif($a2e-rini(colour) = 1,on,off) ] $+ ]:if ($a2e-rini(colour) = 1) { a2e-wini colour 0 } | else { a2e-wini colour 1 }
.-
.@Ara2Eng Window:a2e-win
}
alias a2e-win {
if ($window(@Ara2Eng) = $null) {
if ($a2e-rini(pos) = $null) { a2e-wini pos 100 100 450 300 }
window -de @Ara2Eng- $a2e-rini(pos) @Ara2Eng
echo 9 @Ara2Eng- * Double click?!
renwin @Ara2Eng- @Ara2Eng - Arabic to English
}
}
alias a2e-rini return $readini -n configs.ini ara2eng $1
alias a2e-wini writeini configs.ini ara2eng $1 *2
alias -l a2e-e2a {
if ($window(@Ara2Eng)) && ($window(@Eng2Ara) = $null) { renwin @Ara2Eng @Eng2Ara - English to Arabic }
elseif ($window(@Eng2Ara)) && ($window(@Ara2Eng) = $null) { renwin @Eng2Ara @Ara2Eng - Arabic to English }
}
menu @Ara2Eng {
dclick:a2e-e2a
$iif($active = @Ara2Eng,@Eng2Ara,@Ara2Eng):a2e-e2a
-
clear:clear
-
close:window -c $active
}
on *:input:@:if ($target = @Ara2Eng) { a2e *1 | halt } | elseif ($target = @Eng2Ara) { ara *1 | halt }
on *:close:@:if (($target = @Ara2Eng) || ($target = @Eng2Ara)) && ($window($target).state != maximized) { a2e-wini pos $window($target).x $window($target).y $window($target).w $window($target).h }
#ara2eng off
on *:text:*:*:checkara *1
on *:action:*:*:checkara *1
on *:chat:*:checkara *1
#ara2eng end
alias isara if ($asc($left($strip($1),1)) isnum 194-237) return $true
alias checkara :loop | inc -u %ara.i | if ($isara($gettok($strip(*1),%ara.i,32),1)) { a2e *1 | return } | if (%ara.i < $iif($a2e-rini(words),$a2e-rini(words),10)) && (%ara.i < $gettok($strip(*1),0,32)) { goto loop }
alias -l getwindow return $iif($event = chat,=$nick,$iif(#,#,$iif($nick,$nick,-a)))
alias a2e echo $iif($a2e-rini(colour) = 1,$r(2,7),5) $getwindow < $+ $iif($nick,$nick,14CONVERT) $+ :10ARA2ENG> $replace($$remove($strip(*1),ـ,ء,ّ,َ,ً,ُ,ٌ,ِ,ٍ,~,ْ ,$null),ده,d'h,كه,k'h,سه,s'h,ته,t'h,أ,a,ا,a,إ,i,ب, b,ت,t,ث,th,ج,j,ح,7,خ,kh,د,d,ذ,th,ر,r,ز,z,س,s,ش,sh, ص,9,ض,dh,ط,6,ظ,`6,ع,3,غ,`3,ف,f,ق,q,ك,k,ل,l,م,m,ن,n ,ه,h,و,o,ي,i,ى,a,ؤ,o,ئ,a,؟,?,آ,a,ة,h,،,$chr(44))
;* You can type in Arabic using "/ara msg !msg", Tip: Use '!' as shown to prevent conversion.
alias ara {
:loop | inc -u %ara.i1 | if ($left($gettok($strip(*1),%ara.i1,32),1) = !) && ($remove($gettok($strip(*1),%ara.i1,32),!) != $null) { set -u %ara.tok %ara.tok %ara.i1 } | if (%ara.i1 < $gettok($strip(*1),0,32)) { goto loop }
set -u %ara $ara2(*1) | :loop2 | inc -u %ara.i2 | if ($gettok(%ara.tok,%ara.i2,32)) { set -u %ara $puttok(%ara,$remove($gettok($strip(*1),$ifmatch,3 2),!),$ifmatch,32) } | if (%ara.i2 < $gettok(%ara.tok,0,32)) { goto loop2 }
$iif($active = Status Window || $active = @Eng2Ara,echo [ $iif($a2e-rini(colour) = 1,$r(2,7),5) ] * 14CONVERT:10ENG2ARA:,say) %ara
}
alias ara2 return $replace($$remove($strip(*
========
بدال ALw7sh Script حط اسم سكربتك عشان اتبين بالطرده وشكرا :)
------------
طرد اللوان من يكتب بالجنل اي لون يطردة السكربت
on @*:TEXT:*:#:{
if ($nick isop #) return
var %count = $count($1-,$chr(3))
inc %count $count($1-,$chr(2))
inc %count $count($1-,$chr(22))
inc %count $count($1-,$chr(31))
inc %count $count($1-,$chr(15))
;The above 5 lines count the number of control codes
if (%count >= 10) {
ban -u60 # $nick 11
kick # $nick Please don't use soo much colour ( $+ %count $+ ) ALW7SH Script
}
}
طرد تيكست فلود Text Flood
on @*:TEXT:*:#:{
if ($nick isop #) return
if ($len($strip($1-)) >= 250) {
;Note that I $strip the text before I use $len, so it won't count any
; control codes like colour or bold etc...
ban -u60 # $nick 11
kick # $nick You talk too much! Keep it below 250 letters ALW7SH Script
}
}
طرد دعايات بالجنل مثل الصفحة والجنل
on @*:TEXT:*:#:{
if ($nick isop #) return
var %s = $strip($1-)
if (*www* iswm %s) || (*http:* iswm %s) || (*ftp:* iswm %s) || ($chr(35) isin $1-) {
ban -u60 # $nick 11
kick # $nick Please do not advertise ( $+ $ifmatch detected) ALW7SH Script
}
}
طرد الايدينت السيئ
on @*:JOIN:#:{
if (*!******@* iswm $fulladdress) || (*!*SHIT*@* iswm $fulladdress) || (*!*DICK*@* iswm $fulladdress) {
ban -u60 # $nick 11
kick # $nick Bad Identd! ALW7SH Script
}
}
طرد نكات قيست
on @*:JOIN:#:{
if (guest????? iswm $nick) {
ban -u60 # $nick 11
kick # $nick Guest nicks are not allowed, /nick <New Nickname>
}
}
on *:NICK:{
if (guest????? iswm $newnick)) {
var %i = 0
while (%i < $comchan($newnick,0)) {
;This while loop goes through every channel both you and the nick are on
inc %i
if ($me isop $comchan($newnick,%i)) {
;You can only kick if you are an op =)
ban -u60 $comchan($newnick,%i) $newnick 11
kick $comchan($newnick,%i) $newnick Guest nicks are not allowed, /nick <New Nickname>
}
}
}
}
طرد تكرار الكلام
on @*:TEXT:*:#:{
if ($nick isop #) || ($nick isvo #) return
var %text = $hash($strip($1-),32)
var %old.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %old.text = $deltok(%old.text,1,46)
if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%old.text != %text) {
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text
return
}
var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
var %count = $gettok(%temp,1,46)
inc %count
set -u60 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %count $+ . $+ %text
if (%count >= 4) {
ban -u60 # $nick 2
kick # $nick You repeated %count times! ALW7SH script }
}
طرد الفلود في الجنل
on @*:TEXT:*:#: {
if ($nick isop #) return
set -u3 %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1)
; The variable, %fld.#chan.nick counts the number of lines the person speaks
; It is automatically unset 3 seconds after the last time the person talked
; So I guess in _theory_ if you managed to do 1 line per 3 secs for 3 lines you could be kicked
if (%fld. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 5) {
;The above if statement checks if that variable is greater to or equals 5
ban -u60 # $nick 11
kick # $nick Please do not flood ALW7SH Script
}
}
طرد تكرار تغير النك فلود نك
on *:NICK: {
set -u60 %fld. [ $+ [ $address ] ] $calc( %fld. [ $+ [ $address ] ] + 1)
if (%fld. [ $+ [ $address ] ] >= 5) {
var %i = 0
while (%i < $comchan($newnick,0)) {
inc %i
ban -u60 $comchan($newnick,%i) $newnick 2
kick $comchan($newnick,%i) $newnick Stop the nick flooding mate! ALW7sh Script
}
}
}
CTCP Floods طرد
ctcp *:*:*: {
set -u60 %ctcp. [ $+ [ $site ] ] $calc( %ctcp. [ $+ [ $site ] ] + 1)
if (%ctcp. [ $+ [ $address ] ] >= 5) {
.ignore -tu60 $site
var %i = 0
while (%i < $comchan($nick,0)) {
inc %i
if ($nick !isop $comchan($nick,%i) {
ban -u60 $comchan($nick,%i) 2
kick $comchan($newnick,%i) $nick Stop the CTCP flooding please! ALW7sh Script
}
}
}
}
طرد كلون دخول اكثر من نك بالايبية واحد
on @*:JOIN:#:{
if ($ial == $false) .ial on
if ($chan(#).ial == $false) { who # | return }
var %total = $ialchan($wildsite,#,0)
; %total is set to the number of people on the channel using $wildsite
if (%total > 1) {
;If there is MORE than one person using $wildsite then we start kicking...
ban -u60 # $nick 2
;Notice how I put the ban command here and used bantype 2 ($wildsite).
;Why? So I only have to place one ban yet it bans every clone.
var %i = 0
while (%i < %total) {
;This while loop loops through all the nicks using $wildsite
inc %i
var %nick = $ialchan($wildsite,#,%i).nick
; %nick is set to the current nickname
var %all.nicks = $addtok(%all.nicks,%nick,32)
; %all.nicks is set to every nick from $wildsite
if (%nick !isop #) {
kick # $nick Clone flood detected from $wildsite ( $+ %total users) ALW7sh Script
}
}
echo 4 -a *** Clone flood detected from $wildsite $+ : %all.nicks
}
}
طرد تيربو انفايت
on *:JOIN:#:{
if ($me isop $chan) && ($len($nick) = 6) { .set %lett abcdefjhigklmnopqrstuvwxyz | .set %num 1234566890 }
if ($me isop $chan) && ($len($nick) = 6) && ($left($nick,1) isin %lett) && ($mid($nick,2,1) isin %lett) && ($mid($nick,3,1) isin %lett) && ($mid($nick,4,1) isin %lett) && ($mid($nick,5,1) isin %num) && ($right($nick,1) isin %num) && ($nick ison $chan) {
if ($mid($address,1,1) isin %lett) && ($mid($address,2,1) isin %lett) && ($mid($address,3,1) isin %lett) && ($mid($address,4,1) isin %lett) && ($mid($address,5,1) isin %num) && ($mid($address,6,1) isin %num) { kick # $nick do not use turbo invite ALW7sh Script $+ %inric | ban # $nick 2 | unset %num %lett }
}
}
on 1:JOIN:#:{
if ($me isop $chan) && ($left($address,5) = TuRBo) || ($left($address,6) = ~TuRBo) || ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
if ($me isop $chan) && ($nick = ^AnDrEa16^) { ban -u400 # $nick 2 | kick # $nick do not use turbo invite ALW7sh Script }
}
on 1:NICK:{
if ($me isop $comchan($newnick,1)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($newnick,3,1) = 1) && ($mid($newnick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,1)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,1) $newnick 2 | kick $comchan($newnick,1) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,2)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,2) $newnick 2 | kick $comchan($newnick,2) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,3)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,3) $newnick 2 | kick $comchan($newnick,3) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,4)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,4) $newnick 2 | kick $comchan($newnick,4) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,5)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,5) $newnick 2 | kick $comchan($newnick,5) $newnick do not use turbo invite ALW7sh Script }
if ($me isop $comchan($newnick,6)) && ($mid($nick,3,1) = 1) && ($mid($nick,6,1) = 6) { /ban -u400 $comchan($newnick,6) $newnick 2 | kick $comchan($newnick,6) $newnick do not use turbo invite ALW7sh Script }
}
طرد ماس انفايت
on @1:INVITE:#: {
if ($nick !isop $chan) && ($nick !isvo $chan) {
set %invite.total $comchan($nick,0)
set %invite.which 0
goto invite
}
else { goto end }
:invite
if ( %invite.which > %invite.total ) { goto end }
else {
inc %invite.which 1
if ( $me isop $comchan($nick,%invite.which)) && ( $nick !isop $comchan($nick,%invite.which)) {
ban -u9000 $comchan($nick,%invite.which)) $nick 2
raw -q kick $comchan($nick,%invite.which)) $nick : $+ Do not use mass invite in channel - ALW7sh Script
goto invite
}
else { goto invite }
}
:end
unset %invite.*
}
طرد فلتر باند
on *:ban:#:{
.ial on
if $me !isop $chan { halt }
else {
if $ialchan($banmask,$chan,1).nick == $me { mode $chan -b $banmask | halt }
if $level($address($ialchan($banmask,$chan,1).nick,3) ) >= 80 { mode $chan -b $banmask | halt }
if $ialchan($banmask,$chan,1).nick == $null { halt }
else {
set %themusicman 0
:monitorflash
inc %themusicman
if $ialchan($banmask,$chan,%themusicman).nick == $null { unset %themusicman | halt }
else { kick $chan $ialchan($banmask,$chan,%themusicman).nick Banned By $nick - ALW7sh Scipt | goto monitorflash }
}
}
}
CtCP طرد وتسكير المود
ctcp *:*:#:{
if ($nick isop $chan) || ($nick isvo $chan) || ($nick == Chanserv) || ($nick == Memoserv) || ($nick == Operserv) || ($nick == $server) || ($nick == $me) || (dal.net isin $nick) { halt }
if ($me isop $chan) { .mode $chan +mRb $wildsite $chan | .ignore -tu30 *!*@* | echo -a 3*** Script Detected Channel Ctcp From $nick | .kick $chan $nick 3 Ctcp you want make flood in channel or what..? 1=- 14,4K14,0u1,3w0,1Mâktôôb1,3a14,0i14,4T 1=- | .ignore -ut60 $wildsite | .timer 1 60 mode $chan -R | halt }
else { .ignore -tnu60 *!*@* | .ignore -u90 $wildsite
}
}
Join And Part With FLood طرد
on @*:PART:#:{
if ($nick isop #) return
set -u30 %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $calc( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] + 1 )
if ( %rd. [ $+ [ $chan ] $+ . $+ [ $nick ] ] >= 2) {
ban -u600 # $nick 2
kick # $nick part join flood - ALW7sh Script
}
}
}
حماية من فلود بالجنل وبرايفت
on ^*:OPEN:?:{
var %i = 1
set -u30 %osc [ $+ [ $site ] ] $addtok(%osc [ $+ [ $site ] ] ,$nick,32)
if $numtok(%osc [ $+ [ $site ] ] ,32) >= 3 {
ignore -a $wildsite | mode $me +R
while %i <= $numtok(%osc [ $+ [ $site ] ] ,32) {
.close -m $gettok(%osc [ $+ [ $site ] ] ,%i,32)
inc %i
}
unset %osc [ $+ [ $site ] ]
halt
}
}
on ^*:JOIN:#:{
var %i = 1
set -u30 %flood [ $+ [ $site ] ] $addtok(%flood [ $+ [ $site ] ] ,$nick,32)
if $numtok(%flood [ $+ [ $site ] ] ,32) >= 3 {
mode # +mRb $wildsite | timer2 1 70 mode # -R
.ignore -a $wildsite
{
/kick # $gettok(%flood [ $+ [ $site ] ] ,%i,32) bot flood - ALW7sh Script
inc %i
}
unset %flood [ $+ [ $site ] ]
}
}
طرد الشتائم في نوتس
on @+1:NOTICE:*كس*:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
on @+1:NOTICE:******:#:{ if ($nick isop $chan) { halt } | ban $chan $nick 2 | kick $chan $nick don't Swaer in Noitce - ALW7sh Script} }
طرد اكسس فلود
on !*:QUIT:{ if (Excess?Flood iswm $1-) { inc -u120 %quit. [ $+ [ $wildsite ] ] | if (%quit. [ $+ [ $wildsite ] ] >= 3) { if ($level($wildsite) !== excessflood) { auser excessflood $wildsite } } } }
on @excessflood:JOIN:#:{ kick $chan $nick ExcessFlooD Please Do Not excessflood In Channel If want stay here - ALW7sh Script | /ban # $nick 2 | guser excessflood $nick } }
طرد النوتس بالجنل
on *:NOTICE:*:#:{
if (%chan-notice-flood == on) {
if ($nick == chanserv) || ($nick == nickserv) || ($nick == memoserv) || ($nick == $server) || ($nick == operserv) || ($nick == helpserv) || ($nick == statserv) { halt }
inc %notice-flood. [ $+ [ $nick ] ] | .timer 1 6 unset %notice-flood. [ $+ [ $nick ] ]
if (%notice-flood. [ $+ [ $nick ] ] >= 1) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
if ($len($1-) > 350) {
if ($nick isop $chan) || ($nick isvo $chan) { halt }
if ($me isop $chan) { ban -u300 $chan $nick 2 | kick $chan $nick %logo Noticeis not allowed send notice in channel
else { .ignore -nu10 $nick 2 }
}
}
}
هذا امر يعلمك متى انتهاء النك ويستخذم مع الانفو للنك
on *:notice:*:?:{
if ($nick == NickServ) {
if ( $1-3 == Last seen time ) { set %seendatex $gettok($mid($remove($1-,Last seen time :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Last seen time :,GMT),6,99),3,47) }
if ( $1-2 == Time now ) {
set %timenowx $gettok($mid($remove($1-,Time now :,GMT),6,99),2,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),1,47) $+ / $+ $gettok($mid($remove($1-,Time now :,GMT),6,99),3,47)
set %exptimex $calc($calc($ctime(%seendatex) + 2592000)) | echo -a $+ $colour(notice) $+ -NickServ- Nick's Expiry time: $asctime(%exptimex) GMT
if ($calc(%exptimex -$ctime(%timenow)) > 0) { echo -a $+ $colour(notice) $+ -NickServ- The nick's expire : $duration($calc(%exptimex - $ctime(%timenowx))) }
if ($calc(%exptimex -$ctime(%timenow)) < 0) { echo -a $+ $colour(notice) $+ -NickServ- Nick expires in: Past expirey time by $duration($remove($calc(%exptimex -$ctime(%timenowx)),-)) }
unset %nsaddy | unset %timenow | unset %exptime | unset %seendate
}
}
}
امر المترجم
on *:load:if ($version < 5.4) { echo 4 -a ** Error 2»»To use this script, you should have mIRC v5.4+«« | .unload -rs $script | halt } | if ($?!="Do you want to enable ara2eng convertor?") { .enable #ara2eng } | else { .disable #ara2eng } | .remote on
menu menubar,status,channel,query {
-
translator
.Transulation [[ $+ $group(#ara2eng) $+ ]:if ($group(#ara2eng) = on) { .disable #ara2eng } | else { .enable #ara2eng }
.Check ALL [[ $+ [ $iif($a2e-rini(words),$a2e-rini(words),10) ] $+ ] word(s):if ($$?="check first [N] words:" isnum 1-50) { a2e-wini words $! }
.channel Transulation - [[ $+ [ $iif($a2e-rini(colour) = 1,on,off) ] $+ ]:if ($a2e-rini(colour) = 1) { a2e-wini colour 0 } | else { a2e-wini colour 1 }
.-
.@Ara2Eng Window:a2e-win
}
alias a2e-win {
if ($window(@Ara2Eng) = $null) {
if ($a2e-rini(pos) = $null) { a2e-wini pos 100 100 450 300 }
window -de @Ara2Eng- $a2e-rini(pos) @Ara2Eng
echo 9 @Ara2Eng- * Double click?!
renwin @Ara2Eng- @Ara2Eng - Arabic to English
}
}
alias a2e-rini return $readini -n configs.ini ara2eng $1
alias a2e-wini writeini configs.ini ara2eng $1 *2
alias -l a2e-e2a {
if ($window(@Ara2Eng)) && ($window(@Eng2Ara) = $null) { renwin @Ara2Eng @Eng2Ara - English to Arabic }
elseif ($window(@Eng2Ara)) && ($window(@Ara2Eng) = $null) { renwin @Eng2Ara @Ara2Eng - Arabic to English }
}
menu @Ara2Eng {
dclick:a2e-e2a
$iif($active = @Ara2Eng,@Eng2Ara,@Ara2Eng):a2e-e2a
-
clear:clear
-
close:window -c $active
}
on *:input:@:if ($target = @Ara2Eng) { a2e *1 | halt } | elseif ($target = @Eng2Ara) { ara *1 | halt }
on *:close:@:if (($target = @Ara2Eng) || ($target = @Eng2Ara)) && ($window($target).state != maximized) { a2e-wini pos $window($target).x $window($target).y $window($target).w $window($target).h }
#ara2eng off
on *:text:*:*:checkara *1
on *:action:*:*:checkara *1
on *:chat:*:checkara *1
#ara2eng end
alias isara if ($asc($left($strip($1),1)) isnum 194-237) return $true
alias checkara :loop | inc -u %ara.i | if ($isara($gettok($strip(*1),%ara.i,32),1)) { a2e *1 | return } | if (%ara.i < $iif($a2e-rini(words),$a2e-rini(words),10)) && (%ara.i < $gettok($strip(*1),0,32)) { goto loop }
alias -l getwindow return $iif($event = chat,=$nick,$iif(#,#,$iif($nick,$nick,-a)))
alias a2e echo $iif($a2e-rini(colour) = 1,$r(2,7),5) $getwindow < $+ $iif($nick,$nick,14CONVERT) $+ :10ARA2ENG> $replace($$remove($strip(*1),ـ,ء,ّ,َ,ً,ُ,ٌ,ِ,ٍ,~,ْ ,$null),ده,d'h,كه,k'h,سه,s'h,ته,t'h,أ,a,ا,a,إ,i,ب, b,ت,t,ث,th,ج,j,ح,7,خ,kh,د,d,ذ,th,ر,r,ز,z,س,s,ش,sh, ص,9,ض,dh,ط,6,ظ,`6,ع,3,غ,`3,ف,f,ق,q,ك,k,ل,l,م,m,ن,n ,ه,h,و,o,ي,i,ى,a,ؤ,o,ئ,a,؟,?,آ,a,ة,h,،,$chr(44))
;* You can type in Arabic using "/ara msg !msg", Tip: Use '!' as shown to prevent conversion.
alias ara {
:loop | inc -u %ara.i1 | if ($left($gettok($strip(*1),%ara.i1,32),1) = !) && ($remove($gettok($strip(*1),%ara.i1,32),!) != $null) { set -u %ara.tok %ara.tok %ara.i1 } | if (%ara.i1 < $gettok($strip(*1),0,32)) { goto loop }
set -u %ara $ara2(*1) | :loop2 | inc -u %ara.i2 | if ($gettok(%ara.tok,%ara.i2,32)) { set -u %ara $puttok(%ara,$remove($gettok($strip(*1),$ifmatch,3 2),!),$ifmatch,32) } | if (%ara.i2 < $gettok(%ara.tok,0,32)) { goto loop2 }
$iif($active = Status Window || $active = @Eng2Ara,echo [ $iif($a2e-rini(colour) = 1,$r(2,7),5) ] * 14CONVERT:10ENG2ARA:,say) %ara
}
alias ara2 return $replace($$remove($strip(*
========
بدال ALw7sh Script حط اسم سكربتك عشان اتبين بالطرده وشكرا :)