SWTOR Scripted Dancing with VBScript

I play SWTOR, probably more than I should…and late at night sometimes I get some strange ideas. This time just for fun on this night I was thinking as I typed dancing emotes that it might be nice to automate them. While online games like SWTOR have rules against automated game play they typically ignore anything that doesn’t offer an unfair advantage so I’ve used scripting in other games to automate all kinds of things that were just for fun. I created a VBScript to send emote commands to my character and dance through a pre-selected sequence. In this video I demonstrate how it looks and show how I did it. Below is a complete copy of the VBScript used in this video. You can copy it to a text file, call it anything you want and save it with the extension VBS and it’s ready to go. Run it as Administrator and set focus into SWTOR and you’ll be dancing the night away, provided you have all the same emotes unlocked that I do. Of course you can customize the script to whatever emotes you prefer. Enjoy!

msgbox("running") EmoteThis("wave") EmoteThis("flirt") EmoteThis("clubdance") EmoteThis("lepihop") EmoteThis("backflip") EmoteThis("holohoop") EmoteThis("clawbirdkick") EmoteThis("angrydance") EmoteThis("dance") EmoteThis("clubdance") EmoteThis("drink") EmoteThis("kneel") EmoteThis("flex") EmoteThis("superflex") EmoteThis("toetouch") EmoteThis("yippee") EmoteThis("doubleguns") EmoteThis("woot") EmoteThis("drink") EmoteThis("backflip") EmoteThis("introduce") EmoteThis("flirt") EmoteThis("holohoop") EmoteThis("clawbirdkick") EmoteThis("angrydance") EmoteThis("dance") EmoteThis("clubdance") EmoteThis("lepihop") EmoteThis("backflip") EmoteThis("boogie") EmoteThis("getdown") EmoteThis("nobones") EmoteThis("thrash") EmoteThis("whatup2") EmoteThis("traditional") EmoteThis("clubdance") EmoteThis("backflip") EmoteThis("toetouch") EmoteThis("beachparty") EmoteThis("scratch") EmoteThis("bottlebreak") EmoteThis("dud") EmoteThis("laugh") EmoteThis("kloo") EmoteThis("kiss") EmoteThis("bye") msgbox("Done") sub EmoteThis(IncomingEmote)     Set WshShell = WScript.CreateObject("WScript.Shell")     WScript.Sleep 20000     WshShell.SendKeys "{DOWN}"     WScript.Sleep 1000     WshShell.SendKeys "{ENTER}"     WScript.Sleep 1000     WshShell.SendKeys "/" & IncomingEmote     WScript.Sleep 1000     WshShell.SendKeys "{ENTER}"    end sub