************* ХЕЛП РАШЕН ПАРНИ****************

[inter]

Приветствую... парни кто гамит на шарде Old Oskom Free нужен срочна скрипт на БС буду очень признателен... помагите кто знает. жду помощи..

[Toretto]

sub bs()
repeat
UO.Exec ("waitmenu 'Blacksmithing''Weapons''Weapons''Swords & blades''Swords & Blades''katana'")
UO.Exec ("useobject 'hammer'")
UO.Exec ("waittargetobject 'ingz'")
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You have failed"))
wait(300)
wend
until UO.Dead()
end sub

[Sfagnum]

sub bs()
repeat
UO.Exec ("waitmenu 'Blacksmithing''Weapons''Weapons''Swords & blades''Swords & Blades''katana'")
UO.Exec ("waittargetobject 'ingz'")
UO.Exec ("useobject 'hammer'")
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You have failed"))
wait(300)
wend
until UO.Dead()
end sub

[BETEPAH]

sub bs()
repeat
UO.Exec ("waitmenu 'Blacksmithing''Weapons''Weapons''Swords & blades''Swords & Blades''katana'")
UO.Exec ("waittargetobject 'ingz'")
UO.Exec ("useobject 'hammer'")
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You have failed"))
wait(300)
wend
until UO.Dead()
end sub

Сфаг ...ты думаешь он поймет что это значит ?

Поставте что ему сначала нужно забить значения

ingz и hammer

VAR ingz= '0x00000000' - Айди ингов
VAR hammer= '0x00000000' - Айди молотка

вставить все это в самом начале

Code: Select all

sub bs()  
VAR  ingz= '0x000000000'      
VAR  hammer= '0x00000000'
repeat
........

Вроде так

[Askaneli]

sub bs()
repeat
UO.Exec ("waitmenu 'Blacksmithing''Weapons''Weapons''Swords & blades''Swords & Blades''katana'")
UO.Exec ("waittargetobject 'ingz'")
UO.Exec ("useobject 'hammer'")
wait (1000)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You have failed"))
wait(300)
wend
until UO.Dead()
end sub

Сфаг ...ты думаешь он поймет что это значит ?

Поставте что ему сначала нужно забить значения

ingz и hammer

VAR ingz= '0x00000000' - Айди ингов
VAR hammer= '0x00000000' - Айди молотка

вставить все это в самом начале

Code: Select all

sub bs()  
VAR  ingz= '0x000000000'      
VAR  hammer= '0x00000000'
repeat
........

Вроде так

Не совсем !!!

Code: Select all

UO.Exec ("waittargettype 'тип инготов'")
UO.Exec ("usetype 'тип молотка'")

Как мне подсказывает интуиция ИД меняется
Или просто

Code: Select all

UO.Exec ("usetype 'тип инготов'")

[BETEPAH]

Ну мона и так ))))))

[Askaneli]

Ну мона и так ))))))

Всё просто !!!

[inter]

Спасибо всем ! за помашь!!!