|
|
#2
07-15-2005, 07:27 AM
|
|||
|
|||
Re: Program for putting big red circle around active window?
[ QUOTE ]
Program for putting big red circle around active window? [/ QUOTE ]You can change the border of the active window in the "Advanced" section of the "Appearance" tab in the "Display Properties" control panel. You can have the active window display a huge red border around it, while the rest of the windows have (huge) black borders. -Sam 
|
|
#3
07-15-2005, 09:24 AM
|
|||
|
|||
|
Re: Program for putting big red circle around active window?
Here's the code you wanted, this one is for Empire. You just need to have a file called circle.bmp (you can change this in the code) in the same folder.
<font class="small">Code:</font><hr /><pre>#singleinstance, force #winactivateforce setTitleMatchMode,2 windowsearchterm = Hold'em InputBox, windowsearchterm,Window name?,Please enter a word common to all the windows you wish to access:,,,,,,,5,Hold'em setTimer,GetWindowIDs, 1000 sleep,1000 gui, color, FFFFFF gui, add, picture, backgroundtrans, circle.bmp gui,show, gui, +lastfound +alwaysontop +toolwindow winset, transcolor,FFFFFF gui, -caption WinGetPos, firstX,firstY,,,ahk_id %table1% newX := firstX - 10 newY := firstY - 17 gui +lastfound WinMove, %newX%, %newY% winCounter = 1 increment = 1 ; this is to suspend the hotkeys, so you can type normally/browse web/etc ; note: ! = alt, ^ = ctrl.. so !t = alt+t !t:: Suspend, Toggle ; Q W E R are used to switch to the 8 tables here.. 1 2 3 4 ; A S D F 5 6 7 8 ; To change which key (or combo of keys) brings up each table, just ; change the hotkey names below.. ex: changing q:: to z:: will make ; the z key do what the q key was doing. q:: WinCounter = 1 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return w:: WinCounter = 2 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return e:: WinCounter = 3 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return r:: WinCounter = 4 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return a:: WinCounter = 5 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return s:: WinCounter = 6 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return d:: WinCounter = 7 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return f:: WinCounter = 8 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return ;Fold Numpad0:: MouseClick, left, 240, 485 ;Location of the fold button return ;Check/Call NumpadDot:: MouseClick, left, 400, 485 ;Location of the check/call button return ;Bet 1x Big Blind Numpad1:: MouseClick, left, 400, 485 ;Same as check/call button return ;Bet 2x Big Blind Numpad2:: ControlSetText,Edit2,0.50,A MouseClick, left, 560, 480 return ;Bet 3x Big Blind Numpad3:: ControlSetText,Edit2,0.75,A MouseClick, left, 560, 480 return ;Bet 4x Big Blind Numpad4:: ControlSetText,Edit2,1,A MouseClick, left, 560, 480 return ;Bet 5x Big Blind Numpad5:: ControlSetText,Edit2,1.25,A MouseClick, left, 560, 480 return ;Bet 6x Big Blind Numpad6:: ControlSetText,Edit2,1.50,A MouseClick, left, 560, 480 return ;Bet 7x Big Blind Numpad7:: ControlSetText,Edit2,1.75,A MouseClick, left, 560, 480 return ;Bet 8x Big Blind Numpad8:: ControlSetText,Edit2,2,A MouseClick, left, 560, 480 return ;Bet 9x Big Blind Numpad9:: ControlSetText,Edit2,2.25,A MouseClick, left, 560, 480 return ;Raise bet by 1x Big Blind NumpadAdd:: ControlGetText,CurrentBet,Edit2,A NewBet := (CurrentBet + 0.25) ControlSetText,Edit2,%NewBet%,A return ;Lower bet by 1x Big Blind NumpadSub:: ControlGetText,CurrentLesserBet,Edit2,A NewLesserBet := (CurrentLesserBet - 0.25) ControlSetText,Edit2,%NewLesserBet%,A return ;Presses raise button after you set amount to confirm bet NumpadEnter:: MouseClick, left, 560, 480 return ;Press 1 to put check mark on fold button 1::MouseClick,left,178,470 return ;Press 2 to put check mark on check/fold button 2::MouseClick,left,178,500 return ;press 3 to put check mark on check button 3::MouseClick,left,337,474 return ;Press 4 to put check mark on Call Big Blind button 4::MouseClick,left,340,500 return ;press 5 to put check mark on Bet Pot button 5::MouseClick,left,509,472 return ;press 6 to check off auto post 6::MouseClick,left,15,530 return ;press 7 to check off deal me out 7::MouseClick,left,15,570 return GetWindowIDs: setTitleMatchMode,2 WinGet, tableIDs, list, %windowsearchterm% topcounter = 0 bottomcounter = 0 Loop, %tableIDs% { thisID := tableIDs%a_index% WinGetPos,thisX,thisY,,,ahk_id %thisID% if thisY < 300 { topcounter += 1 topWindow%topcounter% = %thisID% topWindowX%topcounter% = %thisX% topWindowY%topcounter% = %thisY% } else { bottomcounter += 1 botWindow%bottomcounter% = %thisID% botWindowX%bottomcounter% = %thisX% botWindowY%bottomcounter% = %thisY% } } i = 1 outercounter := topcounter - 1 Loop, %outercounter% { j := i + 1 innercounter := topcounter - i Loop, %innercounter% { xBase := topWindowX%i% if topWindowx%j% < %xbase% { temp := topWindowx%i% topWindowx%i% := topWindowx%j% topWindowx%j% := temp temp := topWindowy%i% topWindowy%i% := topWindowy%j% topWindowy%j% := temp temp := topWindow%i% topWindow%i% := topWindow%j% topWindow%j% := temp } j += 1 } table%i% := topWindow%i% i += 1 } table%topcounter% := topWindow%topcounter% i = 1 outercounter := bottomcounter - 1 Loop, %outercounter% { j := i + 1 innercounter := bottomcounter - i Loop, %innercounter% { xBase := botWindowX%i% if botWindowx%j% < %xbase% { temp := botWindowx%i% botWindowx%i% := botWindowx%j% botWindowx%j% := temp temp := botWindowy%i% botWindowy%i% := botWindowy%j% botWindowy%j% := temp temp := botWindow%i% botWindow%i% := botWindow%j% botWindow%j% := temp } j += 1 } tableNum := topcounter + i table%tablenum% := botWindow%i% i += 1 } if bottomcounter > 0 table%tableIDs% := botWindow%bottomcounter% return </pre><hr />
|
|
#4
07-15-2005, 08:07 PM
|
|||
|
|||
|
Re: Program for putting big red circle around active window?
Thanks Jarek. Although I think I will need a little bit more help since I am puter noob. First off:
This does appear to be an autohotkey script for no limit, right? Will the buttons work for a strictly limit player? Where do I get the circle.bmp file? Do I put the circle.bmp file in the same folder as the AH script? Using a 2001FP I will put 1 table in each screen corner and then use keyboard keys Q = upper left, W = upper right, A = lower left, S = lower right to highlight the corresponding corner? If I had two screens I would use the additional keys E,R,D,F? I would like to use a compact keyboard that does not have a numpad on the right for limit holdem. Would I use the number keys above the letters to check the boxes on the active window as follows: 1 fold, 2 check/fold, 3 check, 6 autopost, 7 deal me out? What would be the raise button in limit? Thanks
|
|
#5
07-15-2005, 09:54 PM
|
|||
|
|||
|
Re: Program for putting big red circle around active window?
Sorry I posted an older script. Here's a more updated one, instructions inside it also.
Answering your questions. 1. Yes it's an autohotkey script, just copy this and paste it into notepad and save as an .ahk. 2. This redone script works equally for limit and not limit. Only diffrence is that you'll be able to increase and decrease your bet size in no limit play with the + and - keys on the numpad. 3. Circle.bmp you'll have to find yourself or make. Just open up photoshop or Gimp (free opensource program that's similar to ps) or just use mspaint and make yourself a big circle and save it. 4. Yes you put the picture in the same folder as the ahk script. 5. The switching keys just activate windows in order. If you have 4 up they will be activated by q,w,e,r the next four by a,s,d,f. Just put a ; infront of the letters you don't want to use so if you 4 table you can use q,w,a,s. 6. Read above 7. You can change the keys to what you want in the script, not difficult. Here's a link to all the keys that ahk supports. <font class="small">Code:</font><hr /><pre>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;; ; This script will allow you to use the numpad for betting ; actions while playing any of Party Skins. Directly ; below is a section of code that will allow you to switch from ; one window to another using qwer for the top row and asdf for ; the bottom. Directly below that is a section that will controll ; 6 buttons that have a check mark for them. Depening on the action ; ahead of you these buttons can be the fold, check/fold, check/call, ; raise, raise any...and so forth. The way I've set it up is as such ; 4 5 6 ; 1 2 3 ; So 4-6 would be the top row of buttons and 1-3 the bottom row ; ; These can also be used when the action is at you. So you can press ; 1 or 4 to fold, 5 or 2 to check/call, 6 or 3 to raise. ; 7 is used to check off the Auto Post box and 9 to check off the ; Sit out box. Also the + and - keys will increase the bet by one ; unit if you play NL. Press enter on the keypad to confirm bet. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;; #singleinstance, force #winactivateforce setTitleMatchMode,2 windowsearchterm = Hold'em ;InputBox, windowsearchterm,Window name?,Please enter a word common to all the windows you wish to access:,,,,,,,5,Hold'em setTimer,GetWindowIDs, 1000 sleep,1000 gui, color, FFFFFF gui, add, picture, backgroundtrans, circle.gif gui,show, gui, +lastfound +alwaysontop +toolwindow winset, transcolor,FFFFFF gui, -caption WinGetPos, firstX,firstY,,,ahk_id %table1% newX := firstX - 10 newY := firstY - 17 gui +lastfound WinMove, %newX%, %newY% winCounter = 1 increment = 1 ; this is to suspend the hotkeys, so you can type normally/browse web/etc ; note: ! = alt, ^ = ctrl.. so !t = alt+t !t:: Suspend, Toggle ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;; ; Q W E R are used to switch to the 8 tables here.. 1 2 3 4 ; A S D F 5 6 7 8 ; To change which key (or combo of keys) brings up each table, just ; change the hotkey names below.. ex: changing q:: to z:: will make ; the z key do what the q key was doing. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;; q:: WinCounter = 1 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return w:: WinCounter = 2 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return e:: WinCounter = 3 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return r:: WinCounter = 4 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return a:: WinCounter = 5 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return s:: WinCounter = 6 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return d:: WinCounter = 7 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return f:: WinCounter = 8 circledWindow := table%winCounter% WinActivate, ahk_id %circledWindow% WinGetPos,circledWindowX,circledWindowY,,,ahk_id %circledWindow% newX := circledWindowX - 10 newY := circledWindowY - 17 gui +lastfound WinMove, %newX%, %newY% circledActive = true return ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;; ; This is the section where you can change the keys used for ; betting/checking off boxes. Also if you play NL change the value of ; the big blind in this section ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;; ;Raise bet by 1x Big Blind NumpadAdd:: ControlGetText,CurrentBet,Edit2,A NewBet := (CurrentBet + 0.25) ControlSetText,Edit2,%NewBet%,A return ;Lower bet by 1x Big Blind NumpadSub:: ControlGetText,CurrentLesserBet,Edit2,A NewLesserBet := (CurrentLesserBet - 0.25) ControlSetText,Edit2,%NewLesserBet%,A return ;Presses raise button after you set amount to confirm bet NumpadEnter:: MouseClick, left, 555, 480 return ;Press 4 to check Top-Left button NumPad4::MouseClick,left,225,470 return ;Press 1 to check Bottom-Left button Numpad1::MouseClick,left,225,500 return ;press 5 to check Top-Middle button Numpad5::MouseClick,left,385,470 return ;Press 2 to check Bottom-Middle button Numpad2::MouseClick,left,385,500 return ;Press 6 to check Top-Right button Numpad6::MouseClick,left,555,470 return ;press 3 to check Bottom-Right button Numpad3::Mouseclick,left,555,500 return ;press 7 to check Auto Post box Numpad7::MouseClick,left,15,535 return ;press 9 to check Sit Out Next Hand box Numpad9::MouseClick,left,15,570 return GetWindowIDs: setTitleMatchMode,2 WinGet, tableIDs, list, %windowsearchterm% topcounter = 0 bottomcounter = 0 Loop, %tableIDs% { thisID := tableIDs%a_index% WinGetPos,thisX,thisY,,,ahk_id %thisID% if thisY < 300 { topcounter += 1 topWindow%topcounter% = %thisID% topWindowX%topcounter% = %thisX% topWindowY%topcounter% = %thisY% } else { bottomcounter += 1 botWindow%bottomcounter% = %thisID% botWindowX%bottomcounter% = %thisX% botWindowY%bottomcounter% = %thisY% } } i = 1 outercounter := topcounter - 1 Loop, %outercounter% { j := i + 1 innercounter := topcounter - i Loop, %innercounter% { xBase := topWindowX%i% if topWindowx%j% < %xbase% { temp := topWindowx%i% topWindowx%i% := topWindowx%j% topWindowx%j% := temp temp := topWindowy%i% topWindowy%i% := topWindowy%j% topWindowy%j% := temp temp := topWindow%i% topWindow%i% := topWindow%j% topWindow%j% := temp } j += 1 } table%i% := topWindow%i% i += 1 } table%topcounter% := topWindow%topcounter% i = 1 outercounter := bottomcounter - 1 Loop, %outercounter% { j := i + 1 innercounter := bottomcounter - i Loop, %innercounter% { xBase := botWindowX%i% if botWindowx%j% < %xbase% { temp := botWindowx%i% botWindowx%i% := botWindowx%j% botWindowx%j% := temp temp := botWindowy%i% botWindowy%i% := botWindowy%j% botWindowy%j% := temp temp := botWindow%i% botWindow%i% := botWindow%j% botWindow%j% := temp } j += 1 } tableNum := topcounter + i table%tablenum% := botWindow%i% i += 1 } if bottomcounter > 0 table%tableIDs% := botWindow%bottomcounter% return </pre><hr />
|
|
#6
07-15-2005, 11:00 PM
|
|||
|
|||
|
Re: Program for putting big red circle around active window?
I tried copying this to notepad, but it didn't keep any of the new line info. I just got one big long mess. Is this available anywhere else? If not, would you mind emailing it to me as a .txt or .ahk file if I PM you my address?
|
|
#7
07-15-2005, 11:26 PM
|
|||
|
|||
|
Re: Program for putting big red circle around active window?
|
|
#8
07-16-2005, 04:21 PM
|
|||
|
|||
|
Re: Program for putting big red circle around active window?
[ QUOTE ]
[ QUOTE ] Program for putting big red circle around active window? [/ QUOTE ]You can change the border of the active window in the "Advanced" section of the "Appearance" tab in the "Display Properties" control panel. You can have the active window display a huge red border around it, while the rest of the windows have (huge) black borders. -Sam [/ QUOTE ] I did this expecting it to have some affect on poker tables, but the red only seems to appear when I minimize or maximize a table. When I have an active poekr table, it's still the same flashing of two different shades of gray.
|
|
#10
07-17-2005, 07:43 PM
|
|||
|
|||
|
Re: Program for putting big red circle around active window?
[ QUOTE ]
Here you go PartySkins I think you should be able to just right click on the link and save as. [/ QUOTE ] Thanks. I'll give it a shot next time I play.
|
 |
|
|
Linear Mode
