on *:load: {
  echo -a $+($chr(3),15,Intitializing) pre-set matches.
  write stxt.txt lol Laughing Out Loud
  write stxt.txt rofl Rolling On The Floor Laughing
  write stxt.txt rotfl Rolling On The Floor Laughing
  write stxt.txt lmao Laughing My Ass Off
  write stxt.txt lmfao Laughing My Fucking Ass Off
  write stxt.txt roflmao Rolling On The Floor Laughing Ass Off
  write stxt.txt roflmfao Rolling On The Floor Laughing My Fucking Ass Off
  write stxt.txt hehe He He He
  write stxt.txt haha Ha Ha Ha
  write stxt.txt hehehe He He He
  write stxt.txt hahaha Ha Ha Ha
  write stxt.txt wb Welcome Back
  write stxt.txt np No Problem
  write stxt.txt yw Your Welcome
  write stxt.txt brb Be Right Back
  write stxt.txt bbl Be Back Later
  write stxt.txt bbs Be Back Soon
  write stxt.txt ok Ok
  write stxt.txt okay Okay
  write stxt.txt k Ok
  write stxt.txt yes Yes
  write stxt.txt yep Yep
  write stxt.txt no No
  write stxt.txt nop Nope
  write stxt.txt nope Nope
  write stxt.txt ty Thank You
  write stxt.txt gtg Got To Go
  write stxt.txt jk Just Kidding
  write stxt.txt pls Please
  write stxt.txt plz Please
  write stxt.txt btw By The Way
  write stxt.txt imo In My Opinion
  write stxt.txt imho In My Honest Opinion
  write stxt.txt oic Oh I See
  write stxt.txt thx Thanks
  write stxt.txt wtf What The Fuck?
  write stxt.txt ftw For The Win
  write stxt.txt ftl For The Lose
  write stxt.txt gtfo Get The Fuck Out
  write stxt.txt wth What The Hell?
  write stxt.txt bye Bye Bye
  write stxt.txt nm Not Much
  write stxt.txt nvm Nevermind
  write stxt.txt cool Cool
  write stxt.txt kewl Kewl
  write stxt.txt bs Bull Shit
  write stxt.txt wd Well Done
  write stxt.txt cya See Ya
  write stxt.txt heh Heh
  write stxt.txt afk Away From Keyboard
  write stxt.txt fyi For Your Information
  write stxt.txt stfu Shut The Fuck Up
  write stxt.txt cameron Cameron Is Teh Mfing Sex
}
on *:input:*: {
  if ($read(stxt.txt,ns,$1) && ($left($1,1) != /)) {
    msg $active $stxt($read(stxt.txt,ns,$1)) $2-
    haltdef
  }
}

alias c {
  if ($1 == 1) return $+($chr(3),$iif(%colour1,%colour1,04))
  if ($1 == 2) return $+($chr(3),$iif(%colour2,%colour2,14))
}

alias color1 {
  if ($1 isnum 0-15) {
    set %colour1 $1
    echo -a $+($chr(3),15,Primary) colour changed to $c(1) $+ This15.
  }
}

alias color2 {
  if ($1 isnum 0-15) {
    set %colour2 $1
    echo -a $+($chr(3),15,Secondary) colour changed to $c(2) $+ This15.
  }
}

alias stxt { 
  return $regsubex($1,/([A-Z])/g,$+($chr(2),$chr(3),$c(1),\t,$chr(2),$chr(3),$c(2))) $+ $chr(3)
}

alias stxtadd { 
  if ($read(stxt.txt,ns,$1)) {
    echo -a $+($chr(3),15) $+ There is already scripted text for that match.
  }
  else {
    write stxt.txt $1-
    echo -a $+($chr(3),15) $+ Input of $1 will now return $stxt($2-) $+ .
  }
}

alias stxtdel { 
  if ($read(stxt.txt,ns,$1)) {
    echo -a $+($chr(3),15) $+ Input of $1 will no longer return $stxt($read(stxt.txt,ns,$1))) $+ .
    write $+(-ds,$1) stxt.txt
  }
  else {
    echo -a $+($chr(3),15) $+ There is no match for that input.
  }
}