Помогите с БС (переделка скрипта под цвет.мет)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
t00k
Posts: 5
Joined: 2006-02-03 09:56:28

Помогите с БС (переделка скрипта под цвет.мет)

Post by t00k »

Вот переделал скрипт для БС, который ковал даггеры из айрона под цвет мет (расти). Но не работает. вылезает менюшка Blacksmithing и всё. никаких дальше действий не происходит... помогите найти проблему!

sub BS()
var ixx, ironbag, color, forg
ironbag = "0x40412F10"
color = "0x0750"
forg = "0x404820D6"

uo.cancelmenu()
;UO.automenu('Blacksmithing','Colored Armor & Weapons')
;UO.automenu('Colored Armor & Weapons','Rusty Weapons')
;UO.automenu('Rusty Weapons','Rusty Swords & Blades')
;UO.automenu('Rusty Swords & Blades','Rusty Dagger')


repeat
UO.FindType("0x1BEF", color, "my")
If UO.GetQuantity('finditem')<10 then
uo.Print("NET IRON'a")
uo.Print("BERU ESHE...")
UO.FindType("0x1BEF", color, ironbag)
if uo.FindCount() then
uo.moveitem("finditem", "500")
wait(3000)
else
uo.Print("IRON konetc")
GoTo ExitF
endif
endif

UO.DeleteJournal()
UO.UseObject("finditem")
ixx = 0
while not (UO.InJournal("You put") or UO.InJournal("You have failed")) or (ixx<=50)
wait(100)
ixx = ixx + 1
wend

if UO.InJournal("You put") then
UO.FindType("0x0F51", color, "my")
if uo.FindCount() then
UO.DeleteJournal()
UO.WaitTargetObject("finditem")
UO.UseObject(forg)
ixx = 0
while not UO.InJournal("You put") and not UO.InJournal("It is") and ixx <= 50
wait(100)
ixx = ixx + 1
wend
wait(500)
endif
endif
until FALSE
ExitF:
UO.Print("*** The end ***")
end sub
Solaire
Posts: 163
Joined: 2005-05-21 07:12:12
Location: DRW

Re: Помогите с БС (переделка скрипта под цвет.мет)

Post by Solaire »

t00k wrote:Вот переделал скрипт для БС, который ковал даггеры из айрона под цвет мет (расти). Но не работает. вылезает менюшка Blacksmithing и всё. никаких дальше действий не происходит... помогите найти проблему!


Замени эту строчку

Code: Select all

while not (UO.InJournal("You put") or UO.InJournal("You have failed")) or (ixx<=50)

на эту:

Code: Select all

 while not UO.InJournal("You put") and not UO.InJournal("You have failed") and ixx<=50 
t00k
Posts: 5
Joined: 2006-02-03 09:56:28

Post by t00k »

не помогло :(
он грубо говоря в менюшке пункты не выбирает! т.е ковать то он сковал бы, и даже потом поплавил, но вот что ковать он сам выбрать не может... мистика?
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Так ты же меню выключил тупо!
t00k
Posts: 5
Joined: 2006-02-03 09:56:28

Post by t00k »

Savage wrote:Так ты же меню выключил тупо!

хммм.... я просто не слишком хорошо разбираюсь в скриптах, есесно этот писал не я... Подскажешь как включить его назад? С айроном всё работало....
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:

Post by Savage »

Solaire
Posts: 163
Joined: 2005-05-21 07:12:12
Location: DRW

Post by Solaire »

t00k wrote:
Savage wrote:Так ты же меню выключил тупо!

хммм.... я просто не слишком хорошо разбираюсь в скриптах, есесно этот писал не я... Подскажешь как включить его назад? С айроном всё работало....

Раскомментируй автоменю в начале скрипта. :) (точки с запятыми убери).
Post Reply