тинкер
Ефрейтор (232570)11 лет
Ranger
Сообщений: 170
Рег. 25.02.2013
20 марта 2013 17:44
Сообщение #1
не работает скрипт уже все перепробывал даже менюшку неоткрывает тинкера
sub Bottles()
VAR LastTimer
repeat
while not uo.dead()
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'Empty Bottle')

UO.UseType(0x1EBC)
repeat
wait(500)
until UO.InJournal("You put") or UO.InJournal("You can't make") or UO.InJournal("Tinkering failed") OR UO.Timer()>LastTimer+200
until UO.Count("0x1BEF")<3
end sub

тинкер
Сержант (570807)11 лет
Ranger
Сообщений: 318
Рег. 7.07.2012
20 марта 2013 17:49
Сообщение #2
на while wend нужен

UO.WaitMenu ('Tinkering', 'Misc', 'Misc', 'Empty Bottle' )
Ефрейтор (232570)11 лет
Ranger
Сообщений: 170
Рег. 25.02.2013
20 марта 2013 18:03
Сообщение #3
Herdsman,

вот что вышло

sub Bottles()
VAR LastTimer
repeat
wend not uo.dead()
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Tinkering', 'Misc', 'Misc', 'Empty Bottle' )

UO.UseType(0x1EBC)
repeat
wait(500)
until UO.InJournal("You put") or UO.InJournal("You can't make") or UO.InJournal("Tinkering failed") OR UO.Timer()>LastTimer+200
until UO.Count("0x1BEF")<3
end sub

тинкер
Сержант (570807)11 лет
Ranger
Сообщений: 318
Рег. 7.07.2012
20 марта 2013 18:07
Сообщение #4
wend not uo.dead() убери строку

она должна выглядеть так, это пред условие
WHILE NOT UO.Dead()

     wait(1000)

WEND
Ефрейтор (232570)11 лет
Ranger
Сообщений: 170
Рег. 25.02.2013
20 марта 2013 18:13
Сообщение #5
спасибо
Сержант (570807)11 лет
Ranger
Сообщений: 318
Рег. 7.07.2012
20 марта 2013 18:16
Сообщение #6
Рад помочь)))
Ефрейтор (232570)11 лет
Ranger
Сообщений: 170
Рег. 25.02.2013
20 марта 2013 19:07
Сообщение #7
Есть скрипт у кого тайлор покочать на сумочках
Сержант (570807)11 лет
Ranger
Сообщений: 318
Рег. 7.07.2012
20 марта 2013 19:31
Сообщение #8
sub TailorMesh()

VAR LastTimer
VAR Instrum   = '0x0F9D'
VAR Resurs      = '0x1067'
VAR delay1   = 200        
WHILE NOT UO.Dead()
     UO.DeleteJournal()
      LastTimer=UO.Timer()
       UO.WaitMenu ('Misc', "Bag")
       uo.waittargettype( Resurs )
       UO.Usetype( Instrum )
      repeat
        wait( delay1 )
      until UO.InJournal("You put|fail|You broke") or UO.Timer()>LastTimer+500
WEND
end sub

sub TailorMap()

VAR LastTimer
VAR Instrum   = '0x0F9D'
VAR Resurs      = '0x175D'
VAR delay1   = 200        
WHILE NOT UO.Dead()
     UO.DeleteJournal()
      LastTimer=UO.Timer()
       UO.WaitMenu ('Misc', "Blank")
       uo.waittargettype( Resurs )
       UO.Usetype( Instrum )
      repeat
        wait( delay1 )
      until UO.InJournal("You put|fail|You broke") or UO.Timer()>LastTimer+500
WEND
end sub
Ефрейтор (232570)11 лет
Ranger
Сообщений: 170
Рег. 25.02.2013
20 марта 2013 19:53
Сообщение #9
спасибо
Последние посетители (0):

 
Сейчас: 7 мая 2024 15:43