;#################################
; Zeths's Pega BOD               #
; DATA:  04/11/2015              #
; Ver.: 1.1                      #
;#################################

; *** INSTRUCOES ***
;----------------------------------------------------
;O COMANDO POPUP ESTÁ QUEBRADO, COLE O MACRO
;ABAIXO NO STEAMUO E SETE O ATALHO PARA A TECLA
;"F7".

;ESTE MACRO É PARA O CHAR ACEITAR AS BODS. ELE ESTÁ NO FINAL
;DO MACRO DO EASYUO

;SE NÃO FIZER ISSO, ELE NÃO PEGARÁ BODS!!! 03/03/2015.
;---------------------------------------------------

;Nao modificar dete ponto em diante...
set %loopDelete 0
set %Conta_No 0
set %bod_book DYM
set %bod EYM
set %char_logou 0

while #CONTNAME <> normal_gump && MainMenu_gump
wait 5
goto GERENCIAR_CONTAS

;*******************************************************
GERENCIAR_CONTAS:
;*******************************************************
;=====================================
;========** NOME DAS CONTAS **========
;=====================================

; * CONTA 01 ********************************* 01
if %Conta_No = 0
  {
   set %login ; Nomeda sua conta.
   set %senha  ;Senha da conta.
    set %char 1       ;A partir de qual char ira logar 1- 7.
  }
; * CONTA 02 ******************************** 02
if %Conta_No = 1
  {
   set %login
   set %senha
    set %char
  }
; * CONTA 03 ********************************* 03
if %Conta_No = 2
  {
   set %login
   set %senha
    set %char
  }
; * CONTA 04 ********************************* 04
if %Conta_No = 3
  {
   set %login
   set %senha
    set %char
  }
; * CONTA 05 ********************************* 05
if %Conta_No = 4
  {
   set %login
   set %senha
    set %char
  }
; * CONTA 06 ********************************* 06
if %Conta_No = 5
  {
   set %login
   set %senha
    set %char
  }
;---------------------------------------------------------------------------
str len %login
if #strres < 1
  {
   set %Conta_No 0
   set %char_logou 0
   wait 3600s ;1 hora
   goto GERENCIAR_CONTAS
  }
click 330 365 x2
while %loopDelete < 16
  {
   key delete
   set %loopDelete %loopDelete + 1
  }
set %loopDelete 0
goto MainMenu_gump

;*******************************************************
MainMenu_gump:
;*******************************************************
while #CONTNAME <> normal_gump && MainMenu_gump
wait 5
if %char = 8
  {
   set %Conta_No %Conta_No + 1
   set %char_logou 0
   goto GERENCIAR_CONTAS
  }
if %char_logou <> 1
  {
   click 330 365 x2
   msg %login
  }
click 494 399 x3
msg %senha
wait 1
key enter
wait 5
while #CONTNAME = MainMenu_gump || waiting_gump || normal_gump
  {
   wait 10
   key enter
  }
while #CONTNAME <> normal_gump
wait 10
key enter
while #CONTNAME <> normal_gump
wait 1
goto ESCOLHER_CHAR
;*******************************************************
ESCOLHER_CHAR:
;*******************************************************
if %char = 1
set %cy 138
if %char = 2
set %cy 180
if %char = 3
set %cy 220
if %char = 4
set %cy 260
if %char = 5
set %cy 300
if %char = 6
set %cy 340
if %char = 7
set %cy 380
click 360 %cy d
click 360 %cy d
while #CLILOGGED = 0
click 615 445 x2
goto PEGAR_BOD

;*******************************************************
PEGAR_BOD:
;*******************************************************
while #contid <> #backpackid
  {
   event macro 8 7
   wait 15
  }
key f7
while #CONTNAME <> MainMenu_gump || waiting_gump || normal_gump
 wait 1s
gosub BOD_BOOK
set %char_logou 1
set %char %char + 1
goto MainMenu_gump

;##########################################################
sub BOD_BOOK
;##########################################################
finditem %bod_book C_ , #backpackid
if #findkind = -1
return

finditem %bod C_ , #backpackid
if #findkind = 0
 {
  finditem %bod_book C_ , #backpackid
  set %bod_book_atual #findid
  while #findkind = 0
   {
    finditem %bod C_ , #backpackid
    exevent drag #findid
    exevent dropc %bod_book_atual
    wait 10
   }
 }
return

;====================================
;COPIE E COLE NO UO STEAM.
;MACRO UOSTEAM
;====================================
//************************
// UOS Zeth's Easyuo BOD Sync
// Versão: 0.1
// Data: 03/11/2015
//************************
//
//                 *** IMPORTANTE ***
// CRIE UM PROFILE NOVO E "LINKE" COM OS CHARS DE BOD
//
// INSTRUÇÕES
// 1. COLOQUE A TECLA "F7" de atalho no macro.
// 2. Coloque o SERIAL do Tailor em 'npctailor'
// 3. Coloque o SERIAL do NPC inkeeper em 'inkeeper'
// 4. Marque as runas perto do inkeeper e tailor
// 5. Coloque as runas no Runebook (deve ter apenas UM RUNEBOOK
//na backpack), sendo a 1A RUNA DO TAILOR e 2A RUNA DO INKEEPER
// 6. Tenha 65 chivalry
// 7. Se o macro não identificar os NPC, limpe as variáveis no
// object inspector.
//------------------------------------
@setalias 'npctailor' 0xd86
@setalias 'inkeeper' 0x3bb1
//@setalias 'npcblacksmith'
//------------------------------------
//if not @findtype 0x2259 'any' 'backpack'
//  headmsg 'BOD book não encontrado na backpack.' 35
//  stop
//endif
if not @findtype 0x22c5 'any' 'backpack'
  headmsg 'Runebook não encontrado na backpack.' 22
  stop
endif
//if skill 'chivalry' < 65
//  headmsg 'ZethS Avisa: Voce deve ter 65 de Chivalry antes de iniciar!' 44
//  stop
//endif
//------------------------------------------------------
while not @findobject 'npctailor' 'any' 'world'
  @usetype 0x22c5 'any' 'backpack'
  waitforgump 0x554b87f3 5000
  replygump 0x554b87f3 7
  pause 3500
endwhile
waitforcontext 'npctailor' 1 3000
pause 1000
@replygump 0xbe0dad1e 1
@replygump 0x9bade6ea 1
pause 600
while not @findobject 'inkeeper' 'any' 'world'
  @usetype 0x22c5 'any' 'backpack'
  waitforgump 0x554b87f3 5000
  replygump 0x554b87f3 13
  pause 3500
endwhile
logoutbutton