Скрипт на ремнот вещей

[Rijo]

Вот думаю как бы написать скрипт на следующие действия:
1) чар смотрит надето ли на определенную часть тела что либо, в том числе и оружие.
2) Запоминает каждую вещь
3) снимает запомненную вещь
4) чинит её(ну этот пункт в принципе не сложно написать )

[kexwer]

есть уже такой скрипт....
Вот...

Code: Select all

sub Repair() 
VAR i,Exit,Part 
VAR Molotok='0x13E3' 
DIM Layers[8] 
Layers[0]='Hat' 
Layers[1]='Neck' 
Layers[2]='Gloves' 
Layers[3]='Arms' 
Layers[4]='Torso' 
Layers[5]='Legs' 
Layers[6]='Lhand' 
    
For i=0 to 6 
Part=UO.ObjAtLayer(Layers[i]) 
If Part<>"" Then 
Exit=0 
While Exit==0 
CheckLag() ;Delete journal 
UO.WaitTargetObject(Part) 
UO.UseSkill('Arms Lore') 
Repeat 
wait(1000) 
Until UO.InJournal('Defense') OR UO.InJournal('uncertain') 
wait(1500) 
If UO.InJournal('full repair') Then 
Exit=1 
Else 
UO.UnEquip(Layers[i]) 
wait(1000) 
UO.WaitTargetObject(Part) 
UO.UseType(Molotok) 
wait(1500) 
UO.Equip(Layers[i],Part) 
EndIf 
Wend 
Endif 
Next 
UO.Print("!!Все починено!!") 
end sub

sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
repeat 
wait(700) 
until UO.InJournal('backpack') 
end sub

[Rijo]

есть уже такой скрипт....
Вот...

Спасибо, пришлось конечно подправить немного . Хотя я свой почти дописал. Ну в идеале он бы получился бы таким же практически

[kexwer]

Что подправил?
Просим! Просим! =)

[Rijo]

Code: Select all

DIM Layers[8] 
Layers[0]='Hat' 
Layers[1]='Neck' 
Layers[2]='Gloves' 
Layers[3]='Arms' 
Layers[4]='Torso' 
Layers[5]='Legs' 
Layers[6]='Lhand'

Хотя тут немного некоректно написанно, массив обозначе как на 8 частей, а используются 7. Хотя все работате

Ну я тут немного поудалял, чтобы сразу ченил, а не тестил армор, так быстрее получается

Code: Select all

sub Repair() 
VAR i,Exit,Part 
VAR Molotok='0x13E4' 
DIM Layers[8] 
Layers[0]='Hat' 
Layers[1]='Neck' 
Layers[2]='Gloves' 
Layers[3]='Arms' 
Layers[4]='Torso' 
Layers[5]='Legs' 
Layers[6]='Lhand' 
    
For i=0 to 6 
Part=UO.ObjAtLayer(Layers[i]) 
If Part<>"" Then 
 
UO.UnEquip(Layers[i]) 
wait(1000) 
UO.WaitTargetObject(Part) 
UO.UseType(Molotok) 
wait(1500) 
UO.Equip(Layers[i],Part) 
Endif 
Next 
UO.Print("!!Vse po4ineno!!") 
end sub

[/code]