Yoko

####################################################################
##################### DRW ##########################################
####################################################################
###### Мега супер Стелс + покупка блаков + спирит спик #############
####################################################################
################## v 1.0 SE ########################################
####################################################################
################ UNHOLY ############################################
####################################################################
var a = 0
################### идем вверх ##########
sub go1()
repeat
UO.DeleteJournal()
uo.press(38)
wait(500)
a = a+1
if uo.InJournal('You have been') then
ToHid()
end if
until a==10
end sub


############### идем в низ ##############
sub go2()
repeat
UO.DeleteJournal()
uo.press(40)
wait(500)
a = a-1
if uo.InJournal('You have been') then
ToHid()
end if
until a==0
end sub


############# спирит спик ################
Sub SS()
uo.useskill('Spirit Speak')
wait(3000)
end sub


#################### защита от КРЫС! #####
sub deng()
if UO.life<uo.str then  
uo.say ('Guards помогите!!! Хулиганы девственности лишают!!!') ; ету фразу можно поменять на просто guards, но мне так больше нравитца =-) 
end if
end sub


############## уход в хайд ##############
sub toHid()
UO.DeleteJournal()
repeat
uo.useskill('Stealth')
uo.say(",buy all hyman") ; Тут нужно поменять имя продавца (у которого покупаем бланки(или еще что-то))
deng()
wait(2800)
if uo.InJournal(' 39 ')then
SS()
end if
until uo.InJournal('You have hidden')
end Sub

sub main()
var i
Repeat
for i = 1 to 8
toHid()
go1()
toHid()
go2()
next 
ss()
until 1==0
end sub

uo.say(",buy all hyman")  что именно менять , all hyman многие кто в скриптах нерулят непоймут что менять

if uo.InJournal(' 39 ')

uo.say(",buy all hyman")  что именно менять , all hyman многие кто в скриптах нерулят непоймут что менять

if uo.InJournal(' 39 ')

####################################################################
##################### DRW ##########################################
####################################################################
###### Мега супер Стелс + покупка блаков + спирит спик #############
####################################################################
################## v 1.0b SE ########################################
####################################################################
################ UNHOLY ############################################
####################################################################
var a = 0
################### идем вверх ##########
sub go1()
repeat
CheckLag()
uo.press(38)
wait(500)
a = a+1
if uo.InJournal('You have been') then
ToHid()
end if
until a==10
end sub


############### идем в низ ##############
sub go2()
repeat
CheckLag()
uo.press(40)
wait(500)
a = a-1
if uo.InJournal('You have been') then
ToHid()
end if
until a==0
end sub


############# спирит спик ################
Sub SS()
uo.useskill('Spirit Speak')
wait(3000)
end sub


#################### защита от КРЫС! #####
sub deng()
if UO.life<uo.str then  
uo.say ('Guards помогите!!! Хулиганы девственности лишают!!!') ; ету фразу можно поменять на просто guards, но мне так больше нравитца =-) 
end if
end sub


############## уход в хайд ##############
sub toHid()
repeat
CheckLag()
uo.useskill('Stealth')
uo.say(",buy all hyman") ; Тут нужно поменять имя листа покупок (сейчас ALL) и имя продавца (сейчас hyman) 
deng()
wait(2800)
until uo.InJournal('You have hidden')
end Sub

sub main()
var i
Repeat
for i = 0 to 8
toHid()
go1()
toHid()
go2()
next 
ss()
until 1==0
end sub

sub CheckLag()
IF UO.Waiting() > 0 THEN
UO.Exec("canceltarget")
END IF
UO.DeleteJournal()
UO.Click('backpack')
REPEAT
WAIT(50)
UNTIL UO.InJournal('backpack')
end sub