[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
|
Перезарядка рунбуки
Начал ۞ Папа ۞, Jun 28 2007 23:43
Нет ответов
1 пользователей читают эту тему
0 пользователей, 1 гостей, 0 невидимых