/ScriptServ

;--------------SwearKick 2.0 - A SharkAttack® Add-on By Poolshark--------------------
;

on 1:start:{ if $exists(swear.lst) == $false { sksetup } 
  else { echo 10 -a Protected by SwearKick 2.0 - A 0,15 0,14 14,1 Shark4,1Attack15,1® 1,14 0,15  Addon by Poolshark }
}
on @+1:TEXT:*:#:SwearKick $chan $nick $1-
on @+1:ACTION:*:#:SwearKick $chan $nick $1-
on @+1:NOTICE:*:#:SwearKick $chan $nick $1-
on +1:NICK:{
  set %nck.lines $lines(swear.lst)
  set %nck.line 1
  :next
  if %nck.line > %nck.lines { goto end }
  if $read -l $+ %nck.line swear.lst isin $newnick { set %nck.chan 1 | goto nckick }
  inc %nck.line
  goto next
  :nckick
  if %nck.chan > $comchan($newnick,0) { goto end }
  if $me isop $comchan($newnick,%nck.chan) { goto  kb }
  inc %nc 1
  goto nckick
  :kb
  kick $comchan($newnick,%nck.chan) $newnick 10Offensive Nickchange0,15 0,14 14,1 Shark4,1Attack15,1® 1,14 0,15 
  ban -u60 $comchan($newnick,%nck.chan) $newnick 3
  inc %nck.chan 1
  goto nckick
  :end
  unset %nck*
}
on +1:JOIN:#:{
  set %njk.lines $lines(swear.lst)
  set %njk.line 1
  :next
  if %njk.line > %njk.lines { goto end }
  if $read -l $+ %njk.line swear.lst isin $address($nick,5) { goto njkick }
  inc %njk.line
  goto next
  :njkick
  kick $chan $nick 10Offensive Nickname/Address0,15 0,14 14,1 Shark4,1Attack15,1® 1,14 0,15 
  ban -u60 $chan $nick 3
  :end
  unset %njk*
}

alias SwearKick {
  set %sk.lines $lines(swear.lst)
  set %sk.line 1
  :next
  if %sk.line > %sk.lines { goto end }
  if $read -l $+ %sk.line swear.lst isin $3- { goto swkick }
  inc %sk.line
  goto next
  :swkick
  kick $1 $2 10Offensive Language 0,15 0,14 14,1 Shark4,1Attack15,1® 1,14 0,15 
  ban -u60 $1 $2  3
  :end
  unset %sk*
}

alias sksetup { 
  window -a @SwearKick 100 50 450 400
  aline @SwearKick 10** SwearKick 1.2 Setup **
  aline @SwearKick 10=============================
  aline @SwearKick 13Features:
  aline @SwearKick 13* Protects your channel from offensive language in channel text, notices,
  aline @SwearKick 13   and actions.
  aline @SwearKick 13* Protects from offensive nicknames/addresses joining your channel.
  aline @SwearKick 13* Protects your channel from a user changing his/her nick to an offensive
  aline @SwearKick 13   one.
  aline @SwearKick 10=============================
  aline @SwearKick 12** Enter the offensive words you wish to protect your channel against one
  aline @SwearKick 12    at a time.
  aline @SwearKick -
  aline @SwearKick 12** SwearKick will protect your channel from ALL forms of the word. ie:
  aline @SwearKick 12    if you enter "screw", the script will trigger on "screwing" "screwball" etc..
  aline @SwearKick -
  aline @SwearKick 12** Enter "Done" (without the quotes) when finished.
  aline @SwearKick -
  :addwords
  set %sktempword $?="Enter Offensive Word Here"
  if %sktempword == done { goto done }
  if %sktempword == $null { aline @SwearKick 4**Please enter an offensive word or type done | goto addwords }
  aline @SwearKick 12 You Entered the word  $+ %sktempword $+  - Is this correct?
  set %sktempconfirm $$?="Is [ %sktempword ] Correct? (y/n)"
  if %sktempconfirm == n { 
    aline @SwearKick 12 $+ %sktempword $+  not added.
    unset %sktempconfirm
    unset %sktempword
    goto addwords
  }
  aline @SwearKick 12** [ %sktempword ] Added.
  unset %tempconfirm
  write swear.lst %sktempword
  unset %sktempword
  goto addwords
  :done
  unset %sktempword
  aline @SwearKick 10=============================
  aline @SwearKick 6 ** Setup complete **
  aline @SwearKick -
  aline @SwearKick 6 Here is the list of words you entered:
  set %sk1 1
  :list
  if %sk1 > $lines(swear.lst) { goto end }
  aline @SwearKick 6 $read -l [ $+ [ %sk1 ] swear.lst ]
  inc %sk1 1
  goto list
  :end
  unset %sk1
  aline @SwearKick -
  aline @SwearKick 6** You can modify this list at any time by via the SwearKick popup menu
  aline @SwearKick 10=============================
  aline @SwearKick 10* Send all bug reports (as if!<G>), problems, suggestions, praises, money,
  aline @SwearKick 10  etc. to turquidi@pacificnet.net or you may be able to track me down at
  aline @SwearKick 10  #mIRC DALnet
  aline @SwearKick -
  aline @SwearKick 10* The newest version can be found at http://DALmirC.base.org or
  aline @SwearKick 10  http://www.pacificnet.net/~turquidi/mirc.html
  aline @SwearKick -
  aline @SwearKick 10** Thank you for choosing SwearKick **
}

menu status {
-
  SwearKick
  .Modify SwearList:sklist
}
menu channel {
-
  SwearKick
  .Modify SwearList:sklist
}
menu menubar {
-
  SwearKick
  .Modify SwearList:sklist
}

alias sklist {
  window -l @SwearKick_List 100 50 210 300 @SwearKick_list
  sline @SwearKick_List 1
  set %sk2 1
  :list
  if %sk2 > $lines(swear.lst) { goto end }
  aline @SwearKick_list $read -l [ $+ [ %sk2 ] swear.lst ]
  inc %sk2 1
  goto list
  :end
  unset %sk2
  sline @SwearKick_List 1
}

menu @SwearKick_list {
  Add:skadd
  Delete:skdel
}

alias skadd {
  :add
  set %sktempword $?="Enter word to add to list"
  set %skcheck $?="Add [ %sktempword ] ? (y/n)"
  if n isin %skcheck { goto add }
  write swear.lst %sktempword
  unset %sktempword %skcheck
  window -c @SwearKick_list
  sklist
}

alias skdel {
  :delete
  set %skdel $sline(@SwearKick_list,1)
  set %skcheck $?="Delete [ $sline(@SwearKick_list,1) ] ? (y/n)"
  if n isin %skcheck { goto end }
  write -ds [ $+ [ %skdel ] ] swear.lst
  unset %skdel %skcheck
  window -c @SwearKick_list
  sklist
  :end
}

;-----------------------------------------END OF FILE---------------------------------------------