Yoko

Code: Select all

##Берем два сундука или шкатулки с ключами в бэкпак
##Кладем кучу отмычек рядом на пол
##Закрываем оба контейнера, запускаем скрипт
##Lockpicking v1.00 Kitten

sub Lockpicking() 

uo.exec('addobject Sunduk1') 
while uo.targeting() 
wait(100) 
wend

uo.exec('addobject Key1') 
while uo.targeting() 
wait(100) 
wend

uo.exec('addobject Sunduk2') 
while uo.targeting() 
wait(100) 
wend

uo.exec('addobject Key2') 
while uo.targeting() 
wait(100) 
wend

VAR i = 1
VAR k = 1
##################################################################
repeat

if i == 1 then
         UO.WaitTargetObject('Sunduk1') 
         uo.usefromground(0x14FB) ;Lockpick
         uo.deletejournal()
         CheckLag() 
         wait(7600)
endif

if uo.injournal('You opened the lock!') then
	i = 0
	uo.deletejournal()
	while i == 0
		uo.deletejournal()
		UO.WaitTargetObject('Sunduk1')
        UO.Useobject('Key1')
        CheckLag()
        wait(1000)
        	if uo.injournal('You lock it.') then
        		i = 1
        		uo.deletejournal()
        	endif
	wend
endif
	
if k == 1 then
         UO.WaitTargetObject('Sunduk2') 
         uo.usefromground(0x14FB) ;Lockpick
         uo.deletejournal()
         CheckLag() 
         wait(7600)
endif

if uo.injournal('You opened the lock!') then
	k = 0
	while k == 0
		uo.deletejournal()
		UO.WaitTargetObject('Sunduk2')
        UO.Useobject('Key2')
        CheckLag()
        wait(1000)
        	if uo.injournal('You lock it.') then
        		k = 1
        		uo.deletejournal()
        	endif
	wend
endif
until 1==0
endsub

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