Constants //Gambling Stakes Level - 1 = low stakes, 2 = mid stakes, 3 = high stakes, 4 = Pack Dolls stakes_level = 3 // Misc Variables Casino_owner, Packman = Mi Gan-Zo Packdoll = Pack Drudge Gamesmaster = Sho High-Stakes Gamesmaster Token = Gambling Token Casino = Sho Stakes = High token_cost = 1 //secondary pack stacking variables usepacks = 1 //set to 1 to use secondary packs, 0 to not use them packcalc = 2 //stats tracking datacount = 1 total_items = 1 ratio = 1 total_cost = 1 End
DataSet stats item = String 100 count = Integer End
procedure determine_casino Select Monty the Munificent //are we at the Aluvian Den? IF _selected = Monty the Munificent setconst Casino_owner = Monty setconst casino = Aluvian setconst Packman = Monty the Munificent setconst Packdoll = Pack Scarecrow exit end Select Mi Gan-Zo //are we at the Sho Den? If _selected = Mi Gan-Zo setconst Casino_owner = Gan-Zo setconst casino = Sho setconst Packman = Mi Gan-Zo setconst Packdoll = Pack Drudge exit end Select Arshid al-Qiyid //are we at the Gharundim Den? If _selected = Arshid al-Qiyid setconst Casino_owner = Arshid setconst casino = Gharu'ndim setconst Packman = Arshid al-Qiyid setconst Packdoll = Pack Golem exit exit end //are we even at a Den? Sendtext 8, Are you sure that you are at a casino? Stop End
Procedure GiveToken delay 75 SelectMine $Token Delay 75 StackItem _selected, $Gamesmaster call givedelay Call StackItems End
Procedure StackItems delay 250 MousePos $R1C1 LeftClick call trackit If _selected contains Mnemo or _selected contains Pack or _selected contains Treated or _selected contains Golden or _selected contains Peerless exit end if $usepacks = 1 call Unstackables end delay 250 End
procedure setvariables if $stakes_level = 1 setconst stakes = Low-Stakes setconst token_cost = 5000 end if $stakes_level = 2 setconst stakes = Mid-Stakes setconst token_cost = 25000 end if $stakes_level = 3 setconst stakes = High-Stakes setconst token_cost = 50000 end if $stakes_level = 4 setconst Token = $packdoll setconst Gamesmaster = $Packman exit end SetConst TOKEN = $Casino_owner + 's + $stakes + Gambling Token Setconst Gamesmaster = $casino + $stakes + Gamesmaster end
Procedure givedelay //wait max 10 seconds before continuing ClearPluginVar _servertext Loop 200 Delay 50 If _servertext contains gives you Break End End End
procedure time2gamble SelectNearest $Gamesmaster setconst Gamesmaster = _selectedguid haveitem $token while {PluginResult} = OK //only gamble while we have tokens call GiveToken packslots 1 if {PluginResult} <= 0 SendText 3, NO FREE SPOTS IN OUR MAIN PACK exit end haveitem $token end end
Procedure Unstackables // Calculate which pack position to drag the item into call determinestackpack Delay 333 MoveAllItem _selected, $packcalc, 0 , 0 , 1 //waitforcursor end
procedure determinestackpack PackSlots $packcalc while {pluginresult} <= 0 or {PluginResult} = No Pack inc packcalc PackSlots $packcalc if $packcalc >= 8 SendText 3, no more free packs setconst usepacks = 0 break end end end
procedure trackit DSLocate stats, item, _selected if EOF stats dsappend stats setconst stats[item] = _selected setconst stats[count] = 1 else DSEdit stats inc stats[count] end dspost stats end
procedure report_stats //get total items received DSCount stats, datacount dsfirst stats setconst total_items = 0 loop $datacount compute total_items = $total_items + stats[count] dsnext stats end if $stakes_level = 4 setconst total_cost = nothing, we gambled pack dolls else compute total_cost = $token_cost * $total_items formatnumber total_cost, $total_cost, #,##0 end sendtext 2, we gambled for $total_items items at a cost of $total_cost. //now report the % dsfirst stats loop $datacount compute ratio = stats[count] / $total_items * 100 FormatNumber ratio = $ratio, 0.00% sendtext 2, stats[count] or $ratio of them were stats[item] dsnext stats end end
/////////////////////////////////////////////////////////////////////////////// // MAIN LOOP /////////////////////////////////////////////////////////////////////////////// INCLUDE incUI.mac Call SetUI
SetActiveWindow Asheron's Call
SendText 1, Vellus' Cash Sinking Gambling Macro V 6.0 SendText 1, Written by Art of Crafting of Morningthaw
CastSpellTimeout 15000
//find out which casino we are at call determine_casino SendText 3, We are at the $casino casino timestamp We are at the $casino casino
//set up our gambling variables call setvariables SendText 3, We are gambling $token tonight timestamp We are gambling $token tonight
//now gamble call time2gamble //now give out the results of gambling call report_stats
SendText 3, ALL DONE GAMBLING SendText 3, THANKS FOR USING VELLUS' GAMBLING MACRO Timestamp ALL DONE GAMBLING
|