New script for multi-tabling pleasure: Absolute Poker Betpot by Thois - Poker Software -- Two Plus Two Poker Forums

Two Plus Two Forums Online Poker Sites & Marketplaces Poker Software

New script for multi-tabling pleasure: Absolute Poker Betpot by Thois

Post Reply Subscribe

...

Page 1 of 2

1 2

Page 1 of 2

1 2

10-12-2009 , 03:55 PM

Thois

adept

Join Date: Apr 2007 Posts: 935

Nobody seemed to want to create this (I have requested this for years), so I have created this myself with rookie programming, it isnt very advanced but it took me a lot of work since I dont have any programming experience.

Even though its not very advanced, it gets the job done.

Feel free to improve and post your improvements in this thread.

Use at your own risk. It doesnt detect Absolute Poker tables so it will take the same actions that it takes on AP tables to other windows as well, so don't forget to close the AHK when youre done playing or it might cause some unwanted clicks and stuff. Because of this fact, you can customize this script to work on other sites as well, all you have to change is 2 numbers (the decimal numbers in the script) for each button.

Code:

CoordMode, Mouse, Screen

; The middle mouse button clicks the pot button on the table
~MButton::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.953125*Width)
ClickY := Y + (.8485477*Height)
MouseClick, left, ClickX, ClickY
MouseMove, XMouse, YMouse
return

; The right mouse button clicks the fold button on the table, if you play with stacked tables behind each other then you can remove the ; at the 2 lines below, this moves the table to the bottom of the stack once you have folded.
~RButton::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.603125*Width)
ClickY := Y + (.967*Height)
MouseClick, left, ClickX, ClickY
MouseMove, XMouse, YMouse
;sleep, 50
;WinSet, Bottom,, ahk_id %tableID%
return

; Wheelup increases bet sizing, it works better than AP's because the table doesnt have to be activated, the mouse only needs to be over the table. The mouse does not return to its original place because it causes slow scrollwheel betsizing. You could turn it back on by removing the ;, but its not recommended.
WheelUp::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.98*Width)
ClickY := Y + (.87759336*Height)
MouseClick, left, ClickX, ClickY
;MouseMove, XMouse, YMouse
return

; Wheeldown decreases bet sizing, it works better than AP's because the table doesnt have to be activated, the mouse only needs to be over the table.
WheelDown::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.809*Width)
ClickY := Y + (.87759336*Height)
MouseClick, left, ClickX, ClickY
;MouseMove, XMouse, YMouse
return

; The bottom thumb button cycles between tables in a stack. What it does, it moves the front table to the back, so you can cycle infinitely.
Xbutton1::
MouseGetPos,,,tableID
IfWinExist, ahk_id %tableID%
WinSet, Bottom,, ahk_id %tableID%
return

; The top thumb button toggles the windows title bar on the ACTIVE (mouseover is not enough for this action, you really need to activate the table) table to on/off. This could save you some screen space for larger/more tables.
Xbutton2::
WinSet, Style, ^0xC00000, A
return

The middle mouse button clicks the pot button on the table
The right mouse button clicks the fold button on the table, if you play with stacked tables behind each other then you can remove the ; at the 2 lines below 'RButton', this moves the table to the bottom of the stack once you have folded.
Wheelup increases bet sizing, it works better than AP's because the table doesnt have to be activated, the mouse only needs to be over the table.
Wheeldown decreases bet sizing, same story...
The bottom thumb button cycles between tables in a stack. What it does, it brings the front table to the back, so you can cycle infinitely.
The top thumb button toggles the windows title bar on the ACTIVE table (mouseover is not enough for this action, you really need to activate the table) to on/off. This could save you some screen space for larger/more tables.

'Thois' on PS for donations

Last edited by Thois; 10-12-2009 at 04:20 PM.

Quote

10-12-2009 , 04:34 PM

Thois

adept

Join Date: Apr 2007 Posts: 935

OK here is version 2 already. The right mouse clicking for folding was annoying because it popped up some kind of pop up menu of AP. Here is a fix:

Code:

CoordMode, Mouse, Screen

; The middle mouse button clicks the pot button on the table
~MButton::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.953125*Width)
ClickY := Y + (.8485477*Height)
MouseClick, left, ClickX, ClickY
MouseMove, XMouse, YMouse
return

; The right mouse button clicks the fold button on the table, if you play with stacked tables behind each other than you can remove the ; at the 2 lines below, this brings the table to the bottom of the stack once you have folded.
RButton::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.603125*Width)
ClickY := Y + (.967*Height)
MouseClick, left, ClickX, ClickY
MouseMove, XMouse, YMouse
;sleep, 50
;WinSet, Bottom,, ahk_id %tableID%
return

; Wheelup increases bet sizing, it works better than AP's because the table doesnt have to 
be activated, the mouse only needs to be over the table.
WheelUp::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.98*Width)
ClickY := Y + (.87759336*Height)
MouseClick, left, ClickX, ClickY
;MouseMove, XMouse, YMouse
return

; Wheeldown decreases bet sizing, it works better than AP's because the table doesnt have to be activated, the mouse only needs to be over the table.
WheelDown::
MouseGetPos,XMouse,YMouse,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.809*Width)
ClickY := Y + (.87759336*Height)
MouseClick, left, ClickX, ClickY
;MouseMove, XMouse, YMouse
return

; The bottom thumb button cycles between tables in a stack. What it does, it brings the front table to the back, so you can cycle infinitely.
Xbutton1::
MouseGetPos,,,tableID
IfWinExist, ahk_id %tableID%
WinSet, Bottom,, ahk_id %tableID%
return

; The top thumb button toggles the windows title bar on the ACTIVE (mouseover is not enough for this action, you really need to activate the table) table to on/off. This could save you some screen space for larger/more tables.
Xbutton2::
WinSet, Style, ^0xC00000, A
return

Only problem is that it disables your right mouse in windows entirely lol, so thats also annoying....

Quote

10-12-2009 , 07:53 PM

Thois

adept

Join Date: Apr 2007 Posts: 935

wow this sucks, until someone tells me how to do a mouseclick at certain coordinates without moving the cursor, this script is useless and annoying, the automated moving of the cursor takes too many time.

Quote

10-12-2009 , 09:44 PM

Hilips

adept

Join Date: Aug 2007 Posts: 803

Use ControlClick

Quote

10-13-2009 , 01:02 AM

ronmar

adept

Join Date: Jun 2007 Posts: 1,133

ill track this thread and check it out once I play in UB.
at least someone is working on a script for this site.

Quote

10-13-2009 , 07:27 AM

Thois

adept

Join Date: Apr 2007 Posts: 935

Quote:

Originally Posted by Hilips

Use ControlClick

I know about controlclick, the format is like this:
ControlClick, x55 y77, WinTitle

The problem is, I have variables as coordiates, so I want something like:
ControlClick, XCoordA YCoordA

But that doesnt work, does anyone know how to do this?

Quote

10-13-2009 , 07:59 AM

Thois

adept

Join Date: Apr 2007 Posts: 935

Ok I have found out how to do this, Dave helped me. Still I cant get it to work though, Ill keep trying

Here is my test, it does nothing (apparently this postleftclick thingy works better than controlclick):

Code:

; The middle mouse button clicks the pot button on the table
~MButton::
MouseGetPos,,,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.953125*Width)
ClickY := Y + (.8485477*Height)
;Juks rocks
PostLeftClick(ClickX, ClickY, tableID, activate=1) {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
;       window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
 WinActivate, ahk_id%tableID%
PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%tableID%
PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%tableID%
}
return

Quote

10-13-2009 , 09:40 AM

Quetzo

grinder

Join Date: Jan 2006 Posts: 488

PostLeftClick is a function so you shouldn't edit the parameters in it, but send a call to it. So change back to just x and y in the function and make a call above where you put in
PostLeftClick(clickX, clickY, tableID)

Quote

10-13-2009 , 09:48 AM

Quetzo

grinder

Join Date: Jan 2006 Posts: 488

And if you check the MButton hotkey, there's a tilde in front ~MButton and that means that it will both do the hotkey and send through a normal middle click so you might want the tilde in front of your RButton as well so it works as normal as well. You could also do it without the tilde and add a parameter to the IfWinExist to make sure it's on a poker table, otherewise you could send a right click instead.

And the IfWinExist just do the next line under unless you put them in these {} things so no real use of IfWinExist unless you include all lines.

Quote

10-13-2009 , 11:26 AM

#10

Thois

adept

Join Date: Apr 2007 Posts: 935

hmmmm so now i tried this but it doesnt work either

Code:

CoordMode, Mouse, Screen

;Juks rocks, Activation of the PostLeftClick function
PostLeftClick(x, y, table_id, activate=1) {
; ### JUK: Send the down left click, then the mouse-up messages.
; NOTE: This is relative to the top left of the client area and NOT the top left of the
;       window (ie: It *doesn't* include the title-bar like AHK's MouseClick does!!!).
If activate
 WinActivate, ahk_id%table_id%
PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%table_id%
}

; The middle mouse button clicks the pot button on the table
~MButton::
MouseGetPos,,,tableID
IfWinExist, ahk_id %tableID%
WinGetPos, X, Y, Width, Height
ClickX := X + (.953125*Width)
ClickY := Y + (.8485477*Height)
PostLeftClick(ClickX, ClickY, %tableID%) 
return

Quote

10-13-2009 , 12:45 PM

#11

Quetzo

grinder

Join Date: Jan 2006 Posts: 488

no % around tableID in the function call

Quote

10-13-2009 , 03:08 PM

#12

Thois

adept

Join Date: Apr 2007 Posts: 935

ok screw it, I cant get it to work.
Ive come up with my last piece of coding for Absolute Poker, in my opinion this is a must:

What does it do?
It activates the table where the mouse is pointing at, so you can instantly use the mousewheel for betsizing without first needing to activate the table. Its simple, but essential.

Code:

snum = 150

; Activate window on mouseover
Loop
{
MouseGetPos,,,ActiveTable
IfWinActive, ahk_class DxWndClass
{
WinActivate, ahk_id %ActiveTable%
}
sleep, snum
}

Quote

10-13-2009 , 06:47 PM

#13

Flippn Corner

Pooh-Bah

Join Date: Aug 2009 Posts: 4,783

Quote:

Originally Posted by ronmar

ill track this thread and check it out once I play in UB.
at least someone is working on a script for this site.

+1

also, if u can add an auto top feature then im sending donations

Quote

10-14-2009 , 07:31 AM

#14

Thois

adept

Join Date: Apr 2007 Posts: 935

Quote:

Originally Posted by Flippn Corner

+1

also, if u can add an auto top feature then im sending donations

explain what you mean by that, if im correct this is what u mean:

Code:

snum = 150

; Activate window on mouseover
Loop
{
MouseGetPos,,,ActiveTable
IfWinActive, ahk_class DxWndClass
{
WinActivate, ahk_id %ActiveTable%
}
sleep, snum
}

This simple script will top/activate the Absolute Poker table the mouse is pointing at, so you dont need to left click the table you want to use over and over again (especially useful if you want to use the scrollwheel for betsizing instantly). It also detects AP/UB tables so it can run while youre not playing poker as well as it will not affect your windows performance. Note that the script will start working once you have activated an AP table just one time (thats required).

I have decided the BetPot script is kind of useless for me until I figure out how to get the 'mouseclicks without actually moving the mouse' to work.

If you want the above feature (Table activation) + a betpot hotkey then you can use this script below (it moves the mouse to the betpot button location, clicks it, and then moves the mouse to the old position). This script is bugfree and works, although the betpot action takes like 100 milliseconds, so its not instant (because of the automated mouse movement needed). You might want to try this script and see how it works for you. If you want to use a different mousebutton than the middle mouse button for the betpot action, you can change the 'MButton':

Code:

CoordMode, Mouse, Screen

Loop
{
MouseGetPos,,,ActiveTable
IfWinActive, ahk_class DxWndClass
{
WinActivate, ahk_id %ActiveTable%
}
sleep, snum
}

~MButton::
MouseGetPos,XMouse,YMouse,tableID
IfWinActive, ahk_class DxWndClass
{
WinGetPos, X, Y, Width, Height
ClickX := X + (.953125*Width)
ClickY := Y + (.8485477*Height)
MouseClick, left, ClickX, ClickY
MouseMove, XMouse, YMouse
}
return

Last edited by Thois; 10-14-2009 at 07:38 AM.

Quote

10-14-2009 , 02:43 PM

#15

Flippn Corner

Pooh-Bah

Join Date: Aug 2009 Posts: 4,783

I'm talking about auto topping my stack to 100bbs after i go below 100bbs without having to do it myself.

Quote

10-14-2009 , 03:58 PM

#16

Thois

adept

Join Date: Apr 2007 Posts: 935

Quote:

Originally Posted by Flippn Corner

I'm talking about auto topping my stack to 100bbs after i go below 100bbs without having to do it myself.

sorry, im not able to that with my limited programming skills

Quote

10-15-2009 , 01:32 AM

#17

Flippn Corner

Pooh-Bah

Join Date: Aug 2009 Posts: 4,783

If someone wants to get this done for me, I don't mind paying for it

Quote

10-15-2009 , 05:20 AM

#18

ronmar

adept

Join Date: Jun 2007 Posts: 1,133

I'm trying to convince this guy to develop a commercial script for UB.
maybe you can pm him and try to convince him as well.
He's the developer for Ongame and Ipoker Betpot.

http://forumserver.twoplustwo.com/members/114690/

Quote

10-15-2009 , 05:35 PM

#19

Flippn Corner

Pooh-Bah

Join Date: Aug 2009 Posts: 4,783

I'm not going to do all that. It's out there that I'll donate for a script for betpot and automating top up of stack at a certain bb. Wish someone could get this done though b/c it would let me play more tables.

Quote

10-16-2009 , 09:21 PM

#20

Flippn Corner

Pooh-Bah

Join Date: Aug 2009 Posts: 4,783

bump

Quote

10-20-2009 , 10:11 PM

#21

Flynn

grinder

Join Date: Dec 2007 Posts: 486

Thanks for your effort Thois! I also dream about table highlighter. After playing with scripts at ftp miss this feature so much. If anyone ready to make AP script in exchange for some $$$ - I'm willing to pay

Quote

10-26-2009 , 10:47 AM

#22

Thois

adept

Join Date: Apr 2007 Posts: 935

Quote:

Originally Posted by Flynn

I can make a table highlighter (I think I have enough AHK knowledge to do that (with the imagesearch feature thingy), although I suspect it will be buggy like my other scripts

Let me know if you want me to take a shot, I was also planning to make my betpot script less buggy. Then I can make one final bugless release (with the highlighter function) which works good enough to actually use lol

Quote

11-02-2009 , 02:11 PM

#23

Thois

adept

Join Date: Apr 2007 Posts: 935

I made a new script for Absolute Poker, my final one, Im done with AHK as all my other projects were too difficult for my limited knowledge. This last one however works great/bugless and is really helpfull. You can use it on other poker rooms as well if you do some simple editing.

TableTiler by Thois
With one simple click on the middle mouse button (you can change this button to fit your own needs), it positions/resizes all your Absolute Poker tables to your predefined settings. Works up to 16 tables. If you find this script helpfull, you can donate to 'Thois' on Stars.

I can help you if you cant get it to work on a different site.

Code:

; TableTiler by Thois
; -------------------
; Position/resize your poker tables to your predefined settings, works on all poker rooms if you do a little bit of editing (edit just 2 simple lines). Currently its set for Absolute Poker.

CoordMode, Mouse, Screen
#MaxHotkeysPerInterval 300
#SingleInstance, Force
SetTitleMatchMode 2

; Edit the part between the brackets to match your poker room, find this value using the Autohotkey Window Spy (activate a table then copy paste the part behind 'ahk_class '.
classname := "DxWndClass" 

; You dont want to tile your poker room's lobby, so seek for unique text in its title bar and put it between the brackets.
excludelobby := "Lobby"

; Edit the dimensions you want to use for all tables (leave width and height blank if you dont want to resize your tables) and set the x and y for each individual table.
windowwidth := 640
windowheight := 482
window1x := 0
window1y := 30
window2x := 640
window2y := 30
window3x := 0
window3y := 512
window4x := 640
window4y := 512
window5x := 1280
window5y := 30
window6x := 1280
window6y := 512
window7x := 1920
window7y := 30
window8x := 1920
window8y := 512
window9x := 
window9y := 
window10x := 
window10y := 
window11x := 
window11y := 
window12x := 
window12y := 
window13x := 
window13y := 
window14x := 
window14y := 
window15x := 
window15y := 
window16x := 
window16y := 

; Just a simple click of the middle mouse button tiles the tables! If you dont want to use the middle mouse button for this, edit the line below.
~MButton::

tiler1 := ""
tiler2 := ""
tiler3 := ""
tiler4 := ""
tiler5 := ""
tiler6 := ""
tiler7 := ""
tiler8 := ""
tiler9 := ""
tiler10 := ""
tiler11 := ""
tiler12 := ""
tiler13 := ""
tiler14 := ""
tiler15 := ""
tiler16 := ""

WinGet, tiler, List, ahk_class%classname%,,%excludelobby%
WinGet, numberofwindows, Count, ahk_class%classname%,,%excludelobby%
	
if numberofwindows > 0
	{
	WinMove, ahk_id%tiler1%,, window1x, window1y, windowwidth, windowheight 
	WinMove, ahk_id%tiler2%,, window2x, window2y, windowwidth, windowheight
	WinMove, ahk_id%tiler3%,, window3x, window3y, windowwidth, windowheight
	WinMove, ahk_id%tiler4%,, window4x, window4y, windowwidth, windowheight
	WinMove, ahk_id%tiler5%,, window5x, window5y, windowwidth, windowheight
	WinMove, ahk_id%tiler6%,, window6x, window6y, windowwidth, windowheight
	WinMove, ahk_id%tiler7%,, window7x, window7y, windowwidth, windowheight
	WinMove, ahk_id%tiler8%,, window8x, window8y, windowwidth, windowheight
	WinMove, ahk_id%tiler9%,, window9x, window9y, windowwidth, windowheight
	WinMove, ahk_id%tiler10%,, window10x, window10y, windowwidth, windowheight
	WinMove, ahk_id%tiler11%,, window11x, window11y, windowwidth, windowheight
	WinMove, ahk_id%tiler12%,, window12x, window12y, windowwidth, windowheight
	WinMove, ahk_id%tiler13%,, window13x, window13y, windowwidth, windowheight
	WinMove, ahk_id%tiler14%,, window14x, window14y, windowwidth, windowheight
	WinMove, ahk_id%tiler15%,, window15x, window15y, windowwidth, windowheight
	WinMove, ahk_id%tiler16%,, window16x, window16y, windowwidth, windowheight
	}
return

Last edited by Thois; 11-02-2009 at 02:38 PM.

Quote

11-25-2009 , 03:22 PM

#24

nostrakhan

journeyman

Join Date: Oct 2007 Posts: 380

Does the right click fold feature work in any of these scripts? I'll send a donation if you can make a script that will right click fold.

Thanks

Quote

11-27-2009 , 08:12 PM

#25

madlion

old hand

Join Date: Jan 2009 Posts: 1,550

Quote:

Originally Posted by nostrakhan

Does the right click fold feature work in any of these scripts? I'll send a donation if you can make a script that will right click fold.

Thanks

Code:

~rbutton::
MouseGetPos,,,win
WinGetClass, winClass, ahk_id %win%								
If winClass = DxWndClass
{
WinActivate, ahk_id %win% 
Sleep, 100 ;wait for context menu to show up
Send {ESC}{F1} ;close the context menu and send fold hotkey
Sleep, 250
IfWinExist, Info
WinActivate, Info
ControlClick, Button2, Info ;click check if freetocheck window pops up
return
}
Else
{
MouseClick , right ;rightclick as normal if not UB/AP table
return
}

Make sure you turn on Hot Key in options menu and depending on your system you can adjust 'Sleep, 100' from 50-250, 100 works best for me.

PM 4 SN

Quote

Page 1 of 2

First

1 2

Last

Post Reply Subscribe

...

Page 1 of 2

First

1 2

Last