/*    /verbs/rooms/fly.c
 *    from the Dead Souls Mud Library
 *    Like go, except for flying around
 *    created by Descartes of Borg 961013
 *    Version: @(#) fly.c 1.2@(#)
 *    Last modified: 96/10/13
 */

#include <lib.h>
#include <medium.h>
#include <daemons.h>
#include <position.h>
#include "include/fly.h"

inherit LIB_VERB;

static void create(){
    verb::create();
    SetVerb("fly");
    SetRules("", "STR", "into STR");
    SetErrorMessage("Fly in which direction?");
    SetHelp("Syntax: fly [DIRECTION]\n"
            "        fly into <PLACE>\n\n"
            "Moves you towards the direction you specify, or into the place "
            "you specify.  The command \"fly into\" is synonymous with the "
            "\"enter\" command.\n"  
            "See also: climb, enter, go, jump, swim");
}

int StaminaCost(){
    int cost = 15;
    int bonus = this_player()->GetStatLevel("durability")/10;
    bonus += this_player()->GetStatLevel("coordination")/20;
    bonus += this_player()->GetFood()/40;
    bonus += this_player()->GetDrink()/40;
    cost -= bonus;
    if(cost < 1) cost = 1;
    return cost;
}

mixed can_fly(){
    object env = environment(this_player());
    if( !env ){
        return "You are nowhere to begin with!";
    }
    if(this_player()->GetPosition() == POSITION_FLYING) 
        return "You are already flying.";
    if(env->CanFly(this_player())) return this_player()->CanFly();
    return "You can't fly here.";
}

mixed can_fly_str(string str){
    object env = environment(this_player());
    int envpos = env->GetPosition();
    if( !env ){
        return "You are nowhere.";
    }
    if( this_player()->GetStaminaPoints() < 15 ){
        return "You are too tired to fly anywhere right now.";
    }
    if(env->CanFly(this_player(), str)){
        if(envpos == POSITION_FLYING) return 1;
        return this_player()->CanFly();
    }
    if(this_player()->GetPosition() != POSITION_FLYING &&
            envpos != POSITION_FLYING){
        return "You are not flying.";
    }
    return 0;
}

mixed can_fly_into_str(string str){
    object env = environment(this_player());
    int envpos = env->GetPosition();
    if( !env ){
        return "You are nowhere.";
    }
    if( this_player()->GetStaminaPoints() < 3 )
        return "You are too tired right now.";
    if(environment(this_player())->CanEnter(this_player(), str)){
        if(envpos == POSITION_FLYING) return 1;
        return this_player()->CanFly();
    }
    if(this_player()->GetPosition() != POSITION_FLYING &&
            envpos != POSITION_FLYING){
        return "You are not flying.";
    }
    else return 0;
}

mixed do_fly(){
    return this_player()->eventFly();
}

mixed do_fly_str(string str){
    this_player()->AddStaminaPoints(-StaminaCost());
    return environment(this_player())->eventGo(this_player(), str);
}

mixed do_fly_into_str(string str){
    this_player()->AddStaminaPoints(-StaminaCost());
    return environment(this_player())->eventEnter(this_player(), str);
}