256
General UO Chat / Re: Does wolf slayer affect ninja forms?
« on: June 15, 2010, 03:50:36 PM »
Thanks for the info. GASP. Stratics wrong again? Say it aint so!
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
set %xclick #contposx + 220
set %yclick #contposy + 110
savepix %clickx %clicky 1
set %Pet_heal_now gosub OffsetClick 118 44 ; heal start
;set %PetHealthPixX ( %PetgumpX + 118 )
;set %PetHealthPixY ( %PetgumpY + 44 )
set %Pet_poisoned gosub OffsetClick 47 44 ;while loop
;set %PetPoisonpixX ( %PetgumpX + 47 )
;set %PetPoisonpixY ( %PetgumpY + 44 )
set %pet_dead gosub OffsetClick 38 44 ;res sub
;set %PetDeadpixX ( %PetgumpX + 38 )
;set %PetDeadpixY ( %PetgumpY + 44 )
sub OffsetClick
set %tempx %1 + #CONTPOSX
set %tempy %2 + #CONTPOSY
click %tempx %tempy f
return
savePix 580 13 1
comparePixelAgain:
cmpPix 1 f
{
key F4 Alt
halt
}
goto comparePixelAgain
set %SavePetPixX ( %PetbarX + 86 )
set %SavePetPixY ( %PetbarY + 43 )
savepix %SavePetPixX %SavePetPixY 1
display #pixcol
halt
This, inside the script, will return a number. That number changes when pet is healthy or poisoned. ;pet gump healer ideal flow
;1. id pet(s)
;2. pull pet health bar
;3. set health bar position
;4. monitor health bar for health%, poison, mortal strike colors
;5. if health < set%, use bandage and GH. see if heal is more effective. Calculate FC/FCR.
;6. if status poison, use bandage and cast arch cure
;7. if mortal, wait until poison status or normal status, then resume
;----------------------
;initial set up
;set pet 1
all stay
set #targcurs 1
while #targcurs = 1
wait 1
set !pet1 #ltargetID
set !pet_xpos #LTARGETX
set !pet_ypos #LTARGETY
event drag !pet1
halt
SUO syntax check
Method count: 56
Command count: 56
*** Pass 1 - Label accounting:
Subroutine labels = 4
Tag labels = 0
0 Code block(s).
0 Warnings(s) encountered.
*** Pass 2 - Execution [SYNTAXCHECK]
[/color]set %max_stack_on_ground 14; change to 59950 for full production
set %lagwait 15
;mainloop
finditem EEG_ C_ ; hides in pack
if #FINDKIND = -1 ; no hides in pack
return ;sets monitoring
set !hides_in_pack #findid
set !stack_in_pack #findstack
;need a break here. transition from monitor to action.
finditem EEG_ G_ ;detect stack on ground
if #FINDKIND = -1
gosub new_stack
set !hides_on_ground #findid
set !stack_on_ground #findstack
if !stack_on_ground > %max_stack_on_ground ;keeps stack at 1 on ground
gosub cut_hides
gosub Drop_hides_in_stack
return
;start subs
Sub Drop_hides_in_stack
ExEvent Drag !hides_in_pack !stack_in_pack
wait 10
ExEvent Dropc !Hides_on_ground !stack_on_ground
wait 10
return
;-------------------------------
Sub new_stack
Set %Xpos ( #CharposX - 1 )
Set %Ypos ( #CharPosY - 1 )
ExEvent Drag !hides_in_pack !stack_in_pack
wait %lagwait
ExEvent Dropg %Xpos %Ypos
Exevent Dropc C_ ;debug
return
;-------------------------------
Sub cut_hides
Finditem KAG_ C; scissors
if #findkind = -1
halt;add in display to get scissors
Set %scissors #FINDID
Set #lobjectID %scissors
Finditem EEG_ G_ ;new stack find variables after last drop
set !Hides_on_ground_new #findID
set !number_on_ground_new #findstack
Set #ltargetID !Hides_on_ground_new
wait %lagwait
event macro 17 0 ;first cut attempt on ground
target 5s
wait %lagwait
event macro 22 0
wait %lagwait
exevent drag !Hides_on_ground_new !number_on_ground_new
wait %lagwait
event macro 17 0 ;second cut attempt on ground
target 5s
wait %lagwait
event macro 22 0
wait %lagwait
exevent dropc #BACKPACKID
ignoreitem !Hides_on_ground_new ;clears id. was picking up cut leather as lobject type
gosub BOS
return
;----------------
Sub BOS
Finditem JJG_ C_
set %cutleather #findid
set #ltargetid %cutleather
finditem CKF_ C_
set %bos #findid
set #lobjectid %bos
event macro 17 0
target 5s
wait %lagwait
event macro 22 0
return
mainloop
finditem EEG_ C_
{
if #FindKind > 0
gosub scan_hides_onground
if #FindKind < 0
goto mainloop
}
;start subs
;-------------------------------
Sub scan_hides_onground
finditem EEG_ G_
{
if #findstack > 14
gosub cut_hides
if #findkind > 0
gosub Drop_hides_in_stack
if #findkind < 0
gosub Drop_hides_new_pile
}
;-------------------------------
Sub Drop_hides_in_stack
findid EEG_ G_
if #findkind < 0
gosub Drop_hides_new_pile
wait 5
ExEvent Drag #findid #findstack
wait 10
ExEvent Dropc !Hides_on_ground !number_on_ground
;-------------------------------
Sub Drop_hides_new_pile
Set %Xpos ( #CharposX - 1 )
Set %Ypos ( #CharPosY - 1 )
finditem EEG_ C_
if #FINDkind > 0
wait3
ExEvent Drag #findid #findstack
wait 10
ExEvent Dropg %Xpos %Ypos
wait 10
;-------------------------------
Sub cut_hides
Finditem KAG_
if #findkind < 0
halt
Set %scissors #FINDID
finditem EEG_ G_
if #findkind < 0
go mainloop
set !Hides_on_ground #findID
set !number_on_ground #findstack
Set #lobjectID %scissors
Set #ltargetID !Hides_on_ground
event macro 17 0
target 5s
wait 15
exevent drag !Hides_on_ground !number_on_ground
wait 15
event macro 22 0
wait 15
exevent dropc #BACKPACKID
wait 10
go mainloop