Tinker help!!!

SilverOZ · Post by **SilverOZ** » 2010-01-02 09:29:56

Паивляитса меню, тока он ни тыкаит, пишыт ашыпку - no menu to cancel. Вот мену, вроде всио правилина написал. Памагите исправити ашыпку, штоб скрипт заработал.

#####################################################################
; Tinker. v.1.00b (c) Edred
;
; Чар берет из сундука инготы, крафтит из них бутылки
; и складывает эти бутылки в этот же сундук.
; Если инги закончились - выход.
;
sub tinker()
VAR Sunduk = '0x400470FB' ; Сериал сундука
VAR Ingi = '0x1BF2' ; Тип ингов
VAR Instrum = '0x1EBC' ; Тип инструмента тинкера
VAR Bottle = '0x100E' ; Тип бутылки
VAR Kolvo = 200 ; Брать ингов
VAR k = 0
While TRUE
UO.FindType( Ingi, -1, Sunduk ) ; Ищем инги в сундуке
If UO.FindCount() == 0 Then
UO.Print("Copper Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 0
; Пока в паке есть инги
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Tinkering', 'Keys', 'Keys', 'copper key' )
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Bottle ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0,'ground')
wait( 1000 )
UO.Print( 'Bottle moved' )
end if
Wend
Wend
end sub

SilverOZ · Post by **SilverOZ** » 2010-01-02 10:36:57

Што никто низнаит как ришыти ету праблему?

Mirage · Post by **Mirage** » 2010-01-02 12:56:40

Code: Select all

sub tinker()
VAR Sunduk = '0x400470FB' ; Сериал сундука
VAR Ingi = '0x1BF2' ; Тип ингов
VAR Instrum = '0x1EBC' ; Тип инструмента тинкера
VAR Bottle = '0x100E' ; Тип КЛЮЧА
VAR Kolvo = 200 ; Брать ингов
VAR k = 0
UO.CancelMenu()
While TRUE
	UO.FindType( Ingi, -1, Sunduk ) ; Ищем инги в сундуке
	If UO.FindCount() == 0 Then
		UO.Print("Copper Ingots not found, script terminated")
		return
	Endif
	UO.Grab( Str( Kolvo ), 'finditem' )
	wait( 2000 )
	While UO.Count( Ingi ) > 0
		; Пока в паке есть инги
		UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
		UO.DeleteJournal()
		;UO.CancelMenu()
		UO.WaitMenu ('Tinkering', 'Keys', 'Keys', 'copper key' )
		UO.UseType( Instrum )
		k = 0
		while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
			k = k + 1
			wait(500)
		wend
		if UO.Count( Bottle ) > 0 then
			UO.FindType( Bottle, -1, -1 )
			UO.MoveItem( 'finditem', 0,'ground') ; скидываешь на ЗЕМЛЮ?!?!?
			wait( 1000 )
			UO.Print( 'Key moved' )
		end if
	Wend
Wend
end sub

SilverOZ · Post by **SilverOZ** » 2010-01-02 13:08:50

Да на землю, он выдиот ашыпку на меню

Mirage · Post by **Mirage** » 2010-01-02 13:59:00

даже поправленный?

у тебя на скрине ключ сделался и скинулся.

SilverOZ · Post by **SilverOZ** » 2010-01-02 14:04:58

Шяс тестану

SilverOZ · Post by **SilverOZ** » 2010-01-02 15:34:13

всиоранво ни работаит

CuHTpoH · Post by **CuHTpoH** » 2010-01-02 17:23:44

пара-тройка филологов в очередной раз перевернулась в гробу..

GAUHAR · Post by **GAUHAR** » 2010-01-02 18:56:58

CuHTpoH wrote:пара-тройка филологов в очередной раз перевернулась в гробу..

Что там филологи. Тут у живых мозг снесло.
В тему:

Code: Select all

Президент России Дмитрий Медведев надеется, что власти Молдавии не будут препятствовать употреблению русского языка в своей стране и искусственно сужать русскоязычное пространство, что может привести к нарушению механизма общения между народами. Об этом он заявил в ходе своего выступления на Форуме европейских и азиатских медиа, проходящего 9 декабря в Москве.

SilverOZ · Post by **SilverOZ** » 2010-01-03 12:39:06

Вы лучише аставите палитику, унас палучяитса как увас, с чюрками, тока у нас рускими, правда ни так жостка, проста многа из руских унас, сфини каторыи ни уважают страну в каторыи жывут.

В мне памагите са скриптом лучише

GAUHAR · Post by **GAUHAR** » 2010-01-03 17:30:18

Проверь меню крафта, мне кажется должно быть так:

Code: Select all

UO.WaitMenu ('Keys', 'copper key')

так же исправь

Code: Select all

While UO.Count(Ingi) > 0

на

Code: Select all

While UO.Count(Ingi) >= 3

так как цикл должен работать пока есть инги на крафт хотя бы одного предмета, а не пока инги есть в паке.

Mirage · Post by **Mirage** » 2010-01-03 21:18:13

зачем 3? для ключа обычно 1 требуется. Если ингов не будет соскочит на доборку. Так на всякий случай страхануться можно но не критично имхо.

GAUHAR · Post by **GAUHAR** » 2010-01-03 22:11:05

В том то и дело что нужно 3 copper ingots, поэтому критично.
(в первом посте прилеплена картинка)

SilverOZ · Post by **SilverOZ** » 2010-01-04 01:17:49

Благадарю вам парни за помаши, всио работаит, за грамтности я извиняюси

Mirage · Post by **Mirage** » 2010-01-04 08:49:34

GAUHAR wrote:В том то и дело что нужно 3 copper ingots, поэтому критично.
(в первом посте прилеплена картинка)

а да сори

У меня просто из 1 иyunf ключи делаются

Scripts Writer · Post by **Scripts Writer** » 2010-01-08 12:06:23

Доминария жива?!

Блин, а ведь я на ней около года или двух провёл, и MustDie'я вижу периодически. Вижу что да

Только вот что-то стареньких никого толком нету =\ Акки сохранились, администрация новая?

brs@pisem.net Ваш аккаунт на Dominaria Shard 18 апр 2005