viewing paste Unknown #24966 | Text

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
//=========================================
//By : louigui
//Ver : 2.40.99
//=========================================
-    shop    dyn_shop1    -1,501:50
//=========================================
 
poring_w02,99,101,5    script    Proof of Donation#1    955,{
    mes "Your["+getitemname(.Cost)+"]["+countitem(.Cost)+"]";
    mes "^E217171 Proof of Donation = $1 USD";
close2;
callshop "dyn_shop"+.a,1;
npcshopattach "dyn_shop"+.a;
end;
OnInit:
set .a,strnpcinfo(2);
//=========================================
set .Cost,7179;
//=========================================
setarray .buy_id[0],607;
setarray .buy_co[0],10;
//=========================================
 
npcshopitem "dyn_shop1",.buy_id[0],.buy_co[0];
for(set .ik,1;.ik<getarraysize(.buy_id);set .ik,.ik+1){
    npcshopadditem "dyn_shop"+.a,.buy_id[.ik],.buy_co[.ik];
}
end;
 
OnBuyItem:
    getinventorylist;
    if(@bought_quantity[@i] <= 0){
        goto OnEnrd;
        end;
    }
    for(set @i,0;@i<getarraysize(@bought_nameid);set @i,@i+1){
//KeyWorld
        set .@type, getiteminfo( @bought_nameid[.@i], 2 );
        if (  .@type == 4 || .@type == 5 || .@type == 7 || .@type == 8 )
            set .@count, .@count + 1;
        else {
            for( set .@j,0; .@j<@inventorylist_count; set .@j, .@j+1 )
                if ( @inventorylist_id[.@i] == @bought_nameid[.@i] )
                    break;
            if ( .@j == @inventorylist_count )
                set .@count, .@count+1 ;
        }
        for(set @i2,0;@i2<getarraysize(.buy_id);set @i2,@i2+1){
            if(@bought_nameid[@i]==.buy_id[@i2]){
                set @gh,@gh+.buy_co[@i2]*@bought_quantity[@i];
                set @wh,@wh+getiteminfo(@bought_nameid[@i],6)*@bought_quantity[@i];
            }
        }
    }
    if ( .@count + @inventorylist_count > 100 ) {
        announce "[D-Shop]: Can't hold more than 100 items.",bc_self;
        goto OnEnrd;
    }
    if(countitem(.Cost)<@gh){
        announce "[D-Shop]:["+getitemname(.Cost)+"] isn't enough",bc_self;
        goto OnEnrd;
        end;
    }else{
        if(@wh>(MaxWeight-Weight)){
            announce "[D-Shop]:Too heavy",bc_self;
            goto OnEnrd;
            end;
        }else{
            delitem .Cost,@gh;
            for(set @i,0;@i<getarraysize(@bought_nameid);set @i,@i+1){
                getitem @bought_nameid[@i],@bought_quantity[@i];
            }            
        }
    }
OnEnrd:
    set @gh,0;
    set @wh,0;
    set @i,0;
    set @i2,0;
    deletearray @bought_quantity,getarraysize(@bought_quantity);
    deletearray @bought_nameid,getarraysize(@bought_nameid);
end;
}
Viewed 549 times, submitted by unknown.