Macro Lumberjacking

[zorro]

Buenas a todos, necesito una macro de lumberjacking que vaya talando y recaleando y dejando en cofre seguro y vuelva a recalear para seguir talando.

Aver si alguien se lo curra y sube una que funcione ya que probe todas las posteadas en esta seccion y no me acaba de funcionar bien ninguna de ellas.

Gracias de antemano, y saludos!

[zorro]

nadie tiene una macro de talar?

[El Dementor]

Pides mucho.. xD, seguro ke aki en ua ai makinas k la acen en 0.1 xD

[karmelot]

A lo mejor es todo lo contrarío y por eso no laas comparten... no has pensado en eso Dementor? xDD

[El Dementor]

Hombre como poder puede ser.. XDDDDD

[CHIguAKA]

Yo me lo subí con la de ir tirando madera y en una semanita de 30 a 100 sin dejarlo por las noches.

[El Dementor]

Yo me lo subí con la de ir tirando madera y en una semanita de 30 a 100 sin dejarlo por las noches.

CHIguAKA no has pensado que alomejor el chaval lo que quiere no es subir sino conseguir madera? XD

[zorro]

venga aver si se anima alguien a subir alguna!!!!

[-SkuzKabel-]

Te dejo una macro que va por rail por coordenadas en la parte de los zulos de brit todo a la izquierda entre dos montañas empieza por hay.

; ----------------------------------------------------------------------------------
; Script Lumber v1
; SkuzKabel & KATA @ CIA
;-----------------------------------------------------------------------------------
; (c) 2003-07 By SkuzKabel & KATA
;-----------------------------------------------------------------------------------


Tile Init
Set %SR 3

set %drcn 0
set %xlx 0
set %xlx 0
set %dsnt 30

set %crx #CHARPOSX
set %cry #CHARPOSY

set %vcs 0
set %sts 0
set %hrta 0

set %psxm #MAXWEIGHT - 60
set %mvnt 0
set %nmcns 20

set %psxcf 998
set %psycf 1887

initevents
setuotitle -- Peso #WEIGHT / #MAXWEIGHT -- vcs %vcs / 20 -- sts: %sts

gosub bscr
wait 1s

gosub brtdi

nc:

if %vcs > %nmcns
{
gosub scpd
goto nc
}

set %ntrx #CHARPOSX
set %ntry #CHARPOSY

if %sts = 0
gosub fcstfr %vcs
if %sts = 1
gosub fcst1fr %vcs
if %sts = 2
gosub fcst2fr %vcs
if %sts = 3
gosub fcst3fr %vcs

if #CHARPOSX = %ntrx && #CHARPOSY = %ntry
{
set %vcs %vcs + 1
goto nc
}



if #CONTKIND = CTU
halt
if #CONTKIND = STOB
halt

seguir:

if %vcs > %nmcns
{
gosub scpd
goto nc
}

Gosub TLSnn %SR TREE
Gosub lmbk
wait 4s

if #WEIGHT > %psxm
{
bbkk:
set %crx #CHARPOSX
set %cry #CHARPOSY

wait 1s
event macro 23 0
gosub rlnc
gosub ncfrt
call brtdi

gosub vvlc
}

goto nc
sub bscr
set %tipoobjeto BSF_ISF_FSF_MSF_ASF_MPH_BSF

finditem %tipoobjeto
set #LOBJECTID #FINDID
event macro 17 0
set %hrta #FINDID
return

sub rlnc

if %sts = 2
move 995 1922 a
move %psxcf %psycf a

return

sub vvlc

if %sts = 0
move 1018 1908
move %crx %cry a

return

sub talar

if %direccion = 0 ;Norte
{
set %auxiliarY %cursorY - %dsnt
set %direccion %direccion + 1
return
}
if %direccion = 1 ;NorteEste
{
set %auxiliarY %cursorY - %dsnt
set %xlx %cursorX + %dsnt
set %direccion %direccion + 1
return
}
if %direccion = 2 ; Este
{
set %auxiliarY %cursorY
set %xlx %cursorX + %dsnt
set %direccion %direccion + 1
return
}
if %direccion = 3 ; SurEste
{
set %auxiliarY %cursorY + %dsnt
set %xlx %cursorX + %dsnt
set %direccion %direccion + 1
return
}
if %direccion = 4 ;Sur
{
set %xlx %cursorX
set %auxiliarY %cursorY + %dsnt
set %direccion %direccion + 1
return
}
if %direccion = 5 ;SurOeste
{
set %auxiliarY %cursorY + %dsnt
set %xlx %cursorX - %dsnt
set %direccion %direccion + 1
return
}
if %direccion = 6 ; Oeste
{
set %xlx %cursorX - %dsnt
set %auxiliarY %cursorY
set %direccion %direccion + 1
return
}
if %direccion = 7 ; NortOeste
{
set %auxiliarY %cursorY - %dsnt
set %xlx %cursorX - %dsnt
set %direccion %direccion + 1
return
}
if %direccion = 8 ; Final
{
set %xlx %cursorX
set %auxiliarY %cursorY - %dsnt
set %drcn %drcn + 1
return
}

return

sub change
set %vcs -1

if %sts = 0
{
set %sts 1
return
}

if %sts = 1
{
set %sts 2
return
}
if %sts = 2
{
set %sts 3
return
}
if %sts = 3
{
set %sts 0
return
}

return
sub mover
set %vcs %vcs + 1
return

Sub TLSnn
If %0 < 2
Set %2 ALL
Menu Text 4 4 Target TREE
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
Sub lmbk
For %target_index 1 %tile_index
{
dnv:

Set #LOBJECTID %hrta
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 7s
setuotitle -- Peso #WEIGHT / #MAXWEIGHT -- vcs %vcs / 20 -- sts: %sts

if #WEIGHT > %psxm
{
set %crx #CHARPOSX
set %cry #CHARPOSY
wait 1s
event macro 23 0

gosub rlnc
call ncfrt
call brtdi

gosub vvlc
}

for %tm 1 3
{
scanjournal %tm

if pones in #journal
{
goto dnv
}
if you_put in #journal
{
goto dnv

}
if TARGETING_CANCEL in #journal
{
goto dnv

}
if YOU_HACK_AT_THE in #journal
{
goto dnv

}
if THERE_ARE in #journal
{
goto dfn

}
if no_quedan in #journal
{
goto dfn

}
if TARGETING in #journal
{
goto dfn

}
if CHOPPING in #journal
{
goto dfn

}
if ARE_TOO in #journal
{
goto dfn

}
if YOU_CAN in #journal
{
goto dfn

}
if THERE_IS in #journal
{
goto dfn

}
}
dfn:

}
gosub mover
goto nc

sub scpd
gosub rlnc
set #TargCurs 0
call ncfrt

set %aux %psxcf - 100
click %aux %psycf
gosub change


set %vcs %vcs + 1

goto nc

sub brtdi
gosub abrir_status
wait 1s
gosub abrir_mochila
wait 1s
gosub abrir_mapa
wait 1s
gosub abrir_pj
wait 1s
return

sub abrir_mochila

set %destino_x 0
set %destino_y 0

event macro 8 7
wait 1s
set %codigo_mochila #CONTID
contpos %destino_x %destino_y

return
sub openmapa
set %destino_x 8
set %destino_y 500

event macro 9 8
wait 1s
event macro 8 8
wait 1s
contpos %destino_x %destino_y

return
sub openstatus
set %destino_x 255
set %destino_y 545

event macro 8 2
wait 1s
contpos %destino_x %destino_y

return

sub openpj
set %destino_x 750
set %destino_y 390

event macro 8 1
wait 1s
contpos %destino_x %destino_y

return

sub fcstfr
set %contador %1
if %contador = 0
{
move 1014 1909
return
}
if %contador = 1
{
move 1018 1904
return
}
if %contador = 2
{
move 1023 1904
return
}
if %contador = 3
{
move 1023 1898
return
}
if %contador = 4
{
move 1025 1892
return
}
if %contador = 5
{
move 1030 1885
return
}
if %contador = 6
{
move 1034 1886
return
}
if %contador = 7
{
move 1039 1878
return
}
if %contador = 8
{
move 1044 1880
return
}
if %contador = 9
{
move 1043 1887
return
}
if %contador = 10
{
move 1037 1892
return
}
if %contador = 11
{
move 1037 1897
return
}
if %contador = 12
{
move 1037 1901
return
}
if %contador = 13
{
move 1042 1901
return
}
if %contador = 14
{
move 1042 1905
return
}
if %contador = 15
{
move 1044 1909
return
}
if %contador = 16
{
move 1048 1909
return
}
if %contador = 17
{
move 1052 1913
return
}
if %contador = 18
{
move 1056 1916
return
}
if %contador = 19
{
move 1051 1919
return
}
if %contador = 20
{
move 1045 1919
return
}

sub fcst1fr
set %contador %1
if %contador = 0
{
move 1015 1914
return
}
if %contador = 1
{
move 1023 1916
return
}
if %contador = 2
{
move 1029 1916
return
}
if %contador = 3
{
move 1037 1916
return
}
if %contador = 4
{
move 1043 1916
return
}
if %contador = 5
{
move 1048 1916
return
}
if %contador = 6
{
move 1052 1916
return
}
if %contador = 7
{
move 1056 1916
return
}
if %contador = 8
{
move 1059 1917
return
}
if %contador = 9
{
move 1063 1921
return
}
if %contador = 10
{
move 1063 1927
return
}
if %contador = 11
{
move 1059 1931
return
}
if %contador = 12
{
move 1058 1936
return
}
if %contador = 13
{
move 1050 1937
return
}
if %contador = 14
{
move 1045 1931
return
}
if %contador = 15
{
move 1038 1931
return
}
if %contador = 16
{
move 1033 1931
return
}
if %contador = 17
{
move 1023 1928
return
}
if %contador = 18
{
move 1017 1922
return
}
if %contador = 19
{
move 1022 1916
return
}
if %contador = 20
{
move 1028 1919
return
}
sub fcst2fr
set %contador %1
if %contador = 0
{
move 993 1936
return
}
if %contador = 1
{
move 993 1942
return
}
if %contador = 2
{
move 988 1945
return
}
if %contador = 3
{
move 991 1948
return
}
if %contador = 4
{
move 991 1952
return
}
if %contador = 5
{
move 991 1958
return
}
if %contador = 6
{
move 991 1962
return
}
if %contador = 7
{
move 991 1966
return
}
if %contador = 8
{
move 991 1971
return
}
if %contador = 9
{
move 991 1975
return
}
if %contador = 10
{
move 991 1980
return
}
if %contador = 11
{
move 995 1984
return
}
if %contador = 12
{
move 995 1990
return
}
if %contador = 13
{
move 998 1992
return
}
if %contador = 14
{
move 999 1978
return
}
if %contador = 15
{
move 997 1973
return
}
if %contador = 16
{
move 999 1963
return
}
if %contador = 17
{
move 999 1956
return
}
if %contador = 18
{
move 1006 1951
return
}
if %contador = 19
{
move 1006 1947
return
}
if %contador = 20
{
move 995 1938
return
}
sub fcst3fr
set %contador %1
if %contador = 0
{
move 1002 1868
return
}
if %contador = 1
{
move 1007 1865
return
}
if %contador = 2
{
move 1012 1865
return
}
if %contador = 3
{
move 1009 1861
return
}
if %contador = 4
{
move 1020 1848
return
}
if %contador = 5
{
move 1023 1843
return
}
if %contador = 6
{
move 1023 1837
return
}
if %contador = 7
{
move 1027 1837
return
}
if %contador = 8
{
move 1027 1829
return
}
if %contador = 9
{
move 1026 1823
return
}
if %contador = 10
{
move 1026 1818
return
}
if %contador = 11
{
move 1023 1813
return
}
if %contador = 12
{
move 1017 1813
return
}
if %contador = 13
{
move 1014 1818
return
}
if %contador = 14
{
move 994 1820
return
}
if %contador = 15
{
move 994 1825
return
}
if %contador = 16
{
move 989 1828
return
}
if %contador = 17
{
move 982 1827
return
}
if %contador = 18
{
move 986 1833
return
}
if %contador = 19
{
move 986 1839
return
}
if %contador = 20
{
move 986 1845
return
}

sub ncfrt
event macro 8 7
wait 1s
set %codigo_mochila #CONTID
set %posicion_X 257
set %posicion_Y 179
set %actualX #CHARPOSX
set %actualY #CHARPOSY
otroxx:
set %tipoobjeto ZLK_ZIP
finditem %tipoobjeto C_ , %codigo_mochila
if #findkind = 1
{
IGNOREITEM #FindID
goto otroxx
}
if #findkind = -1
{
return
}
set %codigo_logs #FINDID
event drag %codigo_logs
if #FINDSTACK > 1
{
msg $
}
click %posicion_X %posicion_Y
wait 1s
goto otroxx
exit

[zorro]

muchas gracias SkuzKabel! la probaré