Yoko

Posted: **2006-06-15 02:06:35**

Предлогаю вашему вниманию мега скрипт на скупку бланков и прокачку Стелса!!! я на нем уже 2 ночь сижу =-) 75.0 стелса и 1к бланк карт =-)

Code: Select all

####################################################################
##################### 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

Ели че не так пишите исправим =-)

Posted: **2006-06-15 05:38:56**

Я неособо придираюсь но опиши свои команды на скупку

Здесь

Code: Select all

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

А это ещё что за строка ,точнее число 39 в этой строке кода

Code: Select all

if uo.InJournal(' 39 ')

Posted: **2006-06-15 10:25:14**

Dominator wrote:Я неособо придираюсь но опиши свои команды на скупку

Здесь
Code: Select all
uo.say(",buy all hyman")  что именно менять , all hyman многие кто в скриптах нерулят непоймут что менять
А это ещё что за строка ,точнее число 39 в этой строке кода
Code: Select all
if uo.InJournal(' 39 ')

1) ,Buy - Команда инжи на скупку
all - имя листа
hyman - продавца

2)Точно ты прав! забыл написать! короче вот новая версия скрипта( с чек лагом)

Code: Select all

####################################################################
##################### 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

ВОТ И ВСЕ!!! поидее теперь все супер!

Yoko

МЕГА СУПЕР ПУПЕР Stealth + SS + скупка бланков + ходилка!

МЕГА СУПЕР ПУПЕР Stealth + SS + скупка бланков + ходилка!