хелп....скрипт не работает
Posted: 2005-08-20 11:06:22
помогите со скриптом на скупку....я сам в них не шарю....мне дали этот скрипт и сказали тока идентификаторы забить, что я и сделал.
када запускаю выскакивает такая ошибка: line21: Variable undefined: MAXWEIGHT...
хелп плиз, или дайте ктонить другой скриптик
[Используй теги. Leo]
када запускаю выскакивает такая ошибка: line21: Variable undefined: MAXWEIGHT...
хелп плиз, или дайте ктонить другой скриптик
Code: Select all
sub main()
DIM rune[3]
DIM ven[3]
rune[1]='0x401029C6' ; Сюда вносятся ID рун к вендорам
rune[2]='0x400A7747' ; 6 штук, можно сколько угодно
rune[3]='0x401026C0' ; просто все шестерки в скрипте
;rune[4]='0x40102782' ; заменяются на нужную цифру
;rune[5]='0x401028C5' ;
;rune[6]='0x40102924' ;
ven[1]='0x0038C4C5' ; ID вендоров у которых скупаются реги
ven[2]='0x0036C6B5' ;
ven[3]='0x001665B2' ;
;ven[4]='0x0024591D'
;ven[5]='0x002CA47B'
;ven[6]='0x00075AAD'
UO.Set('buydelay','2000')
while UO.notdead()
If MaxWeight<UO.Weight+VesPrirost Then
Domoy()
Magazin()
Endif
i=i+1
recall(i,rune)
If UO.InJournal("fade") Then
Mark(i,rune)
wait(500)
UO.DeleteJournal()
endif
UO.Set('buydelay','2000')
wait(50)
UO.buy('sp',ven[i])
wait(1000)
UO.DeleteJournal()
if i=2 then
i=0
endif
wend
end sub
#####################################
sub Recall(i,rune)
repeat
med()
uo.WaitTargetObject(rune[i])
uo.Exec('warmode 0')
uo.Cast('Recall')
wait(3000)
until not uo.InJournal('spell fizzles')
end sub
#####################################
sub Mark(i,rune)
repeat
med()
uo.WaitTargetObject(rune[i])
uo.Exec('warmode 0')
uo.Cast('Mark')
wait(3000)
until not uo.InJournal('spell fizzles')
end sub
######################################
sub med()
VAR LastTimer
while UO.Mana<UO.Int
LastTimer=UO.Timer()
UO.UseSkill('Meditation')
repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200
UO.DeleteJournal()
wait(200)
wend
end sub
##############################
sub Domoy()
VAR Dom="0x401C48B2" ; Id runy k sunduku
VAR Sunduk="0x4029B854" ; Id sunduka kuda kidat` tkan`
UO.DeleteJournal()
medicMax()
UO.Cast('Recall',Dom)
wait(4000)
If UO.InJournal("fade") Then
medicMax()
UO.DeleteJournal()
UO.Cast('Mark',Dom)
wait(5000)
Endif
UO.FindType('0x0F88',-1,'backpack') ; NightShade
wait(1000)
UO.MoveItem('finditem',0,Sunduk)
wait(1000)
UO.FindType('0x0F88',-1,'backpack') ; balls of yarn
wait(1000)
UO.MoveItem('finditem',0,Sunduk)
wait(1000)
UO.FindType('0x0F87',-1,'backpack') ; EyesOfNewt
wait(1000)
UO.MoveItem('finditem',0,Sunduk)
wait(1000)
UO.FindType('0x0E34',-1,'backpack') ; BlankScroll
wait(1000)
UO.MoveItem('finditem',0,Sunduk)
wait(1000)
end sub