void extra_create()
{
set_name( "tendrils" );
add_alias( "tendril" );
add_alias( "tendrils" );
set_short( "some writhing black tendrils" );
set_ansi_short ( sprintf( "%ssome writhing black tendrils%s", HIK, NORM ) );
set_long( "These horrible black tendrils writhe and grip about wildly."
);
set_alignment( DEMONIC_AL );
set_stat( "str" , 200 );
set_stat( "con" , 300 );
set_stat( "wil" , 300 );
set_stat( "dex" , 130 );
set_skill( "dodge", 65 );
set( NoStealP );
set( NoStunP );
set_natural_ac( 3 );
set_heal_rate( 30 );
set_heal_amount( 6 );
set_max_damage( 10 );
set_aggressive( 1 );
add_combat_message( "grope", "gropes" );
add_combat_message( "slither on", "slither on" );
}
void extra_create()
{
set_name( "a beholder" );
add_alias( "beholder" );
set_short( "a beholder" );
set_long( "This is a beholder. It is essentially a floating head "
"with one single, cyclops-like eye surrounded by ten smaller eye "
"stalks. Its massive, gaping maw is set in a permanent grin. "
"It looks like a sphere covered in eyes, with extra eyes "
"growing out of it. Little eye sprouts if you will." );
set_gender( "unknown" );
set_race( MON "beholder_race" );
//set_guild()
//set_specialization
set_skill( "dodge", 50 );
set_alignment( -4000 );
set_stat( "str", random( 5000 ) );
set_stat( "con", random( 5000 ) );
set_proficiency( "hands", 50 );
set_move_rate( 60 );
set_move_chance( 50 );
set_aggressive( 3 );
add_combat_message( "smack", "smacks" );
add_combat_message( "slup", "slurps" );
add_combat_message( "grab", "grabs" );
set_type( "blunt" );
set_hit_bonus( 2 ); //So many eyes.
set_heal_rate( 30 );
set_heal_amount( random( THISO->query_max_hp() ) - random( 300 ) );
set_natural_ac( 5 );
set( "loot", 1 );
add_money( random( 1000 ) );
add_special_attack( "blastem", THISO, 10 );
}
void extra_create()
{
switch( random( 3 ) )
{
case 0 : colorname = "green" ; color = GRN; break;
case 1 : colorname = "blue" ; color = BLU; break;
case 2 : colorname = "purple" ; color = MAG; break;
}
set_name( "a slime" );
add_alias( "slime" );
add_alias( sprintf( "%s slime", colorname ) );
set_short( sprintf( "a %s slime", colorname ) );
set_ansi_short ( sprintf( "%sa %s slime", color, colorname ) );
set_long( sprintf( "This slime oozes sloppily through the room absorbing "
"bits and pieces off of the mushrooms around it. Inside of its "
"%s colored body you can see quite a bit of material. "
"Hopefully it doesn't try to digest you!", colorname ) );
set_race( FRACE "slime" );
set_alignment( NEUTRAL_AL );
set_stat( "str" , 200 );
set_stat( "con" , 300 );
set_proficiency( "hands", 150 );
set_skill( "dodge", 65 );
set( NoStealP, 1 );
set( NoStunP, 1 );
set_natural_ac( 10 );
set_heal_rate( 20 );
set_heal_amount( 60 );
set_chat_rate( 30 );
set_chat_chance( 50 );
add_phrase( "#emote squelches along." );
add_phrase( "#emote jiggles wildly." );
set_move_rate( 40 );
set_move_chance( 50 );
set_pick_up_rate( 60 );
set_pick_up_chance( 0 );
set_heart_beat( 30 );
add_special_attack( "mimic", THISO, 30 );
}
// Sets the node's last modification time to mtime.
status_t
BStatable::SetModificationTime(time_t mtime)
{
struct stat statData;
statData.st_mtime = mtime;
return set_stat(statData, B_STAT_MODIFICATION_TIME);
}
// Sets the node's creation time to ctime.
status_t
BStatable::SetCreationTime(time_t ctime)
{
struct stat statData;
statData.st_crtime = ctime;
return set_stat(statData, B_STAT_CREATION_TIME);
}
// Sets the node's access time to atime.
status_t
BStatable::SetAccessTime(time_t atime)
{
struct stat statData;
statData.st_atime = atime;
return set_stat(statData, B_STAT_ACCESS_TIME);
}
// Sets the node's GID to group.
status_t
BStatable::SetGroup(gid_t group)
{
struct stat statData;
statData.st_gid = group;
return set_stat(statData, B_STAT_GID);
}
// Sets the node's UID to owner.
status_t
BStatable::SetOwner(uid_t owner)
{
struct stat statData;
statData.st_uid = owner;
return set_stat(statData, B_STAT_UID);
}
void extra_create()
{
set_name( "The Great Pumpkin" );
add_alias( "pumpkin" );
add_alias( "great" );
add_alias( "great pumpkin" );
add_alias( "the great pumpkin" );
add_alias( "great pumpkin" );
set_short( "The Great Pumpkin" );
set_ansi_short( YEL "The Great Pumpkin" );
set_long( "Great might be an understatement. This "
"pumpkin is gargantuan. Its face is comprised of "
"two oddly spaced eyes and a row of very sharp teeth. "
"Its legs are a mass of green tendrils. Amongst the tendrils "
"you can make out a mess of wires. Someone has rebuilt this "
"creature. They had the technology. They had the capability "
"to build the world's first bionic pumpkin. Better than it "
"was before. Better, stronger, faster." );
set_gender( "unknown" );
set_race( RACE );
set_alignment( NEUTRAL_AL );
set_percent_bonus_exp( -50 ); //12mil xp was pretty excessive.
set_stat( "str", 5000 );
set_stat( "con", 5000 );
set_proficiency( "hands", 150 );
set_skill( "dodge", 200 );
set( NoStealP, 1 );
set( NoStunP, 1 );
set_natural_ac( 10 );
set_heal_rate( 30 );
set_heal_amount( 1000 );
set_move_rate( 60 );
set_move_chance( 50 );
set_wander_dir( ({ "/zone/null/eternal/",
"/zone/guild/" }) );
void extra_create()
{
set_name( "a horror" );
add_alias( "creature" );
add_alias( "horror" );
add_alias( "indescribable horror" );
set_short( "an indescribable horror" );
set_ansi_short( "an indescribable horror", HIK );
set_long( "Parts, parts, and more parts! This thing has tentacles, "
"it has arms, legs, and many mouths. You notice it is missing "
"eyes. It is coated in a thick gelatinous black slime. The tentacles "
"writhe around its back and its mouths chomp. It flicks its tongues "
"out into the air." );
set_gender( "other" );
set_damage_bonus( 2 );
set_alignment( EVIL_AL );
set_stat( "str" , 100 );
set_stat( "con" , 50 );
set_stat( "wil" , 500 );
set_stat( "dex" , 200 );
set_proficiency( "hands", 75 );
set_skill( "dodge", 65 );
set_type( "pyschic" );
set( NoStunP, 1 );
set_aggressive( 4 );
set_natural_ac( 3 );
set_chat_rate( 20 );
set_chat_chance( 20 );
add_phrase( "#say Ack'cthun." );
add_phrase( "#say Masr'snaff. ct'oon." );
add_phrase( "#say Snaral d'fan ar'marak" );
}
// Sets the node's permissions to perms.
status_t
BStatable::SetPermissions(mode_t perms)
{
struct stat statData;
// the FS should do the correct masking -- only the S_IUMSK part is
// modifiable
statData.st_mode = perms;
return set_stat(statData, B_STAT_MODE);
}
int
prim_GenericOS_stat(const char *filename, unsigned int *ret)
{
int err;
struct stat st;
err = stat(filename, &st);
if (err == 0)
set_stat(&st, ret);
return err;
}
int
prim_GenericOS_fstat(int fd, unsigned int *ret)
{
int err;
struct stat st;
err = fstat(fd, &st);
if (err == 0)
set_stat(&st, ret);
return err;
}
/*! \brief Sets the size of the file.
If the file is shorter than \a size bytes it will be padded with
unspecified data to the requested size. If it is larger, it will be
truncated.
Note: There's no problem with setting the size of a BFile opened in
\c B_READ_ONLY mode, unless the file resides on a read only volume.
\param size the new file size
\return
- \c B_OK, if everything went fine
- \c B_NOT_ALLOWED, if trying to set the size of a file on a read only
volume
- \c B_DEVICE_FULL, if there's not enough space left on the volume
*/
status_t
BFile::SetSize(off_t size)
{
if (InitCheck() != B_OK)
return InitCheck();
if (size < 0)
return B_BAD_VALUE;
struct stat statData;
statData.st_size = size;
return set_stat(statData, B_STAT_SIZE | B_STAT_SIZE_INSECURE);
}
void extra_create()
{
set_name("pamela");
add_alias("pam");
set_short(SHORT);
set("sdesc", SHORT);
set_long("DOH! What you are looking at probably has to "
"be the finest specimen of human anatomy ever "
"created. Everything is in the right proportion "
"and she knows how to use it. The fact that she is "
"naked almost drives you crazy, and you feel a "
"sudden urge to stare at her.\n");
set_race("human");
set_gender("female");
set_stat("str",120);
set_stat("int",20);
set_stat("wil",100);
set_stat("con",250);
set_stat("dex",100);
set_stat("chr",300);
set_proficiency("hands", 10 + random(5));
set_aggressive(0);
set_alignment("neutral");
set_natural_ac(2); //Silicone implants
set(MonsterP, 1);
set_chat_chance(95);
set_chat_rate(random(10)+60);
add_phrase("Pamela giggles.\n");
add_phrase("Pamela wonders where the beach is.\n");
add_phrase("Pamela looks at you.\n");
}
void extra_create()
{
set_name("ivy");
add_alias("ivy");
set_short("The Archive");
set_long("some generic long");
set_race("human");
set_alignment("good");
set_stat("str",15);
set_stat("dex",15);
set_stat("con",45+random(15));
set_stat("int",275);
set_stat("chr",15);
set_stat("wil",15);
set_skill("dodge", 15);
set_percent_bonus_exp(10);
set_max_damage(8);
set_natural_ac(2);
set_chat_chance(30);
set_chat_rate(1);
add_phrase("The ice around The Archive sweats.\n");
}
void extra_create()
{
set_name( "the ghost of Rifrad" );
add_alias( "rifrad" );
add_alias( "ghost" );
add_alias( "doctor" );
add_alias( "ghost of rifrad" );
set_short( "the ghost of Rifrad" );
set_ansi_short( sprintf( "%sthe ghost of Rifrad", HIK ) );
set_long( "Where there was once a being, there is now a fluctuating "
"darkness. A cold ghastly presence. All that remains of Rifrad "
"is his incorporal form." );
set_gender( "male" );
set_alignment( NEUTRAL_AL );
set_stat( "str" , 200 );
set_stat( "con" , 200 );
set_stat( "wil" , 500 );
set_stat( "dex" , 200 );
set_proficiency( "hands", 75 );
set_skill( "dodge", 65 );
set_type( "psychic" );
set( NoStunP, 1 );
set( UndeadP, 1 );
set_aggressive( 1 );
set_natural_ac( 3 );
call_out( "hello", 1 );
add_special_attack( "soulwell", THISO, 8 );
}
// y is the y coordinate, the row number, and x is the x coordinate, the col number
void drunken_walk (int y, int x, struct room rooms[ROWS*COLS]){
rooms[get_index(y, x)].visited = 1;
int x_offset = 0;
int y_offset = 0;
int array[4] = {0, 1, 2, 3};
shuffle_array(array, 4);
for (int i = 0; i < 4; i++) {
if (array[i] == 0){
y_offset = 0;
x_offset = 1;
}
else if (array[i] == 1){
y_offset = 0;
x_offset = -1;
}
else if (array[i] == 2){
y_offset = 1;
x_offset = 0;
}
else{
y_offset = -1;
x_offset = 0;
}
if (out_of_bound(y + y_offset, x + x_offset))
set_stat(x_offset, y_offset, &rooms[get_index(y, x)], 1);
else{
struct room *neighbor = &rooms[get_index(y + y_offset, x + x_offset)];
if (neighbor->visited == -1){
set_stat(x_offset, y_offset, &rooms[get_index(y, x)], 0);
drunken_walk(y + y_offset, x + x_offset, rooms);
}
else if (get_stat(-x_offset, -y_offset, neighbor) != -1)
set_stat(x_offset, y_offset, &rooms[get_index(y, x)], get_stat(-x_offset, -y_offset, neighbor));
else
set_stat(x_offset, y_offset, &rooms[get_index(y, x)], 1);
}
}
}
void extra_create()
{
set_name( "a goblin digger" );
add_alias( "goblin" );
add_alias( "goblin digger" );
add_alias( "digger" );
set_short( "a goblin digger" );
set_long( "This ugly goblin looks really worn out. "
"It's dressed in just a loin cloth. It's nails are "
"yellow with fungus, and dirt is lodged underneath them. "
"It toils away digging for something valuable." );
if( random( 2 ) )
set_gender( "male" );
else
set_gender( "female" );
set_race( "goblin" );
set_alignment( random( -4000 ) );
if( random( 2 ) )
set_alignment( random(4000 ) );
set_stat( "str", 100 + random( 100 ) );
set_stat( "wil", 150 + random( 100 ) );
set_stat( "int", random( 100 ) );
set_stat( "con", 140 + random( 40 ) );
set_skill( "dodge", 40 );
set_proficiency( "hands", 60 );
set_aggressive( 0 );
switch( random( 3 ) + 1 )
{
case 1 : THISO->ogre(); break;
case 2 : THISO->body(); break;
case 3 : break;
default : break;
}
}
void extra_create()
{
object ob;
set_name( "Paula Spleen" );
add_alias( "paula" );
add_alias( "spleen" );
add_alias( "paula spleen" );
add_alias( "Paula Spleen" );
set_short( "Paula Spleen" );
set_long(
"This here be Paula. She is famous round these parts fer "
"being the best durn cook this side-a the mississipper. "
"She sure must love herself some butter, cuz she's five "
"hunred pounds if shesa ounce yessireeee yeeehawwww."
);
set_race( "pig" );
set_gender( "female" );
set_alignment( 250 );
set_stat( "str", 500 );
set_stat( "int", 1 );
set_stat( "wil", 800 );
set_stat( "con", 500 );
set_stat( "dex", 300 );
set_stat( "chr", 1500 );
set_max_fatigue( 25000 );
set_natural_ac ( 10 );
set_proficiency( "pig-fu", 6 );
set_skill( "dodge", 100 );
set_percent_bonus_exp( -15 );
add_special_attack( "chuck_butter", THISO, 10 );
ob = clone_object( ZOBJ "wig" );
move_object( ob, THISO );
ob = clone_object( ZOBJ "muumuu" );
move_object( ob, THISO );
ob = clone_object( ZOBJ "diabetes" );
if( !ob ) ob = clone_object( ZOBJ "butter" );
move_object( ob, THISO );
call_out( "gear_up", 2 );
}
void extra_create()
{
object ob;
set_name( "Chester" );
add_alias( "chester" );
add_alias( "uncle chester" );
add_alias( "uncle" );
add_alias( "master of arms" );
add_alias( "hill wizard master of arms" );
set_short( "Uncle Chester, Hill Wizard Master of Arms" );
set_long(
"Remember that jovial old man who helps teach young boys "
"how to properly use and care for their weapons on every "
"TV show ever? Well, that's Uncle Chester. He's a kind "
"middle aged man with time to spare. He also happens to "
"know a whole lot about weaponry! And by that, I mean "
"even moreso than your average hillbilly."
);
set_race( "human" );
set_gender( "male" );
set_alignment( 500 );
set_stat( "str", 800 );
set_stat( "int", 250 );
set_stat( "wil", 1000 );
set_stat( "con", 1000 );
set_stat( "dex", 400 );
set_stat( "chr", 250 );
set_skill( "dodge", 100 );
set_proficiency( "hands", 50 );
set_max_fatigue( 25000 );
set_natural_ac ( 10 );
set_percent_bonus_exp( -25 );
ob = clone_object( "/zone/present/hillbilly/obj/armor/overalls.c" );
move_object( ob, THISO );
call_out( "gear_up", 1 );
}
void extra_create()
{
string race, name, lastname, rankfirst,
ranksecond, rankthird, rankfourth, attk;
int sex = random( 2 );
if( sex == 1 )
{
set_gender( "male" );
switch( random( 15 ) )
{
case 0 : name = "Gary"; break;
case 1 : name = "Larry"; break;
case 2 : name = "Sigmund"; break;
case 3 : name = "Alfred"; break;
case 4 : name = "Gregory"; break;
case 5 : name = "Lester"; break;
case 6 : name = "Arnold"; break;
case 7 : name = "Homer"; break;
case 8 : name = "James"; break;
case 9 : name = "Atherton"; break;
case 10 : name = "Eric"; break;
case 11 : name = "Robert"; break;
case 12 : name = "Mike"; break;
case 13 : name = "Gabe"; break;
case 14 : name = "Malcom"; break;
}
}
if( sex == 0 )
{
set_gender( "female" );
switch( random( 15 ) )
{
case 0 : name = "Gale"; break;
case 1 : name = "Edith"; break;
case 2 : name = "Marilyn"; break;
case 3 : name = "Margo"; break;
case 4 : name = "Agnes"; break;
case 5 : name = "Nelly"; break;
case 6 : name = "Mildred"; break;
case 7 : name = "Charlotte"; break;
case 8 : name = "Eva"; break;
case 9 : name = "Victoria"; break;
case 10 : name = "Stella"; break;
case 11 : name = "Vivian"; break;
case 12 : name = "Ruth"; break;
case 13 : name = "Sophronia"; break;
case 14 : name = "Virginia"; break;
}
}
switch( random( 15 ) )
{
case 0 : lastname = "Masterson"; break;
case 1 : lastname = "Laymon"; break;
case 2 : lastname = "Wilson"; break;
case 3 : lastname = "McCammon"; break;
case 4 : lastname = "Bierce"; break;
case 5 : lastname = "Blackwood"; break;
case 6 : lastname = "Lovecraft"; break;
case 7 : lastname = "Saul"; break;
case 8 : lastname = "Poe"; break;
case 9 : lastname = "Ketchum"; break;
case 10 : lastname = "Koontz"; break;
case 11 : lastname = "Lumley"; break;
case 12 : lastname = "Lansdale"; break;
case 13 : lastname = "Barker"; break;
case 14 : lastname = "Bloch"; break;
}
switch( random( 4 ) )
{
case 0 : race = "drow_elf"; break;
case 1 : race = "dwarf"; break;
case 2 : race = "human"; break;
case 3 : race = "gnome"; break;
}
switch( random( 4 ) )
{
case 0 : rankfirst = sprintf( "%s is tall and middle aged. %s "
"shirt is wrinkled and %s looks dazed. ", name,
CAP( possessive( THISO ) ), subjective( THISO ) ); break;
case 1 : rankfirst = sprintf( "%s is a bit overweight. %s presence "
"is chilling. There is something dark about %s. ",
name, CAP( possessive( THISO ) ), objective( THISO ) ); break;
case 2 : rankfirst = sprintf( "There is a silky shine to %s hair. %s "
"looks clean and well groomed. Almost too well groomed. Like %s is "
"hiding something. ", possessive( THISO ), CAP( subjective( THISO ) ),
subjective( THISO ) ); break;
case 3 : rankfirst = sprintf( "%s has taut skin and well toned muscles. %s "
"looks to only be around thirty, though you know %s is much older. ", name,
CAP( subjective( THISO ) ), subjective( THISO ) ); break;
}
switch( random( 4 ) )
{
case 0 : ranksecond = sprintf( "%s dutifully concentrates on "
"whatever %s task maybe. %s concentration is unwavering and intense. ",
CAP( subjective( THISO ) ), possessive( THISO ),
CAP( possessive( THISO ) ) ); break;
case 1 : ranksecond = sprintf( "%s moves with great agility. %s speed "
"and grace is almost supernatural. As if %s wasn't fully of this world. ",
CAP( subjective( THISO ) ), CAP( possessive( THISO ) ),
subjective( THISO ) ); break;
case 2 : ranksecond = sprintf( "%s refuses to pause for a moment. %s "
"rushes forward lost in thought. ", CAP( subjective( THISO ) ),
CAP( subjective( THISO ) ) ); break;
case 3 : ranksecond = sprintf( "%s shoes are scuffed and the soles are almost "
"worn through. %s proceeds relentlessly forwards driven by an unknown goal. ",
CAP( possessive( THISO ) ), CAP( subjective( THISO ) ) ); break;
}
switch( random( 4 ) )
{
case 0 : rankthird = sprintf( "%s eyes are crisp and calculating. ",
CAP( possessive( THISO ) ) ); break;
case 1 : rankthird = sprintf( "%s eyes seem cold, yet relentless. ",
CAP( possessive( THISO ) ) ); break;
case 2 : rankthird = sprintf( "%s eyes are tireless and unyielding. ",
CAP( possessive( THISO ) ) ); break;
case 3 : rankthird = sprintf( "%s eyes intake the whole of the room, "
"%s is searching for something. ",
CAP( possessive( THISO ) ), subjective( THISO ) ); break;
}
switch( random( 4 ) )
{
case 0 : rankfourth = sprintf( "%s only cares for work.",
CAP( subjective( THISO ) ) ); break;
case 1 : rankfourth = sprintf( "%s licks %s lips at the sight of you.",
CAP( subjective( THISO ) ), possessive( THISO ) ); break;
case 2 : rankfourth = sprintf( "%s is a tireless asset to this company.",
CAP( subjective( THISO ) ) ); break;
case 3 : rankfourth = sprintf( "%s has no fear. No worry.",
CAP( subjective( THISO ) ) ); break;
}
switch( random( 100 ) )
{
case 0..20 : attk = "sympathy"; break;
case 21..70 : attk = "shove"; break;
case 71..76 : attk = "panic"; break;
case 77..99 : attk = "eyeclaw"; break;
}
set_name( sprintf( "%s %s", name, lastname ) );
add_alias( "researcher" );
add_alias( "res" );
add_alias( "doctor" );
add_alias( lower_case( name ) );
add_alias( lower_case( lastname ) );
add_alias( sprintf( "%s %s", lower_case( name ),
lower_case( lastname ) ) );
set_short( sprintf( "%s %s, a high level researcher",
name, lastname ) );
set_long( sprintf( "%s %s %s %s", rankfirst, ranksecond, rankthird,
rankfourth ) );
set_race( race );
set_alignment( NEUTRAL_AL );
set_stat( "str", 120 + random( 30 ) );
set_stat( "con", 100 + random( 30 ) );
set_stat( "wil", 100 + random( 30 ) );
set_stat( "int", 100 + random( 30 ) );
set_stat( "dex", 100 + random( 30 ) );
set_avoid_props( ({ NoWanderRoomP }) );
void extra_create()
{
set_name( "Ramsey" );
add_alias( "ramsey" );
add_alias( "khan" );
add_alias( "guard" );
add_alias( "ramsey khan" );
set_short( "Ramsey Khan, Facility 31 Security" );
set_ansi_short ( YEL "Ramsey Khan, Facility 31 Security" );
set_long( "Ramsey stares idlely around the "
"office, taking in every event and detail. "
"Though he seems to be mainly focused on the "
"exit to the west. You may not want to push your "
"luck. His arms are massive and covered in thick fluffy "
"hair. For some reason he smells like the stuffing "
"that is found inside of blankets. There maybe more "
"to this man than meets the eye." );
set_gender( "male" );
set_race( "human" );
set_guild( "fighter" );
set_specialization( "bodyguard" );
set_skill( "grapple", 20 );
set_alignment( MALICIOUS_AL );
set_stat( "str" , 100 );
set_stat( "con" , 300 );
set_stat( "wil" , 500 );
set_stat( "dex" , 200 );
full_heal();
set_proficiency( "hands", 30 );
set_skill( "dodge", 65 );
set( NoStealP, 1 );
set( NoStunP, 1 );
set_natural_ac( 10 );
set_heal_rate( 20 );
set_heal_amount( 60 );
set_chat_rate( 30 );
set_chat_chance( 50 );
add_phrase( "#spit" );
add_phrase( "#say This way isn't for you" );
add_phrase( "#growl" );
add_phrase( "#emote smiles showing more teeth than necessary." );
add_phrase( "#grin" );
add_phrase( "#say Go head, ask me what happened to the last intern." );
add_phrase( "#say I've killed more people for just looking at "
"that stairwell than you've got teeth in your head." );
ask_me_about( "intern", "#say I put him in "
"his place. Always asking about the stairwell, "
"always prying " );
move_object( clone_object( FARMOR "shirt" ), THISO );
move_object( clone_object( FARMOR "pants" ), THISO );
move_object( clone_object( FWEAP "nails" ), THISO );
//This call_out is seperate so that he will equip the nails and
//be at full health when he spawns. Since the nails do
//damage on wield.
call_out( "equip", 1 );
add_special_attack( "go_bear", THISO, 40 );
}