#1
|
|||
|
|||
ipoker reload script?
topic says all. anyone got one?
|
#2
|
|||
|
|||
Re: ipoker reload script?
im currently workin on a auto reloader, the first few functions are working, if somebody want to help, youre welcome.
<font class="small">Code:</font><hr /><pre> #NoEnv SendMode Input #Persistent #SingleInstance, Force SetTitleMatchMode, 2 GroupAdd, TitanTables, Texas SetTimer, Main, 1000 tables := "" SysGet, border, 32 SysGet, caption, 4 return getScreenname() { global hero SetTitleMatchMode 2 WinGet, id, id, Titan Poker: WinGetTitle, hero, ahk_id%id% StringTrimLeft, hero, hero, 23 StringLen, length, hero StringGetPos, pos, hero, | StringTrimRight, hero, hero, length - pos +1 } getTables() { global tables global level tables := "" level := "" SetTitleMatchMode 2 WinGet, id, id, Titan Poker: WinGet, pid, PID, ahk_id%id% WinGet, list, list, - Texas Hold ahk_pid%pid% Loop %list% { this_id := list%a_index% WinGetTitle, title, ahk_id%this_id% If (this_id != id) { StringGetPos, pos, title, : StringTrimLeft, title, title, pos + 2 StringLen, length, title StringGetPos, pos, title, / StringTrimLeft, bb, title, pos + 2 StringGetPos, pos, title, - StringTrimRight, title, title, length - pos + 1 tables = %tables%%title%`n level = %level%%bb%`n } } MsgBox %level% MsgBox %tables% } getHHnames() { global FileList FileList = Loop, C:\Dokumente und Einstellungen\Toasta\Desktop\Reload Projekt\*.xml ; Path to the HHs ( C:\Poker\Titan Poker\History\TTRXXXXXXXX\Table\*.xml ) FileList = %FileList%%A_LoopFileName%`n Sort, FileList Loop, parse, FileList, `n { if A_LoopField = continue ;MsgBox, 4,, File number %A_Index% is %A_LoopField%. Continue? } ;MsgBox Handhistorieliste : %FileList% } getStack(ByRef hhn, ByRef aushhstack, ByRef aushhtable) { global hero Path := "C:\Dokumente und Einstellungen\Toasta\Desktop\Reload Projekt\" ;Path to the HHs ( C:\Poker\Titan Poker\History\TTRXXXXXXXX\Table\ ) FileName = %Path%%hhn% FileReadLine, tablename, %Filename%, 5 StringGetPos, pos, tablename, > StringTrimLeft, tablename, tablename, pos + 1 StringLen, length, tablename StringGetPos, pos, tablename, < StringTrimRight, tablename, tablename, length-pos diff := 2500 FileGetSize, newLen, %Filename% GENERIC_READ = 0x80000000 OPEN_EXISTING = 3 FILE_SHARE_READ = 0x1 FILE_SHARE_WRITE = 0x2 FILE_BEGIN := 0 hFile := DllCall("CreateFile", str, FileName, UInt, GENERIC_READ, UInt, FILE_SHARE_READ|FILE_SHARE_WRITE, UInt, 0, UInt, OPEN_EXISTING, Uint, 0, UInt, 0) BytesToRead := VarSetCapacity(String, diff) DllCall("SetFilePointerEx", UInt, hFile, ULong, newLen-diff, ULong, 0, UInt, FILE_BEGIN) DllCall("ReadFile", UInt, hFile, str, String, UInt, BytesToRead, UIntP, BytesRead, UInt, 0) DllCall("CloseHandle", UInt, hFile) screenname = %hero% StringLen, length, screenname stringsearch = name="%screenname%" StringGetPos, pos, String, %stringsearch% StringTrimLeft, String, String, pos + 16 + length StringLen, length, String StringGetPos, pos, String, " StringTrimRight, String, String, length-pos aushhstack = %String% aushhtable = %tablename% ;MsgBox Single HHN : %hhn% ;MsgBox Stackaushh : %String% ;MsgBox Tischnameaushh : %tablename% } assignhhnametable() { global FileList global FHN global FHS global FHTN FHN = FHS = FHTN = Loop, parse, FileList, `n { if A_LoopField = continue hhn = %A_LoopField% getstack(hhn,aushhstack,aushhtable) FHN = %FHN%%hhn%`n FHS = %FHS%%aushhstack%`n FHTN = %FHTN%%aushhtable%`n } MsgBox %FHN% MsgBox %FHS% MsgBox %FHTN% } Main: getScreenname() getTables() getHHnames() assignhhnametable() ;compare() return </pre><hr /> |
#3
|
|||
|
|||
Re: ipoker reload script?
lovely to see somebody workin' on it. and i would like to help you. but i don't understand how to write scripts [img]/images/graemlins/frown.gif[/img]
|
#4
|
|||
|
|||
Re: ipoker reload script?
PokerPad has a reload hotkey. It does not auto-reload when you hit 0 though.
|
#5
|
|||
|
|||
Re: ipoker reload script?
push
|
|
|