Page 1 of 1
************* ХЕЛП РАШЕН ПАРНИ****************
Posted: 2005-01-10 16:44:53
by inter
Приветствую... парни кто гамит на шарде Old Oskom Free нужен срочна скрипт на БС буду очень признателен... помагите кто знает. жду помощи..
Re: ************* ХЕЛП РАШЕН ПАРНИ****************
Posted: 2005-01-11 14:04:06
by 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
Re: ************* ХЕЛП РАШЕН ПАРНИ****************
Posted: 2005-01-11 15:29:10
by Sfagnum
Toretto wrote: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
Re: ************* ХЕЛП РАШЕН ПАРНИ****************
Posted: 2005-01-11 16:03:57
by BETEPAH
Sfagnum wrote:Toretto wrote: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
........
Вроде так
Re: ************* ХЕЛП РАШЕН ПАРНИ****************
Posted: 2005-01-11 16:17:30
by Askaneli
BETEPAH wrote:Sfagnum wrote:Toretto wrote: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 'тип молотка'")
Как мне подсказывает интуиция ИД меняется
Или просто
Posted: 2005-01-11 16:19:15
by BETEPAH
Ну мона и так ))))))
Posted: 2005-01-11 16:24:25
by Askaneli
BETEPAH wrote:Ну мона и так ))))))
Всё просто !!!
Posted: 2005-01-11 17:19:29
by inter
Спасибо всем ! за помашь!!!
