alias swearnick { return Küfür Yasaktır.. }
alias swearmsg { return Küfür Yasaktır.. } 
alias swearnotice { return Küfür Yasaktır.. }
alias smbantime { return 5 }
on *:TEXT:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1- 
on *:ACTION:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1- 
on *:NOTICE:*:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $1- 
off *:JOIN:#: if ($nick isop $chan) { | halt } | if ($nick isvo $chan) { | halt } | elseif ($me isop $chan) swearcheck $nick $chan $nick $nick 
alias swearx { dialog -m swearx swearx | swearlist }
dialog swearx {
  title "Swear Kick TEXT,ACTION,NOTICE,JOIN"
  size -1 -1 413 220
  option pixels
  list 1, 0 20 362 200, size
  edit "", 2, 0 0 362 20
  button "Add", 3, 363 0 50 20, default
  button "Close", 4, 363 199 50 20, ok
  button "Delete", 5, 363 72 50 20
  button "Clear", 6, 363 118 50 20
  button "Edit", 7, 363 95 50 20
}
on *:DIALOG:swearx:sclick:*:{
  if ($did = 1) {
    did -e swearx 5
    did -e swearx 7
  }
  if ($did = 3) {
    write swearkick.txt $did(2).text
    did -a swearx 1 $did(2).text
    did -r swearx 2
    did -b swearx 5
    did -b swearx 7
  }
  if ($did = 5) {
    if ($did(1).sel != 0) {
      set %temp $read(swearkick.txt, s, $did(1).seltext)
      write -dl $+ $readn swearkick.txt
      did -d swearx 1 $did(1).sel
      did -b swearx 5
      did -b swearx 7
    }
    else { did -b swearx 5 }
  }
  if ($did = 6) {
    if ($?!="Are you sure?" = $true) {
      did -r swearx 1
      write -c swearkick.txt
      did -b swearx 5
      did -b swearx 7
    }
  }
  if ($did = 7) {
    set %temp $$?="Change $did(1).seltext into:"
    did -a swearx 1 %temp
    set %temp2 $read(swearkick.txt, s, $did(1).seltext)
    write -dl $+ $readn swearkick.txt
    did -d swearx 1 $did(1).sel
    write swearkick.txt %temp
    did -b swearx 5
    did -b swearx 7
  }
}
on *:DIALOG:swearx:init:*:{
  did -b swearx 5
  did -f swearx 2
}
on *:DIALOG:swearx:edit*:{
  if ($did = 2) { did -b swearx 5 }
}
alias -l swearlist {
  .set %pnline $lines(swearkick.txt)
  .set %pcline 1
  :next
  if (%pcline < %pnline) { .did -a swearx 1 $read(swearkick.txt, %pcline) | inc %pcline | goto next }
  if (%pnline = %pcline) { .did -a swearx 1 $read(swearkick.txt, %pcline) | goto done }
  :done
  return
}
; SwearCheck <nick> <chan> <message>
alias swearcheck {
  .set %pnline $lines(swearkick.txt)
  .set %pcline 1
  :next
  if (%pcline < %pnline) { 
    if ($read(swearkick.txt, %pcline) !isin $3-) {
      inc %pcline
      goto next
    }
    else {
      goto kb
    }
  }
  if (%pcline = %pnline) { 
    if ($read(swearkick.txt, %pcline) !isin $3-) {
      goto done
    }
    else {
      goto kb
    }
  }
  :done
  return
  :kb
  if ($me isop $2) {
    if ($event = text) { kick $2 $1 $swearmsg | ban -u3600 $2 $1 2 }
    if ($event = action) { kick $2 $1 $swearmsg | ban -u3600 $2 $1 2 }
    if ($event = join) { kick $2 $1 $swearnick | ban -u3600 $2 $1 2 }
    if ($event = notice) { kick $2 $1 $swearnotice | ban -u3600 $2 $1 2 }
  }
  goto done
}
alias -l nscheck {
  set %i $comchan($1,0)
  set %c 1
  while (%c <= %i) {
    if ($me isop $comchan($1,%c)) {
      kick $comchan($1,%c) $1 $swearnick
      ban -u3600 $comchan($1,%c) $1 $swearnick
    }
    inc %c
  }
}
}