Скрипт на алхимию

Zloi_ru · Post by **Zloi_ru** » 2004-05-11 15:52:46

Дайте пожалуйста скрипт...
50 алхимии..
хотелось бы что бы он делал и сразуже в кеги запихивал..

Zloi_ru · Post by **Zloi_ru** » 2004-05-12 01:48:59

Уп Помогите плз !

Zloi_ru · Post by **Zloi_ru** » 2004-05-12 20:02:36

Помогите в написания Скрипта на алхимию ну будте людьми... помогите

Kazoo · Post by **Kazoo** » 2004-05-13 00:37:01

Code: Select all

sub alchtrain()
   VAR Exit=0, LastTimer, TryToPoison
   while Exit<>1
      UO.DeleteJournal()

      UO.FindType('0x0F0E',-1,'backpack')
      If UO.GetQuantity('finditem')<10 then
         UO.FindType('0x0F0E','0x0000','0x41136538')
         wait(1000)
         UO.Grab('50','finditem')
         wait(1000)
      Endif

      UO.FindType('0x0F88','0x0000','backpack')
      If UO.GetQuantity('finditem')<20 then
         UO.FindType('0x0F88','0x0000','0x41136538')
         wait(1000)
         UO.Grab('200','finditem')
         wait(1000)
      
Endif
LastTimer=UO.Timer()
UO.WaitMenu('What','(last)')
UO.UseType(0x0F88) ; NightShade

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(500)
wend

If UO.InJournal("You toss the failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100 ;time to make a dagger
Else
TryToPoison=1
repeat
UO.FindType('0x0F0A','my')
If UO.GetQuantity('finditem')>0 then
UO.WaitTargetObject('0x4005B743','finditem')
UO.UseSkill('Poisoning')
wait(4000)
Else
TryToPoison=0
Endif
until TryToPoison==0
EndIf
wend
end sub

Zloi_ru · Post by **Zloi_ru** » 2004-05-13 15:55:18

Ошибку выдает (

Zloi_ru · Post by **Zloi_ru** » 2004-05-13 17:46:25

Ну кто нибудь выложите свой скрипт на алхимию...

AntiKiller · Post by **AntiKiller** » 2004-05-14 19:00:33

Zloi_ru wrote:Ну кто нибудь выложите свой скрипт на алхимию...

Короче тут всё по чястям в падлу было один единый писать и написал по частям дабы ошибок небыло

sub kolba() # Берём 1 колбу
UO.FindType("0x0F0E", "0x0000", "0x4000C43F")
UO.Grab("2","finditem")
wait(500)
UO.FindType("0x0F0E", "0x0000", "-1")
UO.MoveItem("finditem", "1", "0x4000C43F")
wait(500)
endsub

sub Alxa() # Делаем ЯД
UO.DeleteJournal()
While not UO.InJournal("You put the lesser poison potion in your pack")
If UO.Count('0x0F88', '0x0000')<2 then
UO.FindType("0x0F88", "0x0000", "0x400161C3")
UO.Grab("2","finditem")
Wait(500)
endif
UO.UseType('0x0F88', '0x0000')
UO.DeleteJournal()
Wait(10000)
Wend
endsub

sub Stake() # Берём 1 жаренный стайк
UO.FindType("0x097B", "0x0000", "0x4000C43F")
UO.Grab("2","finditem")
wait(1000)
UO.FindType("0x097B", "0x0000", "-1") # ищем жаренный стайк
UO.MoveItem("finditem", "1", "0x4001B921")# складываем его в мешок
wait(500)
endsub

sub Poisoning() # Травим Стайк
UO.DeleteJournal()
While not UO.InJournal("You apply lesser poison potion on fish steak")
If UO.Count('0x0F0A', '0x0000')<1 then
kolba()
Wait(500)
Alxa()
Wait(500)
endif
UO.WaitTargetType('0x097B','0x0000')
UO.UseType('0x0F0A','0x0000')
UO.DeleteJournal()
Wait(2000)
Wend
endsub

sub quit() # Кладём отравленный сстайк в мешок
UO.FindType("0x097B", "0x0000", "-1") # ищем жаренный отравленный стайк
UO.MoveItem("finditem", "2", "0x4001B921")# складываем его в мешок
wait(500)

endsub

sub xaxa() # Запуск творения
kolba()
Alxa()
Stake()
Poisoning()
quit()
xaxa()
endsub