Macros de Boris Grushenko

[BorisGrushenko]

1.- Cortar un cuerpo, y coger un determinado objeto de él (modificada por mí)
2.- Dejar objetos en una bolsa / coger objetos de una bolsa (modificación de la de Boxer)
3.- Artesanía utilizando madera (modificación cutre por mí)

1.- esta macro la he usado yo para cortar plumas de pájaros / arpías. El procedimiento que tomaba, es: compro todos los pájaros y águilas de un vendor, y me los llevo con recall a otro sitio, y sin moverme, hago meteor swarm, y cuando estén todos muertos, activo la macro. Y a esperar, que lotea solo.

;==================================
; Script Name: Skin, Cut, & Loot
; Author: Twice_
; Version: 1.10
; Client Tested with: 5.0.7.1
; EUO version tested with: 1.5-101
; Shard OSI / FS: Freeshard Only
; Revision Date: 12/24/2006
; Public Release: 12/31/2006
; Global Variables Used: N/A
; Purpose: Meant to cut down on the
; hassle of skinning a corpse, then
; cutting the leather, then looting
; it.
;==================================
; SET YOUR HOTKEY TO PAUSE SCRIPT
;==================================
set %hotkey SCROLLLOCK
;==================================
; DO NOT MODIFY ANYTHING BELOW THIS
;==================================
set %daggar 0
set %scissors 0
set %blades CNF
set %sciss JAG_KAG
set %hides EEG_GED_DEG_VLK
set %leather VLK
set %meat VLK
set %corpse 0
set %paused false

goto Main

Main:
{
finditem %leather C_ , #backpackid
if #findkind <> -1
{
ignoreitem #findid
}

finditem %meat C_ , #backpackid
if #findkind <> -1
{
ignoreitem #findid
}

finditem %blades C_ , #backpackid
if #findkind <> -1
{
set %daggar #findid
}
else
{
display ok No daggar found, halting.
halt
}

finditem %sciss C_ , #backpackid
if #findkind <> -1
{
set %scissors #findid
}
else
{
display ok No scissors found, halting.
halt
}

goto Loop
}

Loop:
{
onhotkey %hotkey
{
event sysmessage Paused.
wait 10
goto Pause
}

finditem YFM G_1
if #findkind <> -1
{
set %corpse #findid
ignoreitem #findid
goto OpenCorpse
}
else
goto Loop

goto Loop
}

OpenCorpse:
{
set #lobjectid %corpse
event macro 17
scanjournal 1
wait 13
goto CutCorpse
}

CutCorpse:
{
set #lobjectid %daggar
set #ltargetid %corpse
event macro 17
target
event macro 22
wait 13
goto CutHides
}

CutHides:
{
finditem %hides C_

if #findkind <> -1
{
set #lobjectid %scissors
set #ltargetid #findid
event macro 17
target
event macro 22
wait 13
goto Loot
}
else
goto Loop
}

Loot:
{
finditem VLK C_

if #findkind <> -1
{
event drag #findid #findstack
wait 10
msg $
click 1158 216

ignoreitem #findid
wait 3

goto Loot
}
else
{
finditem %meat C_

if #findkind <> -1
{
exevent drag #findid #findstack
wait 5
exevent dropc #backpackid

ignoreitem #findid
wait 3

goto Loop
}
}

}

Pause:
{
set %paused #true

while %paused = #true
{
onhotkey %hotkey
{
event sysmessage Resumed.
set %paused #false
wait 10
goto Loop
}
}
}

2.-Es una modificación de la macro de Boxer, para que podamos coger objetos de un recipiente a otro, incluído nuestro inventario.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;
;Deja items de nuestra mochila a un cofre o bolsa by BoXeR:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;

set %CofreX 425
set %Cofrey 323
set %objetoid TSF
set %cofreID YYBKQPD ;si lo que pasamos es de un cofre a la maleta, modificacion por MI YYBKQPD
set %moX 947
set %moY 219
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;
Comienzo:
finditem %objetoid c_ , %cofreID
event drag #findid
wait 10
msg $
wait 10
click %moX %moY p
wait 1s
goto Comienzo:
return

3.- Gracias al gran excedente de madera que hay, se puede utilizar esta macro para subir artesanía (obviamente carpintería se podría subir también), y así subir esa habilidad. Habría que mirar la macro, porque yo aconsejo subir artesanía con frascos, pero si se hace así, habría que mirar porque no me acuerdo para qué objeto está hecha que fabrique, creo que para jeugos de mesa. Para que no se apilen en el inventario, habría que activar una macro paralela (la número 2), haciendo que suelte objetos con la ID de lo que hagamos, y los tire al suelo (poniendo coordenadas del suelo).

; Macro de ARTESANIA

; Antes de empezar, hay que ajustar las cinco variables del
; principio. MochilaX y MochilaY son las coordenadas de la
; mochila del paperdoll, ahi se dejarán los lingotes que
; cojamos del cofre. %contLingotesID es la ID del cofre que
; contiene los lingotes que vayamos a utilizar (dicho cofre solo
; debería contener lingotes de hierro). %x y %y es la posición
; del cofre o bolsa donde vayamos a depositar los engranajes.

; Nota por ^pampano^: Para saber la ID del cofre, abrirlo
; en UO y mirar en "Container Info" a la derecha ------->
; en "#CONTID"

; MODIFICADO por ^pampano^: Sólo creará herramientas si hay menos de 3 en la mochila (para que no se almacenen muchas...).
; MODIFICADO por ^pampano^: Arreglado el sobrepeso por coger lingotes de más. Configurar
; dos variables más: LingotesX y LingotesY será la localización del cofre donde tenemos los lingotes
; (para que deje los que sobren y evitar el sobrepeso).

; ---->Original por Da Vinci<----

; ------------------------------------------------------------------------------------

; Configurad estos valores

set %mochilaX 1116
set %mochilaY 284
set %contLingotesID QPSESPD
set %x 436
set %y 273
set %LingotesX 352
set %LingotesY 206

; A partir de aqui, no tocar nada

set %lingotes 0
set %engranajes 0
chooseskill TINK REAL
set %habilidadInicial #SKILL

INICIO:

setuotitle ARTESANIA | Inicial: %habilidadInicial | Actual: #SKILL | Lingotes: %lingotes | Engranajes: %engranajes
nextCPos 0 350
set #LOBJECTID %contLingotesID
event Macro 17 0 0
wait 5
gosub EsperaContenedor #CONTID %contLingotesID


finditem ZLK C_ , #BACKPACKID
wait 1s
if #FINDSTACK < 30
{
finditem ZLK C_ , #BACKPACKID ; Primero deja todos los lingotes de la mochila :P.
wait 1s
event Drag #FINDID
wait 5
gosub EsperaVentana CONTNAME stack_gump
msg #FINDSTACK $
click %LingotesX %LingotesY p
wait 1s
finditem ZLK C_ , %contLingotesID
wait 5
event Drag #FINDID
wait 5
gosub EsperaVentana CONTNAME stack_gump
msg 54 $
click %mochilaX %mochilaY p
wait 1s
set %lingotes %lingotes + 54
setuotitle ARTESANIA | Inicial: %habilidadInicial | Actual: #SKILL | Lingotes: %lingotes | Engranajes: %engranajes

}

CREAHERRAMIENTAS:
finditem GTL C_ , #BACKPACKID
wait 5
if #findcnt < 3 ; Aquí se pondría el número de herramientas máximo a tener en la mochila .
{
set #LOBJECTID #FINDID
event Macro 17 0 0
gosub EsperaVentana CONTNAME objpicker_gump
if #SKILL < 900
{
click 215 62 d
wait 10
click 62 63 d
}
else
{
click 215 62 f
wait 10
click 62 63 d
}
wait 1
gosub EsperaVentana CONTNAME objpicker_gump
click 266 67 x 10
wait 1
click 266 67 x 10
wait 1
click 266 67 x 10
wait 1
click 266 67 x 10
click 60 66 d
wait 35
}

FABRICANDO:
finditem ZLK C_ , #BACKPACKID
wait 1s
if #FINDSTACK > 20
{
finditem GTL C
wait 5
set #LOBJECTID #FINDID
event Macro 17 0 0
gosub EsperaVentana CONTNAME objpicker_gump
if #SKILL < 900
{
click 215 62 d
wait 10
click 62 63 d
}
else
{
click 215 62 d
wait 10
click 62 63 d
}
wait 1
gosub EsperaVentana CONTNAME objpicker_gump
click 104 55 d
wait 35
setuotitle ARTESANIA | Inicial: %habilidadInicial | Actual: #SKILL | Lingotes: %lingotes | Engranajes: %engranajes
finditem GTL C_ , #BACKPACKID
wait 5
if #findcnt < 3 ; Testea de nuevo para que no se quede sin herramientas a mitad :P.
{
goto CREAHERRAMIENTAS:
}

goto FABRICANDO
}
wait 35
nextCPos 0 150
finditem RCG C_ , #BACKPACKID
wait 5
set %engranajes %engranajes + #FINDSTACK
event Drag #FINDID
wait 5
gosub EsperaVentana CONTNAME stack_gump
msg $
click %x %y p

goto INICIO

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;,

sub EsperaVentana
set %tMax #SCNT
ESPERA1:
if # . %1 <> %2
{
wait 1
if %tMax + 5 < #SCNT
return #FALSE
goto ESPERA1
}
return #TRUE

sub EsperaCofre
set %tMax #SCNT
ESPERA2:
if # . %3 <> 180_240 || # . %1 <> %2
{
wait 1
if %tMax + 5 < #SCNT
return #FALSE
goto ESPERA2
}
return #TRUE

sub EsperaContenedor
set %tMax #SCNT
ESPERA3:
if %1 <> %2
{
wait 1
if %tMax + 5 < #SCNT
return #FALSE
goto ESPERA3
}
return #TRUE

[BurY]

Yo esque tengo la de BoXeR pero tengo 90 de tinker y nose que le pasa a la macro que se ralla y me tira todo el iron cuando le da la gana y perdí 20ks... por eso me da miedo ya. ¿Esta funciona seguro?

Un Saludo