Yoko

All sides of Injection
It is currently 2025-12-03 22:51:12

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 2
  [ 37 posts ]  Go to page 1 2 Next
  Print view Previous topic | Next topic 
Author Message
o..
 Post subject: Алхимия
PostPosted: 2005-08-26 13:34:30 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Народ есть у кого-нить скрипт на крафт алхимии.. Чтобы варил, потом брал из сундука кег, ставил под собой.. заливал одну бутыку из пака, потом заливал всё остальное(дабл клик на кег - таргетом на бэгпак) и клал обратно.. потом брал 400 глазиков ии опять варил по новой.. Пацаны очень надо, помогите плиз
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-26 22:29:49 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Ветеран можешь этот скрипт переделать как надо?
чтобы после мессаги You have no bottle заливал в кеги..



Code:
sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Сундук с регами и бутылками') 
uo.exec('addobject Bag')
while uo.targeting() 
wait(100) 
wend 
uo.print('Сундук куда бутылки бросать') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F0E','0x0998','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.SetReceivingContainer('Bag2') 
wait(1000) 
UO.Grab('all','finditem') 
wait(1000) 
UO.UnSetReceivingContainer() 
Endif 

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

UO.FindType('0x0F88','0x0000','backpack') 
If UO.GetQuantity('finditem')<20 then 
UO.FindType('0x0F88','0x0000','Bag') 
wait(1000) 
UO.Grab('400','finditem') 
wait(1000) 
Endif 

LastTimer=UO.Timer() 
UO.DeleteJournal() 

UO.UseType('0x0F88') 
UO.WaitMenu('What','Poison')        
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 
Else 
EndIf 
wend    
end sub
Top
   
Reply with quote  
Sfagnum
 Post subject:
PostPosted: 2005-08-27 01:36:47 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
в поиск по кегу...
было.
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-27 02:12:49 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
поиск не работает
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-08-27 10:56:35 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Работает, открываешь раздел Scripts и ищешь глазами по названию :wink:
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-27 12:04:54 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
15 страниц просматрел, не нашел :)
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-08-27 12:17:22 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Ну тогда жди того, кто знает как с кегами работать, у нас на шарде такого нету, помочь не могу :wink:
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-27 12:25:38 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
ну я объяснить могу собсна :)
Top
   
Reply with quote  
PCGamer
 Post subject:
PostPosted: 2005-08-27 12:38:48 
Offline

Joined: 2005-08-12 03:04:00
Posts: 125
Просто совет: когда просишь скрипт, кроме всего того, что ты обчно пишешь - пиши ещё на каком шарде ты играешь. И ещё для данного случая опиши как происходит процесс залива в кеги на твоем шарде(куда кликать какие месаги высвечиваются, где ждать надо), эта информация будет необходима человеку, который захочет тебе помочь.
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-27 16:00:59 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Заливание в кег происходит следующим образом:
Даблклик на кег(msg What potion would you like to fill the keg with?),
потом таргетом на бутыль с химией
(msg You fill up the keg with a "название бутылки" potion.
You put the empty bottles in your pack.)
В кег максимум влазит 50 бутылок, при заливании в кег, в пак кладеться пустая бутылка.. Если пытаться залить во время мешания вылетает мессага You can't use this yet!
Если в кеге есть хоть одна бутыль и такргетом от него кликнуть на пак, зальются сразу все бутылки такого вида...
Type=0x1940 тип кега
В общем по 1 одной бутыли в кеги я залью, нужно чтобы после мессаги You have no bottle брал из сундука пустой кег и ставил на пол, заливал в него химию из пака (путем даблклик на кег - таргет на пак), потом поднимал и клал в другой сундук.. После этого брал оределенное кол-во регов и начинал варить сного....
Пожалуйста хелпаните, народ

ЗЫ Шард оском
ЗЫЫ Спасибо за совет :wink:
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-27 22:01:37 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Народ, ну помогите плиз..
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-28 13:10:26 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
up :cry:
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-29 11:34:09 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Лео, помоги плиз, я вроде всё объяснил :?
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-29 19:48:23 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Как сделать чтобы таргетом кликнуть на свой пак?
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-08-29 19:51:45 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Code:
UO.WaitTargetObject('ID бекпека')
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-29 20:07:46 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Спасибо, еще вопрос как сделать чтобы из середины скрипта например если бутылок нету шел на начало? Типо как в пилоте
:start метка
....
if ...
goto start
end_if
.....
end_script
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-29 20:26:26 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Лео можешь асю дать, помочь не много?
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-08-29 20:52:53 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
Да говорю же что не знаю как с кегами работать. :D
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-29 21:24:08 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Да я там уже всё сделал, подредактировать малек надо :)
Top
   
Reply with quote  
o..
 Post subject:
PostPosted: 2005-08-29 21:32:02 
Offline

Joined: 2005-08-19 13:14:09
Posts: 45
Code:
sub alchemy() 

VAR Exit=0, LastTimer 
uo.print('Сундук с регами и пустыми кегами') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.print('Сундук куда заполненые кеги бросать') 
uo.exec('addobject Bag2') 
while uo.targeting() 
wait(100) 
wend 
while Exit<>1 
UO.DeleteJournal() 

UO.FindType('0x0F78',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F78','0x0000','Bag') 
wait(1000) 
UO.Grab('300','finditem') 
wait(1000) 
Endif 

LastTimer=UO.Timer() 
UO.DeleteJournal() 

UO.UseType('0x0F78') 
UO.WaitMenu('What','Shrink') 
wait(1000)
If UO.InJournal("You have no") then 
   UO.FindType('0x1940','0x0000','Bag')  ### ищет пустой кег
   wait(500) 
   uo.grab('1','finditem') ### калдет его в пак
   wait(2000) 
   UO.UseObject('finditem') #############Заливает 
   UO.WaitTargetObject('0x4017AE36')####бутылки
   wait(1500)
   UO.FindType('0x1940') ### ищет кег в паке
   wait(500)
   UO.MoveItem('finditem', '1', 'bag2') ### кладет обратно в сундук
   wait(1500)
Endif 
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") 
wait(50)
wend 
If UO.InJournal("You toss the failed") then 
   repeat 
   wait(100) 
until UO.Timer()>=LastTimer+100 
Else 
EndIf 
wend    
end sub



он кег обратно почему то не кладет


Last edited by o.. on 2005-08-30 13:12:27, edited 4 times in total.

Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 2
  [ 37 posts ]  Go to page 1 2 Next

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 12 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:  
cron
Powered by phpBB® Forum Software © phpBB Limited