if iswearing($n,7316)
and if rand(20)
mpecho `GThe wheels in the soles of steam-powered boots of great striding roll smoothly with each step.`X
else
if iswearing($n,7316)
and if rand(25)
mpecho `GThe wheels in steam-powered boots of great striding suddenly lock up!`X
mpforce $n sit
else
if iswearing($n,7316)
and if rand(33)
mpecho `GSteam hisses from the engine attached to the steam-powered boots of great striding.`X
else
if iswearing($n,7316)
and if rand(50)
mpecho `GThe wheels in the soles of steam-powered boots of great striding fail to stop rolling!`X
mpforce $n rest
else
if iswearing($n,7316)
mpecho `GThe steam-powered engine begins to overheat and turn red!`X
mpecho `GSuddenly, the steam-powered boots of great striding explode into a thousand pieces!`X
mppurge
endif
endif
endif
endif
endif
if iswearing($n,7316)
and if rand(20)
mpecho `GThe wheels in the soles of steam-powered boots of great striding roll smoothly with each step.`X
else
if iswearing($n,7316)
and if rand(25)
mpecho `GThe wheels in steam-powered boots of great striding suddenly lock up!`X
mpforce $n sit
else
if iswearing($n,7316)
and if rand(33)
mpecho `GSteam hisses from the engine attached to the steam-powered boots of great striding.`X
else
if iswearing($n,7316)
and if rand(50)
mpecho `GThe wheels in the soles of steam-powered boots of great striding fail to stop rolling!`X
mpforce $n rest
else
if iswearing($n,7316)
mpecho `GThe steam-powered engine begins to overheat and turn red!`X
mpecho `GSuddenly, the steam-powered boots of great striding explode into a thousand pieces!`X
mppurge
endif
endif
endif
endif
endif
case 'n':
if ( actor && !char_died(actor) )
{
if ( can_see( mob,actor, FALSE ) )
one_argument( actor->name, t );
if ( !IS_NPC( actor ) )
*t = UPPER( *t );
}
else if ( obj && obj->carried_by && !char_died(obj->carried_by) )
{
one_argument( obj->carried_by->name, t );
if ( !IS_NPC( obj->carried_by ) )
*t = UPPER( *t );
}
else
strcpy( t, "someone" );
break;
case 'N':
if ( actor && !char_died(actor) )
{
if ( can_see( mob, actor, FALSE ) )
if ( IS_NPC( actor ) )
strcpy( t, actor->short_descr );
else
{
strcpy( t, actor->name );
strcat( t, actor->pcdata->title );
}
else
strcpy( t, "someone" );
}
else if ( obj && obj->carried_by && !char_died(obj->carried_by) )
{
one_argument( obj->carried_by->name, t );
if ( !IS_NPC( obj->carried_by ) )
*t = UPPER( *t );
}
else
strcpy( t, "someone" );
break;
The object is steam-powered boots of great striding. Wheels in the soles are powered by a miniature steam engine. Sometimes the wheels or engine malfunction with varying results. Here's the prog so far: