Yoko

Posted: **2009-10-21 19:27:18**

Ребят помогите пожалуйста!!! Я не могу понять что не так, вроде должно все работать правильно! Но... После того как остается мало маны ( что нельзя сделать свиток) Персонаж просто стоит и не начинаем мидитировать

помогите пожалуйста

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

Ребят ну помогите пожалуйста

Posted: **2009-10-22 20:11:25**

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

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

Yoko

Странный инскрипт!!!

Странный инскрипт!!!