Page 1 of 1
Странный инскрипт!!!
Posted: 2009-10-21 19:27:18
by Arieza
Ребят помогите пожалуйста!!! Я не могу понять что не так, вроде должно все работать правильно! Но... После того как остается мало маны ( что нельзя сделать свиток) Персонаж просто стоит и не начинаем мидитировать
помогите пожалуйста
VAR Sunduk1='0x40104A69'
VAR Sunduk2='0x4173C78B'
sub InscriptionPoison()
var i=0
uo.cancelmenu()
uo.automenu('Spell Circles','Circle 3')
uo.automenu('Spell Circle 3','Poison')
while not uo.Dead()
if uo.skillval("Inscription",1)>=400 Then
UO.SetReceivingContainer(Sunduk2)
UO.FindType('0x1F40','0x0000')
wait(200)
while UO.FindCount()>0
wait(200)
UO.Grab('0','finditem')
wait(1000)
UO.FindType('0x1F40','0x0000')
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if
i=i+1
if i==50 then
i=1
uo.usetype('0x097B')
wait(1000)
endif
UO.FindType('0x0E34','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0E34','0x0000',Sunduk1)
wait(200)
UO.Grab('100','finditem')
wait(1000)
end if
UO.FindType('0x0F88','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F88','0x0000',Sunduk1)
wait(200)
UO.Grab('100','finditem')
wait(1000)
end if
if uo.count('0x0F88','0x0000','backpack')==0 or uo.count('0x0E34','0x0000','backpack')==0 Then
UO.SetReceivingContainer(Sunduk2)
UO.FindType('0x1F40','0x0000')
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem')
wait(1000)
UO.FindType('0x1F40','0x0000')
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if
uo.usetype('0x0E34')
UO.DeleteJournal()
repeat
wait(100)
until UO.InJournal('You put the') OR UO.InJournal('You fail')
if uo.weight >= uo.str*3 then
UO.SetReceivingContainer(Sunduk2)
UO.FindType('0x1F40','0x0000')
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem')
wait(1000)
UO.FindType('0x1F40','0x0000')
wait(200)
wend
UO.UnSetReceivingContainer()
end if
wend
end sub
Posted: 2009-10-22 19:48:05
by Arieza
Ребят ну помогите пожалуйста
Posted: 2009-10-22 20:11:25
by Scripts Writer
Code: Select all
uo.usetype('0x0E34')
UO.DeleteJournal()
repeat
wait(100)
until UO.InJournal('You put the') OR UO.InJournal('You fail')
Сюда перед использованием бланка надо добавить проверку маны и медитацию если её меньше требуемого кол-ва.
Posted: 2009-10-23 13:04:56
by Scripts Writer
Code: Select all
sub toeat()
Var Sunduk='0x41125C98'
uo.findtype('0x103B',-1,Sunduk)
if uo.findcount() then
uo.moveitem('finditem','50','backpack')
wait(600)
uo.deletejournal()
repeat
uo.usetype('0x103B')
wait(400)
until uo.injournal('full to eat')
endif
uo.findtype('0x103B',-1,'backpack')
if uo.findcount() then
uo.moveitem('finditem',0,Sunduk)
wait(600)
endif
endsub
VAR Sunduk1='0x40104A69'
VAR Sunduk2='0x4173C78B'
sub InscriptionPoison()
var i=0
var k=0
uo.cancelmenu()
uo.automenu('Spell Circles','Circle 3')
uo.automenu('Spell Circle 3','Poison')
while not uo.Dead()
if uo.skillval("Inscription",1)>=400 Then
UO.SetReceivingContainer(Sunduk2)
UO.FindType('0x1F40','0x0000')
wait(200)
while UO.FindCount()>0
wait(200)
UO.Grab('0','finditem')
wait(1000)
UO.FindType('0x1F40','0x0000')
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if
i=i+1
if i==50 then
i=1
uo.usetype('0x097B')
wait(1000)
endif
UO.FindType('0x0E34','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0E34','0x0000',Sunduk1)
wait(200)
UO.Grab('100','finditem')
wait(1000)
end if
UO.FindType('0x0F88','0x0000','backpack')
if UO.GetQuantity('finditem')<=5 then
UO.FindType('0x0F88','0x0000',Sunduk1)
wait(200)
UO.Grab('100','finditem')
wait(1000)
end if
if uo.count('0x0F88','0x0000','backpack')==0 or uo.count('0x0E34','0x0000','backpack')==0 Then
UO.SetReceivingContainer(Sunduk2)
UO.FindType('0x1F40','0x0000')
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem')
wait(1000)
UO.FindType('0x1F40','0x0000')
wait(200)
wend
UO.UnSetReceivingContainer()
uo.closeuo()
end if
if uo.mana < 9 then
repeat
uo.DeleteJournal()
uo.UseSkill('Meditation')
repeat
uo.Print('Meditation is in active...')
wait(1000)
until uo.Mana == uo.Int or uo.InJournal('lose your concentration')
until uo.Mana == uo.Int
end if
uo.usetype('0x0E34')
UO.DeleteJournal()
repeat
wait(100)
until UO.InJournal('You put the') OR UO.InJournal('You fail')
k = k + 1
if k>150 then
k = 0
toeat()
endif
if uo.weight >= uo.str*3 then
UO.SetReceivingContainer(Sunduk2)
UO.FindType('0x1F40','0x0000')
wait(200)
while UO.FindCount()>0
wait(200)
cheklag()
UO.Grab('0','finditem')
wait(1000)
UO.FindType('0x1F40','0x0000')
wait(200)
wend
UO.UnSetReceivingContainer()
end if
wend
end sub