136
New member introductions / Re: Hi people
« on: October 13, 2008, 03:12:20 AM »
Greeting and Well met traviler. I hope you enjoy you 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.
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 || #findcol = 2419
gosub moveto #findid #findstack %dullstone
IF Shadow in #property || #findcol = 2406
gosub moveto #findid #findstack %shadowstone
IF Copper in #property || #findcol = 2413
gosub moveto #findid #findstack %copperstone
IF Bronze in #property || #findcol = 2418
gosub moveto #findid #findstack %bronzestone
IF Golden in #property || #findcol = 2213
gosub moveto #findid #findstack %goldenstone
IF Agapite in #property || #findcol = 2425
gosub moveto #findid #findstack %agapitestone
IF Verite in #property || #findcol = 2207
gosub moveto #findid #findstack %veritestone
IF Valorite in #property || #findcol = 2219
gosub moveto #findid #findstack %valoritestone
IF significant in #property || #findcol = 0
gosub moveto #findid #findstack %ironstone
gosub errorcheck
goto stoneloop1
}
return
;bxe Blooming Orange Pampas Grass Plant
;QLI Bowl of dirt
repeat
{
Finditem exe_CCF_NXE_lok_BXE G_2
if #findkind = 1
{
event property #findid
wait 1s
IF Locked notin #property
{
set #ltargetid #findid
set #ltargetkind 1
wait 1
event macro 1 0 I wish to lock this down
target 2s
event macro 22 0
wait 1s
}
ignoreitem #findid
}
}
until #FINDcnt = 0
halt