[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]
удобно…
Toggle shoutbox Chat
|
Перезарядка рунбуки
Started by ۞ Папа ۞, Jun 28 2007 23:43
No replies to this topic
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users