Подскажите, в чем проблема?

kristalla · Post by **kristalla** » 2005-04-05 18:57:59

Мне друг подкинул скрипт, который кует катаны, затем переплавляет их заново в инги, а когда ингов меньше 10, то берет еще инги из сундука. В сундуке много мешков (копаю и кую в ВИП шахте, людей копает много, поэтому мешков тоже много (для каждого)).
Дело в том, что он все делает, но не берет инги из мешка.
Скажите, в чем проблема?

ID сундука: 0x400BF2CC, тип сундука: 0x09AB
ID моего мешка: 0x4020D789, тип моего мешка: 0x0E76

sub BlacksmithyIM()

VAR Exit=0, LastTimer
while Exit<>1
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords', 'katana') ;Что куем
UO.UseType(0x1BEF)

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

If UO.InJournal("You have failed") then
repeat
wait(100)
until UO.Timer()>=LastTimer+100
EndIf

UO.FindType('0x13FE',-1,'backpack')
wait(500)

If UO.FindCount() > 0 then
UO.WaitTargetObject('finditem')
UO.UseObject('0x400C0EE4') ;
Endif

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x400BF2CC','0x4020D789','0x1BEF')
wait(1000)
UO.Grab('990','finditem')
Endif
wait(1000)
wend
end sub

Скажите, в чем ошибка?

Denton · Post by **Denton** » 2005-04-05 19:58:01

kristalla wrote: UO.FindType('0x400BF2CC','0x4020D789','0x1BEF')

Мне очень не нравится эта строчка... Что-то в ней не так. Не разбирался

Immelstorn · Post by **Immelstorn** » 2005-04-05 20:21:00

Исправь сторочку UO.FindType('0x400BF2CC','0x4020D789','0x1BEF') на
UO.FindType(0x1BEF,-1,0x400BF2CC)

Mguai · Post by **Mguai** » 2005-04-05 20:24:03

Проблема в мозгах

kristalla · Post by **kristalla** » 2005-04-05 20:35:22

Immelstorn wrote:Исправь сторочку UO.FindType('0x400BF2CC','0x4020D789','0x1BEF') на
UO.FindType(0x1BEF,-1,0x400BF2CC)

Инги все равно не берет. Пишется: invalid object: 990

Mguai: Если не можешь/не хочешь помочь - молчал бы.

Mguai · Post by **Mguai** » 2005-04-05 20:55:37

ни надо нервнячить тебе помогут добрые Люди

kristalla · Post by **kristalla** » 2005-04-06 16:26:16

Кто-нибудь, пожалуйста, скажите, в чем ошибка, почему он не берет из мешка инги?

Sfagnum · Post by **Sfagnum** » 2005-04-06 16:31:11

UO.FindType('0x400BF2CC','0x4020D789','0x1BEF') - удали нах.

kristalla · Post by **kristalla** » 2005-04-06 18:22:24

Не помогает.

Ув. Sfagnum! Пожалуйста, не могли бы вы переделать/доделать этот скрипт? Пожалуйста.
Идея, я думаю, понятна: чар кует катаны из айрона, переплавляет их в инги, когда инги заканчиваются, берет еще ингов.
Играю на ДРВ.
Все, кого спрашиваю, не знают, в чем дело, почему он не берет инги.

Sfagnum · Post by **Sfagnum** » 2005-04-06 19:59:41

Code: Select all

UO.FindType('0x1BEF',-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x400BF2CC','0x4020D789','0x1BEF')
wait(1000)
UO.Grab('990','finditem')
Endif

этот кусок заменить на последующий

Code: Select all

If UO.Count('0x1BEF','0x0000')<10 then
  UO.FindType('0x1BEF','0x0000','0x400BF2CC')
  UO.MoveItem('finditem','990','backpack')
  wait(1000)
Endif

Savage · Post by **Savage** » 2005-04-06 21:31:52

Подсказка верная, но работать будет только если вручную открыть сундук и мешок перед запуском скрипта.

Ну или в скрипт вписать вначале: uo.useobject('ид сундука') uo.useobject('ид мешка')

'ps Такого мутанта я еще не видел

вот оригинал:

Code: Select all

sub bs()
	VAR Exit=0, LastTimer, Forge='0x400D22C9', Cont='0x400D1BFC'
	while Exit<>1
		ToHide()
		UO.DeleteJournal()
		LastTimer=UO.Timer()
		UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')
		UO.UseType(0x1BEF) ; iron ings

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

		If UO.InJournal("You have failed") then
			repeat
				wait(100)
			until UO.Timer()>=LastTimer+100 ;time to make a dagger
		EndIf

		UO.FindType('0x0F51',-1,'backpack')
		wait(500)

		If UO.GetQuantity('finditem') then
			UO.WaitTargetObject('finditem')
			UO.UseObject(Forge) ;forge
		Endif

		UO.FindType('0x1BEF',-1,'backpack')
		If UO.GetQuantity('finditem')<10 then
			UO.FindType('0x1BEF','0x0000',Cont)
			wait(1000)
			UO.Grab('1000','finditem')
		Endif
		wait(1000)
	wend	
	gong(2)
end sub

который можно поправить для твоих нужд так:

Code: Select all

sub bs()
	VAR Exit=0, LastTimer, Forge='0x400C0EE4', Cont='0x4020D789'
	UO.UseObject('0x400BF2CC')
	UO.UseObject(Cont)
	while Exit<>1
		UO.DeleteJournal()
		LastTimer=UO.Timer()
		UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords', 'katana') ;Что куем 
		UO.UseType(0x1BEF) ; iron ings

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

		If UO.InJournal("You have failed") then
			repeat
				wait(100)
			until UO.Timer()>=LastTimer+100 ;time to make a dagger
		EndIf

		UO.FindType('0x13FE',-1,'backpack')
		wait(500)

		If UO.GetQuantity('finditem') then
			UO.WaitTargetObject('finditem')
			UO.UseObject(Forge) ;forge
		Endif

		UO.FindType('0x1BEF',-1,'backpack')
		If UO.GetQuantity('finditem')<10 then
			UO.FindType('0x1BEF','0x0000',Cont)
			wait(1000)
			UO.Grab('990','finditem')
		Endif
		wait(1000)
	wend	
end sub

Наслаждайся

kristalla · Post by **kristalla** » 2005-04-07 14:40:48

Большое спасибо вам. Теперь все работает

Yoko

Подскажите, в чем проблема?

Подскажите, в чем проблема?

Re: Подскажите, в чем проблема?