///////////////////////////////////////////////////////////////////////////////////
// REAL TIME STRATEGY ADVENTURE - Kit
// FILE:rtsa_headerpr
// NAME: Header file Parser REVERSE style
// SCRIPTED BY: Deva Bryson Winblood
// DATE: 03/26/2003
///////////////////////////////////////////////////////////////////////////////////
/*  This header contains the parser functions for processing names and storing
    data.  It does not need to included unless you need to parse something. */

string fnParseR(string sIn,string sDelim=".")
{ // Parse string using delimiter
  string sRet="";
  string sWork=sIn;
  while(GetStringRight(sWork,1)!=sDelim&&GetStringLength(sWork)>0)
  { // build return string
    sRet=GetStringRight(sWork,1)+sRet;
    sWork=GetStringLeft(sWork,GetStringLength(sWork)-1);
  } // build return string
  return sRet;
} // fnParse()

string fnRemoveParsedR(string sIn, string sRemove, string sDelim=".")
{ // remove parsed portion of string and return the remaining
  string sRet="";
  if (GetStringLength(sIn)>=GetStringLength(sRemove))
  { // strip it
    sRet=GetStringLeft(sIn,GetStringLength(sIn)-GetStringLength(sRemove));
    if (GetStringRight(sRet,1)==sDelim)
      sRet=GetStringLeft(sRet,GetStringLength(sRet)-1);
  } // strip it
  return sRet;
} // fnRemoveParsed()