/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
;=====================================================================================
alias kickwindow {
  if ( %clonekick == ON ) { set %clonekickcolor 12 }
  if ( $remove(%clonetime,-u) == 0 ) { set %clonetimeno 12No Ban! }
  if ( %ctcpflood == ON ) { set %ctcpcolor 12 }
  if ( $remove(%ctcpfloodban,-u) == 0 ) { set %ctcpfloodno 12No Ban! }
  if ( %invite == ON ) { set %invitecolor 12 }
  if ( $remove(%massban,-u) == 0 ) { set %massbanno 12No Ban! }
  if ( %swear == ON ) { set %swearcolor 12 }
  if ( $remove(%langban,-u) == 0 ) { set %langbanno 12No Ban! }
  if ( %advertise == ON ) { set %advertisecolor 12 }
  if ( $remove(%adverban,-u) == 0 ) { set %adverbanno 12No Ban! }
  if ( %longtext == ON ) { set %longtextcolor 12 }
  if ( $remove(%longtxtban,-u) == 0 ) { set %longtxtbanno 12No Ban! }
  if ( %flood == ON ) { set %floodcolor 12 }
  if ( $remove(%floodban,-u) == 0 ) { set %floodbanno 12No Ban! }
  if ( %filekick == ON ) { set %filekickcolor 12 }
  if ( $remove(%fileban,-u) == 0 ) { set %filebanno 12No Ban! }
  if ( %arabkicker == ON ) { set %arabkickercolor 12 }
  if ( $remove(%araban,-u) == 0 ) { set %arabanno 12No Ban! }
  window @Kick_List 100 100 800 350
  aline @Kick_List 11,1Welcome to the Chanel ProtecTion  Window $irc
  aline @Kick_List 11,1Here are the list of all Chanel ProTection in this Script
  aline @Kick_List +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  aline @Kick_List 3 1. 4Mass Inviting 12»»»12 $+ %invitecolor %invite . 4Ban time is 12 $+ $remove(%massban,-u) $+  %massbanno 4On: %channelmass | /.unset %invitecolor | /.unset %massbanno
  aline @Kick_List 3 2. 4Swear Kick 12»»»12 $+ %swearcolor %swear . 4Ban time is 12 $+ $remove(%langban,-u) $+  %langbanno 4On: %channelswear | /.unset %swearcolor | /.unset %langbanno
  aline @Kick_List 3 3. 4Advertise Kick 12»»»12 $+ %advertisecolor %advertise . 4Ban time is 12 $+ $remove(%adverban,-u) $+  %adverbanno 4On: %channeladver | /.unset %advertisecolor | /.unset %adverbanno
  aline @Kick_List 3 4. 4Text Flood 12»»»12 $+ %floodcolor %flood . 4Ban time is 12 $+ $remove(%floodban,-u) $+  %floodbanno 4On: %channelflood | /.unset %floodcolor | /.unset %floodbanno
  aline @Kick_List 3 5. 4CTCP Flood 12»»»12 $+ %ctcpcolor %ctcpflood . 4Ban time is 12 $+ $remove(%ctcpfloodban,-u) $+  %ctcpfloodno 4On: %channelctcp | /.unset %ctcpcolor | /.unset %ctcpfloodno
  aline @Kick_List 3 6. 4Kick Virus Senders 12»»»12 $+ %filekickcolor %filekick . 4Ban time is 12 $+ $remove(%fileban,-u) $+  %filebanno 4On: %channelvirus | /.unset %filekickcolor | /.unset %filebanno
  aline @Kick_List 3 7. 4English Fonts Only 12»»»12 $+ %arabkickercolor %arabkicker . 4Ban time is 12 $+ $remove(%araban,-u) $+  %arabanno 4On: %channelarabic | /.unset %arabkickercolor | /.unset %arabanno
  aline @Kick_List 3 8. 4Clones Detection 12»»»12 $+ %clonekickcolor %clonekick 5Max Client = %maxclones . 4Ban time is 12 $+ $remove(%clonetime,-u) $+  %clonetimeno 4On: %channelclone | /.unset %clonekickcolor | /.unset %clonetimeno
  aline @Kick_List 3 9. 4Long Text Flood 12»»»12 $+ %longtextcolor %longtext 5Size Limit = %lenmax . 4Ban time is 12 $+ $remove(%longtxtban,-u) $+  %longtxtbanno 4On: %channellongtxt | /.unset %longtextcolor | /.unset %longtxtbanno
  aline @Kick_List +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
}
menu @Kick_List {
  1. Mass InviTing
  .Set
  ..ON:/set %invite ON | kickwindow2
  ..OFF:/set %invite OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channelmass $addtok(%channelmass, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channelmass $remtok(%channelmass,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .&Set Ban Time:/set %massban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %massban1 $! | /kickwindow2
  2. Swear Kick
  .Set  
  ..ON:/set %swear ON | kickwindow2
  ..OFF:/set %swear OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channelswear $addtok(%channelswear, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channelswear $remtok(%channelswear,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .Set Ban Time:/set %langban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %langban1 $! | /kickwindow2
  3. AdverTise Kick
  .Set  
  ..ON:/set %advertise ON | kickwindow2
  ..OFF:/set %advertise OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channeladver $addtok(%channeladver, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channeladver $remtok(%channeladver,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .Set Ban Time:/set %adverban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %adverban1 $! | /kickwindow2
  4. Text Flood
  .Set  
  ..ON:/set %flood ON | kickwindow2
  ..OFF:/set %flood OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channelflood $addtok(%channelflood, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channelflood $remtok(%channelflood,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-
  .Set Ban Time:/set %floodban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %floodban1 $! | /kickwindow2
  5. CTCP Flood
  .Set  
  ..ON:/set %ctcpflood ON | kickwindow2
  ..OFF:/set %ctcpflood OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channelctcp $addtok(%channelctcp, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channelctcp $remtok(%channelctcp,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .Set Ban Time:/set %ctcpfloodban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %ctcpfloodban1 $! | /kickwindow2
  6.Virus Senders
  .Set  
  ..ON:/set %filekick ON | kickwindow2
  ..OFF:/set %filekick OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channelvirus $addtok(%channelvirus, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channelvirus $remtok(%channelvirus,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .Set Ban Time:/set %fileban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %fileban1 $! | /kickwindow2
  7.English Fonts Only
  .Set  
  ..ON:/set %arabkicker ON | kickwindow2
  ..OFF:/set %arabkicker OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channelarabic $addtok(%channelarabic, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channelarabic $remtok(%channelarabic,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .Set Ban Time:/set %araban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %araban1 $! | /kickwindow2
  8.Clones DeTecTion
  .Set  
  ..ON:/set %clonekick ON | kickwindow2
  ..OFF:/set %clonekick OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channelclone $addtok(%channelclone, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channelclone $remtok(%channelclone,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .Max Client:/set %maxclones $$?="Max Number Of Clones:" | /kickwindow2
  .Set Ban Time:/set %clonetime -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %clonetime1 $! | /kickwindow2
  9.Long Text Flood
  .Set  
  ..ON:/set %longtext ON | kickwindow2
  ..OFF:/set %longtext OFF | kickwindow2
  .Channels
  ..Add Chn:/set %channellongtxt $addtok(%channellongtxt, $+ $$?="Which channel ?" $+ ,44) | /kickwindow2
  ..Del Chn:/set %channellongtxt $remtok(%channellongtxt,$+ $$?="Which channel ? " $+ ,1,44) | /kickwindow2
  .-
  .-  
  .Size Limit:/set %lenmax $$?="Enter Max Characters" | /kickwindow2
  .Set Ban Time:/set %longtxtban -u $+ $$?="Enter Ban Time in secs (0 for no ban)" | /set %longtxtban1 $! | /kickwindow2
  -
  Close:/window -c @Kick_List
}
alias kickwindow2 {
  clear -l @Kick_List
  if ( %clonekick == ON ) { set %clonekickcolor 12 }
  if ( $remove(%clonetime,-u) == 0 ) { set %clonetimeno 12No Ban! }
  if ( %ctcpflood == ON ) { set %ctcpcolor 12 }
  if ( $remove(%ctcpfloodban,-u) == 0 ) { set %ctcpfloodno 12No Ban! }
  if ( %invite == ON ) { set %invitecolor 12 }
  if ( $remove(%massban,-u) == 0 ) { set %massbanno 12No Ban! }
  if ( %swear == ON ) { set %swearcolor 12 }
  if ( $remove(%langban,-u) == 0 ) { set %langbanno 12No Ban! }
  if ( %advertise == ON ) { set %advertisecolor 12 }
  if ( $remove(%adverban,-u) == 0 ) { set %adverbanno 12No Ban! }
  if ( %longtext == ON ) { set %longtextcolor 12 }
  if ( $remove(%longtxtban,-u) == 0 ) { set %longtxtbanno 12No Ban! }
  if ( %flood == ON ) { set %floodcolor 12 }
  if ( $remove(%floodban,-u) == 0 ) { set %floodbanno 12No Ban! }
  if ( %filekick == ON ) { set %filekickcolor 12 }
  if ( $remove(%fileban,-u) == 0 ) { set %filebanno 12No Ban! }
  if ( %arabkicker == ON ) { set %arabkickercolor 12 }
  if ( $remove(%araban,-u) == 0 ) { set %arabanno 12No Ban! }
  window @Kick_List
  aline @Kick_List 11,1Welcome to the Chanel ProTection Window $irc
  aline @Kick_List 11,1Here are the list of all Chanel ProTection in this Script
  aline @Kick_List +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  aline @Kick_List 3 1. 4Mass Inviting 12»»»12 $+ %invitecolor %invite . 4Ban time is 12 $+ $remove(%massban,-u) $+  %massbanno On: %channelmass | /.unset %invitecolor | /.unset %massbanno
  aline @Kick_List 3 2. 4Swear Kick 12»»»12 $+ %swearcolor %swear . 4Ban time is 12 $+ $remove(%langban,-u) $+  %langbanno On: %channelswear | /.unset %swearcolor | /.unset %langbanno
  aline @Kick_List 3 3. 4Advertise Kick 12»»»12 $+ %advertisecolor %advertise . 4Ban time is 12 $+ $remove(%adverban,-u) $+  %adverbanno On: %channeladver | /.unset %advertisecolor | /.unset %adverbanno
  aline @Kick_List 3 4. 4Text Flood 12»»»12 $+ %floodcolor %flood . 4Ban time is 12 $+ $remove(%floodban,-u) $+  %floodbanno On: %channelflood | /.unset %floodcolor | /.unset %floodbanno
  aline @Kick_List 3 5. 4CTCP Flood 12»»»12 $+ %ctcpcolor %ctcpflood . 4Ban time is 12 $+ $remove(%ctcpfloodban,-u) $+  %ctcpfloodno On: %channelctcp | /.unset %ctcpcolor | /.unset %ctcpfloodno
  aline @Kick_List 3 6. 4Kick Virus Senders 12»»»12 $+ %filekickcolor %filekick . 4Ban time is 12 $+ $remove(%fileban,-u) $+  %filebanno On: %channelvirus | /.unset %filekickcolor | /.unset %filebanno
  aline @Kick_List 3 7. 4English Fonts Only 12»»»12 $+ %arabkickercolor %arabkicker . 4Ban time is 12 $+ $remove(%araban,-u) $+  %arabanno On: %channelarabic | /.unset %arabkickercolor | /.unset %arabanno
  aline @Kick_List 3 8. 4Clones Detection 12»»»12 $+ %clonekickcolor %clonekick 5Max Client = %maxclones . 4Ban time is 12 $+ $remove(%clonetime,-u) $+  %clonetimeno On: %channelclone | /.unset %clonekickcolor | /.unset %clonetimeno
  aline @Kick_List 3 9. 4Long Text Flood 12»»»12 $+ %longtextcolor %longtext 5Size Limit = %lenmax . 4Ban time is 12 $+ $remove(%longtxtban,-u) $+  %longtxtbanno On: %channellongtxt | /.unset %longtextcolor | /.unset %longtxtbanno
  aline @Kick_List +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
}
alias addchanall {
  set %chantemp $$?="Which Channel ?"
  set %channelctcp $addtok(%channelbadnick,%chantemp,44)
  set %channeladver $addtok(%channelbadnick,%chantemp,44)
  set %channelswear $addtok(%channelbadnick,%chantemp,44)
  set %channellongtxt $addtok(%channelbadnick,%chantemp,44)
  set %channelflood $addtok(%channelbadnick,%chantemp,44)
  set %channelarabic $addtok(%channelbadnick,%chantemp,44)
  set %channelclone $addtok(%channelbadnick,%chantemp,44)
  set %channelvirus $addtok(%channelbadnick,%chantemp,44)
  set %channelmass $addtok(%channelbadnick,%chantemp,44)
  unset %chantemp
  kickwindow2
}
alias delchanall {
  set %chantemp $$?="Which Channel ?"
  set %channelctcp $remtok(%channelccodes,%chantemp,1,44)
  set %channeladver $remtok(%channelccodes,%chantemp,1,44)
  set %channelswear $remtok(%channelccodes,%chantemp,1,44)
  set %channellongtxt $remtok(%channelccodes,%chantemp,1,44)
  set %channelflood $remtok(%channelccodes,%chantemp,1,44)
  set %channelarabic $remtok(%channelccodes,%chantemp,1,44)
  set %channelclone $remtok(%channelccodes,%chantemp,1,44)
  set %channelvirus $remtok(%channelccodes,%chantemp,1,44)
  set %channelmass $remtok(%channelccodes,%chantemp,1,44)
  unset %chantemp
  kickwindow2
}