/*==========================================
* アイテムデータベースの読み込み
*------------------------------------------
*/
static int itemdb_readdb(void)
{
FILE *fp;
char line[1024];
int ln=0,lines=0;
int nameid,j;
char *str[32],*p,*np;
struct item_data *id;
int i=0;
char *filename[]={ "item_db.txt","item_db2.txt" };
for(i=0;i<2;i++){
sprintf(line, "%s/%s", db_path, filename[i]);
fp=fopen(line,"r");
if(fp==NULL){
if(i>0)
continue;
ShowFatalError("can't read %s\n",line);
exit(1);
}
lines=0;
while(fgets(line,1020,fp)){
lines++;
if(line[0]=='/' && line[1]=='/')
continue;
memset(str,0,sizeof(str));
for(j=0,np=p=line;j<19 && p;j++){
str[j]=p;
p=strchr(p,',');
if(p){ *p++=0; np=p; }
}
if(str[0]==NULL)
continue;
nameid=atoi(str[0]);
if(nameid<=0)
continue;
if (j < 19)
{ //Crash-fix on broken item lines. [Skotlex]
ShowWarning("Reading %s: Insufficient fields for item with id %d, skipping.\n", filename[i], nameid);
continue;
}
ln++;
//ID,Name,Jname,Type,Price,Sell,Weight,ATK,DEF,Range,Slot,Job,Job Upper,Gender,Loc,wLV,eLV,refineable,View
id=itemdb_load(nameid);
strncpy(id->name, str[1], ITEM_NAME_LENGTH-1);
strncpy(id->jname, str[2], ITEM_NAME_LENGTH-1);
id->type=atoi(str[3]);
if (id->type == IT_DELAYCONSUME)
{ //Items that are consumed upon target confirmation
//(yggdrasil leaf, spells & pet lures) [Skotlex]
id->type = IT_USABLE;
id->flag.delay_consume=1;
}
{
int buy = atoi(str[4]), sell = atoi(str[5]);
// if buying price > selling price * 2 consider it valid and don't change it [celest]
if (buy && sell && buy > sell*2){
id->value_buy = buy;
id->value_sell = sell;
} else {
// buy≠sell*2 は item_value_db.txt で指定してください。
if (sell) { // sell値を優先とする
id->value_buy = sell*2;
id->value_sell = sell;
} else {
id->value_buy = buy;
id->value_sell = buy/2;
}
}
// check for bad prices that can possibly cause exploits
if (id->value_buy*75/100 < id->value_sell*124/100) {
ShowWarning ("Item %s [%d] buying:%d < selling:%d\n",
id->name, id->nameid, id->value_buy*75/100, id->value_sell*124/100);
}
}
id->weight=atoi(str[6]);
id->atk=atoi(str[7]);
id->def=atoi(str[8]);
id->range=atoi(str[9]);
id->slot=atoi(str[10]);
if (id->slot > MAX_SLOTS)
{
ShowWarning("itemdb_readdb: Item %d (%s) specifies %d slots, but the server only supports up to %d\n", nameid, id->jname, id->slot, MAX_SLOTS);
id->slot = MAX_SLOTS;
}
itemdb_jobid2mapid(id->class_base, (unsigned int)strtoul(str[11],NULL,0));
id->class_upper = atoi(str[12]);
id->sex = atoi(str[13]);
if(id->equip != atoi(str[14])){
id->equip=atoi(str[14]);
}
if (!id->equip && itemdb_isequip2(id))
{
ShowWarning("Item %d (%s) is an equipment with no equip-field! Making it an etc item.\n", nameid, id->jname);
id->type = 3;
}
id->wlv=atoi(str[15]);
id->elv=atoi(str[16]);
id->flag.no_refine = atoi(str[17])?0:1; //If the refine column is 1, no_refine is 0
id->look=atoi(str[18]);
id->flag.available=1;
id->flag.value_notdc=0;
id->flag.value_notoc=0;
id->view_id=0;
id->sex = itemdb_gendercheck(id); //Apply gender filtering.
if (id->script) {
script_free_code(id->script);
id->script=NULL;
}
if (id->equip_script) {
script_free_code(id->equip_script);
id->equip_script=NULL;
}
if (id->unequip_script) {
script_free_code(id->unequip_script);
id->unequip_script=NULL;
}
if((p=strchr(np,'{'))==NULL)
continue;
str[19] = p; //Script
np = strchr(p,'}');
while (np && np[1] && np[1] != ',')
np = strchr(np+1,'}'); //Jump close brackets until the next field is found.
if (!np || !np[1]) {
//Couldn't find the end of the script field.
id->script = parse_script(str[19],filename[i],lines,0);
continue;
}
np[1] = '\0'; //Set end of script
id->script = parse_script(str[19],filename[i],lines,0);
np+=2; //Skip to next field
if(!np || (p=strchr(np,'{'))==NULL)
continue;
str[20] = p; //Equip Script
np = strchr(p,'}');
while (np && np[1] && np[1] != ',')
np = strchr(np+1,'}'); //Jump close brackets until the next field is found.
if (!np || !np[1]) {
//Couldn't find the end of the script field.
id->equip_script = parse_script(str[20],filename[i],lines,0);
continue;
}
np[1] = '\0'; //Set end of script
id->equip_script = parse_script(str[20],filename[i],lines,0);
np+=2; //Skip comma, to next field
if(!np || (p=strchr(np,'{'))==NULL)
continue;
//Unequip script, last column.
id->unequip_script = parse_script(p,filename[i],lines,0);
}
fclose(fp);
if (ln > 0) {
ShowStatus("Done reading '"CL_WHITE"%d"CL_RESET"' entries in '"CL_WHITE"%s"CL_RESET"'.\n",ln,filename[i]);
}
ln=0; // reset to 0
}
return 0;
}
/*======================================
* SQL
*===================================
*/
static int itemdb_read_sqldb(void)
{
unsigned short nameid;
struct item_data *id;
char script[65535 + 2 + 1]; // Maximum length of MySQL TEXT type (65535) + 2 bytes for curly brackets + 1 byte for terminator
char *item_db_name[] = { item_db_db, item_db2_db };
long unsigned int ln = 0;
int i;
// ----------
for (i = 0; i < 2; i++) {
sprintf(tmp_sql, "SELECT * FROM `%s`", item_db_name[i]);
// Execute the query; if the query execution succeeded...
if (mysql_query(&mmysql_handle, tmp_sql) == 0) {
sql_res = mysql_store_result(&mmysql_handle);
// If the storage of the query result succeeded...
if (sql_res) {
// Parse each row in the query result into sql_row
while ((sql_row = mysql_fetch_row(sql_res)))
{ /*Table structure is:
00 id
01 name_english
02 name_japanese
03 type
04 price_buy
05 price_sell
06 weight
07 attack
08 defence
09 range
10 slots
11 equip_jobs
12 equip_upper
13 equip_genders
14 equip_locations
15 weapon_level
16 equip_level
17 refineable
18 view
19 script
20 equip_script
21 unequip_script
*/
nameid = atoi(sql_row[0]);
// If the identifier is not within the valid range, process the next row
if (nameid == 0)
continue;
ln++;
// ----------
id = itemdb_load(nameid);
strncpy(id->name, sql_row[1], ITEM_NAME_LENGTH-1);
strncpy(id->jname, sql_row[2], ITEM_NAME_LENGTH-1);
id->type = atoi(sql_row[3]);
if (id->type == IT_DELAYCONSUME)
{ //Items that are consumed upon target confirmation
//(yggdrasil leaf, spells & pet lures) [Skotlex]
id->type = IT_USABLE;
id->flag.delay_consume=1;
} else //In case of an itemdb reload and the item type changed.
id->flag.delay_consume=0;
// If price_buy is not NULL and price_sell is not NULL...
if ((sql_row[4] != NULL) && (sql_row[5] != NULL)) {
id->value_buy = atoi(sql_row[4]);
id->value_sell = atoi(sql_row[5]);
}
// If price_buy is not NULL and price_sell is NULL...
else if ((sql_row[4] != NULL) && (sql_row[5] == NULL)) {
id->value_buy = atoi(sql_row[4]);
id->value_sell = atoi(sql_row[4]) / 2;
}
// If price_buy is NULL and price_sell is not NULL...
else if ((sql_row[4] == NULL) && (sql_row[5] != NULL)) {
id->value_buy = atoi(sql_row[5]) * 2;
id->value_sell = atoi(sql_row[5]);
}
// If price_buy is NULL and price_sell is NULL...
if ((sql_row[4] == NULL) && (sql_row[5] == NULL)) {
id->value_buy = 0;
id->value_sell = 0;
}
id->weight = atoi(sql_row[6]);
id->atk = (sql_row[7] != NULL) ? atoi(sql_row[7]) : 0;
id->def = (sql_row[8] != NULL) ? atoi(sql_row[8]) : 0;
id->range = (sql_row[9] != NULL) ? atoi(sql_row[9]) : 0;
id->slot = (sql_row[10] != NULL) ? atoi(sql_row[10]) : 0;
if (id->slot > MAX_SLOTS)
{
ShowWarning("itemdb_read_sqldb: Item %d (%s) specifies %d slots, but the server only supports up to %d\n", nameid, id->jname, id->slot, MAX_SLOTS);
id->slot = MAX_SLOTS;
}
itemdb_jobid2mapid(id->class_base, (sql_row[11] != NULL) ? (unsigned int)strtoul(sql_row[11], NULL, 0) : 0);
id->class_upper= (sql_row[12] != NULL) ? atoi(sql_row[12]) : 0;
id->sex = (sql_row[13] != NULL) ? atoi(sql_row[13]) : 0;
id->equip = (sql_row[14] != NULL) ? atoi(sql_row[14]) : 0;
if (!id->equip && itemdb_isequip2(id))
{
ShowWarning("Item %d (%s) is an equipment with no equip-field! Making it an etc item.\n", nameid, id->jname);
id->type = 3;
}
id->wlv = (sql_row[15] != NULL) ? atoi(sql_row[15]) : 0;
id->elv = (sql_row[16] != NULL) ? atoi(sql_row[16]) : 0;
id->flag.no_refine = (sql_row[17] == NULL || atoi(sql_row[17]) == 1)?0:1;
id->look = (sql_row[18] != NULL) ? atoi(sql_row[18]) : 0;
id->view_id = 0;
id->sex = itemdb_gendercheck(id); //Apply gender filtering.
// ----------
if (id->script)
script_free_code(id->script);
if (sql_row[19] != NULL) {
if (sql_row[19][0] == '{')
id->script = parse_script(sql_row[19],item_db_name[i], ln, 0);
else {
sprintf(script, "{%s}", sql_row[19]);
id->script = parse_script(script, item_db_name[i], ln, 0);
}
} else id->script = NULL;
if (id->equip_script)
script_free_code(id->equip_script);
if (sql_row[20] != NULL) {
if (sql_row[20][0] == '{')
id->equip_script = parse_script(sql_row[20], item_db_name[i], ln, 0);
else {
sprintf(script, "{%s}", sql_row[20]);
id->equip_script = parse_script(script, item_db_name[i], ln, 0);
}
} else id->equip_script = NULL;
if (id->unequip_script)
script_free_code(id->unequip_script);
if (sql_row[21] != NULL) {
if (sql_row[21][0] == '{')
id->unequip_script = parse_script(sql_row[21],item_db_name[i], ln, 0);
else {
sprintf(script, "{%s}", sql_row[21]);
id->unequip_script = parse_script(script, item_db_name[i], ln, 0);
}
} else id->unequip_script = NULL;
// ----------
id->flag.available = 1;
id->flag.value_notdc = 0;
id->flag.value_notoc = 0;
}
ShowStatus("Done reading '"CL_WHITE"%lu"CL_RESET"' entries in '"CL_WHITE"%s"CL_RESET"'.\n", ln, item_db_name[i]);
ln = 0;
} else {
ShowSQL("DB error (%s) - %s\n",item_db_name[i], mysql_error(&mmysql_handle));
ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql);
}
// Free the query result
mysql_free_result(sql_res);
} else {
ShowSQL("DB error (%s) - %s\n",item_db_name[i], mysql_error(&mmysql_handle));
ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql);
}
}
return 0;
}
/*==========================================
* processes one itemdb entry
*------------------------------------------*/
static bool itemdb_parse_dbrow(char** str, const char* source, int line, int scriptopt)
{
/*
+----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+-------------+---------------+-----------------+--------------+-------------+------------+------+--------+--------------+----------------+
| 00 | 01 | 02 | 03 | 04 | 05 | 06 | 07 | 08 | 09 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 |
+----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+-------------+---------------+-----------------+--------------+-------------+------------+------+--------+--------------+----------------+
| id | name_english | name_japanese | type | price_buy | price_sell | weight | attack | defence | range | slots | equip_jobs | equip_upper | equip_genders | equip_locations | weapon_level | equip_level | refineable | view | script | equip_script | unequip_script |
+----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+-------------+---------------+-----------------+--------------+-------------+------------+------+--------+--------------+----------------+
*/
int nameid;
struct item_data* id;
nameid = atoi(str[0]);
if( nameid <= 0 )
{
ShowWarning("itemdb_parse_dbrow: Invalid id %d in line %d of \"%s\", skipping.\n", nameid, line, source);
return false;
}
//ID,Name,Jname,Type,Price,Sell,Weight,ATK,DEF,Range,Slot,Job,Job Upper,Gender,Loc,wLV,eLV,refineable,View
id = itemdb_load(nameid);
safestrncpy(id->name, str[1], sizeof(id->name));
safestrncpy(id->jname, str[2], sizeof(id->jname));
id->type = atoi(str[3]);
if( id->type < 0 || id->type == IT_UNKNOWN || id->type == IT_UNKNOWN2 || ( id->type > IT_DELAYCONSUME && id->type < IT_THROWWEAPON ) || id->type >= IT_MAX )
{// catch invalid item types
ShowWarning("itemdb_parse_dbrow: Invalid item type %d for item %d. IT_ETC will be used.\n", id->type, nameid);
id->type = IT_ETC;
}
if (id->type == IT_DELAYCONSUME)
{ //Items that are consumed only after target confirmation
id->type = IT_USABLE;
id->flag.delay_consume = 1;
} else //In case of an itemdb reload and the item type changed.
id->flag.delay_consume = 0;
//When a particular price is not given, we should base it off the other one
//(it is important to make a distinction between 'no price' and 0z)
if ( str[4][0] )
id->value_buy = atoi(str[4]);
else
id->value_buy = atoi(str[5]) * 2;
if ( str[5][0] )
id->value_sell = atoi(str[5]);
else
id->value_sell = id->value_buy / 2;
/*
if ( !str[4][0] && !str[5][0])
{
ShowWarning("itemdb_parse_dbrow: No buying/selling price defined for item %d (%s), using 20/10z\n", nameid, id->jname);
id->value_buy = 20;
id->value_sell = 10;
} else
*/
if (id->value_buy/124. < id->value_sell/75.)
ShowWarning("itemdb_parse_dbrow: Buying/Selling [%d/%d] price of item %d (%s) allows Zeny making exploit through buying/selling at discounted/overcharged prices!\n",
id->value_buy, id->value_sell, nameid, id->jname);
id->weight = atoi(str[6]);
#if REMODE
itemdb_re_split_atoi(str[7],&id->atk,&id->matk);
#else
id->atk = atoi(str[7]);
#endif
id->def = atoi(str[8]);
id->range = atoi(str[9]);
id->slot = atoi(str[10]);
if (id->slot > MAX_SLOTS)
{
ShowWarning("itemdb_parse_dbrow: Item %d (%s) specifies %d slots, but the server only supports up to %d. Using %d slots.\n", nameid, id->jname, id->slot, MAX_SLOTS, MAX_SLOTS);
id->slot = MAX_SLOTS;
}
itemdb_jobid2mapid(id->class_base, (unsigned int)strtoul(str[11],NULL,0));
id->class_upper = atoi(str[12]);
id->sex = atoi(str[13]);
id->equip = atoi(str[14]);
if (!id->equip && itemdb_isequip2(id))
{
ShowWarning("Item %d (%s) is an equipment with no equip-field! Making it an etc item.\n", nameid, id->jname);
id->type = IT_ETC;
}
id->wlv = atoi(str[15]);
id->elv = atoi(str[16]);
id->flag.no_refine = atoi(str[17]) ? 0 : 1; //FIXME: verify this
id->look = atoi(str[18]);
id->flag.available = 1;
id->view_id = 0;
id->sex = itemdb_gendercheck(id); //Apply gender filtering.
if (id->script)
{
script_free_code(id->script);
id->script = NULL;
}
if (id->equip_script)
{
script_free_code(id->equip_script);
id->equip_script = NULL;
}
if (id->unequip_script)
{
script_free_code(id->unequip_script);
id->unequip_script = NULL;
}
if (*str[19])
id->script = parse_script(str[19], source, line, scriptopt);
if (*str[20])
id->equip_script = parse_script(str[20], source, line, scriptopt);
if (*str[21])
id->unequip_script = parse_script(str[21], source, line, scriptopt);
return true;
}
/*==========================================
* アイテムデータベースの読み込み
*------------------------------------------
*/
static int itemdb_readdb(void)
{
FILE *fp;
char line[1024];
int ln, lines = 0;
int nameid, j;
char *str[32], *p, *np;
struct item_data *id;
int i = 0;
int buy_price, sell_price;
char *filename[] = { "db/item_db.txt", "db/item_db2.txt" };
#define ITEM_DB_SQL_NAME "item_db_map.sql"
#ifdef USE_SQL
FILE *item_db_fp = NULL; // need to be initialized to avoid 'false' warning
// code to create SQL item db
if (create_item_db_script) {
// if file exists (doesn't exist, was renamed!... unnormal that continue to exist)
if (access(ITEM_DB_SQL_NAME, 0) == 0) // 0: file exist or not, 0 = success
remove(ITEM_DB_SQL_NAME); // delete the file. return value = 0 (success), return value = -1 (denied access or not found file)
if ((item_db_fp = fopen(ITEM_DB_SQL_NAME, "a")) != NULL) {
printf("Generating the '" CL_WHITE ITEM_DB_SQL_NAME CL_RESET "' file.\n");
fprintf(item_db_fp, "# You can regenerate this file with an option in inter_athena.conf" RETCODE);
fprintf(item_db_fp, RETCODE);
fprintf(item_db_fp, "DROP TABLE IF EXISTS `%s`;" RETCODE, item_db_db);
fprintf(item_db_fp, "CREATE TABLE `%s` (" RETCODE, item_db_db);
fprintf(item_db_fp, " `id` smallint(5) unsigned NOT NULL default '0'," RETCODE);
fprintf(item_db_fp, " `name_english` varchar(50) NOT NULL default ''," RETCODE);
fprintf(item_db_fp, " `name_japanese` varchar(50) NOT NULL default ''," RETCODE);
fprintf(item_db_fp, " `type` tinyint(2) unsigned NOT NULL default '0'," RETCODE);
fprintf(item_db_fp, " `price_buy` meduimint(10) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `price_sell` mediumint(10) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `weight` smallint(5) unsigned NOT NULL default '0'," RETCODE);
fprintf(item_db_fp, " `attack` tinyint(4) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `defence` tinyint(4) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `range` tinyint(2) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `slots` tinyint(2) unsigned default NULL," RETCODE); // max 5, but set to tinyint(2) to avoid possible BOOL replacement
fprintf(item_db_fp, " `equip_jobs` int(12) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `equip_upper` tinyint(8) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `equip_genders` tinyint(2) unsigned default NULL," RETCODE); // max 3 (1+2), but set to tinyint(2) to avoid possible BOOL replacement
fprintf(item_db_fp, " `equip_locations` smallint(4) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `weapon_level` tinyint(2) unsigned default NULL," RETCODE); // max 4, but set to tinyint(2) to avoid possible BOOL replacement
fprintf(item_db_fp, " `equip_level` tinyint(3) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `refineable` tinyint(1) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `view` tinyint(3) unsigned default NULL," RETCODE);
fprintf(item_db_fp, " `script` text," RETCODE);
fprintf(item_db_fp, " `equip_script` text," RETCODE);
fprintf(item_db_fp, " `unequip_script` text," RETCODE);
fprintf(item_db_fp, " PRIMARY KEY (`id`)" RETCODE);
fprintf(item_db_fp, ") TYPE=MyISAM;" RETCODE);
fprintf(item_db_fp, RETCODE);
} else {
printf(CL_RED "Can not generate the '" ITEM_DB_SQL_NAME "' file." CL_RESET" \n");
create_item_db_script = 0; // not continue to try to create file after
}
}
#endif /* USE_SQL */
for(i = 0; i < 2; i++) {
ln = 0;
fp = fopen(filename[i], "r");
if (fp == NULL) {
if (i > 0)
continue;
printf("can't read %s\n", filename[i]);
#ifdef USE_SQL
if (create_item_db_script && item_db_fp != NULL) {
fclose(item_db_fp);
}
#endif /* USE_SQL */
exit(1);
}
lines = 0;
while(fgets(line, sizeof(line), fp)) { // fgets reads until maximum one less than size and add '\0' -> so, it's not necessary to add -1
lines++;
if ((line[0] == '/' && line[1] == '/') || line[0] == '\0' || line[0] == '\n' || line[0] == '\r') {
#ifdef USE_SQL
// code to create SQL item db
if (create_item_db_script && item_db_fp != NULL) {
/* remove carriage return if exist */
while(line[0] != '\0' && (line[(j = strlen(line) - 1)] == '\n' || line[j] == '\r'))
line[j] = '\0';
// add comments in the sql script
if ((line[0] == '/' && line[1] == '/' && strlen(line) > 2)) {
fprintf(item_db_fp, "#%s" RETCODE, line + 2);
} else {
fprintf(item_db_fp, RETCODE);
}
}
#endif /* USE_SQL */
continue;
}
/* remove carriage return if exist */
while(line[0] != '\0' && (line[(j = strlen(line) - 1)] == '\n' || line[j] == '\r'))
line[j] = '\0';
memset(str, 0, sizeof(str));
for(j = 0, np = p = line; j < 19 && p; j++) {
str[j] = p;
p = strchr(p, ',');
if (p) { *p++ = 0; np = p; }
}
if (str[0] == NULL)
continue;
nameid = atoi(str[0]);
if (nameid <= 0 || nameid >= 20000)
continue;
#ifdef __DEBUG
if (battle_config.etc_log) {
if (strlen(str[1]) > ITEM_NAME_LENGTH)
printf(CL_YELLOW "WARNING: Invalid item name" CL_RESET" (id: %d) - Name too long (> ITEM_NAME_LENGTH char.) -> only ITEM_NAME_LENGTH first characters are used.\n", nameid);
if (strlen(str[2]) > ITEM_NAME_LENGTH)
printf(CL_YELLOW "WARNING: Invalid item jname" CL_RESET" (id: %d) - Name too long (> ITEM_NAME_LENGTH char.) -> only ITEM_NAME_LENGTH first characters are used.\n", nameid);
}
#endif
ln++;
if (ln % 20 == 19) {
printf("Reading item #%d (id: %d)...\r", ln, nameid);
fflush(stdout);
}
id = itemdb_search(nameid);
memset(id->name, 0, sizeof(id->name));
strncpy(id->name, str[1], ITEM_NAME_LENGTH);
memset(id->jname, 0, sizeof(id->jname));
strncpy(id->jname, str[2], ITEM_NAME_LENGTH);
id->type = atoi(str[3]);
if (id->type == 11) {
id->type = 2;
id->flag.delay_consume = 1;
}
buy_price = atoi(str[4]);
sell_price = atoi(str[5]);
// If price_buy is not 0 and price_sell is not 0...
if (buy_price > 0 && sell_price > 0) {
id->value_buy = buy_price;
id->value_sell = sell_price;
// If price_buy is not 0 and price_sell is 0...
} else if (buy_price > 0 && sell_price == 0) {
id->value_buy = buy_price;
id->value_sell = buy_price / 2;
// If price_buy is 0 and price_sell is not 0...
} else if (buy_price == 0 && sell_price > 0) {
id->value_buy = sell_price * 2;
id->value_sell = sell_price;
// If price_buy is 0 and price_sell is 0...
} else {
id->value_buy = 0;
id->value_sell = 0;
}
// check for bad prices that can possibly cause exploits
if (((double)id->value_buy * (double)75) / 100 < ((double)id->value_sell * (double)124) / 100) {
printf("Item %s [%d]: prices: buy %d / sell %d (" CL_YELLOW "WARNING" CL_RESET ").\n", id->name, id->nameid, id->value_buy, id->value_sell);
printf("for merchant: buying: %d < selling:%d (" CL_YELLOW "possible exploit OC/DC" CL_RESET ").\n", id->value_buy * 75 / 100, id->value_sell * 124 / 100);
id->value_buy = ((double)id->value_sell * (double)124) / (double)75 + 1;
printf("->set to: buy %d, sell %d (change in database please).\n", id->value_buy, id->value_sell);
}
id->weight = atoi(str[6]);
id->atk = atoi(str[7]);
id->def = atoi(str[8]);
id->range = atoi(str[9]);
id->slot = atoi(str[10]);
itemdb_jobid2mapid(id->class_base, (unsigned int)strtoul(str[11],NULL,0));
id->class_upper = atoi(str[12]);
id->sex = atoi(str[13]);
if (id->equip != atoi(str[14])) {
id->equip = atoi(str[14]);
}
id->wlv = atoi(str[15]);
id->elv = atoi(str[16]);
id->flag.no_refine = atoi(str[17]) ? 0 : 1;
id->look = atoi(str[18]);
id->flag.available = 1;
id->flag.value_notdc = 0;
id->flag.value_notoc = 0;
id->view_id = 0;
id->script = NULL;
id->equip_script = NULL;
id->unequip_script = NULL;
if ((p = strchr(np, '{')) != NULL) {
id->script = parse_script((unsigned char *)p, lines);
if ((p = strchr(p + 1, '{')) != NULL)
id->equip_script = parse_script((unsigned char *)p, lines);
if ((p = strchr(p + 1, '{')) != NULL)
id->unequip_script = parse_script((unsigned char *)p, lines);
}
#ifdef USE_SQL
/* // code to create SQL item db
if (create_item_db_script && item_db_fp != NULL) {
char item_name[50]; // 24 * 2 + 1 + NULL
char item_jname[50]; // 24 * 2 + 1 + NULL
char script1[1024], script2[1024], script3[1024], temp_script[1024], comment_script[1024];
char *p1, *p2, *p3;
struct item_data *actual_item;
actual_item = id;
// escape item names
memset(item_name, 0, sizeof(item_name));
db_sql_escape_string(item_name, actual_item->name, strlen(actual_item->name));
memset(item_jname, 0, sizeof(item_jname));
db_sql_escape_string(item_jname, actual_item->jname, strlen(actual_item->jname));
// extract script 1, 2 and 3
memset(script1, 0, sizeof(script1));
memset(script2, 0, sizeof(script2));
memset(script3, 0, sizeof(script3));
if ((p1 = strchr(np, '{')) != NULL && (p2 = strchr(p1, '}')) != NULL && (p3 = strchr(p3, '}')) != NULL)) {
while(*p1 == ' ' || *p1 == '{')
p1++;
while((*p2 == ' ' || *p2 == '}') && p2 > p1)
p2--;
while((*p3 == ' ' || *p3 == '}') && p3 > p2)
p3--;
if (p2 > p1) {
memset(temp_script, 0, sizeof(temp_script));
strncpy(temp_script, p1, p2 - p1 + 1);
memset(script1, 0, sizeof(script1));
script1[0] = '\'';
db_sql_escape_string(script1 + 1, temp_script, strlen(temp_script));
strcat(script1, "'");
}
// search second script
if ((p1 = strchr(p2, '{')) != NULL && (p2 = strchr(p1, '}')) != NULL) {
while(*p1 == ' ' || *p1 == '{')
p1++;
while((*p2 == ' ' || *p2 == '}') && p2 > p1)
p2--;
if (p2 > p1) {
memset(temp_script, 0, sizeof(temp_script));
strncpy(temp_script, p1, p2 - p1 + 1);
memset(script2, 0, sizeof(script2));
script2[0] = '\'';
db_sql_escape_string(script2 + 1, temp_script, strlen(temp_script));
strcat(script2, "'");
}
}
if ((p1 = strchr(p2, '{')) != NULL && (p2 = strchr(p1, '}')) != NULL) {
while(*p1 == ' ' || *p1 == '{')
p1++;
while((*p2 == ' ' || *p2 == '}') && p2 > p1)
p2--;
if (p2 > p1) {
memset(temp_script, 0, sizeof(temp_script));
strncpy(temp_script, p1, p2 - p1 + 1);
memset(script3, 0, sizeof(script3));
script3[0] = '\'';
db_sql_escape_string(script3 + 1, temp_script, strlen(temp_script));
strcat(script3, "'");
}
}
}
memset(comment_script, 0 , sizeof(comment_script));
if ((p1 = strchr(np, '/')) != NULL && p1[1] == '/') {
comment_script[0] = ' ';
comment_script[1] = '#';
strcpy(comment_script + 2, p1 + 2);
}
// create request
fprintf(item_db_fp, "INSERT INTO `%s` VALUES (%d, '%s', '%s', %d,"
" %d, %d,"
" %d, %d, %d, %d,"
" %d, '%s', %d, %d, %d,"
" %d, %d, %d, %d,"
" '%s', '%s', '%s');%s" RETCODE,
item_db_db, nameid, item_name, item_jname, actual_item->type,
atoi(str[4]), atoi(str[5]), // id->value_buy, id->value_sell: not modified
actual_item->weight, actual_item->atk, actual_item->def, actual_item->range,
actual_item->slot, str[11], actual_item->class_upper, actual_item->sex, actual_item->equip,
actual_item->wlv, actual_item->elv, actual_item->flag.no_refine, actual_item->look,
(script1[0] == 0) ? "NULL" : script1, (script2[0] == 0) ? "NULL" : script2, (script3[0] == 0) ? "NULL" : script3, comment_script);
}
*/
#endif /* USE_SQL */
}
fclose(fp);
printf("DB '" CL_WHITE "%s" CL_RESET "' readed ('" CL_WHITE "%d" CL_RESET "' %s).\n", filename[i], ln, (ln > 1) ? "entries" : "entry");
}
#ifdef USE_SQL
// code to create SQL item db
if (create_item_db_script && item_db_fp != NULL) {
fclose(item_db_fp);
}
#endif /* USE_SQL */
return 0;
}
/*==================================
* SQL
*===================================
*/
static int itemdb_read_sqldb(void) {
unsigned short nameid;
unsigned long ln = 0;
struct item_data *id;
int buy_price, sell_price;
char script[65535 + 2 + 1]; // Maximum length of MySQL TEXT type (65535) + 2 bytes for curly brackets + 1 byte for terminator
// ----------
sql_request("SELECT * FROM `%s`", item_db_db);
while (sql_get_row()) {
/* +----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+-------------+---------------+-----------------+--------------+-------------+------------+------+--------+--------------+----------------+
| 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 |
+----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+-------------+---------------+-----------------+--------------+-------------+------------+------+--------+--------------+----------------+
| id | name_english | name_japanese | type | price_buy | price_sell | weight | attack | defence | range | slots | equip_jobs | equip_upper | equip_genders | equip_locations | weapon_level | equip_level | refineable | view | script | equip_script | unequip_script |
+----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+-------------+---------------+-----------------+--------------+-------------+------------+------+--------+--------------+----------------+ */
nameid = sql_get_integer(0);
// If the identifier is not within the valid range, process the next row
if (nameid == 0 || nameid >= 20000)
continue;
#ifdef __DEBUG
if (battle_config.etc_log) {
if (strlen(sql_get_string(1)) > 24)
printf(CL_YELLOW "WARNING: Invalid item name" CL_RESET" (id: %d) - Name too long (> 24 char.) -> only 24 first characters are used.\n", nameid);
if (strlen(sql_get_string(2)) > 24)
printf(CL_YELLOW "WARNING: Invalid item jname" CL_RESET" (id: %d) - Name too long (> 24 char.) -> only 24 first characters are used.\n", nameid);
}
#endif
ln++;
if (ln % 22 == 21) {
printf("Reading item #%ld (id: %d)...\r", ln, nameid);
fflush(stdout);
}
// Insert a new row into the item database
// ----------
id = itemdb_search(nameid);
memset(id->name, 0, sizeof(id->name));
strncpy(id->name, sql_get_string(1), ITEM_NAME_LENGTH);
memset(id->jname, 0, sizeof(id->jname));
strncpy(id->jname, sql_get_string(2), ITEM_NAME_LENGTH);
id->type = sql_get_integer(3);
if (id->type == 11) {
id->type = 2;
id->flag.delay_consume=1;
}
// fix NULL for buy/sell prices
if (sql_get_string(4) == NULL)
buy_price = 0;
else
buy_price = sql_get_integer(4);
if (sql_get_string(5) == NULL)
sell_price = 0;
else
sell_price = sql_get_integer(5);
// If price_buy is not 0 and price_sell is not 0...
if (buy_price > 0 && sell_price > 0) {
id->value_buy = buy_price;
id->value_sell = sell_price;
// If price_buy is not 0 and price_sell is 0...
} else if (buy_price > 0 && sell_price == 0) {
id->value_buy = buy_price;
id->value_sell = buy_price / 2;
// If price_buy is 0 and price_sell is not 0...
} else if (buy_price == 0 && sell_price > 0) {
id->value_buy = sell_price * 2;
id->value_sell = sell_price;
// If price_buy is 0 and price_sell is 0...
} else {
id->value_buy = 0;
id->value_sell = 0;
}
// check for bad prices that can possibly cause exploits
if (((double)id->value_buy * (double)75) / 100 < ((double)id->value_sell * (double)124) / 100) {
printf("Item %s [%d]: prices: buy %d / sell %d (" CL_YELLOW "WARNING" CL_RESET ").\n", id->name, id->nameid, id->value_buy, id->value_sell);
printf("for merchant: buying: %d < selling:%d (" CL_YELLOW "possible exploit OC/DC" CL_RESET ").\n", id->value_buy * 75 / 100, id->value_sell * 124 / 100);
id->value_buy = ((double)id->value_sell * (double)124) / (double)75 + 1;
printf("->set to: buy %d, sell %d (change in database please).\n", id->value_buy, id->value_sell);
}
id->weight = sql_get_integer( 6);
id->atk = (sql_get_string( 7) != NULL) ? sql_get_integer( 7) : 0;
id->def = (sql_get_string( 8) != NULL) ? sql_get_integer( 8) : 0;
id->range = (sql_get_string( 9) != NULL) ? sql_get_integer( 9) : 0;
id->slot = (sql_get_string(10) != NULL) ? sql_get_integer(10) : 0;
itemdb_jobid2mapid(id->class_base, (sql_get_string(11) != NULL) ? (unsigned int)strtoul(sql_get_string(11), NULL, 0) : 0);
id->class_upper = (sql_get_string(12) != NULL) ? sql_get_integer(12) : 0;
id->sex = (sql_get_string(13) != NULL) ? sql_get_integer(13) : 0;
id->equip = (sql_get_string(14) != NULL) ? sql_get_integer(14) : 0;
id->wlv = (sql_get_string(15) != NULL) ? sql_get_integer(15) : 0;
id->elv = (sql_get_string(16) != NULL) ? sql_get_integer(16) : 0;
id->flag.no_refine = (sql_get_integer(17) == 0 || sql_get_integer(17) == 1)?0:1;
id->look = (sql_get_string(18) != NULL) ? sql_get_integer(18) : 0;
id->view_id = 0;
// ----------
if (sql_get_string(19) != NULL) {
if (sql_get_string(19)[0] == '{')
id->script = parse_script((unsigned char *)sql_get_string(19), 0);
else {
sprintf(script, "{%s}", sql_get_string(19));
id->script = parse_script((unsigned char *)script, 0);
}
} else {
id->script = NULL;
}
if (sql_get_string(20) != NULL) {
if (sql_get_string(20)[0] == '{')
id->equip_script = parse_script((unsigned char *)sql_get_string(20), 0);
else {
sprintf(script, "{%s}", sql_get_string(20));
id->equip_script = parse_script((unsigned char *)script, 0);
}
} else {
id->equip_script = NULL;
}
if (sql_get_string(21) != NULL) {
if (sql_get_string(21)[0] == '{')
id->unequip_script = parse_script((unsigned char *)sql_get_string(21), 0);
else {
sprintf(script, "{%s}", sql_get_string(21));
id->unequip_script = parse_script((unsigned char *)script, 0);
}
} else {
id->equip_script = NULL;
}
// ----------
id->flag.available = 1;
id->flag.value_notdc = 0;
id->flag.value_notoc = 0;
}
printf("DB '" CL_WHITE "%s" CL_RESET "' readed ('" CL_WHITE "%ld" CL_RESET "' entrie%s).\n", item_db_db, ln, (ln > 1) ? "s" : "");
return 0;
}
/*======================================
* SQL
*===================================
*/
static int itemdb_read_sqldb(void)
{
unsigned short nameid;
struct item_data *id;
char script[65535 + 2 + 1]; // Maximum length of MySQL TEXT type (65535) + 2 bytes for curly brackets + 1 byte for terminator
char *item_db_name[] = { item_db_db, item_db2_db };
long unsigned int ln = 0;
int i;
// ----------
for (i = 0; i < 2; i++) {
sprintf(tmp_sql, "SELECT * FROM `%s`", item_db_name[i]);
// Execute the query; if the query execution succeeded...
if (mysql_query(&mmysql_handle, tmp_sql) == 0) {
sql_res = mysql_store_result(&mmysql_handle);
// If the storage of the query result succeeded...
if (sql_res) {
// Parse each row in the query result into sql_row
while ((sql_row = mysql_fetch_row(sql_res)))
{
/* +----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+---------------+-----------------+--------------+-------------+------+------------+--------------+
| 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 |
+----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+---------------+-----------------+--------------+-------------+------+------------+--------------+
| id | name_english | name_japanese | type | price_buy | price_sell | weight | attack | defence | range | slots | equip_jobs | equip_upper | equip_genders | equip_locations | weapon_level | equip_level | refineable | view | script |
+----+--------------+---------------+------+-----------+------------+--------+--------+---------+-------+-------+------------+---------------+-----------------+--------------+-------------+------+------------+--------------+ */
nameid = atoi(sql_row[0]);
// If the identifier is not within the valid range, process the next row
if (nameid == 0 || nameid >= 20000)
continue;
ln++;
// ----------
id = itemdb_search(nameid);
memcpy(id->name, sql_row[1], ITEM_NAME_LENGTH-1);
memcpy(id->jname, sql_row[2], ITEM_NAME_LENGTH-1);
id->type = atoi(sql_row[3]);
if (id->type == 11)
{ //Items that are consumed upon target confirmation
//(yggdrasil leaf, spells & pet lures) [Skotlex]
id->type = 2;
id->flag.delay_consume=1;
}
// If price_buy is not NULL and price_sell is not NULL...
if ((sql_row[4] != NULL) && (sql_row[5] != NULL)) {
id->value_buy = atoi(sql_row[4]);
id->value_sell = atoi(sql_row[5]);
}
// If price_buy is not NULL and price_sell is NULL...
else if ((sql_row[4] != NULL) && (sql_row[5] == NULL)) {
id->value_buy = atoi(sql_row[4]);
id->value_sell = atoi(sql_row[4]) / 2;
}
// If price_buy is NULL and price_sell is not NULL...
else if ((sql_row[4] == NULL) && (sql_row[5] != NULL)) {
id->value_buy = atoi(sql_row[5]) * 2;
id->value_sell = atoi(sql_row[5]);
}
// If price_buy is NULL and price_sell is NULL...
if ((sql_row[4] == NULL) && (sql_row[5] == NULL)) {
id->value_buy = 0;
id->value_sell = 0;
}
id->weight = atoi(sql_row[6]);
id->atk = (sql_row[7] != NULL) ? atoi(sql_row[7]) : 0;
id->def = (sql_row[8] != NULL) ? atoi(sql_row[8]) : 0;
id->range = (sql_row[9] != NULL) ? atoi(sql_row[9]) : 0;
id->slot = (sql_row[10] != NULL) ? atoi(sql_row[10]) : 0;
if (id->slot > MAX_SLOTS)
{
ShowWarning("itemdb_read_sqldb: Item %d (%s) specifies %d slots, but the server only supports up to %d\n", nameid, id->jname, id->slot, MAX_SLOTS);
id->slot = MAX_SLOTS;
}
itemdb_jobid2mapid(id->class_base, (sql_row[11] != NULL) ? atoi(sql_row[11]) : 0);
id->class_upper= (sql_row[12] != NULL) ? atoi(sql_row[12]) : 0;
id->sex = (sql_row[13] != NULL) ? atoi(sql_row[13]) : 0;
id->equip = (sql_row[14] != NULL) ? atoi(sql_row[14]) : 0;
id->wlv = (sql_row[15] != NULL) ? atoi(sql_row[15]) : 0;
id->elv = (sql_row[16] != NULL) ? atoi(sql_row[16]) : 0;
id->flag.no_refine = (sql_row[17] == NULL || atoi(sql_row[17]) == 1)?0:1;
id->look = (sql_row[18] != NULL) ? atoi(sql_row[18]) : 0;
id->view_id = 0;
id->sex = itemdb_gendercheck(id); //Apply gender filtering.
// ----------
if (id->script)
aFree(id->script);
if (sql_row[19] != NULL) {
if (sql_row[19][0] == '{')
id->script = parse_script((unsigned char *) sql_row[19], 0);
else {
sprintf(script, "{%s}", sql_row[19]);
id->script = parse_script((unsigned char *) script, 0);
}
} else id->script = NULL;
// ----------
id->flag.available = 1;
id->flag.value_notdc = 0;
id->flag.value_notoc = 0;
}
ShowStatus("Done reading '"CL_WHITE"%lu"CL_RESET"' entries in '"CL_WHITE"%s"CL_RESET"'.\n", ln, item_db_name[i]);
ln = 0;
} else {
ShowSQL("DB error (%s) - %s\n",item_db_name[i], mysql_error(&mmysql_handle));
ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql);
}
// Free the query result
mysql_free_result(sql_res);
} else {
ShowSQL("DB error (%s) - %s\n",item_db_name[i], mysql_error(&mmysql_handle));
ShowDebug("at %s:%d - %s\n", __FILE__,__LINE__,tmp_sql);
}
}
return 0;
}
