NPC BG Supplier & Badges to Cashpoints converter

[SpArK]

As the topic says, BG supplier :- 1) i can add new item n delete items in script 2) valor bravery badges option (euphy's quest shop npc when i add same items in different shop : qshop1 & qshop2 it give error) i want to add valor badge & bravery badge for same item which wont give me error like euphy quest shop 3) Item preview(not equipment i mean to say it should show x10 x50 x100 item to be bought instead of showing 0z when previewing list of items) 4) option to sell item for cashpoint wht i mean? :- when click npc 1st option bravery badge item 2nd option valor badge item 3rd option cashpoint item(will take cashpoint for some items instead of bravery valor)

BG Badge to cashpoint converter :- 1) convert valor or bravery to cashpoint 2) option so that i can add other badge in future (war badge) 3) option to set cashpoint amount gained 4) option to convert cash point back to badges (on/off option for this)

 

anyone wanna help? thanks

Edited May 24, 2014 by SpArK

[SpArK]

anyone wanna help?

bump

anyone??

Edited June 10, 2014 by Emistry
Merged bump posts to reduce topic length.

[SpArK]

i found this bg supplier from eathena dev @Brian http://www.eathena.ws/board/lofiversion/index.php/t268355.html

Index: npc/battleground/bg_supplier.txt
===================================================================
--- npc/battleground/bg_supplier.txt    (revision 0)
+++ npc/battleground/bg_supplier.txt    (working copy)
@@ -0,0 +1,94 @@
+//===== eAthena Script =======================================
+//= BattleGround Supplier
+//===== By: ==================================================
+//= Brian
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena SVN (+ source edits)
+//===== Description: =========================================
+//= Sells consumables that can ONLY be used on 'bg_consume' maps.
+//===== Additional Comments: =================================
+//= http://www.eathena.ws/board/index.php?showtopic=268355
+//= 1. To use, create a char named "Battleground"
+//= 2. edit the #define BG_CHARID in battleground.h
+//= 3. edit the 'set .@BG_CHARID' in this file (line 43)
+//============================================================
+
+bat_room,165,146,3    script    Telma    701,{
+    mes "[Telma]";
+    mes "Welcome, mighty warrior.";
+    mes "Do you need supplies for your battles?";
+    mes "I can exchange supplies for your badges...";
+    next;
+    
+    switch(select("150 Battleground's Condensed White Potion:90 Battleground's Blue Potion:3 Battleground's Poison Bottle:30 Battleground's Fire Bottle:30 Battleground's Acid Bottle:30 Battleground's Plant Bottle:30 Battleground's Marine Sphere Bottle:15 Battleground's Glistening Coat:50 Battleground's Yellow Gemstone:50 Battleground's Red Gemstone:100 Battleground's Blue Gemstone:5 Battleground's Speed Potion:20 Battleground's Cobweb")) {
+        case 1:        callsub S_BuyConsumableBG,547,150;    // Condensed White Potion
+        case 2:        callsub S_BuyConsumableBG,505,90;    // Blue Potion
+        case 3:        callsub S_BuyConsumableBG,678,3;    // Poison Bottle
+        case 4:        callsub S_BuyConsumableBG,7135,30;    // Fire Bottle
+        case 5:        callsub S_BuyConsumableBG,7136,30;    // Acid Bottle
+        case 6:        callsub S_BuyConsumableBG,7137,30;    // Plant Bottle
+        case 7:        callsub S_BuyConsumableBG,7138,30;    // Marine Sphere Bottle
+        case 8:        callsub S_BuyConsumableBG,7139,15;    // Glistening Coat
+        case 9:        callsub S_BuyConsumableBG,715,50;    // Yellow Gemstone
+        case 10:    callsub S_BuyConsumableBG,716,50;    // Red Gemstone
+        case 11:    callsub S_BuyConsumableBG,717,100;    // Blue Gemstone
+        case 12:    callsub S_BuyConsumableBG,12016,5;    // Speed Potion
+        case 13:    callsub S_BuyConsumableBG,1025,20;    // Cobweb
+    }
+    end;
+
+S_BuyConsumableBG:
+    set .@BG_CHARID, 165100; // character named "Battleground"
+S_BuyConsumable:
+    set .@item_id, getarg(0);
+    set .@amt, getarg(1);
+    
+    mes "[Telma]";
+    mes "How many sets of ^0000FF"+ .@amt +" "+ getitemname(.@item_id) +"s^000000 do you want?";
+    mes "1 = "+ .@amt   +" supplies = 1 badge";
+    mes "2 = "+ .@amt*2 +" supplies = 2 badges";
+    mes "3 = "+ .@amt*3 +" supplies = 3 badges";
+    mes "etc..";
+    next;
+    input .@sets;
+    mes "[Telma]";
+    if (.@sets < 1) {
+        mes "Enter a positive amount, greater than zero.";
+        close;
+    }
+    mes "So you want ^0000FF"+ (.@amt*.@sets) +" "+ getitemname(.@item_id) +"s^000000...";
+    if (.@BG_CHARID) mes "Remember these can only be used in Battlegrounds.";
+    mes "It will cost you "+ .@sets +" badge(s)...";
+    next;
+    switch(select("Give her "+ .@sets +" Bravery Badge(s):Give her "+ .@sets +" Valor Badge(s):Give her "+ (3*.@sets) +" Heroism Badges")) {
+        case 1: set .@badge,7828; set .@cost,1; break;
+        case 2: set .@badge,7829; set .@cost,1; break;
+        case 3: set .@badge,7773; set .@cost,3; break;
+    }
+    mes "[Telma]";
+    if (countitem(.@badge) < (.@cost*.@sets)) {
+        mes "You do not have enough ^FF0000"+getitemname(.@badge)+"s^000000 to buy "+(.@amt*.@sets)+" "+getitemname(.@item_id)+"s.";
+    } else if (!checkweight(.@item_id, .@amt*.@sets)) {
+        mes "You are overweight or have too many items in your inventory.";
+    } else {
+        delitem .@badge, .@cost*.@sets;
+        if (.@BG_CHARID) { // Battleground's Consumables
+            getitem2 .@item_id,(.@amt*.@sets),1,0,0, 254, 0, .@BG_CHARID & 0xFFFF, .@BG_CHARID >> 0x10;
+        } else {
+            getitem .@item_id,(.@amt*.@sets);
+        }
+        mes "Here are your: ^0000FF"+(.@amt*.@sets)+" "+getitemname(.@item_id)+"s^000000!";
+        if (.@BG_CHARID) mes "Remember, they can only be used in Battlegrounds.";
+    }
+    close;
+}
+
+bat_a01    mapflag    bg_consume
+bat_a02    mapflag    bg_consume
+bat_b01    mapflag    bg_consume
+bat_b02    mapflag    bg_consume
+bat_c01    mapflag    bg_consume
+bat_c02    mapflag    bg_consume
+bat_c03    mapflag    bg_consume
Index: npc/battleground/bg_supplier.txt
===================================================================
--- npc/battleground/bg_supplier.txt    (revision 0)
+++ npc/battleground/bg_supplier.txt    (working copy)

Property changes on: npc/battleground/bg_supplier.txt
___________________________________________________________________
Added: svn:eol-style
## -0,0 +1 ##
+native
Index: npc/scripts_athena.conf
===================================================================
--- npc/scripts_athena.conf    (revision 14986)
+++ npc/scripts_athena.conf    (working copy)
@@ -325,6 +325,7 @@
 // --------------------- Battle Grounds -------------------------
 // Common NPCs
 npc: npc/battleground/bg_common.txt
+npc: npc/battleground/bg_supplier.txt
 // Tierra Gorge
 npc: npc/battleground/tierra/tierra_enter.txt
 npc: npc/battleground/tierra/tierra01.txt
Index: src/map/atcommand.c
===================================================================
--- src/map/atcommand.c    (revision 14986)
+++ src/map/atcommand.c    (working copy)
@@ -4322,9 +4322,13 @@
     else
         clif_displaymessage(fd, "Autotrade Disabled");
     
+    strcpy(atcmd_output,"BG Flags: ");
     if (map[m_id].flag.battleground)
-        clif_displaymessage(fd, "Battlegrounds ON");
-        
+        strcat(atcmd_output, "Battlegrounds ON | ");
+    if (map[m_id].flag.bg_consume)
+        strcat(atcmd_output, "BG items ON | ");
+    clif_displaymessage(fd, atcmd_output);
+    
     strcpy(atcmd_output,"PvP Flags: ");
     if (map[m_id].flag.pvp)
         strcat(atcmd_output, "Pvp ON | ");
Index: src/map/battleground.h
===================================================================
--- src/map/battleground.h    (revision 14986)
+++ src/map/battleground.h    (working copy)
@@ -8,6 +8,8 @@
 #include "guild.h"
 
 #define MAX_BG_MEMBERS 30
+#define BG_CHARID 165100 // char named "Battleground"
+#define BG_TRADE 91 // trade mask of BG consumables
 
 struct battleground_member_data {
     unsigned short x, y;
Index: src/map/clif.c
===================================================================
--- src/map/clif.c    (revision 14986)
+++ src/map/clif.c    (working copy)
@@ -1637,6 +1637,9 @@
             if( sd->status.inventory[i].expire_time )
                 continue; // Cannot Sell Rental Items
 
+            if( sd->status.inventory[i].card[0]==CARD0_CREATE && MakeDWord(sd->status.inventory[i].card[2],sd->status.inventory[i].card[3])==BG_CHARID && BG_TRADE&8 )
+                continue; // "Battleground's Items"
+
             val=sd->inventory_data[i]->value_sell;
             if( val < 0 )
                 continue;
Index: src/map/map.h
===================================================================
--- src/map/map.h    (revision 14986)
+++ src/map/map.h    (working copy)
@@ -463,6 +463,7 @@
         unsigned gvg_dungeon : 1; // Celest
         unsigned gvg_noparty : 1;
         unsigned battleground : 2; // [BattleGround System]
+        unsigned bg_consume : 1; // allows using Battleground's items
         unsigned nozenypenalty : 1;
         unsigned notrade : 1;
         unsigned noskill : 1;
Index: src/map/npc.c
===================================================================
--- src/map/npc.c    (revision 14986)
+++ src/map/npc.c    (working copy)
@@ -3030,6 +3030,8 @@
             ShowWarning("npc_parse_mapflag: You can't set GvG and BattleGround flags for the same map! Removing GvG flag from %s (file '%s', line '%d').\n", map[m].name, filepath, strline(buffer,start-buffer));
         }
     }
+    else if (!strcmpi(w3,"bg_consume"))
+        map[m].flag.bg_consume=state;
     else if (!strcmpi(w3,"noexppenalty"))
         map[m].flag.noexppenalty=state;
     else if (!strcmpi(w3,"nozenypenalty"))
Index: src/map/pc.c
===================================================================
--- src/map/pc.c    (revision 14986)
+++ src/map/pc.c    (working copy)
@@ -260,6 +260,8 @@
             for(i = 0; i < MAX_FAME_LIST; i++){
                 if(chemist_fame_list[i].id == char_id)
                     return i + 1;
+                // else if(BG_CHARID == char_id)
+                    // return 5;
             }
             break;
         case MAPID_TAEKWON: // Taekwon
@@ -3763,6 +3765,13 @@
         }
     }
 
+    // "Battleground's items" can only be used on maps with 'bg_consume' mapflag
+    if( sd->status.inventory[n].card[0]==CARD0_CREATE &&
+        MakeDWord(sd->status.inventory[n].card[2],sd->status.inventory[n].card[3])==BG_CHARID &&
+        !map[sd->bl.m].flag.bg_consume
+    )
+        return 0;
+
     sd->itemid = sd->status.inventory[n].nameid;
     sd->itemindex = n;
     if(sd->catch_target_class != -1) //Abort pet catching.
@@ -3827,6 +3836,12 @@
         return 1;
     }
 
+    if( item_data->card[0]==CARD0_CREATE && MakeDWord(item_data->card[2],item_data->card[3])==BG_CHARID && BG_TRADE&16 )
+    {    // "Battleground's Items"
+        clif_displaymessage (sd->fd, msg_txt(264));
+        return 1;
+    }
+
     if( (w = data->weight*amount) + sd->cart_weight > battle_config.max_cart_weight )
         return 1;
 
@@ -6660,6 +6675,8 @@
         return 0;
     if( !pc_can_give_items(level) ) //check if this GM level can drop items
         return 0;
+    if( item->card[0]==CARD0_CREATE && MakeDWord(item->card[2],item->card[3])==BG_CHARID && BG_TRADE&1 )
+        return 0;
     return (itemdb_isdropable(item, level));
 }
 
Index: src/map/skill.c
===================================================================
--- src/map/skill.c    (revision 14986)
+++ src/map/skill.c    (working copy)
@@ -8700,7 +8700,11 @@
         if( !require.itemid[i] )
             continue;
         index[i] = pc_search_inventory(sd,require.itemid[i]);
-        if( index[i] < 0 || sd->status.inventory[index[i]].amount < require.amount[i] ) {
+        if( index[i] < 0 || sd->status.inventory[index[i]].amount < require.amount[i] ||
+           (sd->status.inventory[index[i]].card[0]==CARD0_CREATE &&
+            MakeDWord(sd->status.inventory[index[i]].card[2],sd->status.inventory[index[i]].card[3])==BG_CHARID &&
+            !map[sd->bl.m].flag.bg_consume) // "Battleground's items" can only be used on maps with 'bg_consume' mapflag
+        ) {
             if( require.itemid[i] == ITEMID_RED_GEMSTONE )
                 clif_skill_fail(sd,skill,7,0);// red gemstone required
             else if( require.itemid[i] == ITEMID_BLUE_GEMSTONE )
Index: src/map/storage.c
===================================================================
--- src/map/storage.c    (revision 14986)
+++ src/map/storage.c    (working copy)
@@ -6,6 +6,7 @@
 #include "../common/nullpo.h"
 #include "../common/malloc.h"
 #include "../common/showmsg.h"
+#include "../common/utils.h"
 
 #include "map.h" // struct map_session_data
 #include "storage.h"
@@ -18,6 +19,7 @@
 #include "battle.h"
 #include "atcommand.h"
 #include "log.h"
+#include "battleground.h"
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -144,6 +146,12 @@
         return 1;
     }
     
+    if( item_data->card[0]==CARD0_CREATE && MakeDWord(item_data->card[2],item_data->card[3])==BG_CHARID && BG_TRADE&32 )
+    {    // "Battleground's Items"
+        clif_displaymessage (sd->fd, msg_txt(264));
+        return 1;
+    }
+    
     if( itemdb_isstackable2(data) )
     {//Stackable
         for( i = 0; i < MAX_STORAGE; i++ )
@@ -405,6 +413,12 @@
         return 1;
     }
 
+    if( item_data->card[0]==CARD0_CREATE && MakeDWord(item_data->card[2],item_data->card[3])==BG_CHARID && BG_TRADE&64 )
+    {    // "Battleground's Items"
+        clif_displaymessage (sd->fd, msg_txt(264));
+        return 1;
+    }
+
     if(itemdb_isstackable2(data)){ //Stackable
         for(i=0;i<MAX_GUILD_STORAGE;i++){
             if(compare_item(&stor->items[i], item_data)) {
Index: src/map/trade.c
===================================================================
--- src/map/trade.c    (revision 14986)
+++ src/map/trade.c    (working copy)
@@ -3,6 +3,7 @@
 
 #include "../common/nullpo.h"
 #include "../common/socket.h"
+#include "../common/utils.h"
 #include "clif.h"
 #include "itemdb.h"
 #include "map.h"
@@ -16,6 +17,7 @@
 #include "intif.h"
 #include "atcommand.h"
 #include "log.h"
+#include "battleground.h"
 
 #include <stdio.h>
 #include <string.h>
@@ -362,6 +364,14 @@
         return;
     }
 
+    if( item->card[0]==CARD0_CREATE && MakeDWord(item->card[2],item->card[3])==BG_CHARID && BG_TRADE&2 &&
+        (pc_get_partner(sd) != target_sd || BG_TRADE&4) )
+    {    // "Battleground's Items"
+        clif_displaymessage (sd->fd, msg_txt(260));
+        clif_tradeitemok(sd, index+2, 1);
+        return;
+    }
+
     //Locate a trade position
     ARR_FIND( 0, 10, trade_i, sd->deal.item[trade_i].index == index || sd->deal.item[trade_i].amount == 0 );
     if( trade_i == 10 ) //No space left
Index: src/map/vending.c
===================================================================
--- src/map/vending.c    (revision 14986)
+++ src/map/vending.c    (working copy)
@@ -15,6 +15,7 @@
 #include "skill.h"
 #include "battle.h"
 #include "log.h"
+#include "battleground.h"
 
 #include <stdio.h>
 #include <string.h>
@@ -288,7 +289,8 @@
         ||  !sd->status.cart[index].identify // unidentified item
         ||  sd->status.cart[index].attribute == 1 // broken item
         ||  sd->status.cart[index].expire_time // It should not be in the cart but just in case
-        ||  !itemdb_cantrade(&sd->status.cart[index], pc_isGM(sd), pc_isGM(sd)) ) // untradeable item
+        ||  !itemdb_cantrade(&sd->status.cart[index], pc_isGM(sd), pc_isGM(sd)) // untradeable item
+        ||  ( sd->status.cart[index].card[0]==CARD0_CREATE && MakeDWord(sd->status.cart[index].card[2],sd->status.cart[index].card[3])==BG_CHARID && BG_TRADE&2 ) ) // "Battleground's Items"
             continue;
 
         sd->vending[i].index = index;

its showing error when i compile

 

 

this is the error while compiling

1>------ Rebuild All started: Project: map-server_sql, Configuration: Release Win32 ------
1>  grammar.c
1>  libconfig.c
1>  scanctx.c
1>  scanner.c
1>  strbuf.c
1>  mt19937ar.c
1>  conf.c
1>  core.c
1>  db.c
1>  des.c
1>  ers.c
1>  grfio.c
1>  malloc.c
1>  mapindex.c
1>  md5calc.c
1>  mempool.c
1>  mutex.c
1>  nullpo.c
1>  raconf.c
1>  random.c
1>  showmsg.c
1>  socket.c
1>  sql.c
1>  strlib.c
1>  thread.c
1>  timer.c
1>  utils.c
1>  msg_conf.c
1>  cli.c
1>  atcommand.c
1>  battle.c
1>  battleground.c
1>  buyingstore.c
1>  cashshop.c
1>  channel.c
1>  chat.c
1>  chrif.c
1>  clif.c
1>  date.c
1>  duel.c
1>  elemental.c
1>  guild.c
1>  intif.c
1>  itemdb.c
1>  log.c
1>  mail.c
1>  map.c
1>  mapreg_sql.c
1>  homunculus.c
1>  instance.c
1>  mercenary.c
1>  mob.c
1>  npc.c
1>  npc_chat.c
1>  party.c
1>  path.c
1>  pc.c
1>  pc_groups.c
1>..\src\map\pc.c(4628): warning C4003: not enough actual parameters for macro 'msg_txt'
1>..\src\map\pc.c(4628): warning C4047: 'function' : 'map_session_data *' differs in levels of indirection from 'int'
1>..\src\map\pc.c(4628): warning C4024: 'map_msg_txt' : different types for formal and actual parameter 1
1>..\src\map\pc.c(4628): error C2059: syntax error : ')'
1>  pet.c
1>  quest.c
1>  script.c
1>  searchstore.c
1>  skill.c
1>  status.c
1>..\src\map\skill.c(14546): error C2059: syntax error : ')'
1>..\src\map\skill.c(14546): error C2143: syntax error : missing ';' before '{'
1>  storage.c
1>..\src\map\storage.c(197): warning C4003: not enough actual parameters for macro 'msg_txt'
1>..\src\map\storage.c(197): warning C4047: 'function' : 'map_session_data *' differs in levels of indirection from 'int'
1>..\src\map\storage.c(197): warning C4024: 'map_msg_txt' : different types for formal and actual parameter 1
1>..\src\map\storage.c(197): error C2059: syntax error : ')'
1>..\src\map\storage.c(543): warning C4003: not enough actual parameters for macro 'msg_txt'
1>..\src\map\storage.c(543): warning C4047: 'function' : 'map_session_data *' differs in levels of indirection from 'int'
1>..\src\map\storage.c(543): warning C4024: 'map_msg_txt' : different types for formal and actual parameter 1
1>..\src\map\storage.c(543): error C2059: syntax error : ')'
1>  trade.c
1>..\src\map\trade.c(394): warning C4003: not enough actual parameters for macro 'msg_txt'
1>..\src\map\trade.c(394): warning C4047: 'function' : 'map_session_data *' differs in levels of indirection from 'int'
1>..\src\map\trade.c(394): warning C4024: 'map_msg_txt' : different types for formal and actual parameter 1
1>..\src\map\trade.c(394): error C2059: syntax error : ')'
1>  unit.c
1>  vending.c
1>..\src\map\vending.c(344): warning C4013: 'pc_isGM' undefined; assuming extern returning int
========== Rebuild All: 0 succeeded, 1 failed, 0 skipped ==========

i guess not compitable with rathena? can sm1 help?? i rly want smthing like this because bg items cant be used elsewhere.

bg_consume-r14986.diff

Edited June 8, 2014 by SpArK

[SpArK]

sirs need your help

[Anubis-K]

Thi this: http://rathena.org/board/topic/97556-bg-consume-items-tlema-comes-to-rathena/