104
« on: July 22, 2012, 06:11:10 PM »
How to use:
edit the first line %secure with the itemid of your secure container.
You need a secure container with fertile dirt and seeds inside.
All plant bowls must be inside regular backpacks.
Need crates within 2 tiles of your char. (doesn't matter if they are all on one tile)
What this does:
Will automatically fill all crates with assembled plants based on how many crates or plant bowls you have (whichever is less).
;freddy winuo.net
set %secure OHIRXSD
set #lpc 1000
set %loop %crate_count
gosub initialize
set #lpc 50
for %lo 1 %loop
{
set %crate %crate . %lo
set #lobjectid %crate
event macro 17 0
wait 20
set %bowl_bag %bowl . %lo
set #lobjectid %bowl_bag
event macro 17 0
wait 20
gosub set_vars
for %i 1 %ploop
{
gosub grab_items
gosub add_dirt
gosub water_bowl
gosub add_seed
gosub drop_plant
}
}
halt
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub drop_plant
exevent drag %bowlid
wait 15
exevent dropc %crate
wait 20
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub add_seed
wait 15
set #lobjectid %seedid
event macro 17 0
target 3s
set #ltargetid %bowlid
event macro 22 0
wait 22
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub water_bowl
for %u 1 2
{
set #lobjectid %pitcher
event macro 17 0
wait 15
target 3s
set #ltargetid %bowlid
event macro 22
wait 15
}
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub add_dirt
set #lobjectid %bowlid
event macro 17 0
wait 15
target 3s
set #ltargetid %dirtid
event macro 22 0
wait 20
finditem QLI C_ , #backpackid
set %bowlid #findid
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub grab_items
finditem DGI C_ , %bowl_bag
exevent drag #findid #findstack
wait 12
exevent dropc #backpackid
set %bowlid #findid
wait 12
finditem PDF C_ , #backpackid
if #findstack <= 1
{
finditem PDF C_ , %secure
exevent drag #findid 10
wait 12
exevent dropc #backpackid
wait 12
}
finditem PDF C_ , #backpackid
set %seedid #findid
finditem NZF C_ , #backpackid
if #findstack <= 19
{
finditem NZF C_ , %secure
exevent drag #findid 200
wait 12
exevent dropc #backpackid
wait 12
}
finditem NZF C_ , #backpackid
set %dirtid #findid
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub set_vars
set #lpc 1000
finditem PDF C_ , %secure
if #findkind <> -1
{
for #findindex 1 #findcnt
set %seedct %seedct + #findstack
}
else
{
display Can't find seeds!
halt
}
finditem DGI C_ , %bowl_bag
if #findkind <> -1
{
if #findcnt < %seedct
set %ploop #findcnt
else
set %ploop 125
}
else
{
display Can't find bowls
halt
}
finditem NZF C_ , %secure
if #findkind <> -1
{
set %dneeded %ploop * 20
if #findstack < %dneeded
{
set %ploop #findstack / 20
}
}
else
{
display Can't Find Fertile Dirt.
halt
}
finditem VBM C_ , #backpackid
if #findkind <> -1
{
event property #findid
if unlinked in #property
{
display You do not have a linked endless decanter of water
halt
}
set %pitcher #findid
}
else
{
display You do not have a endless decanter of water!
halt
}
set #lpc 20
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub initialize
namespace push
namespace local initialize
try_again:
event macro 8 1
gosub wait_gump paperdoll_gump 262_324 10
if #result <> #true
goto try_again
contpos !pd_pos 10
wait 20
try_again2:
event macro 8 7
gosub wait_gump container_gump 230_204 10
if #result <> #true
goto try_again2
wait 20
try_again4:
event macro 8 2
gosub wait_gump status_gump 432_184 10
if #result <> #true
goto try_again4
wait 20
try_again3:
finditem %secure g_3
if #findkind = -1
{
display can't find secure!
halt
}
else
{
set #lobjectid #findid
wait 5
event macro 17 0
wait 30
}
finditem zjf G_2
for #findindex 1 #findcnt
set %bowl_bag #findid , _ , %bowl_bag
set %bowl_bag %bowl_bag , _
gosub separate_string %bowl_bag _
set %bowl_count %t_num
for %o 1 %bowl_count
set %bowl . %o !return . %o
finditem UMF G_2
for #findindex 1 #findcnt
set %crate #findid , _ , %crate
set %crate %crate , _
gosub separate_string %crate _
set %crate_count %t_num
for %p 1 %crate_count
set %crate . %p !return . %p
if %crate_count >= %bowl_count
set %loop %bowl_count
else
set %loop %crate_count
namespace clear
namespace pop
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub wait_gump
set %timer #scnt + %3
repeat
if %4 = #true
{
if %sbag = #true
finditem %toolid C_ , %sbagid
else
finditem %toolid C_ , #backpackid
if #findkind = -1
return #false
}
if #contsize = %2 && #contname = %1
{
set %4 n/a
return #true
}
until #scnt >= %timer
set %4 n/a
return #false
;----------------------------------------------------------------------
;----------------------------------------------------------------------
sub separate_string
set %t_num 0
nameSpace Push
namespace local separate
str Count %1 %2
for %i 1 #strres
{
set %var %2
str len %1
set %length #strres
str pos %1 %var
set %del #strres - 1
str left %1 %del %length
set !return . %i #strres
set %del1 %del + 1
str del %1 1 %del1
set %1 #strres
set %t_num %t_num + 1
}
nameSpace Pop
nameSpace Copy ret* From Local separate
nameSpace Push
nameSpace Local separate
nameSpace Clear separate
nameSpace Pop
return
;----------------------------------------------------------------------
;----------------------------------------------------------------------
Show Posts
