Bastard Sword Fix Snippet

For builders to discuss and ask building questions.
Post Reply
User avatar
Harroghty
Staff
Staff
Posts: 9489
Joined: Tue Jul 27, 2004 5:38 pm

Bastard Sword Fix Snippet

Post by Harroghty » Mon Nov 21, 2016 4:38 pm

Simple program example for how to adjust the holding options on a weapon.

Code: Select all

>speech_prog bastard warsword~
smote perks up.
sayto $n I kin fix yer hilt so ye kin draw fast - right inta two hands.
~
>give_prog ~
if objtype($o) == 5
  if objval3($o) == 0
    smote turns to his forge and does some hasty work upon the sword's hilt.
    mposet $o wear hold
    pause 2
    smote takes the weapon from his forge and hands it back with a smile.
    mpgive $o $n
  else
    smote shakes his head and returns $O
    mpgive $o $n
  endif
else
  smote shakes his head and returns $O
  mpgive $o $n
endif
~
"A man may die yet still endure if his work enters the greater work, for time is carried upon a current of forgotten deeds, and events of great moment are but the culmination of a single carefully placed thought." - Chime of Eons

Post Reply