Помогите пожалуста с макросом на сбор.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
enjoy
Posts: 24
Joined: 2005-03-04 21:58:54

Помогите пожалуста с макросом на сбор.

Post by enjoy »

Нужно вот такое вот чкдо: вводим в окно УО кол-во, допустим 50. И инжект собирает 50 МРа из заранее определенного контейнера. Если не составит труда напишите ПЛЗ.
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

А конкретней и подробней?
Top
enjoy
Posts: 24
Joined: 2005-03-04 21:58:54

Post by enjoy »

Ситуация: макрос на сбор регов. Инжект пишет: UO.print('HOw much grab?')
Потом вводим число, например 50
И макрос берет 50 регов из сундука.
Top
SAMURAI
Posts: 203
Joined: 2004-07-10 00:38:43
Location: From DrW
Contact:
Contact SAMURAI

Post by SAMURAI »

Интересно и зачем же кланировать топы?!.
:?
Нет ничего невозможного...
Кто [url=http://forum.yoko.com.ua/search.php]ИЩЕТ[/url], тот всегда найдёт...
[code]sub UO()
UO.Chto-To("S Chem-To")
end sub[/code]
© I'm
Top
Solaire
Posts: 163
Joined: 2005-05-21 07:12:12
Location: DRW

Post by Solaire »

Вот, пробуй. Во время работы скрипта по себе не кликать и писать только количество без всяких точек и т. д.

Code: Select all

sub loadr() 
VAR cont='0x4030AE6E', rtype='0x0F86', T=' ', l, J, k, n=UO.GetName()
UO.DeleteJournal()
UO.Print('How much grab?')
while not UO.InJournal(UO.GetName()+":")
	wait(100)
wend
J=UO.Journal(UO.InJournal(UO.GetName()+":")-1)
for k=len(n)+2 to len(J)
	T=T+J[k]
next
UO.UseObject(cont)
wait(1000)
UO.FindType(rtype, -1, cont)
if  UO.FindCount() then
	UO.MoveItem('finditem', T, 'backpack')
endif
endsub
Top
enjoy
Posts: 24
Joined: 2005-03-04 21:58:54

Post by enjoy »

Работает! Сенки огромное! А теперь другая ситуация: выгруз регов.
Вот мой макрос:

Code: Select all

var i 
########################################################## 
################# ???????????? (Matrix Reload) ########### 
########################################################## 
sub sbros_regi() 
var meshokregi = "0x4061E962" #???? ?????????? ? ????? ???? 
var meshokmaps = "0x40326395" #????? ??? ????? ?????????? ???? 
var meshokbottles = "0x40324A92" #????? ? ????????? 
########################################################## 
#########################????? ?????###################### 

UO.Setreceivingcontainer(meshokregi) 
UO.Useobject(meshokregi) 

While UO.Count(0x0F87) > 0 #Eyes of Newt 
UO.Waittargettype(0x0F87) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F91) > 0 #Wyrm's Heart 
UO.Waittargettype(0x0F91) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F89) > 0 #Obsidian 
UO.Waittargettype(0x0F89) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8F) > 0 #Volcanic Ash 
UO.Waittargettype(0x0F8F) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F78) > 0 #Batwings 
UO.Waittargettype(0x0F78) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F88) > 0 #NS 
UO.Waittargettype(0x0F88) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F7B) > 0 #BM 
UO.Waittargettype(0x0F7B) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F7A) > 0 #BP 
UO.Waittargettype(0x0F7A) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F85) > 0 #GI 
UO.Waittargettype(0x0F85) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F86) > 0 #MR 
UO.Waittargettype(0x0F86) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8C) > 0 #SA 
UO.Waittargettype(0x0F8C) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F84) > 0 #GA 
UO.Waittargettype(0x0F84) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8D) > 0 #SS 
UO.Waittargettype(0x0F8D) 
UO.Grab() 
Wait(600) 
wend 

Repeat 
uo.findtype('0x0E76','0x00BB','backpack') 
wait(500) 
if uo.FindCount() then 
UO.useobject('finditem') 

UO.Setreceivingcontainer(meshokregi) 
UO.Useobject(meshokregi) 

While UO.Count(0x0F87) > 0 #Eyes of Newt 
UO.Waittargettype(0x0F87) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F91) > 0 #Wyrm's Heart 
UO.Waittargettype(0x0F91) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F89) > 0 #Obsidian 
UO.Waittargettype(0x0F89) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8F) > 0 #Volcanic Ash 
UO.Waittargettype(0x0F8F) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F78) > 0 #Batwings 
UO.Waittargettype(0x0F78) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F88) > 0 #NS 
UO.Waittargettype(0x0F88) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F7B) > 0 #BM 
UO.Waittargettype(0x0F7B) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F7A) > 0 #BP 
UO.Waittargettype(0x0F7A) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F85) > 0 #GI 
UO.Waittargettype(0x0F85) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F86) > 0 #MR 
UO.Waittargettype(0x0F86) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8C) > 0 #SA 
UO.Waittargettype(0x0F8C) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F84) > 0 #GA 
UO.Waittargettype(0x0F84) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8D) > 0 #SS 
UO.Waittargettype(0x0F8D) 
UO.Grab() 
Wait(600) 
Wend 
UO.Unsetreceivingcontainer() 
endif 
UO.drophere('finditem') 
UO.ignore('finditem') 
Until UO.findcount(0x0E76)==0 

Repeat 
uo.findtype('0x0E75','0x0000','backpack') 
wait(500) 
if uo.FindCount() then 
UO.useobject('finditem') 

UO.Setreceivingcontainer(meshokregi) 
UO.Useobject(meshokregi) 

While UO.Count(0x0F87) > 0 #Eyes of Newt 
UO.Waittargettype(0x0F87) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F91) > 0 #Wyrm's Heart 
UO.Waittargettype(0x0F91) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F89) > 0 #Obsidian 
UO.Waittargettype(0x0F89) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8F) > 0 #Volcanic Ash 
UO.Waittargettype(0x0F8F) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F78) > 0 #Batwings 
UO.Waittargettype(0x0F78) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F88) > 0 #NS 
UO.Waittargettype(0x0F88) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F7B) > 0 #BM 
UO.Waittargettype(0x0F7B) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F7A) > 0 #BP 
UO.Waittargettype(0x0F7A) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F85) > 0 #GI 
UO.Waittargettype(0x0F85) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F86) > 0 #MR 
UO.Waittargettype(0x0F86) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8C) > 0 #SA 
UO.Waittargettype(0x0F8C) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F84) > 0 #GA 
UO.Waittargettype(0x0F84) 
UO.Grab() 
Wait(600) 
Wend 
While UO.Count(0x0F8D) > 0 #SS 
UO.Waittargettype(0x0F8D) 
UO.Grab() 
Wait(600) 
Wend 
UO.Unsetreceivingcontainer() 
endif 
UO.drophere('finditem') 
UO.ignore('finditem') 
Until UO.findcount(0x0E76)==0 
end sub
Если кто может то доработайте, отто не сбрасывает пустые контейнры
[Даже если увижу супер пупер интересный скрипт такого размера без тегов убью I'm]
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

ты уверен что это твой скрипт?;)
выгрузка не такая извращеная как сборка?;)
Если нет то можно обойтись и этим

Code: Select all

sub reg()
var Count=0
dim Type[n] #n количество типов регов
Type[0]=''
...
Type[n-1]=''
For var i = 0 to n-1
While uo.count(Type[i])>0 
Count=uo.count(Type[i])
uo.moveitem('_'+Type[i], -1, 'Id') #Id контерйнера куда складывать
while uo.count(Type[i]) == Count
wait(100)
wend
wend
next
end sub
Top
enjoy
Posts: 24
Joined: 2005-03-04 21:58:54

Post by enjoy »

Этот скрипт выгружает реги только из бэкпака, а мне нужно из всехх сумочек!
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

если все сумочки в бегпеке и они открыты то и изних выгрузит
Top
enjoy
Posts: 24
Joined: 2005-03-04 21:58:54

Post by enjoy »

А они закрыты!!!
Top
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

Ну и? чего тебе мешает их открыть?
Или написать скрипт на их открытие...
Если инжект не узнает изначально что в этих сумка есть он и не выгрузит их в принципе достаточно один раз их открыть и потом если мешают закрыть тогда инжект сохранит инфу об содержимом но обновлять не будет
Top
Post Reply

Return to “Scripting Ore”