369 lines
11 KiB
C
369 lines
11 KiB
C
#include <lib.h>
|
|
#include <daemons.h>
|
|
#include <talk_type.h>
|
|
#include <damage_types.h>
|
|
#include <vendor_types.h>
|
|
#include <armor_types.h>
|
|
|
|
inherit LIB_ARMOR;
|
|
inherit LIB_SHOOT;
|
|
inherit LIB_ACTIVATE;
|
|
int tracking, debugging, active, cache, maxcache = 100;
|
|
mapping Prey = ([]);
|
|
object myroom;
|
|
|
|
varargs mixed DoWear(object who, mixed where);
|
|
|
|
string LongDesc(){
|
|
string ret = "A highly advanced weapon of Poleepkwa design, "+
|
|
"meant to be worn.";
|
|
if(!active) return ret;
|
|
if(cache < percent_of(10, maxcache)) ret += " A %^RED%^red%^RESET%^ light is illuminated on it.";
|
|
else if(cache < percent_of(50, maxcache)) ret += " A %^YELLOW%^yellow%^RESET%^ light is illuminated on it.";
|
|
else if(cache < percent_of(80, maxcache)) ret += " A %^GREEN%^green%^RESET%^ light is illuminated on it.";
|
|
else ret += " A %^BLUE%^blue%^RESET%^ light is illuminated on it.";
|
|
return ret;
|
|
}
|
|
|
|
static void create() {
|
|
::create();
|
|
SetKeyName("plasma cannon");
|
|
SetId(({"cannon"}));
|
|
AddSave(({"cache","Prey"}));
|
|
SetAdjectives(({"shoulder","poleepkwa","plasma"}));
|
|
SetShort("a plasma shoulder cannon");
|
|
SetLong((:LongDesc:));
|
|
SetMass(400);
|
|
SetDollarCost(15000);
|
|
SetVendorType(VT_WEAPON|VT_ARMOR);
|
|
SetArmorType(A_CUSTOM);
|
|
SetRestrictLimbs(({"torso"}));
|
|
SetWear( (: DoWear :) );
|
|
AddItem( ({"light","status light"}), "A status light.");
|
|
set_heart_beat(2);
|
|
Prey = ([]);
|
|
}
|
|
|
|
varargs int OperateThing(object who, mixed what){
|
|
object env;
|
|
string this;
|
|
if(!who) who = this_player();
|
|
env = environment(this_player());
|
|
this = remove_article(GetShort());
|
|
tell_player(who, "You operate your "+this+".");
|
|
tell_object(env, who->GetName() + " operates " + possessive(who) +
|
|
" " + this + ".", ({who}));
|
|
if(what && stringp(what) && !active){
|
|
tell_player(who, "The "+this+" is not activated.");
|
|
return 0;
|
|
}
|
|
return 1;
|
|
}
|
|
|
|
varargs mixed eventShoot(object who, mixed target, string dir, string whom){
|
|
string name, patsy;
|
|
object bolt, killer, env, room = room_environment();
|
|
int fuel, dam;
|
|
killer = (who || this_player());
|
|
fuel = killer->GetMagicPoints();
|
|
name = killer->GetName();
|
|
env = environment(killer);
|
|
if(target) patsy = target->GetName();
|
|
|
|
if(creatorp(who)){
|
|
cache = maxcache;
|
|
fuel = 800;
|
|
who->AddMagicPoints(800);
|
|
}
|
|
|
|
dam = cache + random(maxcache);
|
|
|
|
if(!active){
|
|
write("The cannon clicks.");
|
|
say(name+"'s cannon emits a click.");
|
|
return 1;
|
|
}
|
|
|
|
if(cache < 5){
|
|
cache = 0;
|
|
write("The cannon clicks.");
|
|
say(name+"'s cannon emits a click.");
|
|
if(room) room->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"Power cache too low.", "poleepkwa");
|
|
return 1;
|
|
}
|
|
|
|
if(fuel < maxcache){
|
|
cache = 0;
|
|
write("The cannon emits a harsh buzzing noise.");
|
|
say(name+"'s cannon emits a harsh buzzing noise.");
|
|
if(room) room->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"Operator essence too low.", "poleepkwa");
|
|
return 1;
|
|
}
|
|
|
|
if(dir){
|
|
if(!env){
|
|
write("No environment.");
|
|
return 1;
|
|
}
|
|
if(!env->GetExit(dir)){
|
|
write("You can't shoot in that direction.");
|
|
return 1;
|
|
}
|
|
bolt = new("/domains/default/weap/plasma");
|
|
if(!bolt){
|
|
write("There appears to be some sort of malfunction.");
|
|
return 1;
|
|
}
|
|
write("You fire your plasma cannon "+dir+"!");
|
|
tell_room(env, name+" fires "+possessive(killer)+
|
|
" plasma cannon "+dir+"!", ({killer}));
|
|
|
|
if(debugging) bolt->SetDebugging(1);
|
|
bolt->SetOwner(who);
|
|
bolt->SetOwnerOb(this_object());
|
|
bolt->SetDamage(dam);
|
|
bolt->eventMove(env);
|
|
bolt->SetArmed(1);
|
|
bolt->eventDeploy(dir);
|
|
killer->AddMagicPoints(-maxcache);
|
|
cache = 0;
|
|
return 1;
|
|
}
|
|
|
|
write("You blast "+patsy+" with your plasma cannon!");
|
|
tell_room(env, name+" blasts "+patsy+" with "+possessive(killer)+
|
|
" plasma cannon!", ({killer, target}));
|
|
target->eventPrint(name+" blasts you with "+possessive(killer)+
|
|
" plasma cannon!");
|
|
|
|
dam = cache + random(maxcache);
|
|
cache = 0;
|
|
|
|
target->eventReceiveDamage(killer, HEAT, dam);
|
|
killer->AddMagicPoints(-maxcache);
|
|
target->AddEnemy(killer);
|
|
|
|
if(tracking){
|
|
if(room && (!Prey["ob"] || Prey["ob"] != target)){
|
|
room->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"New prey being tracked.", "poleepkwa");
|
|
}
|
|
Prey = ([ "ob" : target, "name" : patsy, "room" : environment(target),
|
|
"player" : userp(target) ]);
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
int ReportHit(object target){
|
|
object here, room;
|
|
string name;
|
|
int player;
|
|
if(!tracking || !active) return 0;
|
|
//if(!inherits(LIB_MISSILE, previous_object())) return 0;
|
|
here = environment(environment());
|
|
if(Prey["ob"] && target == Prey["ob"]){
|
|
here->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"Hit scored on target.", "poleepkwa");
|
|
return 1;
|
|
}
|
|
room = environment(target);
|
|
name = target->GetName();
|
|
player = userp(target);
|
|
Prey = (["ob" : target, "name" : name, "room" : room, "player" : player]);
|
|
here->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"New prey being tracked.", "poleepkwa");
|
|
return 1;
|
|
}
|
|
|
|
void heart_beat(){
|
|
int notify;
|
|
string str;
|
|
object env = environment();
|
|
object room = room_environment();
|
|
if(active && !GetWorn()){
|
|
if(env) tell_room(env, "The "+remove_article(GetShort())+
|
|
" whines and clicks off.");
|
|
active = 0;
|
|
}
|
|
else if(active){
|
|
int fuel = env->GetMagicPoints();
|
|
if(!fuel){
|
|
active = 0;
|
|
if(environment(env)){
|
|
tell_room(environment(env), env->GetName()+"'s "+
|
|
"plasma cannon whines and clicks off.", ({env}));
|
|
env->eventPrint("Your plasma cannon whines and clicks off.");
|
|
}
|
|
}
|
|
else if(cache < maxcache){
|
|
env->AddMagicPoints(-1);
|
|
cache++;
|
|
}
|
|
}
|
|
if(active){
|
|
object tmp;
|
|
object penv, menv;
|
|
if(Prey["name"] && !Prey["ob"]){
|
|
if(Prey["player"] && tmp = find_player(Prey["name"])){
|
|
Prey["ob"] = tmp;
|
|
Prey["room"] = environment(tmp);
|
|
Prey["lost"] = 0;
|
|
if(tracking && room){
|
|
room->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"Contact with prey re-established.", "poleepkwa");
|
|
}
|
|
return;
|
|
}
|
|
else if(!Prey["player"]) Prey = ([]);
|
|
if(room && !Prey["lost"]){
|
|
if(tracking){
|
|
room->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"Contact with prey lost.", "poleepkwa");
|
|
}
|
|
Prey["lost"] = 1;
|
|
}
|
|
return;
|
|
}
|
|
penv = room_environment(Prey["ob"]);
|
|
menv = room_environment(this_object());
|
|
if(Prey["ob"] && (!Prey["room"] || penv != Prey["room"])){
|
|
if(room) room->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
"Prey on the move.", "poleepkwa");
|
|
Prey["room"] = penv;
|
|
notify = 1;
|
|
}
|
|
if(menv != myroom && Prey["ob"]){
|
|
myroom = menv;
|
|
notify = 1;
|
|
}
|
|
if(tracking && notify && room){
|
|
string mycords = ROOMS_D->GetCoordinates(menv);
|
|
string theircords = ROOMS_D->GetCoordinates(penv);
|
|
int i, j, x1, y1, x2, y2, bearing;
|
|
i = sscanf(mycords, "%d,%d,%*s", x1, y1);
|
|
j = sscanf(theircords, "%d,%d,%*s", x2, y2);
|
|
if(i < 2 || j < 2){
|
|
return;
|
|
}
|
|
bearing = bearing(x2, y2, x1, y1, 1);
|
|
if(bearing != -1) str = "Prey's bearing currently: "+bearing;
|
|
else str = "Prey is in the immediate environment.";
|
|
room->eventHearTalk(this_object(),0,TALK_LOCAL,"say",
|
|
str, "poleepkwa");
|
|
}
|
|
}
|
|
}
|
|
|
|
void init(){
|
|
object env = environment();
|
|
::init();
|
|
if(active && !GetWorn()){
|
|
if(env) tell_room(env, "The "+remove_article(GetShort())+
|
|
" whines and clicks off.");
|
|
active = 0;
|
|
}
|
|
}
|
|
|
|
varargs mixed DoWear(object who, mixed where){
|
|
string extra;
|
|
object env = environment(who);
|
|
if(creatorp(who) || who->GetRace() == "poleepkwa"){
|
|
active = 1;
|
|
if(creatorp(who)) cache = maxcache;
|
|
}
|
|
if(active) extra = " and it beeps and clicks on.";
|
|
else extra = ".";
|
|
who->eventPrint("You wear "+GetShort()+extra);
|
|
if(env) tell_room(env, who->GetName()+" wears "+
|
|
GetShort()+extra, ({who}));
|
|
return 1;
|
|
}
|
|
|
|
mixed eventUnequip(object who){
|
|
mixed ret = ::eventUnequip(who);
|
|
object env = environment(who);
|
|
if(ret && active){
|
|
who->eventPrint("The cannon whines and clicks off.");
|
|
if(env) tell_room(env, who->GetName()+"'s cannon "+
|
|
"whines and clicks off.", ({who}));
|
|
active = 0;
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
int eventTurnOn(mixed str){
|
|
if(!OperateThing(this_player(), str)) return 1;
|
|
if(str && stringp(str)){
|
|
if(str == "debugging" && creatorp(this_player())){
|
|
write("Debugging enabled.");
|
|
debugging = 1;
|
|
return 1;
|
|
}
|
|
else if(str == "tracking"){
|
|
if(tracking){
|
|
write("Tracking already enabled.");
|
|
return 1;
|
|
}
|
|
write("Tracking enabled.");
|
|
tracking = 1;
|
|
return 1;
|
|
}
|
|
else {
|
|
write("The "+remove_article(GetShort())+" has "+
|
|
"no such feature.");
|
|
return 1;
|
|
}
|
|
}
|
|
if(active){
|
|
write("The cannon is already on.");
|
|
return 1;
|
|
}
|
|
if(!(this_object()->GetWorn()) || !this_player() ||
|
|
environment(this_object()) != this_player()){
|
|
write("You are not wearing the "+remove_article(GetShort())+".");
|
|
return 1;
|
|
}
|
|
write("You activate the "+remove_article(GetShort())+".");
|
|
say(this_player()->GetName()+"'s "+remove_article(GetShort())+
|
|
" beeps and clicks on.");
|
|
active = 1;
|
|
return 1;
|
|
}
|
|
|
|
int eventTurnOff(mixed str){
|
|
if(!OperateThing(this_player())) return 1;
|
|
if(str && stringp(str)){
|
|
if(str == "debugging" && creatorp(this_player())){
|
|
write("Debugging disabled.");
|
|
debugging = 0;
|
|
return 1;
|
|
}
|
|
else if(str == "tracking"){
|
|
if(!tracking){
|
|
write("Tracking already disabled.");
|
|
return 1;
|
|
}
|
|
write("Tracking disabled.");
|
|
tracking = 0;
|
|
return 1;
|
|
}
|
|
else {
|
|
write("The "+remove_article(GetShort())+" has "+
|
|
"no such feature.");
|
|
return 1;
|
|
}
|
|
}
|
|
if(!active){
|
|
write("The cannon is already off.");
|
|
return 1;
|
|
}
|
|
write("You deactivate the "+remove_article(GetShort())+".");
|
|
say(this_player()->GetName()+"'s "+remove_article(GetShort())+
|
|
" whines and clicks off.");
|
|
active = 0;
|
|
return 1;
|
|
}
|