my bad sorry its $left(data,+4) not -4

so...

Code:
on *:TEXT:*:#test:{
  if (!add isin $1) {
    var %x = $remove($1,$left($1,+4))
    if ($read($+(%x,.txt),nw,$2-)) {
      msg #test This already exists!
    }
    else {
      write $+(%x,.txt) $2-
      msg #test This has been successfully added.
    }
  }
  elseif (!del isin $1) {
    var %x = $remove($1,$left($1,+4))
    if (!$read($+(%x,.txt),nw,$2-)) {
      msg #test This doesn't exist!
    }
    else {
      write -dl $readn $+(%x,.txt)
      msg #test Has been successfully deleted.
    }
  } 
}

Code:
if $reality > $fiction { set %sanity Sane }
Else { echo -a *voices* }