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

Gammon Software Solutions forum

See www.mushclient.com/spam for dealing with forum spam. Please read the MUSHclient FAQ!

[Folder]  Entire forum
-> [Folder]  MUSHclient
. -> [Folder]  Perlscript
. . -> [Subject]  InStr question
Home  |  Users  |  Search  |  FAQ
Username:
Register forum user name
Password:
Forgotten password?
(New message)
Subject: InStr question
Name:
Your forum user name.
Register forum user name
Password:
Your forum password.
Forgotten password?
Message:
Message to be posted (in English, please)
Maximum of 6000 characters. Text only please, no HTML.
Forum codes:
Check this if your message uses 'forum codes' or templates (auto-detected for new posts).
Forum codes Templates

Save this message ...

Subject review (reverse sequence)

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

Messiah of Rose
Eternity's Trials.

Clones are people two.
[Go to top] top
Posted by David Haley   USA  (3,881 posts)  [Biography] bio   Moderator
Date Sat 18 Jun 2005 08:24 PM (UTC)  [ quote  ]
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 Solaras   (4 posts)  [Biography] bio
Date Sat 18 Jun 2005 08:04 PM (UTC)  [ quote  ]
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

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.

6,065 views.

[Reply to this subject]  Reply to this subject   [New subject]  Start a new subject   [Refresh] Refresh page

Go to topic:           Search the forum

[Go to top] top

[Home]

Written by Nick Gammon - 5K

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

[Best viewed with any browser - 2K]    [Internet Contents Rating Association (ICRA) - 2K]    [Web site powered by FutureQuest.Net]