Скрипт на заказы. |
Скрипт на заказы. |
28 июня 2010 08:59
Сообщение #1
|
|
Когда то видел скрипт на производственные заказы на антаресе,если у кого он есть скиньте плиз. |
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
28 июня 2010 09:19
Сообщение #2
|
Тайлоринг (изменяешь путь к вещи,по желанию можешь изменить тип вещи,чтобы писало сколько сделать надо :) sub Tailoring() VAR LastTimer repeat UO.Print('Осталось ' + Str( UO.Count( 0x175D ) ) + ' ткани' ) UO.Print('Осталось сделать ' + Str( 32-UO.Count( 0x153B ) ) + ' нужных вещей' ) if UO.Count( '0x175D' ) < 1 then Uo.Print("Кончилась ткань!") return endif UO.DeleteJournal() UO.WaitMenu ('Headwear','Bandana') UO.UseType( '0x0F9D' ) UO.waittargettype('0x175D') LastTimer=UO.Timer() ;repeat wait(600) ; until UO.InJournal ("Вы изготовили") OR ("не удалось") OR ("You put") OR UO.InJournal("fail") OR ("Вы положили") OR UO.Timer()>LastTimer+200 while not (uo.injournal("You put")) and not (uo.injournal("Tinkering failed")) and not (uo.injournal("Вы положили")) and not (uo.injournal("Вы изготовили"))and not (uo.injournal("не удалось")) wait(200) wend If UO.Count(0x13B3)>49 then UO.Print("Сдай заказы, йоптваю!") UO.Print("Сдай заказы, йоптваю!") UO.Print("Сдай заказы, йоптваю!") return endif If Uo.Weight>618 then Uo.Print('Все, перевес, блин. Выбрось все нахрен!') UO.Print('В паке' + Str( UO.Count( 0x13B3 ) ) + 'нужных вещей' ) return endif until UO.DEAD() end sub |
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
28 июня 2010 09:20
Сообщение #3
|
Тинкеринг,тоже самое как с тайлором sub Tinkering()
VAR LastTimer
repeat
if UO.Count( '0x1BEF' ) < 1 then
Uo.Print("Кончились ресурсы!")
return
endif
UO.DeleteJournal()
UO.WaitMenu ('Tinkering','Parts','Parts','iron wire')
UO.UseType( '0x1EBC' )
LastTimer=UO.Timer()
;repeat
wait(600)
; until UO.InJournal ("Вы изготовили") OR ("не удалось") OR ("You put") OR UO.InJournal("fail") OR ("Вы положили") OR UO.Timer()>LastTimer+200
while not (uo.injournal("You put")) and not (uo.injournal("Tinkering failed")) and not (uo.injournal("Вы положили")) and not (uo.injournal("Вы изготовили"))and not (uo.injournal("не удалось"))
wait(200)
wend
If UO.Count(0x13B3)>49 then
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
return
endif
If Uo.Weight>700 then
Uo.Print('Все, перевес, блин. Выбрось все нахрен!')
UO.Print('В паке' + Str( UO.Count( 0x1055 ) ) + 'нужных вещей' )
return
endif
until UO.DEAD()
end sub
|
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
28 июня 2010 09:21
Сообщение #4
|
Карпентри :) sub Carpentry()
VAR LastTimer
repeat
UO.Print('Осталось ' + Str( UO.Count( 0x1BDD ) ) + ' Дровишек' )
UO.Print('Осталось сделать ' + Str( 50-UO.Count( 0x13B3 ) ) + ' дубинок' )
if UO.Count( '0x1BDD' ) < 1 then
Uo.Print("Кончились дровишки!")
return
endif
UO.DeleteJournal()
UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','dyes')
UO.UseType( '0x1030' )
LastTimer=UO.Timer()
;repeat
wait(600)
; until UO.InJournal ("Вы изготовили") OR ("не удалось") OR ("You put") OR UO.InJournal("fail") OR ("Вы положили") OR UO.Timer()>LastTimer+200
while not (uo.injournal("You put")) and not (uo.injournal("You fail")) and not (uo.injournal("Вы положили")) and not (uo.injournal("Вы изготовили"))and not (uo.injournal("не удалось"))
wait(200)
wend
If UO.Count(0x13B3)>49 then
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
return
endif
If Uo.Weight>618 then
Uo.Print('Все, перевес, блин. Выбрось все нахрен!')
UO.Print('В паке' + Str( UO.Count( 0x13B3 ) ) + 'дубинок' )
return
endif
until UO.DEAD()
end sub
|
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
28 июня 2010 09:22
Сообщение #5
|
Инскрипт :) не проверял на Бесте sub inscript()
var Sunduk = '0x4091E108' ; Сериал сундука
var Scroll = '0x0E34' ; бланк скрол, тип
var k = 0
var MakedScroll = '0x1F34' ; готовый скрол, тип
var reg1 = '0x0F88' ; сюда вписать реги, нужные для крафта
var reg2 = '0x0F84'
VAR t
While TRUE
UO.FindType( Scroll, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Blank scrolls not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 2000 )
UO.FindType( reg1, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '100', 'finditem' )
wait( 2000 )
; UO.FindType( reg2, -1, Sunduk ) ; активировать для крафта других свитков
; if UO.FindCount() == 0 Then
; UO.Print( "Reagents not found, script terminated" )
; return
; end if
; UO.Grab( Str(Quantity*Quantitypb), 'finditem' )
; wait( 2000 )
; UO.FindType( reg3, -1, Sunduk )
; if UO.FindCount() == 0 Then
; UO.Print( "Reagents not found, script terminated" )
; return
; end if
; UO.Grab( Str(Quantity*Quantitypb), 'finditem' )
; wait( 2000 )
; UO.FindType( reg4, -1, Sunduk )
; if UO.FindCount() == 0 Then
; UO.Print( "Reagents not found, script terminated" )
; return
; end if
; UO.Grab( Str(Quantity*Quantitypb), 'finditem' )
; wait( 2000 )
While UO.Count( Reg1 ) > 0 and UO.Count( Scroll ) >0
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(1000)
Wend
UO.DeleteJournal()
While NOT UO.InJournal( 'You are at peace')
UO.UseSkill("Meditation")
Wait(1000)
Wend
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'Spell Circles', '1', '1', 'Weaken' )
UO.UseType( Scroll )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
k = k + 1
wait( 500 )
wend
if UO.Count( MakedScroll ) > 0 then
UO.FindType( MakedScroll, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
wend
if UO.Count( reg1 ) > 0 then
UO.FindType( reg1, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
; if UO.Count( reg2 ) > 0 then; активировать для крафта других свитков
; UO.FindType( reg2, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
; if UO.Count( reg3 ) > 0 then
; UO.FindType( reg3, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
; if UO.Count( reg4 ) > 0 then
; UO.FindType( reg4, -1, -1 )
; UO.MoveItem( 'finditem', 0, Sunduk )
; wait( 1000 )
; end if
Wend
end sub
|
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
28 июня 2010 09:22
Сообщение #6
|
Тайлоринг из кожи sub Tailoring()
VAR LastTimer
repeat
UO.Print('Осталось ' + Str( UO.Count( 0x1067 ) ) + ' кожи' )
UO.Print('Осталось сделать ' + Str( 32-UO.Count( 0x153B ) ) + ' нужных вещей' )
if UO.Count( '0x1067' ) < 1 then
Uo.Print("Кончилась ткань!")
return
endif
UO.DeleteJournal()
UO.WaitMenu ('Leather','Footwear','Footwear','Shoes')
UO.UseType( '0x0F9D' )
UO.waittargettype('0x1067')
LastTimer=UO.Timer()
;repeat
wait(600)
; until UO.InJournal ("Вы изготовили") OR ("не удалось") OR ("You put") OR UO.InJournal("fail") OR ("Вы положили") OR UO.Timer()>LastTimer+200
while not (uo.injournal("You put")) and not (uo.injournal("Tinkering failed")) and not (uo.injournal("Вы положили")) and not (uo.injournal("Вы изготовили"))and not (uo.injournal("не удалось"))
wait(200)
wend
If UO.Count(0x13B3)>49 then
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
UO.Print("Сдай заказы, йоптваю!")
return
endif
If Uo.Weight>618 then
Uo.Print('Все, перевес, блин. Выбрось все нахрен!')
UO.Print('В паке' + Str( UO.Count( 0x13B3 ) ) + 'нужных вещей' )
return
endif
until UO.DEAD()
end sub
|
|
|
|
28 июня 2010 15:21
Сообщение #7
|
|
|
|
Сообщений: 961 Рег. 14.01.2010 |
28 июня 2010 15:51
Сообщение #8
|
Очень странно... насколько я понимаю, что скрипты от другово шарда, потому что меню крафта тут чуть другое... UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','dyes') Этот вариант помоему не сработает. Тут меню крафта выглядит примерно так: uo.automenu('Carpentry', 'Weapons & Tools') wait(100) uo.automenu('Weapons & Tools', dyes') wait(100) |
|
|
|
28 июня 2010 18:45
Сообщение #9
|
|
все работает автоменю прописывает сразу что делать, а waitmenu работает когда до этой строчки очередь доходит
суть такая:
автоменю цикл usetype инструмента конец цикла
цикл waitmenu usetype инструмента конец цикла |
|
|
|
28 июня 2010 19:20
Сообщение #10
|
|
спасибо )) |
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
28 июня 2010 23:59
Сообщение #11
|
Жмём на зелёный плюсик под аватаркой ) вместо кнопки спасибо:) |
|
|
|
Сообщений: 1246 Рег. 12.12.2009 |
6 июля 2010 12:10
Сообщение #12
|
Вопрос по тайлорингу.Был ежедневный квест сделать 10 leather leggings ну так вот в скрипте я прописывал вот такой путь. ('Leather','Leather Armor','Leather Armor','leggings',) но писало что путь не правильный' |
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
6 июля 2010 16:37
Сообщение #13
|
('Leather','Leather Armor','Leather Armor','leggings') запятая перед последней скобкой лишняя была ;) |
|
|
|
18 ноября 2010 23:05
Сообщение #14
|
|
Цитата: Flip Qup Инскрипт :) не проверял на Бесте А переделать можно, что-бы пойзонки делал? Я чё-то не могу) |
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
18 ноября 2010 23:40
Сообщение #15
|
Напиши лаки-страйку,чтоб он тебе скрипт на инскрипт дал :) хорошо попросишь :) даст :) |
|
|
|
19 ноября 2010 09:51
Сообщение #16
|
|
Да ладно, пофиг. Помудюсь зделаю как-нибудь) |
|
|
|
Сейчас: 23 ноября 2024 18:09 |