Хелп со скриптом на инскрипт

slonik123 · Post by **slonik123** » 2006-11-21 16:11:22

VAR Sunduk1='0x4008B19D' ; ИД сундука с регами и бланками (NS для первого скрипта, BM BP MR для второго, SA SS для третьего) 
VAR Sunduk2='0x40026C0B' ; ИД мешочка с готовыми скролами. 

sub InscriptionPoison() 
var i=0 
uo.cancelmenu() 
uo.automenu('Spell Circles','Third Circle') 
uo.automenu('Spell Circle 3','Poison') 

cheklag() 
uo.useobject(Sunduk1) 
wait(1000) 

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) 
cheklag() 
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) 
cheklag() 
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) 
cheklag() 
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 

sub InscriptionRecall() 
var i=0 
uo.cancelmenu() 
uo.automenu('Spell Circles','Fourth Circle') 
uo.automenu('Spell Circle 4','Recall') 

cheklag() 
uo.useobject(Sunduk1) 
wait(1000) 

while not uo.Dead() 
if uo.skillval("Inscription",1)>=700 Then 
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F4C','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
cheklag() 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F4C','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) 
cheklag() 
UO.Grab('100','finditem') 
wait(1000) 
end if 

UO.FindType('0x0F7B','0x0000','backpack') 
if UO.GetQuantity('finditem')<=5 then 
UO.FindType('0x0F7B','0x0000',Sunduk1) 
wait(200) 
cheklag() 
UO.Grab('100','finditem') 
wait(1000) 
end if 

UO.FindType('0x0F86','0x0000','backpack') 
if UO.GetQuantity('finditem')<=5 then 
UO.FindType('0x0F86','0x0000',Sunduk1) 
wait(200) 
cheklag() 
UO.Grab('100','finditem') 
wait(1000) 
end if 

UO.FindType('0x0F7A','0x0000','backpack') 
if UO.GetQuantity('finditem')<=5 then 
UO.FindType('0x0F7A','0x0000',Sunduk1) 
wait(200) 
cheklag() 
UO.Grab('100','finditem') 
wait(1000) 
end if 

if uo.count('0x0E34','0x0000','backpack')==0 or uo.count('0x0F7B','0x0000','backpack')==0 or uo.count('0x0F86','0x0000','backpack')==0 or uo.count('0x0F7A','0x0000','backpack')==0 Then 
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F4C','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F4C','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('0x1F4C','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
cheklag() 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F4C','0x0000') 
wait(200) 
wend 
UO.UnSetReceivingContainer() 
end if 

wend 
end sub 



sub InscriptionFS() 
var i=0 
uo.cancelmenu() 
uo.automenu('Spell Circles','Seventh Circle') 
uo.automenu('Spell Circle 7','Flamestrike') 

cheklag() 
uo.useobject(Sunduk1) 
wait(1000) 

while not uo.Dead() 
if uo.skillval("Inscription",1)>=1000 Then 
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F5F','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
cheklag() 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F5F','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) 
cheklag() 
UO.Grab('100','finditem') 
wait(1000) 
end if 

UO.FindType('0x0F8C','0x0000','backpack') 
if UO.GetQuantity('finditem')<=5 then 
UO.FindType('0x0F8C','0x0000',Sunduk1) 
wait(200) 
cheklag() 
UO.Grab('100','finditem') 
wait(1000) 
end if 

UO.FindType('0x0F8D','0x0000','backpack') 
if UO.GetQuantity('finditem')<=5 then 
UO.FindType('0x0F8D','0x0000',Sunduk1) 
wait(200) 
cheklag() 
UO.Grab('100','finditem') 
wait(1000) 
end if 

if uo.count('0x0E34','0x0000','backpack')==0 or uo.count('0x0F8C','0x0000','backpack')==0 or uo.count('0x0F8D','0x0000','backpack')==0 Then 
UO.SetReceivingContainer(Sunduk2) 
UO.FindType('0x1F5F','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F5F','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('0x1F5F','0x0000') 
wait(200) 
while UO.FindCount()>0 
wait(200) 
cheklag() 
UO.Grab('0','finditem') 
wait(1000) 
UO.FindType('0x1F5F','0x0000') 
wait(200) 
wend 
UO.UnSetReceivingContainer() 
end if 

wend 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
repeat 
wait(10) 
until uo.InJournal("backpack") 
end sub

я проставляю свои сундуки аидишники и все запускаю скрипт на поизон скролы и у меня закрываеться уо помогите плиз

slonik123 · Post by **slonik123** » 2006-11-21 16:12:39

блин 2 раза создалось сори

Scripts Writer · Post by **Scripts Writer** » 2006-11-21 16:50:43

У тебя инскрипт больше 40?

slonik123 · Post by **slonik123** » 2006-11-21 17:00:08

slonik123 · Post by **slonik123** » 2006-11-21 17:00:47

да тока магии 30:)

slonik123 · Post by **slonik123** » 2006-11-21 17:07:01

все я понял в чем фишк спс за подсказку