Muchas gracias por la macro de talar!! Tengo un problema creo que lo hice todo bien y me dice escaneando...y no hace mas nada tio! que puede ser? Agregame a [email protected] y de paso quedamos en uo y te doy un regalo para agradecerte tu esfuerzo. Un saludo
Joseph de momento solo e probado la amcro de sastre y va de lujo... eres un jefe tio muchas gracias por ayudarnos a los q no tenemos ni PI de easyUOTHKss.
Un Saludo
PEQUEÑA APORTACION PARA MI GRAN AMIGO JOSEPH
; >>>>>>>>LEER LA CONFIGURACION<<<<<<<<<<<
; >>>>>>>>LEER LA CONFIGURACION<<<<<<<<<<<
; >>>>>>>>LEER LA CONFIGURACION<<<<<<<<<<<
;==================================
; Script Name: Simple Lumberjacker
; Author: Kedrick Valorite EDITADO por Alex para Ultima Alianza
; Version: 2.2e
; Client Tested with: 4.0.6a
; EUO version tested with: 1.42.009D
; Shard OSI / FS: OSI & RunUO FS's
; Revision Date: 07 December 04
; Public Release: 10 October 04
; Global Variables Used: None
; Purpose: Uses tile scan and autorail for Lumberjacking
; and allows you to store the logs in either the bank or
; a container.
;==================================
;_________________________________________________ ______________________________
;ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER
; No se aceptarán privados de gente que no le dá la gana leerse las instrucciones e intentarlo.
;ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER ATENCIÓN LEER
; Simplemente hay que darle a Play y te saldra un menu con el que configurar todo.
; ¿Cómo configurar?
; La macro se basa por puntos por los que ir andando NO recalea.
; Primero de todo debemos elegir si queremos que nos guarde la madera en un contenedor de casa o en el banco
; Seguidamente debemos crear un camino que nos lleve desde donde queremos talar hasta el lugar elegido (banco, casa)
; Para ello, clickemos en P. Camino. Cada ciertos pasos que demos para ir al lugar elegido debemos presionar la tecla F9
; o presionar Guardar. Se irán guardando los puntos en el menú.
; Al llegar, si hemos elegido banco, debemos estar en un lugar donde estemos seguros que siempre que digamos bank
; se nos abra el banco. Y en el caso de casa debemos llegar al lado del contenedor donde queremos dejarlos.
; Seguidamente le daremos al boton Banco o Contenedor, segun nuestra elección, la macro nos llevara donde estabamos.
; al principio cuando configuramos el camino, el cual debe ser el bosque donde queremos talar.
; Seguidamente debemos darle a Rail. Aqui iremos configurando puntos junto a arboles, tantos como querais.
; Lo haremos mediante F9 o dándole al boton Guardar. Debemos acabar los puntos más o menos donde empezamos.
; Una vez guardados todos los puntos debemos presionar Hecho.
; La macro empezará a talar y en cuanto estemos llenos dejará los troncos donde le hayamos dicho.
Set %CheckLang #TRUE
Set %MoveContainers #TRUE
Set %Freeshard #TRUE
Set %UseSkillToolEquiped #TRUE
Set %LumberjackTools LSF_BSF_NSF_ZRF_RMH_LPH_UOH_FSF_ASF
Set %CarpentryTools YFG_ZHG_CIG_BIG_AGG_EGG_AIG_WFG_IGG_KGG_ZFG
Set %SkillTools %LumberjackTools
Set %logs ZLK
Set %Boards TLK
Set %autorail_storageid
Set %autorail_storagetype
Set %autorail_waypointcounter 0
Set %autorail_pointcounter 0
;Tile Scanner Variables
Tile Init
Set %SearchRadius 2
;_________________________________________________ ______________________________
;Main
Gosub SetupDesktop
Gosub showSimpleLJ
Gosub autorail_setup
For %Main #TRUE #FALSE
{
Gosub SimpleStatusCheck
Gosub autorail_move
Gosub TileScanner %SearchRadius TREE
Gosub Lumberjack
If ! %Error
Set %Main #TRUE
}
;_________________________________________________ ______________________________
Sub lumberjack
For %target_index 1 %tile_index
{
Menu List Select Targets %target_index
For %choptarget #TRUE #FALSE
{
Wait 0
Gosub SimpleStatusCheck
Set #LOBJECTID %CurrentSkillTool
Set #LTARGETX %tile_X . %target_index
Set #LTARGETY %tile_Y . %target_index
Set #LTARGETZ %tile_Z . %target_index
Set #LTARGETKIND 3
Set #LTARGETTILE %tile_type . %target_index
Event macro 17 0
Target
Event macro 22 0
Wait 6s
Gosub SimpleStatuscheck
deletejournal
scanjournal 1
if Talas_DURANTE_UN in #JOURNAL
{
Wait 0
Set %LookForSysmsg #FALSE
Set %choptarget #FALSE
}
Set %LookForSysmsgTimeout #SCNT + 30
For %LookForSysmsg #TRUE #FALSE
{
Wait 0
If #SCNT < %LookForSysmsgTimeout
Set %LookForSysmsg #TRUE
If THAT_IS_TOO in #SYSMSG || NOT_ENOUGH in #SYSMSG || AQUI_NO_HAY in #SYSMSG
{
Wait 0
Set %LookForSysmsg #FALSE
Set %choptarget #FALSE
}
scanjournal 1
If SOME_LOGS in #SYSMSG || YOU_HACK in #SYSMSG || YOU_PUT in #SYSMSG || TALAS_DURANTE_UN in #JOURNAL || YOUR_SKILL in #SYSMSG
{
Wait 0
Set %LookForSysmsg #FALSE
Set %choptarget #TRUE
}
}
}
Wait 3
}
scanjournal 1
if Talas_DURANTE_UN in #JOURNAL || your in #journal
{
Wait 0
Set %LookForSysmsg #FALSE
Set %choptarget #TRUE
}
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub SimpleStatusCheck
If #WEIGHT = N/A
Gosub setupdesktop
if #WEIGHT > #MAXWEIGHT - 40 || #WEIGHT > 360
Gosub overweight
For %FoundSkillTool #FALSE #TRUE
{
If %UseSkillToolEquiped #TRUE
{
finditem %Skilltools C_ , #CHARID
if #FINDKIND = 0
{
Set %CurrentSkillTool #FINDID
Set %FoundSkillTool #TRUE
}
else
{
Set %FoundSkillTool #FALSE
FINDITEM %Skilltools C_ , #BackpackID
IF #FINDKIND = 0
{
SET %CurrentSkillTool #FINDID
SET #LHANDID #FINDID
SET #RHANDID #FINDID
event macro 24 1
wait 1s
event macro 24 2
WAIT 1s
}
Else
{
;Gosub SimpleCrafting <---------------------------------- ToDo
Display OK You need the proper tool.$Script Paused.
Paused
}
}
}
Else
{
FINDITEM %Skilltools C_ , #BackpackID
IF #FINDKIND = 0
{
SET %CurrentSkillTool #FINDID
Set %FoundSkillTool #TRUE
}
Else
{
Set %FoundSkillTool #FALSE
;Gosub SimpleCrafting <---------------------------------- ToDo
Display OK You need the proper tool.$Script Paused.
Paused
}
}
}
;Hit point check, #Enemyid check <---------------------------------- ToDo
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
sub overweight
;Finditem %Logs C_ , #BACKPACKID
;if #FINDKIND = 0
; {
; Finditem %CarpentryTools C_ , #BACKPACKID
; If #FINDKIND = 0
; {
; Set #LOBJECTID #FINDID
; Event Macro 17
;
;
; <---------------------------------- ToDo
;
;
If %autorail_waypointcounter > 0
Gosub autorail_waypointmove TO
gosub autorail_storagemove
if %autorail_storagetype = BANK
{
msg bank$
Set %WaitForBankBox #SCNT + 60
For %OverweightWaitForBankBox #TRUE #False
{
wait 0
if #CONTID = %autorail_storageid
{
wait 10
Set %autorail_containerclickx #CONTPOSX + 50
Set %autorail_containerclicky #CONTPOSY + 70
Set %OverweightWaitForBankBox #FALSE
}
else
Set %OverweightWaitForBankBox #TRUE
}
}
finditem %Logs C_ , #BACKPACKID
if #FINDKIND = 0
{
event drag #FINDID
waitforstackgump:
if #CONTNAME = stack_gump
msg $
else
goto Waitforstackgump
wait 20
click %autorail_containerclickx %autorail_containerclicky p
}
If %autorail_waypointcounter > 0
Gosub autorail_waypointmove FROM
Gosub autorail_move
Gosub TileScanner %SearchRadius TREE
Return
;_________________________________________________ ______________________________
;Position the paperdoll, main pack, and Status bar.
Sub SimpleDesktopSetup
Gosub SimpleDesktopSetupWaitForGump 1 paperdoll_gump 262_324 #CHARID
Wait 8
If %MoveContainers
Contpos 645 0
Wait 8
Gosub SimpleDesktopSetupWaitForGump 7 container_gump 230_204 #BACKPACKID
wait 8
If %MoveContainers
Contpos 645 275
wait 8
Gosub SimpleDesktopSetupWaitForGump 2 status_gump 432_184 #CHARID
Wait 8
If %MoveContainers
Contpos 0 500
Wait 8
if #clilang <> enu && %checklang
{
display OK # , clilang = #CLILANG $$Tu cliente debe estar en modo ingles para que funcione. Pon o cambia$
+ esta linea en uo.cfg. $$Nota: Debe incluirse en el Personaje que quieras usar.$$
+ UserLanguageCodeString=ENU$$Script_Halted.$$
halt
}
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub SimpleDesktopSetupWaitForGump
If #CONTNAME = %2 && #CONTSIZE = %3 && #CONTID = %4
Return
Event Macro 9 %1
Wait 10
Event Macro 8 %1
Wait 10
Set %WaitForGumpTimeout #SCNT + 20
For %WaitForGumpLoop #FALSE #TRUE
{
Wait 0
If ! ( #CONTNAME = %2 && #CONTSIZE = %3 && #CONTID = %4 )
{
If #SCNT < %WaitForGumpTimeout
Set %WaitForGumpLoop #FALSE
}
Set %WaitForGumpLoop #TRUE
}
Return
;_________________________________________________ ______________________________
;Autorail Code
Sub autorail_Setup
autorail_SetupStart:
Set #MENUBUTTON N/A
Menu Text StatusMsg 4 4 Configuracion del camino al banco o a al container en casa: Presionar Camino.
Menu Text StatusMsg 4 24 Para crear los puntos donde hay arboles: Presionar en Rail.
Menu Button EUOButton1 8 164 75 25 P.Camino
Menu Button EUOButton2 88 164 75 25 Rail
GetSetupWaitForMenu:
If #MENUBUTTON = EUOButton1
{
Menu Delete StatusMsg
Menu Delete StatusMsgSave
Menu Delete EUOButton1
Menu Delete EUOButton2
Gosub autorail_setwaypoints
Goto autorail_SetupStart
}
If #MENUBUTTON = EUOButton2
{
Menu Delete StatusMsg
Menu Delete StatusMsgSave
Menu Delete EUOButton1
Menu Delete EUOButton2
Gosub autorail_setrail
If %autorail_storageset = #TRUE
Goto autorail_setupDone
}
goto GetSetupWaitForMenu
autorail_setupDone:
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;use this sub to actually move along the rail.
Sub autorail_move
Menu List Select Rail %autorail_targetcounter
autorail_movetotarget:
move %autorail_pointx . %autorail_targetcounter %autorail_pointy . %autorail_targetcounter 0 60s
If ( #CHARPOSX <> %autorail_pointx . %autorail_targetcounter ) && ( #CHARPOSY <> %autorail_pointy . %autorail_targetcounter )
goto autorail_movetotarget
If %autorail_pointtype . %autorail_targetcounter = WAYPOINT
Set %autorail_waypointflag #TRUE
else
Set %autorail_waypointflag #FALSE
If %autorail_movedirection = UP
Set %autorail_targetcounter %autorail_targetcounter + 1
If %autorail_movedirection = DOWN || %autorail_movedirection = N/A
Set %autorail_targetcounter %autorail_targetcounter - 1
If %autorail_targetcounter => ( %autorail_pointcounter - 1 ) || %autorail_movedirection = N/A
Set %autorail_movedirection DOWN
If %autorail_targetcounter < 2
Set %autorail_movedirection UP
if %autorail_waypointflag = #TRUE
goto autorail_movetotarget
else
return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;This sub moves to the point where your storage container is available.
Sub autorail_storagemove
autorail_storagemove:
move %autorail_storagex %autorail_storagey 0 60s
If ( #CHARPOSX <> %autorail_storagex ) && ( #CHARPOSY <> %autorail_storagey )
Goto autorail_storagemove
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
;This sub moves along waypoints to/from the storage location.
Sub autorail_waypointmove
If %1 = TO
{
For %autorail_targetwaypoint 1 %autorail_waypointcounter
{
autorail_waypointmovetotarget:
Menu List Select Waypoint %autorail_targetwaypoint
move %autorail_waypointx . %autorail_targetwaypoint %autorail_waypointy . %autorail_targetwaypoint 0 60s
If ( #CHARPOSX <> %autorail_waypointx . %autorail_targetwaypoint ) && ( #CHARPOSY <> %autorail_waypointy . %autorail_targetwaypoint )
Goto autorail_waypointmovetotarget
}
}
if %1 = FROM
{
For %autorail_targetwaypoint %autorail_waypointcounter 1
{
autorail_waypointmovefromtarget:
Menu List Select Waypoint %autorail_targetwaypoint
move %autorail_waypointx . %autorail_targetwaypoint %autorail_waypointy . %autorail_targetwaypoint 0 60s
If ( #CHARPOSX <> %autorail_waypointx . %autorail_targetwaypoint ) && ( #CHARPOSY <> %autorail_waypointy . %autorail_targetwaypoint )
Goto autorail_waypointmovefromtarget
}
}
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_setrail
Set #MENUBUTTON N/A
Menu Text StatusMsg 4 4 Para guardar un punto, presionar F9 o el boton Guardar. Se recomienda
Menu Text StatusMsg 4 24 Guardar cada punto en el que se cambia de direccion. Cuando el camino este
Menu Text StatusMsg 4 44 completado presionar F10 o el boton Hecho. Si te equivocas y quieres borrar un punto
Menu Text StatusMsg 4 64 puedes presionar F12 o el boton borrar.
Menu Button EUOButton1 4 164 90 25 F9:Guardar
Menu Button EUOButton2 98 164 90 25 F10:Hecho
Menu Button EUOButton3 192 164 90 25 F12:Borrar
autorail_setrailgethotkey:
Onhotkey F9
Gosub autorail_savepoint
Onhotkey F10
Goto autorail_setrailend
Onhotkey F12
Gosub autorail_Deleterail
if #MENUBUTTON = EUOButton1
Gosub autorail_savepoint
if #MENUBUTTON = EUOButton2
Goto autorail_setrailend
if #MENUBUTTON = EUOButton3
Gosub autorail_Deleterail
Wait 0
goto autorail_setrailgethotkey
autorail_setrailend:
Set %autorail_targetcounter %autorail_pointcounter
Menu Delete StatusMsg
Menu Delete EUOButton1
Menu Delete EUOButton2
Menu Delete EUOButton3
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_savepoint
Menu Delete StatusMsgSave
Set %autorail_pointcounter %autorail_pointcounter + 1
Set %autorail_pointx . %autorail_pointcounter #CHARPOSX
Set %autorail_pointy . %autorail_pointcounter #CHARPOSY
Menu Text StatusMsgSave 4 144 Puntos Guardados %autorail_pointcounter
Menu List add Rail %autorail_pointcounter , #spc , %autorail_pointx . %autorail_pointcounter , #spc , / , #spc , %autorail_pointy . %autorail_pointcounter
Set #MENUBUTTON N/A
Wait 10
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_Deleterail
Menu Delete StatusSaveMsg
Menu Delete Rail
menu list Create Rail 654 24 150 160
Set %autorail_pointcounter 0
Menu Text StatusMsgSave 4 144 Rail Borrado
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_setwaypoints
autorail_setwaypointsstart:
Set %autorail_storageset #FALSE
Set #MENUBUTTON N/A
Menu Text StatusMsg 4 4 Para guardar un punto presionar el boton Guardar o F9. Se recomienda guardar
Menu Text StatusMsg 4 24 cada punto donde se cambia de direccion. Cuando el camino esta completado
Menu Text StatusMsg 4 44 presionar el boton Banco para usar el Banco como caja, o presionar el boton
Menu Text StatusMsg 4 64 Contenedor o F11 para usar un Contenedor que tengamos donde queramos.
Menu Button EUOButton1 4 164 90 25 F9:Guardar
Menu Button EUOButton2 98 164 90 25 F10:Banco
Menu Button EUOButton3 192 164 90 25 F11:Contenedor
Menu Button EUOButton4 286 164 90 25 F12:Cancelar
autorail_setwaypointsWaitForMenu:
Set #MENUBUTTON N/A
onhotkey F9
Gosub autorail_setwaypoint
onhotkey F10
Gosub autorail_bank
onhotkey F11
Gosub autorail_container
onhotkey F12
Gosub autorail_DeleteWaypoints
if #MENUBUTTON = EUOButton1
Gosub autorail_setwaypoint
if #MENUBUTTON = EUOButton2
Gosub autorail_bank
if #MENUBUTTON = EUOButton3
Gosub autorail_container
if #MENUBUTTON = EUOButton4
Gosub autorail_DeleteWaypoints
wait 0
If #MENUBUTTON = CANCELSTORAGE
{
Goto autorail_setwaypointsstart
}
If %autorail_storageset = #TRUE
{
Gosub autorail_waypointmove FROM
goto autorail_setwaypointsfinish
}
If %autorail_storageset = #FALSE
{
Goto autorail_setwaypointsWaitForMenu
}
autorail_setwaypointsfinish:
Menu Delete StatusMsg
Menu Delete StatusMsgSave
Menu Delete EUOButton1
Menu Delete EUOButton2
Menu Delete EUOButton3
Menu Delete EUOButton4
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_opendoor
ZPC_BQC_HQC_JQC
CQC_MQC_KQC_UQC
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_setwaypoint
Menu Delete StatusMsgSave
Set %autorail_waypointcounter %autorail_waypointcounter + 1
Set %autorail_waypointx . %autorail_waypointcounter #CHARPOSX
Set %autorail_waypointy . %autorail_waypointcounter #CHARPOSY
Menu Text StatusMsgSave 4 144 Puntos Guardados %autorail_waypointcounter
Menu List add Waypoint %autorail_waypointcounter , #spc , %autorail_waypointx . %autorail_waypointcounter , #spc , / , #spc , %autorail_waypointy . %autorail_waypointcounter
Set #MENUBUTTON N/A
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_DeleteWaypoints
Menu Delete StatusSaveMsg
Menu Delete Waypoint
menu list Create Waypoint 502 24 150 160
Set %autorail_waypointcounter 0
Menu Text StatusMsgSave 4 144 Puntos Borrados
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_container
Menu Delete StatusMsg
Menu Delete StatusMsgSave
Menu Delete EUOButton1
Menu Delete EUOButton2
Menu Delete EUOButton3
Menu Delete EUOButton4
Set #MENUBUTTON N/A
Set %autorail_storagetype CONTAINER
Set %autorail_storagex #CHARPOSX
Set %autorail_storagey #CHARPOSY
Menu Text StatusMsg 4 4 Ahora debes estar en un punto en el cual puedas seleccionar el contenedor a usar para
Menu Text StatusMsg 4 24 dejar los troncos.. Selecciona el contenedor a usar con el cursorrsor.Si te equivocas
Menu Text StatusMsg 4 44 i quieres continuar creando puntos del camino, o quieres usar el banco en vez del contenedor
Menu Text StatusMsg 4 64 selecciona cualquier otra cosa.
Set #TARGCURS 1
autorail_container_waittarget:
If #TARGCURS = 0
{
Set %autorail_containerclickx #CURSORX
Set %autorail_containerclicky #CURSORY
}
If #TARGCURS = 1
{
Wait 0
Goto autorail_container_waittarget
}
Set %autorail_storageid #LTARGETID
Set #LOBJECTID %autorail_storageid
Menu Text StatusMsgSave 4 144 Container: %autorail_storageid %autorail_containerclickx %autorail_containerclicky
Wait 10
Event Macro 17 0
Wait 20
Menu Delete StatusMsg
Menu Text StatusMsg 4 4 Esta ahora el contenedor que quieres usar abierto?
Menu Button EUOButton1 8 164 75 25 Si
Menu Button EUOButton2 88 164 75 25 No/Cancelar
Set #MENUBUTTON N/A
autorail_container_waitconfirmchoice:
If #MENUBUTTON = EUOButton1
{
Set %autorail_storageset #TRUE
}
If #MENUBUTTON = EUOButton2
{
Set %autorail_storagetype N/A
Set %autorail_storagex N/A
Set %autorail_storagey N/A
Set %autorail_storageid N/A
Set #MENUBUTTON CANCELSTORAGE
Set %autorail_storageset #FALSE
}
If #MENUBUTTON = N/A
{
goto autorail_container_waitconfirmchoice
Set %autorail_storageset #FALSE
}
Set #MENUBUTTON N/A
Menu Delete StatusMsg
Menu Delete StatusMsgSave
Menu Delete EUOButton1
Menu Delete EUOButton2
Return
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub autorail_bank
Menu Delete StatusMsg
Menu Delete StatusMsgSave
Menu Delete EUOButton1
Menu Delete EUOButton2
Menu Delete EUOButton3
Menu Delete EUOButton4
Set #MENUBUTTON N/A
Set %autorail_storagetype BANK
Set %autorail_storagex #CHARPOSX
Set %autorail_storagey #CHARPOSY
Menu Text StatusMsg 4 4 Debes estar ahora en un lugar en el qual puedas decir bank y se te abra el banco.
Menu Text StatusMsg 4 24 de tu personaje. Si tu banco se abre diciendo bank, presiona Aceptar para guardar
Menu Text StatusMsg 4 44 este punto y usar el banco como lugar donde guardar los troncos. Si no es asi ve a otro
Menu Text StatusMsg 4 64 lugar y presiona Reintentar para ajustar tu posicion, o presiona Cancelar.
menu Font Transparent #TRUE
menu Font Align Left
menu Font Name Lucinda Sans Unicode
menu Font Size 14
menu Font Style b
menu Font Color Red
Menu Text StatusMsg 4 90 Macro de Lumberjacking,
menu Font Style bi
Menu Text StatusMsg 4 110 Ultima Alianza
menu Font Transparent #TRUE
menu Font Align Left
menu Font Name Lucinda Sans Unicode
menu Font Size 10
menu Font Style
menu Font Color WindowText
Menu Button EUOButton1 8 164 75 25 Aceptar
Menu Button EUOButton2 87 164 75 25 Reintentar
Menu Button EUOButton3 166 164 75 25 Cancelar
autorail_bankopen:
msg bank$
Wait 20
autorail_bankWaitBtn:
If #MENUBUTTON = EUOButton1
{
Set %autorail_storageid #CONTID
Set %autorail_storageset #TRUE
Set %autorail_containerclickx #CONTPOSX + 30
Set %autorail_containerclicky #CONTPOSY + 50
Menu Delete StatusMsg
Menu Delete EUOButton1
Menu Delete EUOButton2
Menu Delete EUOButton3
Return
}
If #MENUBUTTON = EUOButton2
{
Set %autorail_storagetype N/A
Set %autorail_storagex N/A
Set %autorail_storagey N/A
Set %autorail_storageid N/A
Set %autorail_storageset #FALSE
Goto autorail_bankopen
}
If #MENUBUTTON = EUOButton3
{
Set %autorail_storagetype N/A
Set %autorail_storagex N/A
Set %autorail_storagey N/A
Set %autorail_storageid N/A
Set #MENUBUTTON CANCELSTORAGE
Set %autorail_storageset #FALSE
Menu Delete StatusMsg
Menu Delete EUOButton1
Menu Delete EUOButton2
Menu Delete EUOButton3
Return
}
Goto autorail_bankWaitBtn
Return
;_________________________________________________ ______________________________
;Tile Scan Code
Sub TileScanner
If %0 < 2
Set %2 ALL
Menu Text 4 4 Target Trees
Menu List Create Targets 4 24 496 160
Set %Scan_Low_X_Point #CHARPOSX - %1
Set %Scan_High_X_Point #CHARPOSX + %1
Set %Scan_Low_Y_Point #CHARPOSY - %1
Set %Scan_High_Y_Point #CHARPOSY + %1
Set %tile_index 0
For %scan_X_Point %scan_Low_X_Point %scan_High_X_Point
{
For %scan_Y_point %scan_Low_Y_Point %scan_High_Y_Point
{
Tile cnt %Scan_X_Point %Scan_Y_Point
For %tile_scan 1 #TILECNT
{
Tile get %Scan_X_Point %Scan_Y_Point %tile_scan
Set %ZCompare #CHARPOSZ - #TILEZ abs
If ( %2 in #TILENAME || %2 = ALL ) && %ZCompare < 19
{
Set %tile_index %tile_index + 1
Set %Tile_Name . %Tile_Index #TILENAME
Set %Tile_Type . %Tile_Index #TILETYPE
Set %Tile_X . %Tile_Index %Scan_X_Point
Set %Tile_Y . %Tile_Index %Scan_Y_Point
Set %Tile_Z . %Tile_Index #TILEZ
Set %Tile_CompareDistX abs ( #CHARPOSX - %Tile_X . %Tile_Index )
Set %Tile_CompareDistY abs ( #CHARPOSY - %Tile_Y . %Tile_Index )
If %Tile_CompareDistX > %Tile_CompareDistY
Set %Tile_Distance . %Tile_Index %Tile_CompareDistX
Else
Set %Tile_Distance . %Tile_Index %Tile_CompareDistY
Menu List Add Targets %Tile_Name . %Tile_Index , #spc , Type: , %Tile_Type . %Tile_Index , #spc , X: , %Tile_X . %Tile_Index , #spc , Y: , %Tile_Y . %Tile_Index , #spc , Z: , %Tile_Z . %Tile_Index , #spc , Dist.: , %Tile_Distance . %Tile_Index
}
}
}
}
Return
;_________________________________________________ ______________________________
;Menu Code
sub showSimpleLJ
menu Clear
menu Window Title Macro Lumberjaking Ultima Alianza
menu Window Color BtnFace
menu Window Size 808 193
menu Font Transparent #true
menu Font Align Left
menu Font Name Lucinda Sans Unicode
menu Font Size 10
menu Font Style
menu Font Color WindowText
menu Font Align Left
menu Font BGColor btnface
Menu Text ListWaypointTitle 502 4 Puntos Camino
menu list Create Waypoint 502 24 150 160
Menu Text ListRailTitle 654 4 Puntos Rail
menu list Create Rail 654 24 150 160
menu Show 0 513
return
FUNCIONA AL LADO DE UN COFRE HACEMOS RAILES DANDOLE 2 CLICK AL ARBOL Y AL BOTON QUE INDIQUE
GRACIAS A TODOS Y A JOSE EN ESPECIAL POR SUS APORTACIONES
perdonad mi ignorancia pero como tengo k configurar la macro de herreria o en donde tengo k poner lo lingotes nose explicarme por favor lo agradeceria muchisimo
joseph sabes si tu macro de alquimia se puede configurar para q haga pociones mejoradas en vez de la de veneno menor? si se puede podrias explicarme como configurarla?llevo dias intentando ver como se podria configurar pero no tengo idea de como,espero q puedas ayudarme grasias.
Una macro de herreria k aga collarines y no dagas
hola de nuevo josep,haber si me puedes poner una macro de pacificar, rastrear,pastorear.lo k puedas se agradecera saludos
Macro: Rastrear
; Autor: JoSePh
; Version Easyuo: 1.5, 177
; Servidor: Ultima Alianza
; Cliente: 5.0.9
;==================================
; Situate al lado del golem y pulsa play.
set %comida PQD_MQE_FUD_OQE_YRD_YWI_AXI_VQE_BDF_TQE_KPE_QQD_RQ E_SQD_SPE_JQE_ZPE_IQE_YSD
ChooseSkill trac real
Set %SkillIni #SKILL
inicio:
gosub comer
for %i 1 50
{
set %subidos #skill - %SkillIni
Setuotitle | Rastrear | S.Inicial: %SkillIni | S. Actual: #SKILL | Incremento: %subidos
Event Macro 13 38
wait 10
click 16 128
wait 10
click 16 60
wait 20
}
goto inicio
sub comer
finditem %comida C_ , #backpackid
set #lobjectid #findid
event macro 17
return
PACIFICAR
macro:
event macro 26 0
wait 2
if #LTARGETID = #CHARID
{
goto macro
}
else
{
event macro 13 9
wait 5
event macro 22 0
wait 7s
}
goto macro
gracias x las 2 macros me han ayudado muxoIniciado por vivi
de nada
saludos
Me puedes hacer una macro de separar los irons de 1 en 1 y que los funda ? Muchas gracias
Tambien querria saber si ai forma de macrear curar solo... si es asi otra macro xd gracias de nuevo
Última edición por AdriVaro; 12-May-2012 a las 20:36
Hola me podrias acer el favor de colgar una macro de talar k vaya talando por los bosques de brit?¿?y otra macro de caballeria me iria tmb muy bien gracias.
Saludos
wenas, haber si me podeis poner una macro pa encantar.
p.d.hasta ahora todas las k me pasasteis de lujo gracias
aki tienes la de fundir crack, el color en rojo es el numero de minerales k separa para fundir.
; Macro by Alex (Ultima Alianza)
; Para Separar ores y fundirlos.
; Necesitamos un cofre donde tengamos los ores a separar y poder dejar los lingotes,
; junto a una forja, vigilad que tengamos linea de visión con ambos.
; Primero tenemos que poner cuantos ores debe separar y fundir
; es recomendable poner de 50 a 100 para que no tengamos sobrepeso
; Al empezar deberemos configurar el Cofre y un punto de nuestra mochila.
; Los pasos se explican en el UO al darle a empezar, fijaros en la barra superior del UO.
; Una vez configurado la macro empezará sola a separar, fundir y guardar.
; Macro para funcionar en Ultima Alianza
; IMPORTANTE: Haced paquetes de 200 en 200 de los minerales, no superiores (dentro del baúl).
; Poner aquí el número de ores que irá separando y fundiendo cada vez. (10, 20, 30,...)
;--------------------------
set %sep 50
:--------------------------
initevents
set %confp 1
chooseskill mini
set %skillini #skill
configurar:
if %confp = 1
{
Event sysmessage Abre el cofre en el que tienes los ores a separar y manten el cursor en el.
event sysmessage Y presiona la tecla ESC
setuotitle Abre el contenedor que contiene los ores y luego manten el cursor en el y presiona ESC
set %conf 1
set %confp 2
goto TESC
}
if %confp = 2
{
setuotitle Pon el cursor donde quieras llevar el objeto a separar de tu mochila y presiona ESC
event sysmessage Pon el cursor donde desees dejar el objeto a separar
event sysmessage Y presiona la tecla ESC
set %conf 2
goto TESC
}
TESC:
onHotKey ESC
{
if %conf = 1
{
set %cofre #LOBJECTID
set %cofrex #CURSORX
set %cofrey #CURSORY
goto configurar
}
if %conf = 2
{
set %dejarx #CURSORX
set %dejary #CURSORY
set %tot 0
set %vez 0
set %fin 0
goto separar
}
}
goto TESC
separar:
set %skillinc #SKILL - %skillini
for %vecesS 1 %sep
{
finditem TVJ c_ , %cofre
if #FINDSTACK = 0
{
findItem GWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem EWJ C_ , %cofre
if #FINDSTACK = 0
{
findItem DWJ C_ , %cofre
if #FINDSTACK = 0
{
set %fin 1
}
}
}
}
event drag #FINDID
wait 10
msg 1 $
click %dejarx %dejary p
wait 10
setuotitle Accion: Separando | Cantidad: ( %vecesS / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
}
fundir:
findItem TVJ C_ , #BACKPACKID
if #FINDSTACK > 0
{
set #LOBJECTID #FINDID
event macro 17
set %vecesF %vecesF + 1
setuotitle Accion: Fundiendo | Cantidad: ( %vecesF / %sep ) | Veces: %vez | Guardado: %tot | S. Inicial: %skillini | S. Actual: #SKILL | S. Inc: %skillinc
wait 10
goto fundir
}
if %fin = 1
{
set %fin 2
}
set %vecesF 0
guardar:
setuotitle Accion: Guardando | Veces: %vez | Guardado: %tot | Inicial: %skillini | Actual: #SKILL | Inc: %skillinc
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
}
}
}
event drag #findid
wait 10
KEY ENTER
wait 10
click %cofrex %cofrey p
set %tot %tot + #FINDSTACK
findItem RMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem NMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem XMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
findItem TMK C_ , #BACKPACKID
if #FINDSTACK = 0
{
if %fin = 2
{
gosub finalizar
}
}
}
}
}
if #FINDSTACK > 0
{
goto guardar
}
set %vez %vez + 1
goto separar
sub finalizar
{
display OK Se ha finalizado la macro!$No se ha encontrado más mineral que fundir.
halt
}
aki tienes la de curarte, te pones un arma k suba fuerza y la guardas en "uid_1", tienes k estar al lado de un pilon xk la macro limpia vendas.
;==================================
; Script Name: Entrenar Curar
; Author: Trokolo
; Version: 1.8
; Client Tested with: 2.0.3
; EUO version tested with: 1.5 Version 130
; Shard: Ultima Alianza
; Release: 15/06/08
; Purpose: Heal
;==================================
;Configurar:
;Para usar esta macro se precisa un arma que incremente tu STR
;En el UO escribir .guardar_uid 1 y seleccionar el arma
;Debereis poneros cerca de un bidon de agua para limpiar las vendas.
set #SYSMSGCOL 68
event sysmessage Macro Ofrecida por el clan Aeternus Animas
event sysmessage Bienvenido a la Macro de Curar #CHARNAME visita el vendor SuperStore de Trinsic.
wait 20
chooseskill heal real
set %skillini #SKILL
set %bidon WEE_VEE_QEE_TEE
curar:
set %skillinc #SKILL - %skillini
setuotitle | Skill Inicial:: %skillini | Skill Actual: #SKILL | Incremento: %skillinc |
msg .usar_uid 1 $ ;Arma Defensa +9
wait 10
msg .vendas $
wait 5
event macro 23 0
wait 10
scanjournal
if te_aplicas_las_vendas_pero_fallas in #journal || No_logras in #journal || no_necesitas in #journal
{
wait 2s
goto curar
}
msg .desarmarse $ ;Te desarmas
wait 17s
finditem AMF ;Vendas sucias
set #LOBJECTID #FINDID
event macro 17 0 0 ;LastObject
wait 20
finditem %bidon G_ , 1 ;Cubo de Agua
set #LTARGETID #findid
event macro 22 0
goto curar:
alguien me podria ayudar con la macro de herreria de josep no me coge los hierros no cierra el sistema de recompensas,solo funciona si tengo hierros encima
ami me vendria al pelillo la que te pidieron de hace3r corazas de minerales inservibles de un cofre y hacerlas tikets
la de talar en isla magica y la de restaurar libritos elficos
grache señore
Gracias por todas las aportaciones asi da gusto....Podrias hacer alguna de caballeria? Muchas gracias
Plz una macro de pastorear
Joseph, ¿Podrías poner una macro de minar?
Y si es posible con las explicaciones de donde colocar todo y que hay que modificar en la propia macro porque no entiendo mucho de Easy.
Muchas gracias ^^
Permisos de publicación
Citar