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

Помогите со скриптом на Бовкрафт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7535
Page 1 of 1

Author:  Kileron [ 2006-04-29 18:45:46 ]
Post subject:  Помогите со скриптом на Бовкрафт

Народ плз дайте скриптик на бовкрафт что бы делать луки а то у меня есть скриптик но когда лук падает под ноги чару, то скрипт останавливается или пожалуйста переделайте его, он маленький и думаю работы тут 2 сек , Заранее спб !
Code:
sub Bowcraft()
REPEAT
 UO.DeleteJournal()
 UO.DeleteJournal()
 UO.Exec("waitmenu 'What do you want to carve the' 'bow'")
 UO.Exec("waittargettype '0x1BDD'")
 UO.Exec("usetype '0x0F51'")
 Repeat
 wait(100)
 Until (UO.InJournal("item")) || (UO.InJournal("pack"))
UNTIL (UO.Life<1)
If UO.InJournal("many items") Then
Message("Too many items! The script is terminated.")
         Else
Message("You was DIE! The script is terminated.")
End If
UO.DeleteJournal()
end sub

Author:  Scripts Writer [ 2006-04-30 14:45:09 ]
Post subject: 

Code:
sub Bowcraft()
var dagger='0x0F51'
var logs='0x1BDD'

 while not uo.Dead()
   uo.DeleteJournal()
   uo.WaitMenu('What do you want to carve the' ,'bow')
   uo.WaitTargetType(logs)
   uo.UseType(dagger)
   while not uo.InJournal('item') or uo.InJournal('pack') or uo.InJournal('you fail')
     wait(100)
   wend
 wend
end sub

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/