#include <lib.h>
#include <vendor_types.h>
inherit LIB_ITEM;
int range = 10;
int speed = 2;
string omsg = "A missile flies $D.";
string imsg = "A missile flies in.";
object owner;
void create(){
::create();
SetKeyName("generic missile");
SetId( ({"missile"}) );
SetAdjectives( ({"generic","sample","template"}) );
SetShort("a generic missile");
SetLong("This is an object that is launched.");
SetMass(20);
SetBaseCost("silver",10);
SetVendorType(VT_TREASURE);
}
void init(){
::init();
add_action("launch","launch");
}
int GetRange(){
return range;
}
int SetRange(int x){
if(x > 1) range = x;
else range = 0;
return range;
}
int GetSpeed(){
return speed;
}
int SetSpeed(int x){
if(x > 1) speed = x;
else speed = 0;
return speed;
}
mixed eventNegotiateObstacles(){
return 1;
}
mixed eventRunOut(){
return 1;
}
int SetArmed(int x){
return 1;
}
mixed eventEncounterBlock(){
if(owner) tell_player(owner, "poop");
range = 0;
return 1;
}
string SetCruiseInMessage(string str){
if(str){
imsg = str;
}
return imsg;
}
string SetCruiseOutMessage(string str){
if(str){
omsg = str;
}
return omsg;
}
mixed eventCruiseMessages(object this_room, object next_room, string dir){
string tmp = replace_string(omsg,"$D",dir);
if(this_room) this_room->eventPrint(tmp);
if(next_room) next_room->eventPrint(imsg);
return 1;
}
int eventCruise(string str){
object this_room, next_room;
string exit;
int err, success;
this_room = room_environment(this_object());
exit = this_room->GetExit(str);
if(exit) err = catch(next_room = load_object(exit));
if(!err && next_room){
success = this_object()->eventMove(next_room);
}
if(success && environment() == next_room){
eventCruiseMessages(this_room, next_room, str);
success = eventNegotiateObstacles();
}
else {
eventEncounterBlock();
}
return success;
}
void eventDeploy(string str){
int i, ret;
if(!owner) owner = find_player("cratylus");
for(i=speed;i > 0; i--){
if(range){
range--;
ret = eventCruise(str);
if(!ret) break;
}
}
if(range){
call_out("eventDeploy", 1, str);
if(owner) tell_player(owner, "%^GREEN%^I am "+identify(this_object())+
", range level: " + range + ", " + " cruising in " +
identify(room_environment(this_object())));
}
else {
if(owner) tell_player(owner, "%^CYAN%^I am "+identify(this_object())+
" and I ran out of range at "+
identify(room_environment(this_object())));
eventRunOut();
}
}
int launch(string str){
object room = room_environment(this_object());
string exit;
if(!this_player() || !creatorp(this_player())) return 0;
owner = this_player();
if(room) exit = room->GetExit(str);
if(exit) eventDeploy(str);
SetArmed(1);
return 1;
}
