Two Plus Two Publishing LLC Two Plus Two Publishing LLC
 

Go Back   Two Plus Two Poker Forums > >

Notices

Software Discussions about gambling-related and poker software.

Reply
 
Thread Tools Display Modes
Old 01-04-2010, 01:46 PM   #76
Jo3 Whit3
stranger
 
Join Date: Nov 2009
Posts: 10
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

http://www.megaupload.com/?d=7OMBA6PG


This is the video, i used the betpot, i only have a request can the fold, raise buttons be configured to the mouse action, pe. rigth button fold, center buton bet/reise?

Can iu open a new tread for this ahk, for some people needed help too?
Jo3 Whit3 is offline   Reply With Quote
Old 01-04-2010, 03:24 PM   #77
thanks4giving
stranger
 
Join Date: Dec 2009
Posts: 8
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

Works fine now, I hadn't discovered the GUI yet... lol
thanks4giving is offline   Reply With Quote
Old 01-04-2010, 06:01 PM   #78
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,661
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

Jo3 Whit3, can't download video.
Edit betpot_default_hotkeys.txt file,look for these lines (maybe not exact)
Code:
F13::
Fold(getid())
return
^F14::
Call(getid())
return
F14::
Raise(getid())
return
change them to
Code:
~rbutton::
Fold(getid())
return
~xbutton1::
Call(getid())
return
~mbutton::
Raise(getid())
return
You can rearrange them yourself if needed.
Max1mums is offline   Reply With Quote
Old 01-05-2010, 07:20 AM   #79
thanks4giving
stranger
 
Join Date: Dec 2009
Posts: 8
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

Max1mums what's your name on FTP? I'm sending you a small thank you.
thanks4giving is offline   Reply With Quote
Old 01-05-2010, 07:56 AM   #80
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,661
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

It's Max1mumz on ftp and Max1mums on stars.
Max1mums is offline   Reply With Quote
Old 01-05-2010, 09:13 AM   #81
Jo3 Whit3
stranger
 
Join Date: Nov 2009
Posts: 10
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

maximumns the timebank dont work yet.
Jo3 Whit3 is offline   Reply With Quote
Old 01-05-2010, 09:20 AM   #82
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,661
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

Try it with standard view, standard table size (no miniveiw supported atm), you can PM me since i can PM you now.
Max1mums is offline   Reply With Quote
Old 08-27-2010, 05:24 AM   #83
variatsioon
grinder
 
variatsioon's Avatar
 
Join Date: Nov 2008
Posts: 669
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

ty!
variatsioon is offline   Reply With Quote
Old 08-30-2010, 01:06 PM   #84
ColtForty5
grinder
 
ColtForty5's Avatar
 
Join Date: Oct 2009
Location: Western MA
Posts: 607
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

Thank you for this. Have been looking for something like this for a long time. Turning off aero got rid of the flickering problem for me. Glad you made this without the features of the FT cash script as this is the only option I really needed.
ColtForty5 is offline   Reply With Quote
Old 08-30-2010, 01:40 PM   #85
Max1mums
old hand
 
Join Date: Aug 2009
Location: From Russia with code
Posts: 1,661
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

ColtForty5, hmm, FTCash will do absolutely nothing except of clicking Timebank if you uncheck all other options.
Here is update for this script which shouldn't cause any flicker with aero on:
Code:
#SingleInstance, Force
#NoEnv
Settitlematchmode, 2
OnExit exitSub

StringTrimRight, thisahk, A_ScriptName, 4
SetWorkingDir %A_ScriptDir%

Menu, Tray, NoStandard
Menu, Tray, Add, Settings, menugui
Menu, Tray, Add 
Menu, Tray, Add, Reload, reload
Menu, Tray, Default, Settings
Menu, Tray, Add 
Menu, Tray, Add, Exit, ExitSub

boost:=false

SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4

time_x:=0.9093
time_y:=0.7200
time_x1:=0.8808
t1:=0xdedbde
v:=15
back_x:=0.6534
back_y:=0.9862
back_x1:=0.5859
back1:=0x181818
v1:=5
join_x:=0.6158
join_y:=0.9292
join_x1:=0.8261
join:=0xffffff
v2:=5
once:=true
tablequeue=
ddlist=
Loop 14
ddlist:=ddlist . A_index . "|"
gosub,getini

flicker1:=1
flicker2:=0

ifwinnotexist,FullTiltPoker ahk_class QWidget
{
if flicker1
{
winwait,Logged In ahk_class QWidget
Process, Exist, FullTiltPoker.exe
if (ErrorLevel)
{
  FTP := ErrorLevel
  Process, Priority, %FTP%, High
}
}
else
{
Process, Exist, FullTiltPoker.exe
if (ErrorLevel)
{
  FTP := ErrorLevel
  Process, Priority, %FTP%, Normal
}
}
if flicker2
{
winwait,Logged In ahk_class QWidget
Process, Exist, AutoHotkey.exe
if (ErrorLevel)
{
  Ahk := ErrorLevel
;  SetAffinity(Ahk,0)
 SetAffinity(Ahk)
}
Process, Exist, FullTiltPoker.exe
if (ErrorLevel)
{
  FTP := ErrorLevel
;  SetAffinity(FTP,0)
 SetAffinity(FTP)
}
}
}


;;;;;;;;;;;;End of init;;;;;;;;;;;;;;


settimer,clickwithdelay,100

loop
{
if once
Colorinit()

check()
sleep,500
}

;-----------------------------------------------------------------------------------------------------
Colorinit()
{
local id,t,col
id:=WinExist("Logged In ahk_class QWidget","","Full Tilt")
if id
{
once:=false
t:=PixelColorA(time_x,time_y,time_x1,time_y,join_x,id)
stringsplit,col,t,-
if (CompareColors(col1,col2,v1)=false)
{
t2:=col2
once:=true
}
else
t2:=col1
t:=PixelColorA(back_x,back_y,back_x1,back_y,join_x,id)
stringsplit,col,t,-
if (CompareColors(col1,col2,v1)=false)
{
back2:=col2
once:=true
}
else
back2:=col1
}
}
return
;-----------------------------------------------------------------------------------------------------
check()
{
local listft,id,t,col
winget,listft,list,Logged In ahk_class QWidget,,Full Tilt
loop %listft%
{
id:=listft%A_index%
t:=PixelColorA(time_x,time_y,back_x,back_y,join_x,id)
stringsplit,col,t,-
if (CompareColors(col1,t1,v)=false) & (CompareColors(col1,t2,v)=false)
{
if !InStr(tablequeue,id)
movetolist(id,A_TickCount)
}
else
if InStr(tablequeue,id)
removefromlist(id)
if dealmein
if (CompareColors(col2,back1,v1)=false) & (CompareColors(col2,back2,v1)=false) & (CompareColors(col3,back2,v)=true)
PostclickFT(back_x,back_y,id,0)
}
}
return
;-----------------------------------------------------------------------------------------------------
relFTClientPoint(id, ByRef x, ByRef y, client=1)
{
global xbord,ybord,cap
WinGetPos,,,w,h,ahk_id%id%
w-=2*xbord
h-=(2*ybord)+cap
x:=floor(W*x)
y:=floor(H*y)
if !client
{
x+=xbord
y+=ybord+cap
}
}
return
;-----------------------------------------------------------------------------------------------------
PostLeftDoubleClick(x, y, table_id, activate=1) {
; ### Max1mums: Send the double left click, then the mouse-up messages,
; some windows can get activated on the down left click so we will use
; left doubleclick instead, don't use on objects which have any functions
; binded to doubleclick unless you want to make doubleclick on them
; 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%
critical,6
PostMessage, 0x203 , 0, ((y<<16)^x), , ahk_id%table_id% ; without 0x001 as lparam which is Lbutton down
PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%table_id%
PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%table_id%
critical,off
sleep,-1
}
return
;-----------------------------------------------------------------------------------------------------
PostclickFT(x,y,winid,activate=1,client=1)
{
relFTClientPoint(winid, x, y,client)
DllCall("SetCapture","Uint",winid)
PostLeftDoubleClick(x, y, winid, activate)
DllCall("ReleaseCapture")
}
return
;-----------------------------------------------------------------------------------------------------
clickwithdelay:
Loop, Parse, tablequeue, `,
{
interval:=interval1*1000
stringsplit,tab,A_loopfield,-
if abs(tab2-A_TickCount)>interval
{
PostclickFT(time_x,time_y,tab1,0)
listDelItem(tablequeue, A_Loopfield) 
}
}
return
;-----------------------------------------------------------------------------------------------------
PixelColorA(colx,coly,backx,backy,joinx,id,region=0)
{
global boost,xbord,ybord,cap
if boost
critical,6
setwindelay, -1
DllCall("dwmapi\DwmIsCompositionEnabled","int*",DwmIsEnabled)
if DwmIsEnabled
{
hdc_buffer := DllCall("GetDCEx", "UInt", id,"UInt",0,"UInt",1)
}
else
{
hdc_frame := DllCall( "GetDC", "UInt", id )
hdc_buffer := DllCall("gdi32.dll\CreateCompatibleDC", "UInt",  hdc_frame)
WinGetPos,,,W,H,ahk_id %id%
hbm_buffer := DllCall("gdi32.dll\CreateCompatibleBitmap", "UInt",hdc_frame, "Int",w, "Int",h)
DllCall( "gdi32.dll\SelectObject", "UInt",hdc_buffer, "UInt",hbm_buffer)
DllCall( "PrintWindow", "UInt" , id , "UInt" , hdc_buffer , "UInt" , 0 )
DllCall("RedrawWindow","UInt",id,"UInt",0,"UInt",0,"UInt", 1|16|32|64|1024)
} 
x:=floor(((W-2*xbord)*colx) + xbord)
y:=floor(((H-(2*ybord)-cap)*coly) + ybord + cap)
pix1=
pix1 := DllCall("GetPixel", "UInt", hdc_buffer, "Int", x, "Int", y) 
x:=floor(((W-2*xbord)*backx) + xbord)
y:=floor(((H-(2*ybord)-cap)*backy) + ybord + cap)
pix2:=DllCall("GetPixel", "UInt", hdc_buffer, "Int", x, "Int", y) 
x:=floor(((W-2*xbord)*joinx) + xbord)
pix3:=DllCall("GetPixel", "UInt", hdc_buffer, "Int", x, "Int", y) 
SetFormat, IntegerFast, hex
pix1 += 0
pix1 .= ""
pix2 += 0
pix2 .= ""
pix3 += 0
pix3 .= ""
SetFormat, IntegerFast, d
pix1.="-" . pix2 . "-" . pix3
if region
{
x:=floor(((W-2*xbord)*joinx) + xbord)
y:=floor(((H-(2*ybord)-cap)*backy) + ybord + cap)
pix1.="*"
loop 70
{
delta:=A_index
loop 15
{
delta1:=A_index
p := DllCall("GetPixel", "UInt", hdc_buffer, "Int", x+delta , "Int", y+delta1)
pix1.=p . "-"
}
}
}
DllCall( "gdi32.dll\DeleteObject", "Uint", hbm_buffer )
DllCall( "gdi32.dll\ReleaseDC", "Uint", hdc_frame )
DllCall( "gdi32.dll\DeleteDC", "Uint", hdc_frame )
DllCall( "gdi32.dll\ReleaseDC", "Uint", hdc_buffer )
DllCall( "gdi32.dll\DeleteDC", "Uint", hdc_buffer )
if boost
{
critical,off
sleep,-1
}
return pix1
}
;-----------------------------------------------------------------------------------------------------
CompareColors(ByRef bgr1, ByRef bgr2, ByRef variation) {
	c1 := bgr1 & 0xff
	c2 := bgr2 & 0xff
	if (abs(c1 - c2) > variation)
		return false
	c1 := (bgr1 >> 8) & 0xff
	c2 := (bgr2 >> 8) & 0xff
	if (abs(c1 - c2) > variation)
		return false
	c1 := (bgr1 >> 16) & 0xff
	c2 := (bgr2 >> 16) & 0xff
	if (abs(c1 - c2) > variation)
		return false
	return true
}
;-----------------------------------------------------------------------------------------------------
listAdd( byRef list, item, del="," ) {
  list:=( list!="" ? ( list . del . item ) : item )
  return list
}
;-----------------------------------------------------------------------------------------------------
listDelItem( byRef list, item, del=",") {
  ifEqual, item,, return list
  list:=del . list . del
  StringReplace, list, list, %item%%del%
  StringTrimLeft, list, list, 1
  StringTrimRight, list, list, 1
  return list
}
;-----------------------------------------------------------------------------------------------------
movetolist(winid,time)
{
global tablequeue
listAdd(tablequeue, winid . "-" . time)
}
return
;-----------------------------------------------------------------------------------------------------
removefromlist(winid)
{
global tablequeue
Loop, Parse, tablequeue, `,
{
if InStr(A_loopfield,winid)
listDelItem(tablequeue, A_Loopfield)
}
}
return
;-----------------------------------------------------------------------------------------------------
SetAffinity(pid, cpu=1)
{
  h := DllCall("OpenProcess", "UInt", 0x1F0FFF, "Int", false, "UInt", pid)
  DllCall("SetProcessAffinityMask", "UInt", h, "UInt", cpu)
  DllCall("CloseHandle", "UInt" h)
  return
}
;-----------------------------------------------------------------------------------------------------
Toggledealmein:
If (dealmein=true) {
	dealmein:=false
	T=Off
}
else {
	dealmein:=true
	T=On
}
Gui, 2:Add, Text,, Auto Deal me in: %T%
Gui, 2:+ToolWindow
Gui, 2:Show, w150 h20
Sleep, 1000
Gui, 2:Destroy
return
;-----------------------------------------------------------------------------------------------------
Joinwaitlist:
winget,listft,list,Logged In ahk_class QWidget,,Full Tilt
loop %listft%
{
id:=listft%A_index%
t:=PixelColorA(join_x,back_y,back_x,join_y,join_x1,id,1)
stringsplit,st,t,*
stringsplit,col,st1,-
if (CompareColors(col1,back1,v1)=false) & (CompareColors(col1,back2,v1)=false)
if !instr(st2,"16777215") & !instr(st2,"67284200") & !instr(st2,"111670350") & !instr(st2,"148766710")
PostclickFT(back_x,back_y,id,0)
}
return
;-----------------------------------------------------------------------------------------------------
Unjoinwaitlist:
winget,listft,list,Logged In ahk_class QWidget,,Full Tilt
loop %listft%
{
id:=listft%A_index%
t:=PixelColorA(join_x,back_y,join_x1,join_y,join_x1,id,1)
stringsplit,st,t,*
stringsplit,col,st1,-
if (CompareColors(col1,back1,v1)=false) & (CompareColors(col1,back2,v1)=false)
if instr(st2,"16777215")  or instr(st2,"67284200") or instr(st2,"111670350") or instr(st2,"148766710")
PostclickFT(back_x,back_y,id,0)
}
return
;-----------------------------------------------------------------------------------------------------
BuildGui:
Gui, color, white
Gui, font, cOlive
Gui, add, tab, h200 w240, General
Gui, Tab, General
Gui, add, Text, w200 y45 x15, Time delay for pressing Time button 
Gui, add, DropDownList, w50 y40 x190  vInterval1, %ddlist%
Gui, add, text, y65 x15, Click "Deal me in" automatically 
Gui, add, Checkbox, y65 x170 Checked%dealmein% Vdealmein
Gui, Add, Text, x15 y85 w120 h20 , Toggle Deal me in
Gui, Add, Edit, x180 y82 w50 h20 vToggledealmein, %Toggledealmein%
Gui, Add, Text, x15 y110 ,Join waiting list on all tables
Gui, Add, Edit, x180 y107 w50 h20 vjoinwaitlist, %joinwaitlist%
Gui, Add, Text, x15 y135 ,Unjoin waiting list on all tables
Gui, Add, Edit, x180 y132 w50 h20 vunjoinwaitlist, %unjoinwaitlist%

Gui, Add, Button, x75 y165 w55 h20 gSave,Submit
Gui, Add, Button, x135 y165 w55 h20 gCancel,Cancel
Gosub, GetIni
Gui, show, w256, %thisahk%
Return
;-----------------------------------------------------------------------------------------------------
GetIni:
IfNotExist, %thisahk%.ini
gosub, CreateIni
IniRead, Interval1, %thisahk%.ini, Settings, Interval1
StringReplace, ddlist, ddlist, %interval1%, %Interval1%|
GuiControl, , Interval1, |%ddlist%
StringReplace, ddlist, ddlist, %interval1%|, %Interval1%
IniRead, flicker1, %thisahk%.ini, Settings, flicker1, 0
IniRead, flicker2, %thisahk%.ini, Settings, flicker2, 0
IniRead, dealmein, %thisahk%.ini, Settings, dealmein, 0
IniRead, joinwaitlist, %thisahk%.ini, Settings, joinwaitlist,%A_Space%
IniRead, Unjoinwaitlist, %thisahk%.ini, Settings, Unjoinwaitlist,%A_Space%
if register
Hotkey, %register%,register
if unregister
Hotkey, %unregister%,unregister
if joinwaitlist
Hotkey, %joinwaitlist%,joinwaitlist
if Unjoinwaitlist
Hotkey, %Unjoinwaitlist%,Unjoinwaitlist
IniRead, Toggledealmein, %thisahk%.ini, Settings, Toggledealmein,%A_Space%
If Toggledealmein
{
HotKey, IfWinActive, ahk_class QWidget
Hotkey, %Toggledealmein%, Toggledealmein
}
Return
;-----------------------------------------------------------------------------------------------------
MakeIni:
IniWrite, %Interval1%, %thisahk%.ini, Settings, Interval1
IniWrite, %flicker1%, %thisahk%.ini, Settings, flicker1
IniWrite, %flicker2%, %thisahk%.ini, Settings, flicker2
IniWrite, %dealmein%, %thisahk%.ini, Settings, dealmein
if joinwaitlist
IniWrite, %joinwaitlist%, %thisahk%.ini, Settings, joinwaitlist
if Unjoinwaitlist
IniWrite, %Unjoinwaitlist%, %thisahk%.ini, Settings, Unjoinwaitlist
if Toggledealmein
IniWrite, %Toggledealmein%, %thisahk%.ini, Settings, Toggledealmein
Return
;-----------------------------------------------------------------------------------------------------
CreateIni:
flicker1:=true
flicker2:=false
Interval1:=1
dealmein:=1
gosub, MakeIni
return
;-----------------------------------------------------------------------------------------------------
GuiClose:
gosub, cancel
return
;-----------------------------------------------------------------------------------------------------
menuGui:
gosub, getini
gosub, buildgui
Gui, Submit,nohide
return
;-----------------------------------------------------------------------------------------------------
reload:
reload
return
;-----------------------------------------------------------------------------------------------------
Save:
Gui, Submit
FileDelete, %thisahk%.ini
gosub, MakeIni
Reload
return
;-----------------------------------------------------------------------------------------------------
Cancel:
Gui, Destroy
Return
;-----------------------------------------------------------------------------------------------------
exitSub:
if flicker1
{
Process, Exist, FullTiltPoker.exe
if (ErrorLevel)
{
  FTP := ErrorLevel
  Process, Priority, %FTP%, Normal
;  SetAffinity(FTP)
}
}
FileDelete, %thisahk%.ini
gosub, makeini
exitApp
return
;-----------------------------------------------------------------------------------------------------
Max1mums is offline   Reply With Quote
Old 11-24-2010, 08:35 AM   #86
variatsioon
grinder
 
variatsioon's Avatar
 
Join Date: Nov 2008
Posts: 669
Re: Full Tilt Timebank Clicker Tool (Stacked): Free

will it work for FTP overlapped atm?

and where i can download it?
variatsioon is offline   Reply With Quote

Reply
      

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off


Forum Jump


All times are GMT -4. The time now is 10:08 PM.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright © 2008-2010, Two Plus Two Interactive
 
Poker Players - Streaming Live Online