Главная »
Форум » Форум » Вспомогательные программы
 Скрипт на заказы.
Опции Открыть меню
Сержант (586728)15 лет
Urukhay
Сообщений: 154
Рег. 24.10.2009
28 июня 2010 08:59
Сообщение #1

Когда то видел скрипт на производственные заказы на антаресе,если у кого он есть скиньте плиз.
Прапорщик (1548031)14 лет
Ranger
Сообщений: 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
Прапорщик (1548031)14 лет
Ranger
Сообщений: 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
Прапорщик (1548031)14 лет
Ranger
Сообщений: 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
Прапорщик (1548031)14 лет
Ranger
Сообщений: 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
 
Прапорщик (1548031)14 лет
Ranger
Сообщений: 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
 
Подполковник (13440311)14 лет
Ranger
Сообщений: 559
Рег. 7.03.2010
28 июня 2010 15:21
Сообщение #7
laughing 
Полковник (18176768)14 летПрекрасная Леди
Urukhay
Сообщений: 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)

Frozen
28 июня 2010 18:45
Сообщение #9

все работает

автоменю прописывает сразу что делать, а waitmenu работает когда до этой строчки очередь доходит

 

суть такая:

 

автоменю

цикл

    usetype инструмента

конец цикла

 

цикл

    waitmenu

    usetype инструмента

конец цикла
Сержант (586728)15 лет
Urukhay
Сообщений: 154
Рег. 24.10.2009
28 июня 2010 19:20
Сообщение #10

спасибо ))
Прапорщик (1548031)14 лет
Ranger
Сообщений: 1842
Рег. 5.06.2010
28 июня 2010 23:59
Сообщение #11

Жмём на зелёный плюсик под аватаркой ) вместо кнопки спасибо:)
Лейтенант (3862022)14 лет
Druid
Сообщений: 1246
Рег. 12.12.2009
6 июля 2010 12:10
Сообщение #12
Вопрос по тайлорингу.Был ежедневный квест сделать 10 leather leggings ну так вот в скрипте я прописывал вот такой путь.
('Leather','Leather Armor','Leather Armor','leggings',)

но писало что путь не правильный'
Прапорщик (1548031)14 лет
Ranger
Сообщений: 1842
Рег. 5.06.2010
6 июля 2010 16:37
Сообщение #13
('Leather','Leather Armor','Leather Armor','leggings')  



запятая перед последней скобкой лишняя была ;) 

Frozen
18 ноября 2010 23:05
Сообщение #14
Цитата: Flip Qup
Инскрипт :) не проверял на Бесте


А переделать можно, что-бы пойзонки делал? Я чё-то не могу) 
Прапорщик (1548031)14 лет
Ranger
Сообщений: 1842
Рег. 5.06.2010
18 ноября 2010 23:40
Сообщение #15
Напиши лаки-страйку,чтоб он тебе скрипт на инскрипт дал :) хорошо попросишь :) даст :)

Frozen
19 ноября 2010 09:51
Сообщение #16

Да ладно, пофиг. Помудюсь зделаю как-нибудь)
Последние посетители (0):

 
Сейчас: 25 ноября 2024 22:41


© The Best Ultima Online Shard Antares, 2004-2024