search/replace

Posted by Morten on Tue 11 Sep 2001 09:28 AM — 2 posts, 11,840 views.

Morten Tue 11 Sep 2001 09:28 AM #0

Greetings once again...

I would like to know if it is possible to search after
a certain words and then change them before they are
printed to the screen?

Like:

You wield the Globe of Protection.

Should then be replaced with:

You wield the Globe of Protection. (Hit: 90 Dam: 100)

I figured out that it must be possible via a trigger or something?

In advance, thanks.

Morten

Nick Gammon Australia Forum Administrator Wed 12 Sep 2001 01:27 AM #1

Yes, you could do something like this:



Trigger: You wield *.

Omit from output: checked

Label: Wield

Script: OnWield

And then put this subroutine in the script file (VBscript) - ensure scripting is enabled.


sub OnWield (strTriggerName, strTriggerLine, aryWildcards)
dim weapon, hit, dam

  ' weapon is in the first wildcard
  weapon = aryWildcards (1)

  ' work out spell duration based on chant
  Select Case weapon
      Case "the Globe of Protection"
           hit = 90
           dam = 100
      Case "a Silver Sword"
           hit = 80
           dam = 150

' --- and so on 

      Case Else
           hit = -1
           dam = -1
  End Select

  ' show HP and Dam if known
  if hit = -1 then
    world.note "You wield " & weapon & " (unknown HP)"
  else
    world.note "You wield " & weapon & ". (Hit: " _
               & hit & " Dam: " & dam & ")"
  end if

end sub