New at scripting and looking for help

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE muclient>
<!-- Saved on Monday, June 13, 2005, 8:57 PM -->
<!-- MuClient version 3.66 -->

<!-- Plugin "BankHack" generated by Plugin Wizard -->

<muclient>
<plugin
   name="BankHack"
   author="Flannel"
   id="86822aed3348d709fabc5bce"
   language="VBscript"
   purpose="Hacking numeric bank accounts"
   save_state="y"
   date_written="2005-06-13 20:55:15"
   requires="3.24"
   version="1.0"
   >
<description trim="y">
<![CDATA[
Hack:On
  Turn hacking on
Hack:Off
  Turn hacking off
Hack:SetAcct #
  Set the account number
Hack:RandAcct
  Generate a random account number
Hack:Auto:On
  Turn automatic hacking on (see below)
Hack:Auto:Off
  Turn automatic hacking off (see below)

Optional (disabled by default):
hack #
  Will capture your hack attempt and set the account number automatically.
  Does NOT turn hacking on, but it will send your command regardless.
]]>
</description>

</plugin>


<!--  Triggers  -->

<triggers>
  <trigger
   enabled="y"
   group="Hacking"
   ignore_case="y"
   keep_evaluating="y"
   match="^Damn\! You cant find that account\! Maybe its not there\.\.\.$"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  <send>dim num, i
num = getVariable("AcctNum") + 1
if num = 100000 then
  num = 0
  note "Hack Account Rollover!"
end if
for i = Len(num) to 4
num = "0" &amp; num
next
SetVariable "AcctNum", num
Send "hack " &amp; getvariable("AcctNum")</send>
  </trigger>
  <trigger
   enabled="y"
   expand_variables="y"
   group="Hacking"
   ignore_case="y"
   keep_evaluating="y"
   match="^You failed to hack into the system\! A loud beep signals your failure\.$"
   regexp="y"
   sequence="100"
  >
  <send>hack @AcctNum</send>
  </trigger>
  <trigger
   enabled="y"
   expand_variables="y"
   group="Hacking"
   ignore_case="y"
   keep_evaluating="y"
   match="^You steal (\d+) credits from the account\!$"
   regexp="y"
   sequence="100"
  >
  <send>hack @AcctNum</send>
  </trigger>
</triggers>

<!--  Aliases  -->

<aliases>
  <alias
   match="^Hack:(On|Off)$"
   enabled="y"
   regexp="y"
   send_to="12"
   ignore_case="y"
   sequence="100"
  >
  <send>if (StrComp("%1","on",0) = 0) then
  EnableTriggerGroup "Hacking", 1
  note "Hacking Enabled"
  send "hack " &amp; getvariable("AcctNum")
elseif (StrComp("%1","off",0) = 0) then
  EnableTriggerGroup "Hacking", 0
  note "Hacking Disabled"
end if</send>
  </alias>
  <alias
   match="^Hack:SetAcct (\d+)$"
   enabled="y"
   regexp="y"
   send_to="12"
   ignore_case="y"
   sequence="100"
  >
  <send>dim num, i
num = "%1"
for i = Len(num) to 4
num = "0" &amp; num
next
SetVariable "AcctNum", num
Note "Hacking account set to: "  &amp; getvariable("AcctNum")</send>
  </alias>
  <alias
   match="^Hack:Auto:(On|Off)$"
   enabled="y"
   regexp="y"
   send_to="12"
   ignore_case="y"
   sequence="100"
  >
  <send>if (StrComp("%1","on",0) = 0) then
  EnableAlias "AutoHack", 1
  note "Automatic Account Setting Enabled"
elseif (StrComp("%1","off",0) = 0) then
  EnableAlias "AutoHack", 0
  note "Automatic Account Setting Disabled"
end if</send>
  </alias>
  <alias
   match="^Hack:RandAcct$"
   enabled="y"
   regexp="y"
   send_to="12"
   ignore_case="y"
   sequence="100"
  >
  <send>dim num, i
num = CStr(Int(Rnd*100000))
for i = Len(num) to 4
num = "0" &amp; num
next
SetVariable "AcctNum", num
Note "Hacking account set to: "  &amp; getvariable("AcctNum")</send>
  </alias>
  <alias
   name="AutoHack"
   match="^hack (\d+)$"
   enabled="n"
   echo_alias="y"
   expand_variables="y"
   regexp="y"
   send_to="12"
   ignore_case="y"
   keep_evaluating="y"
   sequence="100"
  >
  <send>SetVariable "AcctNum", "%1"
send "%0"</send>
  </alias>
</aliases>

<!--  Variables  -->

<variables>
  <variable name="AcctNum">00000</variable>
</variables>

<!--  Script  -->


<script>
<![CDATA[
Sub OnPluginConnect
  Randomize
end Sub
]]>
</script>


<!--  Plugin help  -->

<aliases>
  <alias
   script="OnHelp"
   match="BankHack:help"
   enabled="y"
  >
  </alias>
</aliases>

<script>
<![CDATA[
Sub OnHelp (sName, sLine, wildcards)
  world.Note world.GetPluginInfo (world.GetPluginID, 3)
End Sub
]]>
</script> 

</muclient>