Yoko
http://forum.yoko.com.ua/

Хелп со скриптом на инскрипт
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9782		 Page 1 of 1
Author:  slonik123 [ 2006-11-21 16:11:22 ]
Post subject:  Хелп со скриптом на инскрипт
Code:
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










я проставляю свои сундуки аидишники и все запускаю скрипт на поизон скролы и у меня закрываеться уо помогите плиз
Author:  slonik123 [ 2006-11-21 16:12:39 ]
Post subject: 
блин 2 раза создалось сори :)
Author:  Scripts Writer [ 2006-11-21 16:50:43 ]
Post subject: 
У тебя инскрипт больше 40?
Author:  slonik123 [ 2006-11-21 17:00:08 ]
Post subject: 
да
Author:  slonik123 [ 2006-11-21 17:00:47 ]
Post subject: 
да тока магии 30:)
Author:  slonik123 [ 2006-11-21 17:07:01 ]
Post subject: 
все я понял в чем фишк спс за подсказку :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/