************* ХЕЛП РАШЕН ПАРНИ****************
Posted: 2005-01-10 16:44:53
Приветствую... парни кто гамит на шарде Old Oskom Free нужен срочна скрипт на БС буду очень признателен... помагите кто знает. жду помощи.. 
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
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
Сфаг ...ты думаешь он поймет что это значит ?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
Code: Select all
sub bs()
VAR ingz= '0x000000000'
VAR hammer= '0x00000000'
repeat
........
Не совсем !!!BETEPAH wrote:Сфаг ...ты думаешь он поймет что это значит ?Sfagnum wrote:Toretto wrote:
Поставте что ему сначала нужно забить значения
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 wrote:Ну мона и так ))))))