Yoko

Code: Select all

set %bow WOH     ; id itema
set %book TUAXJMD

scan:
if ( You_put_the_Aspen_Bow_at_your_feet in #sysmsg )
msg ,terminate tinkering$
gosub port

sub port
if G in #charstatus
event macro 6 0
event macro 6 0
gosub openRunebook
click 434 387
wait 10
click 283 351
event macro 13 21
wait 10s
gosub sell
return

sub openRunebook
finditem %book c_ , #BackpackId
set #lobjectID #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
return

sub sell
move 1440 1698
move 1440 1705
msg sell $
wait 10
msg sell $
wait 10
msg sell $
finditem %bow c_ , #BackpackId
set #ltargetid #findid
set #ltargetkind 1
event macro 22
wait 50
click 327 254
wait 2s
gosub back
return

sub back
gosub openRunebook
click 504 387
wait 10
click 283 351
wait 10s
move 1677 0 685
key k ;key gde zabindino open door
move 1677 8 677
key k
move 1677 12 674
key k
move 1676 12 667
msg $
msg ,exec tinkering$
goto scan
return