//===== eAthena Script =======================================
//= Ingame Item DB Editor
//===== By: ==================================================
//= Dynosawr
//===== Current Version: =====================================
//= v1.6
//= Changelog:
//= 	>Added info on 'equip_jobs' (# for each job)
//===== Compatible With: =====================================
//= rAthena :D
//===== Description: =========================================
//= NPC that allows you to edit 'item_db' and 'item_db2'
//= ingame.
//===== Additional Comments: =================================
//= I'm not completely finished with this NPC,
//= still adding in things.
//============================================================
prontera,156,145,3	script	Item Editor::itemdbedit	66,{
set .@minGM,95; // Minimum GM level required to use the NPC
set .@whisper,1; // 1 to enable whispering, 0 to disable.
	callfunc("ItemDBEditor",.@minGM,.@whisper);
OnWhisperGlobal:
	callfunc("ItemDBEditor",.@minGM,.@whisper);
}

function	script	ItemDBEditor	{
// Setup:
set .@npcname$,"[^006600Item Editor^000000]";
L_CHECKS:
	if(getarg(0)!=0){if(getgmlevel()<getarg(0)){
		mes .@npcname$;mes "You must be a level "+getarg(0)+" GM to use this NPC.";
		close;}}
	if(getarg(1)==1){goto L_firstmenu; end;}
	if(getarg(1)==0){end;}
L_firstmenu:
setarray .@a$[1],"Item ID#","English Name","Japanese Name","Item Type","Buy Price",
			"Sell Price","Weight","Attack Power","Defense","Attack Range",
			"Slots","Applicable Jobs","Upper","Gender","Equip Slot",
			"Weapon Level","Equip Level","Refineable","View","Script",
			"Equip Script","Unequip Script";
setarray .@b$[1],"id","name_english","name_japanese","type","price_buy",
			"price_sell","weight","attack","defense","range",
			"slots","equip_jobs","equip_upper","equip_gender","equip_locations",
			"weapon_level","equip_level","refineable","view","script",
			"equip_script","unequip_script";
// Script: ========================================================================
	mes "iRO Items or Custom Items?";
	menu "iRO Items",-,"Customs",L_CUSTOM,"Renewal Items",L_RENEWAL,"Reload Item Database",L_RELOAD,"Cancel",L_EXIT;
	set .@g$,"item_db";
L_EDIT:
	mes "Please input the ID# of the item you wish to change.";
	input .@f;
	next;
	if(getitemname(.@f)=="null"){
		mes .@npcname$;
		mes "You've entered an incorrect item name.";
		menu "Back",L_EDIT,"Cancel",L_EXIT;
	}else{
L_menu2:
	mes .@npcname$;
	mes "You have selected the item...";
	mes "^ff0000"+getitemname(.@f);
	mes "^000000Are you sure you wish to edit this item?";
	menu "Yes",-,"Back",L_firstmenu,"Cancel",L_EXIT;
	next;
	mes .@npcname$;
	mes "Please select what you want to edit.";
	set .@menu$,"";
		for(set .@i,1; .@i<24; set .@i,.@i+1) set .@menu$, .@menu$+.@a$[.@i]+":";
		set .@c, select(.@menu$);
L_EDITMENU:
		mes .@npcname$;
		mes ""+.@a$[.@c];
		mes "Are you sure this is what you want to edit?";
		menu "Yes",-,"Info on "+.@a$[.@c],L_TABLEINFO,"Back",L_menu2,"Cancel",L_EXIT;
		input .@e$;next;
		if(.@e$=="ALL"){if(.@b$[.@c]==.@b$[12]){set .@e$,"4294967295";}}
		if(.@e$=="NULL"){goto L_DELETEDATA;end;}
		mes .@npcname$;
		mes "You entered...";
		mes "^ff0000"+.@e$;
		mes "^000000Are you sure you wish to use that?";
		menu "Yes",-,"Back",L_firstmenu,"Cancel",L_EXIT;
		next; mes .@npcname$; mes "Item edited.";
		close2;
		query_sql("UPDATE `"+.@g$+"` SET `"+.@b$[.@c]+"` = '"+.@e$+"' WHERE `id` = '"+.@f+"'");
		end;
L_CUSTOM:
	next;
	set .@g$,"item_db2";
	goto L_EDIT;end;
L_RENEWAL:
	next;
	set .@g$,"item_db_re";
	goto L_EDIT;end;
L_DELETEDATA:
	mes .@npcname$;
	mes "Are you sure you want to delete the column...";
	mes "^ff0000"+.@b$[.@c];
	mes "^000000Off the item...";
	mes "^ff0000"+.@f+"^000000?";
	menu "Yes",-,"Back",L_firstmenu,"Cancel",L_EXIT;
	next;
	mes "Data from ^ff0000"+.@b$[.@c]+" ^000000has been deleted off the item ^ff0000"+.@f+"^000000.";
	close2;
	query_sql("UPDATE `"+.@g$+"` SET `"+.@b$[.@c]+"` = '0' WHERE `id` = '"+.@f+"'");
	end;
L_RELOAD:
	close2;
	atcommand "@reloaditemdb";
	end;
L_TABLEINFO: // Information for each Database table that's editable.
next;
			if(.@a$[.@c]==.@a$[1]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000ID of the item."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[2]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000This first name is the DB name. When you use @item and you know the name of the item, but not the ID, type this name instead. Try making the ScreenName the same as this so you wont get confused."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[3]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000This is the name the server shows."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[4]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Purpose of the item.";
					mes "0 = ^CD0000Usable : healing^000000";
					mes "2 = ^CD0000Usable : other^000000";
					mes "3 = ^CD0000Misc^00000";
					mes "4 = ^CD0000Weapon^000000";
					mes "5 = ^CD0000Armor^000000";
					mes "6 = ^CD0000Card^000000";
					mes "7 = ^CD0000Pet Egg^000000";
					mes "8 = ^CD0000Pet Equipment^000000";
					mes "10 = ^CD0000Arrow/Ammunition^000000";
					mes "11 = ^CD0000Usable : delayed consumption ^000000(^CD0000Items that use 'pet' or 'itemskill'^000000)"; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[5]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Default NPC buying price in Zeny."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[6]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000NPC selling price in Zeny."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[7]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Weight of the item * 10. Means, an item of 0.1 weight each, must be entered as 1."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[8]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Base weapon attack, in case of a weapon. (In RE servers, 30:50 would mean 30 ATK and 50 MATK)"; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[9]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Base defense for armor-type items."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[10]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Maximum range in map cells a weapon allows to be the player apart from it's target."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[11]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Amount of card slots in weapon/armor-type items."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[12]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Which jobs this item is available for.(Add values for multi jobs)";
				mes "^CD0000Novice : ^0000001";
				mes "^CD0000Swordman : ^0000002";
				mes "^CD0000Mage : ^0000004";
				mes "^CD0000Archer : ^0000008";
				mes "^CD0000Acolyte : ^00000016";
				mes "^CD0000Merchant : ^00000032";
				mes "^CD0000Thief : ^00000064";
				mes "^CD0000Knight : ^000000128";
				mes "^CD0000Priest : ^000000256";
				mes "^CD0000Wizard : ^000000512";
				mes "^CD0000Blacksmith : ^0000001024";
				mes "^CD0000Hunter : ^0000002048";
				mes "^CD0000Assassin : ^0000004096";
				mes "^CD0000Crusader : ^00000016384";
				mes "^CD0000Monk : ^00000032768";
				mes "^CD0000Sage : ^00000065536";
				mes "^CD0000Rogue : ^000000131072";
				mes "^CD0000Alchemist : ^000000262144";
				mes "^CD0000Bard/Dancer : ^000000524288";
				mes "^CD0000Taekwon : ^0000002097152";
				mes "^CD0000Star Gladiator : ^0000004194304";
				mes "^CD0000Soul Linker : ^00000033554432";
				mes "^CD0000Gunslinger : ^0000004194304";
				mes "^CD0000Ninja : ^00000033554432";
				mes "^CD0000All Classes : ^0000004294967295";
				mes "^CD0000All Jobs except Novice : ^0000004294967294";
				next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[13]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Specifies whether the item can be used by normal, baby or reborn classes. ^000000(^CD00007 for all^000000)"; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[14]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Gender~ 0: Female, 1: Male, 2: Both"; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[15]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Equipment location of armor and arrow-type items.^000000(^CD0000Values can be combined^000000)";
					mes "1 = Lower headgear";
					mes "2 = Right hand";
					mes "4 = Mantle";
					mes "8 = Accessory 1";
					mes "16 = Armor";
					mes "32 = Left hand";
					mes "64 = Shoes";
					mes "128 = Accessory 2";
					mes "256 = Upper headgear";
					mes "512 = Middle headgear";
					mes "32768 = Arrow (arrow-type items only)";
			if(.@a$[.@c]==.@a$[16]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Weapon level of an item (1-4), other items 0."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[17]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000The minimum base level required for using/equipping the item."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[18]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Whether the item is available for refining (1) or not (0)."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[19]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000Specifies the client-side look for the item."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[20]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000This is where you put your item bonus. Whether it's an usable item or an equip item, it will take effect according to the item type."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[21]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000This is where the bonus you want to be applied upon equipping goes. It will only execute as soon as you equip the item."; next; goto L_EDITMENU; end;}
			if(.@a$[.@c]==.@a$[22]){mes .@npcname$;
				mes "^CD0000"+.@a$[.@c]+": ^000000This is where the bonus you want to be applied upon unequipping goes. It will only execute as soon as you unequip the item."; next; goto L_EDITMENU; end;}
L_EXIT:
	next;
	mes "Talk to me if you change your mind.";
	close;
		}
	}
}