BUILDIN_FUNC(checkweight3)
{
	//variable sub checkweight
        int nameid=-1, amount=-1, weight=0;
        int i=0, amount2=0, slots=0;
        
        //variable for array parsing
        struct script_data* data_it;
	struct script_data* data_nb;
	const char* name_it;
	const char* name_nb;
        int32 id_it, id_nb;
	int32 idx_it, idx_nb;
        int32 idr_it, idr_nb;
        int nb_it, nb_nb; //array size
        
	TBL_PC *sd = script_rid2sd(st);
        nullpo_retr(1,sd);
        
	data_it = script_getdata(st, 2);
        data_nb = script_getdata(st, 3);
        
	if( !data_isreference(data_it) || !data_isreference(data_nb))
	{
		ShowError("script:checkweight3: parameter not a variable\n");
		script_pushint(st,0);
		return 1;// not a variable
	}
        id_it = reference_getid(data_it);
	id_nb = reference_getid(data_nb);
	idx_it = reference_getindex(data_it);
	idx_nb = reference_getindex(data_nb);
	name_it = reference_getname(data_it);
	name_nb = reference_getname(data_nb);
        
	if( not_array_variable(*name_it) || not_array_variable(*name_nb))
	{
		ShowError("script:checkweight3: illegal scope\n");
		script_pushint(st,0);
		return 1;// not supported
	}
        if(is_string_variable(name_it) || is_string_variable(name_nb)){
                ShowError("script:checkweight3: illegal type, need int\n");
		script_pushint(st,0);
		return 1;// not supported
        }
	nb_it = getarraysize(st, id_it, idx_it, 0, reference_getref(data_it));
        nb_nb = getarraysize(st, id_nb, idx_nb, 0, reference_getref(data_nb));
        ShowInfo("nb_it=%d, nb_nb=%d\n",nb_it,nb_nb);
        if(nb_it != nb_nb){
                ShowError("Size mistmatch: nb_it=%d, nb_nb=%d\n",nb_it,nb_nb);
		script_pushint(st,-1);
		return 1;// not supported
        }
        
        slots = pc_inventoryblank(sd);
        for(i=0; i<nb_it; i++){
            nameid =(int) get_val2(st,reference_uid(id_it,idx_it+i),reference_getref(data_it));
            if( itemdb_exists(nameid) == NULL )
            {
                    ShowError("buildin_checkweight3: Invalid item '%d'.\n", nameid);
                    script_pushint(st,0);
                    return 1;
            }
            amount =(int) get_val2(st,reference_uid(id_nb,idx_nb+i),reference_getref(data_nb));; 
            if( amount < 0 )
            {
		ShowError("buildin_checkweight3: Invalid amount '%d'.\n", amount);
		script_pushint(st,0);
		return 1;
            }
            ShowInfo("nameid=%d amount=%d\n",nameid,amount);
            weight += itemdb_weight(nameid)*amount;
            if( weight + sd->weight > sd->max_weight )
            {// too heavy
                    script_pushint(st,0);
                    return 0;
            }
            switch( pc_checkadditem(sd, nameid, amount) )
            {
                    case ADDITEM_EXIST: 
                        // item is already in inventory, but there is still space for the requested amount
                            break;
                    case ADDITEM_NEW:
                            if( itemdb_isstackable(nameid) )
                            {// stackable
                                    amount2++;
                                    if( slots < amount2 )
                                    {
                                            script_pushint(st,0);
                                            return 0;
                                    }
                            }
                            else
                            {// non-stackable
                                    amount2 += amount;    
                                    if( slots < amount2 )
                                    {
                                            script_pushint(st,0);
                                            return 0;
                                    }
                            }
                            break;
                    case ADDITEM_OVERAMOUNT:
                            script_pushint(st,0);
                            return 0;
            }      
        }      

	script_pushint(st,1);
	return 0;
        
}
//declaration
BUILDIN_DEF(checkweight3, "rr"), //[Lighta]

//test npc
izlude,150,127,3	script	chkweight	83,{
//part1 script variable
	setarray .@item[0], 970,717,510,508;
	setarray .@count[0], 10,5,9,12;				
	if(checkweight3(.@item,.@count))
		debugmes "Test1 seem ok";

	setarray .@item2[0], 970,703,510;
	if(checkweight3(.@item2,.@count)==-1)
		debugmes "Test2 seem ok size mistmatch";

	set .@item3,970;
	if(checkweight3(.@item3,.@count)==-1)
		debugmes "Test4 seem ok size mistmatch";

	setarray .item[0], 970,717,510,508;
	setarray .count[0], 10,5,9,12;				
	if(checkweight3(.item,.count))
		debugmes "Test5 seem ok";

//part2 char variable
	setarray @item[0], 970,717,510,508;
	setarray @count[0], 10,5,9,12;
	if(checkweight3(@item,@count))
		debugmes "Test6 seem ok";

	setarray item[0], 970,717,510,508;
	setarray count[0], 10,5,9,12;
	if(checkweight3(item,count))
		debugmes "Test7 seem ok";
	
//part3 server variable
	setarray $item[0], 970,717,510,508;
	setarray $count[0], 10,5,9,12;
	if(checkweight3($item,$count))
		debugmes "Test8 seem ok";

	setarray $@item[0], 970,717,510,508;
	setarray $@count_ch[0], 10,5,9,12;
	if(checkweight3($@item,$@count))
		debugmes "Test9 seem ok";

//part4 string variable
	setarray @item$[0], 970,717,510,508;
	setarray @count$[0], 10,5,9,12;
	if(checkweight3(@item$,@count$)==0)
		debugmes "Test10 seem ok, type unsuported";

	if(checkweight3(@item$,@count)==0)
		debugmes "Test11 seem ok, type unsuported";

	if(checkweight3(@item,@count$)==0)
		debugmes "Test12 seem ok, type unsuported";

	end;
}