/*    /lib/pole.c
 *    from the Dead Souls 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(){
    string *bait_save = bait::GetSave();
    PoleStrength = 0;
    CatchChance = 0;
    AddSave( ({ "PoleStrength", "CatchChance" }) +  bait_save );
}

    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 ({}); }