taultunleashed

This section you are reading is not broken. This section is specialty protected so users can submit information for a membership.

If you have a great exploit, guide, or macro feel free to submit it. Your submitted information will then be processed and depending on its quality you will either gain a lifetime membership to tault.com.

After you make your submission feel free to check back from time to time to see the status of your post. Keep in mind we get lots of duplicates submitted; however, there are tons of exploit, guides, and macros out there. If its not in our database and you submit it you will get a lifetime membership to our site.

All premium members you can view all information in this forum. Also feel free to test out submitted exploits, guides, and macros, and give feedback to them as well. This will help speed up them being moved to our official premium members areas. As well this helps make the Tault.com community stronger.

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