[codebox]#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sub ReBook()
UO.Findtype('0x1F4C')
if uo.FindCount()>0 then
UO.Findtype('0x0EFA','0x0221')
if uo.FindCount()==1 then
uo.exec('addobject RBook finditem')
else
uo.exec('addobject RBook')
while uo.Targeting()
wait(100)
wend
endif
uo.DeleteJournal()
repeat
uo.Recall('RBook',1)
checklag()
until UO.InJournal('The book')
endif
end sub[/codebox]
удобно…
Свернуть/развернуть блок Chat
|
۞ Папа ۞
Дата регистрации: 25 Jun 2007Вне сайта Был на сайте Sep 09 2009 08:02