viewing paste Unknown #5856 | C

Posted on the | Last edited on
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
int checkweight_sub(TBL_PC *sd,int nbargs,int32 *eitemid, int32 *eamount)
{
    struct item_data* id = NULL;
    uint16 nameid,amount,amount2=0,slots,weight=0,i;
 
    slots = pc_inventoryblank(sd); //nb of empty slot
 
    for(i=0; i<nbargs; i++) {
        if(!eitemid[i]) continue;
        id = itemdb_exists(eitemid[i]);
        if( id == NULL ) {
            ShowError("checkweight_sub: Invalid item '%d'.\n", eitemid[i]);
            return 0;
        }
        nameid = id->nameid;
 
        amount = eamount[i];
        if( amount < 1 ) {
            ShowError("checkweight_sub: Invalid amount '%d'.\n", eamount[i]);
            return 0;
        }
 
        weight += (id->weight)*amount; //total weight for all chk
        if( weight + sd->weight > sd->max_weight ) // too heavy
            return 0;
 
        switch( pc_checkadditem(sd, nameid, amount) ) {
            case CHKADDITEM_EXIST: // item is already in inventory, but there is still space for the requested amount
                break;
            case CHKADDITEM_NEW:
                if( itemdb_isstackable(nameid) )
                    amount2++; // stackable
                else
                    amount2 += amount; // non-stackable
                if( slots < amount2)
                    return 0;
                break;
            case CHKADDITEM_OVERAMOUNT:
                return 0;
        }
    }
    return 1;
}
 
/*==========================================
 * Check if item with this amount can fit in inventory
 * Checking : weight, stack amount >32k, slots amount >(MAX_INVENTORY)
 * Return
 *  0 : fail
 *  1 : success (npc side only)
 *------------------------------------------*/
BUILDIN_FUNC(checkweight){
    struct map_session_data* sd;
    struct script_data* data;
    struct item_data* id = NULL;
    int32 nameid[128], amount[128];
    uint16 nbargs,i,j=0;
 
    if( ( sd = script_rid2sd(st) ) == NULL )
        return 0;
 
    nbargs = script_lastdata(st)+1;
    if(nbargs%2) {
        ShowError("buildin_checkweight: Invalid nb of args should be a multiple of 2.\n");
        script_pushint(st,0);
        return 1;
    }
 
    for(i=2; i<nbargs; i=i+2) {
        data = script_getdata(st,i);
        get_val(st, data);  // convert into value in case of a variable
        if( data_isstring(data) ) // item name
            id = itemdb_searchname(conv_str(st, data));
        else // item id
            id = itemdb_exists(conv_num(st, data));
        if( id == NULL ) {
            ShowError("buildin_checkweight: Invalid item '%s'.\n", script_getstr(st,i));  // returns string, regardless of what it was
            script_pushint(st,0);
            return 1;
        }
        nameid[j] = id->nameid;
        amount[j] = script_getnum(st,i+1);
        j++;
    }
 
    script_pushint(st,checkweight_sub(sd,(nbargs-2)/2,nameid,amount));
    return 0;
}
 
BUILDIN_FUNC(checkweight2){
    //variable sub checkweight
    int32 nameid[128], amount[128];
    uint16 i;
 
    //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;
    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:checkweight2: 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:checkweight2: illegal scope\n");
        script_pushint(st,0);
        return 1;// not supported
    }
    if(is_string_variable(name_it) || is_string_variable(name_nb)) {
        ShowError("script:checkweight2: 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));
    if(nb_it != nb_nb) {
        ShowError("script:checkweight2: Size mistmatch: nb_it=%d, nb_nb=%d\n",nb_it,nb_nb);
        script_pushint(st,0);
        return 1;
    }
 
    for(i=0; i<nb_it; i++) {
        nameid[i] = (int32)__64BPRTSIZE(get_val2(st,reference_uid(id_it,idx_it+i),reference_getref(data_it)));
        script_removetop(st, -1, 0);
        amount[i] = (int32)__64BPRTSIZE(get_val2(st,reference_uid(id_nb,idx_nb+i),reference_getref(data_nb)));
        script_removetop(st, -1, 0);
    } //end loop DO NOT break it prematurly we need to depop all stack
 
    script_pushint(st,checkweight_sub(sd,nb_it,nameid,amount)); //push result of sub to script
    return 0;
}
Viewed 1366 times, submitted by lighta.