Before running:
All bags must be open and not over lapping.
You must select the casino dealer you wish to deal with.
After Macro has completed you will recieve a stat report of the following:
**Edit Corrected a stat problem
**Edit #2 Corrected gold ticket problem
All bags must be open and not over lapping.
You must select the casino dealer you wish to deal with.
After Macro has completed you will recieve a stat report of the following:
**Edit Corrected a stat problem
**Edit #2 Corrected gold ticket problem
Code:
| Casino.mac
| By: Frequency
| All bags must be Open
| Casino Merchant you wish to deal with must be targeted
|
#event NoWin "#*#Lady Luck is not on your side today.#*#"
#event SmallWin "#*#here is your small prize.#*#"
#event MediumWin "#*#Not a bad hand for you#*#"
#event PrettyGoodWin "#*#That is a pretty good hand#*#"
#event GoodWin "#*#That is a good hand!#*#"
#event IllusionWin "#*#mask your appearance#*#"
#event TokenWin "#*#here are your#*#King's Court tokens.#*#"
Sub main
/declare NoWin int outer
/declare SmallWin int outer
/declare MediumWin int outer
/declare PrettyGoodWin int outer
/declare GoodWin int outer
/declare IllusionWin int outer
/declare TokenWin int outer
/declare StartTokens int outer
/varset StartTokens ${FindItemCount[=King's Court Token]}
/declare CasinoNPC int local
/varset CasinoNPC ${Target.ID}
/if ( !${CasinoNPC} ) {
/echo You need to target an NPC you wish to run the casino with
/endmacro
}
/declare TradeSlot int local
/varset TradeSlot 0
/declare TurnInsRemaining int local
/varset TurnInsRemaining 0
:MainLoop
/if ( ${FindItemCount[=King's Court Token]} == 0 ) /goto :Done
/if ( ${FindItemCount[=Gold Ticket]} > 0 ) /goto :Done
/if ( !${Me.FreeInventory} ) /goto :Done
/if ( ${FindItemCount[=King's Court Token]} > 4 ) {
/varset TurnInsRemaining 3
} else {
/varset TurnInsRemaining ${Math.Calc[${FindItemCount[=King's Court Token]} - 1]}
}
/for TradeSlot 0 to ${TurnInsRemaining}
/call ClearCursor
/call GetToken
/if ( !${TradeSlot} ) {
/target ID ${CasinoNPC}
/click Left Target
/delay 2
:WaitForWindow
/if ( !${Window[GiveWnd].Open} ) /goto :WaitForWindow
} else {
/target ID ${CasinoNPC}
/click Left Target
/delay 2
}
/next TradeSlot
/notify GiveWnd GVW_Give_Button leftmouseup
/delay 5
/doevents
/call ClearCursor
/goto :MainLoop
:Done
/call Report
/call BeepLoop
/return
Sub GetToken
/ctrlkey /itemnotify ${FindItem[=King's Court Token].InvSlot} leftmouseup
/delay 10
/if ( ( ${Cursor.ID} ) && ( ${Cursor.Name.NotEqual[King's Court Token]} ) ) {
/call ClearCursor
/call GetToken
}
/return
Sub ClearCursor
/if ( ${Cursor.ID} ) {
:ClearLoop
/autoinv
/delay 1
/if ( ${Cursor.ID} ) /goto :ClearLoop
}
/return
Sub BeepLoop
:BeepLoop
/beep
/delay 5
/beep
/delay 4
/beep
/delay 3
/beep
/delay 2
/beep
/delay 1
/goto :BeepLoop
}
/return
Sub Report
/doevents
/declare TotalPlays int local
/varset TotalPlays ${Math.Calc[${SmallWin} + ${MediumWin} + ${PrettyGoodWin} + ${GoodWin} + ${IllusionWin} + ${TokenWin} + ${NoWin}]}
/declare TotalWins int local
/varset TotalWins ${Math.Calc[${SmallWin} + ${MediumWin} + ${PrettyGoodWin} + ${GoodWin} + ${IllusionWin} + ${TokenWin}]}
/echo Total Plays: ${TotalPlays}
/echo Wins: ${TotalWins}
/echo Win Percentage: ${Math.Calc[(${TotalWins} / ${TotalPlays}) * 100]}%
/echo Small Wins: ${SmallWin} - ${Math.Calc[(${SmallWin} / ${TotalPlays}) * 100]}%
/echo Medium Wins: ${MediumWin} - ${Math.Calc[(${MediumWin} / ${TotalPlays}) * 100]}%
/echo Pretty Good Wins: ${PrettyGoodWin} - ${Math.Calc[(${PrettyGoodWin} / ${TotalPlays}) * 100]}%
/echo Good Wins: ${GoodWin} - ${Math.Calc[(${GoodWin} / ${TotalPlays}) * 100]}%
/echo Illusion Wins: ${IllusionWin} - ${Math.Calc[(${IllusionWin} / ${TotalPlays}) * 100]}%
/echo Tokens Wins: ${TokenWin} - ${Math.Calc[(${TokenWin} / ${TotalPlays}) * 100]}%
/echo Tokens Won: ${Math.Calc[${TotalPlays} - ${StartTokens}]}
/echo Total Time Running: ${Math.Calc[${Macro.RunTime} / 60]} Minutes
/return
Sub Event_NoWin
/varcalc NoWin ${NoWin} + 1
/return
Sub Event_SmallWin
/varcalc SmallWin ${SmallWin} + 1
/return
Sub Event_MediumWin
/varcalc MediumWin ${MediumWin} + 1
/return
Sub Event_PrettyGoodWin
/varcalc PrettyGoodWin ${PrettyGoodWin} + 1
/return
Sub Event_GoodWin
/varcalc GoodWin ${GoodWin} + 1
/return
Sub Event_IllusionWin
/varcalc IllusionWin ${IllusionWin} + 1
/return
Sub Event_TokenWin
/varcalc TokenWin ${TokenWin} + 1
/return
Last edited:
