Yoko

Code: Select all

sub Repr()
VAR i,Exit,Part
VAR Molotok='0x13E3'
DIM Layers[2]
Layers[1]='0x0F39'
   
For i=0 to 1
Part=UO.ObjAtLayer(Layers[i])
If Part<>"" Then
Exit=0
While Exit==0
UO.WaitTargetObject(Part)
UO.UseSkill('Arms Lore')
Repeat
wait(500)
Until UO.InJournal('Defense') OR UO.InJournal('uncertain')
wait(1000)
If UO.InJournal('full repair') Then
Exit=1
Else
UO.UnEquip(Layers[i])
wait(500)
UO.WaitTargetObject(Part)
UO.UseType(Hammer)
wait(1000)
UO.Equip(Layers[i],Part)
EndIf
Wend
Endif
Next
UO.Print("!!Все починено!!")
end sub

Code: Select all

   Layers[1]='0x0F39'
   For i=0 to 1