Script de Donar Madera 2

Aportado por Carlo Zaninetti Peña.

Esté es el Script para donar madera al Museo de Vesper
;==================================
; Script Name: Museum Boards Donation Macro
; Author: Volcher
; Version: 1.0
; Client Tested with: 5.0.6e
; EUO version tested with: 1.5
; Shard OSI / FS: FS
; Revision Date: 11/30/06
; Public Release: 11/29/06
; Global Variables Used:
; Purpose: Get boards from you house and give it to Vesper Museum.
;==================================
;??????????:
;%LibraryX - X ?????????? ?????? ??? ????????? NPC ??????????? ????.
;%LibraryY - Y ?????????? ?????? ??? ????????? NPC ??????????? ????.
;%LibraryRune - ID ???? ? NPC ???????????? ????????.
;%HomeRune - ID ???? ? ?????????? ? ???????.
;%Container - ID ?????????? ? ???????, ??? BANK ???? ????.

set %LibraryX 422
set %LibraryY 297
set %LibraryRune LEVZUMD
set %HomeRune ZLVZUMD
set %Container ISSYNMD

while #TRUE
{
gosub Recall %HomeRune
gosub Pack
gosub Container
gosub GetBoard
gosub Recall %LibraryRune
gosub Give
}
halt

sub Give
Give:
wait 1s
finditem TLK C_ , #BACKPACKID
if #FINDKIND = -1
return
gosub CheckBoardType #FINDID
set %Count #FINDSTACK
key f6
set #SCNT 0
wait 1s
while #CONTSIZE <> 345_359
{
set #LobjectID QACUJMD
event macro 17 0
wait 25
set #contPosX 728
wait 25
set #contPosY 17
}
wait 2s
while #CONTNAME <> generic_gump && #CONTSIZE <> 345_359
{
if #CONTNAME = #CONTNAME && #CONTSIZE = 507_436
{
;gosub Click 350 400
wait 10
;gosub Click 350 400
goto Give
}
if #SCNT > 5
goto Give
}
wait 10
if %BoardType = Normal
{
;gosub Click 40 235
click 768 237
}
if %BoardType = Oak
{
;gosub Click 40 270
click 768 265
}
if %BoardType = Ash
{
;gosub Click 40 305
click 768 290
}
if %BoardType = Yew
{
;gosub Click 40 165
click 768 317
}
if %BoardType = Heartwood
{
;gosub Click 305 340
click 1035 360
wait 10
;gosub Click 40 200
click 768 176
}
if %BoardType = Bloodwood
{
;gosub Click 305 340
click 1035 360
wait 10
;gosub Click 40 235
click 768 203
}
if %BoardType = Frostwood
{
;gosub Click 305 340
click 1035 360
wait 10
;gosub Click 40 270
click 768 228
}
wait 10
msg $
msg %Count , $
wait 10
finditem TLK C_ , #BACKPACKID
if #FINDKIND <> -1
goto Give
return

sub Click
set %ClickX #CONTPOSX + %1
set %ClickY #CONTPOSY + %2
;click %ClickX %ClickY
click 768 239
return

sub Recall
while #MANA < 20
wait 1
set #LTARGETID %1
set #LTARGETKIND 1
set %CHARPOSX #CHARPOSX
set %CHARPOSY #CHARPOSY
Recall:
set #TARGCURS 0
event macro 15 31
target
event macro 22 0
wait 2s
if #CHARPOSX = %CHARPOSX && #CHARPOSY = %CHARPOSY
goto Recall
return

sub Pack
msg bank $
Pack:
click 100 400
if #CONTTYPE <> ZJF
{
event macro 8 7
set #SCNT 0
while #CONTTYPE <> ZJF
{
if #SCNT > 5
goto Pack
}
contpos 0 350
wait 10
}
return

sub CheckBoardType
event property %1
set %BoardType Normal
if Oak in #PROPERTY
set %BoardType Oak
if Ash in #PROPERTY
set %BoardType Ash
if Yew in #PROPERTY
set %BoardType Yew
if Heartwood in #PROPERTY
set %BoardType Heartwood
if Bloodwood in #PROPERTY
set %BoardType Bloodwood
if Frostwood in #PROPERTY
set %BoardType Frostwood
return

sub GetBoard
while #CONTID <> %ContainerID
gosub Container
finditem TLK C_ , #BACKPACKID
if #FINDKIND <> -1
return
finditem TLK C_ , %ContainerID
if #FINDKIND = -1
{
display ok Cant find board!
halt
}
set %Count #MAXWEIGHT - #WEIGHT
if %Count > #FINDSTACK
set %Count #FINDSTACK
if %Count < 1
{
display ok Overweight!
halt
}
Exevent Drag #FINDID %Count
wait 10
Exevent Dropc #BACKPACKID
wait 10
;click 400 300 r
return

sub Container
Container:
if %Container = BANK
{
event macro 1 0 bank
set #SCNT 0
while #CONTTYPE <> IKF
{
if #SCNT > 5
goto Container
}
set %ContainerID #CONTID
}
else
{
set #LOBJECTID %Container
set #SCNT 0
event Macro 17 0
while #CONTID <> %Container
{
if #SCNT > 5
goto Container
}
set %ContainerID %Container
}
return
;==================================
; http://red-alianza.blogspot.com/
;==================================


Tenemos que copiar y pegar el texto azul en su totalidad, dentro del EasyUO,
si no te gusta tener que copiarlo y pegarlo, podes bajarlo haciendo [click acá]

Una vez que le damos play tenemos que...

Aportado por Carlo Zaninetti Peña.