/ScriptServ

[script]
n0=alias checkwoids {
n1=  set %kcheck %kickwords
n2=  set %wcheck %kmsg
n3=  if (%knick == $null || %kchan == $null || %kcheck == $null || %wcheck == $null) { goto end }
n4=  :start
n5=  tokenize 32 %kcheck
n6=  if ($1 == $null) { goto end }
n7=  if ($istok(%wcheck , $1 ,32) == $true) { kick %kchan %knick No Cursing! | goto end }
n8=  else {
n9=    set %kcheck $remtok( %kcheck , $1 ,1,32) 
n10=    goto start
n11=  }
n12=  :end
n13=  unset %wcheck | unset %kcheck | unset %knick | unset %kchan | unset %kmsg
n14=}
n15=on 1:TEXT:*:#: {
n16=if ($me !isop $chan) || (a !isin $usermode) { return }
n17=  if (%wordkick == ON) && ($istok(%kickchans , $chan ,32) == $true ) && ($nick !isop $chan) {
n18=    set %kmsg $1- | set %kmsg $remove(%kmsg,?,!,.,",&,*) | set %kmsg $strip(%kmsg)
n19=    set %knick $nick | set %kchan $chan | checkwoids
n20=  }
n21=}