//===== Hercules Script =======================================
//= Sample: CheckWeight
//===== By: ==================================================
//= Hercules Dev Team
//===== Current Version: =====================================
//= 20131225
//===== Description: =========================================
//= Demonstrates 'checkweight' command.
//============================================================

prontera,161,181,6	script	ChkSpace	4_M_JPN,{
	function ChkResult;
	function FinalReport;

	// Reset
	resetlvl(1);
	getinventorylist;
	for (.@i = 0; .@i < @inventorylist_count; ++.@i) {
		delitem(@inventorylist_id[.@i], @inventorylist_amount[.@i]); //clear inventory
	}

	//basic backward chk
	.@testid = 0;
	.@succes = 0;
	.@ret = checkweight(Apple, 10);
	.@succes += ChkResult(.@testid++, 1, .@ret); //should be success
	.@ret =	checkweight("Apple", 10);
	.@succes += ChkResult(.@testid++, 1, .@ret); //should be success
	.@ret = checkweight(Premium_Reset_Stone, 33000);
	.@succes += ChkResult(.@testid++, 0, .@ret); //should be failure too many item amount item weight=0
	.@ret = checkweight("Premium_Reset_Stone", 33000);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure too many item amount
	.@ret = checkweight(Blue_Gemstone, 500);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be success weight based on max weight=2030
	.@ret = checkweight(Blue_Gemstone, 1000);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure weight based on max weight=2030
	.@ret = checkweight(Magic_Stone_Ring, 100);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be success
	.@ret = checkweight(Magic_Stone_Ring, 101);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure (with MAX_INVENTORY = 100)
	.@ret = checkweight(-1, 1);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure invalid item id
	.@ret = checkweight(Apple, 0);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure invalid amount

	debugmes "End backward test";
	FinalReport(.@testid, .@succes);

	//update using list test
	.@testid = 0;
	.@succes = 0;

	.@ret = checkweight(Apple, 10, Banana, 10);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be success
	.@ret =	checkweight("Apple", 10, "Banana", 10);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be success
	.@ret = checkweight(Apple, 80, Banana, 33000);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure
	.@ret = checkweight("Apple", 80, "Banana", 33000);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure too many item amount
	.@ret = checkweight("Apple", 10, "Banana", 21, Apple);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure invalid nb of args
	.@ret = checkweight(Blue_Gemstone, 500, Red_Gemstone, 100);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be succes weight 1800/2030
	.@ret = checkweight(Blue_Gemstone, 500, Red_Gemstone, 500);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure weight 3000/2030
	.@ret = checkweight(Magic_Stone_Ring, 95, Green_Apple_Ring, 5);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be success
	.@ret = checkweight(Magic_Stone_Ring, 95, Green_Apple_Ring, 10);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure (with MAX_INVENTORY = 100)
	.@ret = checkweight(Apple, 1, -1, 1);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure invalid item id
	.@ret = checkweight(Apple, 1, Banana, 0);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure invalid amount
	.@ret = checkweight(Premium_Reset_Stone, 31000, Premium_Reset_Stone, 2000);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure overamount inventory
	.@ret = checkweight(Apple, 1, Banana, 1, Grape, 1, Carrot, 1);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be sucess

	debugmes "End update by list tests";
	FinalReport(.@testid, .@succes);

	//update using array tests
	.@testid = 0;
	.@succes = 0;

	setarray .@item[0], Apple, Banana, Grape, Carrot;
	setarray .@count[0],    1,      5,     9,     12;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be sucess
	cleararray .@item[0],  0, 4;
	cleararray .@count[0], 0, 4;
	setarray .@item[0], Apple, Banana, Grape, Carrot;
	setarray .@count[0],    1,      5,    -1,     12;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure, invalid amout
	cleararray .@item[0],  0, 4;
	cleararray .@count[0], 0, 4;
	setarray .@item[0], Apple, Banana, Grape, -1;
	setarray .@count[0],    1,      5,    15, 12;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure, invalid id
	cleararray .@item[0],  0, 4;
	cleararray .@count[0], 0, 4;
	setarray .@item[0], Blue_Gemstone, Yellow_Gemstone, Red_Gemstone, Emperium;
	setarray .@count[0],          300,             300,          300,      300;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure, total by weight
	cleararray .@item[0],  0, 4;
	cleararray .@count[0], 0, 4;
	setarray .@item[0], Premium_Reset_Stone, Premium_Reset_Stone;
	setarray .@count[0],              31000,                2000;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure, total by weight
	cleararray .@item[0],  0, 2;
	cleararray .@count[0], 0, 2;
	setarray .@item[0], Magic_Stone_Ring, Green_Apple_Ring;
	setarray .@count[0],              95,                5;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 1, .@ret); //should be success
	setarray .@count[0], 95, 10;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure overamount item
	cleararray .@item[0],  0, 2;
	cleararray .@count[0], 0, 2;
	setarray .@item[0], Premium_Reset_Stone, Premium_Reset_Stone, Apple;
	setarray .@count[0],                  1,                   3;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure, size mistmatch
	cleararray .@item[0],  0, 3;
	cleararray .@count[0], 0, 2;
	setarray .@item[0], Premium_Reset_Stone, Premium_Reset_Stone;
	setarray .@count[0],                  1,                   3, 5;
	.@ret = checkweight2(.@item, .@count);
	.@success += ChkResult(.@testid++, 0, .@ret); //should be failure, size mistmatch

	debugmes "End update by array tests";
	FinalReport(.@testid, .@succes);

	end;

	function ChkResult {
		.@tid = getarg(0);
		.@expected = getarg(1);
		.@ret = getarg(2);
		.@sucess = (.@ret==.@expected);
		debugmes "Test "+.@tid+" = "+(.@sucess?"Sucess":"Fail");
		return .@sucess;
	}

	function FinalReport {
		.@tdone = getarg(0);
		.@succes = getarg(1);
		debugmes "Results = Pass : "+.@succes+"/"+.@tdone+" Fails : "+(.@tdone-.@succes)+"/"+.@tdone;
		if(.@succes != .@tdone) { debugmes "Some failure as occured, enable chkresult print to found out"; }
		return;
	}
}