Two Plus Two Newer Archives

Two Plus Two Newer Archives (http://archives1.twoplustwo.com/index.php)
-   Software (http://archives1.twoplustwo.com/forumdisplay.php?f=47)
-   -   A pretty short AHK script I made - Fastest NL script i've tried (http://archives1.twoplustwo.com/showthread.php?t=106237)

DCWGaming 05-06-2006 02:58 PM

A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Most people seem to have been remapping keyboard keys to navigate windows and play...this creates a problem any time you want to browse/chat/AIM/etc etc. So I just modified my mouse and my numpad and i'm moving faster than ever...

Overview:
Fold - Right Click
Checkfold - Xbutton2 (5th mouse key...i never really use it)
Fold to any - Arrow key right
Check/call - Xbuton1 (4th mouse key...preflop call)
Bet/raise - Numpad Enter - After typing in the bet amount on the numpad, just hit enter and it makes the bet for you.
Autopost - Arrow key down
Sit out - Numpad +

If anybody notices any tweaks or anything you could do to improve it, feel free to pitch in.


; Fold to any
~Right::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 14, 505
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Fold
RButton::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 240, 470
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Check/Fold
~XButton2::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 240, 500
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Check/Call
XButton1::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 385, 500
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; Bet/Raise
~NumpadEnter::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 550, 500
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; AutoPost
~Down::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 14, 533
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

; SitOut
~NumpadAdd::
SetMouseDelay, -1
MouseGetPos, curPosX, curPosY, curWin
MouseClick, left, 14, 568
Sleep, -1
MouseMove,curPosX, curPosY, curWin
Sleep, -1
return

I just move my mouse around right clicking and folding all of those hands, its ridiculously fast...I usually go into system manager thing and set AHK on high priority so it doesnt lag, because sometimes it will bug and the mouse will get stuck for a second.

DCWGaming 05-06-2006 03:13 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
A very interesting idea I just had...possibly making the mouse wheel scroller thing control your bet amounts...say, each click up = +10% of the pot. If anybody would know how to do this...or even to get the pot size of the hand in the current window (i have no idea) throw some advice this way.

smoore 05-06-2006 04:25 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
that is a GREAT idea.

TheIrishThug 05-06-2006 11:34 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
A very interesting idea I just had...possibly making the mouse wheel scroller thing control your bet amounts...say, each click up = +10% of the pot.

[/ QUOTE ]

That's probly the best idea i've heard for automating nl betting. I HATE reaching for the keyboard.

Roland 05-07-2006 01:42 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
A very interesting idea I just had...possibly making the mouse wheel scroller thing control your bet amounts...say, each click up = +10% of the pot. If anybody would know how to do this...or even to get the pot size of the hand in the current window (i have no idea) throw some advice this way.


[/ QUOTE ]

Here's some mouse-wheel code... see the TableNavigator code on how to grab the pot size.
Just don't test this on 50/100 play money (those tables have no info in their title for some reason...).

SetTitleMatchMode 2
casino_name = PartyPlayMoney ;___change this to "Party" for real money

If (casino_name = "Party")
game_id = $
else if (casino_name = "PartyPlayMoney")
game_id = - ;___play money tables have no $-sign obviously, so we use this instead
return

#IfWinActive Good Luck
WheelUp::
WinGetTitle, title, A
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, game_id ,false, 0) + 1, InStr(title, ".") - InStr(title, game_id, false, 0) - 3 ;___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%
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1 ;___so we retrieve the big blind from the static instead
}
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, Edit2, %title% ;___retrieve the text from the edir next to the slider
t := t + bb
ControlSetText, Edit2, %t%, %title%
return

WheelDown::
WinGetTitle, title, A
If (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") = 0)
StringMid, bb, title, InStr(title, game_id, false, 0) + 1, InStr(title, ".") - InStr(title, game_id, false, 0) - 3
else if (InStr(title, "NL") <> 0 AND InStr(title, "Buy-in") <> 0)
{
ControlGetText, text, Static5, %title%
StringMid, bb, text, InStr(text, "/") + 1, InStr(text, ")") - InStr(text, "/") - 1
}
If bb is space
{
IfInString, title, 50.
bb = .50
else
bb = .25
}
ControlGetText, t, Edit2, %title%
t := t - bb ;___(now we decrease it)
;___no point in making it negative; however it can still get smaller than the smallest allowed bet; I might be able to fix that at a later point...
If t >= 0
ControlSetText, Edit2, %t%, %title%
return

TheIrishThug 05-07-2006 11:54 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Any thought on how to get this to work for Stars or Absolute?
I attempted to convert it, but WindowSpy doesn't show any controls.

Roland 05-08-2006 05:27 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
Any thought on how to get this to work for Stars or Absolute?
I attempted to convert it, but WindowSpy doesn't show any controls.

[/ QUOTE ]

This should work for Stars (both play money and real money); I haven't tested every limit/tourney type though.

SetTitleMatchMode 2
return

#IfWinActive Logged In as
WheelUp::
WinGet, id,, A
SetText(id, "up")
return

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

SetText(win, dir)
{
WinGetTitle, title, ahk_id%win%
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
}
StringReplace, bb, bb, $,,1
ControlGetText, t, Edit6, %title% ;___retrieve the text from the edir next to the slider
If dir = up
t := t + bb
else
t := t - bb
If t >= 0
ControlSetText, Edit6, %t%, %title%
}

deviouz 05-08-2006 06:09 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
[ QUOTE ]
Here's some mouse-wheel code... see the TableNavigator code on how to grab the pot size.
Just don't test this on 50/100 play money (those tables have no info in their title for some reason...).


[/ QUOTE ]

Could you please be kind to post a complete working script for party, I really want the scrolling bet function and I don't understand how to grab the potsize [img]/images/graemlins/confused.gif[/img]

Roland 05-08-2006 06:17 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
Could you please be kind to post a complete working script for party, I really want the scrolling bet function and I don't understand how to grab the potsize


[/ QUOTE ]

You don't need the pot size stuff for the mouse wheel stuff [img]/images/graemlins/wink.gif[/img]

The script above (the first one) is a working script for Party. Please try it (on play money first). Note that the target table has to be active.

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

pfkaok 05-08-2006 06:39 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ 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?

Roland 05-08-2006 06:48 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ 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 05-08-2006 07:13 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ 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 05-08-2006 07:20 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ 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 05-08-2006 11:03 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
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 05-08-2006 01:50 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
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 05-08-2006 08:22 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
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 05-09-2006 04:28 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
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 05-09-2006 04:30 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ 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 05-09-2006 05:17 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
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 05-09-2006 05:31 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ 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?

pfkaok 05-09-2006 05:40 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
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!

[/ QUOTE ]

yeah, i'm amazed at how much more fun and comfortable it is to sit here and play with a controller, rather than clicking everywhere. you guys are awesome.

Roland 05-09-2006 08:29 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
thank you so much!

[/ QUOTE ]

You're welcome.

Roland 05-09-2006 08:40 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ 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.

[/ QUOTE ]

Yeah, we'll have to take the x/y approach (since the other stick is used for navigation). Unfortunately documentation is somewhat bad ATM so you probably didn't notice, but we have something similar already: When you hold down the "NL modifier" (see the Configuration Gui) you can use the right stick to bet fractions of the pot. Seemed like a good idea at the time but actually having to hold down the modifier is to much of a hassle. I like your idea (r/z-axis) better.

[ QUOTE ]
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.

[/ QUOTE ]

This is pretty easy to do... I just need to play around with it a bit. To get 2.75 BB raises we need 1/2 SB increments, right? (NL is not my game, lol).

[ QUOTE ]
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?

[/ QUOTE ]

AFAIK Adde added (geez) the rebuy stuff to TN.

[ QUOTE ]
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?

[/ QUOTE ]

Yeah, I guess this is possible. I'll give it a try one of these days.

pfkaok 05-09-2006 09:58 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Yeah, i was wondering what the "NL modifier" did, as it didn't seem to do anything when i pressed it. Just now though, i tried playing a bit, and it didn't seem to do anything when i held it in. the right stick was still making the bet just go up by BB's.

[ QUOTE ]

This is pretty easy to do... I just need to play around with it a bit. To get 2.75 BB raises we need 1/2 SB increments, right? (NL is not my game, lol).

[/ QUOTE ]

Yeah, you'd need 1/2 SB, or 1/4 BB increments to do this.

[ QUOTE ]

AFAIK Adde added (geez) the rebuy stuff to TN.

[/ QUOTE ]

Hmm... i must be stupid, where do i find this in TN? Is it one of the options on the config?

thanks again for the help.

Roland 05-09-2006 10:04 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
Hmm... i must be stupid, where do i find this in TN? Is it one of the options on the config?

[/ QUOTE ]

I had to look myself... it's in the Toolbox. [img]/images/graemlins/smile.gif[/img]

pfkaok 05-09-2006 10:41 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
ahhh. thanks. guess i shoulda tried looking in the toolbox.

Adde 05-09-2006 10:45 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]

AFAIK Adde added (geez) the rebuy stuff to TN.

[/ QUOTE ]

Yeah, I'm with you, at times it sounds absolutely horrible. If I could turn back time I would have chosen a better nickname. [img]/images/graemlins/wink.gif[/img]

(Adde is short for Andreas by the way.)

As for the rebuyer, there is one in the toolbox that rebuys per single tables. As for the reloader, I haven't added (hmm) that to TN. I don't use it myself, but if people would like it there, I can do it?!?

Adde

Roland 05-09-2006 10:49 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
Yeah, I'm with you, at times it sounds absolutely horrible. If I could turn back time I would have chosen a better nickname.

[/ QUOTE ]

I quite like it. Better than pfkaok for instance. [img]/images/graemlins/wink.gif[/img] (No offence pfkoak).

Roland 05-09-2006 12:58 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Okay, I updated the Wikipage; no new version (I really didn't change much).

The increments are now 1/2 of the SB (controled by moving the right stick up/down). Also, right stick right => pot sized bet and right stcik left => 1/2 pot sized bet.
Obviously this should all be configurable but for now just try it out.

I also added the mouse wheel code just in case.

photojake 05-09-2006 04:00 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Thank for all the great code Roland. I need some help implementing it. I use a modified version of the multi-table AHK off of http://www.onlinepokerfaq.com/guide/...ess-poker.html The code does not seem to work with it. Can you please help me. I am fairly new to AHK code, but I have some computer programming experience under my belt. The reason I am using this AHK rather than TN is because I changed the code so that I can use it with Party, Stars, Fulltilt, and Paradise at the same time, where I don't think TN allows you to do that. Thanks again.

Jacob

Roland 05-09-2006 04:23 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]
; Based on an original script by "illunious" at 2+2, posted 8/18/2004.

[/ QUOTE ]

I was wondering what was up with this. [img]/images/graemlins/smile.gif[/img] Guess I know now.

I'm a bit confused though - that script is for mouseless poker, correct? The code above, otoh, assumes you're using a mouse (how else are you gonna scroll?).
What are you trying to do?

pfkaok 05-09-2006 04:47 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
[ QUOTE ]

I quite like it. Better than pfkaok for instance. (No offence pfkoak).

[/ QUOTE ]

No, none taken... i'm aware that my screenname is quite lame.

thanks again for the help. i'm excited to try out the new code. sounds like it should be much more convenient.

photojake 05-09-2006 07:24 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
I was planning on getting a Belkin Nostromo n50 or n52 ( http://www.amazon.com/gp/product/B00...e&n=172282 ) . They both have a scroll wheel on it. I could also map it to a button like the "+" or "-" button on my ten key. Please, if you could help me you would be a AHK God. Thanks.

Jacob

bort411 05-09-2006 10:50 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
All,

I'm sure this is very simple, but I can't figure it out. How would I get this most recent scroll wheel script to move in increments of double the big blind, rather than half?

Thanks in advance.

Edit: Disregard. I am super leet and figured it out.

photojake 05-10-2006 07:14 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Roland, any help on my earlier question. Please. Thanks.

Jacob

Roland 05-11-2006 03:30 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Photojake,

I don't know what the problem is. The illunious script uses the window under the mouse, and so does mine. Could you post some code?

photojake 05-11-2006 01:07 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Sure, I will post my code when I get home. It is basically the code from the www.onlinepokerfaq.com website on mouseless poker, but modified by some if statements to determine what poker site you are on. Here is the code from onlinepokerfaq.com

; Fold
1::
;MouseClick, left, 240, 474
;Sleep, 100
MouseClick, left, 240, 474
Sleep, 100
return

; Check/Call
2::
;MouseClick, left, 385, 474
;Sleep, 100
MouseClick, left, 385, 474
Sleep, 100
return

; Bet/Raise
3::
;MouseClick, left, 550, 474
;Sleep, 100
MouseClick, left, 550, 474
Sleep, 100
return

; AutoPost
4::
MouseClick, left, 14, 533
Sleep, 100
return

; SitOut
5::
MouseClick, left, 14, 568
Sleep, 100
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Define keys for relative motion to the right, to the left, etc.
; For example, "Numpad6" goes one window to the right.
; This depends on where the mouse starts.

; WindowLeft
Numpad4::
CoordMode, Mouse, Relative
MouseMove,-400,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowDown
Numpad2::
CoordMode, Mouse, Relative
MouseMove,400,900
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowRight
Numpad6::
CoordMode, Mouse, Relative
MouseMove,1200,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowUp
Numpad8::
CoordMode, Mouse, Relative
MouseMove,400,-300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Define keys for absolute mouse motion to a particular window.
; For example, "Numpad7" always goes to the upper-left window.
; This does not depend on where the mouse starts.

; WindowNW
Numpad7::
CoordMode, Mouse, Screen
MouseMove,400,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowNE
Numpad9::
CoordMode, Mouse, Screen
MouseMove,1200,300
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowSW
Numpad1::
CoordMode, Mouse, Screen
MouseMove,400,900
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return

; WindowSE
Numpad3::
CoordMode, Mouse, Screen
MouseMove,1200,900
MouseGetPos, curPosX, curPosY, curWin
WinGetTitle, title, ahk_id %curWin%
WinActivate, %title%
return


Thanks for your help. I really don't even know where to put your code into this code. I tried putting after the SitOut command. Is this not the right location? Please help

Jacob

Roland 05-11-2006 03:58 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Okay, I added Paradise support so I'll post the code again. Just stick it onto the end of your code and you should be fine.

~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,(connected from
return
If class not in #32770,Afx:400000:28:10011:0:1982047d,FTC_TableVie wFull
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")
{
ControlGet, is_vis, Visible,, Edit1, ahk_id%win%
If is_vis <> 1
return
StringMid, bb, title, InStr(title, "/") + 1, InStr(title, a_space,"", InStr(title, "/")) - InStr(title, "/") - 1
edit_num = 1
}

else If (InStr(title, "Good Luck") <> 0 AND class = "#32770")
{
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
}
else If (InStr(title, "(connected from") <> 0 AND class = "#32770")
{
If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") = 0)
{
IfNotInString, title, Play money
{
StringMid, bb, title, 2, InStr(title, a_space) - 2
bb := bb/100
}
else
StringMid, bb, title,InStr(title, "/") + 1, InStr(title, a_space, "",InStr(title, "/")) - InStr(title, "/") - 1
edit_num = 1
}
else If (InStr(title, "No Limit") <> 0 AND InStr(title, "Tournament") <> 0)
{
ControlGetText, t, Static34, ahk_id%win%
StringMid, bb, t, InStr(t, "/") + 1, InStr(t, ")") - InStr(t, "/") - 1
edit_num = 1
}
else
return
}




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/2
else
t := t - sb/2
If t >= 0
ControlSetText, Edit%edit_num%, %t%, %title%
}

pfkaok 05-11-2006 08:29 PM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
The 1/2 SB increments works now, but the 1/2 pot and pot sized bets don't seem to be working. for me it does + 1/2 SB for up and left, and - 1/2 SB for down and right. is there an option or config that i need to change for it to work properly?

photojake 05-12-2006 02:31 AM

Re: A pretty short AHK script I made - Fastest NL script i\'ve tried
 
Roland, thanks a lot. It is working pretty good. Thanks for all the help and coding. If anyone is interested in a very simple multi-table AHK code that works with Party, Stars, Paradise, and FullTilt, let me know. It works for Limit and NL (thanks to Rolands code). It is not perfect, but it is workable. If you multi table on different poker sites at the same time (i.e. two party tables and two Full tilt tables) then this will let you play on all of them. Please post if there is any interested. Thanks.

Jacob


All times are GMT -4. The time now is 07:39 AM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.