A forage skill snippet

[Malevolent]

client_process.cpp

case OP_Forage:
{



/************************************************** ****
An interesting problem is determining in advance what the qualifications
are for a given piece of food for even if you were to
select from the database items table for edible food (if there is a flag)
you would need to still sort the item by skill and the like. Thus,
I would argue a food table is necessary. Until one is constructed
or a better method built, this will work.

--MV

************************************************** *****/

#define MAX_POSSIBLE_FOOD_IDS 5
uint32 possible_food_ids[MAX_POSSIBLE_FOOD_IDS];

possible_food_ids[0] = 13977; /* Carrot */
possible_food_ids[1] = 14912; /* Mill Carrot */
possible_food_ids[2] = 14920; /* Wild Raddish */
possible_food_ids[3] = 12845; /* Creeper Cabbage */
possible_food_ids[4] = 14913; /* Wild Cabbage */
possible_food_ids[5] = 1429; /* Snow Griffin Egg */

/************************************************** ****
My rational: The higher your skill in forage, the more
likely you are to forage something. With a slight chance that
even at 255 you will fail
/************************************************** ***/
if (rand()%265<GetSkill(FORAGE)){
uint32 food_id=possible_food_ids[rand()%MAX_POSSIBLE_FOOD _IDS];
Item_Struct* food_item = database.GetItem(food_id);
if (food_item->name!=0) {
this->Message(MT_Emote, "You forage a %s",food_item->name);
this->PutItemInInventory(0,food_item);
}
} else {
if (rand()%4==1){
this->Message(MT_Emote, "You failed to find anything worthwhile.");
} else {
this->Message(MT_Emote, "You fail to find anything to forage.");
}
}

break;
}



"Better than nothing" (TM)


--MV

[devn00b]

Plugged it in and worked perfect! thanks much!

[Drawde]

I was just about to make a post asking if anyone had done any work on incorporating foraging (someone posted some code for it a month or so ago). But it looks like you've already done it - wish I had your programming skills!
There's a complete list of what can be foraged (and fished) in each zone at eqtraders.com.

[Malevolent]

Add this to have the skill go up.


//See if the player increases their skill
float wisebonus = (pp.WIS > 200) ? 20 + ((pp.WIS - 200) * 0.05) : pp.WIS * 0.1;
if ((55-(GetSkill(FORAGE)*0.236))+wisebonus > (float)rand()/RAND_MAX*100)
this->SetSkill(FORAGE,++pp.skills[FORAGE]);