A pretty short AHK script I made - Fastest NL script i've tried - Page 2

Roland · #11 05-08-2006, 06:48 AM

[ QUOTE ]
[ QUOTE ]
As for a really complete script with pot size and all... I guess we can add this to TableNavigator....

[/ QUOTE ]

is there an easy way to use this all with a joypad analog stick instead of the mouse scroll thing for betsize? so that it can be used with TN, and you can play NL without having to use the mouse or keyboard?

[/ QUOTE ]

We already have that in TN. Check it out.

I meant the mouse-scrolling part/mouse hotkeys in general.

pfkaok · #12 05-08-2006, 07:13 AM

[ QUOTE ]
[ QUOTE ]
[ QUOTE ]
As for a really complete script with pot size and all... I guess we can add this to TableNavigator....

[/ QUOTE ]

is there an easy way to use this all with a joypad analog stick instead of the mouse scroll thing for betsize? so that it can be used with TN, and you can play NL without having to use the mouse or keyboard?

[/ QUOTE ]

We already have that in TN. Check it out.

I meant the mouse-scrolling part/mouse hotkeys in general.

[/ QUOTE ]

thanks. i just started messing around w/ TN, didn't even know it had that.

btw, is there a way with TN to adjust it so that the scroll bar can go faster or slower depending on how much you move the analog stick along the axis? it seems to go up by 1 BB at a time, what would I need to change to enable smaller bet incraments? or make it faster for bigger bets, or going allin?

Roland · #13 05-08-2006, 07:20 AM

[ QUOTE ]
btw, is there a way with TN to adjust it so that the scroll bar can go faster or slower depending on how much you move the analog stick along the axis? it seems to go up by 1 BB at a time, what would I need to change to enable smaller bet incraments? or make it faster for bigger bets, or going allin?

[/ QUOTE ]

It already goes faster/slower depending on how "hard" you push. It isn't configurable yet though - that part is a bit tough, but we'll get there eventually.

As for going all-in - the button called "Double bet" (in the Conf. Gui) is responsible for that. Yeah, I know.

Roland · #14 05-08-2006, 11:03 AM

Okay guy - I cleaned it up a bit; should work for both Stars and Party now. Also, we in/decrease by small blinds now which is better I think.

SetTitleMatchMode 2
GroupAdd, tables, Good Luck,,, PartyPoker.com
GroupAdd, tables, Logged In as,,, PokerStars Lobby
return

#IfWinActive ahk_group tables
WheelUp::
WinGet,id,,A
SetText(id,"up")
return

WheelDown::
WinGet,id,,A
SetText(id,"down")
return

SetText(win, dir)
{
WinGetTitle, title, ahk_id%win%
IfInString, title, Logged In as
{
If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") = 0) ;___if "NL" is in the title but "Tournament" isn't...
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1 ;___retrieve the big blind
else if (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") <> 0) ;___else this is a tourney
{
StringMid, bb, title, InStr(title, "/", "", InStr(title, "Blinds")) + 1
, InStr(title, a_space, "", InStr(title, "Blinds") + 8) - InStr(title, "/", "", InStr(title, "Blinds")) - 1 ;___so we retrieve the big blind instead
}
edit_num = 6
}
else
{
If (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") = 0) ;___if "NL" is in the title but "Buy-in" isn't...
{
StringMid, bb, title, InStr(title, "-","", 0) + 2, InStr(title, ".") - InStr(title,"-", "", 0) - 4 ;___retrieve the big blind
}
else if (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") <> 0) ;___else this is a tourney
{
ControlGetText, text, Static5, %title%
IfNotInString, text, Blinds-Antes
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1 ;___so we retrieve the big blind from the static instead
else
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, "-","",InStr(text, "/")) - InStr(text, "/") - 1
}
edit_num = 2
}
StringReplace,bb,bb,$,,1
If bb is space ;___this is for .25/.50 or .50/1 tables; "space" means whitespace (spaces, tabs, linefeeds..)
{
IfInString, title, 50.
bb = .50
else
bb = .25
}
ControlGetText, t, Edit%edit_num%, %title% ;___retrieve the text from the edit next to the slider
If bb = .25
sb := .10
else if bb = 15
sb = 10
else if bb = 0.05
sb = 0.02
else
sb := bb/2

If dir = up
t := t + sb
else
t := t - sb
If t >= 0
ControlSetText, Edit%edit_num%, %t%, %title%
}

Roland · #15 05-08-2006, 01:50 PM

Okay, while I'm at it - works for Full Tilt now too.

SetTitleMatchMode 2
GroupAdd, tables, Good Luck,,, PartyPoker.com
GroupAdd, tables, Logged In as,,, PokerStars Lobby
GroupAdd, tables, Logged In As,,, PokerStars Lobby
return

#IfWinActive ahk_group tables
WheelUp::
WinGet,id,,A
SetText(id,"up")
return

WheelDown::
WinGet,id,,A
SetText(id,"down")
return

SetText(win, dir)
{
WinGetTitle, title, ahk_id%win%
WinGetClass, class

If (InStr(title, "Logged In as") AND class <> "FTC_TableViewFull")
{
If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") = 0) ;___if "NL" is in the title but "Tournament" isn't...
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1 ;___retrieve the big blind
else if (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") <> 0) ;___else this is a tourney
{
StringMid, bb, title, InStr(title, "/", "", InStr(title, "Blinds")) + 1
, InStr(title, a_space, "", InStr(title, "Blinds") + 8) - InStr(title, "/", "", InStr(title, "Blinds")) - 1 ;___so we retrieve the big blind instead
}
edit_num = 6
}
else If (class = "FTC_TableViewFull")
{
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1
edit_num = 1
}

else
{
If (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") = 0) ;___if "NL" is in the title but "Buy-in" isn't...
{
StringMid, bb, title, InStr(title, "-","", 0) + 2, InStr(title, ".") - InStr(title,"-", "", 0) - 4 ;___retrieve the big blind
}
else if (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") <> 0) ;___else this is a tourney
{
ControlGetText, text, Static5, %title%
IfNotInString, text, Blinds-Antes
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1 ;___so we retrieve the big blind from the static instead
else
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, "-","",InStr(text, "/")) - InStr(text, "/") - 1
}
edit_num = 2
}
StringReplace,bb,bb,$,,1
If bb is space ;___this is for .25/.50 or .50/1 tables; "space" means whitespace (spaces, tabs, linefeeds..)
{
IfInString, title, 50.
bb = .50
else
bb = .25
}
ControlGetText, t, Edit%edit_num%, %title% ;___retrieve the text from the edir next to the slider
If bb = .25
sb := .10
else if bb = 15
sb = 10
else if bb = 0.05
sb = 0.02
else
sb := bb/2

If dir = up
t := t + sb
else
t := t - sb
If t >= 0
ControlSetText, Edit%edit_num%, %t%, %title%
}

pfkaok · #16 05-08-2006, 08:22 PM

I really like being able to go up by SB rather than BB's. can this be easily added, or changed into TN to enable the analog stick to go up by SB's?

Roland · #17 05-09-2006, 04:28 AM

Okay, some more changes. The table ´no longer has to be active and it should work with MTH.

SetTitleMatchMode 2
GroupAdd, tables, Good Luck,,, PartyPoker.com
GroupAdd, tables, Logged In as,,, PokerStars Lobby
GroupAdd, tables, Logged In As,,, PokerStars Lobby
return

~WheelUp::
MouseGetPos,,,id
SetText(id,"up")
return

~WheelDown::
MouseGetPos,,,id
SetText(id,"down")
return

SetText(win, dir)
{
WinGetTitle, title, ahk_id%win%
WinGetClass, class, ahk_id%win%

If title not contains good luck,logged in as
return
If class not in #32770,Afx:400000:28:10011:0:1420423,FTC_TableView Full
return

If (InStr(title, "Logged In as") AND class <> "FTC_TableViewFull")
{
If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") = 0) ;___if "NL" is in the title but "Tournament" isn't...
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1 ;___retrieve the big blind
else if (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") <> 0) ;___else this is a tourney
{
StringMid, bb, title, InStr(title, "/", "", InStr(title, "Blinds")) + 1
, InStr(title, a_space, "", InStr(title, "Blinds") + 8) - InStr(title, "/", "", InStr(title, "Blinds")) - 1 ;___so we retrieve the big blind instead
}
edit_num = 6
}
else If (class = "FTC_TableViewFull")
{
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1
edit_num = 1
}

else
{
If (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") = 0) ;___if "NL" is in the title but "Buy-in" isn't...
{
StringMid, bb, title, InStr(title, "-","", 0) + 2, InStr(title, ".") - InStr(title,"-", "", 0) - 4 ;___retrieve the big blind
}
else if (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") <> 0) ;___else this is a tourney
{
ControlGetText, text, Static5, %title%
IfNotInString, text, Blinds-Antes
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1 ;___so we retrieve the big blind from the static instead
else
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, "-","",InStr(text, "/")) - InStr(text, "/") - 1
}
edit_num = 2
}
StringReplace,bb,bb,$,,1
If bb is space ;___this is for .25/.50 or .50/1 tables; "space" means whitespace (spaces, tabs, linefeeds..)
{
IfInString, title, 50.
bb = .50
else
bb = .25
}

If bb = .25
sb := .10
else if bb = 15
sb = 10
else if bb = 0.05
sb = 0.02
else
sb := bb/2

ControlGetText, t, Edit%edit_num%, %title% ;___retrieve the text from the edir next to the slider
If t is space
t = %bb%

If dir = up
t := t + sb
else
t := t - sb
If t >= 0
ControlSetText, Edit%edit_num%, %t%, %title%
}

Roland · #18 05-09-2006, 04:30 AM

[ QUOTE ]
I really like being able to go up by SB rather than BB's. can this be easily added, or changed into TN to enable the analog stick to go up by SB's?

[/ QUOTE ]

Sure, will do.

Btw, what else would you like to see? We never really got much feedback on the NL stuff.

MSPaso · #19 05-09-2006, 05:17 AM

Wow, the first time i really look into this subforum i explore a world of poker beauty. Roland, you are a maniac, i just notice how much you do for us guys to make online poker as comfortable as possible. And how quick you update your scripts..., words fail me for now, but i still remember one phrase: thank you so much!

pfkaok · #20 05-09-2006, 05:31 AM

[ QUOTE ]
[ QUOTE ]
I really like being able to go up by SB rather than BB's. can this be easily added, or changed into TN to enable the analog stick to go up by SB's?

[/ QUOTE ]

Sure, will do.

Btw, what else would you like to see? We never really got much feedback on the NL stuff.

[/ QUOTE ]

Well, the only thing I can think of is to have maybe one analog stick go up by 1/2, or even 1/4 BB... and then possibly have the other stick go up by say 25%, or 50% of the pot. or perhaps it could be on one stick, with x axis doing one, and y axis doing another.

I have no idea how hard , or easy this would be to program, I just think that something like that would be most convenient to play with. I like to sometimes make 2.5, or sometimes even 2.25, or 2.75 BB raises preflop, so it'd be nice to have that option. and, even with the current one that goes up by 1BB now, it takes a bit of time to make larger bets, like 30-40+BB. so if it were changed to .5, or .25 BB movements, then it would be much tougher to get the bigger bets while multitabling.

I just started using TN, and right now i still am using my numpad to make some of the larger bets. it's not that its too inconvenient to do that, but it'd be very nice to be able to get to the exact amount I want to bet quickly, using the joypad. also, i only play 4 tables usually, so i think the quickness issue would be much more important for the 8+ tablers.

Oh, and for rebuying, should I just have one of those autorebuy programs running as well, or is there an easy way to implement that as an option in TN?

Also, sorry for all the requests, but one last thing would be... is there any way that i could have TN work for all my talbes if i'm playing a few tables at party, and a few others at stars?