/*    /lib/pole.c
 *    from the Nightmare IVr2 Object Library
 *    inheritable fishing functions, must also inherit item along the way
 *    created by Descartes of Borg 951009
 */

#include <lib.h>
#include "include/pole.h"

inherit LIB_BAIT;

static private int PoleStrength, CatchChance;
 
static void create() {
    PoleStrength = 0;
    CatchChance = 0;
    AddSave( ({ "PoleStrength", "CatchChance" }) + bait::GetSave() );
}

mixed direct_cast_obj() {
    if( environment() != this_player() )
      return "#You must have it to cast it.";
    return 1;
}

mixed direct_fish_with_obj() {
    mixed err;

    if( environment() != this_player() )
      return "#You must have it to fish with it!";
    if( (err = CanCast(this_player())) != 1 ) return err;
    return 1;
}

int eventBreak() {
    SetBroken(1);
    return 1;
}
 
mixed CanCast(object who) {
  if( GetBroken() )
    return "You cannot cast a broken " + strip_article(GetShort()) + "!";
  else return 1;
}
 
mixed eventCatch(object who, string fish) {
    int mass;
 
    SetBait(0);
    mass = (int)fish->GetMass();
    if( mass > PoleStrength && eventBreak() ) {
        message("my_action", "Just as you notice " + (string)fish->GetShort() +
                " on " + GetShort() + ", it breaks "
                "and you lose your catch!", who);
        message("my_action", possessive_noun(who) + " " +
                strip_article(GetShort()) + " breaks as " +
                nominative(who) + " tries to land " + (string)fish->GetShort()+
                "!", environment(who), ({ who }));
        return 0;
    }
    PoleStrength -= (mass/10) + 1;
    if( PoleStrength < 1 ) PoleStrength = 0;
    if( !((int)fish->eventCatch(who, this_object()))) return 0;
    if( !((int)who->CanCarry(mass)) ) {
        message("my_action", "For a fleeting moment, you notice " +
                (string)fish->GetShort() + " on your " +
                strip_article(GetShort()) + ", but then it is lost.",
                who);
        message("other_action", (string)who->GetName() + " loses a catch.",
                environment(who), ({ who }));
        return 0;
    }
    return 1;
}
 
int eventFish(object who) {
    if( (int)who->GetSkillLevel("fishing") >= random(5) )
      return GetChance() + GetBait();
    else return 0;
}

 
int SetChance(int x) { return (CatchChance =x); }
 
mixed GetProperty(string foo);

int GetChance() { return CatchChance + GetProperty("blessed"); }
 
int SetStrength(int x) { return (PoleStrength = x);  }
 
int GetStrength() { return PoleStrength; }
 
/* virtual functions */
 
mixed AddSave(mixed *vars) { return ({}); }