pues no me detecta el cofre seguro, es una caja de madera cuadrada y dentro hay una cajita de madera roja como pone ke se ha de hacer, tb lo he intentando asegurando solo la cajita de madera pero me pone, error contenedor seguro no encontrado
pues no me detecta el cofre seguro, es una caja de madera cuadrada y dentro hay una cajita de madera roja como pone ke se ha de hacer, tb lo he intentando asegurando solo la cajita de madera pero me pone, error contenedor seguro no encontrado
Última edición por DragXire; 12-Mar-2007 a las 18:59
IGNOREITEM RESET
finditem %axes c_ , #charid
if #findid = x
{
gosub checktool
gosub axearm
}
gosub more
;---------------------------------------------Log rutina-------------------------------------------------
finditem %logs C_ , %backpackid
wait 20
if #findkind = 0 && %axecut = #false && %turnoffsaw = #false
gosub cut
ignoreitem reset 1
ignoreitem reset
ore:
scanjournal #jindex
if hold_more in #journal && %extrasecures = #true
{
ignoreitem %secureid
gosub relocate
}
finditem %boards c_ , %backpackid
if %Menu = #true
{
gosub count
gosub menuu
}
gosub finish
finditem %all c_ , %backpackid
if #findkind = -1 && #lLiftedKind <> 1
{
goto endit
}
if #findkind = 0
{
IF #lLiftedKind <> 1
event drag #findid
wait 15
msg $
wait 5
finditem %orebagid C_
if #findid = x
goto opensecure
set #findmod 20_10
set %scnt #scnt + 10
oredrop:
if %scnt < #scnt
goto ore
click #findx #findy p
wait 10
if #lliftedkind = 1
goto oredrop
goto ore
}
endit:
set %cutting 1
return
;----------------------------------------curarse----------------------------------------
sub health
if #hits >= #maxhits - 10
return
set *511 resume
loopit:
wait 10
if #hits < #maxhits - 10
goto loopit
set *511 pause
return
;*******************************************
sub axecut
set %loop 0
retryy:
set %loop %loop + 1
if %loop >= 11
{
display mgs Falladas 10 veces al cortar logs. No uses el hacha para esto. Busca la herramienta adecuada para hacer esto en tu servidor. Prueba a cambiar esta liena "%axechop" to "#false" al principio del script y asegurate de q tienes una sierra en la mochila, y reinicia la macro.
halt
}
finditem %helditem C_ , #charid
wait 15
set #lobjectid #findid
event macro 17 0
finditem %logs C_ , %backpackid
if #findid = x
return
event property #findid
set #ltargetid #findid
set #ltargetkind 1
wait 20
event macro 22 0
goto retryy
return
sub cut
if %turnoffsaw = #true
goto bottom
if %axecut = #true
{
gosub axecut
goto bottom
}
retry:
finditem %saw C_ , %backpackid
wait 15
if #findkind = -1
{
GOSUB DRAGIT
if %done = yes
{
if %recall = #true && %cutting <> 99
{
GOSUB recall
}
if %cutting <> 99
{
gosub gohome
}
gosub house
gosub goback
goto bottom
}
goto bottom
}
openagain:
set #lobjectid #findid
event macro 17 0
set %scnt #scnt + 10
gump:
finditem %logs C_ , %backpackid
wait %delay
if #findid = x
{
set %mody 411 + #contposy
set %modx 15 + #contposx
CLICK %modx %mody R
goto finish
}
event property #findid
if #scnt > %scnt
goto retry
if #contname <> generic_gump || #CONTSIZE <> 530_437
goto retry
wait %delay
if ash notin #property && oak notin #property && yew notin #property && heartwood notin #property && frostwood notin #property && bloodwood notin #property && #findcol <> 0
{
ignoreitem #findid
goto gump
}
set %modx 27 + #contposx
set %mody 90 + #contposy
click %modx %mody x1
wait %delay
if oak in #property
{
set %pixx 495 + #contposx
set %pixy 91 + #contposy
savepix %pixx %pixy 1
set %mody 372 + #contposy
set %modx 27 + #contposx
11:
if #scnt > %scnt
goto click1
click %modx %mody x1
wait %delay
cmpPix 1 t 1
goto 11
click1:
set %mody 90 + #contposy
set %modx 234 + #contposx
click %modx %mody x1
wait %delay2
set %again 1
}
if ash in #property
{
set %pixx 495 + #contposx
set %pixy 91 + #contposy
savepix %pixx %pixy 1
set %mody 372 + #contposy
set %modx 27 + #contposx
12:
if #scnt > %scnt
goto click2
click %modx %mody x1
wait %delay
cmpPix 1 t 1
goto 12
click2:
set %mody 110 + #contposy
set %modx 234 + #contposx
click %modx %mody x1
wait %delay2
set %again 1
}
if yew in #property
{
set %pixx 495 + #contposx
set %pixy 91 + #contposy
savepix %pixx %pixy 1
set %mody 372 + #contposy
set %modx 27 + #contposx
13:
if #scnt > %scnt
goto click3
click %modx %mody x1
wait %delay
cmpPix 1 t 1
goto 13
click3:
set %mody 130 + #contposy
set %modx 234 + #contposx
click %modx %mody x1
wait %delay2
set %again 1
}
if heartwood in #property
{
set %pixx 495 + #contposx
set %pixy 91 + #contposy
savepix %pixx %pixy 1
set %mody 372 + #contposy
set %modx 27 + #contposx
14:
if #scnt > %scnt
goto click4
click %modx %mody x1
wait %delay
cmpPix 1 t 1
goto 14
click4:
set %mody 150 + #contposy
set %modx 234 + #contposx
click %modx %mody x1
wait %delay2
set %again 1
}
if bloodwood in #property
{
set %pixx 495 + #contposx
set %pixy 91 + #contposy
savepix %pixx %pixy 1
set %mody 372 + #contposy
set %modx 27 + #contposx
15:
if #scnt > %scnt
goto click5
click %modx %mody x1
wait %delay
cmpPix 1 t 1
goto 15
click5:
set %mody 170 + #contposy
set %modx 234 + #contposx
click %modx %mody x1
wait %delay2
set %again 1
}
if frostwood in #property
{
set %pixx 495 + #contposx
set %pixy 91 + #contposy
savepix %pixx %pixy 1
set %mody 372 + #contposy
set %modx 27 + #contposx
16:
if #scnt > %scnt
goto click6
click %modx %mody x1
wait %delay
cmpPix 1 t 1
goto 16
click6:
set %mody 190 + #contposy
set %modx 234 + #contposx
click %modx %mody x1
wait %delay2
set %again 1
}
if ash notin #property && oak notin #property && yew notin #property && heartwood notin #property && bloodwood notin #property && frostwood notin #property
{
ignoreitem #findid 1
set %pixx 495 + #contposx
set %pixy 91 + #contposy
savepix %pixx %pixy 1
set %mody 372 + #contposy
set %modx 27 + #contposx
17:
if #scnt > %scnt
goto click7
click %modx %mody x1
wait %delay
cmpPix 1 t 1
goto 17
click7:
set %mody 70 + #contposy
set %modx 234 + #contposx
click %modx %mody x1
wait %delay2
set %again 1
}
set %mody 71 + #contposy
set %modx 233 + #contposx
click %modx %mody x1
WAIT %delay2
set %scnt #scnt + 10
hang:
if #scnt > %scnt
return
if #CONTSIZE <> 530_437
goto hang
ignoreitem #findid
finditem btl c_ , %backpackid
if #findkind = 0
{
display msg El script ha encontrado Barrel Staves en tu mochila, normalmente esto significa q en tu servidor se puede usar el hacha para hacer los tablones. Para corregir esto ve al principio del script y cambia "%axecut" to "#true".
halt
}
if %again = 1
{
wait 30
set %again 0
goto retry
}
gosub finish
return
sub finish
finish:
if #CONTSIZE <> 530_437
goto bottom
set %mody 414 + #contposy
set %modx 24 + #contposx
click %modx %mody x1
if #CONTSIZE = 530_437
goto finish
bottom:
return
sub more
if %axecut = #true || %turnoffsaw = #true
return
finditem %saw c_ , %backpackid
wait 10
if #findkind = 0
return
sawfindit:
finditem %saw C_
wait 10
if #findkind = -1 && %extrasecures = #false
pause
if #findkind = -1 && %extrasecures = #true
{
gosub relocate
goto sawfindit
}
set #lobjectid #findid
event drag #lobjectid
wait 10
click 794 218 p
return
;-------------------------------No toques nada a partir de aki---------------------------------
sub loc
if #weight > #maxweight
gosub cut
if %userail = yes && %preset <> 1
{
set %n 0
set %o 0
set %nn 0
set %oo 0
set %preset 1
call %file
set %first %first - 1
if %findfile <> 1
display No se encuentra el archivo. Asegurate q tienes el archivo en la misma localizacion q este archivo.
if %findfile <> 1
halt
}
gosub finish
MSG $
IF %nn => %FIRST + 1 && %multi = #false
{
if %recall = #true
gosub recall
gosub gohome
gosub house
}
IF %nn => %FIRST + 1 && %multi = #true
{
if %recall = #true
gosub recall
gosub gohome
gosub nextrail
set %first %first - 1
gosub house
}
if %nn < %first + 1
{
set %n %n + 1
set %o %o + 1
set %nn %nn + 1
set %oo %oo + 1
SET %MARK 0
set %x + 1
if %opendoor = #true
gosub door
set %movex %walk . %n
set %movey %wallk . %o
if %fullpath = #true
call RKSpotAutoWalker.txt %movex %movey #true #false
move %movex %movey 0 %movetime
set %scnt #scnt + 10
check3:
if %movex <> #charposx && %movey <> #charposy
{
event pathfind %movex %movey
wait 1s
scanjournal #jindex
move %movex %movey 0 3s
if %scnt > #scnt && can't_get notin #journal
goto check3
}
}
goSUB SEARCHGROUND
return
sub saverail1
set %tempn %n
set %tempo %o
set %n 0
set %o 0
set %numb 0
loopraill:
execute %cmd /c echo set % , walk . %n %walk . %n >> %file
execute %cmd /c echo set % , wallk . %n %wallk . %n >> %file
execute %cmd /c echo set % , digx . %n %digx . %n >> %file
execute %cmd /c echo set % , digy . %n %digy . %n >> %file
if %n = %tempo
{
execute %cmd /c echo set % , findfile 1 >> %file
execute %cmd /c echo set % , first %tempo >> %file
execute %cmd /c echo Exit >> %file
return
}
set %n %n + 1
set %o %o + 1
goto loopraill
return
sub saverail
if %_98 = 1
{
gosub saverail1
goto second1
}
menu clear
menu font color Red
menu font size 10
menu text 10 5 txt Espera.. guardando rail.. la pantalla puede parpadear
set %tempn %n
set %tempo %o
set %n 0
set %o 0
set %numb 0
set %hhh 0
looprail:
set %hhh %hhh + 1
set %array . %hhh set , #spc , % , walk . %n , #spc , %walk . %n
set %hhh %hhh + 1
set %array . %hhh set , #spc , % , wallk . %o , #spc , %wallk . %o
set %hhh %hhh + 1
set %array . %hhh set , #spc , % , digx . %n , #spc , %digx . %n
set %hhh %hhh + 1
set %array . %hhh set , #spc , % , digy . %o , #spc , %digy . %n
if %n = %tempo
{
set %hhh %hhh + 1
set %array . %hhh set , #spc , % , findfile , #spc , 1
set %hhh %hhh + 1
set %array . %hhh set , #spc , % , first , #spc , %tempo
set %hhh %hhh + 1
set %array . %hhh Exit
menu hide
set %araysave %hhh
gosub saveitall array 1 %araysave %file
second1:
return
;==================================
; Script Name: Sub de escritura rapida en DOS (Scrip q no es propio, si falla algo avisar ya q se ha testeado completamente) (paciencia para traduccion)
;==================================
sub saveitall
set !lpc #lpc
set #lpc 1000
set !doslengthlimit 2000
;get comspec for OS
str left #osver 1
set !filecmd cmd.exe
if %_98 = 1
{
set !filecmd command.com
set !doslengthlimit 500
}
;test for allow exec
if exec notin #opts
{
display OK You MUST have "allow Execute" enabled to write a file,$
+ and right now you DON'T! Fix it...you have 10 seconds.
wait 10s
}
set !writestring %1 , %2
set !writestring % . !writestring
set !wstart %2 + 1
set !crlf #spc , >> , #spc , %4 , #spc , && , #spc , echo , #spc
for !z !wstart %3
{
set !element %1 , !z
set !element % . !element
str len !element
set !elementlen #strres
str len !writestring
set !writestringlen #strres
if !writestringlen + !elementlen > !doslengthlimit
{
execute !filecmd /c echo !writestring >> %4
wait 5
set !writestring #smc , ---bufferdump---
}
set !writestring !writestring , !crlf , !element
}
execute !filecmd /c echo !writestring >> %4
wait 5
set #lpc !lpc
return
}
set %n %n + 1
set %o %o + 1
goto looprail
return
sub remember
set %n %n + 1
set %o %o + 1
set %digx . %n %set1
set %digy . %o %set2
set %digxx . %n %st1
set %digyy . %o %st2
set %digzz . %o %st3
set %walk . %n #charposx
set %wallk . %o #charposy
set %nn %n
set %oo %o
return
sub gohome
set %charposx %walk1
set %charposy %wallk1
MSG $
IF #WEIGHT >= #MAXWEIGHT
GOSUB CUT
if #weight >= #maxweight
gosub dragit
if %straighthome = #true
{
SET %NNN %NN
gosub straighthome
goto bott
}
if %recall = #false
SET %NNN %NN
moveagain:
set %nn %nn - 1
set %oo %oo - 1
if %fullpath = #true
call RKSpotAutoWalker.txt %walk . %nn %wallk . %oo #true #false
move %walk . %nn %wallk . %oo 0 5s
walkcheck:
if %walk . %nn <> #charposx && %wallk . %nn <> #charposy
{
finditem %doorname g_3
if #findid <> x && %opendoor = #true
gosub door
event pathfind %walk . %nn %wallk . %nn
wait 1s
move %walk . %nn %wallk . %nn 0 3s
goto walkcheck
}
if %opendoor = #true
gosub door
IF %NN <> 1
goto moveagain
set %nn 1
set %oo 1
set %n 1
set %o 1
bott:
return
sub goback
set %charposx %walk . %nnn
set %charposy %wallk . %nnn
if %straighthome = #true
{
SET %NN %NNN
SET %N %NNN
SET %O %NNN
SET %NN %NNN
SET %O %NNN
SET %MARK 0
gosub straighthome
goto bottt:
}
if %opendoor = #true
gosub door
MSG $
moveon:
IF %NNN >= %FIRST
{
RETURN
}
IF %NNN = %NN
RETURN
SET %N %N + 1
SET %O %O + 1
set %nn %nn + 1
set %oo %oo + 1
if %fullpath = #true
call RKSpotAutoWalker.txt %walk . %nn %wallk . %oo #true #false
move %walk . %nn %wallk . %oo 0 5s
set %scnt #scnt + 10
walkcheck2
if %walk . %nn <> #charposx && %wallk . %nn <> #charposy
{
finditem %doorname g_3
if #findid <> x && %opendoor = #true
gosub door
event pathfind %walk . %nn %wallk . %nn
wait 1s
scanjournal #jindex
move %walk . %nn %wallk . %nn 0 3s
if %scnt > #scnt && can't_get notin #journal
goto walkcheck2
}
goto moveon
bottt:
return
sub recheck
if #weight >= #maxweight
gosub dragit
if #weight > %maxweight
{
if %recall = #true
gosub recall
GOSUB GOHOME
gosub house
gosub goback
}
return
sub dragit
drop:
if #weight <= #maxweight
goto dhe
finditem %LOGS c_ , %backpackid
if #findkind = -1
finditem %all c_ , %backpackid
if #findkind = 0
{
IF #LLIFTEDKIND = 1 && #CLIXRES = 640
gosub drop 316 246
IF #LLIFTEDKIND = 1 && #CLIXRES = 800
gosub drop 390 300
Event Drag #Findid
gosub amount
wait 5
msg %logamount $
wait 20
if #contsize = 168_74
{
set %contx #contposx + 20
set %conty #contposy + 20
click %contx %conty r
}
cli:
if #CLIXRES = 640
gosub drop 307 251
else
gosub drop 390 300
}
if #findkind = -1
goto dhe
GOTO drop
dhe:
return
sub drop
set %clickx %1
set %clicky %2
set %x %clickx
set %y %clicky
set %add 0
set %sign 1
click %x %y p
reclick:
wait 3
set %add %add + 1
set %sign %sign * -1
set %x %clickx + ( ( %add * %sign ) + 6 )
set %y %clicky + ( ( %add * %sign ) - 6 )
click %x %y
if %add > 18 || #Lliftedkind = 0
goto over
goto reclick
over:
return
sub amount
if #findtype = tlk
{
set %logamount ( ( ( #weight - #maxweight ) * %boardweight ) + 10 )
goto amountend
}
set %logamount #weight - #maxweight
set %divide ( ( %logamount / 2 ) * 2 )
if %divide = %logamount
set %logamount %logamount / %logweight
else
set %logamount ( ( %logamount + 1 ) / %logweight )
amountend:
return
sub Recall
if #weight > #maxweight
gosub dragit
set %recallloop 1
if %recall = #false
{
set %recallloop 0
return
}
wait 20
SET %NNN %NN
set %nn 2
set %oo 2
set %n 2
set %o 2
set %cxx #charposx
set %cyy #charposy
lookagain:
finditem %object c_ , %backpackid
if #findid <> x
{
set #ltargetid #findid
event macro 15 31
wait 2s
scanjournal #jindex
if fiz in #journal
goto lookagain
set #ltargetkind 1
event macro 22 0
wait 2s
set #SCNT 0
wait:
if #SCNT > 10
goto lookagain
wait 30
if %cxx = #charposx
{
if %cyy = #charposy
{
goto wait
}
}
gosub axearm
set %recallloop 0
return
sub count
IF %TURNOFFSAW = #TRUE
{
set %change Logs
FINDITEM ZLK C_ , %BACKPACKID
IF #FINDITEM <> X
SET %B %B + #FINDSTACK
goto ere
}
finditem %boards c_ , %backpackid
event property #findid
if #findkind = 0
{
if oak notin #property && ash notin #property && yew notin #property && heartwood notin #property && bloodwood notin #property && frostwood notin #property
set %b %b + #FINDSTACK
if oak in #property
set %oak %oak + #findstack
if ash in #property
set %Ash %Ash + #findstack
if yew in #property
set %Yew %Yew + #findstack
if heartwood in #property
set %Heart %Heart + #findstack
if bloodwood in #property
set %Blood %Blood + #findstack
if frostwood in #property
set %Frost %Frost + #FINDSTACK
}
ere:
return
sub menuu
menu clear
menu window size 100 140
menu window color BLACK
menu font bgcolor BLACK
menu window title Bod counter
menu font align center
menu font style
menu font color red
menu font size 11
menu text stat 18 0 Total Boards
menu font align center
menu font style
menu font color green
menu font size 11
menu text stat 5 25 %CHANGE
menu text stat 5 40 Oak
menu text stat 5 55 Ash
menu text stat 5 70 yew
menu text stat 5 85 Heart
menu text stat 5 100 Blood
menu text stat 5 115 Frost
menu font align center
count:
menu font style B
menu font color RED
menu font size 11
menu Delete stat1
menu text stat1 70 25 %b
menu text stat1 70 40 %oak
menu text stat1 70 55 %Ash
menu text stat1 70 70 %Yew
menu text stat1 70 85 %Heart
menu text stat1 70 100 %Blood
menu text stat1 70 115 %Frost
menu font size 11
menu font style B
menu font color RED
set #menubutton N/A
menu show 0 400
if %b > %stop
pause
return
sub door
finditem %doorid g_3
set #lobjectid #findid
set #ltargetid #findid
event macro 17 0
wait 30
return
;--------- Creacion de menus con EasyUo ---------
sub Menus
scanjournal #jindex
set #menubutton n/a
menu Clear
Menu Font Color red
set %txt44 %txt44 + 1
set %txtmod %txt44 - 1
if %txt44 = 1
Menu Text txt44 5 0 Presiona next, anda de 1 a 10 pasos, $ pulsa escape delante de tu baul
if %txt44 >= 2
Menu Text txt44 10 0 Pulsa next, anda max 10 pasos haz$Click en Arbol %txtmod o en DONE si acabas.
if %reset = 1
{
menu delete txt44
Menu Text txt44 8 0 Localizacion no valida$Click next e intenta de nuevo
set %reset 0
}
if %nn > 1
{
set %aa %oo - 1
set %12y %wallk . %aa - #charposy
if %12y < 0
set %12y #charposy - %wallk . %aa
set %12x %walk . %aa - #charposx
if %12y < 0
set %12x #charposx - %walk . %aa
if %12x > 10 || %12y > 10
{
Menu Font Color red
menu delete txt44
Menu Text txt44 8 0 Demasiado lejos mas de 11 pasos desde$ el ultimo Arbol
}
}
menu Window Title Hiper Lumberjacking
menu Window Color InactiveCaptionText
menu Window Size 250 65
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Font BGColor Teal
menu Button yes 4 36 75 25 Next Tree
menu Button cancel 88 36 75 25 Reset
menu Button no 172 36 75 25 Done
menu Show 254 387
wait 10
menuwait:
if #menubutton = n/a
goto menuwait
return
;--------- Creacion de menus con EasyUo (codigo automatico) ---------
sub nextrail
set %first reset
set %a %a + 1
resetit:
set %file lumber , %a , .txt
call %file
if %first = reset
{
set %a 0
goto resetit
}
set %delete %first + 1
set %wallk . %delete n/a
set %walk . %delete n/a
return
sub secondmenu
menu clear
set %ending 1
set #menubutton n/a
menu Font Color ActiveCaption
menu Shape EUOShape1 412 0 5 45 3 7 1 Black 7 Gray
menu Shape EUOShape2 412 0 21 13 4 7 1 Black 7 ScrollBar
menu Shape EUOShape3 432 0 5 13 3 7 1 Black 7 Red
menu Shape EUOShape5 444 12 33 57 3 7 1 Black 7 Maroon
menu Shape EUOShape4 444 0 33 21 2 7 1 Black 7 InfoBk
menu Shape EUOShape6 448 4 25 13 2 7 1 Black 7 InfoBk
menu Shape EUOShape7 452 8 17 5 2 7 1 Black 7 InfoBk
rotate:
menu Window Title Hiper Lumberjacking
menu Window Color InactiveCaptionText
menu Window Size 490 415
menu Font Transparent #true
menu Font Align Right
menu Font Name Wide Latin
menu Font Size 11
menu Font Style
menu Font Color Green
menu Font Transparent #false
menu Font Align Center
menu Font BGColor InactiveCaptionText
menu Text 108 125 v Configura tu Script
menu Font Name Arial
menu font color red
menu Font Size 8
menu Text 50 100 15 Longebor
menu Font Name MS Sans Serif
menu Font Size 10
menu Font Color Maroon
menu Font Align Left
menu Text EUOLabel2 24 24 Banco
menu Text EUOLabel3 24 64 Usar Multiples Caminos
menu Text EUOLabel4 24 120 Usar Varios Cofres (no recomendada)
menu Text EUOLabel5 24 188 Recalear
menu Font Size 8
menu Font Color ActiveCaption
menu Text EUOLabel6 0 44 Seleccionala para usar el banco
menu Text EUOLabel7 0 84 Usa esta seleccion para usar diferentes caminos con el mismo lugar de comienzo. Los archivos deben
menu Text EUOLabel8 0 100 llamarse Lumber0.txt, Lumber1.txt, Lumber2.txt...en ese orden para q el escrip los localice.
menu Text EUOLabel9 0 140 Si lo estas usando desde tu casa tu puedes usar varios cofres seguros. Para ello asegurate q los tienes
menu Text EUOLabel10 0 156 todos pegados a ti apilados o no, y q dentro de cada uno hay una sierra, un hacha almenos y
menu Text EUOLabel11 0 172 una caja de madera (de las q son rojas normales).
menu Text EUOLabel12 0 208 Pues eso en vez de ir andando vas recaleando (un coñazo si en tu casa hay bosque cerca) solo necesitas
menu Text EUOLabel13 0 224 una runa marcada al bosque y otra a tu banco. (Mas adelante se añadira el uso del libro de runas)
menu Text EUOLabel15 0 264 Aventaja el uso del "Patfinding!". No da la capacidad de acercar el macreo
menu Text EUOLabel16 0 280 aunque en distancias muy cortas, cuando esta activado podemos utilizar el "Patfinding!" para ir de pantalla
menu Text EUOLabel17 0 296 en pantalla sin necesidad de tener el objetivo a la vista. Muy util pero relentiza bastante.
menu Text EUOLabel34 0 335 Encuenra el camino mas rapido a casa.No rodeara estructuras ni casas. Simplemente andara directame-
menu Text EUOLabel34 0 347 nte hasta tu casa y hasta la continuacion del camino. Mas rapido pero menos fiable.
menu Font Size 10
menu Font Color Maroon
menu Text EUOLabel14 24 244 Pathfinding
menu Text EUOLabel33 24 315 Camino a casa
menu Font Size 8
menu Font Color Olive
menu Text EUOLabel18 8 378 Nombre por defecto
menu Shape EUOShape8 0 360 513 5 3 7 1 Black 7 Teal
menu Text EUOLabel19 32 365 Archivos salvados
menu Text EUOLabel20 128 365 Para jugar en UA activalo
menu Text EUOLabel21 144 378 Usar hacha de talar
menu Text EUOLabel22 264 365 Desactibar cortar los logs
menu Font Color WindowText
menu Font BGColor %colorr
if %setting = 1 || %dsd <> 1
menu Button 1 0 20 23 25 %tag1
if %setting = 2 || %dsd <> 1
menu Button 2 0 60 23 25 %tag2
if %setting = 3 || %dsd <> 1
menu Button 3 0 116 23 25 %tag3
if %setting = 4 || %dsd <> 1
menu Button 4 0 184 23 25 %tag4
if %setting = 5 || %dsd <> 1
menu Button 5 0 240 23 25 %tag5
if %setting = 9 || %dsd <> 1
menu Button 9 0 310 23 25 %tag9
menu Font BGColor white
if %hmf <> 1
menu Edit railname 0 394 121 lumber0.txt
set %hmf 1
menu Font Color Red
menu Font BGColor %colorr
menu Font Color WindowText
if %setting = 6 || %dsd <> 1
menu Button 6 148 398 75 17 Use Axe %tag6
menu Font Color Green
menu Font Color WindowText
if %setting = 7 || %dsd <> 1
menu Button 7 272 398 75 17 Disable %tag7
menu Font Size 12
menu Font Color WindowText
menu Font BGColor Green
if %setting = 8 || %dsd <> 1
menu Button 8 412 374 75 37 START
menu Show 40 40
set %dsd 1
set %setting 0
buttonwait:
if #menubutton = n/a
goto buttonwait
set %setting #menubutton
set #menubutton n/a
for %i 1 9
{
if %setting = %i
{
if %tag . %i = off
set %colorr green
else
set %colorr red
if %tag . %i = off
set %tag . %i On
else
set %tag . %i Off
goto rotate
}
if %setting = 8
goto leavemenu
}
goto rotate
leavemenu:
menu get railname
menu Window Size 490 85
if %tag1 = on
set %bank #true
if %tag2 = on
set %multi #true
if %tag3 = on
set %extrasecures #true
if %tag4 = on
set %recall #true
if %tag5 = on
set %fullpath #true
if %tag6 = on
set %axecut #true
if %tag7 = on
set %turnoffsaw #true
if %tag9 = on
set %straighthome #true
set %file #menures
return
sub straighthome
set %movex #charposx
set %movey #charposy
set %resetx 0
set %resety 0
if %charposy < %movey
set %p 1
else
set %p 0
if %charposx < %movex
set %pp 1
else
set %pp 0
set %addx %movex
set %addy %movey
continue:
set %spec %movex - %charposx
if %spec < 1
set %spec %Charposx - %movex
set %specc %movey - %charposy
if %specc < 1
set %specc %Charposy - %movey
if %resetx <> 1 || 8 <= %spec
{
if %charposx < %movex
set %addx %addx - 8
else
set %addx %addx + 8
set %movex %addx
}
if %resety <> 1 || 8 <= %specc
{
if %charposy < %movey
set %addy %addy - 8
else
set %addy %addy + 8
set %movey %addy
}
if 8 >= %spec
{
set %movex %charposx
set %resetx 1
}
if 8 >= %specc
{
set %movey %charposy
set %resety 1
}
keepmoving:
scanjournal
if can't in #journal
{
move %movex %movey 1 4s
if %edx = #charposx && %edy = #charposy && %moded <> 1
{
if %p = 1
set %movex %movex + 2
else
set %movex %movex - 2
set %moded 1
}
deletejournal
set %edx #charposx
set %edy #charposy
move %movex %movey 1 4s
}
event pathfind %movex %movey #CHARPOSZ
wait 15
if %edx = #charposx && %edy = #charposy
move %movex %movey 0 3s
set %edx #charposx
set %edy #charposy
if #charposx <> %movex || #charposy <> %movey
{
set %try %try + 1
if %try > 3
{
set %movex %movex + 1
set %movey %movey + 1
event pathfind %movex %movey #charposz
wait 3s
set %try 0
}
goto keepmoving
}
if %resetx = 1 && %resety = 1
return
goto continue
return
SUB SEARCHGROUND
FINDMORE:
FINDITEM ZLK_tlk g_2
IF #FINDID = X
RETURN
IF #LLIFTEDKIND <> 1
EVENT DRAG #FINDID
WAIT 10
MSG $
WAIT 10
IF #LLIFTEDKIND = 1
{
CLICK 787 223 P
CLICK 787 223 P
}
GOTO FINDMORE
RETURN
divido en 3 post, en 1 no cabia
Creo que es la misma que usaba, pero si no recuerdo mal la caja de madera roja debia estar dentro de un cofre asegurado prueba con un cofre, tambien decir que depende de que version de easyuo no funcionaba bien.
Mirate estas dos cosas porque pueden ser la causa del problema.
Entiende, presa, que yo te daré caza, y descubre que para los verdaderos nunca fuiste una amenaza.