inscription на реколы

[ViSerT]

Вот этот скрипт на inscripting, но он делает Magic arrow как его переделать на реколы?

#####################################################################
; Inscription. v.1.04b (c) Edred
;
; Берем из сундука blank scroll, nightshade, black pearl,
; крафтим из них скролл Magic Arrow (с повторами в случае физлов),
; потом скидываем готовый скролл в тот же сундук.
; Если что-либо кончилось - выход.

sub inscript()
VAR Sunduk = '0x40140DD1' ; Сериал сундука с бланкскроллами и регами
VAR Blank = '0x0E34' ; Тип бланк скролла
VAR Arrow = '0x1F32' ; Тип скроллов Magic Arrow
VAR Reg1 = '0x0F88' ; найтшэд
VAR Reg2 = '0x0F7A' ; блэкперл
VAR Fizzle = 'You fail to inscribe the scroll'
VAR Success = 'You put the'
VAR k
; UO.SetGlobal( 'TimeProcess', str( UO.Timer() ) )
UO.CancelMenu()
UO.AutoMenu( 'Spell Circles', 'First Circle' )
UO.AutoMenu( 'Spell Circle 1', 'Magic Arrow' )
UO.UseObject( Sunduk )
wait(1000)
While UO.SkillVal( 'Inscription' ) < 1000
; берем бланк скроллы
; EatChar( Sunduk, 2, 1, 60 )
If UO.Count( Blank ) == 0 Then
UO.FindType( Blank, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print( 'Blank Scroll not found. Script terminated' )
return
Endif
If UO.GetQuantity( 'finditem' ) < 100 Then
UO.Grab( '0', 'finditem' )
repeat
wait(100)
until UO.Count( Blank ) > 0
CheckLag()
Else
UO.Grab( '100', 'finditem' )
repeat
wait(100)
until UO.Count( Blank ) == 100
CheckLag()
Endif
Endif
; берем найтшэд
If UO.Count( Reg1 ) == 0 Then
UO.FindType( Reg1, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print( 'Nightshade not found. Script terminated' )
return
Endif
If UO.GetQuantity( 'finditem' ) < 100 Then
UO.Grab( '0', 'finditem' )
repeat
wait(100)
until UO.Count( Reg1 ) > 0
CheckLag()
Else
UO.Grab( '100', 'finditem' )
repeat
wait(100)
until UO.Count( Reg1 ) == 100
CheckLag()
Endif
Endif
; берем блэкперл
If UO.Count( Reg2 ) == 0 Then
UO.FindType( Reg2, -1, Sunduk )
If UO.FindCount() == 0 Then
UO.Print( 'Black Pearls not found. Script terminated' )
return
Endif
If UO.GetQuantity( 'finditem' ) < 100 Then
UO.Grab( '0', 'finditem' )
repeat
wait(100)
until UO.Count( Reg2 ) > 0
CheckLag()
Else
UO.Grab( '100', 'finditem' )
repeat
wait(100)
until UO.Count( Reg2 ) == 100
CheckLag()
Endif
Endif
repeat
DeleteJournal( Fizzle )
DeleteJournal( Success )
UO.UseType( Blank )
k = 0
repeat
k = k + 1
wait(100)
until UO.InJournal(Fizzle) OR UO.InJournal(Success) OR UO.Count(Blank) == 0 OR UO.Count(Reg1) == 0 OR UO.Count(Reg2) == 0 OR k > 600
If UO.Mana < 10 Then
repeat
UO.UseSkill( 'Meditation' )
wait(2000)
until UO.Mana == UO.Int
Endif
Until UO.Count( Blank ) == 0 OR UO.Count( Reg1 ) == 0 OR UO.Count( Reg2 ) == 0
While UO.Count( Arrow ) > 0
UO.FindType( Arrow )
If UO.FindCount() > 0 Then
UO.MoveItem( 'finditem', 0, Sunduk )
wait(1000)
CheckLag()
Endif
Wend
Wend
UO.CancelMenu()
endsub

#####################################################################
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
return
end sub

#####################################################################
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, 'string replaced' )
DeleteJournal( string1 )
Endif
endsub

[Grin]

Code: Select all

UO.AutoMenu( 'Spell Circles', 'Fourth Circle' ) 
UO.AutoMenu( 'Spell Circle 4', 'Recall' )

[LordTom]

Старый Ну например РБ на жидком водороде. Нагрев водорода за счёт энергии передаваемой лазерным лучём с орбитальной солнечной электростанции. Или что-нибудь в этом духе. Уау! Старый, говорящий пр

[agem]

Шутишь?

а) У тебя в обоих автоменю первая часть одинаковая. Я, конечно, не тестил, но что-то сомневаюсь, что инжект будет различать "первое" автоменю и "второе".

б) Возможно, в случае реколлов это будет срабатывать всегда, но с другими спеллами - если у тебя нет каких-то регов, то номер того спелла, который ты хочешь инскриптить, может быть другим. А еще круги магии тоже могут сдвигаться.

[LordTom]

Фрэнк почувствовал, что его не держат ноги, он падал. Его будто насильно вырвали из сна, из самых сладких и прекрасных грёз. А чудовище стоит и жадно вдыхает воздух, пока человек сидит на пол
Фрэнк почувствовал, что его не держат ноги, он падал. Его будто насильно вырвали из сна, из самых сладких и прекрасных грёз. А чудовище стоит и жадно вдыхает воздух, пока человек сидит на пол

[agem]

Про пункт а) - не знал. В пункте б) - на ДРВ точно порядок спеллов меняется (точнее, если у тебя нет реагентов на один из спеллов, он просто не появляется в меню, и тот выбор, который раньше был восьмым, становится седьмым, и т. п.).

[ViSerT]

я на ДРВ играю, как тогда переделать?

[LordTom]

Скажи мне, какой у тебя телефон, и я скажу, кто ты Выбор мобильного телефона - вещь серьезная, к тому же, оказывается, может многое рассказать, ведь определенные марки выбираются не просто так, пиш
Скажи мне, какой у тебя телефон, и я скажу, кто ты Выбор мобильного телефона - вещь серьезная, к тому же, оказывается, может многое рассказать, ведь определенные марки выбираются не просто так, пиш

[ViSerT]

Все вроде нормально но он постоянно вылетает после World Saving чего сделать то ему???

[Grin]

Убери отовсюду упоменания и операции с K

[LordTom]

По просьбам трудящихся(Stillman просил) : Состав группы Korn: Jonathan HIV Houseman Davis - вокал, волынки Reginald Fieldy Arvizu - бас-гитара Brian Phillipe Head
Slim, ну ты такой тупой, нет вот правда. КТО сравнивал Пепперс с Корнём? Я? Ты тупой! Я тебе раз написал, два написал, что я сравниваю БАС, а не МУЗЫКУ, тебе всё пофигу Вокалист Корна л

[Grin]

чем тебе чеклаг не угодил???

[ViSerT]

Тем что я не знаю что такое чек лаг....

[fathermahno]

а почему он скролы готовые по 2 штуки складывает а не в одну кучу.
и как в пэке заканчиваеться то ошибку выдает "Unhandlied exception in parser" ))=

[Mirage]

ребят ен проще ПОЛНОСТЬЮ + САМИМ переделать или найти готовый чем старье тягать и частично его переделывать?.

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

[fathermahno]

спасибо большое.

Зы а то что новое я нашел оно вообще не работает )=