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

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

Скрипт на алхимию http://forum.yoko.com.ua/viewtopic.php?f=20&t=319	Page 1 of 1

Author:	Zloi_ru [ 2004-05-11 15:52:46 ]
Post subject:	Скрипт на алхимию
Дайте пожалуйста скрипт... 50 алхимии.. хотелось бы что бы он делал и сразуже в кеги запихивал..

Author:	Zloi_ru [ 2004-05-12 01:48:59 ]
Post subject:
Уп Помогите плз !

Author:	Zloi_ru [ 2004-05-12 20:02:36 ]
Post subject:
Помогите в написания Скрипта на алхимию ну будте людьми... помогите

Author:

Kazoo [ 2004-05-13 00:37:01 ]

Post subject:

Code:

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

Author:	Zloi_ru [ 2004-05-13 15:55:18 ]
Post subject:
Ошибку выдает (

Author:	Zloi_ru [ 2004-05-13 17:46:25 ]
Post subject:
Ну кто нибудь выложите свой скрипт на алхимию...

Author:	AntiKiller [ 2004-05-14 19:00:33 ]
Post subject:
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

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