Gammon Forum

check they entered the command and any paramiters correct
check they can use the skill/ if its a skill
check they are in the right place to fish/ cant fish in the city huh
check they have the right objects/ bait and tackle
bailout if if any of these fail
remove bait / 1 bait 1 cast
roll dice to see of there is a fish
if no fish, wait till they retrieve line then end.
if fish is there, wait till they pull  the line,
% chance of catching based on gear used and type of fish.
if no catch wait till they retrieve line then end
if caught fish, load fish object to room, end

void do_skin( CHAR_DATA *ch, char *argument)
{
    OBJ_DATA *korps;
    OBJ_DATA *corpse;
    OBJ_DATA *obj;
    OBJ_DATA *skin;
    bool found;
    char *name;
    char buf[MAX_STRING_LENGTH];
    found = FALSE;
 
    if ( !IS_PKILL(ch) && !IS_IMMORTAL(ch) )
    {
        send_to_char( "Leave the hideous defilings to the killers!\n", ch );
        return;
    }
    if ( argument[0] == '\0' )
    { 
        send_to_char( "Whose corpse do you wish to skin?\n\r", ch );
        return;
    }
    if ( (corpse=get_obj_here(ch, argument)) == NULL )
    {
	send_to_char( "You cannot find that here.\n\r", ch );
	return;
    }
    if ( (obj=get_eq_char(ch, WEAR_WIELD)) == NULL )
    {
        send_to_char( "You have no weapon with which to perform this deed.\n\r", ch );
        return;
    }
    if ( corpse->item_type != ITEM_CORPSE_NPC )
    {
        send_to_char( "You can only skin the bodies of player characters.\n\r", ch);
        return;
    }
 /*   if ( obj->value[3] != 1
    &&   obj->value[3] != 2
    &&   obj->value[3] != 3
    &&   obj->value[3] != 11 )
    {
        send_to_char( "There is nothing you can do with this corpse.\n\r", ch );
        return;
    } */
    if ( get_obj_index( OBJ_VNUM_SKIN ) == NULL )
    {
      bug( "Vnum 23 (OBJ_VNUM_SKIN) not found for do_skin!", 0);
      return;
    }
    korps               = create_object( get_obj_index(OBJ_VNUM_CORPSE_PC), 0 );
    skin                = create_object( get_obj_index(OBJ_VNUM_SKIN), 0 );
    name                = IS_NPC(ch) ? korps->short_descr : corpse->short_descr;
    sprintf( buf, skin->short_descr, name );
    STRFREE( skin->short_descr );
    skin->short_descr = STRALLOC( buf );
    sprintf( buf, skin->description, name );
    STRFREE( skin->description );
    skin->description = STRALLOC( buf );
    act( AT_BLOOD, "$n strips the skin from $p.", ch, corpse, NULL, TO_ROOM);
    act( AT_BLOOD, "You strip the skin from $p.", ch, corpse, NULL, TO_CHAR);
  act( AT_MAGIC, "\nThe skinless corpse is dragged through the ground by a strange force...", ch, corpse, NULL, TO_CHAR);
    act( AT_MAGIC, "\nThe skinless corpse is dragged through the ground by a strange force...", ch, corpse, NULL, TO_ROOM);
    extract_obj( corpse ); 
    obj_to_char( skin, ch );
    return;
}

if ( !IS_PKILL(ch) && !IS_IMMORTAL(ch) )
    {
        send_to_char( "Leave the hideous defilings to the killers!\n", ch );
        return;
    }

if ( corpse->item_type != ITEM_CORPSE_NPC )

if ( !str_cmp( name, "do_fixed" ))
        return do_fixed;
AND..... further down
if ( skill == do_fixed )
    return "do_fixed";

DECLARE_DO_FUN( do_fixed	);
and for the gsn(global skill number)
extern	sh_int	gsn_fixed

sh_int			gsn_fixed;

#SKILL
Name         fish~
Type         Skill
Info         0
Flags        0
Minpos       110
Slot         550
Rounds       8
Code         do_fish
Dammsg       ~
Misschar     You are a tops fisher person.~
Minlevel     1
End