151
New member introductions / Re: Hello
« on: September 10, 2008, 02:34:17 PM »
Welcome to the site. Hope you enjoy your stay.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
If %UsePackAnimal
{
GoSub OpenAnyContainer Container %PackAnimalBagId 40 480 5
;FindItem %PackAnimalDropId C_ , %PackAnimalBagId
;GoSub OpenAnyContainer Container #FindId 265 490 5
GoSub DragAnyItem %OreTypes #true %PackAnimalBagId All %OreBagId %TrackGPValue
GoSub DragAnyItem %GraniteType #true %PackAnimalBagId All %Granitebox #false
GoSub DragAnyItem %OreTypes #true %PackAnimalBagId All %OreBagId %TrackGPValue
}
gosub cspackcleaner ; [b]add this line here[/b]
; GoSub DragAnyItem %OreTypes #true %BackpackId All %OreBagId %TrackGPValue
; GoSub DragAnyItem %GraniteType #true %BackpackId All %OreBagId #false
If %UseProspector <> %NoColor
sub cspackcleaner
; first lets move the ore, easy
oreloop1:
Finditem %oretype c_ , #backpackid
IF #findkind <> -1
{
gosub moveto #findid #findstack %oresecure
goto oreloop1
}
; now lets move them gems out of the pack
gemloop1:
Finditem %gemtype c_ , #backpackid
IF #findkind <> -1
{
gosub moveto #findid #findstack %gemsecure
goto gemloop1
}
; ok now lets move them stones to there proper chest
stoneloop1:
Finditem %stonetype C_ , #backpackid
IF #findkind <> -1
{
event property #findid
IF Dull in #property
gosub moveto #findid #findstack %dullstone
IF Shadow in #property
gosub moveto #findid #findstack %shadowstone
IF Copper in #property
gosub moveto #findid #findstack %copperstone
IF Bronze in #property
gosub moveto #findid #findstack %bronzestone
IF Golden in #property
gosub moveto #findid #findstack %goldenstone
IF Agapite in #property
gosub moveto #findid #findstack %agapitestone
IF Verite in #property
gosub moveto #findid #findstack %veritestone
IF Valorite in #property
gosub moveto #findid #findstack %valoritestone
IF significant in #property
gosub moveto #findid #findstack %ironstone
gosub errorcheck
goto stoneloop1
}
return
sub errorcheck
{
while %jindex <> #jindex
{
set %jindex %jindex + 1
if %jindex > #jindex
set %jindex #jindex
scanjournal %jindex
if This_chest_is_full in #journal ;
{
gosub moveto #findid #findstack %overflow
Finditem %DiggingTools c_ , #backpackid
IF #Findkind <> -1
exevent popup #findid 2
return
}
if something_else in #journal
Do Something Else
if Yet_another_thing in #journal
{
One more thing
and something else!
}
}
return
;cstaker custom variables
set %overflow XXXXXXX
set %ironstone XXXXXXX
set %dullstone XXXXXXX
set %shadowstone XXXXXXX
set %copperstone XXXXXXX
set %bronzestone XXXXXXX
set %goldenstone XXXXXXX
Set %agapitestone XXXXXXX
set %veritestone XXXXXXX
set %valoritestone XXXXXXX
set %gemsecure XXXXXXX
set %gemtype HVF_UVF_FVF_EVF_OVF_VUF_GVF_RVF_BVF_VVF_NVF_ZVF_