viewing paste checkweight3 | C

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173
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;
}
Viewed 414 times, submitted by lighta.