This script is no longer in use. We use the actual patch utility now.

patch.mrc

alias patch {
  if ($1 == augment-list-fix) {
    noop $read(characters.als, nr, ^ *set {1}%weapon_augment \$readini\(\$char\(\$1\), augments, \%weapon\.name\))
    var %line = $readn
    if (%line == 0) {
      echo 4 Could not find the reference point in characters.als.
      return
    }
    write -l $+ %line characters.als $eval(      set %weapon_augment $readini($char($1), augments, $strip(%weapon.name)), 0)

    reload -a characters.als

    echo 12 Patch successful.
  }
}