/*   sconvert.c
 *   A utility which reduces or raises SetSkill and SetStat lines
 *   in a file by a specified percentage.
 *   created by Blitz@Dead Souls
 */
 
void GetHelp(string str);
 
string ConvertLine(string str, int change, int line, string search)
{
  string s1, s2, cut, n, tmp;
  int a, b, val;
 
  while( (a = strsrch(str, search)) > -1 ) {
    tmp = str[a..];
    b = strsrch(tmp, ")");
    if( b < 0) break;
    cut = tmp[0..b];
    if( sscanf(cut, "%s,%s", s1, s2) != 2 ) break;
    s2 = replace_string(s2, " ", "");
    sscanf(s2, "%s)", s2);
    val = to_int(s2);
    if( !val ) break;
    val = val - (val / (100 / change));
    n = sprintf("%s, %d)", s1[0] + "@@@" + s1[1..], val);
    str = replace_string(str, cut, n);
    write("Line "+line+": "+cut+" -> "+val+".");
  }
  str = replace_string(str, search[0] + "@@@" + search[1..], search);
  return str;
}
 
void Convert(string s, int change) {
  string args, file, str;
  string *files, *tmp;
  int i, skill;
 
  if( !sizeof(s) ) args = "*.c";
  else args = s;
  files = (string *)this_player()->wild_card(args);
  if( !i = sizeof(files) ) {
    message("info", "No file(s) found: "+implode(files, " "),
            this_player() );
    return;
  }
  foreach(file in files) {
    string line;
    int    changed = 0;
 
    str = read_file(file);
    if( !sizeof(str) ) continue;
    i = sizeof(tmp = explode(str, "\n"));
    write("Checking: "+file);
    while(i--) {
      line = tmp[i];
      line = ConvertLine(line, change, i, "SetSkill");
      line = ConvertLine(line, change, i, "SetStat");
      if( tmp[i] != line ) changed = 1;
      if( changed ) tmp[i] = line;
    }
    if( changed ) {
      rename(file, file+"~");
      write(file+": Writing new file...");
      write_file(file, implode(tmp, "\n"));
    }
  }
}
 
mixed cmd(string str) {
  string files;
  int change;
  if( !sizeof(str) || (sscanf(str, "%s %d", files, change) != 2) || !change) {
    GetHelp(0);
    return 1;
  }
  files = absolute_path((string)this_player()->query_cwd(), files);
  Convert(files, change);
  return 1;
}
 
 
void GetHelp(string str) {
  message("info",
    "Syntax: sconvert <filename | wild card> <percentage>\n\n"
    "This command searches through the specified file(s) and lowers "
    "all occurrences of SetSkill and SetStat by a <percentage> "
    "amount.\n\n"
    "Example: sconvert *.c 10\n"
    "  - Searches all .c files in your currenct path, and reduces\n"
    "    all skill and stat settings by 10%\n\n"
    "Note: It is possible to raise settings by passing a negative number.",
  this_player() );
}