This is pretty fucking awesome
Keeping in the spirit of Lou's AWESOME thread, I've got something cool to share.
I just found this and had to fuck around a bit, but it works great.
If you use PokerTracker, you can use the prefs tab in the stats section to select criteria for your favorite fish. It creates a "fishlist" for you right there. Following the steps I found below. You can easily take that list and have it imported into your Party buddy list in a few seconds.
Do this:
--------First thing you have to do is create a file that contains the screennames of all of the people you want to add to your buddy list.
You can create this list from Pokertracker. Here's how:
1. On the preferences tab select the criteria you want to use to identify your fishy buddies. I simply check the "Use player filter" box and select the Fish icon from the "Player Icon" drop-down list. (save)
2. On the Summary tab click the little blue P button (Print) above the list of players.
3. On the "Print - Player Performance Summary" dialog click "Export"
4. Make sure the only box checked is "Player | player_name"
5. Select file type "Comma Separated"
6. Uncheck the "Include Headers" box
7. Enter a filename to export (Example: fish.csv)
8. Click the "Export" button
Voila, file created.
Now you need to take the following code and copy/paste it into word. Then click "save as" and save it with a .vsb file extension. You should save it in the same file as the fish.csv file you just created. Anyway, here's the code:
msgbox "If the Party Poker Buddy List is opened, close it now."msgbox "Now click ""My Account - > Buddy List"" in Party Poker. Then click OK."Const ForReading = 1Const ForWriting = 2Dim objFSDim objFledim countDim strCurrentLinecount = 0Set objFS = CreateObject("Scripting.FileSystemObject")Set objFle = objFS.OpenTextFile(InputBox("enter file name to import"), ForReading, True)Set WshShell = CreateObject("WScript.Shell")While Not objFle.AtEndOfStream count = count + 1 strCurrentLine = objFle.ReadLine while not wshshell.AppActivate("Buddy List") wscript.sleep 10 wend wshshell.SendKeys "{ENTER}" while not wshshell.AppActivate("Buddy ID") wscript.sleep 10 wend wshshell.SendKeys strCurrentLine & "{ENTER}" while (not wshshell.AppActivate("PokerNow.com")) _ and (not wshshell.AppActivate("MultiPoker.com")) _ and (not wshshell.AppActivate("PartyPoker.com")) _ and (not wshshell.AppActivate("IntertopsPoker")) _ and (not wshshell.AppActivate("Coral Eurobet Poker")) _ and (not wshshell.AppActivate("EmpirePoker")) wscript.sleep 10 wend wshshell.sendkeys "{ENTER}"Wendmsgbox "Finished importing " & count & " names into the buddy list"
Now, you need to run that .vsb file. When prompted, input fish.csv and it will buzz through import and all those names for you in seconds.
Good stuff.
__________________
Get well soon, MCA!
|