Program Loader (LoadProgram)

Author: 7thAce
Version: 1.1.1
Description: Loads programs with a command. Specify a filepath to have the script default that program to the filepath. See the command for more information.
Commands:
/load <Program name> [Filepath]
Loads the program specified by the program name. If you have never loaded that program, you need to specify a filepath for the script.
Once you define a filepath, you can omit the Filepath argument if you want to load the same program.
Example:
/load Starcraft C:/Program Files/Starcraft/Starcraft.exe
That will launch Starcraft. From now on, all I have to do is type
/load Starcraft
to launch it. If I wanted to redefine the filepath, then I would just type the Filepath argument again.
/load Starcraft C:/Program Files/Example Folder/Starcraft/Starcraft.exe

Important: To allow for multiple words in the Program name, use /load <Program name>::[Filepath]
Yes, with the colons. Not the prettiest way to tell if you want a multiple word name, but it works, and I couldn't come up with another way to do it.
Example:
/load Diablo 2::C:/Program Files/Diablo II/Diablo II.exe
Notes: Please read the top of the script for information. Anyone know why IPB auto-removes forward slashes from my post? All filepaths should have forward slashes, not backslashes.
Future updates: Please reply with feedback on a Multiload command (launches multiple programs at once). If I get enough good feedback, I'll add it. If you can suggest another way to allow for filepath creation and multiple words without using "::", please post so I can add it in. Would clean up the code a lot.

Script("Name") = "LoadProgram"
Script("Author") = "7thAce"
Script("Major") = 1
Script("Minor") = 1
Script("Revision") = 1
Script("Description") = "Loads a specified program."

'Changelog
'1.1.1:
'Fixed a dumb mistake on my part (Thanks Distinct)

'1.1.0:
'Added the ability to use multiple words for a load name
'Use /load <program name>::[Filepath]
'Yes, with the 2 colons. That's how the script knows that you are using multiple words
'Just a note, you can't use the character in your Program name. But that shouldn't be an issue, should it?

'Future ideas:
'Multiload - Loads multiple programs at once with a command.
'Ex. /load Stealthbots
'The script then loads your 3 bots (or whatever).
'Please! - Reply on the topic if you think this is a good (or bad) idea.

Sub Event_Pressedenter(Text)
If left(lcase(text), 6) = "/load " Then
Args = Split(text)
Vetothismessage()
If instr(text, "") = 0 Then
Args = Split(Text, " ", 2)
Prgmname = args(1)
Filepath = Getconfigentry(Prgmname, "Filepath", "Load paths.ini")
If filepath = vbnullstring Then
Addchat vbyellow, "No filepath specified - please specify one with /load <program name> <filepath>"
Else
Set wshShell = CreateObject("WScript.Shell")
Call wshShell.Exec(Filepath)
Addchat vbgreen, "Loading " & Prgmname & " from previously defined location... (" & Filepath & ")"
End If
Else
If ubound(Args) >= 2 and instr(text, "") > 0 Then
If instr(text, "::") > 0 Then
Args = split(text, "::")
Prgmname = Split(args(0), " ", 2)(1)
Filepath = Args(1)
Else
Args = split(text, " ", 3)
Prgmname = args(1)
Filepath = args(2)
End If
WriteConfigEntry Prgmname, "Filepath", Filepath, "Load paths.ini"
Addchat vbgreen, "Created entry for " & Prgmname & ". (" & Filepath & ")"
Set wshShell = CreateObject("WScript.Shell")
Call wshShell.Exec(Filepath)
Addchat vbgreen, "Loading " & Prgmname & "..."
Else
Addchat vbyellow, "Please follow the correct syntax. /load <program name> [filepath]"
End If
End If
End If
End Sub