Yoko
http://forum.yoko.com.ua/

Скрипт на ремнот вещей
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8471		 Page 1 of 1
Author:  Rijo [ 2006-08-11 16:47:46 ]
Post subject:  Скрипт на ремнот вещей
Вот думаю как бы написать скрипт на следующие действия:
1) чар смотрит надето ли на определенную часть тела что либо, в том числе и оружие.
2) Запоминает каждую вещь
3) снимает запомненную вещь
4) чинит её(ну этот пункт в принципе не сложно написать :) )
Author:  kexwer [ 2006-08-11 17:42:47 ]
Post subject: 
есть уже такой скрипт....
Вот...

Code:
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
Author:  Rijo [ 2006-08-11 18:36:44 ]
Post subject: 
kexwer wrote:
есть уже такой скрипт....
Вот...

Спасибо, пришлось конечно подправить немного :). Хотя я свой почти дописал. Ну в идеале он бы получился бы таким же практически
Author:  kexwer [ 2006-08-11 18:41:39 ]
Post subject: 
Что подправил?
Просим! Просим! =)
Author:  Rijo [ 2006-08-11 18:44:25 ]
Post subject: 
Code:
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:
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]
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/