Register forum user name Search FAQ

Gammon Forum

Notice: Any messages purporting to come from this site telling you that your password has expired, or that you need to verify your details, confirm your email, resolve issues, making threats, or asking for money, are spam. We do not email users with any such messages. If you have lost your password you can obtain a new one by using the password reset link.

Due to spam on this forum, all posts now need moderator approval.

 Entire forum ➜ MUSHclient ➜ VBscript ➜ Stash Script

Stash Script

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


Posted by Storm Dragon   Denmark  (45 posts)  Bio
Date Mon 26 Nov 2001 08:36 PM (UTC)
Message
sub Stash (strTriggerName, trig_line, arrWildCards)
 'Stash
 ' This script is for those persons that keep all their money in a specific container
 ' A belt pouch or a backpack, by typing the command 'Stash', all their platinum coins
 ' gold coins and silver coins are stored into the container specified.
 ' to install place this SUB into your script and type
 ' /sub "install", "backpack", ""
 ' where the "backpack" is your choice of container
 ' credits go to 'Storm Dragon' for making this script
 ' Do enjoy :)
  dim isany
  dim plat
  dim gold
  dim silver
  dim finalcommand
  select case lcase(strTriggerName)
    case "install"
      World.addalias "Stash", "stash", "", 8225, "Stash"
      world.setvariable "Holding", trig_line
      world.note "Stash Subroutine Installed type Stash to put your money into the container"
    case "stash"
      world.addtrigger "WorthTMP", "You have * platinum, * gold, and * silver.", "", 1, -1, 0, "", "Stash"
      world.send "worth"
    case "worthtmp"
      plat = arrWildCards(1)
      gold = arrWildCards(2)
      silver = arrWildCards(3)
      finalcommand = ""
      isany = false
      if plat > 0 then
        finalcommand = finalcommand & "put " & plat & " plat in " & world.getvariable ("Holding") & ";"
        isany = true
      end if
      if gold > 0 then
        finalcommand = finalcommand & "put " & gold & " gold in " & world.getvariable ("Holding") & ";"
        isany = true
      end if
      if silver > 0 then
        finalcommand = finalcommand & "put " & silver & " silver in " & world.getvariable ("Holding") & ";"
        isany = true
      end if
      if isany = true then
        finalcommand = finalcommand & "close " & world.getvariable ("Holding")
        world.send finalcommand
      end if
      world.deletetrigger "WorthTMP"
    case else
      world.note "Stash Subroutine is invalid.. Installing!"
      call stash ("install", "Backpack", "")
      world.note "Please remember to set the Variable: 'Holding' in the variable list - default is 'backpack'"
  end select
end sub
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.


8,557 views.

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

Go to topic:           Search the forum


[Go to top] top

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