+string get_model_datafilename(string m, float sk, string fil)
+{
+ if(m)
+ m = strcat(m, "_");
+ else
+ m = "models/player/*_";
+ if(sk >= 0)
+ m = strcat(m, ftos(sk));
+ else
+ m = strcat(m, "*");
+ return strcat(m, ".", fil);
+}
+
+float get_model_parameters(string m, float sk)
+{
+ string fn, s, c;
+ float fh;
+
+ get_model_parameters_modelname = string_null;
+ get_model_parameters_modelskin = -1;
+ get_model_parameters_name = string_null;
+ get_model_parameters_species = -1;
+ get_model_parameters_sex = string_null;
+ get_model_parameters_weight = -1;
+ get_model_parameters_age = -1;
+ get_model_parameters_desc = string_null;
+
+ if not(m)
+ return 1;
+ if(sk < 0)
+ {
+ if(substring(m, -4, -1) != ".txt")
+ return 0;
+ if(substring(m, -6, 1) != "_")
+ return 0;
+ sk = stof(substring(m, -5, 1));
+ m = substring(m, 0, -7);
+ }
+
+ fn = get_model_datafilename(m, sk, "txt");
+ fh = fopen(fn, FILE_READ);
+ if(fh < 0)
+ return 0;
+
+ get_model_parameters_modelname = m;
+ get_model_parameters_modelskin = sk;
+ while((s = fgets(fh)))
+ {
+ if(s == "")
+ break; // next lines will be description
+ c = car(s);
+ s = cdr(s);
+ if(c == "name")
+ get_model_parameters_name = s;
+ if(c == "species")
+ switch(s)
+ {
+ case "human": get_model_parameters_species = SPECIES_HUMAN; break;
+ case "alien": get_model_parameters_species = SPECIES_ALIEN; break;
+ case "robot_shiny": get_model_parameters_species = SPECIES_ROBOT_SHINY; break;
+ case "robot_rusty": get_model_parameters_species = SPECIES_ROBOT_RUSTY; break;
+ case "robot_solid": get_model_parameters_species = SPECIES_ROBOT_SOLID; break;
+ case "animal": get_model_parameters_species = SPECIES_ANIMAL; break;
+ case "reserved": get_model_parameters_species = SPECIES_RESERVED; break;
+ }
+ if(c == "sex")
+ get_model_parameters_sex = s;
+ if(c == "weight")
+ get_model_parameters_weight = stof(s);
+ if(c == "age")
+ get_model_parameters_age = stof(s);
+ }
+
+ while((s = fgets(fh)))
+ {
+ if(get_model_parameters_desc)
+ get_model_parameters_desc = strcat(get_model_parameters_desc, "\n");
+ if(s != "")
+ get_model_parameters_desc = strcat(get_model_parameters_desc, s);
+ }
+
+ fclose(fh);
+
+ return 1;
+}
+
+vector vec2(vector v)
+{
+ v_z = 0;
+ return v;
+}