#include <lib.h>
#include <armor_types.h>
#include <damage_types.h>
#include <medium.h>
inherit LIB_ARMOR;
inherit LIB_ACTIVATE;
inherit LIB_READ;
int activated;
int charge = 1000;
int maxcharge = 1000;
object rocketshadow, owner;
string current_direction;
mapping Directions = ([]);
string LongD(){
string ret = "This is a large device worn on the back and designed to \"boost\" " +
"the wearer through the air or through space. For continuous operation, "+
"it should probably be activated. The fuel gauge "+
"reads "+to_int(percent(charge,maxcharge))+" percent.";
return ret;
}
static void create(){
armor::create();
if(!Directions) Directions = ([]);
SetKeyName("rocket pack");
SetId(({"pack","rocket"}));
SetAdjectives(({"large","rocket"}));
SetShort("a small rocket pack");
SetLong( (: LongD :) );
SetMass(800);
SetBaseCost(18000);
SetArmorType(A_VEST);
AddSave( ({ "charge", "Directions" }) );
SetRestrictLimbs( ({ "torso" }) );
set_heart_beat(1);
}
void init(){
::init();
add_action("boost","boost");
}
int SetCharge(int i){
charge = i;
}
int SetMaxCharge(int i){
maxcharge = i;
}
void heart_beat(){
int medium;
if(activated) charge--;
if(charge < 1) charge = 0;
if(!charge && activated){
object env = environment();
activated = 0;
if(env){
tell_object(env,"The rocket pack sputters and fails.");
}
}
if(!owner) return;
medium = environment(owner)->GetMedium();
if(medium == MEDIUM_SPACE){
int i;
object env = environment(owner);
if(!current_direction){
current_direction = env->GetExits()[random(sizeof(env->GetExits()))];
}
if(activated){
if(!Directions[current_direction]) Directions[current_direction] = 1;
else Directions[current_direction]++;
}
foreach(mixed key, mixed val in Directions){
if(val > 20) val = 20;
for(i=val;i>0;i--){
this_object()->boost(key,1);
}
}
}
}
int boost(string str, int coasting){
string dest,imsg,omsg;
mapping Exit, Doors;
int ret, medium;
object env;
if(!owner) return 0;
env = environment(owner);
current_direction = str;
medium = environment(owner)->GetMedium();
if(!env) return 0;
Doors = env->GetDoorsMap();
if(medium == MEDIUM_SPACE && !coasting){
if(Directions[opposite_dir(str)]){
Directions[opposite_dir(str)]--;
}
else {
if(!Directions[str]) Directions[str] = 1;
else Directions[str]++;
//call_out( (: boost :), 1, str, 1);
}
}
if(!coasting && environment(this_object()) != owner){
write("You don't have the rocket pack.");
return 1;
}
if(!coasting && !GetWorn()){
write("You're not wearing the rocket pack.");
return 1;
}
if(!coasting && !str || !env){
write("Boost in which direction?");
return 1;
}
if(!coasting && !charge){
write("The rocket pack is out of fuel.");
return 1;
}
dest = env->GetExit(str);
if(!dest){
if(str == "up" && env->GetFlyRoom()) dest = env->GetFlyRoom();
else if(str == "down" && env->GetSinkRoom()) dest = env->GetSinkRoom();
else {
if(!coasting) write("No such direction");
return 1;
}
}
Exit = environment(owner)->GetExitData(str);
if( sizeof(Doors) && Doors[str] && (int)Doors[str]->GetClosed() ){
message("my_action", "You bump into " +
(string)Doors[str]->GetShort(str) + ".", owner);
return 1;
}
if( Exit && Exit["pre"] &&
!((int)evaluate(Exit["pre"], str)) ){
return 1;
//return 1;
}
if(!sizeof(dest)){
write("You can't go that way.");
return 1;
}
omsg = owner->GetName()+" rockets "+str+".";
imsg = owner->GetName()+" rockets in.";
if(!coasting) write("You engage your rocket pack's boosters to rocket you "+str+".");
if(!coasting) charge--;
ret = owner->eventMoveLiving(dest, omsg, imsg, str);
if(ret){
if( Exit && Exit["post"] ) evaluate(Exit["post"], str);
if(activated){
if(!coasting) write("The rocket pack's boosters resume normal operation.");
}
else {
if(!coasting) write("The rocket pack's boosters sputter and go silent.");
}
}
return 1;
}
int eventTurnOn(){
if(!(this_object()->GetWorn()) || !this_player() ||
environment(this_object()) != this_player()){
write("You are not wearing the rocket pack.");
return 1;
}
write("You activate the rocket pack with a deep, rumbling roar!");
say(this_player()->GetName()+" fires up "+possessive(this_player())+" "
"rocket pack with a deep, rumbling roar!");
activated = 1;
return 1;
}
int eventTurnOff(){
write("You deactivate the rocket pack. The boosters sputter and go silent.");
say(this_player()->GetName()+" deactivates "+possessive(this_player())+" "
"rocket pack. The boosters sputter and go silent.");
activated = 0;
return 1;
}
int GetRunning(){
return activated;
}
mixed eventEquip(object who, string array limbs){
mixed success = armor::eventEquip(who, limbs);
rocketshadow = new("/shadows/rocketpack");
owner = who;
if(success){
if(rocketshadow) rocketshadow->eventShadow(who);
}
else if(rocketshadow) destruct(rocketshadow);
activated = 0;
return success;
}
varargs mixed eventUnequip(object who) {
mixed success;
if(!who) who = this_player();
success = armor::eventUnequip(who);
if(success){
if(rocketshadow) rocketshadow->eventUnshadow();
}
if(rocketshadow) destruct(rocketshadow);
return success;
}
int eventDecrementCharge(){
if(!GetWorn()) return 0;
if(previous_object() != rocketshadow) return 0;
if(charge < 1) charge = 0;
else charge--;
if(charge < 50){
tell_object(environment(this_object()),"The rocket pack beeps loudly!");
return charge;
}
if(charge < 100){
tell_object(environment(this_object()),"The rocket pack beeps softly.");
return charge;
}
return charge;
}
int GetRemainingCharge(){
return charge;
}
