A fatal case of saponated cresol ingestion.
Kinoshita H, Fuke C, Kubota A, Nishiguchi M, Ouchi H, Minami T, Matsui K, Yamamura T, Motomura H, Yoshinaga K, Marukawa S, Hishida S.
Source
Department of Legal Medicine and Emergency, Critical Care and Disaster Medicine, Hyogo College of Medicine, 1-1, Mukogawa-cho, Nishinomiya, Hyogo 663-8501, Japan. kinochin@hyo-med.ac.jp
Abstract
We describe here a case of suicidal poisoning by saponated cresol ingestion. A 41 year-old male was found unconsciousness in a park in the early morning, and an empty bottle of saponated cresol was found beside him. His death was confirmed approximately 2 hours later, despite attempts at resuscitation and intensive care. The autopsy revealed severe morphological damage of the upper gastrointestinal tract and congestion of the lung. We also observed by histopathological examination severe lung edema and severe erosion of the esophagus and stomach. Toxicological analysis also identified a high concentration of cresol isomer in the blood and gastric contents. The cause of death was given as cresol poisoning, based on the results of the autopsy and toxicological examination.
PMID:
16948448
[PubMed - indexed for MEDLINE]
Samstag, 30. Juli 2011
Mittwoch, 27. Juli 2011
Fiat Money come to Zero, or A Thousand Pictures Is Worth One Word
A Thousand Pictures Is Worth One Word
In spite of constant headlines about debts and deficits, most Americans don’t really believe the U.S. dollar will collapse. From knowledgeable investors who study the markets to those seemingly too busy to worry about such things, most dismiss the idea of the dollar actually going to zero.
History has a message for us: No fiat currency has lasted forever. Eventually, they all fail.
BMG BullionBars recently published a poster featuring pictures of numerous currencies that have gone bust. Some got there quickly, while others took a century or more. Regardless of how long it took, though, the seductive temptations allowed under a fiat monetary system eventually caught up with these governments, and their currencies went poof!
You might suspect this happened only to third world countries. You’d be wrong. There was no discrimination as to the size or perceived stability of a nation’s economy; if the leaders abused their currency, the country paid the price.
As you scroll through the currencies below, you’ll see some long-ago casualties. What’s shocking, though, is how many have occurred in our lifetime. You might count how many currencies have failed since you’ve been born.
So what’s the one word for the “thousand pictures” below? Worthless.
Yugoslavia – 10 billion dinar, 1993
Zaire – 5 million zaires, 1992
Venezuela – 10,000 bolívares, 2002
Ukraine – 10,000 karbovantsiv, 1995
Turkey – 5 million lira, 1997
Russia – 10,000 rubles, 1992
Romania – 50,000 lei, 2001
Central Bank of China – 10,000 CGU, 1947
Peru – 100,000 intis, 1989
Nicaragua – 10 million córdobas, 1990
Hungary – 10 million pengo, 1945
Greece – 25,000 drachmas, 1943
Germany – 1 billion mark, 1923
Georgia – 1 million laris, 1994
France – 5 livres, 1793
Chile – 10,000 pesos, 1975
Brazil – 500 cruzeiros reais, 1993
Bosnia – 100 million dinar, 1993
Bolivia – 5 million pesos bolivianos, 1985
Belarus – 100,000 rubles, 1996
Argentina – 10,000 pesos argentinos, 1985
Angola – 500,000 kwanzas reajustados, 1995
Zimbabwe – 100 trillion dollars, 2006
So, will a similar fate befall the U.S. dollar? The common denominator that led to the downfall of each currency above was the two big Ds: Debts and Deficits.With that in mind, consider the following:
Morgan Stanley reported in 2009 that there’s “no historical precedent” for an economy that exceeds a 250% debt-to-GDP ratio without experiencing some sort of financial crisis or high inflation. Our total debt now exceeds GDP by roughly 400%.
Investment legend Marc Faber reports that once a country’s payments on debt exceed 30% of tax revenue, the currency is “done for.” On our current path, analyst Michael Murphy projects we’ll hit that figure by October.
Peter Bernholz, the leading expert on hyperinflation, states unequivocally that “hyperinflation is caused by government budget deficits.” This year’s U.S. budget deficit will end up being $1.5 trillion, an amount never before seen in history.
Since the Federal Reserve’s creation in 1913, the dollar has lost 95% of its purchasing power. Our government leaders clearly don’t know how – or don’t wish – to keep the currency strong.
Whether the dollar goes to zero or merely becomes a second-class currency in the global arena, the possibility of the greenback being added to the above list grows every day. And this will lead to serious and painful consequences in our standard of living. While money is only one of many problems we’ll have to deal with, you can protect your assets with the one currency that can’t be debased, devalued, or destroyed by irresponsible leaders.Don’t be the investor who dismisses this message from history. Use gold (and silver) as your savings vehicle. Any excuse you have now will be meaningless and irrelevant when we enter that fateful period. Make sure you own enough precious metals to make a difference in your portfolio.
Because when it comes to money, worthless is not a fun word.
Famous Quotes about Fiat Money
Famous Quotes about Fiat Money
“The problem with fiat money is that it rewards the minority that can handle money, but fools the generation that has worked and saved money.”
- Adam Smith
“At the end fiat money returns to its inner value—zero.”
- Voltaire
“If the American people ever allow private banks to control the issuance of their currency, first by inflation and then by deflation, the banks and corporations that will grow up around them will deprive the people of all their property until their children will wake up homeless on the continent their fathers conquered.”
- Thomas Jefferson
“The money power preys upon the nation in times of peace and conspires against it in times of adversity. It is more despotic than monarchy, more insolent than autocracy, more selfish than bureaucracy.”
- Abraham Lincoln
“Give me control of a nation’s money and I care not who makes the laws.”
- Amschel Rothschild
“I am a most unhappy man. I have unwittingly ruined my country. A great industrial nation is controlled by its system of credit. Our system of credit is concentrated. The growth of the nation, therefore, and all our activities are in the hands of a few men. No longer a government by free opinion, no longer a government by conviction and vote of majority, but a government by the opinion and duress of a small group of dominant men.”
- President Woodrow Wilson (regretting signing into law the Federal Reserve Act)
“It is well enough that people of the nation do not understand our banking and monetary system, for if they did, I believe there would be a revolution before morning.”
- Henry Ford
“By this means (fractional reserve banking) government may secretly and unobserved, confiscate the wealth of the people, and not one man in a million will detect the theft.”
- John Maynard Keynes, The Economic Consequences of the Peace (1920)
“The modern banking process manufactures currency out of nothing. The process is perhaps the most astounding piece of slight hand that was ever invented…If you want to be slaves of the bankers, and pay the cost of your own slavery, then let the banks create currency”.
- Lord Josiah Stemp, Former Director of the Bank of England (1937)
“If the governments devalue the currency in order to betray all creditors, you politely call this procedure “inflation.”
- George Bernard Shaw
“In the absence of the gold standard, there is no way to protect savings from confiscation through inflation […] Deficit spending is simply a scheme for the “hidden” confiscation of wealth. Gold stands in the way of this insidious process. It stands as a protector of property rights.”
- Alan Greenspan, Gold and Economic Freedom (1968)
“The problem with fiat money is that it rewards the minority that can handle money, but fools the generation that has worked and saved money.”
- Adam Smith
“At the end fiat money returns to its inner value—zero.”
- Voltaire
“If the American people ever allow private banks to control the issuance of their currency, first by inflation and then by deflation, the banks and corporations that will grow up around them will deprive the people of all their property until their children will wake up homeless on the continent their fathers conquered.”
- Thomas Jefferson
“The money power preys upon the nation in times of peace and conspires against it in times of adversity. It is more despotic than monarchy, more insolent than autocracy, more selfish than bureaucracy.”
- Abraham Lincoln
“Give me control of a nation’s money and I care not who makes the laws.”
- Amschel Rothschild
“I am a most unhappy man. I have unwittingly ruined my country. A great industrial nation is controlled by its system of credit. Our system of credit is concentrated. The growth of the nation, therefore, and all our activities are in the hands of a few men. No longer a government by free opinion, no longer a government by conviction and vote of majority, but a government by the opinion and duress of a small group of dominant men.”
- President Woodrow Wilson (regretting signing into law the Federal Reserve Act)
“It is well enough that people of the nation do not understand our banking and monetary system, for if they did, I believe there would be a revolution before morning.”
- Henry Ford
“By this means (fractional reserve banking) government may secretly and unobserved, confiscate the wealth of the people, and not one man in a million will detect the theft.”
- John Maynard Keynes, The Economic Consequences of the Peace (1920)
“The modern banking process manufactures currency out of nothing. The process is perhaps the most astounding piece of slight hand that was ever invented…If you want to be slaves of the bankers, and pay the cost of your own slavery, then let the banks create currency”.
- Lord Josiah Stemp, Former Director of the Bank of England (1937)
“If the governments devalue the currency in order to betray all creditors, you politely call this procedure “inflation.”
- George Bernard Shaw
“In the absence of the gold standard, there is no way to protect savings from confiscation through inflation […] Deficit spending is simply a scheme for the “hidden” confiscation of wealth. Gold stands in the way of this insidious process. It stands as a protector of property rights.”
- Alan Greenspan, Gold and Economic Freedom (1968)
Montag, 25. Juli 2011
Niman Kenkre NimanKenkre about fiat currency
fiat currency
- By:
- NimanKenkre
- Dated:
- 11 Jun, 2011
As everyone knows, the United States economy is in a total shambles. However, what many people do not realize is that in the direction that we are headed, we could be in for a complete currency collapse. With the national debt getting close to 15 trillion dollars now, and being very close to the debt ceiling, the fact of the matter is that something has to be done - and we, as US citizens are going to pay the price for the economic irresponsiblity that our government has indulged in. I could talk about this forever, but I'd like to talk specifically about one (of many interrelated) aspects of the problem. That is the issue of our currency not being backed by anything, and being essentially a fiat currency. The implications of this could be disastrous.
Before I get into the teeth of this, let me give a poker analogy. If you go to a casino today, you exchange your cash for chips. You then use those chips not only to play poker, but if you wish, you can use them to pay for dinner at the casino, to pay for a massage at the table, to pay/tip for drinks, and basically to buy anything you want that is owned or operated by the casino. At the end of your stay in the casino, you can exchange your chips back for cash (at the same rate that you exchanged the cash for chips), leave the casino, and return to the rest of the world. You could also if you wish keep your chips, keeping them for your use for when you return to that casino next. The reason that this all works is that the chips in the casino - i.e. the casino currency - are backed by the United States dollar. In other words, the chips in the casino represent actual dollars. The actual chips are only a way of representing the amount of money that you are in possession of in a less bulky, easier-to-handle way. Because of this, you can exchange your chips for dollars and vice-versa without fear, and you can pay for anything (charged in dollars) with chips.
Now imagine for a minute that the casino decided to go off of the dollar standard. The chips are no longer backed by anything and are an independent entity. Now all of a sudden, the casino is in complete control. They can manufacture any number and monetary amount of chips that they choose to, since they no longer represent the dollar in a direct translation. Of course now, if the casinos manufacture and distribute more and more chips, the value of the actual chips in your possession go down accordingly. That is simple math - and the concept of inflation.
Meanwhile, as the valuation of the casino chips go down, and merchants realize that they can go down arbitrarily (as the casino decides to make more irrespective and independent of the actual US dollar), you will no longer be able to pay for a $5 drink with a $5 chip. They will insist that you pay with actual dollars, since the chip may not (probably will not) have the value that it is attempting to represent.
Of course, while this would cause some inconveniences and also some devaluation of your 'money', it can get worse. If the casino keep manufacturing chips indiscriminately, not only will the value of the chips drop so much that you and the other casino patrons(with outside currency - be that the dollar or anything else) will be hesitant to exchange it for chips (whose value will continue to decrease), but eventually if it gets bad enough, there will be a panic among all those people that have a large percentage of their money in casino chips. As a large number of people start realizing the arbitrary valuation of their currency, they will try to get rid of them for actual dollars. Eventually, no merchants will accept chips as payment, and if there is a run on the casino cage, people will not be able to get 'actual' money in exchange for their chips. Ultimately, the chips will be totally useless, and you won't even be able to get that $5 drink with a $5000 chip. In other words, the casino will have a currency collapse - caused by (a) their currency being taken off of the dollar standard; and (b) their indiscrimate inflation - manufacturing more and more chips to distribute.
While this may sound ridiculous to you guys, this is precisely what is happening in the United States today. The United States was on the gold standard until Nixon took the country off of it in 1971. That meant that the paper currency - the dollar - represented exactly an amount of gold that the owner was in possession of. The actual gold was kept in depositories, and the paper currency used for bartering could only represent the amount of gold that was in possession and ownership. As a result, there was absolutely minimal inflation (what little inflation there was was due to the mining of more gold), and the country functioned powerfully from an economic standpoint.
Now when the country was taken off of the gold standard, the government had the ability to arbitrarily print more and more money - and inflation became a problem. However, it did not get out of control until recently. Note that even in our casino example, if the casino took the chips off of the dollar standard, they could still function (albeit in a less stable steady-state) if they ran their establishment responsibly without getting out of hand with the manufacturing of more and more chips.
Since the economic collapse of 2008, the US government has done exactly that. They have irresponsibly printed more and more money in an attempt to ease the pain of the recession. They printed astounding amounts of money to generate the bailout, and now the whole quantitative easing is doing the same thing. Instead of healing a serious infection, they've been trying to put a band-aid on it and move on.
Well folks, it's getting very close to being time to pay the piper. The national debt is close to 15 TRILLION dollars now which is very close the debt ceiling (although that is a somewhat arbitrary number). That means that we are in for something really really bad. In the BEST case scenario, we are going to go through a period of hardship where the quality of life for everyone is going to go down. We won't have the luxuries that we've become accustomed to, and all of the residents of this country are going to deal with a slowly decreasing quality of life.
In worse (but very possible scenarios), the price of food, gas, etc will be such that the middle class will be decimated, and the poorer people will not be able to afford the basics needed for survival. That could in turn lead to a riotous state in which people are mugged, beaten, and murdered for their basic amenities.
Or in order to prevent that, the government may go totally ballistic with raising the taxes on the higher income contingent in order to plug the leak - which will ultimately remove all incentives for the best and brightest people to innovate and produce. Once you do that, there is really little or no hope for the country to persevere.
And in the case of a currency collapse, our dollars will mean nothing. In order to buy food, you will have to barter - either exchanging goods and services directly - or using actual precious metals (which have held their value as a currency primarily because of their rarity) in the form of gold and silver bars and coins.
Fiat currency - or currency that is not backed by anything has ALWAYS failed, and has often resulted in the demise of an empire or country. A few examples:
One of the first examples of the debasement of a currency was the denarius in Rome. At the beginning of the first century A.D., the denarius, Rome's coinage at the time was essentially pure silver. By 54 A.D. Emperor Nero started to devalue the currency in order to pay the bills and increase his own wealth. By around 100 A.D., the denarius' silver content was down to 85%. Emperors that succeeded Nero continued to devalue the currency (i.e. inflation) exactly as the current government has been doing here in the United States. By 218 A.D., the denarius was down to 43% silver. At the time of Rome's collapse, the denarius contained only 0.02% silver and virtually nobody accepted it as a medium of exchange or a store of value.
In the 11th century, a bank in the Szechuan province of China issued paper money in exchange for the iron coins. Initially, this was fine, but inflation started to take hold as the Chinese tried to "fabricate" more money to fund their ongoing war with the Mongols. Gengis Khan and the Mongols won this war, took over the currency, and continued the process of inflation, much as the Romans did with the denarius and as the United States is doing today with the dollar. Ultimately, this empire came crashing down as well. In the words of Marco Polo: "Population and trade had greatly increased, but the emissions of paper notes were suffered to largely outrun both. All the beneficial effects of a currency that is allowed to expand with a growth of population and trade were now turned into those evil effects that flow from a currency emitted in excess of such growth. These effects were not slow to develop themselves. The best families in the empire were ruined, a new set of men came into the control of public affairs, and the country became the scene of internecine warfare and confusion."
I could give a few more examples of currency collapses from a long time ago when countries used fiat money. France failed with Livres and Assignats when they lost 99% of their valuations and descended into a riotous state. And Weimar Germany was one of the greatest periods of hyperinflation that ever existed. The Treaty of Versailles was effectively a financial punishment placed on Germany to make reparations for World War I. The sums of money to be paid by Germany were ridiculous, and the only way that it could make repayment was by printing money indiscriminately. (again, EXACTLY as the US is doing now with their huge unpayable debt). Inflation got so bad in this period that German citizens were literally using stacks of marks to heat their furnaces! Or, if you want that expressed mathematically, in April of 1919, the exchange rate for the US dollar was 12 marks. In November of 1921, it was 263 marks. In January of 1923: 17000 marks. August 1923: 4.621 million marks. October of 1923, 25.26 billion marks. December 1923: 4.2 trillion marks.
There are more examples, but this post is getting long enough, and I want to give some examples of more recent currency collapses. Without getting into the amount of detail that I did in the previous paragraphs, I want to point out that fiat money, backed by nothing and eventually irresponsibly inflated crushed the currencies - and ultimately the lives of the denizens. Argentina went from having the eighth largest currency in the world to a cmoplete collapse. In 1992, Finland, Norway, and Italy had catastrophic currency collapses. In 1994, the Mexican peso fell through the floor and economic hardship and a dramatic decrease in quality of life spread through Mexico. The same thing happened to the Thai baht in 1997 and the Russian ruble in 1998 (I actually remember seeing pictures of Russians taking wheelbarrows full of money to the grocery store just to buy a quart of milk). At the present time, Zimbabwe, which once had the strongest currency in Africa and was the wealthiest country on the continent, has totally fallen apart. Mugabe's attempts at disrupting the free market (sound familiar?) and hyperinflation have created a nation that cannot even supply bread and clean water.
Guys, this problem is real and it is here NOW. The United States currency was at least tied into oil whereby anyone buying oil in the Middle East had to purchase it in US dollars. But now that oil is decoupling from the dollar, we are very dangerously close to having a purely fiat currency. And with the goverment trying to find quick fixes to every problem merely by inflating the currency - and ultimately reaching totally unpayable levels of debt, it is inevitable that we are going to enter a period of serious economic hardship. Let me say that again: it is inevitable that we are going to enter a period of serious economic hardship. It may be just a slow disintegration of our quality of life. It may be an absurd tax on the rich, ultimately causing the best and brightest producers to leave and/or stop producing. It may be a riotous state, where it is dangerous to be out on the street. Fiat currency has ALWAYS failed - and its failure has always been expedited when the respective governments have accelerated the printing of more money. Please do not underestimate the problem.
Sonntag, 17. Juli 2011
Poker Stars AHK Script vom 12.Aprill 2011
;StarsHotkeys V1.008.1a
;added border by merging portions of TableNavigator - thanks to Wickss + Original Authors of TableNavigator - CheeseMoney
; #SingleInstance ignore
#SingleInstance, force ; changed by CheeseMoney - allows script to be reloaded
#NoEnv
#Persistent
SetTitleMatchMode RegEx
;#Include NextWindow.ahk
SysGet, border, 32 ; added by CheeseMoney - needed for PostStarsClick
SysGet, caption, 4 ; added by CheeseMoney - needed for PostStarsClick
caption := border + caption ; added by CheeseMoney - needed for PostStarsClick
SendHotKeyOnlyWhenStarsIsActive = 0 ; added by CheeseMoney - needed for PostStarsClick
debug = 0
Menu, Tray, NoStandard
Menu, TRAY, Add, Settings, Settings
Menu, TRAY, Default, Settings
Menu, TRAY, Add, Reload, Reload
Menu, TRAY, Add, Edit, Edit ; added by CheeseMoney for easy script editing
Menu, TRAY, Add, Exit, Quit
GroupAdd, PSTables, ahk_class PokerStarsTableFrameClass
ReadIni()
DefineHotKeys()
;VxE's Joystick Watch Script
; thread here http://www.autohotkey.com/forum/viewtopic.php?t=26659&highlight=dpad
JoystickRefreshTime := 5
setwindelay,-1
if AutoRegister
settimer,AutoRegister,50
settimer,act,39
Loop
{
IsTableNew()
if TakeSeat
TakeSeat()
If (EnableJoyMovement)
{
SetTimer, WatchAxis, %JoystickRefreshTime%
SetKeyDelay, -1
}
else
{
SetTimer, WatchAxis, off
SetKeyDelay, 10
}
If CheckWhenFree
CheckWhenFree()
If CloseMsgBox
AutoCloseMessageBox()
ClickImBack()
If activatetableundermouse
activatetableundermouse()
;highlightactivetable = 1
If highlightactivetable ; added by CheeseMoney
HighLight() ; added by CheeseMoney - may rewrite as a timer in future versions
Sleep 100
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;JOYSTICK SECTION;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; monitor Joystick and send fake F-key - program then waits ;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; for these hotkeys and acts on them for table navigation ;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; VxE's Joystick Watch Script
; thread here http://www.autohotkey.com/forum/viewtopic.php?t=26659&highlight=dpad
;SetTimer, WatchAxis, 5
;SetKeyDelay -1
WatchAxis:
GetKeyState, JoyX, JoyX ; Get position of X axis.
GetKeyState, JoyY, JoyY ; Get position of Y axis.
KeyToHoldDownPrev := KeyToHoldDown
YKeyToHoldDownPrev := YKeyToHoldDown
; KeyToHoldDown := ( JoyX > 70 ? "F15" : ( JoyX < 30 ? "F13" : "" )) ; YKeyToHoldDown := ( JoyY > 70 ? "F16" : ( JoyY < 30 ? "F14" : "" )) KeyToHoldDown := ( JoyX > 70 ? NextWindow_Right_Alt1 : ( JoyX < 30 ? NextWindow_Left_Alt1 : "" )) YKeyToHoldDown := ( JoyY > 70 ? NextWindow_Down_Alt1 : ( JoyY < 30 ? NextWindow_Up_Alt1 : "" )) if ( YKeyToHoldDown != YKeyToHoldDownPrev ) Send % "{blind}" . (( YKeyToHoldDownPrev ? "{" . YKeyToHoldDownPrev . " up}" : "" ) . ( YKeyToHoldDown ? "{" . YKeyToHoldDown . " down}" : "" )) if ( KeyToHoldDown != KeyToHoldDownPrev ) Send % "{blind}" . (( KeyToHoldDownPrev ? "{" . KeyToHoldDownPrev . " up}" : "" ) . ( KeyToHoldDown ? "{" . KeyToHoldDown . " down}" : "" )) ;if (Debug) ; traytip,,NextWindow_Up_Alt1: %NextWindow_Up_Alt1% return ;----------------------------------------------------------------------------------------------------- act: act() return act() { winget,list,list, Logged In ahk_class PokerStarsTableFrameClass wingetclass,class,A wingettitle,title,A ifwinnotactive,ahk_id%list1% { if class=PokerStarsTableFrameClass if instr(title, "Logged In") winactivate,ahk_id%list1% } } return ;----------------------------------------------------------------------------------------------------- TakeSeat() { IfWinExist, PokerStars ahk_class #32770 { WinGet, list, list, Seat Available ahk_class #32770 Loop, %list% { This_id := list%A_Index% ControlFocus, Button2, ahk_id%this_id% Sleep, -1 ControlSend, Button2, {SPACE}, ahk_id%this_id% } } } return ;----------------------------------------------------------------------------------------------------- IsTableNew() { global WinGetActiveTitle, T StringTrimRight, T, T, 1 If (T<>Oldtitle)
{
IfWinActive ahk_class PokerStarsTableFrameClass
{
winget, idnew, id, A
WinGetPos, A, B, w, h, ahk_id %idnew%
SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4
w := w - (2*xbord)
h := h - (2*ybord) - cap
if (h>200) and (w>200)
{
If Autoopeninfo
{
If BlackTheme
{
Transform, X, Round, W*0.4210
Transform, Y, Round, H*0.7690
Transform, X, Floor, W*0.4210
Transform, Y, Floor, H*0.7690
}
If ClassicTheme
{
Transform, X, Round, W*0.2631
Transform, Y, Round, H*0.7584
Transform, X, Floor, W*0.2631
Transform, Y, Floor, H*0.7584
}
If SlickTheme
{
Transform, X, Round, W*0.4108
Transform, Y, Round, H*0.8029
Transform, X, Floor, W*0.4108
Transform, Y, Floor, H*0.8029
}
If CustomTheme
{
Transform, X, Round, W*0.3249
Transform, Y, Round, H*0.7832
Transform, X, Floor, W*0.3249
Transform, Y, Floor, H*0.7832
}
PostLeftClick(X, Y, idnew, 0)
}
If autorefreshinfo
{
WinGetPos, A, B, X, Y, A
If BlackTheme
{
Transform, X, Round, W*0.4210
Transform, Y, Round, H*0.8156
Transform, X, Floor, W*0.4210
Transform, Y, Floor, H*0.8156
}
If ClassicTheme
{
Transform, X, Round, W*0.2631
Transform, Y, Round, H*0.8093
Transform, X, Floor, W*0.2631
Transform, Y, Floor, H*0.8093
}
If SlickTheme
{
Transform, X, Round, W*0.4108
Transform, Y, Round, H*0.8516
Transform, X, Floor, W*0.4108
Transform, Y, Floor, H*0.8516
}
If CustomTheme
{
Transform, X, Round, W*0.3249
Transform, Y, Round, H*0.8338
Transform, X, Floor, W*0.3249
Transform, Y, Floor, H*0.8338
}
ControlGet, Z, Visible,,PokerStarsChatClass1, ahk_id %idnew%
if not Z
ControlGet, Z, Visible,,PokerStarsNoteEditorClass1, ahk_id %idnew%
if not Z
PostLeftClick(X, Y, idnew, 0)
}
If MouseJump
{
WinGetPos, A, B, X, Y, A
MouseMove (X*0.5),(Y*0.5), 1
If SendCtrl
Send {Ctrl}
}
}
}
Oldtitle =%T%
}
}
;-----------------------------------------------------------------------------------------------------
activatetableundermouse()
{
If winactive("ahk_class PokerStarsTableFrameClass") or winactive("PokerStars Lobby")
{
MousegetPos,,,WinID
WinGetClass, class, ahk_id %WinID%
WinGetTitle, title, ahk_id %WinID%
if (class="PokerStarsTableFrameClass") or (instr(title,"PokerStars Lobby"))
winactivate, ahk_id %WinID%
}
}
return
;-----------------------------------------------------------------------------------------------------
AutoRegister:
{
IfWinExist Tournament Registration
;Control, Check,,Button1, Tournament Registration
ControlFocus, OK, Tournament Registration
sleep,-1
ControlClick, OK, Tournament Registration
}
return
;-----------------------------------------------------------------------------------------------------
CheckWhenFree()
{
IfWinExist, PokerStars, Check
{
ControlClick, Check
}
return
}
;-----------------------------------------------------------------------------------------------------
AutoCloseMessageBox()
{
SetTitleMatchMode, 3
IfWinExist, PokerStars,OK
WinClose
IfWinExist,ahk_class #32770,OK
{
WinGetTitle, title,
Needle:=" "
StringGetPos,pos, title,%Needle%
If pos>=0
{
settitlematchmode, 2
StringLeft, tablename, title, %pos%
tname:="Tournament " . tablename
IfWinExist, %tname%,
ControlClick, OK, %title%,OK
}
}
SetTitleMatchMode RegEx
return
}
;-----------------------------------------------------------------------------------------------------
Suspend:
Suspend
return
;-----------------------------------------------------------------------------------------------------
Cascade:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
Loop
{
SendInput C
sleep 100
ifwinactive, Options
winactivate, Options
else
break
}
return
;-----------------------------------------------------------------------------------------------------
Tile:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
Loop
{
SendInput T
sleep 100
ifwinactive, Options
winactivate, Options
else
break
}
return
;-----------------------------------------------------------------------------------------------------
Layout1:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 5}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout2:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 6}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout3:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 7}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout4:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 8}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout5:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 9}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout6:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 10}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout7:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 11}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout8:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 12}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
CloseTournamentLobbies:
GroupAdd, Lobbies, Tournament.*Lobby
GroupClose Lobbies, A
return
;-----------------------------------------------------------------------------------------------------
SaveHandHistory:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA
WinWait, Options
SetControlDelay, -1
ControlClick, Button5, Options,,,,NA
WinWait, Instant Hand History,, 3
WinActivate, Instant Hand History
ControlFocus, PokerStarsViewClass1, Instant Hand History
send ^a
send ^c
FileAppend `n, %A_Desktop%\pokerstarsHH.txt
FileAppend %Clipboard%, %A_Desktop%\pokerstarsHH.txt
WinClose, Instant Hand History
return
;-----------------------------------------------------------------------------------------------------
HHSaveHandHistory:
ControlFocus, PokerStarsViewClass1, Instant Hand History
send ^a
send ^c
FileAppend `n, %A_Desktop%\pokerstarsHH.txt
FileAppend %Clipboard%, %A_Desktop%\pokerstarsHH.txt
return
;-----------------------------------------------------------------------------------------------------
ToggleMouseJump:
If (MouseJump=true)
{
MouseJump:=false
T=Off
}
else
{
MouseJump:=true
T=On
}
Gui, 2:Add, Text,, MouseJump: %T%
Gui, 2:+ToolWindow
Gui, 2:Show, w110 h20
Sleep, 1000
Gui, 2:Destroy
return
;-----------------------------------------------------------------------------------------------------
FindTableToAct:
WinGet, V, List, ahk_class PokerStarsTableFrameClass
Loop, %V%
{
Y:=V%A_Index%
ControlGet, Z, Visible,,PokerStarsSliderClass1, ahk_id %Y%
WingetTitle, T, ahk_id %Y%
If Z
{
WinActivate, ahk_id %Y%
Break
}
}
return
;-----------------------------------------------------------------------------------------------------
ActivateNextWindow:
Send !{Esc}
return
;-----------------------------------------------------------------------------------------------------
ActivateBottomWindow:
GroupActivate, PSTables
return
;-----------------------------------------------------------------------------------------------------
IncreaseBet125:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID%
Transform, RawRaiseAmount, Round, MinRaiseAmount*1.25, 3
RaiseAmount:=RoundNum(RawRaiseAmount)
ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID%
return
;-----------------------------------------------------------------------------------------------------
FocusBetBox:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
ControlSetText, PokerStarsSliderEditorClass1,,ahk_id %WinID%
ControlFocus, PokerStarsSliderEditorClass1, ahk_id %WinID%
return
;-----------------------------------------------------------------------------------------------------
FoldB:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
WinGetClass, class, ahk_id %WinID%
if class=PokerstarsTableFrameClass
{
Winactivate, ahk_id %WinID%
WinGetPos, x, y, w, h, ahk_id %WinID%
SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4
w := w - (2*xbord)
h := h - (2*ybord) - cap
Transform, X, Floor, W*0.59
Transform, Y, Floor, H*0.93
PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%WinID% PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%WinID% } return ;----------------------------------------------------------------------------------------------------- CheckCall: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ;KeyWait, %A_ThisHotkey%, T.5 ;If errorlevel ;{ ;;Soundplay, *16 ;return ;} Winactivate, ahk_id %WinID% WinGetPos, A, B, X, Y, ahk_id %WinID% CX:= X*0.756 CY:= Y*.94 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA CX:= X*0.69 CY:= Y*0.87 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA return ;----------------------------------------------------------------------------------------------------- Raise: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetClass, class, ahk_id %WinID% if class=PokerstarsTableFrameClass { Winactivate, ahk_id %WinID% WinGetPos, x, y, w, h, ahk_id %WinID% SysGet, xbord, 32 SysGet, ybord, 33 SysGet, cap, 4 w := w - (2*xbord) h := h - (2*ybord) - cap Transform, X, Floor, W*0.8860 Transform, Y, Floor, H*0.9241 PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%WinID% PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%WinID% } return ;----------------------------------------------------------------------------------------------------- OpenLobby: WinActivate PokerStars Lobby WinGetPos, A, B, X, Y, A MouseMove (X*0.5),(Y*0.5), 4 return ;----------------------------------------------------------------------------------------------------- FoldToAnyBet: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, w, h, ahk_id %WinID% SysGet, xbord, 32 SysGet, ybord, 33 SysGet, cap, 4 w := w - (2*xbord) h := h - (2*ybord) - cap Transform, X, Floor, W*0.0158 Transform, Y, Floor, H*0.6467 PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%winID% PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%winID% return ;----------------------------------------------------------------------------------------------------- IncreaseBet150: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID% Transform, RawRaiseAmount, Round, (MinRaiseAmount*1.5), 3 RaiseAmount:=RoundNum(RawRaiseAmount) ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% return ;----------------------------------------------------------------------------------------------------- SitOutNext: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.0213 CY:=Y*0.70 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA return ;----------------------------------------------------------------------------------------------------- SitOutNextAll: IfWinActive, ahk_class PokerStarsTableFrameClass WinGet, WinId, ID, A WinGet, list, List, ahk_class PokerStarsTableFrameClass Loop, %list% { Z:=list%A_Index% WinGetPos, X, Y, W, H, ahk_id %Z% Sittingout:=PixelColorA(0.8125,0.8621,Z) JoinWaitingList:=PixelColorA(0.8625,0.8621,Z) If (Sittingout=0x000000) OR (Sittingout=0xDFD9CE) OR (Sittingout=0xD2EBF3) OR (Sittingout=0xB3A39D) OR (Sittingout=0x9D9D9D) OR (Sittingout=0xCCCCCC) OR (Sittingout=0xDEDBCE) OR (Sittingout=0xB5A29c) OR (Sittingout=0xBDAEAD) OR (Sittingout=0xFCF8F2) If (JoinWaitingList!=0x000000) AND (JoinWaitingList!=0xDFD9CE) AND (JoinWaitingList!=0xDEDBCE) AND (JoinWaitingList!=0x0xB5A29c) AND (JoinWaitingList!=0xBDAEAD) sit:=true else { backx:=0.0141 backy:=0.6840 relStarsClientPointMax(Z, backx, backy) PostLeftClick(backx, backy, Z, 0) } } winactivate, ahk_id %winid% return ;----------------------------------------------------------------------------------------------------- AllIn: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlSetText, PokerStarsSliderEditorClass1, 999999, ahk_id %WinID% If InstantAllin gosub, raise return ;----------------------------------------------------------------------------------------------------- AutoPostBlind: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.0213 CY:=Y*0.738 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA return ;----------------------------------------------------------------------------------------------------- OpenHHWindow: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID IfWinNotExist, Instant Hand History { WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.5 CY:=Y*0.14655 SendInput {Click %CX%, %CY%} WinWait, Options SetControlDelay, -1 ControlClick, Button5, Options,,,,NA } else { WinClose, Instant Hand History } return ;----------------------------------------------------------------------------------------------------- GotoTable: ControlGet, Black, Visible,, PokerStarsButtonClass1, PokerStars Lobby If black { ControlGet, TLobby, Visible,, PokerStarsButtonClass9, PokerStars Lobby ControlGet, GotoTablebutton, Visible,, PokerStarsButtonClass10, PokerStars Lobby If (TLobby=1) { ControlClick, PokerStarsButtonClass9, PokerStars Lobby } else { If (GotoTablebutton=1) ControlClick, PokerStarsButtonClass10, PokerStars Lobby } } else { ControlGet, TLobby, Visible,, PokerStarsButtonClass8, PokerStars Lobby ControlGet, GotoTablebutton, Visible,, PokerStarsButtonClass9, PokerStars Lobby If (TLobby=1) { ControlClick, PokerStarsButtonClass8, PokerStars Lobby } else { If (GotoTablebutton=1) ControlClick, PokerStarsButtonClass9, PokerStars Lobby } } return ;----------------------------------------------------------------------------------------------------- Register: ControlGet, Black, Visible,, PokerStarsButtonClass1, PokerStars Lobby If black { ControlGet, Registerbutton, Visible,, PokerStarsButtonClass8, PokerStars Lobby ControlGet, Unregister, Visible,, PokerStarsButtonClass6, PokerStars Lobby If (Registerbutton=1) { ControlClick, PokerStarsButtonClass8, PokerStars Lobby } else { If (Unregister=1) ControlClick, PokerStarsButtonClass6, PokerStars Lobby } } else { ControlGet, Registerbutton, Visible,, PokerStarsButtonClass7, PokerStars Lobby ControlGet, Unregister, Visible,, PokerStarsButtonClass5, PokerStars Lobby If (Registerbutton=1) { ControlClick, PokerStarsButtonClass7, PokerStars Lobby } else { If (Unregister=1) ControlClick, PokerStarsButtonClass5, PokerStars Lobby } } return ;----------------------------------------------------------------------------------------------------- TournamentLobbyRegister: ControlGet, Register, Visible,, PokerStarsButtonClass6, Tournament.*Lobby ControlGet, Unregister, Visible,, PokerStarsButtonClass4, Tournament.*Lobby If (Register=1) { ControlClick, PokerStarsButtonClass6, Tournament.*Lobby } else { If (Unregister=1) ControlClick, PokerStarsButtonClass4, Tournament.*Lobby } return ;----------------------------------------------------------------------------------------------------- JoinWaitlist: ControlGet, Black, Visible,, PokerStarsButtonClass1, PokerStars Lobby If black { ControlGet, Join, Visible,, PokerStarsButtonClass4, PokerStars Lobby ControlGet, Leave, Visible,, PokerStarsButtonClass3, PokerStars Lobby If (Join=1) { ControlClick, PokerStarsButtonClass4, PokerStars Lobby SetControlDelay -1 ControlClick, Button1, Waiting List } else { If (Leave=1) ControlClick, PokerStarsButtonClass3, PokerStars Lobby } } else { ControlGet, Join, Visible,, PokerStarsButtonClass3, PokerStars Lobby ControlGet, Leave, Visible,, PokerStarsButtonClass2, PokerStars Lobby If (Join=1) { ControlClick, PokerStarsButtonClass3, PokerStars Lobby SetControlDelay -1 ControlClick, Button1, Waiting List } else { If (Leave=1) ControlClick, PokerStarsButtonClass2, PokerStars Lobby } } return ;----------------------------------------------------------------------------------------------------- Cashier: IfWinExist Cashier { WinActivate Cashier SetControlDelay -1 ControlClick, PokerStarsButtonClass8, Cashier } else { WinActivate PokerStars Lobby WinMenuSelectItem, PokerStars Lobby,, Lobby, Cashier... } return ;----------------------------------------------------------------------------------------------------- DecreaseBet20: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID% Transform, RawRaiseAmount, Round, (MinRaiseAmount*.8), 3 RaiseAmount:=RoundNum(RawRaiseAmount) ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% return ;----------------------------------------------------------------------------------------------------- DecreaseBet33: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID% Transform, RawRaiseAmount, Round, (MinRaiseAmount/3*2), 3 RaiseAmount:=RoundNum(RawRaiseAmount) ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% return ;----------------------------------------------------------------------------------------------------- ReloadMax: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.5 CY:=Y*0.145 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA WinWait, Options SetControlDelay, -1 ControlClick, Button4, Options WinWait, Buy-in,,3 Control, Check,, Button1, Buy-in ControlClick, Button3, Buy-in return ;----------------------------------------------------------------------------------------------------- CloseAllTables: GroupClose, PSTables, A Loop { WinWait, Table*,,1 WinActivate, Table* If (ErrorLevel=1) break SetControlDelay -1 ControlClick, Button1, Table* } return ;----------------------------------------------------------------------------------------------------- CloseActiveTable: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, Title, ahk_id %WinID% IfInString Title, Logged In as SittingAtTable:=true SetTitleMatchMode 2 WinClose, %Title% SetTitleMatchMode RegEx ;If SittingAtTable ;{ ;WinWaitActive, Table*,,2 ;SetControlDelay -1 ;ControlClick, Button1, Table* ;} return ;----------------------------------------------------------------------------------------------------- BetIncrement1: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment1, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement2: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment2, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement3: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment3, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement4: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment4, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement5: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment5, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- NumpadBetAmount: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID StringRight, n, A_ThisHotkey, 1 If A_ThisHotkey=NumpadDot n:="." ControlGetFocus, c, ahk_id %WinID% If c=PokerStarsSliderEditorClass1 ControlSend, PokerStarsSliderEditorClass1, %n%, ahk_id %WinID% else { ControlSetText, PokerStarsSliderEditorClass1,,ahk_id %WinID% ControlFocus, PokerStarsSliderEditorClass1, ahk_id %WinID% ControlSend, PokerStarsSliderEditorClass1, %n%,ahk_id %WinID% } return ;----------------------------------------------------------------------------------------------------- NextWindow_Left: NextWindow_Left("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Right: NextWindow_Right("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Up: NextWindow_Up("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Down: NextWindow_Down("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Left_Alt1: ;if (debug) ; traytip,,Left_Alt1,2 NextWindow_Left("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Right_Alt1: ;if (debug) ; traytip,,Right_Alt1,2 NextWindow_Right("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Up_Alt1: ;if (debug) ; traytip,,Up_Alt1,2 NextWindow_Up("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Down_Alt1: ;if (debug) ; traytip,,Down_Alt1,2 NextWindow_Down("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- ; Added by Amerzel ;----------------------------------------------------------------------------------------------------- BlindBetSizeHotkey: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 If (Bigblind == BigBlind0) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind0Amt%, ahk_id %WinID% else If (Bigblind == BigBlind1) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind1Amt%, ahk_id %WinID% else If (Bigblind == BigBlind2) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind2Amt%, ahk_id %WinID% else If (Bigblind == BigBlind3) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind3Amt%, ahk_id %WinID% else If (Bigblind == BigBlind4) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind4Amt%, ahk_id %WinID% else If (Bigblind == BigBlind5) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind5Amt%, ahk_id %WinID% else If (Bigblind == BigBlind6) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind6Amt%, ahk_id %WinID% else If (Bigblind == BigBlind7) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind7Amt%, ahk_id %WinID% else If (Bigblind == BigBlind8) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind8Amt%, ahk_id %WinID% else If (Bigblind == BigBlind9) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind9Amt%, ahk_id %WinID% else { Transform, RaiseAmount, Round, Bigblind * BigBlindDefault, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% } If instantbbs gosub, raise return ;----------------------------------------------------------------------------------------------------- RoundNum(x) { WinGetTitle, Title, A IfInString Title, Tournament { if X between 0 and 100 R:=5 if X between 100 and 400 R:=5 if X between 400 and 1000 R:=25 if X between 1000 and 3000 R:=50 if X between 3000 and 5000 R:=100 if X between 5000 and 20000 R:=200 if X between 20000 and 100000 R:=500 if X between 100000 and 200000 R:=1000 if X between 200000 and 500000 R:=2000 if X between 500000 and 1000000 R:=5000 if X between 1000000 and 200000000000000 R:=10000 } else { if X between 0 and 1 R:=0.01 if X between 1 and 2 R:=0.05 if X between 2 and 3 R:=0.1 if X between 3 and 10 R:=0.25 if X between 10 and 25 R:=0.5 if X between 25 and 50 R:=1 if X between 50 and 100 R:=2 if X between 100 and 400 R:=5 if X between 400 and 1000 R:=10 if X between 1000 and 5000 R:=25 if X between 5000 and 20000 R:=50 if X between 20000 and 100000000 R:=100 } SetFormat, float, 0.2 Transform V, Round, (X/R) N:=(V*R) return N } ;----------------------------------------------------------------------------------------------------- Settings: Menu, HelpMenu, Add, Help, Help Menu, HelpMenu, Add, About, About Menu, Menubar, Add, Help, :HelpMenu Gui, Menu, MenuBar ; Gui, Add, Tab, x-4 y0 w500 h750 , Table Hotkeys|Blind Bet Size Hotkey|Other Hotkeys|Options Gui, Add, Text, x6 y30 w240 h20 , Fold Gui, Add, Edit, x246 y30 w240 h20 vFoldB, %FoldB% Gui, Add, Text, x6 y50 w240 h20 , Check/Call Gui, Add, Edit, x246 y50 w240 h20 vCheckCall, %CheckCall% Gui, Add, Text, x6 y70 w240 h20 , Raise Gui, Add, Edit, x246 y70 w240 h20 vRaise, %Raise% Gui, Add, Text, x6 y90 w240 h20 , All In Gui, Add, Edit, x246 y90 w240 h20 vAllIn, %AllIn% Gui, Add, CheckBox, x166 y90 w80 h20 Checked%instantallin% vinstantallin, Instant Bet Gui, Add, Text, x6 y110 w240 h20 , Increase Bet 25`% Gui, Add, Edit, x246 y110 w240 h20 vIncreaseBet125, %IncreaseBet125% Gui, Add, Text, x6 y130 w240 h20 , Decrease Bet 20`% Gui, Add, Edit, x246 y130 w240 h20 vDecreaseBet20, %DecreaseBet20% Gui, Add, Text, x6 y150 w240 h20 , Increase Bet 50`% Gui, Add, Edit, x246 y150 w240 h20 vIncreaseBet150, %IncreaseBet150% Gui, Add, Text, x6 y170 w240 h20 , Decrease Bet 33`% Gui, Add, Edit, x246 y170 w240 h20 vDecreaseBet33, %DecreaseBet33% Gui, Add, Text, x6 y190 w20 h20 , Bet Gui, Add, Edit, x26 y185 w25 h20 vincrement1, %increment1% Gui, Add, Text, x51 y190 w40 h20 , x BB Gui, Add, CheckBox, x166 y190 w80 h20 Checked%instantxbb% vinstantxbb, Instant Bet Gui, Add, Edit, x246 y190 w240 h20 vBetIncrement1, %BetIncrement1% Gui, Add, Text, x6 y210 w20 h20 , Bet Gui, Add, Edit, x26 y205 w25 h20 vincrement2, %increment2% Gui, Add, Text, x51 y210 w40 h20, x BB Gui, Add, Edit, x246 y210 w240 h20 vBetIncrement2, %BetIncrement2% Gui, Add, Text, x6 y230 w20 h20 , Bet Gui, Add, Edit, x26 y225 w25 h20 vincrement3, %increment3% Gui, Add, Text, x51 y230 w40 h20, x BB Gui, Add, Edit, x246 y230 w240 h20 vBetIncrement3, %BetIncrement3% Gui, Add, Text, x6 y250 w20 h20 , Bet Gui, Add, Edit, x26 y245 w25 h20 vincrement4, %increment4% Gui, Add, Text, x51 y250 w40 h20, x BB Gui, Add, Edit, x246 y250 w240 h20 vBetIncrement4, %BetIncrement4% Gui, Add, Text, x6 y270 w20 h20 , Bet Gui, Add, Edit, x26 y265 w25 h20 vincrement5, %increment5% Gui, Add, Text, x51 y270 w40 h20, x BB Gui, Add, Edit, x246 y270 w240 h20 vBetIncrement5, %BetIncrement5% Gui, Add, Text, x6 y290 w240 h20, Send Cursor To Bet Box Gui, Add, Edit, x246 y290 w240 h20 vFocusBetBox, %FocusBetBox% Gui, Add, Text, x6 y310 w240 h20 , Fold To Any Bet Gui, Add, Edit, x246 y310 w240 h20 vFoldToAnyBet, %FoldToAnyBet% Gui, Add, Text, x6 y330 w240 h20 , Sit Out Next Hand Gui, Add, Edit, x246 y330 w240 h20 vSitOutNext, %SitOutNext% Gui, Add, Text, x6 y350 w240 h20 , Sit Out On All Tables Gui, Add, Edit, x246 y350 w240 h20 vSitOutNextAll, %SitOutNextAll% Gui, Add, Text, x6 y370 w240 h20 , Open Hand History Window Gui, Add, Edit, x246 y370 w240 h20 vOpenHHWindow, %OpenHHWindow% Gui, Add, Text, x6 y390 w240 h20 , Save Hand History Gui, Add, Edit, x246 y390 w240 h20 vSaveHandHistory, %SaveHandHistory% Gui, Add, Text, x6 y410 w240 h20 , Rebuy For Full Amount Gui, Add, Edit, x246 y410 w240 h20 vReloadMax, %ReloadMax% Gui, Add, Text, x6 y430 w240 h20 , Tile Tables Gui, Add, Edit, x246 y430 w240 h20 vTile, %Tile% Gui, Add, Text, x6 y450 w240 h20 , Cascade Tables Gui, Add, Edit, x246 y450 w240 h20 vCascade, %Cascade% Gui, Add, Text, x6 y470 w240 h20 , Table Layout 1 Gui, Add, Edit, x246 y470 w240 h20 vLayout1, %Layout1% Gui, Add, Text, x6 y490 w240 h20 , Table Layout 2 Gui, Add, Edit, x246 y490 w240 h20 vLayout2, %Layout2% Gui, Add, Text, x6 y510 w240 h20 , Table Layout 3 Gui, Add, Edit, x246 y510 w240 h20 vLayout3, %Layout3% Gui, Add, Text, x6 y530 w240 h20 , Table Layout 4 Gui, Add, Edit, x246 y530 w240 h20 vLayout4, %Layout4% Gui, Add, Text, x6 y550 w240 h20 , Table Layout 5 Gui, Add, Edit, x246 y550 w240 h20 vLayout5, %Layout5% Gui, Add, Text, x6 y570 w240 h20 , Table Layout 6 Gui, Add, Edit, x246 y570 w240 h20 vLayout6, %Layout6% Gui, Add, Text, x6 y590 w240 h20 , Table Layout 7 Gui, Add, Edit, x246 y590 w240 h20 vLayout7, %Layout7% Gui, Add, Text, x6 y610 w240 h20 , Table Layout 8 Gui, Add, Edit, x246 y610 w240 h20 vLayout8, %Layout8% Gui, Add, Button, x205 y645 w50 h20 gSave,Save Gui, Add, Button, x260 y645 w55 h20 gCancel1,Cancel Gui, Tab, Other Hotkeys Gui, Font, S8 CDefault Bold, Verdana Gui, Add, Text, x6 y30 w240 h20 , Lobby Hotkeys Gui, Font, S8 CDefault norm, Verdana Gui, Add, Text, x6 y50 w240 h20 , Open Table or Tournament Gui, Add, Edit, x246 y50 w240 h20 vGotoTable, %GotoTable% Gui, Add, Text, x6 y70 w240 h20 , Register/Unregister Gui, Add, Edit, x246 y70 w240 h20 vRegister, %Register% Gui, Add, Text, x6 y90 w240 h20 , Waitlist Gui, Add, Edit, x246 y90 w240 h20 vJoinWaitlist, %JoinWaitlist% Gui, Add, Text, x6 y110 w240 h20 , Cashier Gui, Add, Edit, x246 y110 w240 h20 vCashier, %cashier% Gui, Font, S8 CDefault Bold, Verdana Gui, Add, Text, x6 y150 w240 h20 , Navigation Hotkeys Gui, Font, S8 CDefault norm, Verdana Gui, Add, CheckBox, x230 y150 w240 h20 checked%EnableJoyMovement% vEnableJoyMovement,Enable D-Pad Joystick Table Movement Gui, Add, Text, x6 y170 w240 h20 , Up Gui, Add, Edit, x246 y170 w120 h20 vNextWindow_Up, %NextWindow_Up% Gui, Add, Edit, x366 y170 w120 h20 vNextWindow_Up_Alt1, %NextWindow_Up_Alt1% Gui, Add, Text, x6 y190 w240 h20 , Down Gui, Add, Edit, x246 y190 w120 h20 vNextWindow_Down, %NextWindow_Down% Gui, Add, Edit, x366 y190 w120 h20 vNextWindow_Down_Alt1, %NextWindow_Down_Alt1% Gui, Add, Text, x6 y210 w240 h20 , Left Gui, Add, Edit, x246 y210 w120 h20 vNextWindow_Left, %NextWindow_Left% Gui, Add, Edit, x366 y210 w120 h20 vNextWindow_Left_Alt1, %NextWindow_Left_Alt1% Gui, Add, Text, x6 y230 w240 h20 , Right Gui, Add, Edit, x246 y230 w120 h20 vNextWindow_Right, %NextWindow_Right% Gui, Add, Edit, x366 y230 w120 h20 vNextWindow_Right_Alt1, %NextWindow_Right_Alt1% Gui, Add, Text, x6 y250 w240 h20 , Activate Next Table Gui, Add, Edit, x246 y250 w240 h20 vActivateNextWindow, %ActivateNextWindow% Gui, Add, Text, x6 y270 w240 h20 , Activate Bottom Table Gui, Add, Edit, x246 y270 w240 h20 vActivateBottomWindow, %ActivateBottomWindow% Gui, Add, Text, x6 y290 w240 h20 , Find Table Needing Action Gui, Add, Edit, x246 y290 w240 h20 vFindTableToAct, %FindTableToAct% Gui, Add, Text, x6 y310 w240 h20 , Open Lobby Gui, Add, Edit, x246 y310 w240 h20 vOpenLobby, %OpenLobby% Gui, Font, S8 CDefault Bold, Verdana Gui, Add, Text, x6 y350 w240 h20 , Miscellaneous Hotkeys Gui, Font, S8 CDefault norm, Verdana Gui, Add, Text, x6 y370 w240 h20 , Suspend Hotkeys Gui, Add, Edit, x246 y370 w240 h20 vSuspend, %Suspend% Gui, Add, Text, x6 y390 w240 h20 , Close All Tournament Lobbies Gui, Add, Edit, x246 y390 w240 h20 vCloseTournamentLobbies, %CloseTournamentLobbies% Gui, Add, Text, x6 y410 w240 h20 , Close Active Table Gui, Add, Edit, x246 y410 w240 h20 vCloseActiveTable, %CloseActiveTable% Gui, Add, Text, x6 y430 w240 h20 , Close All Tables Gui, Add, Edit, x246 y430 w240 h20 vCloseAllTables, %CloseAllTables% ;Gui, Add, Button, x205 y455 w40 h20 gSave,Save ;Gui, Add, Button, x250 y455 w45 h20 gcancel1,Cancel Gui, Add, Button, x205 y485 w50 h20 gSave,Save ; changed by cheese Gui, Add, Button, x260 y485 w55 h20 gcancel1,Cancel ; changed by cheese Gui, Tab, Options Gui, Add, CheckBox, x6 y30 w480 h20 Checked%MouseJump% vMouseJump, Move Mouse To Active Table Gui, Add, Text, x26 y50 w220 h20 , Toggle Mouse Jump Gui, Add, Edit, x246 y50 w240 h20 vTogglemousejump, %Togglemousejump% Gui, Add, CheckBox, x26 y70 w460 h20 Checked%SendCtrl% vSendCtrl, Send Ctrl After MouseJump Gui, Add, CheckBox, x6 y90 w480 h20 Checked%AutoRegister% vAutoRegister, AutoRegister for Tournaments Gui, Add, Text, x26 y110 w220 h20 , Toggle AutoRegister Gui, Add, Edit, x246 y110 w240 h20 vtoggleautoregister, %toggleautoregister% Gui, Add, CheckBox, x6 y130 w480 h20 Checked%CloseMsgBox% vcloseMsgBox, AutoClose Messge Boxes Gui, Add, Text, x26 y150 w220 h20 , Toggle AutoClose Gui, Add, Edit, x246 y150 w240 h20 vToggleCloseMsgBox, %ToggleCloseMsgBox% Gui, Add, CheckBox, x6 y170 w480 h20 Checked%ClickImBack% vClickImBack, Never Sit Out Gui, Add, Text, x26 y190 w220 h20 , Toggle Never Sit Out Gui, Add, Edit, x246 y190 w240 h20 vToggleClickImBack, %ToggleClickImBack% Gui, Add, CheckBox, x6 y210 w480 h20 Checked%SendNumpad% vSendNumpad, Send Numpad Characters To Bet Box Gui, Add, CheckBox, x6 y230 w480 h20 Checked%CheckwhenFree% vCheckwhenFree, Never Fold For Free Gui, Add, Radio, x6 y250 w480 h20 vActOnActiveTable Checked%ActOnActiveTable%, Send Actions To Active Table Gui, Add, Radio, x6 y270 w480 h20 vActOnTableUnderMouse Checked%ActOnTableUnderMouse%, Send Actions To Table Under Mouse Cursor Gui, Add, CheckBox, x6 y290 w480 h20 Checked%activatetableundermouse% vactivatetableundermouse, Autoactivate Table Under Mouse Cursor Gui, Add, CheckBox, x6 y310 w480 h20 Checked%autoopeninfo% vautoopeninfo, Automatically Open Info Tab Gui, Add, CheckBox, x6 y330 w480 h20 Checked%autorefreshinfo% vautorefreshinfo, Automatically Refresh Info Tab Gui, Add, Radio, x26 y390 w480 h20 Checked%ClassicTheme% vClassicTheme, Classic Theme Gui, Add, Radio, x26 y410 w480 h20 Checked%BlackTheme% vBlackTheme, Black Theme Gui, Add, Radio, x26 y430 w480 h20 Checked%SlickTheme% vSlickTheme, Slick Theme Gui, Add, Radio, x26 y450 w480 h20 Checked%CustomTheme% vCustomTheme, Custom Theme Gui, Add, CheckBox, x6 y350 w480 h20 Checked%highlightactivetable% vhighlightactivetable,Highlight Active Table Gui, Add, CheckBox, x6 y370 w480 h20 Checked%TakeSeat% vTakeSeat, Auto take seat Gui, Add, Button, x205 y475 w50 h20 gSave,Save Gui, Add, Button, x260 y475 w55 h20 gcancel1,Cancel ; Variable raise sizes based on size of big blind. Added by Amerzel Gui, Tab, Blind Bet Size Hotkey Gui, Add, Text, x6 y30 w240 h40 , Hotkey to use for raise size based on size of big blind Gui, Add, Edit, x246 y30 w240 h20 vBlindBetSizeHotkey, %BlindBetSizeHotkey% Gui, Add, CheckBox, x246 y50 w80 h20 Checked%instantbbs% vinstantbbs, Instant Bet Gui, Add, Text, x6 y90 w240 h20 , Big Blind Size Gui, Add, Edit, x6 y110 w140 h20 vBigBlind0, %BigBlind0% Gui, Add, Edit, x6 y130 w140 h20 vBigBlind1, %BigBlind1% Gui, Add, Edit, x6 y150 w140 h20 vBigBlind2, %BigBlind2% Gui, Add, Edit, x6 y170 w140 h20 vBigBlind3, %BigBlind3% Gui, Add, Edit, x6 y190 w140 h20 vBigBlind4, %BigBlind4% Gui, Add, Edit, x6 y210 w140 h20 vBigBlind5, %BigBlind5% Gui, Add, Edit, x6 y230 w140 h20 vBigBlind6, %BigBlind6% Gui, Add, Edit, x6 y250 w140 h20 vBigBlind7, %BigBlind7% Gui, Add, Edit, x6 y270 w140 h20 vBigBlind8, %BigBlind8% Gui, Add, Edit, x6 y290 w140 h20 vBigBlind9, %BigBlind9% Gui, Add, Text, x156 y90 w240 h20 , Amount to Raise to Gui, Add, Edit, x156 y110 w140 h20 vBigBlind0Amt, %BigBlind0Amt% Gui, Add, Edit, x156 y130 w140 h20 vBigBlind1Amt, %BigBlind1Amt% Gui, Add, Edit, x156 y150 w140 h20 vBigBlind2Amt, %BigBlind2Amt% Gui, Add, Edit, x156 y170 w140 h20 vBigBlind3Amt, %BigBlind3Amt% Gui, Add, Edit, x156 y190 w140 h20 vBigBlind4Amt, %BigBlind4Amt% Gui, Add, Edit, x156 y210 w140 h20 vBigBlind5Amt, %BigBlind5Amt% Gui, Add, Edit, x156 y230 w140 h20 vBigBlind6Amt, %BigBlind6Amt% Gui, Add, Edit, x156 y250 w140 h20 vBigBlind7Amt, %BigBlind7Amt% Gui, Add, Edit, x156 y270 w140 h20 vBigBlind8Amt, %BigBlind8Amt% Gui, Add, Edit, x156 y290 w140 h20 vBigBlind9Amt, %BigBlind9Amt% Gui, Add, Text, x6 y330 w240 h40 , Default Multiplier to Use if BB Not Defined Above Gui, Add, Edit, x246 y330 w140 h20 vBigBlindDefault, %BigBlindDefault% Gui, Add, Button, x205 y645 w55 h20 gSave,Save Gui, Add, Button, x265 y645 w60 h20 gCancel1,Cancel Gui, Show, x131 y91 h750 w500, Stars Hotkeys Return ;----------------------------------------------------------------------------------------------------- Subm: Gui,1:Submit, NoHide if autoon boff:=true return ;----------------------------------------------------------------------------------------------------- Help: run http://www.wickss.com/ahk/starshotkeys/readme.html return ;----------------------------------------------------------------------------------------------------- about: Msgbox StarsHotkeys V1.008a Wickss' 1.008 version with Cheesemonkey and Amerzel additions return ;----------------------------------------------------------------------------------------------------- GuiClose: Gosub, Save return ;----------------------------------------------------------------------------------------------------- Reload: Reload return ;----------------------------------------------------------------------------------------------------- Save: Gui, Submit FileDelete, StarsHotkeys.ini Writeini() Reload return ;----------------------------------------------------------------------------------------------------- cancel1: Gui, Destroy Return ;----------------------------------------------------------------------------------------------------- Quit: ExitApp Edit: Edit Return ;----------------------------------------------------------------------------------------------------- ClickImBack() { global ClickImBack Settitlematchmode,2 If ClickImBack { winget,list,list, ahk_class PokerStarsTableFrameClass loop %list% { back_x:=0.8125 back_y:=0.8621 id:=list%A_index% col:=PixelColorA(back_x,back_y,id) stringsplit,c,col,- Sittingout:=c1 JoinWaitingList:=c2 If (Sittingout=0x000000) OR (Sittingout=0xDFD9CE) OR (Sittingout=0xD2EBF3) OR (Sittingout=0xB3A39D) OR (Sittingout=0x9D9D9D) OR (Sittingout=0xCCCCCC) OR (Sittingout=0xDEDBCE) OR (Sittingout=0xB5A29c) OR (Sittingout=0xBDAEAD) OR (Sittingout=0x343434) OR (Sittingout=0x444444) OR (Sittingout=0x333333) If (JoinWaitingList!=0x000000) AND (JoinWaitingList!=0xDFD9CE) AND (JoinWaitingList!=0xDEDBCE) AND (JoinWaitingList!=0x0xB5A29c) AND (JoinWaitingList!=0xBDAEAD) AND (JoinWaitingList!=0x1f1f1f) AND (JoinWaitingList!=0x343434) AND (JoinWaitingList!=0x0202020) AND (JoinWaitingList!=0xe6e6e6) AND (JoinWaitingList!=0xdddddd) AND (JoinWaitingList!=0x1e1e1e) AND (JoinWaitingList!=0xb0b0b0) { relstarsclientpointmax(id,back_x,back_y) postleftclick(back_x,back_y,id,0) } } } Return } ;----------------------------------------------------------------------------------------------------- ToggleClickImBack: If ClickImBack { ClickImBack:=False T=Off } else { ClickImBack:=True T=On } Gui, 2:Add, Text,, Never Sit Out: %T% Gui, 2:+ToolWindow Gui, 2:Show, w110 h20 Sleep, 1000 Gui, 2:Destroy return ;----------------------------------------------------------------------------------------------------- ToggleCloseMsgBox: If (CloseMsgBox=true) { CloseMsgBox:=false T=Off } else { CloseMsgBox:=true T=On } Gui, 2:Add, Text,, AutoClose Message Box: %T% Gui, 2:+ToolWindow Gui, 2:Show, w150 h20 Sleep, 1000 Gui, 2:Destroy return ;----------------------------------------------------------------------------------------------------- ToggleAutoRegister: If (AutoRegister=true) { AutoRegister:=false T=Off } else { AutoRegister:=true T=On } Gui, 2:Add, Text,, AutoRegister: %T% Gui, 2:+ToolWindow Gui, 2:Show, w110 h20 Sleep, 1000 Gui, 2:Destroy return ;----------------------------------------------------------------------------------------------------- DefineHotKeys() { Global If FoldB { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FoldB%, FoldB } If CheckCall { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CheckCall%,CheckCall } If Raise { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Raise%, Raise } ; Added by Amerzel If BlindBetSizeHotkey { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BlindBetSizeHotkey%, BlindBetSizeHotkey } If AllIn { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %AllIn%, AllIn } If DecreaseBet33 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %DecreaseBet33%, DecreaseBet33 } If SitOutNext { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %SitOutNext%, SitOutNext } If SitOutNextAll { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %SitOutNextAll%, SitOutNextAll } If IncreaseBet150 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %IncreaseBet150%, IncreaseBet150 } If DecreaseBet20 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %DecreaseBet20%, DecreaseBet20 } If IncreaseBet125 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %IncreaseBet125%,IncreaseBet125 } If BetIncrement1 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement1%,BetIncrement1 } If BetIncrement2 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement2%,BetIncrement2 } If BetIncrement3 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement3%,BetIncrement3 } If BetIncrement4 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement4%,BetIncrement4 } If BetIncrement5 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement5%,BetIncrement5 } If FocusBetBox { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FocusBetBox%, FocusBetBox } If ReloadMax { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ReloadMax%, ReloadMax } If FoldToAnyBet { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FoldToAnyBet%, FoldToAnyBet } If Cashier { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, PokerStars Lobby Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, Cashier Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, Instant Hand History Hotkey, %Cashier%, Cashier } If Cascade { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Cascade%, Cascade } If Tile { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Tile%, Tile } If Layout1 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout1%, Layout1 } If Layout2 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout2%, Layout2 } If Layout3 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout3%, Layout3 } If Layout4 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout4%, Layout4 } If Layout5 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout5%, Layout5 } If Layout6 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout6%, Layout6 } If Layout7 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout7%, Layout7 } If Layout8 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout8%, Layout8 } If CloseTournamentLobbies { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, PokerStars Lobby Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, Cashier Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, Instant Hand History Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies } If OpenHHWindow { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %OpenHHWindow%, OpenHHWindow Hotkey, IfWinActive, Instant Hand History Hotkey, %OpenHHWindow%, OpenHHWindow } If SaveHandHistory { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %SaveHandHistory%, SaveHandHistory Hotkey, IfWinActive, Instant Hand History Hotkey, %SaveHandHistory%, HHSaveHandHistory } If ToggleMouseJump { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleMouseJump%, ToggleMouseJump } If ToggleClickImBack { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleClickImBack%, ToggleClickImBack } If ToggleAutoRegister { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, Cashier Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, Instant Hand History Hotkey, %ToggleAutoRegister%, ToggleAutoRegister } If ToggleCloseMsgbox { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, Cashier Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, Instant Hand History Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox } If OpenLobby { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %OpenLobby%, OpenLobby Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %OpenLobby%, OpenLobby Hotkey, IfWinActive, Instant Hand History Hotkey, %OpenLobby%, OpenLobby } If CloseActiveTable { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CloseActiveTable%, CloseActiveTable } If CloseAllTables { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CloseAllTables%, CloseAllTables } If SendNumpad { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, Numpad0, NumpadBetAmount Hotkey, Numpad1, NumpadBetAmount Hotkey, Numpad2, NumpadBetAmount Hotkey, Numpad3, NumpadBetAmount Hotkey, Numpad4, NumpadBetAmount Hotkey, Numpad5, NumpadBetAmount Hotkey, Numpad6, NumpadBetAmount Hotkey, Numpad7, NumpadBetAmount Hotkey, Numpad8, NumpadBetAmount Hotkey, Numpad9, NumpadBetAmount Hotkey, NumpadDot, NumpadBetAmount } If NextWindow_Up { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Up%, NextWindow_Up } If NextWindow_Down { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Down%, NextWindow_Down } If NextWindow_Left { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Left%, NextWindow_Left } If NextWindow_Right { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Right%, NextWindow_Right } If NextWindow_Up_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Up_Alt1%, NextWindow_Up_Alt1 } If NextWindow_Down_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Down_Alt1%, NextWindow_Down_Alt1 } If NextWindow_Left_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Left_Alt1%, NextWindow_Left_Alt1 } If NextWindow_Right_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Right_Alt1%, NextWindow_Right_Alt1 } If ActivateBottomWindow { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, Cashier Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, Instant Hand History Hotkey, %ActivateBottomWindow%, ActivateBottomWindow } If ActivateNextWindow { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, Cashier Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, Instant Hand History Hotkey, %ActivateNextWindow%, ActivateNextWindow } If FindTableToAct { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FindTableToAct%, FindTableToAct Hotkey, IfWinActive, PokerStars Lobby Hotkey, %FindTableToAct%, FindTableToAct } If Register { Hotkey, IfWinActive, PokerStars Lobby Hotkey, %Register%, Register Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %Register%, TournamentLobbyRegister } If GotoTable { Hotkey, IfWinActive, PokerStars Lobby Hotkey, %GotoTable%, GotoTable } If JoinWaitlist { Hotkey, IfWinActive, PokerStars Lobby Hotkey, %JoinWaitlist%, JoinWaitlist } If Suspend { Hotkey, IfWinActive Hotkey, %Suspend%, Suspend } } ;----------------------------------------------------------------------------------------------------- ReadIni() { global IfNotExist, StarsHotKeys.ini CreateIni() IniRead, CloseMsgBox,StarsHotKeys.ini, Options,CloseMsgBox, 0 IniRead, CheckWhenFree,StarsHotKeys.ini, Options,CheckWhenFree, 0 IniRead, AutoRegister,StarsHotKeys.ini, Options,AutoRegister, 0 IniRead, MouseJump,StarsHotKeys.ini, Options, MouseJump,0 IniRead, ClickImBack,StarsHotKeys.ini, Options, ClickImBack,0 IniRead, SendNumpad,StarsHotKeys.ini, Options, SendNumpad,0 IniRead, SendCtrl,StarsHotKeys.ini, Options, SendCtrl,0 IniRead, ActOnActiveTable,StarsHotKeys.ini, Options, ActOnActiveTable,0 IniRead, EnableJoyMovement,StarsHotKeys.ini, Options, EnableJoyMovement, 0 IniRead, HighlightActiveTable, StarsHotkeys.ini, Options, HighlightActiveTable, 0 If ActOnActiveTable ActOnTableUnderMouse:=False Else ActOnTableUnderMouse:=True IniRead, instantallin,StarsHotKeys.ini, Options, instantallin,0 IniRead, instantxbb,StarsHotKeys.ini, Options, instantxbb,0 IniRead, activatetableundermouse,StarsHotKeys.ini, Options, activatetableundermouse,0 IniRead, autoopeninfo,StarsHotKeys.ini, Options, autoopeninfo,0 IniRead, autorefreshinfo,StarsHotKeys.ini, Options, autorefreshinfo,0 IniRead, TakeSeat,StarsHotKeys.ini, Options, TakeSeat,0 IniRead, BlackTheme,StarsHotKeys.ini, Options, BlackTheme,0 IniRead, ClassicTheme,StarsHotKeys.ini, Options, ClassicTheme,0 IniRead, SlickTheme,StarsHotKeys.ini, Options, SlickTheme,0 IniRead, CustomTheme,StarsHotKeys.ini, Options, CustomTheme,0 IniRead, increment1,StarsHotKeys.ini, increments, increment1,0 IniRead, increment2,StarsHotKeys.ini, increments, increment2,0 IniRead, increment3,StarsHotKeys.ini, increments, increment3,0 IniRead, increment4,StarsHotKeys.ini, increments, increment4,0 IniRead, increment5,StarsHotKeys.ini, increments, increment5,0 IniRead, FocusBetBox,StarsHotKeys.ini, Hotkeys, FocusBetBox,%A_Space% IniRead, FoldB,StarsHotKeys.ini, Hotkeys, FoldB,%A_Space% IniRead, CheckCall,StarsHotKeys.ini, Hotkeys, CheckCall,%A_Space% IniRead, Raise,StarsHotKeys.ini, Hotkeys, Raise,%A_Space% IniRead, Allin,StarsHotKeys.ini, Hotkeys, Allin,%A_Space% IniRead, DecreaseBet33,StarsHotKeys.ini, Hotkeys, DecreaseBet33,%A_Space% IniRead, SitOutNext,StarsHotKeys.ini, Hotkeys, SitOutNext,%A_Space% IniRead, SitOutNextAll,StarsHotKeys.ini, Hotkeys, SitOutNextAll,%A_Space% IniRead, IncreaseBet150,StarsHotKeys.ini, Hotkeys, IncreaseBet150,%A_Space% IniRead, DecreaseBet20,StarsHotKeys.ini, Hotkeys, DecreaseBet20,%A_Space% IniRead, IncreaseBet125,StarsHotKeys.ini, Hotkeys, IncreaseBet125,%A_Space% IniRead, BetIncrement1,StarsHotKeys.ini, Hotkeys, BetIncrement1,%A_Space% IniRead, BetIncrement2,StarsHotKeys.ini, Hotkeys, BetIncrement2,%A_Space% IniRead, BetIncrement3,StarsHotKeys.ini, Hotkeys, BetIncrement3,%A_Space% IniRead, BetIncrement4,StarsHotKeys.ini, Hotkeys, BetIncrement4,%A_Space% IniRead, BetIncrement5,StarsHotKeys.ini, Hotkeys, BetIncrement5,%A_Space% IniRead, ReloadMax,StarsHotKeys.ini, Hotkeys, ReloadMax,%A_Space% IniRead, FoldToAnyBet,StarsHotKeys.ini, Hotkeys, FoldToAnyBet,%A_Space% IniRead, Cashier,StarsHotKeys.ini, Hotkeys, Cashier,%A_Space% IniRead, Cascade,StarsHotKeys.ini, Hotkeys, Cascade,%A_Space% IniRead, Tile,StarsHotKeys.ini, Hotkeys, Tile,%A_Space% IniRead, CloseTournamentLobbies,StarsHotKeys.ini, Hotkeys, CloseTournamentLobbies,%A_Space% IniRead, OpenHHWindow,StarsHotKeys.ini, Hotkeys, OpenHHWindow,%A_Space% IniRead, SaveHandHistory,StarsHotKeys.ini, Hotkeys, SaveHandHistory,%A_Space% IniRead, Layout1,StarsHotKeys.ini, Hotkeys, Layout1,%A_Space% IniRead, Layout2,StarsHotKeys.ini, Hotkeys, Layout2,%A_Space% IniRead, Layout3,StarsHotKeys.ini, Hotkeys, Layout3,%A_Space% IniRead, Layout4,StarsHotKeys.ini, Hotkeys, Layout4,%A_Space% IniRead, Layout5,StarsHotKeys.ini, Hotkeys, Layout5,%A_Space% IniRead, Layout6,StarsHotKeys.ini, Hotkeys, Layout6,%A_Space% IniRead, Layout7,StarsHotKeys.ini, Hotkeys, Layout7,%A_Space% IniRead, Layout8,StarsHotKeys.ini, Hotkeys, Layout8,%A_Space% IniRead, ToggleMouseJump,StarsHotKeys.ini, Hotkeys, ToggleMouseJump,%A_Space% IniRead, ToggleClickImBack,StarsHotKeys.ini, Hotkeys, ToggleClickImBack,%A_Space% IniRead, ToggleAutoRegister,StarsHotKeys.ini, Hotkeys, ToggleAutoRegister,%A_Space% IniRead, ToggleCloseMsgBox,StarsHotKeys.ini, Hotkeys, ToggleCloseMsgBox,%A_Space% IniRead, OpenLobby,StarsHotKeys.ini, Hotkeys, OpenLobby,%A_Space% IniRead, CloseActiveTable,StarsHotKeys.ini, Hotkeys, CloseActiveTable,%A_Space% IniRead, CloseAllTables,StarsHotKeys.ini, Hotkeys, CloseAllTables,%A_Space% IniRead, NextWindow_Up,StarsHotKeys.ini, Hotkeys, NextWindow_Up,%A_Space% IniRead, NextWindow_Down,StarsHotKeys.ini, Hotkeys, NextWindow_Down,%A_Space% IniRead, NextWindow_Left,StarsHotKeys.ini, Hotkeys, NextWindow_Left,%A_Space% IniRead, NextWindow_Right,StarsHotKeys.ini, Hotkeys, NextWindow_Right,%A_Space% IniRead, NextWindow_Up_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Up_Alt1,%A_Space% IniRead, NextWindow_Down_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Down_Alt1,%A_Space% IniRead, NextWindow_Left_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Left_Alt1,%A_Space% IniRead, NextWindow_Right_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Right_Alt1,%A_Space% IniRead, ActivateBottomWindow,StarsHotKeys.ini, Hotkeys, ActivateBottomWindow,%A_Space% IniRead, ActivateNextWindow,StarsHotKeys.ini, Hotkeys, ActivateNextWindow,%A_Space% IniRead, FindTableToAct,StarsHotKeys.ini, Hotkeys, FindTableToAct,%A_Space% IniRead, GotoTable,StarsHotKeys.ini, Hotkeys, GotoTable,%A_Space% IniRead, Register,StarsHotKeys.ini, Hotkeys, Register,%A_Space% IniRead, JoinWaitlist,StarsHotKeys.ini, Hotkeys, JoinWaitlist,%A_Space% IniRead, Suspend,StarsHotKeys.ini, Hotkeys, Suspend,%A_Space% ; Added by Amerzel IniRead, BlindBetSizeHotkey,StarsHotKeys.ini, BlindBetSize, BlindBetSizeHotkey,%A_Space% IniRead, BigBlind0,StarsHotKeys.ini, BlindBetSize, BigBlind0,%A_Space% IniRead, BigBlind1,StarsHotKeys.ini, BlindBetSize, BigBlind1,%A_Space% IniRead, BigBlind2,StarsHotKeys.ini, BlindBetSize, BigBlind2,%A_Space% IniRead, BigBlind3,StarsHotKeys.ini, BlindBetSize, BigBlind3,%A_Space% IniRead, BigBlind4,StarsHotKeys.ini, BlindBetSize, BigBlind4,%A_Space% IniRead, BigBlind5,StarsHotKeys.ini, BlindBetSize, BigBlind5,%A_Space% IniRead, BigBlind6,StarsHotKeys.ini, BlindBetSize, BigBlind6,%A_Space% IniRead, BigBlind7,StarsHotKeys.ini, BlindBetSize, BigBlind7,%A_Space% IniRead, BigBlind8,StarsHotKeys.ini, BlindBetSize, BigBlind8,%A_Space% IniRead, BigBlind9,StarsHotKeys.ini, BlindBetSize, BigBlind9,%A_Space% IniRead, BigBlind0Amt,StarsHotKeys.ini, BlindBetSize, BigBlind0Amt,%A_Space% IniRead, BigBlind1Amt,StarsHotKeys.ini, BlindBetSize, BigBlind1Amt,%A_Space% IniRead, BigBlind2Amt,StarsHotKeys.ini, BlindBetSize, BigBlind2Amt,%A_Space% IniRead, BigBlind3Amt,StarsHotKeys.ini, BlindBetSize, BigBlind3Amt,%A_Space% IniRead, BigBlind4Amt,StarsHotKeys.ini, BlindBetSize, BigBlind4Amt,%A_Space% IniRead, BigBlind5Amt,StarsHotKeys.ini, BlindBetSize, BigBlind5Amt,%A_Space% IniRead, BigBlind6Amt,StarsHotKeys.ini, BlindBetSize, BigBlind6Amt,%A_Space% IniRead, BigBlind7Amt,StarsHotKeys.ini, BlindBetSize, BigBlind7Amt,%A_Space% IniRead, BigBlind8Amt,StarsHotKeys.ini, BlindBetSize, BigBlind8Amt,%A_Space% IniRead, BigBlind9Amt,StarsHotKeys.ini, BlindBetSize, BigBlind9Amt,%A_Space% IniRead, BigBlindDefault,StarsHotKeys.ini, BlindBetSize, BigBlindDefault,%A_Space% IniRead, instantbbs,StarsHotKeys.ini, BlindBetSize, instantbbs,0 } ;----------------------------------------------------------------------------------------------------- CreateIni() { global CloseMsgBox:=True CheckWhenFree:=True AutoRegister:=True MouseJump:=False ClickImBack:=True SendNumpad:=True SendCtrl:=True ActOnActiveTable:=True activatetableundermouse:=False instantallin:=False increment1:=2.5 increment2:=3 increment3:=4 increment4:=5 increment5:=6 NextWindow_Up_Alt1=f14 NextWindow_Down_Alt1=f16 NextWindow_Left_Alt1=f13 NextWindow_Right_Alt1=f15 ActivateBottomWindow=PgDn ActivateNextWindow=PgUp ; Added by Amerzel BigBlind0=20 BigBlind1=30 BigBlind2=50 BigBlind3=100 BigBlind4=150 BigBlind5=200 BigBlind6=400 BigBlind7=600 BigBlind8=800 BigBlind9=1200 BigBlindDefault=2.5 WriteIni() } ;----------------------------------------------------------------------------------------------------- WriteIni() { global If CloseMsgBox IniWrite, %CloseMsgBox%, StarsHotkeys.ini, Options, CloseMsgBox If CheckWhenFree IniWrite, %CheckWhenFree%, StarsHotkeys.ini,Options, CheckWhenFree If AutoRegister IniWrite, %AutoRegister%, StarsHotkeys.ini,Options, AutoRegister If MouseJump IniWrite, %MouseJump%, StarsHotkeys.ini,Options, MouseJump If ClickImBack IniWrite, %ClickImBack%, StarsHotkeys.ini,Options,ClickImBack If SendNumpad IniWrite, %Sendnumpad%, StarsHotkeys.ini,Options, SendNumpad If SendCtrl IniWrite, %SendCtrl%, StarsHotkeys.ini, Options, SendCtrl If NeverFoldForFree IniWrite, %NeverFoldForFree%, StarsHotkeys.ini, Options, NeverFoldForFree If ActOnActiveTable IniWrite, %ActOnActiveTable%, StarsHotkeys.ini, Options, ActOnActiveTable If activatetableundermouse IniWrite, %activatetableundermouse%, StarsHotkeys.ini, Options, activatetableundermouse If autorefreshinfo IniWrite, %autorefreshinfo%, StarsHotkeys.ini, Options, autorefreshinfo If autoopeninfo IniWrite, %autoopeninfo%, StarsHotkeys.ini, Options, autoopeninfo If BlackTheme IniWrite, %BlackTheme%, StarsHotkeys.ini, Options, BlackTheme If ClassicTheme IniWrite, %ClassicTheme%, StarsHotkeys.ini, Options, ClassicTheme If SlickTheme IniWrite, %SlickTheme%, StarsHotkeys.ini, Options, SlickTheme If CustomTheme IniWrite, %CustomTheme%, StarsHotkeys.ini, Options, CustomTheme If TakeSeat IniWrite, %TakeSeat%, StarsHotkeys.ini, Options, TakeSeat If instantallin IniWrite, %instantallin%, StarsHotkeys.ini, Options, instantallin If instantxbb IniWrite, %instantxbb%, StarsHotkeys.ini, Options, instantxbb If HighlightActiveTable ; added by CheeseMoney IniWrite, %HighlightActiveTable%, StarsHotkeys.ini, Options, HighlightActiveTable If EnableJoyMovement IniWrite, %EnableJoyMovement%, StarsHotkeys.ini, Options, EnableJoyMovement If increment1 IniWrite, %increment1%, StarsHotkeys.ini, Increments, Increment1 If increment2 IniWrite, %increment2%, StarsHotkeys.ini, Increments, Increment2 If increment3 IniWrite, %increment3%, StarsHotkeys.ini, Increments, Increment3 If increment4 IniWrite, %increment4%, StarsHotkeys.ini, Increments, Increment4 If increment5 IniWrite, %increment5%, StarsHotkeys.ini, Increments, Increment5 If FocusBetBox IniWrite, %FocusBetBox%, StarsHotkeys.ini, Hotkeys, FocusBetBox If FoldB IniWrite, %FoldB%, StarsHotkeys.ini, Hotkeys, FoldB If CheckCall IniWrite, %CheckCall%, StarsHotkeys.ini, Hotkeys, CheckCall If Raise IniWrite, %Raise%, StarsHotkeys.ini, Hotkeys, Raise If Allin IniWrite, %Allin%, StarsHotkeys.ini, Hotkeys, Allin If DecreaseBet33 IniWrite, %DecreaseBet33%, StarsHotkeys.ini, Hotkeys, DecreaseBet33 If SitOutNext IniWrite, %SitOutNext%, StarsHotkeys.ini, Hotkeys, SitOutNext If SitOutNextAll IniWrite, %SitOutNextAll%, StarsHotkeys.ini, Hotkeys, SitOutNextAll If IncreaseBet125 IniWrite, %IncreaseBet125%, StarsHotkeys.ini, Hotkeys, IncreaseBet125 If DecreaseBet20 IniWrite, %DecreaseBet20%, StarsHotkeys.ini, Hotkeys, DecreaseBet20 If IncreaseBet150 IniWrite, %IncreaseBet150%, StarsHotkeys.ini, Hotkeys, IncreaseBet150 If BetIncrement1 IniWrite, %BetIncrement1%, StarsHotkeys.ini, Hotkeys, BetIncrement1 If BetIncrement2 IniWrite, %BetIncrement2%, StarsHotkeys.ini, Hotkeys, BetIncrement2 If BetIncrement3 IniWrite, %BetIncrement3%, StarsHotkeys.ini, Hotkeys, BetIncrement3 If BetIncrement4 IniWrite, %BetIncrement4%, StarsHotkeys.ini, Hotkeys, BetIncrement4 If BetIncrement5 IniWrite, %BetIncrement5%, StarsHotkeys.ini, Hotkeys, BetIncrement5 If ReloadMax IniWrite, %ReloadMax%, StarsHotkeys.ini, Hotkeys, ReloadMax If FoldToAnyBet IniWrite, %FoldToAnyBet%, StarsHotkeys.ini, Hotkeys, FoldToAnyBet If Cashier IniWrite, %Cashier%, StarsHotkeys.ini, Hotkeys, Cashier If Cascade IniWrite, %Cascade%, StarsHotkeys.ini, Hotkeys, Cascade If Tile IniWrite, %Tile%, StarsHotkeys.ini, Hotkeys, Tile If CloseTournamentLobbies IniWrite, %CloseTournamentLobbies%, StarsHotkeys.ini, Hotkeys, CloseTournamentLobbies If OpenHHWindow IniWrite, %OpenHHWindow%, StarsHotkeys.ini, Hotkeys, OpenHHWindow If SaveHandHistory IniWrite, %SaveHandHistory%, StarsHotkeys.ini, Hotkeys, SaveHandHistory If Layout1 IniWrite, %Layout1%, StarsHotkeys.ini, Hotkeys, Layout1 If Layout2 IniWrite, %Layout2%, StarsHotkeys.ini, Hotkeys, Layout2 If Layout3 IniWrite, %Layout3%, StarsHotkeys.ini, Hotkeys, Layout3 If Layout4 IniWrite, %Layout4%, StarsHotkeys.ini, Hotkeys, Layout4 If Layout5 IniWrite, %Layout5%, StarsHotkeys.ini, Hotkeys, Layout5 If Layout6 IniWrite, %Layout6%, StarsHotkeys.ini, Hotkeys, Layout6 If Layout7 IniWrite, %Layout7%, StarsHotkeys.ini, Hotkeys, Layout7 If Layout8 IniWrite, %Layout8%, StarsHotkeys.ini, Hotkeys, Layout8 If ToggleMouseJump IniWrite, %ToggleMouseJump%, StarsHotkeys.ini, Hotkeys, ToggleMouseJump If ToggleClickImBack IniWrite, %ToggleClickImBack%, StarsHotkeys.ini, Hotkeys, ToggleClickImBack If ToggleAutoRegister IniWrite, %ToggleAutoRegister%, StarsHotkeys.ini, Hotkeys, ToggleAutoRegister If ToggleCloseMsgBox IniWrite, %ToggleCloseMsgBox%, StarsHotkeys.ini, Hotkeys, ToggleCloseMsgBox If OpenLobby IniWrite, %OpenLobby%, StarsHotkeys.ini, Hotkeys, OpenLobby If CloseActiveTable IniWrite, %CloseActiveTable%, StarsHotkeys.ini, Hotkeys, CloseActiveTable If CloseAllTables IniWrite, %CloseAllTables%, StarsHotkeys.ini, Hotkeys, CloseAllTables If NextWindow_Up IniWrite, %NextWindow_Up%, StarsHotkeys.ini, Hotkeys, NextWindow_Up If NextWindow_Down IniWrite, %NextWindow_Down%, StarsHotkeys.ini, Hotkeys, NextWindow_Down If NextWindow_Left IniWrite, %NextWindow_Left%, StarsHotkeys.ini, Hotkeys, NextWindow_Left If NextWindow_Right IniWrite, %NextWindow_Right%, StarsHotkeys.ini, Hotkeys, NextWindow_Right If NextWindow_Up_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Up_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Up_Alt1 If NextWindow_Down_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Down_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Down_Alt1 If NextWindow_Left_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Left_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Left_Alt1 If NextWindow_Right_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Right_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Right_Alt1 If ActivateBottomWindow IniWrite, %ActivateBottomWindow%, StarsHotkeys.ini, Hotkeys, ActivateBottomWindow If ActivateNextWindow IniWrite, %ActivateNextWindow%, StarsHotkeys.ini, Hotkeys, ActivateNextWindow If FindTableToAct IniWrite, %FindTableToAct%, StarsHotkeys.ini, Hotkeys, FindTableToAct If GotoTable IniWrite, %GotoTable%, StarsHotkeys.ini, Hotkeys, GotoTable If Register IniWrite, %Register%, StarsHotkeys.ini, Hotkeys, Register If JoinWaitlist IniWrite, %JoinWaitlist%, StarsHotkeys.ini, Hotkeys, JoinWaitlist If Suspend IniWrite, %Suspend%, StarsHotkeys.ini, Hotkeys, Suspend IniWrite, %fold%, StarsHotkeys.ini, options, fold ; Added by Amerzel If BlindBetSizeHotkey IniWrite, %BlindBetSizeHotkey%, StarsHotkeys.ini, BlindBetSize, BlindBetSizeHotkey If BigBlind0 IniWrite, %BigBlind0%, StarsHotkeys.ini, BlindBetSize, BigBlind0 If BigBlind1 IniWrite, %BigBlind1%, StarsHotkeys.ini, BlindBetSize, BigBlind1 If BigBlind2 IniWrite, %BigBlind2%, StarsHotkeys.ini, BlindBetSize, BigBlind2 If BigBlind3 IniWrite, %BigBlind3%, StarsHotkeys.ini, BlindBetSize, BigBlind3 If BigBlind4 IniWrite, %BigBlind4%, StarsHotkeys.ini, BlindBetSize, BigBlind4 If BigBlind5 IniWrite, %BigBlind5%, StarsHotkeys.ini, BlindBetSize, BigBlind5 If BigBlind6 IniWrite, %BigBlind6%, StarsHotkeys.ini, BlindBetSize, BigBlind6 If BigBlind7 IniWrite, %BigBlind7%, StarsHotkeys.ini, BlindBetSize, BigBlind7 If BigBlind8 IniWrite, %BigBlind8%, StarsHotkeys.ini, BlindBetSize, BigBlind8 If BigBlind9 IniWrite, %BigBlind9%, StarsHotkeys.ini, BlindBetSize, BigBlind9 If BigBlind0Amt IniWrite, %BigBlind0Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind0Amt If BigBlind1Amt IniWrite, %BigBlind1Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind1Amt If BigBlind2Amt IniWrite, %BigBlind2Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind2Amt If BigBlind3Amt IniWrite, %BigBlind3Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind3Amt If BigBlind4Amt IniWrite, %BigBlind4Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind4Amt If BigBlind5Amt IniWrite, %BigBlind5Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind5Amt If BigBlind6Amt IniWrite, %BigBlind6Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind6Amt If BigBlind7Amt IniWrite, %BigBlind7Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind7Amt If BigBlind8Amt IniWrite, %BigBlind8Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind8Amt If BigBlind9Amt IniWrite, %BigBlind9Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind9Amt If BigBlindDefault IniWrite, %BigBlindDefault%, StarsHotkeys.ini, BlindBetSize, BigBlindDefault If instantbbs IniWrite, %instantbbs%, StarsHotkeys.ini, BlindBetSize, instantbbs If AutoOn IniWrite, %AutoOn%, StarsHotkeys.ini, Options, AutoOn } ;----------------------------------------------------------------------------------------------------- Highlight() { global OldActiveWinID := ActiveWinID OldX := ActiveX OldY := ActiveY OldW := ActiveW OldH := ActiveH ActiveWinID := WinExist("A") WinGetActiveStats,ActiveTitle, ActiveW, ActiveH, ActiveX, ActiveY WinGetClass, ActiveWinClass, A WinGet, WinProcess, ProcessName, A ;traytip,,activeWinID: %ActiveWinID%`nClass: %ActiveWinClass% ;if ((WinProcess = "PokerStars.exe") ) if (ActiveWinClass = "PokerStarsTableFrameClass") { If (OldActiveWinID <> ActiveWinID) || ((OldX <> ActiveX || OldY <> ActiveY || OldW <> ActiveW || OldH <> ActiveH))
drawborder(ActiveWinID)
}
else ; if ((ActiveWinClass != "PokerStarsTableFrameClass"))
gui, 99:destroy
}
Drawborder(Win = "A")
{
global
;traytip,,drawborder,1
borderthickness = 13
;borderColor = Purple
borderColor = FF00A0 ; light purple
borderTrans = 200
Gui, 99:+ToolWindow -SysMenu -Caption +AlwaysOnTop
Gui, 99:Color, %borderColor%
Gui, 99:Show, Hide x1 y1 w1 h1 NA, borderGuard
WinSet, Transparent, %borderTrans%, borderGuard
SysGet, SM_CYCAPTION, 4 ;get height of caption area
SysGet, SM_CYEDGE, 46 ;thickness of the 3-d border
captionArea := SM_CYCAPTION + SM_CYEDGE
Critical, On
WinGetClass, aClass, A
WinGetActiveTitle, aTitle
MouseGetPos,,my
DetectHiddenWindows, Off
WinGetPos, ax, ay, aw, ah, ahk_id %Win%; redundant
DetectHiddenWindows, On
old_ax := ax, old_ay := ay, old_aw := aw, old_ah := ah ;save the size and pos state vars
currColor := %currBox%_borderColor
Gui, 99:Color, %borderColor% ;%currColor% ;set the color
WinGet, winState, MinMax, A
If(winState = 1) ;1 = Maximized
{
;Gui, 99:Hide ; added by Cheese
Gui, 99:Destroy ; added by Cheese
old_ax = 0 ;added by Cheese - reset one of the size and pos state vars
Critical Off
return
}
Else If(winState = -1) ;-1 = minimized
{
;Gui, 99:Hide
Gui, 99:Destroy
old_ax = 0 ;reset one of the size and pos state vars
return
}
Else ;neither maximized nor minimized
{
iw := aw + borderThickness ;set w,h for inner rect
ih := ah + borderThickness
iw1 := aw + (borderThickness*2) ;set w,h for outer rect
ih1 := ah + (borderThickness*2)
ix := ax - borderThickness
iy := ay - borderThickness
WinSet, Region, 0-0 %iw1%-0 %iw1%-%ih1% 0-%ih1% 0-0 %borderThickness%-%borderThickness% %iw%-%borderThickness% %iw%-%ih% %borderThickness%-%ih% %borderThickness%-%borderThickness%, borderGuard ;create gui with a hollow center
}
Gui, 99:Show, x%ix% y%iy% w%iw1% h%ih1% NA ;size and position the border gui
WinActivate ahk_id%win%
Critical Off
Return
}
relStarsClientPoint(id, ByRef x, ByRef y)
{
global border
global caption
rw := 792
rh := 546
WinGetPos, , , w, h, ahk_id%id%
w := w - (2*border)
h := h - (2*border) - caption
x := Floor( (x / rw ) * w )
y := Floor( (y / rh) * h )
}
relStarsClientPointMax(id, ByRef x, ByRef y)
{
SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4
WinGetPos, , , w, h, ahk_id%id%
w := w - (2*xbord)
h := h - (2*ybord) - cap
Transform, X, Floor, W*x
Transform, Y, Floor, H*y
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This Section Taken From BetPot, Thanks to Dave, Juk, Roland, and I'm sure others...
;Juks rocks
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% } PostStarsClick(x, y, id) { relStarsClientPoint(id, x, y) PostLeftClick(x, y, id) } CallStars(id) { PostStarsClick(600,533,id) } RaiseStars(id) { PostStarsClick(730,520,id) } FoldStars(id) { PostStarsClick(415,501,id) } ;;;;;;;;;;;;;;;;;;;;;;;;;;;;End BetPot.ahk Section ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; Joystick Bindkeys ;;;;;;;;;;;;;;;;;;;;; ; for some reason, these seem to have to be defined ;;;; ; even though they don't do anything, and are handled ; above (see NextWindow_Up_Alt1, etc...) ;;;;;;;;;;;;;;; F13:: F14:: F15:: F16:: return ~^!q:: ExitApp return PixelColorA(colx,coly,id) { global back_x1 SysGet, xbord, 32 SysGet, ybord, 33 SysGet, cap, 4 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|128|1024) x:=floor(((W-2*xbord)*colx) + xbord) y:=floor(((H-(2*ybord)-cap)*coly) + ybord + cap) pix := DllCall("GetPixel", UInt, hdc_buffer, Int, x , Int, y) x:=floor(((W-2*xbord)*back_x1) + xbord) pix1 := DllCall("GetPixel", UInt, hdc_buffer, Int, x , Int, y) SetFormat, IntegerFast, hex pix += 0 pix .= "" pix1 += 0 pix1 .= "" SetFormat, IntegerFast, d pix.="-" . pix1 DllCall( "gdi32.dll\DeleteObject", "uint", hbm_buffer ) DllCall( "gdi32.dll\ReleaseDC" , "uint", hdc_frame ) DllCall( "gdi32.dll\DeleteDC" , "uint", hdc_frame ) DllCall( "gdi32.dll\DeleteDC" , "uint", hdc_buffer ) return pix } ;===================================================================== ;===================================================================== /* License: * NextWindow v0.1 by Xander * GNU General Public License 3.0 or higher: http://www.gnu.org/licenses/gpl-3.0.txt * * Usage: * Navigate windows that match the specified title. * * Listeners: * Supports Listening for a specific class that has been activated by defining an OnActivate_%class% subroutine. * * Example: * #IfWinActive ahk_class Notepad * Left:: NextWindow_Left("ahk_class Notepad") * Right:: NextWindow_Right("ahk_class Notepad") * Up:: NextWindow_Up("ahk_class Notepad") * Down:: NextWindow_Down("ahk_class Notepad") * * Listener Example: * GroupAdd, Windows, ahk_class Notepad * GroupAdd, Windows, ahk_class TfPSPad * #IfWinActive ahk_group Windows * Left:: NextWindow_Left("ahk_group Windows") * Right:: NextWindow_Right("ahk_group Windows") * Up:: NextWindow_Up("ahk_group Windows") * Down:: NextWindow_Down("ahk_group Windows") * OnActivate_TfPSPad: * MsgBox, PSPad was activated * return */ NextWindow_Calc(ByRef perp, ByRef parallel, ByRef id, ByRef min, ByRef minID) { parallel /= 2 d := Sqrt(parallel*parallel+perp*perp) if (d < min) { min := d minID := id } } NextWindow_Activate(Byref id1, ByRef id2, Byref id3) { local id := id1 ? id1 : id2 ? id2 : id3 ? id3 : "" if !id return WinActivate, ahk_id %id% local window WinGetClass, window, ahk_id %id% window := "OnActivate_" . window if IsLabel(window) GoSub, %window% } NextWindow_Left(title) { WinGet, cId, ID, A ;WinGetPos, cX, cY, cw, cH, ahk_id %cid% WinGetPos, cX, cY, , cH cH_half := cH/2 min := A_ScreenWidth minRight := min maxY := 0 maxX := 0 WinGet windows, List, %title% Loop, %windows% { id := windows%A_Index% if (id == cID) continue WinGetPos, x, y, w, , ahk_id %id% dx := cX - x if (dx < 0) { dx := A_ScreenWidth - x - w if (dx < 0) dx := 0 dy := y - cY if (dy < 0) NextWindow_Calc(dy, dx, id, minRight, minRightID) } else if (dx > 9) {
dy := abs(cY - y)
if (dy < cH_half) NextWindow_Calc(dy, dx, id, min, minID) } if (y >= maxY) {
if (x >= maxX || y > maxY + cH) {
maxX := x
maxY := y
oppID := id
}
}
}
NextWindow_Activate(minId, minRightID, oppID)
}
NextWindow_Right(title) {
WinGet, cId, ID
WinGetPos, cX, cY, , cH
cH_half := cH/2
min := A_ScreenWidth
minLeft := min
minY := min
minX := min
WinGet windows, List, %title%
Loop, %windows% {
id := windows%A_Index%
if (id == cID)
continue
WinGetPos, x, y, w, , ahk_id %id%
dx := x - cX
if (dx < 0) { dx := x if (dx < 0) dx := 0 dy := cY - y if (dy < 0) NextWindow_Calc(dy, dx, id, minLeft, minLeftID) } else if (dx > 9) {
dy := abs(cY - y)
if (dy < cH_half) NextWindow_Calc(dy, dx, id, min, minID) } if (y <= minY) { if (x <= minX || y < minY - cH_half) { minX := x minY := y oppID := id } } } NextWindow_Activate(minId, minLeftID, oppID) } NextWindow_Up(title) { WinGet, cID, ID WinGetPos, cX, cY, cW cW_half := cW/2 min := A_ScreenHeight minDown := min minX := min maxY := 0 WinGet windows, List, %title% Loop, %windows% { id := windows%A_Index% if (id == cID) continue WinGetPos, x, y, , h, ahk_id %id% dy := cY - y if (dy < 0) { dy := A_ScreenHeight - y - h if (dy < 0) dy := 0 dx := cX - x if (dx < 0) NextWindow_Calc(dx, dy, id, minDown, minDownId) } else if (dy > 9) {
dx := abs(cX - x)
if (dx < cW_half) NextWindow_Calc(dx, dy, id, min, minID) } if (x <= minX) { if (y >= maxY || x < minX - cW_half) { minX := x maxY := y oppID := id } } } NextWindow_Activate(minId, minDownID, oppID) } NextWindow_Down(title) { WinGet, cID, ID WinGetPos, cX, cY, cW cW_half := cW/2 min := A_ScreenWidth minUp := min maxX := 0 minY := min WinGet windows, List, %title% Loop, %windows% { id := windows%A_Index% if (id == cID) continue WinGetPos, x, y, , , ahk_id %id% dy := y - cY dx := x - cX if (dy < 0) { dy := y if (dy < 0) dy := 0 dx := x - cX if (dx < 0) NextWindow_Calc(dx, dy, id, minUp, minUpID) } else if (dy > 9) {
dx := abs(cX - x)
if (dx < cW_half) NextWindow_Calc(dx, dy, id, min, minID) } if (x >= maxX) {
if (y <= minY || x > maxX + cW_half) {
maxX := x
minY := y
oppID := id
}
}
}
NextWindow_Activate(minId, minUpID, oppID)
}
;added border by merging portions of TableNavigator - thanks to Wickss + Original Authors of TableNavigator - CheeseMoney
; #SingleInstance ignore
#SingleInstance, force ; changed by CheeseMoney - allows script to be reloaded
#NoEnv
#Persistent
SetTitleMatchMode RegEx
;#Include NextWindow.ahk
SysGet, border, 32 ; added by CheeseMoney - needed for PostStarsClick
SysGet, caption, 4 ; added by CheeseMoney - needed for PostStarsClick
caption := border + caption ; added by CheeseMoney - needed for PostStarsClick
SendHotKeyOnlyWhenStarsIsActive = 0 ; added by CheeseMoney - needed for PostStarsClick
debug = 0
Menu, Tray, NoStandard
Menu, TRAY, Add, Settings, Settings
Menu, TRAY, Default, Settings
Menu, TRAY, Add, Reload, Reload
Menu, TRAY, Add, Edit, Edit ; added by CheeseMoney for easy script editing
Menu, TRAY, Add, Exit, Quit
GroupAdd, PSTables, ahk_class PokerStarsTableFrameClass
ReadIni()
DefineHotKeys()
;VxE's Joystick Watch Script
; thread here http://www.autohotkey.com/forum/viewtopic.php?t=26659&highlight=dpad
JoystickRefreshTime := 5
setwindelay,-1
if AutoRegister
settimer,AutoRegister,50
settimer,act,39
Loop
{
IsTableNew()
if TakeSeat
TakeSeat()
If (EnableJoyMovement)
{
SetTimer, WatchAxis, %JoystickRefreshTime%
SetKeyDelay, -1
}
else
{
SetTimer, WatchAxis, off
SetKeyDelay, 10
}
If CheckWhenFree
CheckWhenFree()
If CloseMsgBox
AutoCloseMessageBox()
ClickImBack()
If activatetableundermouse
activatetableundermouse()
;highlightactivetable = 1
If highlightactivetable ; added by CheeseMoney
HighLight() ; added by CheeseMoney - may rewrite as a timer in future versions
Sleep 100
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;JOYSTICK SECTION;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; monitor Joystick and send fake F-key - program then waits ;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; for these hotkeys and acts on them for table navigation ;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; VxE's Joystick Watch Script
; thread here http://www.autohotkey.com/forum/viewtopic.php?t=26659&highlight=dpad
;SetTimer, WatchAxis, 5
;SetKeyDelay -1
WatchAxis:
GetKeyState, JoyX, JoyX ; Get position of X axis.
GetKeyState, JoyY, JoyY ; Get position of Y axis.
KeyToHoldDownPrev := KeyToHoldDown
YKeyToHoldDownPrev := YKeyToHoldDown
; KeyToHoldDown := ( JoyX > 70 ? "F15" : ( JoyX < 30 ? "F13" : "" )) ; YKeyToHoldDown := ( JoyY > 70 ? "F16" : ( JoyY < 30 ? "F14" : "" )) KeyToHoldDown := ( JoyX > 70 ? NextWindow_Right_Alt1 : ( JoyX < 30 ? NextWindow_Left_Alt1 : "" )) YKeyToHoldDown := ( JoyY > 70 ? NextWindow_Down_Alt1 : ( JoyY < 30 ? NextWindow_Up_Alt1 : "" )) if ( YKeyToHoldDown != YKeyToHoldDownPrev ) Send % "{blind}" . (( YKeyToHoldDownPrev ? "{" . YKeyToHoldDownPrev . " up}" : "" ) . ( YKeyToHoldDown ? "{" . YKeyToHoldDown . " down}" : "" )) if ( KeyToHoldDown != KeyToHoldDownPrev ) Send % "{blind}" . (( KeyToHoldDownPrev ? "{" . KeyToHoldDownPrev . " up}" : "" ) . ( KeyToHoldDown ? "{" . KeyToHoldDown . " down}" : "" )) ;if (Debug) ; traytip,,NextWindow_Up_Alt1: %NextWindow_Up_Alt1% return ;----------------------------------------------------------------------------------------------------- act: act() return act() { winget,list,list, Logged In ahk_class PokerStarsTableFrameClass wingetclass,class,A wingettitle,title,A ifwinnotactive,ahk_id%list1% { if class=PokerStarsTableFrameClass if instr(title, "Logged In") winactivate,ahk_id%list1% } } return ;----------------------------------------------------------------------------------------------------- TakeSeat() { IfWinExist, PokerStars ahk_class #32770 { WinGet, list, list, Seat Available ahk_class #32770 Loop, %list% { This_id := list%A_Index% ControlFocus, Button2, ahk_id%this_id% Sleep, -1 ControlSend, Button2, {SPACE}, ahk_id%this_id% } } } return ;----------------------------------------------------------------------------------------------------- IsTableNew() { global WinGetActiveTitle, T StringTrimRight, T, T, 1 If (T<>Oldtitle)
{
IfWinActive ahk_class PokerStarsTableFrameClass
{
winget, idnew, id, A
WinGetPos, A, B, w, h, ahk_id %idnew%
SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4
w := w - (2*xbord)
h := h - (2*ybord) - cap
if (h>200) and (w>200)
{
If Autoopeninfo
{
If BlackTheme
{
Transform, X, Round, W*0.4210
Transform, Y, Round, H*0.7690
Transform, X, Floor, W*0.4210
Transform, Y, Floor, H*0.7690
}
If ClassicTheme
{
Transform, X, Round, W*0.2631
Transform, Y, Round, H*0.7584
Transform, X, Floor, W*0.2631
Transform, Y, Floor, H*0.7584
}
If SlickTheme
{
Transform, X, Round, W*0.4108
Transform, Y, Round, H*0.8029
Transform, X, Floor, W*0.4108
Transform, Y, Floor, H*0.8029
}
If CustomTheme
{
Transform, X, Round, W*0.3249
Transform, Y, Round, H*0.7832
Transform, X, Floor, W*0.3249
Transform, Y, Floor, H*0.7832
}
PostLeftClick(X, Y, idnew, 0)
}
If autorefreshinfo
{
WinGetPos, A, B, X, Y, A
If BlackTheme
{
Transform, X, Round, W*0.4210
Transform, Y, Round, H*0.8156
Transform, X, Floor, W*0.4210
Transform, Y, Floor, H*0.8156
}
If ClassicTheme
{
Transform, X, Round, W*0.2631
Transform, Y, Round, H*0.8093
Transform, X, Floor, W*0.2631
Transform, Y, Floor, H*0.8093
}
If SlickTheme
{
Transform, X, Round, W*0.4108
Transform, Y, Round, H*0.8516
Transform, X, Floor, W*0.4108
Transform, Y, Floor, H*0.8516
}
If CustomTheme
{
Transform, X, Round, W*0.3249
Transform, Y, Round, H*0.8338
Transform, X, Floor, W*0.3249
Transform, Y, Floor, H*0.8338
}
ControlGet, Z, Visible,,PokerStarsChatClass1, ahk_id %idnew%
if not Z
ControlGet, Z, Visible,,PokerStarsNoteEditorClass1, ahk_id %idnew%
if not Z
PostLeftClick(X, Y, idnew, 0)
}
If MouseJump
{
WinGetPos, A, B, X, Y, A
MouseMove (X*0.5),(Y*0.5), 1
If SendCtrl
Send {Ctrl}
}
}
}
Oldtitle =%T%
}
}
;-----------------------------------------------------------------------------------------------------
activatetableundermouse()
{
If winactive("ahk_class PokerStarsTableFrameClass") or winactive("PokerStars Lobby")
{
MousegetPos,,,WinID
WinGetClass, class, ahk_id %WinID%
WinGetTitle, title, ahk_id %WinID%
if (class="PokerStarsTableFrameClass") or (instr(title,"PokerStars Lobby"))
winactivate, ahk_id %WinID%
}
}
return
;-----------------------------------------------------------------------------------------------------
AutoRegister:
{
IfWinExist Tournament Registration
;Control, Check,,Button1, Tournament Registration
ControlFocus, OK, Tournament Registration
sleep,-1
ControlClick, OK, Tournament Registration
}
return
;-----------------------------------------------------------------------------------------------------
CheckWhenFree()
{
IfWinExist, PokerStars, Check
{
ControlClick, Check
}
return
}
;-----------------------------------------------------------------------------------------------------
AutoCloseMessageBox()
{
SetTitleMatchMode, 3
IfWinExist, PokerStars,OK
WinClose
IfWinExist,ahk_class #32770,OK
{
WinGetTitle, title,
Needle:=" "
StringGetPos,pos, title,%Needle%
If pos>=0
{
settitlematchmode, 2
StringLeft, tablename, title, %pos%
tname:="Tournament " . tablename
IfWinExist, %tname%,
ControlClick, OK, %title%,OK
}
}
SetTitleMatchMode RegEx
return
}
;-----------------------------------------------------------------------------------------------------
Suspend:
Suspend
return
;-----------------------------------------------------------------------------------------------------
Cascade:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
Loop
{
SendInput C
sleep 100
ifwinactive, Options
winactivate, Options
else
break
}
return
;-----------------------------------------------------------------------------------------------------
Tile:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
Loop
{
SendInput T
sleep 100
ifwinactive, Options
winactivate, Options
else
break
}
return
;-----------------------------------------------------------------------------------------------------
Layout1:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 5}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout2:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 6}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout3:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 7}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout4:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 8}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout5:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 9}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout6:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 10}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout7:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 11}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
Layout8:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick,x%CX% y%CY%,ahk_id %WinID%,,,,NA
Loop
{
WinWait, Options
Winactivate, Options
SetControlDelay, -1
ControlClick, Button13, Options,,,,NA
sleep 100
Send {down 12}
Send {Enter}
WinWaitClose, Options,,1
If (!ErrorLevel)
Break
}
return
;-----------------------------------------------------------------------------------------------------
CloseTournamentLobbies:
GroupAdd, Lobbies, Tournament.*Lobby
GroupClose Lobbies, A
return
;-----------------------------------------------------------------------------------------------------
SaveHandHistory:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
WinGetPos, A, B, X, Y, ahk_id %WinID%
CX:=X*0.5
CY:=Y*0.145
ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA
WinWait, Options
SetControlDelay, -1
ControlClick, Button5, Options,,,,NA
WinWait, Instant Hand History,, 3
WinActivate, Instant Hand History
ControlFocus, PokerStarsViewClass1, Instant Hand History
send ^a
send ^c
FileAppend `n, %A_Desktop%\pokerstarsHH.txt
FileAppend %Clipboard%, %A_Desktop%\pokerstarsHH.txt
WinClose, Instant Hand History
return
;-----------------------------------------------------------------------------------------------------
HHSaveHandHistory:
ControlFocus, PokerStarsViewClass1, Instant Hand History
send ^a
send ^c
FileAppend `n, %A_Desktop%\pokerstarsHH.txt
FileAppend %Clipboard%, %A_Desktop%\pokerstarsHH.txt
return
;-----------------------------------------------------------------------------------------------------
ToggleMouseJump:
If (MouseJump=true)
{
MouseJump:=false
T=Off
}
else
{
MouseJump:=true
T=On
}
Gui, 2:Add, Text,, MouseJump: %T%
Gui, 2:+ToolWindow
Gui, 2:Show, w110 h20
Sleep, 1000
Gui, 2:Destroy
return
;-----------------------------------------------------------------------------------------------------
FindTableToAct:
WinGet, V, List, ahk_class PokerStarsTableFrameClass
Loop, %V%
{
Y:=V%A_Index%
ControlGet, Z, Visible,,PokerStarsSliderClass1, ahk_id %Y%
WingetTitle, T, ahk_id %Y%
If Z
{
WinActivate, ahk_id %Y%
Break
}
}
return
;-----------------------------------------------------------------------------------------------------
ActivateNextWindow:
Send !{Esc}
return
;-----------------------------------------------------------------------------------------------------
ActivateBottomWindow:
GroupActivate, PSTables
return
;-----------------------------------------------------------------------------------------------------
IncreaseBet125:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID%
Transform, RawRaiseAmount, Round, MinRaiseAmount*1.25, 3
RaiseAmount:=RoundNum(RawRaiseAmount)
ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID%
return
;-----------------------------------------------------------------------------------------------------
FocusBetBox:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
Winactivate, ahk_id %WinID%
ControlSetText, PokerStarsSliderEditorClass1,,ahk_id %WinID%
ControlFocus, PokerStarsSliderEditorClass1, ahk_id %WinID%
return
;-----------------------------------------------------------------------------------------------------
FoldB:
If ActOnActiveTable
WinGet, WinId, ID, A
else
MousegetPos,,,WinID
WinGetClass, class, ahk_id %WinID%
if class=PokerstarsTableFrameClass
{
Winactivate, ahk_id %WinID%
WinGetPos, x, y, w, h, ahk_id %WinID%
SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4
w := w - (2*xbord)
h := h - (2*ybord) - cap
Transform, X, Floor, W*0.59
Transform, Y, Floor, H*0.93
PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%WinID% PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%WinID% } return ;----------------------------------------------------------------------------------------------------- CheckCall: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ;KeyWait, %A_ThisHotkey%, T.5 ;If errorlevel ;{ ;;Soundplay, *16 ;return ;} Winactivate, ahk_id %WinID% WinGetPos, A, B, X, Y, ahk_id %WinID% CX:= X*0.756 CY:= Y*.94 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA CX:= X*0.69 CY:= Y*0.87 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA return ;----------------------------------------------------------------------------------------------------- Raise: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetClass, class, ahk_id %WinID% if class=PokerstarsTableFrameClass { Winactivate, ahk_id %WinID% WinGetPos, x, y, w, h, ahk_id %WinID% SysGet, xbord, 32 SysGet, ybord, 33 SysGet, cap, 4 w := w - (2*xbord) h := h - (2*ybord) - cap Transform, X, Floor, W*0.8860 Transform, Y, Floor, H*0.9241 PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%WinID% PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%WinID% } return ;----------------------------------------------------------------------------------------------------- OpenLobby: WinActivate PokerStars Lobby WinGetPos, A, B, X, Y, A MouseMove (X*0.5),(Y*0.5), 4 return ;----------------------------------------------------------------------------------------------------- FoldToAnyBet: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, w, h, ahk_id %WinID% SysGet, xbord, 32 SysGet, ybord, 33 SysGet, cap, 4 w := w - (2*xbord) h := h - (2*ybord) - cap Transform, X, Floor, W*0.0158 Transform, Y, Floor, H*0.6467 PostMessage, 0x201, 0x0001, ((y<<16)^x), , ahk_id%winID% PostMessage, 0x202 , 0, ((y<<16)^x), , ahk_id%winID% return ;----------------------------------------------------------------------------------------------------- IncreaseBet150: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID% Transform, RawRaiseAmount, Round, (MinRaiseAmount*1.5), 3 RaiseAmount:=RoundNum(RawRaiseAmount) ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% return ;----------------------------------------------------------------------------------------------------- SitOutNext: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.0213 CY:=Y*0.70 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA return ;----------------------------------------------------------------------------------------------------- SitOutNextAll: IfWinActive, ahk_class PokerStarsTableFrameClass WinGet, WinId, ID, A WinGet, list, List, ahk_class PokerStarsTableFrameClass Loop, %list% { Z:=list%A_Index% WinGetPos, X, Y, W, H, ahk_id %Z% Sittingout:=PixelColorA(0.8125,0.8621,Z) JoinWaitingList:=PixelColorA(0.8625,0.8621,Z) If (Sittingout=0x000000) OR (Sittingout=0xDFD9CE) OR (Sittingout=0xD2EBF3) OR (Sittingout=0xB3A39D) OR (Sittingout=0x9D9D9D) OR (Sittingout=0xCCCCCC) OR (Sittingout=0xDEDBCE) OR (Sittingout=0xB5A29c) OR (Sittingout=0xBDAEAD) OR (Sittingout=0xFCF8F2) If (JoinWaitingList!=0x000000) AND (JoinWaitingList!=0xDFD9CE) AND (JoinWaitingList!=0xDEDBCE) AND (JoinWaitingList!=0x0xB5A29c) AND (JoinWaitingList!=0xBDAEAD) sit:=true else { backx:=0.0141 backy:=0.6840 relStarsClientPointMax(Z, backx, backy) PostLeftClick(backx, backy, Z, 0) } } winactivate, ahk_id %winid% return ;----------------------------------------------------------------------------------------------------- AllIn: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlSetText, PokerStarsSliderEditorClass1, 999999, ahk_id %WinID% If InstantAllin gosub, raise return ;----------------------------------------------------------------------------------------------------- AutoPostBlind: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.0213 CY:=Y*0.738 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA return ;----------------------------------------------------------------------------------------------------- OpenHHWindow: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID IfWinNotExist, Instant Hand History { WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.5 CY:=Y*0.14655 SendInput {Click %CX%, %CY%} WinWait, Options SetControlDelay, -1 ControlClick, Button5, Options,,,,NA } else { WinClose, Instant Hand History } return ;----------------------------------------------------------------------------------------------------- GotoTable: ControlGet, Black, Visible,, PokerStarsButtonClass1, PokerStars Lobby If black { ControlGet, TLobby, Visible,, PokerStarsButtonClass9, PokerStars Lobby ControlGet, GotoTablebutton, Visible,, PokerStarsButtonClass10, PokerStars Lobby If (TLobby=1) { ControlClick, PokerStarsButtonClass9, PokerStars Lobby } else { If (GotoTablebutton=1) ControlClick, PokerStarsButtonClass10, PokerStars Lobby } } else { ControlGet, TLobby, Visible,, PokerStarsButtonClass8, PokerStars Lobby ControlGet, GotoTablebutton, Visible,, PokerStarsButtonClass9, PokerStars Lobby If (TLobby=1) { ControlClick, PokerStarsButtonClass8, PokerStars Lobby } else { If (GotoTablebutton=1) ControlClick, PokerStarsButtonClass9, PokerStars Lobby } } return ;----------------------------------------------------------------------------------------------------- Register: ControlGet, Black, Visible,, PokerStarsButtonClass1, PokerStars Lobby If black { ControlGet, Registerbutton, Visible,, PokerStarsButtonClass8, PokerStars Lobby ControlGet, Unregister, Visible,, PokerStarsButtonClass6, PokerStars Lobby If (Registerbutton=1) { ControlClick, PokerStarsButtonClass8, PokerStars Lobby } else { If (Unregister=1) ControlClick, PokerStarsButtonClass6, PokerStars Lobby } } else { ControlGet, Registerbutton, Visible,, PokerStarsButtonClass7, PokerStars Lobby ControlGet, Unregister, Visible,, PokerStarsButtonClass5, PokerStars Lobby If (Registerbutton=1) { ControlClick, PokerStarsButtonClass7, PokerStars Lobby } else { If (Unregister=1) ControlClick, PokerStarsButtonClass5, PokerStars Lobby } } return ;----------------------------------------------------------------------------------------------------- TournamentLobbyRegister: ControlGet, Register, Visible,, PokerStarsButtonClass6, Tournament.*Lobby ControlGet, Unregister, Visible,, PokerStarsButtonClass4, Tournament.*Lobby If (Register=1) { ControlClick, PokerStarsButtonClass6, Tournament.*Lobby } else { If (Unregister=1) ControlClick, PokerStarsButtonClass4, Tournament.*Lobby } return ;----------------------------------------------------------------------------------------------------- JoinWaitlist: ControlGet, Black, Visible,, PokerStarsButtonClass1, PokerStars Lobby If black { ControlGet, Join, Visible,, PokerStarsButtonClass4, PokerStars Lobby ControlGet, Leave, Visible,, PokerStarsButtonClass3, PokerStars Lobby If (Join=1) { ControlClick, PokerStarsButtonClass4, PokerStars Lobby SetControlDelay -1 ControlClick, Button1, Waiting List } else { If (Leave=1) ControlClick, PokerStarsButtonClass3, PokerStars Lobby } } else { ControlGet, Join, Visible,, PokerStarsButtonClass3, PokerStars Lobby ControlGet, Leave, Visible,, PokerStarsButtonClass2, PokerStars Lobby If (Join=1) { ControlClick, PokerStarsButtonClass3, PokerStars Lobby SetControlDelay -1 ControlClick, Button1, Waiting List } else { If (Leave=1) ControlClick, PokerStarsButtonClass2, PokerStars Lobby } } return ;----------------------------------------------------------------------------------------------------- Cashier: IfWinExist Cashier { WinActivate Cashier SetControlDelay -1 ControlClick, PokerStarsButtonClass8, Cashier } else { WinActivate PokerStars Lobby WinMenuSelectItem, PokerStars Lobby,, Lobby, Cashier... } return ;----------------------------------------------------------------------------------------------------- DecreaseBet20: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID% Transform, RawRaiseAmount, Round, (MinRaiseAmount*.8), 3 RaiseAmount:=RoundNum(RawRaiseAmount) ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% return ;----------------------------------------------------------------------------------------------------- DecreaseBet33: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID ControlGetText MinRaiseAmount, PokerStarsSliderEditorClass1, ahk_id %WinID% Transform, RawRaiseAmount, Round, (MinRaiseAmount/3*2), 3 RaiseAmount:=RoundNum(RawRaiseAmount) ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% return ;----------------------------------------------------------------------------------------------------- ReloadMax: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetPos, A, B, X, Y, ahk_id %WinID% CX:=X*0.5 CY:=Y*0.145 ControlClick, x%CX% y%CY%, ahk_id %WinID%,,,,NA WinWait, Options SetControlDelay, -1 ControlClick, Button4, Options WinWait, Buy-in,,3 Control, Check,, Button1, Buy-in ControlClick, Button3, Buy-in return ;----------------------------------------------------------------------------------------------------- CloseAllTables: GroupClose, PSTables, A Loop { WinWait, Table*,,1 WinActivate, Table* If (ErrorLevel=1) break SetControlDelay -1 ControlClick, Button1, Table* } return ;----------------------------------------------------------------------------------------------------- CloseActiveTable: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, Title, ahk_id %WinID% IfInString Title, Logged In as SittingAtTable:=true SetTitleMatchMode 2 WinClose, %Title% SetTitleMatchMode RegEx ;If SittingAtTable ;{ ;WinWaitActive, Table*,,2 ;SetControlDelay -1 ;ControlClick, Button1, Table* ;} return ;----------------------------------------------------------------------------------------------------- BetIncrement1: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment1, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement2: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment2, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement3: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment3, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement4: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment4, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- BetIncrement5: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 Transform, RaiseAmount, Round, Bigblind * Increment5, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% If Instantxbb gosub, raise return ;----------------------------------------------------------------------------------------------------- NumpadBetAmount: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID StringRight, n, A_ThisHotkey, 1 If A_ThisHotkey=NumpadDot n:="." ControlGetFocus, c, ahk_id %WinID% If c=PokerStarsSliderEditorClass1 ControlSend, PokerStarsSliderEditorClass1, %n%, ahk_id %WinID% else { ControlSetText, PokerStarsSliderEditorClass1,,ahk_id %WinID% ControlFocus, PokerStarsSliderEditorClass1, ahk_id %WinID% ControlSend, PokerStarsSliderEditorClass1, %n%,ahk_id %WinID% } return ;----------------------------------------------------------------------------------------------------- NextWindow_Left: NextWindow_Left("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Right: NextWindow_Right("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Up: NextWindow_Up("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Down: NextWindow_Down("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Left_Alt1: ;if (debug) ; traytip,,Left_Alt1,2 NextWindow_Left("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Right_Alt1: ;if (debug) ; traytip,,Right_Alt1,2 NextWindow_Right("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Up_Alt1: ;if (debug) ; traytip,,Up_Alt1,2 NextWindow_Up("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- NextWindow_Down_Alt1: ;if (debug) ; traytip,,Down_Alt1,2 NextWindow_Down("ahk_class PokerStarsTableFrameClass") return ;----------------------------------------------------------------------------------------------------- ; Added by Amerzel ;----------------------------------------------------------------------------------------------------- BlindBetSizeHotkey: If ActOnActiveTable WinGet, WinId, ID, A else MousegetPos,,,WinID WinGetTitle, title, ahk_id %WinID% Slash := Instr(title, "/") + 2 Space := Instr(title, " ", false, Slash) BBLength := Space - Slash StringMid, Bigblind, title, Slash, BBLength IfInString, Bigblind, - { StringTrimRight, Bigblind, Bigblind, 1 } SetFormat, Float, 0.2 If (Bigblind == BigBlind0) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind0Amt%, ahk_id %WinID% else If (Bigblind == BigBlind1) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind1Amt%, ahk_id %WinID% else If (Bigblind == BigBlind2) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind2Amt%, ahk_id %WinID% else If (Bigblind == BigBlind3) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind3Amt%, ahk_id %WinID% else If (Bigblind == BigBlind4) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind4Amt%, ahk_id %WinID% else If (Bigblind == BigBlind5) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind5Amt%, ahk_id %WinID% else If (Bigblind == BigBlind6) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind6Amt%, ahk_id %WinID% else If (Bigblind == BigBlind7) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind7Amt%, ahk_id %WinID% else If (Bigblind == BigBlind8) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind8Amt%, ahk_id %WinID% else If (Bigblind == BigBlind9) ControlSetText, PokerStarsSliderEditorClass1, %BigBlind9Amt%, ahk_id %WinID% else { Transform, RaiseAmount, Round, Bigblind * BigBlindDefault, 2 ControlSetText, PokerStarsSliderEditorClass1, %RaiseAmount%, ahk_id %WinID% } If instantbbs gosub, raise return ;----------------------------------------------------------------------------------------------------- RoundNum(x) { WinGetTitle, Title, A IfInString Title, Tournament { if X between 0 and 100 R:=5 if X between 100 and 400 R:=5 if X between 400 and 1000 R:=25 if X between 1000 and 3000 R:=50 if X between 3000 and 5000 R:=100 if X between 5000 and 20000 R:=200 if X between 20000 and 100000 R:=500 if X between 100000 and 200000 R:=1000 if X between 200000 and 500000 R:=2000 if X between 500000 and 1000000 R:=5000 if X between 1000000 and 200000000000000 R:=10000 } else { if X between 0 and 1 R:=0.01 if X between 1 and 2 R:=0.05 if X between 2 and 3 R:=0.1 if X between 3 and 10 R:=0.25 if X between 10 and 25 R:=0.5 if X between 25 and 50 R:=1 if X between 50 and 100 R:=2 if X between 100 and 400 R:=5 if X between 400 and 1000 R:=10 if X between 1000 and 5000 R:=25 if X between 5000 and 20000 R:=50 if X between 20000 and 100000000 R:=100 } SetFormat, float, 0.2 Transform V, Round, (X/R) N:=(V*R) return N } ;----------------------------------------------------------------------------------------------------- Settings: Menu, HelpMenu, Add, Help, Help Menu, HelpMenu, Add, About, About Menu, Menubar, Add, Help, :HelpMenu Gui, Menu, MenuBar ; Gui, Add, Tab, x-4 y0 w500 h750 , Table Hotkeys|Blind Bet Size Hotkey|Other Hotkeys|Options Gui, Add, Text, x6 y30 w240 h20 , Fold Gui, Add, Edit, x246 y30 w240 h20 vFoldB, %FoldB% Gui, Add, Text, x6 y50 w240 h20 , Check/Call Gui, Add, Edit, x246 y50 w240 h20 vCheckCall, %CheckCall% Gui, Add, Text, x6 y70 w240 h20 , Raise Gui, Add, Edit, x246 y70 w240 h20 vRaise, %Raise% Gui, Add, Text, x6 y90 w240 h20 , All In Gui, Add, Edit, x246 y90 w240 h20 vAllIn, %AllIn% Gui, Add, CheckBox, x166 y90 w80 h20 Checked%instantallin% vinstantallin, Instant Bet Gui, Add, Text, x6 y110 w240 h20 , Increase Bet 25`% Gui, Add, Edit, x246 y110 w240 h20 vIncreaseBet125, %IncreaseBet125% Gui, Add, Text, x6 y130 w240 h20 , Decrease Bet 20`% Gui, Add, Edit, x246 y130 w240 h20 vDecreaseBet20, %DecreaseBet20% Gui, Add, Text, x6 y150 w240 h20 , Increase Bet 50`% Gui, Add, Edit, x246 y150 w240 h20 vIncreaseBet150, %IncreaseBet150% Gui, Add, Text, x6 y170 w240 h20 , Decrease Bet 33`% Gui, Add, Edit, x246 y170 w240 h20 vDecreaseBet33, %DecreaseBet33% Gui, Add, Text, x6 y190 w20 h20 , Bet Gui, Add, Edit, x26 y185 w25 h20 vincrement1, %increment1% Gui, Add, Text, x51 y190 w40 h20 , x BB Gui, Add, CheckBox, x166 y190 w80 h20 Checked%instantxbb% vinstantxbb, Instant Bet Gui, Add, Edit, x246 y190 w240 h20 vBetIncrement1, %BetIncrement1% Gui, Add, Text, x6 y210 w20 h20 , Bet Gui, Add, Edit, x26 y205 w25 h20 vincrement2, %increment2% Gui, Add, Text, x51 y210 w40 h20, x BB Gui, Add, Edit, x246 y210 w240 h20 vBetIncrement2, %BetIncrement2% Gui, Add, Text, x6 y230 w20 h20 , Bet Gui, Add, Edit, x26 y225 w25 h20 vincrement3, %increment3% Gui, Add, Text, x51 y230 w40 h20, x BB Gui, Add, Edit, x246 y230 w240 h20 vBetIncrement3, %BetIncrement3% Gui, Add, Text, x6 y250 w20 h20 , Bet Gui, Add, Edit, x26 y245 w25 h20 vincrement4, %increment4% Gui, Add, Text, x51 y250 w40 h20, x BB Gui, Add, Edit, x246 y250 w240 h20 vBetIncrement4, %BetIncrement4% Gui, Add, Text, x6 y270 w20 h20 , Bet Gui, Add, Edit, x26 y265 w25 h20 vincrement5, %increment5% Gui, Add, Text, x51 y270 w40 h20, x BB Gui, Add, Edit, x246 y270 w240 h20 vBetIncrement5, %BetIncrement5% Gui, Add, Text, x6 y290 w240 h20, Send Cursor To Bet Box Gui, Add, Edit, x246 y290 w240 h20 vFocusBetBox, %FocusBetBox% Gui, Add, Text, x6 y310 w240 h20 , Fold To Any Bet Gui, Add, Edit, x246 y310 w240 h20 vFoldToAnyBet, %FoldToAnyBet% Gui, Add, Text, x6 y330 w240 h20 , Sit Out Next Hand Gui, Add, Edit, x246 y330 w240 h20 vSitOutNext, %SitOutNext% Gui, Add, Text, x6 y350 w240 h20 , Sit Out On All Tables Gui, Add, Edit, x246 y350 w240 h20 vSitOutNextAll, %SitOutNextAll% Gui, Add, Text, x6 y370 w240 h20 , Open Hand History Window Gui, Add, Edit, x246 y370 w240 h20 vOpenHHWindow, %OpenHHWindow% Gui, Add, Text, x6 y390 w240 h20 , Save Hand History Gui, Add, Edit, x246 y390 w240 h20 vSaveHandHistory, %SaveHandHistory% Gui, Add, Text, x6 y410 w240 h20 , Rebuy For Full Amount Gui, Add, Edit, x246 y410 w240 h20 vReloadMax, %ReloadMax% Gui, Add, Text, x6 y430 w240 h20 , Tile Tables Gui, Add, Edit, x246 y430 w240 h20 vTile, %Tile% Gui, Add, Text, x6 y450 w240 h20 , Cascade Tables Gui, Add, Edit, x246 y450 w240 h20 vCascade, %Cascade% Gui, Add, Text, x6 y470 w240 h20 , Table Layout 1 Gui, Add, Edit, x246 y470 w240 h20 vLayout1, %Layout1% Gui, Add, Text, x6 y490 w240 h20 , Table Layout 2 Gui, Add, Edit, x246 y490 w240 h20 vLayout2, %Layout2% Gui, Add, Text, x6 y510 w240 h20 , Table Layout 3 Gui, Add, Edit, x246 y510 w240 h20 vLayout3, %Layout3% Gui, Add, Text, x6 y530 w240 h20 , Table Layout 4 Gui, Add, Edit, x246 y530 w240 h20 vLayout4, %Layout4% Gui, Add, Text, x6 y550 w240 h20 , Table Layout 5 Gui, Add, Edit, x246 y550 w240 h20 vLayout5, %Layout5% Gui, Add, Text, x6 y570 w240 h20 , Table Layout 6 Gui, Add, Edit, x246 y570 w240 h20 vLayout6, %Layout6% Gui, Add, Text, x6 y590 w240 h20 , Table Layout 7 Gui, Add, Edit, x246 y590 w240 h20 vLayout7, %Layout7% Gui, Add, Text, x6 y610 w240 h20 , Table Layout 8 Gui, Add, Edit, x246 y610 w240 h20 vLayout8, %Layout8% Gui, Add, Button, x205 y645 w50 h20 gSave,Save Gui, Add, Button, x260 y645 w55 h20 gCancel1,Cancel Gui, Tab, Other Hotkeys Gui, Font, S8 CDefault Bold, Verdana Gui, Add, Text, x6 y30 w240 h20 , Lobby Hotkeys Gui, Font, S8 CDefault norm, Verdana Gui, Add, Text, x6 y50 w240 h20 , Open Table or Tournament Gui, Add, Edit, x246 y50 w240 h20 vGotoTable, %GotoTable% Gui, Add, Text, x6 y70 w240 h20 , Register/Unregister Gui, Add, Edit, x246 y70 w240 h20 vRegister, %Register% Gui, Add, Text, x6 y90 w240 h20 , Waitlist Gui, Add, Edit, x246 y90 w240 h20 vJoinWaitlist, %JoinWaitlist% Gui, Add, Text, x6 y110 w240 h20 , Cashier Gui, Add, Edit, x246 y110 w240 h20 vCashier, %cashier% Gui, Font, S8 CDefault Bold, Verdana Gui, Add, Text, x6 y150 w240 h20 , Navigation Hotkeys Gui, Font, S8 CDefault norm, Verdana Gui, Add, CheckBox, x230 y150 w240 h20 checked%EnableJoyMovement% vEnableJoyMovement,Enable D-Pad Joystick Table Movement Gui, Add, Text, x6 y170 w240 h20 , Up Gui, Add, Edit, x246 y170 w120 h20 vNextWindow_Up, %NextWindow_Up% Gui, Add, Edit, x366 y170 w120 h20 vNextWindow_Up_Alt1, %NextWindow_Up_Alt1% Gui, Add, Text, x6 y190 w240 h20 , Down Gui, Add, Edit, x246 y190 w120 h20 vNextWindow_Down, %NextWindow_Down% Gui, Add, Edit, x366 y190 w120 h20 vNextWindow_Down_Alt1, %NextWindow_Down_Alt1% Gui, Add, Text, x6 y210 w240 h20 , Left Gui, Add, Edit, x246 y210 w120 h20 vNextWindow_Left, %NextWindow_Left% Gui, Add, Edit, x366 y210 w120 h20 vNextWindow_Left_Alt1, %NextWindow_Left_Alt1% Gui, Add, Text, x6 y230 w240 h20 , Right Gui, Add, Edit, x246 y230 w120 h20 vNextWindow_Right, %NextWindow_Right% Gui, Add, Edit, x366 y230 w120 h20 vNextWindow_Right_Alt1, %NextWindow_Right_Alt1% Gui, Add, Text, x6 y250 w240 h20 , Activate Next Table Gui, Add, Edit, x246 y250 w240 h20 vActivateNextWindow, %ActivateNextWindow% Gui, Add, Text, x6 y270 w240 h20 , Activate Bottom Table Gui, Add, Edit, x246 y270 w240 h20 vActivateBottomWindow, %ActivateBottomWindow% Gui, Add, Text, x6 y290 w240 h20 , Find Table Needing Action Gui, Add, Edit, x246 y290 w240 h20 vFindTableToAct, %FindTableToAct% Gui, Add, Text, x6 y310 w240 h20 , Open Lobby Gui, Add, Edit, x246 y310 w240 h20 vOpenLobby, %OpenLobby% Gui, Font, S8 CDefault Bold, Verdana Gui, Add, Text, x6 y350 w240 h20 , Miscellaneous Hotkeys Gui, Font, S8 CDefault norm, Verdana Gui, Add, Text, x6 y370 w240 h20 , Suspend Hotkeys Gui, Add, Edit, x246 y370 w240 h20 vSuspend, %Suspend% Gui, Add, Text, x6 y390 w240 h20 , Close All Tournament Lobbies Gui, Add, Edit, x246 y390 w240 h20 vCloseTournamentLobbies, %CloseTournamentLobbies% Gui, Add, Text, x6 y410 w240 h20 , Close Active Table Gui, Add, Edit, x246 y410 w240 h20 vCloseActiveTable, %CloseActiveTable% Gui, Add, Text, x6 y430 w240 h20 , Close All Tables Gui, Add, Edit, x246 y430 w240 h20 vCloseAllTables, %CloseAllTables% ;Gui, Add, Button, x205 y455 w40 h20 gSave,Save ;Gui, Add, Button, x250 y455 w45 h20 gcancel1,Cancel Gui, Add, Button, x205 y485 w50 h20 gSave,Save ; changed by cheese Gui, Add, Button, x260 y485 w55 h20 gcancel1,Cancel ; changed by cheese Gui, Tab, Options Gui, Add, CheckBox, x6 y30 w480 h20 Checked%MouseJump% vMouseJump, Move Mouse To Active Table Gui, Add, Text, x26 y50 w220 h20 , Toggle Mouse Jump Gui, Add, Edit, x246 y50 w240 h20 vTogglemousejump, %Togglemousejump% Gui, Add, CheckBox, x26 y70 w460 h20 Checked%SendCtrl% vSendCtrl, Send Ctrl After MouseJump Gui, Add, CheckBox, x6 y90 w480 h20 Checked%AutoRegister% vAutoRegister, AutoRegister for Tournaments Gui, Add, Text, x26 y110 w220 h20 , Toggle AutoRegister Gui, Add, Edit, x246 y110 w240 h20 vtoggleautoregister, %toggleautoregister% Gui, Add, CheckBox, x6 y130 w480 h20 Checked%CloseMsgBox% vcloseMsgBox, AutoClose Messge Boxes Gui, Add, Text, x26 y150 w220 h20 , Toggle AutoClose Gui, Add, Edit, x246 y150 w240 h20 vToggleCloseMsgBox, %ToggleCloseMsgBox% Gui, Add, CheckBox, x6 y170 w480 h20 Checked%ClickImBack% vClickImBack, Never Sit Out Gui, Add, Text, x26 y190 w220 h20 , Toggle Never Sit Out Gui, Add, Edit, x246 y190 w240 h20 vToggleClickImBack, %ToggleClickImBack% Gui, Add, CheckBox, x6 y210 w480 h20 Checked%SendNumpad% vSendNumpad, Send Numpad Characters To Bet Box Gui, Add, CheckBox, x6 y230 w480 h20 Checked%CheckwhenFree% vCheckwhenFree, Never Fold For Free Gui, Add, Radio, x6 y250 w480 h20 vActOnActiveTable Checked%ActOnActiveTable%, Send Actions To Active Table Gui, Add, Radio, x6 y270 w480 h20 vActOnTableUnderMouse Checked%ActOnTableUnderMouse%, Send Actions To Table Under Mouse Cursor Gui, Add, CheckBox, x6 y290 w480 h20 Checked%activatetableundermouse% vactivatetableundermouse, Autoactivate Table Under Mouse Cursor Gui, Add, CheckBox, x6 y310 w480 h20 Checked%autoopeninfo% vautoopeninfo, Automatically Open Info Tab Gui, Add, CheckBox, x6 y330 w480 h20 Checked%autorefreshinfo% vautorefreshinfo, Automatically Refresh Info Tab Gui, Add, Radio, x26 y390 w480 h20 Checked%ClassicTheme% vClassicTheme, Classic Theme Gui, Add, Radio, x26 y410 w480 h20 Checked%BlackTheme% vBlackTheme, Black Theme Gui, Add, Radio, x26 y430 w480 h20 Checked%SlickTheme% vSlickTheme, Slick Theme Gui, Add, Radio, x26 y450 w480 h20 Checked%CustomTheme% vCustomTheme, Custom Theme Gui, Add, CheckBox, x6 y350 w480 h20 Checked%highlightactivetable% vhighlightactivetable,Highlight Active Table Gui, Add, CheckBox, x6 y370 w480 h20 Checked%TakeSeat% vTakeSeat, Auto take seat Gui, Add, Button, x205 y475 w50 h20 gSave,Save Gui, Add, Button, x260 y475 w55 h20 gcancel1,Cancel ; Variable raise sizes based on size of big blind. Added by Amerzel Gui, Tab, Blind Bet Size Hotkey Gui, Add, Text, x6 y30 w240 h40 , Hotkey to use for raise size based on size of big blind Gui, Add, Edit, x246 y30 w240 h20 vBlindBetSizeHotkey, %BlindBetSizeHotkey% Gui, Add, CheckBox, x246 y50 w80 h20 Checked%instantbbs% vinstantbbs, Instant Bet Gui, Add, Text, x6 y90 w240 h20 , Big Blind Size Gui, Add, Edit, x6 y110 w140 h20 vBigBlind0, %BigBlind0% Gui, Add, Edit, x6 y130 w140 h20 vBigBlind1, %BigBlind1% Gui, Add, Edit, x6 y150 w140 h20 vBigBlind2, %BigBlind2% Gui, Add, Edit, x6 y170 w140 h20 vBigBlind3, %BigBlind3% Gui, Add, Edit, x6 y190 w140 h20 vBigBlind4, %BigBlind4% Gui, Add, Edit, x6 y210 w140 h20 vBigBlind5, %BigBlind5% Gui, Add, Edit, x6 y230 w140 h20 vBigBlind6, %BigBlind6% Gui, Add, Edit, x6 y250 w140 h20 vBigBlind7, %BigBlind7% Gui, Add, Edit, x6 y270 w140 h20 vBigBlind8, %BigBlind8% Gui, Add, Edit, x6 y290 w140 h20 vBigBlind9, %BigBlind9% Gui, Add, Text, x156 y90 w240 h20 , Amount to Raise to Gui, Add, Edit, x156 y110 w140 h20 vBigBlind0Amt, %BigBlind0Amt% Gui, Add, Edit, x156 y130 w140 h20 vBigBlind1Amt, %BigBlind1Amt% Gui, Add, Edit, x156 y150 w140 h20 vBigBlind2Amt, %BigBlind2Amt% Gui, Add, Edit, x156 y170 w140 h20 vBigBlind3Amt, %BigBlind3Amt% Gui, Add, Edit, x156 y190 w140 h20 vBigBlind4Amt, %BigBlind4Amt% Gui, Add, Edit, x156 y210 w140 h20 vBigBlind5Amt, %BigBlind5Amt% Gui, Add, Edit, x156 y230 w140 h20 vBigBlind6Amt, %BigBlind6Amt% Gui, Add, Edit, x156 y250 w140 h20 vBigBlind7Amt, %BigBlind7Amt% Gui, Add, Edit, x156 y270 w140 h20 vBigBlind8Amt, %BigBlind8Amt% Gui, Add, Edit, x156 y290 w140 h20 vBigBlind9Amt, %BigBlind9Amt% Gui, Add, Text, x6 y330 w240 h40 , Default Multiplier to Use if BB Not Defined Above Gui, Add, Edit, x246 y330 w140 h20 vBigBlindDefault, %BigBlindDefault% Gui, Add, Button, x205 y645 w55 h20 gSave,Save Gui, Add, Button, x265 y645 w60 h20 gCancel1,Cancel Gui, Show, x131 y91 h750 w500, Stars Hotkeys Return ;----------------------------------------------------------------------------------------------------- Subm: Gui,1:Submit, NoHide if autoon boff:=true return ;----------------------------------------------------------------------------------------------------- Help: run http://www.wickss.com/ahk/starshotkeys/readme.html return ;----------------------------------------------------------------------------------------------------- about: Msgbox StarsHotkeys V1.008a Wickss' 1.008 version with Cheesemonkey and Amerzel additions return ;----------------------------------------------------------------------------------------------------- GuiClose: Gosub, Save return ;----------------------------------------------------------------------------------------------------- Reload: Reload return ;----------------------------------------------------------------------------------------------------- Save: Gui, Submit FileDelete, StarsHotkeys.ini Writeini() Reload return ;----------------------------------------------------------------------------------------------------- cancel1: Gui, Destroy Return ;----------------------------------------------------------------------------------------------------- Quit: ExitApp Edit: Edit Return ;----------------------------------------------------------------------------------------------------- ClickImBack() { global ClickImBack Settitlematchmode,2 If ClickImBack { winget,list,list, ahk_class PokerStarsTableFrameClass loop %list% { back_x:=0.8125 back_y:=0.8621 id:=list%A_index% col:=PixelColorA(back_x,back_y,id) stringsplit,c,col,- Sittingout:=c1 JoinWaitingList:=c2 If (Sittingout=0x000000) OR (Sittingout=0xDFD9CE) OR (Sittingout=0xD2EBF3) OR (Sittingout=0xB3A39D) OR (Sittingout=0x9D9D9D) OR (Sittingout=0xCCCCCC) OR (Sittingout=0xDEDBCE) OR (Sittingout=0xB5A29c) OR (Sittingout=0xBDAEAD) OR (Sittingout=0x343434) OR (Sittingout=0x444444) OR (Sittingout=0x333333) If (JoinWaitingList!=0x000000) AND (JoinWaitingList!=0xDFD9CE) AND (JoinWaitingList!=0xDEDBCE) AND (JoinWaitingList!=0x0xB5A29c) AND (JoinWaitingList!=0xBDAEAD) AND (JoinWaitingList!=0x1f1f1f) AND (JoinWaitingList!=0x343434) AND (JoinWaitingList!=0x0202020) AND (JoinWaitingList!=0xe6e6e6) AND (JoinWaitingList!=0xdddddd) AND (JoinWaitingList!=0x1e1e1e) AND (JoinWaitingList!=0xb0b0b0) { relstarsclientpointmax(id,back_x,back_y) postleftclick(back_x,back_y,id,0) } } } Return } ;----------------------------------------------------------------------------------------------------- ToggleClickImBack: If ClickImBack { ClickImBack:=False T=Off } else { ClickImBack:=True T=On } Gui, 2:Add, Text,, Never Sit Out: %T% Gui, 2:+ToolWindow Gui, 2:Show, w110 h20 Sleep, 1000 Gui, 2:Destroy return ;----------------------------------------------------------------------------------------------------- ToggleCloseMsgBox: If (CloseMsgBox=true) { CloseMsgBox:=false T=Off } else { CloseMsgBox:=true T=On } Gui, 2:Add, Text,, AutoClose Message Box: %T% Gui, 2:+ToolWindow Gui, 2:Show, w150 h20 Sleep, 1000 Gui, 2:Destroy return ;----------------------------------------------------------------------------------------------------- ToggleAutoRegister: If (AutoRegister=true) { AutoRegister:=false T=Off } else { AutoRegister:=true T=On } Gui, 2:Add, Text,, AutoRegister: %T% Gui, 2:+ToolWindow Gui, 2:Show, w110 h20 Sleep, 1000 Gui, 2:Destroy return ;----------------------------------------------------------------------------------------------------- DefineHotKeys() { Global If FoldB { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FoldB%, FoldB } If CheckCall { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CheckCall%,CheckCall } If Raise { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Raise%, Raise } ; Added by Amerzel If BlindBetSizeHotkey { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BlindBetSizeHotkey%, BlindBetSizeHotkey } If AllIn { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %AllIn%, AllIn } If DecreaseBet33 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %DecreaseBet33%, DecreaseBet33 } If SitOutNext { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %SitOutNext%, SitOutNext } If SitOutNextAll { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %SitOutNextAll%, SitOutNextAll } If IncreaseBet150 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %IncreaseBet150%, IncreaseBet150 } If DecreaseBet20 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %DecreaseBet20%, DecreaseBet20 } If IncreaseBet125 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %IncreaseBet125%,IncreaseBet125 } If BetIncrement1 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement1%,BetIncrement1 } If BetIncrement2 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement2%,BetIncrement2 } If BetIncrement3 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement3%,BetIncrement3 } If BetIncrement4 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement4%,BetIncrement4 } If BetIncrement5 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %BetIncrement5%,BetIncrement5 } If FocusBetBox { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FocusBetBox%, FocusBetBox } If ReloadMax { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ReloadMax%, ReloadMax } If FoldToAnyBet { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FoldToAnyBet%, FoldToAnyBet } If Cashier { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, PokerStars Lobby Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, Cashier Hotkey, %Cashier%, Cashier Hotkey, IfWinActive, Instant Hand History Hotkey, %Cashier%, Cashier } If Cascade { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Cascade%, Cascade } If Tile { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Tile%, Tile } If Layout1 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout1%, Layout1 } If Layout2 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout2%, Layout2 } If Layout3 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout3%, Layout3 } If Layout4 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout4%, Layout4 } If Layout5 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout5%, Layout5 } If Layout6 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout6%, Layout6 } If Layout7 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout7%, Layout7 } If Layout8 { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %Layout8%, Layout8 } If CloseTournamentLobbies { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, PokerStars Lobby Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, Cashier Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies Hotkey, IfWinActive, Instant Hand History Hotkey, %CloseTournamentLobbies%, CloseTournamentLobbies } If OpenHHWindow { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %OpenHHWindow%, OpenHHWindow Hotkey, IfWinActive, Instant Hand History Hotkey, %OpenHHWindow%, OpenHHWindow } If SaveHandHistory { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %SaveHandHistory%, SaveHandHistory Hotkey, IfWinActive, Instant Hand History Hotkey, %SaveHandHistory%, HHSaveHandHistory } If ToggleMouseJump { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleMouseJump%, ToggleMouseJump } If ToggleClickImBack { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleClickImBack%, ToggleClickImBack } If ToggleAutoRegister { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, Cashier Hotkey, %ToggleAutoRegister%, ToggleAutoRegister Hotkey, IfWinActive, Instant Hand History Hotkey, %ToggleAutoRegister%, ToggleAutoRegister } If ToggleCloseMsgbox { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, Cashier Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox Hotkey, IfWinActive, Instant Hand History Hotkey, %ToggleCloseMsgbox%, ToggleCloseMsgbox } If OpenLobby { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %OpenLobby%, OpenLobby Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %OpenLobby%, OpenLobby Hotkey, IfWinActive, Instant Hand History Hotkey, %OpenLobby%, OpenLobby } If CloseActiveTable { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CloseActiveTable%, CloseActiveTable } If CloseAllTables { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %CloseAllTables%, CloseAllTables } If SendNumpad { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, Numpad0, NumpadBetAmount Hotkey, Numpad1, NumpadBetAmount Hotkey, Numpad2, NumpadBetAmount Hotkey, Numpad3, NumpadBetAmount Hotkey, Numpad4, NumpadBetAmount Hotkey, Numpad5, NumpadBetAmount Hotkey, Numpad6, NumpadBetAmount Hotkey, Numpad7, NumpadBetAmount Hotkey, Numpad8, NumpadBetAmount Hotkey, Numpad9, NumpadBetAmount Hotkey, NumpadDot, NumpadBetAmount } If NextWindow_Up { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Up%, NextWindow_Up } If NextWindow_Down { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Down%, NextWindow_Down } If NextWindow_Left { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Left%, NextWindow_Left } If NextWindow_Right { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Right%, NextWindow_Right } If NextWindow_Up_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Up_Alt1%, NextWindow_Up_Alt1 } If NextWindow_Down_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Down_Alt1%, NextWindow_Down_Alt1 } If NextWindow_Left_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Left_Alt1%, NextWindow_Left_Alt1 } If NextWindow_Right_Alt1 ; added by CheeseMoney for joystick movement { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %NextWindow_Right_Alt1%, NextWindow_Right_Alt1 } If ActivateBottomWindow { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, Cashier Hotkey, %ActivateBottomWindow%, ActivateBottomWindow Hotkey, IfWinActive, Instant Hand History Hotkey, %ActivateBottomWindow%, ActivateBottomWindow } If ActivateNextWindow { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, PokerStars Lobby Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, Cashier Hotkey, %ActivateNextWindow%, ActivateNextWindow Hotkey, IfWinActive, Instant Hand History Hotkey, %ActivateNextWindow%, ActivateNextWindow } If FindTableToAct { HotKey, IfWinActive, ahk_class PokerStarsTableFrameClass Hotkey, %FindTableToAct%, FindTableToAct Hotkey, IfWinActive, PokerStars Lobby Hotkey, %FindTableToAct%, FindTableToAct } If Register { Hotkey, IfWinActive, PokerStars Lobby Hotkey, %Register%, Register Hotkey, IfWinActive, Tournament.*Lobby Hotkey, %Register%, TournamentLobbyRegister } If GotoTable { Hotkey, IfWinActive, PokerStars Lobby Hotkey, %GotoTable%, GotoTable } If JoinWaitlist { Hotkey, IfWinActive, PokerStars Lobby Hotkey, %JoinWaitlist%, JoinWaitlist } If Suspend { Hotkey, IfWinActive Hotkey, %Suspend%, Suspend } } ;----------------------------------------------------------------------------------------------------- ReadIni() { global IfNotExist, StarsHotKeys.ini CreateIni() IniRead, CloseMsgBox,StarsHotKeys.ini, Options,CloseMsgBox, 0 IniRead, CheckWhenFree,StarsHotKeys.ini, Options,CheckWhenFree, 0 IniRead, AutoRegister,StarsHotKeys.ini, Options,AutoRegister, 0 IniRead, MouseJump,StarsHotKeys.ini, Options, MouseJump,0 IniRead, ClickImBack,StarsHotKeys.ini, Options, ClickImBack,0 IniRead, SendNumpad,StarsHotKeys.ini, Options, SendNumpad,0 IniRead, SendCtrl,StarsHotKeys.ini, Options, SendCtrl,0 IniRead, ActOnActiveTable,StarsHotKeys.ini, Options, ActOnActiveTable,0 IniRead, EnableJoyMovement,StarsHotKeys.ini, Options, EnableJoyMovement, 0 IniRead, HighlightActiveTable, StarsHotkeys.ini, Options, HighlightActiveTable, 0 If ActOnActiveTable ActOnTableUnderMouse:=False Else ActOnTableUnderMouse:=True IniRead, instantallin,StarsHotKeys.ini, Options, instantallin,0 IniRead, instantxbb,StarsHotKeys.ini, Options, instantxbb,0 IniRead, activatetableundermouse,StarsHotKeys.ini, Options, activatetableundermouse,0 IniRead, autoopeninfo,StarsHotKeys.ini, Options, autoopeninfo,0 IniRead, autorefreshinfo,StarsHotKeys.ini, Options, autorefreshinfo,0 IniRead, TakeSeat,StarsHotKeys.ini, Options, TakeSeat,0 IniRead, BlackTheme,StarsHotKeys.ini, Options, BlackTheme,0 IniRead, ClassicTheme,StarsHotKeys.ini, Options, ClassicTheme,0 IniRead, SlickTheme,StarsHotKeys.ini, Options, SlickTheme,0 IniRead, CustomTheme,StarsHotKeys.ini, Options, CustomTheme,0 IniRead, increment1,StarsHotKeys.ini, increments, increment1,0 IniRead, increment2,StarsHotKeys.ini, increments, increment2,0 IniRead, increment3,StarsHotKeys.ini, increments, increment3,0 IniRead, increment4,StarsHotKeys.ini, increments, increment4,0 IniRead, increment5,StarsHotKeys.ini, increments, increment5,0 IniRead, FocusBetBox,StarsHotKeys.ini, Hotkeys, FocusBetBox,%A_Space% IniRead, FoldB,StarsHotKeys.ini, Hotkeys, FoldB,%A_Space% IniRead, CheckCall,StarsHotKeys.ini, Hotkeys, CheckCall,%A_Space% IniRead, Raise,StarsHotKeys.ini, Hotkeys, Raise,%A_Space% IniRead, Allin,StarsHotKeys.ini, Hotkeys, Allin,%A_Space% IniRead, DecreaseBet33,StarsHotKeys.ini, Hotkeys, DecreaseBet33,%A_Space% IniRead, SitOutNext,StarsHotKeys.ini, Hotkeys, SitOutNext,%A_Space% IniRead, SitOutNextAll,StarsHotKeys.ini, Hotkeys, SitOutNextAll,%A_Space% IniRead, IncreaseBet150,StarsHotKeys.ini, Hotkeys, IncreaseBet150,%A_Space% IniRead, DecreaseBet20,StarsHotKeys.ini, Hotkeys, DecreaseBet20,%A_Space% IniRead, IncreaseBet125,StarsHotKeys.ini, Hotkeys, IncreaseBet125,%A_Space% IniRead, BetIncrement1,StarsHotKeys.ini, Hotkeys, BetIncrement1,%A_Space% IniRead, BetIncrement2,StarsHotKeys.ini, Hotkeys, BetIncrement2,%A_Space% IniRead, BetIncrement3,StarsHotKeys.ini, Hotkeys, BetIncrement3,%A_Space% IniRead, BetIncrement4,StarsHotKeys.ini, Hotkeys, BetIncrement4,%A_Space% IniRead, BetIncrement5,StarsHotKeys.ini, Hotkeys, BetIncrement5,%A_Space% IniRead, ReloadMax,StarsHotKeys.ini, Hotkeys, ReloadMax,%A_Space% IniRead, FoldToAnyBet,StarsHotKeys.ini, Hotkeys, FoldToAnyBet,%A_Space% IniRead, Cashier,StarsHotKeys.ini, Hotkeys, Cashier,%A_Space% IniRead, Cascade,StarsHotKeys.ini, Hotkeys, Cascade,%A_Space% IniRead, Tile,StarsHotKeys.ini, Hotkeys, Tile,%A_Space% IniRead, CloseTournamentLobbies,StarsHotKeys.ini, Hotkeys, CloseTournamentLobbies,%A_Space% IniRead, OpenHHWindow,StarsHotKeys.ini, Hotkeys, OpenHHWindow,%A_Space% IniRead, SaveHandHistory,StarsHotKeys.ini, Hotkeys, SaveHandHistory,%A_Space% IniRead, Layout1,StarsHotKeys.ini, Hotkeys, Layout1,%A_Space% IniRead, Layout2,StarsHotKeys.ini, Hotkeys, Layout2,%A_Space% IniRead, Layout3,StarsHotKeys.ini, Hotkeys, Layout3,%A_Space% IniRead, Layout4,StarsHotKeys.ini, Hotkeys, Layout4,%A_Space% IniRead, Layout5,StarsHotKeys.ini, Hotkeys, Layout5,%A_Space% IniRead, Layout6,StarsHotKeys.ini, Hotkeys, Layout6,%A_Space% IniRead, Layout7,StarsHotKeys.ini, Hotkeys, Layout7,%A_Space% IniRead, Layout8,StarsHotKeys.ini, Hotkeys, Layout8,%A_Space% IniRead, ToggleMouseJump,StarsHotKeys.ini, Hotkeys, ToggleMouseJump,%A_Space% IniRead, ToggleClickImBack,StarsHotKeys.ini, Hotkeys, ToggleClickImBack,%A_Space% IniRead, ToggleAutoRegister,StarsHotKeys.ini, Hotkeys, ToggleAutoRegister,%A_Space% IniRead, ToggleCloseMsgBox,StarsHotKeys.ini, Hotkeys, ToggleCloseMsgBox,%A_Space% IniRead, OpenLobby,StarsHotKeys.ini, Hotkeys, OpenLobby,%A_Space% IniRead, CloseActiveTable,StarsHotKeys.ini, Hotkeys, CloseActiveTable,%A_Space% IniRead, CloseAllTables,StarsHotKeys.ini, Hotkeys, CloseAllTables,%A_Space% IniRead, NextWindow_Up,StarsHotKeys.ini, Hotkeys, NextWindow_Up,%A_Space% IniRead, NextWindow_Down,StarsHotKeys.ini, Hotkeys, NextWindow_Down,%A_Space% IniRead, NextWindow_Left,StarsHotKeys.ini, Hotkeys, NextWindow_Left,%A_Space% IniRead, NextWindow_Right,StarsHotKeys.ini, Hotkeys, NextWindow_Right,%A_Space% IniRead, NextWindow_Up_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Up_Alt1,%A_Space% IniRead, NextWindow_Down_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Down_Alt1,%A_Space% IniRead, NextWindow_Left_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Left_Alt1,%A_Space% IniRead, NextWindow_Right_Alt1,StarsHotKeys.ini, Hotkeys, NextWindow_Right_Alt1,%A_Space% IniRead, ActivateBottomWindow,StarsHotKeys.ini, Hotkeys, ActivateBottomWindow,%A_Space% IniRead, ActivateNextWindow,StarsHotKeys.ini, Hotkeys, ActivateNextWindow,%A_Space% IniRead, FindTableToAct,StarsHotKeys.ini, Hotkeys, FindTableToAct,%A_Space% IniRead, GotoTable,StarsHotKeys.ini, Hotkeys, GotoTable,%A_Space% IniRead, Register,StarsHotKeys.ini, Hotkeys, Register,%A_Space% IniRead, JoinWaitlist,StarsHotKeys.ini, Hotkeys, JoinWaitlist,%A_Space% IniRead, Suspend,StarsHotKeys.ini, Hotkeys, Suspend,%A_Space% ; Added by Amerzel IniRead, BlindBetSizeHotkey,StarsHotKeys.ini, BlindBetSize, BlindBetSizeHotkey,%A_Space% IniRead, BigBlind0,StarsHotKeys.ini, BlindBetSize, BigBlind0,%A_Space% IniRead, BigBlind1,StarsHotKeys.ini, BlindBetSize, BigBlind1,%A_Space% IniRead, BigBlind2,StarsHotKeys.ini, BlindBetSize, BigBlind2,%A_Space% IniRead, BigBlind3,StarsHotKeys.ini, BlindBetSize, BigBlind3,%A_Space% IniRead, BigBlind4,StarsHotKeys.ini, BlindBetSize, BigBlind4,%A_Space% IniRead, BigBlind5,StarsHotKeys.ini, BlindBetSize, BigBlind5,%A_Space% IniRead, BigBlind6,StarsHotKeys.ini, BlindBetSize, BigBlind6,%A_Space% IniRead, BigBlind7,StarsHotKeys.ini, BlindBetSize, BigBlind7,%A_Space% IniRead, BigBlind8,StarsHotKeys.ini, BlindBetSize, BigBlind8,%A_Space% IniRead, BigBlind9,StarsHotKeys.ini, BlindBetSize, BigBlind9,%A_Space% IniRead, BigBlind0Amt,StarsHotKeys.ini, BlindBetSize, BigBlind0Amt,%A_Space% IniRead, BigBlind1Amt,StarsHotKeys.ini, BlindBetSize, BigBlind1Amt,%A_Space% IniRead, BigBlind2Amt,StarsHotKeys.ini, BlindBetSize, BigBlind2Amt,%A_Space% IniRead, BigBlind3Amt,StarsHotKeys.ini, BlindBetSize, BigBlind3Amt,%A_Space% IniRead, BigBlind4Amt,StarsHotKeys.ini, BlindBetSize, BigBlind4Amt,%A_Space% IniRead, BigBlind5Amt,StarsHotKeys.ini, BlindBetSize, BigBlind5Amt,%A_Space% IniRead, BigBlind6Amt,StarsHotKeys.ini, BlindBetSize, BigBlind6Amt,%A_Space% IniRead, BigBlind7Amt,StarsHotKeys.ini, BlindBetSize, BigBlind7Amt,%A_Space% IniRead, BigBlind8Amt,StarsHotKeys.ini, BlindBetSize, BigBlind8Amt,%A_Space% IniRead, BigBlind9Amt,StarsHotKeys.ini, BlindBetSize, BigBlind9Amt,%A_Space% IniRead, BigBlindDefault,StarsHotKeys.ini, BlindBetSize, BigBlindDefault,%A_Space% IniRead, instantbbs,StarsHotKeys.ini, BlindBetSize, instantbbs,0 } ;----------------------------------------------------------------------------------------------------- CreateIni() { global CloseMsgBox:=True CheckWhenFree:=True AutoRegister:=True MouseJump:=False ClickImBack:=True SendNumpad:=True SendCtrl:=True ActOnActiveTable:=True activatetableundermouse:=False instantallin:=False increment1:=2.5 increment2:=3 increment3:=4 increment4:=5 increment5:=6 NextWindow_Up_Alt1=f14 NextWindow_Down_Alt1=f16 NextWindow_Left_Alt1=f13 NextWindow_Right_Alt1=f15 ActivateBottomWindow=PgDn ActivateNextWindow=PgUp ; Added by Amerzel BigBlind0=20 BigBlind1=30 BigBlind2=50 BigBlind3=100 BigBlind4=150 BigBlind5=200 BigBlind6=400 BigBlind7=600 BigBlind8=800 BigBlind9=1200 BigBlindDefault=2.5 WriteIni() } ;----------------------------------------------------------------------------------------------------- WriteIni() { global If CloseMsgBox IniWrite, %CloseMsgBox%, StarsHotkeys.ini, Options, CloseMsgBox If CheckWhenFree IniWrite, %CheckWhenFree%, StarsHotkeys.ini,Options, CheckWhenFree If AutoRegister IniWrite, %AutoRegister%, StarsHotkeys.ini,Options, AutoRegister If MouseJump IniWrite, %MouseJump%, StarsHotkeys.ini,Options, MouseJump If ClickImBack IniWrite, %ClickImBack%, StarsHotkeys.ini,Options,ClickImBack If SendNumpad IniWrite, %Sendnumpad%, StarsHotkeys.ini,Options, SendNumpad If SendCtrl IniWrite, %SendCtrl%, StarsHotkeys.ini, Options, SendCtrl If NeverFoldForFree IniWrite, %NeverFoldForFree%, StarsHotkeys.ini, Options, NeverFoldForFree If ActOnActiveTable IniWrite, %ActOnActiveTable%, StarsHotkeys.ini, Options, ActOnActiveTable If activatetableundermouse IniWrite, %activatetableundermouse%, StarsHotkeys.ini, Options, activatetableundermouse If autorefreshinfo IniWrite, %autorefreshinfo%, StarsHotkeys.ini, Options, autorefreshinfo If autoopeninfo IniWrite, %autoopeninfo%, StarsHotkeys.ini, Options, autoopeninfo If BlackTheme IniWrite, %BlackTheme%, StarsHotkeys.ini, Options, BlackTheme If ClassicTheme IniWrite, %ClassicTheme%, StarsHotkeys.ini, Options, ClassicTheme If SlickTheme IniWrite, %SlickTheme%, StarsHotkeys.ini, Options, SlickTheme If CustomTheme IniWrite, %CustomTheme%, StarsHotkeys.ini, Options, CustomTheme If TakeSeat IniWrite, %TakeSeat%, StarsHotkeys.ini, Options, TakeSeat If instantallin IniWrite, %instantallin%, StarsHotkeys.ini, Options, instantallin If instantxbb IniWrite, %instantxbb%, StarsHotkeys.ini, Options, instantxbb If HighlightActiveTable ; added by CheeseMoney IniWrite, %HighlightActiveTable%, StarsHotkeys.ini, Options, HighlightActiveTable If EnableJoyMovement IniWrite, %EnableJoyMovement%, StarsHotkeys.ini, Options, EnableJoyMovement If increment1 IniWrite, %increment1%, StarsHotkeys.ini, Increments, Increment1 If increment2 IniWrite, %increment2%, StarsHotkeys.ini, Increments, Increment2 If increment3 IniWrite, %increment3%, StarsHotkeys.ini, Increments, Increment3 If increment4 IniWrite, %increment4%, StarsHotkeys.ini, Increments, Increment4 If increment5 IniWrite, %increment5%, StarsHotkeys.ini, Increments, Increment5 If FocusBetBox IniWrite, %FocusBetBox%, StarsHotkeys.ini, Hotkeys, FocusBetBox If FoldB IniWrite, %FoldB%, StarsHotkeys.ini, Hotkeys, FoldB If CheckCall IniWrite, %CheckCall%, StarsHotkeys.ini, Hotkeys, CheckCall If Raise IniWrite, %Raise%, StarsHotkeys.ini, Hotkeys, Raise If Allin IniWrite, %Allin%, StarsHotkeys.ini, Hotkeys, Allin If DecreaseBet33 IniWrite, %DecreaseBet33%, StarsHotkeys.ini, Hotkeys, DecreaseBet33 If SitOutNext IniWrite, %SitOutNext%, StarsHotkeys.ini, Hotkeys, SitOutNext If SitOutNextAll IniWrite, %SitOutNextAll%, StarsHotkeys.ini, Hotkeys, SitOutNextAll If IncreaseBet125 IniWrite, %IncreaseBet125%, StarsHotkeys.ini, Hotkeys, IncreaseBet125 If DecreaseBet20 IniWrite, %DecreaseBet20%, StarsHotkeys.ini, Hotkeys, DecreaseBet20 If IncreaseBet150 IniWrite, %IncreaseBet150%, StarsHotkeys.ini, Hotkeys, IncreaseBet150 If BetIncrement1 IniWrite, %BetIncrement1%, StarsHotkeys.ini, Hotkeys, BetIncrement1 If BetIncrement2 IniWrite, %BetIncrement2%, StarsHotkeys.ini, Hotkeys, BetIncrement2 If BetIncrement3 IniWrite, %BetIncrement3%, StarsHotkeys.ini, Hotkeys, BetIncrement3 If BetIncrement4 IniWrite, %BetIncrement4%, StarsHotkeys.ini, Hotkeys, BetIncrement4 If BetIncrement5 IniWrite, %BetIncrement5%, StarsHotkeys.ini, Hotkeys, BetIncrement5 If ReloadMax IniWrite, %ReloadMax%, StarsHotkeys.ini, Hotkeys, ReloadMax If FoldToAnyBet IniWrite, %FoldToAnyBet%, StarsHotkeys.ini, Hotkeys, FoldToAnyBet If Cashier IniWrite, %Cashier%, StarsHotkeys.ini, Hotkeys, Cashier If Cascade IniWrite, %Cascade%, StarsHotkeys.ini, Hotkeys, Cascade If Tile IniWrite, %Tile%, StarsHotkeys.ini, Hotkeys, Tile If CloseTournamentLobbies IniWrite, %CloseTournamentLobbies%, StarsHotkeys.ini, Hotkeys, CloseTournamentLobbies If OpenHHWindow IniWrite, %OpenHHWindow%, StarsHotkeys.ini, Hotkeys, OpenHHWindow If SaveHandHistory IniWrite, %SaveHandHistory%, StarsHotkeys.ini, Hotkeys, SaveHandHistory If Layout1 IniWrite, %Layout1%, StarsHotkeys.ini, Hotkeys, Layout1 If Layout2 IniWrite, %Layout2%, StarsHotkeys.ini, Hotkeys, Layout2 If Layout3 IniWrite, %Layout3%, StarsHotkeys.ini, Hotkeys, Layout3 If Layout4 IniWrite, %Layout4%, StarsHotkeys.ini, Hotkeys, Layout4 If Layout5 IniWrite, %Layout5%, StarsHotkeys.ini, Hotkeys, Layout5 If Layout6 IniWrite, %Layout6%, StarsHotkeys.ini, Hotkeys, Layout6 If Layout7 IniWrite, %Layout7%, StarsHotkeys.ini, Hotkeys, Layout7 If Layout8 IniWrite, %Layout8%, StarsHotkeys.ini, Hotkeys, Layout8 If ToggleMouseJump IniWrite, %ToggleMouseJump%, StarsHotkeys.ini, Hotkeys, ToggleMouseJump If ToggleClickImBack IniWrite, %ToggleClickImBack%, StarsHotkeys.ini, Hotkeys, ToggleClickImBack If ToggleAutoRegister IniWrite, %ToggleAutoRegister%, StarsHotkeys.ini, Hotkeys, ToggleAutoRegister If ToggleCloseMsgBox IniWrite, %ToggleCloseMsgBox%, StarsHotkeys.ini, Hotkeys, ToggleCloseMsgBox If OpenLobby IniWrite, %OpenLobby%, StarsHotkeys.ini, Hotkeys, OpenLobby If CloseActiveTable IniWrite, %CloseActiveTable%, StarsHotkeys.ini, Hotkeys, CloseActiveTable If CloseAllTables IniWrite, %CloseAllTables%, StarsHotkeys.ini, Hotkeys, CloseAllTables If NextWindow_Up IniWrite, %NextWindow_Up%, StarsHotkeys.ini, Hotkeys, NextWindow_Up If NextWindow_Down IniWrite, %NextWindow_Down%, StarsHotkeys.ini, Hotkeys, NextWindow_Down If NextWindow_Left IniWrite, %NextWindow_Left%, StarsHotkeys.ini, Hotkeys, NextWindow_Left If NextWindow_Right IniWrite, %NextWindow_Right%, StarsHotkeys.ini, Hotkeys, NextWindow_Right If NextWindow_Up_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Up_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Up_Alt1 If NextWindow_Down_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Down_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Down_Alt1 If NextWindow_Left_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Left_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Left_Alt1 If NextWindow_Right_Alt1 ; added by Cheesemoney for joystick control IniWrite, %NextWindow_Right_Alt1%, StarsHotkeys.ini, Hotkeys, NextWindow_Right_Alt1 If ActivateBottomWindow IniWrite, %ActivateBottomWindow%, StarsHotkeys.ini, Hotkeys, ActivateBottomWindow If ActivateNextWindow IniWrite, %ActivateNextWindow%, StarsHotkeys.ini, Hotkeys, ActivateNextWindow If FindTableToAct IniWrite, %FindTableToAct%, StarsHotkeys.ini, Hotkeys, FindTableToAct If GotoTable IniWrite, %GotoTable%, StarsHotkeys.ini, Hotkeys, GotoTable If Register IniWrite, %Register%, StarsHotkeys.ini, Hotkeys, Register If JoinWaitlist IniWrite, %JoinWaitlist%, StarsHotkeys.ini, Hotkeys, JoinWaitlist If Suspend IniWrite, %Suspend%, StarsHotkeys.ini, Hotkeys, Suspend IniWrite, %fold%, StarsHotkeys.ini, options, fold ; Added by Amerzel If BlindBetSizeHotkey IniWrite, %BlindBetSizeHotkey%, StarsHotkeys.ini, BlindBetSize, BlindBetSizeHotkey If BigBlind0 IniWrite, %BigBlind0%, StarsHotkeys.ini, BlindBetSize, BigBlind0 If BigBlind1 IniWrite, %BigBlind1%, StarsHotkeys.ini, BlindBetSize, BigBlind1 If BigBlind2 IniWrite, %BigBlind2%, StarsHotkeys.ini, BlindBetSize, BigBlind2 If BigBlind3 IniWrite, %BigBlind3%, StarsHotkeys.ini, BlindBetSize, BigBlind3 If BigBlind4 IniWrite, %BigBlind4%, StarsHotkeys.ini, BlindBetSize, BigBlind4 If BigBlind5 IniWrite, %BigBlind5%, StarsHotkeys.ini, BlindBetSize, BigBlind5 If BigBlind6 IniWrite, %BigBlind6%, StarsHotkeys.ini, BlindBetSize, BigBlind6 If BigBlind7 IniWrite, %BigBlind7%, StarsHotkeys.ini, BlindBetSize, BigBlind7 If BigBlind8 IniWrite, %BigBlind8%, StarsHotkeys.ini, BlindBetSize, BigBlind8 If BigBlind9 IniWrite, %BigBlind9%, StarsHotkeys.ini, BlindBetSize, BigBlind9 If BigBlind0Amt IniWrite, %BigBlind0Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind0Amt If BigBlind1Amt IniWrite, %BigBlind1Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind1Amt If BigBlind2Amt IniWrite, %BigBlind2Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind2Amt If BigBlind3Amt IniWrite, %BigBlind3Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind3Amt If BigBlind4Amt IniWrite, %BigBlind4Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind4Amt If BigBlind5Amt IniWrite, %BigBlind5Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind5Amt If BigBlind6Amt IniWrite, %BigBlind6Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind6Amt If BigBlind7Amt IniWrite, %BigBlind7Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind7Amt If BigBlind8Amt IniWrite, %BigBlind8Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind8Amt If BigBlind9Amt IniWrite, %BigBlind9Amt%, StarsHotkeys.ini, BlindBetSize, BigBlind9Amt If BigBlindDefault IniWrite, %BigBlindDefault%, StarsHotkeys.ini, BlindBetSize, BigBlindDefault If instantbbs IniWrite, %instantbbs%, StarsHotkeys.ini, BlindBetSize, instantbbs If AutoOn IniWrite, %AutoOn%, StarsHotkeys.ini, Options, AutoOn } ;----------------------------------------------------------------------------------------------------- Highlight() { global OldActiveWinID := ActiveWinID OldX := ActiveX OldY := ActiveY OldW := ActiveW OldH := ActiveH ActiveWinID := WinExist("A") WinGetActiveStats,ActiveTitle, ActiveW, ActiveH, ActiveX, ActiveY WinGetClass, ActiveWinClass, A WinGet, WinProcess, ProcessName, A ;traytip,,activeWinID: %ActiveWinID%`nClass: %ActiveWinClass% ;if ((WinProcess = "PokerStars.exe") ) if (ActiveWinClass = "PokerStarsTableFrameClass") { If (OldActiveWinID <> ActiveWinID) || ((OldX <> ActiveX || OldY <> ActiveY || OldW <> ActiveW || OldH <> ActiveH))
drawborder(ActiveWinID)
}
else ; if ((ActiveWinClass != "PokerStarsTableFrameClass"))
gui, 99:destroy
}
Drawborder(Win = "A")
{
global
;traytip,,drawborder,1
borderthickness = 13
;borderColor = Purple
borderColor = FF00A0 ; light purple
borderTrans = 200
Gui, 99:+ToolWindow -SysMenu -Caption +AlwaysOnTop
Gui, 99:Color, %borderColor%
Gui, 99:Show, Hide x1 y1 w1 h1 NA, borderGuard
WinSet, Transparent, %borderTrans%, borderGuard
SysGet, SM_CYCAPTION, 4 ;get height of caption area
SysGet, SM_CYEDGE, 46 ;thickness of the 3-d border
captionArea := SM_CYCAPTION + SM_CYEDGE
Critical, On
WinGetClass, aClass, A
WinGetActiveTitle, aTitle
MouseGetPos,,my
DetectHiddenWindows, Off
WinGetPos, ax, ay, aw, ah, ahk_id %Win%; redundant
DetectHiddenWindows, On
old_ax := ax, old_ay := ay, old_aw := aw, old_ah := ah ;save the size and pos state vars
currColor := %currBox%_borderColor
Gui, 99:Color, %borderColor% ;%currColor% ;set the color
WinGet, winState, MinMax, A
If(winState = 1) ;1 = Maximized
{
;Gui, 99:Hide ; added by Cheese
Gui, 99:Destroy ; added by Cheese
old_ax = 0 ;added by Cheese - reset one of the size and pos state vars
Critical Off
return
}
Else If(winState = -1) ;-1 = minimized
{
;Gui, 99:Hide
Gui, 99:Destroy
old_ax = 0 ;reset one of the size and pos state vars
return
}
Else ;neither maximized nor minimized
{
iw := aw + borderThickness ;set w,h for inner rect
ih := ah + borderThickness
iw1 := aw + (borderThickness*2) ;set w,h for outer rect
ih1 := ah + (borderThickness*2)
ix := ax - borderThickness
iy := ay - borderThickness
WinSet, Region, 0-0 %iw1%-0 %iw1%-%ih1% 0-%ih1% 0-0 %borderThickness%-%borderThickness% %iw%-%borderThickness% %iw%-%ih% %borderThickness%-%ih% %borderThickness%-%borderThickness%, borderGuard ;create gui with a hollow center
}
Gui, 99:Show, x%ix% y%iy% w%iw1% h%ih1% NA ;size and position the border gui
WinActivate ahk_id%win%
Critical Off
Return
}
relStarsClientPoint(id, ByRef x, ByRef y)
{
global border
global caption
rw := 792
rh := 546
WinGetPos, , , w, h, ahk_id%id%
w := w - (2*border)
h := h - (2*border) - caption
x := Floor( (x / rw ) * w )
y := Floor( (y / rh) * h )
}
relStarsClientPointMax(id, ByRef x, ByRef y)
{
SysGet, xbord, 32
SysGet, ybord, 33
SysGet, cap, 4
WinGetPos, , , w, h, ahk_id%id%
w := w - (2*xbord)
h := h - (2*ybord) - cap
Transform, X, Floor, W*x
Transform, Y, Floor, H*y
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This Section Taken From BetPot, Thanks to Dave, Juk, Roland, and I'm sure others...
;Juks rocks
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% } PostStarsClick(x, y, id) { relStarsClientPoint(id, x, y) PostLeftClick(x, y, id) } CallStars(id) { PostStarsClick(600,533,id) } RaiseStars(id) { PostStarsClick(730,520,id) } FoldStars(id) { PostStarsClick(415,501,id) } ;;;;;;;;;;;;;;;;;;;;;;;;;;;;End BetPot.ahk Section ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;; Joystick Bindkeys ;;;;;;;;;;;;;;;;;;;;; ; for some reason, these seem to have to be defined ;;;; ; even though they don't do anything, and are handled ; above (see NextWindow_Up_Alt1, etc...) ;;;;;;;;;;;;;;; F13:: F14:: F15:: F16:: return ~^!q:: ExitApp return PixelColorA(colx,coly,id) { global back_x1 SysGet, xbord, 32 SysGet, ybord, 33 SysGet, cap, 4 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|128|1024) x:=floor(((W-2*xbord)*colx) + xbord) y:=floor(((H-(2*ybord)-cap)*coly) + ybord + cap) pix := DllCall("GetPixel", UInt, hdc_buffer, Int, x , Int, y) x:=floor(((W-2*xbord)*back_x1) + xbord) pix1 := DllCall("GetPixel", UInt, hdc_buffer, Int, x , Int, y) SetFormat, IntegerFast, hex pix += 0 pix .= "" pix1 += 0 pix1 .= "" SetFormat, IntegerFast, d pix.="-" . pix1 DllCall( "gdi32.dll\DeleteObject", "uint", hbm_buffer ) DllCall( "gdi32.dll\ReleaseDC" , "uint", hdc_frame ) DllCall( "gdi32.dll\DeleteDC" , "uint", hdc_frame ) DllCall( "gdi32.dll\DeleteDC" , "uint", hdc_buffer ) return pix } ;===================================================================== ;===================================================================== /* License: * NextWindow v0.1 by Xander * GNU General Public License 3.0 or higher: http://www.gnu.org/licenses/gpl-3.0.txt * * Usage: * Navigate windows that match the specified title. * * Listeners: * Supports Listening for a specific class that has been activated by defining an OnActivate_%class% subroutine. * * Example: * #IfWinActive ahk_class Notepad * Left:: NextWindow_Left("ahk_class Notepad") * Right:: NextWindow_Right("ahk_class Notepad") * Up:: NextWindow_Up("ahk_class Notepad") * Down:: NextWindow_Down("ahk_class Notepad") * * Listener Example: * GroupAdd, Windows, ahk_class Notepad * GroupAdd, Windows, ahk_class TfPSPad * #IfWinActive ahk_group Windows * Left:: NextWindow_Left("ahk_group Windows") * Right:: NextWindow_Right("ahk_group Windows") * Up:: NextWindow_Up("ahk_group Windows") * Down:: NextWindow_Down("ahk_group Windows") * OnActivate_TfPSPad: * MsgBox, PSPad was activated * return */ NextWindow_Calc(ByRef perp, ByRef parallel, ByRef id, ByRef min, ByRef minID) { parallel /= 2 d := Sqrt(parallel*parallel+perp*perp) if (d < min) { min := d minID := id } } NextWindow_Activate(Byref id1, ByRef id2, Byref id3) { local id := id1 ? id1 : id2 ? id2 : id3 ? id3 : "" if !id return WinActivate, ahk_id %id% local window WinGetClass, window, ahk_id %id% window := "OnActivate_" . window if IsLabel(window) GoSub, %window% } NextWindow_Left(title) { WinGet, cId, ID, A ;WinGetPos, cX, cY, cw, cH, ahk_id %cid% WinGetPos, cX, cY, , cH cH_half := cH/2 min := A_ScreenWidth minRight := min maxY := 0 maxX := 0 WinGet windows, List, %title% Loop, %windows% { id := windows%A_Index% if (id == cID) continue WinGetPos, x, y, w, , ahk_id %id% dx := cX - x if (dx < 0) { dx := A_ScreenWidth - x - w if (dx < 0) dx := 0 dy := y - cY if (dy < 0) NextWindow_Calc(dy, dx, id, minRight, minRightID) } else if (dx > 9) {
dy := abs(cY - y)
if (dy < cH_half) NextWindow_Calc(dy, dx, id, min, minID) } if (y >= maxY) {
if (x >= maxX || y > maxY + cH) {
maxX := x
maxY := y
oppID := id
}
}
}
NextWindow_Activate(minId, minRightID, oppID)
}
NextWindow_Right(title) {
WinGet, cId, ID
WinGetPos, cX, cY, , cH
cH_half := cH/2
min := A_ScreenWidth
minLeft := min
minY := min
minX := min
WinGet windows, List, %title%
Loop, %windows% {
id := windows%A_Index%
if (id == cID)
continue
WinGetPos, x, y, w, , ahk_id %id%
dx := x - cX
if (dx < 0) { dx := x if (dx < 0) dx := 0 dy := cY - y if (dy < 0) NextWindow_Calc(dy, dx, id, minLeft, minLeftID) } else if (dx > 9) {
dy := abs(cY - y)
if (dy < cH_half) NextWindow_Calc(dy, dx, id, min, minID) } if (y <= minY) { if (x <= minX || y < minY - cH_half) { minX := x minY := y oppID := id } } } NextWindow_Activate(minId, minLeftID, oppID) } NextWindow_Up(title) { WinGet, cID, ID WinGetPos, cX, cY, cW cW_half := cW/2 min := A_ScreenHeight minDown := min minX := min maxY := 0 WinGet windows, List, %title% Loop, %windows% { id := windows%A_Index% if (id == cID) continue WinGetPos, x, y, , h, ahk_id %id% dy := cY - y if (dy < 0) { dy := A_ScreenHeight - y - h if (dy < 0) dy := 0 dx := cX - x if (dx < 0) NextWindow_Calc(dx, dy, id, minDown, minDownId) } else if (dy > 9) {
dx := abs(cX - x)
if (dx < cW_half) NextWindow_Calc(dx, dy, id, min, minID) } if (x <= minX) { if (y >= maxY || x < minX - cW_half) { minX := x maxY := y oppID := id } } } NextWindow_Activate(minId, minDownID, oppID) } NextWindow_Down(title) { WinGet, cID, ID WinGetPos, cX, cY, cW cW_half := cW/2 min := A_ScreenWidth minUp := min maxX := 0 minY := min WinGet windows, List, %title% Loop, %windows% { id := windows%A_Index% if (id == cID) continue WinGetPos, x, y, , , ahk_id %id% dy := y - cY dx := x - cX if (dy < 0) { dy := y if (dy < 0) dy := 0 dx := x - cX if (dx < 0) NextWindow_Calc(dx, dy, id, minUp, minUpID) } else if (dy > 9) {
dx := abs(cX - x)
if (dx < cW_half) NextWindow_Calc(dx, dy, id, min, minID) } if (x >= maxX) {
if (y <= minY || x > maxX + cW_half) {
maxX := x
minY := y
oppID := id
}
}
}
NextWindow_Activate(minId, minUpID, oppID)
}
Abonnieren
Posts (Atom)