Simple NPC Shop Using PODS(Proof of Donation)

[sync master]

Anyone can help me make some simple multiple npc shop using PODS (Proof of Donation)?

i've tried many script but it doesn't work . . .

Note(s): Not a dynamic NPC it just like n normal shop but it uses a PODS . . .

thanks in advance

Edited November 25, 2011 by sync master

[Z3R0]

What do you think a dynamic shop is?

By Definition a SHOP npc only works with zeny, you do not have an option to not use anything else, unless you use a dynamic shop...

You can however, NOT create a shop at all, and make a simplistic menu npc that will exchange items for PODs

[Orc Lord]

you're asking is from eAmod shop, you need some source edit for it. For now you can only use Dynamic Shop

Dynamic Shop NPC

http://www.eathena.w...howtopic=216870

Edited November 25, 2011 by Orc Lord

[Emistry]

you can try this

Dynamic Shop

TCG ID :

set .tcg_item,7227; 

Item , Price Lists :

setarray .TCG_ITEMS[0],4174,40,4047,40,4302,40,4263,30,4305,30,4121,40,4236,25,4168,40,4318,30,4276,40,4146,30,4131,30,4143,30,4135,40,5374,250,5375,200,5377,200,5373,200,5372,150,12906,2,12907,2,13592,4,12905,2,12903,2; 

[Diconfrost VaNz]

yeah...use the old one...it can help

[raichi14]

please fix.

not working.

[eJay]

http://rathena.org/board/files/file/2757-proof-of-donation-npc/

//=========================================
//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;
}