Posted by
| Poromenos
Greece (1,037 posts) bio
|
Message
| A walker plugin i made, just change the "Exits: " trigger:
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE muclient>
<!-- Saved on Monday, September 08, 2003, 7:44 PM -->
<!-- MuClient version 3.42 -->
<!-- Plugin "Walker" generated by Plugin Wizard -->
<muclient>
<plugin
name="Walker"
author="Poromenos"
id="7dea598620724627aca3629a"
language="VBscript"
purpose="Randomly walks around."
save_state="y"
date_written="2003-09-08 19:44:07"
requires="3.42"
version="1.0"
>
</plugin>
<!-- Triggers -->
<triggers>
<trigger
enabled="n"
group="grpWalk"
keep_evaluating="y"
match="Exits: *"
match_text_colour="y"
script="subWalk"
sequence="100"
text_colour="15"
other_text_colour="black"
other_back_colour="black"
>
</trigger>
<trigger
enabled="n"
group="grpWalk"
keep_evaluating="y"
match="(It\'s locked\.|Alas\, you cannot go that way\.)$"
match_text_colour="y"
regexp="y"
sequence="100"
text_colour="15"
other_text_colour="black"
other_back_colour="black"
>
<send>glance</send>
</trigger>
<trigger
enabled="n"
group="grpWalk"
keep_evaluating="y"
match="You can\'t do that sitting down\.$"
match_text_colour="y"
regexp="y"
sequence="100"
text_colour="15"
other_text_colour="black"
other_back_colour="black"
>
<send>stand
glance</send>
</trigger>
</triggers>
<!-- Aliases -->
<aliases>
<alias
script="subSetInterval"
match="^Walker\:SetInterval[ ]+(\d+)$"
enabled="y"
regexp="y"
ignore_case="y"
sequence="100"
>
</alias>
<alias
script="subToggle"
match="^Walker\:Enable[ ]+(0|1)$"
enabled="y"
regexp="y"
ignore_case="y"
sequence="100"
>
</alias>
</aliases>
<!-- Script -->
<script>
<![CDATA[
Sub subToggle(strName, strLine, strWildcards)
EnableTriggerGroup "grpWalk", Int(strWildcards(1))
If Int(strWildcards(1)) = 1 Then
Note "Walker: Enabled plugin."
Else
Note "Walker: Disabled plugin."
End If
End Sub
Sub subWalk(strName, strLine, strWildcards)
Dim intDirection
Dim strDirection
Randomize
varDirs = Split(strWildcards(1), " ", -1, 1)
strDirection = varDirs(Int(UBound(varDirs) * Rnd))
If Left(strDirection, 1) = "[" Then
strDirection = Right(Left(strDirection, Len(strDirection) - 1), Len(strDirection) - 2)
Send "pick " & strDirection
Send "open " & strDirection
End If
If Int(GetVariable("Interval")) < 1 Then
Send strDirection
Else
DoAfter Int(GetVariable("Interval")), strDirection
End If
End Sub
Sub subSetInterval(strName, strLine, strWildcards)
SetVariable "Interval", strWildcards(1)
Note "Walker: Interval set to " & strWildcards(1) & "."
End Sub
]]>
</script>
</muclient>
|
Vidi, Vici, Veni.
http://porocrom.poromenos.org/ Read it! | top |
|