Gammon Forum : MUSHclient : VBscript : Numerical calculator/tracker.

Entire forum ➜ MUSHclient ➜ VBscript ➜ Numerical calculator/tracker.

Numerical calculator/tracker.

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

Pages: 1 2 3

Posted by Shadowfyr USA (1,792 posts) Bio

Date Reply #15 on Sun 31 Aug 2003 12:26 AM (UTC)

Message

Hmm. Ok.. Lets step through this..

This line gets rid of what ever was in there before. In your case this was a time and day, so this will have gotten rid of that:

SetVariable ("total_gain"), ""

A better option would be to move it to a new sub:

sub OnPluginInstall
setvariable "total_gain",""
end sub

This will make it so each time the plugin is loaded it clears the value, 'but' only once, not every time you try to use it.

This is a problem:

ototal = GetVariable (total_gain)

getvariable requires a string. By leaving off the "" you are telling it to look in a VB variable called total_gain for a name that doesn't exist. It needs to be:

ototal = GetVariable ("total_gain")

This will work. The one you have for this will fail, because you don't tell it what they 'end' of the 'if' is actually at:

if IsEmpty (ototal) then
Note "Tracking Started."
end if

Here you have the opposite problem to when you tried to 'get' the value:

SetVariable ("total_gain"), "ntotal"

Your actually telling it here to store the value "ntotal" in totla_gain, not the contents of the variable ntotal. Change it to:

SetVariable "total_gain", ntotal

So the end result is:

<?xml version="1.0" encoding="UTF-8"?>
<!-- Saved on Saturday, August 30, 2003, 6:31 AM -->
<!-- MuClient version 3.42 -->

<!-- Plugin "PL_Tracker" generated by Notepad? -->

<!--
Change the entity above to reflect the message you get when you gain powerlevel.
-->

<muclient>
<plugin
name="PL_Tracker"
author="Gar"
id="224913675cf54a90c032df56"
language="VBscript"
purpose="Displays how much PL you have gained this session"
save_state="y"
date_written="2003-08-30 06:31:00"
requires="3.24"
version="1.0"
>
<description trim="y">
<![CDATA[
When installed, this plugin will display how much PL you have gained so far.
]]>
</description>

</plugin>


<!-- Triggers -->

<triggers>
<trigger
custom_colour="7"
enabled="y"
match="Your power level increases by ((\d+)\,|)((\d+)\,|)(\d+) points\.$"
regexp="y"
script="OnLevel"
sequence="100"
other_text_colour="black"
other_back_colour="black"
>
</trigger>
</triggers>

<!-- Script -->


<script>
<![CDATA[
sub OnPluginInstall
 setvariable "total_gain",""
end sub

sub OnLevel (name, line, wildcards)
dim cgain
dim ototal
dim ntotal

'calculate the gain
cgain = Int(wildcards(2) & wildcards(4) & wildcards(5))
'get the previous gain
ototal = GetVariable ("total_gain")
'if there is no previous gain, note that we started tracking
if IsEmpty (ototal) then
  Note "Tracking Started."
end if
'set ntotal to total gain
ntotal = Int(ototal + cgain)
'display it
ColourNote "white", "blue", "Total PL Gained = " & ntotal & "."
'store it
SetVariable ("total_gain"), ntotal
'we're done
end sub

]]>
</script>
</muclient>

I think that will fix it.