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

Anything and all.

Moderators: Murderator+, Murderator

Locked
slonik123
Posts: 21
Joined: 2006-09-08 10:16:01

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

Post by slonik123 »

Code: Select all

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










я проставляю свои сундуки аидишники и все запускаю скрипт на поизон скролы и у меня закрываеться уо помогите плиз
Top
slonik123
Posts: 21
Joined: 2006-09-08 10:16:01

Post by slonik123 »

блин 2 раза создалось сори :)
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

У тебя инскрипт больше 40?
Top
slonik123
Posts: 21
Joined: 2006-09-08 10:16:01

Post by slonik123 »

да
Top
slonik123
Posts: 21
Joined: 2006-09-08 10:16:01

Post by slonik123 »

да тока магии 30:)
Top
slonik123
Posts: 21
Joined: 2006-09-08 10:16:01

Post by slonik123 »

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

Return to “Scripting Ore”