The point of this script is simple...
Find the decorative plants o nthe ground, unlock them and put them in a container.
It goes through it all but when it tries to move them I keep getting the message, you cannot pick that up. And the plant is not locked down. Can someone help me get this going? I have like 300 plants right now to move and they are all on top of each other mixed with ones that arent decorative yet.
;set %MySecureID YMBRKSD ; Setit
Display Ok Select the Resource Container.
set #targcurs 1
while #targcurs = 1
wait 1
set %MySecureID #ltargetID
set #lobjectID #ltargetID
set #nextcposx 200
set #nextcposy 0
event macro 17
wait 10
set %plantTypes OLI_BCF_VWE_BWE_UAF_JWE_IWE_EXE_UWE_ICF_BXE_YVE_CCF_NWE_MWE_DXE_TCF_NXE_BKP_ZJP_MKP_AKP_CKP_OKP_NKP_LKP_TXE_ZBF_AIF_GWE_VWE_WTE_ZBF_BWE_BCF_CCF_SVE_IWE_MWE_YVE_REK_QVE_BFK_WTE_FWE_NXE_CYE_JDF_
Repeat
Finditem %Planttypes G_2
If #findcnt > 0
{
For #findindex 1 #findcnt
{
event property #findid
wait 5 ; wiat for property to be set
if Decorative in #property
{
msg i wish to release this $
gosub waitfortargetcursor
set #ltargetid #findid
event macro 22 0
wait 30
exevent drag #findid
wait 30
exevent drop %Mysecureid
wait 20
}
ignoreitem #findid
}
}
until #FINDcnt = 0
halt
sub WaitForTargetCursor
set %timeout #scnt + 30
Repeat
wait %targetcursorwait
if #scnt > %timeout
return #false
Until #TARGCURS = 1
return #true