Bastard Sword Fix Snippet

[Harroghty]

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
~