/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
on @3:JOIN:#: {
  if ( %clonekick == ON ) {
    if ( $ialchan($address($nick,2),$chan,0) > %maxclones ) {
      %clone.which = 0
      %clone.total = $ialchan($address($nick,2),$chan,0)
      goto clonelist
    }
    else { goto revolve }
  }
  else { goto revolve }
  :clonelist 
  inc %clone.which 1
  if ( %clone.which > %clone.total ) { goto cloneopcheck }
  else { 
    %clone.nicks = %clone.nicks $gettok($ialchan($address($nick,2),$chan,%clone.which),1,33)
    goto clonelist
  }
  :cloneopcheck
  %clone.which = 0
  %clone.total = $ialchan($address($nick,2),$chan,0)
  goto cloneopcheckloop
  :cloneopcheckloop
  inc %clone.which 1
  if ( %clone.which > %clone.total ) { goto clonekick }
  elseif ( $gettok($ialchan($address($nick,2),$chan,%clone.which),1,33) isop $chan ) { echo -a 12»»» 12Op'd Clones in $chan $+ : %clone.nicks ( $+ $gettok($address($nick,2),2,64) $+ ) | goto revolve }
  else { goto cloneopcheckloop }
  :clonekick
  if ( $istok(%channelclone,$chan,44) == $true ) {
    .notice $nick Clones are not allowed in $chan ( $+ %clone.nicks $+ ) $irc
    if ( $nick ison $chan ) && ( $nick !isop $chan ) { inc %knum 1 }
    if ( $nick ison $chan ) && ( $nick !isop $chan ) && ( $remove(%bantime,-u) > 0 ) { ban %clonetime $chan $nick 2 }
    if ( $nick ison $chan ) && ( $nick !isop $chan ) { kick $chan $nick $irc $+ ...Clones Detected: %clone.nicks ( $+ $gettok($address($nick,2),2,64) $+ )... 12(  $+ %clonetime1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > }
  }
  else { goto end }
  goto end
}
on @1:INVITE:#: {
  if ( %invite == ON ) { 
    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)) {
      inc %knum 1
      set %chancom $comchan($nick,%invite.which))
      if ( $istok(%channelmass,%chancom,44) == $true ) {
        if ( $remove(%massban1,-u) > 0 ) { ban %massban $comchan($nick,%invite.which)) $nick 2 }
        kick $comchan($nick,%invite.which)) $nick $irc $+ 12We don't accept any mass invite here ,so go out12(  $+ %massban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > 
        goto invite
      }
    }   
    else { goto invite } 
  }
  :end
  unset %invite.*
}
on @1:NOTICE:*:#: {
  if ( $nick isop $chan ) { goto end }
  elseif ( %ad1 isin $strip($parms)) || ( %ad2 isin $strip($parms)) || ( %ad3 isin $strip($parms)) || ( %ad4 isin $strip($parms)) || ( %ad5 isin $strip($parms)) || ( %ad6 isin $strip($parms)) && ( $chan !isin $strip($parms)) && ( %advertise == ON ) && ( $istok(%channeladver,$chan,44) == $true ) {
    inc %knum 1
    if ( $remove(%adverban,-u) > 0 ) { ban %adverban $chan $nick 2 }
    kick $chan $nick $irc $+ 12Advertising on notice is not allow so you can go out12(  $+ %adverban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > 
    goto end
  }
  else { goto end }
  :end
}
on @1:TEXT:*:#: {
  if ( $nick isop $chan ) { goto end }
  else { goto swear }
  :swear
  if ( fuck isin $strip($parms)) || ( bitch isin $strip($parms)) || ( biatch isin $strip($parms)) || ( asshole isin $strip($parms)) || ( whore isin $strip($parms)) || ( prick isin $strip($parms)) || ( bastard isin $strip($parms)) || ( horney isin $strip($parms)) || ( ÞÍÈÉ isin $strip($parms)) || ( ßÓ isin $strip($parms)) || ( ÒÈ isin $strip($parms)) || ( Çäíß isin $strip($parms)) || ( Ãäíß isin $strip($parms)) || ( ÎäíË isin $strip($parms)) || ( ÝÑæÎ isin $strip($parms)) || ( ãÎÇäíË isin $strip($parms)) || ( ÕÝÇÚäÉ isin $strip($parms)) || ( kos isin $strip($parms)) || ( horny isin $strip($parms)) || ( orgasm isin $strip($parms)) || ( orgy isin $strip($parms)) || ( pussy isin $strip($parms)) || ( cunt isin $strip($parms)) || ( cock isin $strip($parms)) || ( slut isin $nick ) && ( %swear == ON ) && ( $istok(%channelswear,$chan,44) == $true ) && ( .wav !isin $strip($parms)) {
    inc %knum 1
    if ( $remove(%langban,-u) > 0 ) { ban %langban $chan $nick 2 }
    kick $chan $nick $irc $+ 12We don't accept any Bad word in this chanel .Bye Bye !! 12(  $+ %langban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ >  
    goto end
  }
  else { goto advertise }
  :advertise
  if ( %ad1 isin $strip($parms)) || ( %ad2 isin $strip($parms)) || ( %ad3 isin $strip($parms)) || ( %ad4 isin $strip($parms)) || ( %ad5 isin $strip($parms)) || ( %ad6 isin $strip($parms)) || ( %ad7 isin $strip($parms)) && ( $chan !isin $strip($parms)) && ( %advertise == ON ) && ( $istok(%channeladver,$chan,44) == $true ) {
    inc %knum 1
    if ( $remove(%adverban,-u) > 0 ) { ban %adverban $chan $nick 2 }
    kick $chan $nick $irc $+ 12Advertising is not allow here for more info msg the founder of the chanel 12(  $+ %adverban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > 
    goto end     
  }
  else { goto longtext }
  :longtext
  if ( $len($strip($parms)) >= %lenmax ) && ( %longtext == ON ) && ( $istok(%channellongtxt,$chan,44) == $true ) {
    inc %knum 1
    if ( $remove(%longtxtban,-u) > 0 ) { ban %longtxtban $chan $nick 2 }
    kick $chan $nick  $irc $+ 12Plz don't wright to much it is like Long Text Flood 12(  $+ %longtxtban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > 
    goto end
  } 
  else { goto flood }
  :flood
  if (( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] == $null ) && ( %flood == ON )) { set %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] 1 | .timer 1 5 unset %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] | goto end }
  elseif (( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] >= 1 ) && ( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] <= 5 ) && ( %flood == ON )) { inc %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] 1 | .timer 1 5 unset %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] | goto end }
  elseif (( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] == 6 ) && ( %flood == ON )) { 
    inc %knum 1 
    if ( $istok(%channelflood,$chan,44) == $true ) {
      if ( $remove(%floodban,-u) > 0 ) { ban %floodban $chan $nick 2 }
      kick $chan $nick $irc $+ 12Flood is not allow here ,so we dont need like you in the chanel (Text Flood) 12(  $+ %floodban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > 
      unset %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ]
      goto end 
    }
  }
  else { goto end }
  :end
}   
on @1:ACTION:*:#: {
  if ( $nick isop $chan ) { goto end }
  else { goto swear }
  :swear
  if ( fuck isin $strip($parms)) || ( bitch isin $strip($parms)) || ( biatch isin $strip($parms)) || ( asshole isin $strip($parms)) || ( whore isin $strip($parms)) || ( prick isin $strip($parms)) || ( bastard isin $strip($parms)) || ( horney isin $strip($parms)) || ( ÞÍÈÉ isin $strip($parms)) || ( ßÓ isin $strip($parms)) || ( ÎäíË isin $strip($parms)) || ( kos isin $strip($parms)) || ( horny isin $strip($parms)) || ( orgasm isin $strip($parms)) || ( orgy isin $strip($parms)) || ( pussy isin $strip($parms)) || ( cunt isin $strip($parms)) || ( cock isin $strip($parms)) || ( slut isin $nick ) && ( $istok(%channelswear,$chan,44) == $true ) && ( %swear == ON ) && ( .wav !isin $strip($parms)) {
    inc %knum 1
    if ( $remove(%langban,-u) > 0 ) { ban %langban $chan $nick 2 }
    kick $chan $nick $irc $+ 12Be polite here we dont accept any bad word 12(  $+ %langban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ >
    goto end
  }
  else { goto advertise }
  :advertise
  if ( %ad1 isin $strip($parms)) || ( %ad2 isin $strip($parms)) || ( %ad3 isin $strip($parms)) || ( %ad4 isin $strip($parms)) || ( %ad5 isin $strip($parms)) || ( %ad6 isin $strip($parms)) || ( %ad7 isin $strip($parms)) && ( $chan !isin $strip($parms)) && ( $istok(%channeladver,$chan,44) == $true ) && ( %advertise == ON ) {
    inc %knum 1
    if ( $remove(%adverban,-u) > 0 ) { ban %adverban $chan $nick 2 }
    kick $chan $nick $+ 12Advertising is not allow here for more info msg the founder 12(  $+ %adverban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > $irc
    goto end     
  }
  else { goto longtext }
  :longtext
  if ( $len($strip($parms)) >= %lenmax ) && ( $istok(%channellongtxt,$chan,44) == $true ) && ( %longtext == ON ) {
    inc %knum 1
    if ( $remove(%longtxtban,-u) > 0 ) { ban %longtxtban $chan $nick 2 }
    kick $chan $nick $irc $+ 12Plz don't wright to much it is like Long Text Flood 12(  $+ %longtxtban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > 
    goto end
  } 
  else { goto flood }
  :flood
  if (( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] == $null ) && ( %flood == ON )) { set %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] 1 | .timer 1 5 unset %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] | goto end }
  elseif (( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] >= 1 ) && ( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] <= 5 ) && ( %flood == ON )) { inc %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] 1 | .timer 1 5 unset %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] | goto end }
  elseif (( %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ] == 6 ) && ( %flood == ON )) { 
    if ( $istok(%channelflood,$chan,44) == $true ) {
      inc %knum 1 
      if ( $remove(%floodban,-u) > 0 ) { ban %floodban $chan $nick 2 }
      kick $chan $nick $irc $+ 12Flood is not allow here 12(  $+ %floodban1 sec. Ban )12 <Kick $chr(35) $+ %knum $+ > 
      unset %floodcheck [ $+ [ $nick [ $+ [ $chan ] ] ] ]
      goto end 
    }
  }
  else { goto end }
  :end
}