- Added documentation for 'setiteminfo', follow up to r9938. (bugreport:3360)

- Added @reloadmobdb to the custom Floating Rates script.
- Added a missing check in THQS. (bugreport:4107)

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@14264 54d463be-8e91-2dee-dedb-b68131a5f0ec

4 files changed, 70 insertions, 43 deletions

diff --git a/doc/script_commands.txt b/doc/script_commands.txt
index bbeb8b9ef..e4160fc54 100644
--- a/doc/script_commands.txt
+++ b/doc/script_commands.txt
@@ -2593,7 +2593,7 @@ Valid types are:
 		if = 0, then monsters don't drop it at all (rare or a quest item)
 		if = 10000, then this item is sold in NPC shops only
 	4 - sex; 5 - equip; 6 - weight; 7 - atk; 8 - def; 9 - range;
-	10 - slot; 11 - look; 12 - elv; 13 - wlv;
+	10 - slot; 11 - look; 12 - elv; 13 - wlv; 14 - view id
 
 Check sample in nps\sample\getiteminfo.txt
 
@@ -2993,6 +2993,7 @@ currently has active. Valid types are:
  3 - Pet friendly level (intimacy score). 1000 is full loyalty.
  4 - Pet hungry level. 100 is completely full.
  5 - Pet rename flag. 0 means this pet has not been named yet.
+
 ---------------------------------------
 
 *gethominfo(<type>)
@@ -3005,6 +3006,7 @@ This function works as a direct counterpart of 'getpetinfo':
  4 - Hungry level. 100 is completely full.
  5 - Rename flag. 0 means this homunculus has not been named yet.
  6 - Homunculus level
+
 ---------------------------------------
 
 
@@ -6239,10 +6241,30 @@ Example 1:
 
 ---------------------------------------
 
+*setiteminfo(<item id>,<type>,<value>)
+
+This function will set some value of an item.
+Returns the new value on success, or -1 on fail (item_id not found or invalid type).
+
+Valid types are:
+	0 - Buy Price; 1 - Sell Price; 2 - Item Type;
+	3 - maxchance (Max drop chance of this item e.g. 1 = 0.01% , etc..
+		if = 0, then monsters don't drop it at all (rare or a quest item)
+		if = 10000, then this item is sold in NPC shops only
+	4 - sex; 5 - equip; 6 - weight; 7 - atk; 8 - def; 9 - range;
+	10 - slot; 11 - look; 12 - elv; 13 - wlv; 14 - view id
+
+Example:
+
+setiteminfo 7049,6,999; // Stone now weighs 999
+
+---------------------------------------
+
 *setitemscript(<item id>,<"{ new item script }">{,<type>});
 
 Set a new script bonus to the Item. Very useful for game events.
 You can remove an item's itemscript by leaving the itemscript argument empty.
+Returns 1 on success, or 0 on fail (item_id not found or new item script is invalid).
 Type can optionally be used indicates which script to set (default is 0):
  0 - Script
  1 - OnEquip_Script
diff --git a/npc/custom/floating_rates.txt b/npc/custom/floating_rates.txt
index 1dc125e42..1e5f1d43e 100644
--- a/npc/custom/floating_rates.txt
+++ b/npc/custom/floating_rates.txt
@@ -39,7 +39,8 @@ OnHour18:
 	setbattleflag("item_rate_use",$@drate);
 	setbattleflag("item_rate_equip",$@drate);
 	//we don't change card drops rate, because these values won't change them anyway
+	atcommand "@reloadmobdb";
 
 	announce "Current Rune-Midgard rates are: 1."+($@brate-100)+"x 1."+($@jrate-100)+"x 1."+($@drate-100)+"x",bc_all,0xFF6060;
 	end;
-}
\ No newline at end of file
+}
diff --git a/npc/custom/quests/thq/THQS_QuestNPC.txt b/npc/custom/quests/thq/THQS_QuestNPC.txt
index dca58645d..f03cb4374 100644
--- a/npc/custom/quests/thq/THQS_QuestNPC.txt
+++ b/npc/custom/quests/thq/THQS_QuestNPC.txt
@@ -183,8 +183,8 @@ N_JobList2:
 	mes " ";
 	mes "A strange man came in here yesterday and asked me to deliver this ^FF0000Strange Letter^000000 to some woman in Morroc. Knowing us we do not ask questions so you must take care of this delivery.";
 	mes "The Woman is in located in Morroc and her name is Erika.";
-	set two_qset, 1;
 	getitem 1072,1; //Delivery_Message
+	set two_qset, 1;
 	goto L_QuestGiven;
 
 N_JurJeramiah:
@@ -356,8 +356,8 @@ N_JobList6:
 	mes "How ironic.";
 	mes " ";
 	mes "Deliver this Box to the Thiefs guild.";
-	set six_qset,1;
 	getitem 1083,1; //Delivery_Box__
+	set six_qset,1;
 	goto L_QuestGiven;
 
 N_PyrPRT2:
@@ -375,8 +375,8 @@ N_Delivery2:
 	mes "Well most of what we do is run packages, this is no different from other's.";
 	mes " ";
 	mes "Take this box, DO NOT OPEN IT! To a little girl in Lutie named Chirach she should be around santa.";
-	set six_qset,3;
 	getitem 1083,1; //Delivery_Box__
+	set six_qset,3;
 	goto L_QuestGiven;
 
 N_Gef:
@@ -450,8 +450,8 @@ N_Delivery4:
 	mes "Well yah box delivering is in high demand,lots of lazy people.";
 	mes " ";
 	mes "Take this package to a man in Morroc named Klye.";
-	set eight_qset,2;
 	getitem 1081,1; //Delivery_Box
+	set eight_qset,2;
 	goto L_QuestGiven;
 
 N_Bapho:
diff --git a/npc/custom/quests/thq/THQS_Quests.txt b/npc/custom/quests/thq/THQS_Quests.txt
index 154186e91..b50082943 100644
--- a/npc/custom/quests/thq/THQS_Quests.txt
+++ b/npc/custom/quests/thq/THQS_Quests.txt
@@ -52,12 +52,16 @@ pay_arche,86,129,6	script	Archer	732,{
 	close;
 N_QuestStart:
 	mes "[Kieth]";
+	if (countitem(1072) < 1) {
+		mes "Weren't you supposed to deliver me a box? Where is it?";
+		close;
+	}
 	mes "Ahh, you must be from the Treasure Hunter Agensy. Do you have my bow??";
 	mes " ";
 	mes "Ahh, good,thank you for your time. Take this Treasure Token.";
+	delitem 1072,1;
 	set one_qset,0;
 	set On_Quest,0;
-	delitem 1072,1;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
 }
@@ -74,13 +78,13 @@ N_QuestComp:
 	mes "Well those bugs can bugger off...";
 	mes " ";
 	mes "Well here take these 2 Treasure Tokens.";
-	set one_qset,0;
-	set #Treasure_Token,#Treasure_Token+2;
-	set On_Quest,0;
 	delitem 909,20;
 	delitem 955,20;
 	delitem 914,20;
 	delitem 705,20;
+	set one_qset,0;
+	set #Treasure_Token,#Treasure_Token+2;
+	set On_Quest,0;
 	close;
 N_QuestStart:
 	mes "[Billy-Bob]";
@@ -101,8 +105,8 @@ N_QuestComp:
 	next;
 	mes "[Old Lady]";
 	mes "Thank you sooo much here have these 3 Treasure Tokens.";
-	set #Treasure_Token,#Treasure_Token+3;
 	delitem 934,15;
+	set #Treasure_Token,#Treasure_Token+3;
 	set one_qset,0;
 	set On_Quest,0;
 	close;
@@ -164,9 +168,9 @@ N_QuestComp:
 	mes "Ahh hello, you must be from the Treasure Hunter Guild.";
 	mes "Do you have my Jur? Ahh good good. Thank you.";
 	mes "Here have this Treasure Hunter Token.";
+	delitem 1998,1;
 	set two_qset,0;
 	set On_Quest,0;
-	delitem 1998,1;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
 N_QuestStart:
@@ -213,10 +217,10 @@ N_QuestComp:
 	mes " ";
 	mes "I knew you looked strong, I have no idea how you could have killed that monster though.";
 	mes "thank you so much, here have these 3 Guild Tokens as a reward.";
+	delitem 7005,1;
 	set two_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+3;
-	delitem 7005,1;
 	close;
 N_QuestStart:
 	mes "[Molly]";
@@ -243,8 +247,8 @@ N_QuestComp:
 	mes " ";
 	mes "I hope that this hole will go away 1 day, and I might have another quest for you in the future.";
 	mes "here take these 2 Treasure Tokens.";
-	set #Treasure_Token,#Treasure_Token+2;
 	delitem 1040,30;
+	set #Treasure_Token,#Treasure_Token+2;
 	set three_qset,0;
 	set On_Quest,0;
 	close;
@@ -273,8 +277,8 @@ N_QuestComp:
 	mes "[Flank]";
 	mes "Thanks";
 	mes "Have this Treasure Token";
-	set three_qset,0;
 	delitem 1082,1;
+	set three_qset,0;
 	set #Treasure_Token,#Treasure_Token+1;
 	set On_Quest,0;
 	close;
@@ -325,9 +329,9 @@ N_QuestComp:
 	mes "I had my doughts but thank you for your help.";
 	mes " ";
 	mes "Here have these 4 Treasure Tokens.";
+	delitem 1041,50;
 	set three_qset,0;
 	set On_Quest,0;
-	delitem 1041,50;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 N_QuestStart:
@@ -351,8 +355,8 @@ N_QuestComp:
 	mes "[Flora]";
 	mes "Welcome back, good job you did it. (I wonder if that Flaming Bastard is still alive)";
 	mes "Well I hope that cut down a bit on the monsters and here have these 2 Tokens.";
-	set #Treasure_Token,#Treasure_Token+2;
 	delitem 957,50;
+	set #Treasure_Token,#Treasure_Token+2;
 	set four_qset,0;
 	set On_Quest,0;
 	killmonster "pay_dun00","Flora::OnMobDead";
@@ -389,9 +393,9 @@ N_QuestComp:
 	next;
 	mes "[Zed]";
 	mes "Well you can take this crapy Treausre Token.";
+	delitem 1999,1;
 	set On_Quest,0;
 	set four_qset,0;
-	delitem 1999,1;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
 N_QuestStart:
@@ -411,9 +415,9 @@ N_QuestComp:
 	mes "Yes! Now my pet will not starve!";
 	mes "Thank you so much!";
 	mes "Have this Treasure Token.";
+	delitem 711,20;
 	set On_Quest,0;
 	set four_qset,0;
-	delitem 711,20;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
 N_QuestStart:
@@ -442,10 +446,10 @@ N_QuestComp:
 	mes "[Czhore]";
 	mes "Here have these 2 Treasure Tokens.";
 	mes "And some of my old treasure...";
+	delitem 714,1;
 	monster "prt_gld",155,99,"Old Man's Treasure",1324,1;
 	set four_qset,0;
 	set On_Quest,0;
-	delitem 714,1;
 	set #Treasure_Token,#Treasure_Token+2;
 	close;
 N_QuestStart:
@@ -471,10 +475,10 @@ N_QuestComp:
 	mes "Oh thank you so much, but they will be back...";
 	next;
 	mes "Take these 2 Treasure Tokens";
+	delitem 1028,15;
 	set five_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+2;
-	delitem 1028,15;
 	close;
 N_QuestStart:
 	mes "[Lithin]";
@@ -498,10 +502,10 @@ N_QuestComp:
 	mes "Much thanks I have for you.";
 	next;
 	mes "Take with you these 2 Treasure Token's.";
+	delitem 932,30;
 	set #Treasure_Token,#Treasure_Token+2;
 	set five_qset,0;
 	set On_Quest,0;
-	delitem 932,30;
 	close;
 N_QuestStart:
 	mes "[Strange Man]";
@@ -550,9 +554,9 @@ N_QuestComp:
 	next;
 	mes "[Wizard]";
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 1059,50;
 	set five_qset,0;
 	set On_Quest,0;
-	delitem 1059,50;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 N_QuestStart:
@@ -578,8 +582,8 @@ N_QuestComp:
 	next;
 	mes "[Thief]";
 	mes "Here take this Treasure Token as a reward.";
-	set six_qset,0;
 	delitem 1083,1;
+	set six_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
@@ -605,8 +609,8 @@ N_QuestComp2:
 	next;
 	mes "[Strange Man]";
 	mes "Take with you these 3 tokens.";
-	set #Treasure_Token,#Treasure_Token+3;
 	delitem 930,30;
+	set #Treasure_Token,#Treasure_Token+3;
 	set On_Quest,0;
 	set six_qset,0;
 	close;
@@ -624,8 +628,8 @@ N_QuestComp:
 	next;
 	mes "[Chirach]";
 	mes "Here take this Treasure Token as a reward.";
-	set six_qset,0;
 	delitem 1083,1;
+	set six_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
@@ -646,9 +650,9 @@ N_QuestComp:
 	mes "Thank you for helping me.";
 	next;
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 944,20;
 	set six_qset,0;
 	set On_Quest,0;
-	delitem 944,20;
 	set #Treasure_Token,#Treasure_Token+4;
 	next;
 	mes "[Zuuzuu]";
@@ -680,9 +684,9 @@ N_QuestComp:
 	next;
 	mes "[Girl]";
 	mes "Have these 1 Treasure Tokens.";
+	delitem 531,5;
 	set seven_qset,0;
 	set On_Quest,0;
-	delitem 531,5;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
 N_QuestStart:
@@ -706,8 +710,8 @@ N_QuestComp:
 	next;
 	mes "[Charles]";
 	mes "Here take this Treasure Token as a reward.";
-	set seven_qset,0;
 	delitem 1082,1;
+	set seven_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
@@ -730,9 +734,9 @@ N_QuestComp2:
 	next;
 	mes "[Sewer Managment]";
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 969,1;
 	set seven_qset,0;
 	set On_Quest,0;
-	delitem 969,1;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 }
@@ -749,9 +753,9 @@ N_QuestComp:
 	next;
 	mes "[Scarlet]";
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 1127,1;
 	set seven_qset,0;
 	set On_Quest,0;
-	delitem 1127,1;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 N_QuestStart:
@@ -775,9 +779,9 @@ N_QuestComp2:
 	next;
 	mes "[Girl]";
 	mes "Have these 1 Treasure Tokens.";
+	delitem 532,5;
 	set eight_qset,0;
 	set On_Quest,0;
-	delitem 532,5;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
 }
@@ -794,8 +798,8 @@ N_QuestComp:
 	next;
 	mes "[Klye]";
 	mes "Here take this Treasure Token as a reward.";
-	set eight_qset,0;
 	delitem 1081,1;
+	set eight_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
@@ -818,9 +822,9 @@ N_QuestComp:
 	next;
 	mes "[Zack]";
 	mes "Here take these 5 Treasure Tokens.";
+	delitem 923,1;
 	set eight_qset,0;
 	set On_Quest,0;
-	delitem 923,1;
 	set #Treasure_Token,#Treasure_Token+5;
 	close;
 N_QuestStart:
@@ -844,9 +848,9 @@ N_QuestComp:
 	next;
 	mes "[Flower]";
 	mes "Here take these 2 Treasure Tokens.";
+	delitem 746,10;
 	set eight_qset,0;
 	set On_Quest,0;
-	delitem 746,10;
 	set #Treasure_Token,#Treasure_Token+2;
 	close;
 N_QuestStart:
@@ -870,8 +874,8 @@ N_QuestComp:
 	next;
 	mes "[Mage]";
 	mes "Here take this Treasure Token as a reward.";
-	set nine_qset,0;
 	delitem 1082,1;
+	set nine_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
@@ -893,9 +897,9 @@ N_QuestComp:
 	next;
 	mes "[School Girl]";
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 1020,20;
 	set nine_qset,0;
 	set On_Quest,0;
-	delitem 1020,20;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 N_QuestStart:
@@ -922,9 +926,9 @@ N_QuestComp:
 	next;
 	mes "[Jack]";
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 1022,1;
 	set nine_qset,0;
 	set On_Quest,0;
-	delitem 1022,1;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 N_QuestStart:
@@ -947,9 +951,9 @@ N_QuestComp2:
 	next;
 	mes "[Jack]";
 	mes "Here take these 3 Treasure Tokens.";
+	delitem 901,40;
 	set nine_qset,0;
 	set On_Quest,0;
-	delitem 901,40;
 	set #Treasure_Token,#Treasure_Token+3;
 	close;
 }
@@ -967,8 +971,8 @@ N_QuestComp:
 	next;
 	mes "[Kreg]";
 	mes "Here take this Treasure Token as a reward.";
-	set ten_qset,0;
 	delitem 1082,1;
+	set ten_qset,0;
 	set On_Quest,0;
 	set #Treasure_Token,#Treasure_Token+1;
 	close;
@@ -990,9 +994,9 @@ N_QuestComp:
 	next;
 	mes "[Man]";
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 1029,1;
 	set ten_qset,0;
 	set On_Quest,0;
-	delitem 1029,1;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 N_QuestStart:
@@ -1015,9 +1019,9 @@ N_QuestComp:
 	next;
 	mes "[Caral]";
 	mes "Here take these 4 Treasure Tokens.";
+	delitem 1015,1;
 	set ten_qset,0;
 	set On_Quest,0;
-	delitem 1015,1;
 	set #Treasure_Token,#Treasure_Token+4;
 	close;
 N_QuestStart:
@@ -1040,9 +1044,9 @@ N_QuestComp:
 	next;
 	mes "[Jeni]";
 	mes "Here take these 3 Treasure Tokens.";
+	delitem 1096,1;
 	set ten_qset,0;
 	set On_Quest,0;
-	delitem 1096,1;
 	set #Treasure_Token,#Treasure_Token+3;
 	close;
 N_QuestStart: