[Home] [Downloads] [Search] [Help/forum]


Register forum user name Search FAQ

Gammon Forum

[Folder]  Entire forum
-> [Folder]  MUSHclient
. -> [Folder]  Perlscript
. . -> [Subject]  InStr question

InStr question

It is now over 60 days since the last post. This thread is closed.     [Refresh] Refresh page


Posted by Solaras   (4 posts)  [Biography] bio
Date Sat 18 Jun 2005 08:04 PM (UTC)
Message
In VBscript I can do this fairly easy, but I can't figure out the conversion to do it in PerlScript.

Quote:

<triggers>
<trigger
enabled="y"
expand_variables="y"
group="Cure"
match="^(.*?)h\, (.*?)m\, (.*?)e\, (.*?)p\, (.*?)en\, (.*?)w (.*?)\-$"
name="prompt"
regexp="y"
send_to="12"
sequence="100"
>
<send>if instr("%7", "@") then
world.setvariable "dreamweaving", "1"
else
world.setvariable "dreamweaving", "0"
end if
if instr("%7", "p") then
world.setvariable "prone", "1"
else
world.setvariable "prone", "0"
end if
if instr("%7", "b") then
world.setvariable "blind", "1"
else
world.setvariable "blind", "0"
end if
if instr("%7", "d") then
world.setvariable "deaf", "1"
else
world.setvariable "deaf", "0"
end if
if instr("%7", "k") then
world.setvariable "kafe_defense", "1"
else
world.setvariable "kafe_defense", "0"
end if
if instr("%7", "r") then
world.setvariable "right_arm_balance", "1"
else
world.setvariable "right_arm_balance", "0"
end if</send>
</trigger>


I can't figure out how to do the InStr in perl though, so any help would be appreciated.
[Go to top] top

Posted by David Haley   USA  (3,881 posts)  [Biography] bio
Date Reply #1 on Sat 18 Jun 2005 08:24 PM (UTC)
Message
Try the 'index' function.

http://perldoc.perl.org/functions/index.html

David Haley aka Ksilyan
Head Programmer,
Legends of the Darkstone

http://david.the-haleys.org
[Go to top] top

Posted by Flannel   USA  (1,230 posts)  [Biography] bio
Date Reply #2 on Sat 18 Jun 2005 11:43 PM (UTC)
Message
Or use a regular expression.

~Flannel

Messiah of Rose
Eternity's Trials.

Clones are people two.
[Go to top] top

The dates and times for posts above are shown in Universal Co-ordinated Time (UTC).

To show them in your local time you can join the forum, and then set the 'time correction' field in your profile to the number of hours difference between your location and UTC time.


17,367 views.

It is now over 60 days since the last post. This thread is closed.     [Refresh] Refresh page

Go to topic:           Search the forum


[Go to top] top

Quick links: MUSHclient. MUSHclient help. Forum shortcuts. Posting templates. Lua modules. Lua documentation.

Information and images on this site are licensed under the Creative Commons Attribution 3.0 Australia License unless stated otherwise.

[Home]


Written by Nick Gammon - 5K   profile for Nick Gammon on Stack Exchange, a network of free, community-driven Q&A sites   Marriage equality

Comments to: Gammon Software support
[RH click to get RSS URL] Forum RSS feed ( https://gammon.com.au/rss/forum.xml )

[Best viewed with any browser - 2K]    [Hosted at HostDash]