Tried your script today, it works pretty well, but it has some issues.
1: When a buying menu has, e.g. two one type regs it only buys one of them.
2; line 18; sset%buyMandrakeRoot N/A
3;
sub check_gold
if #gold < 10000
{
event macro 1 1 sacar 10000
wait 20
}
return
instead of
sub getgold
gosub isbankopen
finditem POF C_ , %bankbox
if #findstack < 10000 && #findcnt <= 1
{
gosub findcheck
return
}
else
if #findstack < 10000
{
while #findstack < 10000
{
ignoreitem #findid
finditem POF C_ , %bankbox
{
if #findcnt = 0
{
gosub findcheck
return
}
}
}
}
gosub gold
gosub goldck
return
sub goldck
event macro 8 2
finditem POF C_ , #BACKPACKID
if #FINDSTACK < 10000
gosub getgold
return
sub gold
finditem POF C_ , %bankbox
if #findstack < 10000
gosub findcheck
else
Exevent drag #FINDID 10000
wait 12
Exevent Dropc #BACKPACKID
wait 8
return
I'm not sure, but I think this isnt the right way to end a sub(with brackets after return)? Few example.
;Your code was a little bit haotic, so i used ScriptUOs autoindent to organise it.
sub journal
if #jindex > %jrnl
{
scanjournal %jrnl
if Begging thy pardon in #journal
{
display you bank is out of gold
halt
}
else
{
set %jrnl %jrnl + 1
return
}
}
;#######################################
sub findvendor
finditem IS G
if #FINDCNT > 0
{
for #FINDINDEX 1 #FINDCNT
{
event property #FINDID
wait 1
if Reagent notin #PROPERTY
{
ignoreitem #findid
}
else
{
set #LTARGETID #findid
return
}
}
}
else
{
event macro 15 43
target
event macro 23 0
wait 200s
event macro 15 43
target
event macro 23 0
wait 200s
event macro 15 43
target
event macro 23 0
wait 200s
goto n1
}
;#######################################
sub buybottles
finditem IS G
if #FINDCNT > 0
{
for #FINDINDEX 1 #FINDCNT
{
event property #FINDID
wait 1
if Bottle notin #PROPERTY
{
ignoreitem #findid
}
else
{
set #LTARGETID #findid
return
}
}
}
else
{
return
}
And so on.
I made few changes so your code would look better to the eye, and wont get an overload. But it's still a haotic one.