ON *:TEXT:*:#: {
  if ($1 == !filter) {
    if ($nick isop $chan) || ($nick ishop $chan) {
      write C:\filterlist.txt $2-
      /notice $nick $2- has been successfully filtered!
    }
  } 

  else {
    if ($read(C:\filterlist.txt,w,$1-)) {
      if ($nick isop $chan) || ($nick ishop $chan) { halt }
      inc %kcount
      /ban -u60 # $nick 2 | .kick # $nick 13,1Swearing is not allowed here! BANNED FOR: 1min [Noobs Pwnt( %kcount )]
    }
  }
}

ON *:TEXT:!defilterlist*:#: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    write -dw "$2-" C:\filterlist.txt
    msg $nick $2- Successfully Defiltered.
  }
}

on *:text:*hi sockbot*:#: { /notice $nick Hello. I am Pies Bot. }
on *:text:*Bye*:#: { notice $nick Goodbye :) }
on *:text:*Brb*:#: { notice $nick Don't Hurry Back ;D }
on *:text:*Back*:#: { notice $nick Welcome Back! }
on *:text:*Hello*:#: { notice $nick Hello $nick :) }
on *:text:*Pies*:#: { msg Pies $nick on $chan Wants You }
on *:text:*Hey*:#: { notice $nick Hello :) }