Tira a la perfección.
;==================================
; Script Name: Blacksmiting
; Author: K-talino
; Version: 1.0
; Shard OSI / FS: Ultima Alianza Sphere
; Revision Date: 29.10.07
; Public Release: 29.10.07
; Requerimientos:
; Necesitamos iron en una bolsa o cofre, y dentro de la mochila necesitamos al menos 2 martillos de BS para poder iniciar la macro
;==================================
set %Hrrmts TLH_GBG
set %Gears XRH_YRH_TSF_GDP_YSF_CUH
set %cdgmchl 0
set %cdgrn RMK_ENK
set %ps 0
set %cntddmnm 13
set %cntdd 50
set %tp daga
set %cdgmrtll 0
initevents
;DISPLAY YES Bienvenidoa a la macro de Herreria.$$Por Kata version 1.0.
Chooseskill blacksmiting real
set %cdgmchl #BACKPACKID
display $ Selecciona la bolsa donde esta el material
set #TargCurs 1
trshlp:
if #Targcurs <> 0
{
wait 2 2
goto trshlp
}
set %pscnblsx #CURSORX
set %pscnblsy #CURSORY
wait 1s
click %pscnblsx %pscnblsy d
wait 1s
set %mtrls #LOBJECTID
wait 1s
set %X #contposx + 40
set %Y #contposy + 40
click %X %Y r
wait 1s
display $ Selecciona la BASURA
set #TargCurs 1
Trash:
if #Targcurs <> 0
{
wait 2 2
goto Trash
}
set %bsrx #CURSORX
set %bsry #CURSORY
wait 1s
display $ Selecciona el reciclaje
set #TargCurs 1
Trash1:
if #Targcurs <> 0
{
wait 2 2
goto Trash1
}
set %rccljx #CURSORX
set %rccljy #CURSORY
finditem %Hrrmts C_ , %cdgmchl
wait 1s
if #FINDKIND = -1
{
event macro 23 0
wait 1s
gosub rcclrbls
gosub dscrgr
gosub cjrrn
deletejournal
goto nc
}
set %codigo #FINDID
nc:
finditem RMK_ENK C_ , %cdgmchl
wait 1s
set %codigo #FINDID
if #FINDSTACK < %cntddmnm
{
event macro 23 0
wait 1s
gosub rcclrbls
gosub dscrgr
wait 1s
gosub cjrrn
deletejournal
goto nc
}
if #FINDKIND = -1
{
event macro 23 0
wait 1s
gosub rcclrbls
gosub dscrgr
gosub cjrrn
deletejournal
goto nc
}
if #WEIGHT > #MAXWEIGHT
{
gosub rcclrbls
}
seguir:
set #LOBJECTID %codigo
event macro 17 0
gosub tp_lmnt
wait 3s
finditem TSF C_ , %cdgmchl
wait 1s
set %dgss #FINDCNT
setuotitle Dagas: %dgss -- tp : %tp
if %dgss >= 15
{
set %tp bolsa_15
}
finditem %Hrrmts C_ , %cdgmchl
wait 1s
set %mrtllss #FINDCNT
if %mrtllss <= 2
{
set %tp martillo
}
finditem CKF C_ , %cdgmchl
if #FINDKIND = 0
gosub djrbls
goto nc
sub cjrrn
set %cntdd ( #MAXWEIGHT - #WEIGHT - 10 ) / 2
set #lObjectID %mtrls
event macro 17
wait 2s
contpos 0 0
wait 1s
otro1:
finditem RMK_ENK_ENK
wait 2s
if #Findkind = 0
{
set %xlr #FINDID
set #LOBJECTID #FINDID
event drag #FINDID
goto sjntt
}
IGNOREITEM #FindID
wait 2s
goto otro1
sjntt:
wait 2s
if #FINDSTACK < %cntdd
{
msg #FINDSTACK $
}
if #FINDSTACK >= %cntdd
msg %cntdd $
wait 2s
set %cx #CURSORX + 40
set %cy #CURSORY + 7
click 316 204
wait 2s
click 40 40 r
return
sub ctndrmv
set %dstnx %1
set %dstny %2
set %ntrrx #CONTPOSX
set %OBJETO_X #CONTPOSX + 20
set %OBJETO_Y #CONTPOSY + 20
nc_rvm:
click %OBJETO_X %OBJETO_Y g
wait 1s
click %dstnx %dstny p
wait 1s
click %dstnx %dstny p
if #CONTPOSX = %ntrrx
{
goto nc_rvm
}
return
sub rclcr
bc1:
finditem %Gears
if #Findkind = 1
{
IGNOREITEM #FindID
goto bc1
}
If #Findkind = -1
{
if #CONTKIND = EMCB
{
;click 270 199 r
}
return
}
Key 9 alt
Key back
wait 3s
for %tm 1 6
{
scanjournal %tm
if TARGET_TYPE_FAILED in #journal
{
deletejournal
return
}
}
goto bc1
sub rcclrbls
return
nc_rclcr_b:
finditem %Gears
wait 1s
if #Findkind = -1
{
msg sacar basura $
wait 1s
click %bsrx %bsry
return
}
if #Findkind = 0
{
set %xlr #FINDID
set #LOBJECTID #FINDID
event drag #FINDID
msg $
goto sjntt_rclcr_b
}
IGNOREITEM #FindID
goto nc_rclcr_b
sjntt_rclcr_b:
click %bsrx %bsry
goto nc_rclcr_b
return
sub dscrgr
nc_rclcr_rn:
finditem RMK_ENK
wait 2s
if #FindID = %cdgmrtll
{
IGNOREITEM %cdgmrtll
goto nc_rclcr_rn
}
if #Findkind = -1
{
return
}
if #Findkind = 0
{
set %xlr #FINDID
set #LOBJECTID #FINDID
event drag #FINDID
if #findstack = 1
{
click %pscnblsx %pscnblsy
;click %rccljx %rccljy
}
msg $
wait 1s
goto sjntt_rclcr_rn
}
IGNOREITEM #FindID
wait 2s
goto nc_rclcr_rn
sjntt_rclcr_rn:
click %pscnblsx %pscnblsy
wait 1s
goto nc_rclcr_rn
return
sub tp_lmnt
if %tp = daga
{
gosub jbd 6
gosub jbd 5
gosub jbd 1
if #SKILL < 501
gosub jbd 1
else
{
if #SKILL < 608
gosub jbd 2
else
click 140 60 d
}
return
}
if %tp = martillo
{
gosub jbd 6
gosub jbd 5
gosub jbd 3
gosub jbd 3
set %tp daga
return
}
if %tp = bolsa_15
{
gosub jbd 2
set %tp daga
return
}
return
sub mchlpsc
set %dstnx 490
set %dstny 44
event macro 8 7
wait 1s
set %cdgmchl #CONTID
set %ntrrx #CONTPOSX
nc_psnc:
set %OBJETO_X #CONTPOSX + 50
set %OBJETO_Y #CONTPOSY + 50
click %OBJETO_X %OBJETO_Y g
wait 1s
click %dstnx %dstny p
wait 2s
if #CONTPOSX <> %dstnx
goto nc_psnc
return
sub rzlps
click %sx %sy
wait 1s
return
sub jbd
set %rdntncX_1 60
set %rdntncY 70
set %rdntncX_2 100
set %rdntncX_3 150
set %rdntncX_4 200
set %rdntncX_5 240
set %sx 265
set %sy 67
wait 1s
if %1 = 1
click %rdntncX_1 %rdntncY d
if %1 = 2
click %rdntncX_2 %rdntncY d
if %1 = 3
click %rdntncX_3 %rdntncY d
if %1 = 4
click %rdntncX_4 %rdntncY d
if %1 = 5
click %rdntncX_5 %rdntncY d
if %1 = 6
click %sx %sy
wait 1s
return
sub djrbls
nc_rclcr_b:
finditem CKF C_ , %cdgmchl
wait 1s
if #Findkind = -1
{
return
}
if #Findkind = 0
{
set %xlr #FINDID
set #LOBJECTID #FINDID
event drag #FINDID
msg $
click %bsrx %bsry
}
return