Yoko

All sides of Injection
It is currently 2025-12-03 02:53:03

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  This topic is locked, you cannot edit posts or make further replies.  Page 1 of 1
  [ 6 posts ] 
  Print view Previous topic | Next topic 
Author Message
slonik123
PostPosted: 2006-11-21 16:11:22 
Offline

Joined: 2006-09-08 10:16:01
Posts: 21
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










я проставляю свои сундуки аидишники и все запускаю скрипт на поизон скролы и у меня закрываеться уо помогите плиз
Top
   
 
slonik123
 Post subject:
PostPosted: 2006-11-21 16:12:39 
Offline

Joined: 2006-09-08 10:16:01
Posts: 21
блин 2 раза создалось сори :)
Top
   
 
Scripts Writer
 Post subject:
PostPosted: 2006-11-21 16:50:43 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
У тебя инскрипт больше 40?
Top
   
 
slonik123
 Post subject:
PostPosted: 2006-11-21 17:00:08 
Offline

Joined: 2006-09-08 10:16:01
Posts: 21
да
Top
   
 
slonik123
 Post subject:
PostPosted: 2006-11-21 17:00:47 
Offline

Joined: 2006-09-08 10:16:01
Posts: 21
да тока магии 30:)
Top
   
 
slonik123
 Post subject:
PostPosted: 2006-11-21 17:07:01 
Offline

Joined: 2006-09-08 10:16:01
Posts: 21
все я понял в чем фишк спс за подсказку :D
Top
   
 
Display posts from previous:  Sort by  
Post new topic  This topic is locked, you cannot edit posts or make further replies.  Page 1 of 1
  [ 6 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 1 guest

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited