Yoko

All sides of Injection
It is currently 2025-10-15 11:47:47

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 7 posts ] 
  Print view Previous topic | Next topic 
Author Message
Zloi_ru
PostPosted: 2004-05-11 15:52:46 
Offline

Joined: 2004-04-30 11:13:10
Posts: 13
Дайте пожалуйста скрипт...
50 алхимии..
хотелось бы что бы он делал и сразуже в кеги запихивал..

_________________
Только учюсь
Top
   
Reply with quote  
Zloi_ru
 Post subject:
PostPosted: 2004-05-12 01:48:59 
Offline

Joined: 2004-04-30 11:13:10
Posts: 13
Уп Помогите плз !

_________________
Только учюсь
Top
   
Reply with quote  
Zloi_ru
 Post subject:
PostPosted: 2004-05-12 20:02:36 
Offline

Joined: 2004-04-30 11:13:10
Posts: 13
Помогите в написания Скрипта на алхимию ну будте людьми... помогите

_________________
Только учюсь
Top
   
Reply with quote  
Kazoo
 Post subject:
PostPosted: 2004-05-13 00:37:01 
Offline
User avatar

Joined: 2004-04-03 18:39:28
Posts: 173
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


Last edited by Kazoo on 2004-05-13 19:03:21, edited 1 time in total.

Top
   
Reply with quote  
Zloi_ru
 Post subject:
PostPosted: 2004-05-13 15:55:18 
Offline

Joined: 2004-04-30 11:13:10
Posts: 13
Ошибку выдает (

_________________
Только учюсь
Top
   
Reply with quote  
Zloi_ru
 Post subject:
PostPosted: 2004-05-13 17:46:25 
Offline

Joined: 2004-04-30 11:13:10
Posts: 13
Ну кто нибудь выложите свой скрипт на алхимию...

_________________
Только учюсь
Top
   
Reply with quote  
AntiKiller
 Post subject:
PostPosted: 2004-05-14 19:00:33 
Offline

Joined: 2004-04-12 13:16:17
Posts: 51
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
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 7 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 0 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited