Yoko

All sides of Injection
It is currently 2026-01-19 07:26:08

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 3 posts ] 
  Print view Previous topic | Next topic 
Author Message
Dreik
 Post subject: pomogite so scriptom!
PostPosted: 2005-05-22 00:36:39 
Offline

Joined: 2005-05-09 07:27:56
Posts: 15
vot script...BS

sub BS()
var counter,z,ingcount,gCount,p,CurCOnt,flag=0
dim container[5]
container[0]=0x4004ADBB
container[1]=0x4000697F
container[2]=0x400126E8
container[3]=0x40023F18
container[4]=0x40023F74
container[5]=0x40045F3F
start:
UO.Print("Berem 300 ingov")
UO.Findtype( 0x1BEF, 0x06D6, 0x40030E23 )
UO.Exec( "moveitem finditem 300" )
wait(1000)
while UO.Weight>200
UO.DeleteJournal()
UO.UseType("0x1BEF")
wait(1000)
UO.LClick(480,452)

counter=0
UO.DeleteJournal()
while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60
wait(500)
counter=counter+1
wend
UO.FindType("0x1414" )

UO.moveitem ('finditem' ,1, container[flag])
if flag==5 then
flag=0
endif
if flag==4 then
flag=5
endif
if flag==3 then
flag=4
endif
if flag==2 then
flag=3
endif
if flag==1 then
flag=2
endif
if flag==0 then
flag=1
endif
wend
goto start
end sub
###################################################
sub BucklerSmelting()
repeat
UO.FindType('0x1B73',-1,'backpack')
wait(275)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4001459D) ; ????
Endif

until UO.Dead()
end sub

===============================================
ktonibutj mozet peredelatj etot script tak 6tob, 1 bral ingi, delal 6mot, plavil i potom opatj bral bi ingi do nuzhnogo vesa itd.
Top
   
Reply with quote  
GobliN
 Post subject:
PostPosted: 2005-05-22 01:34:24 
Offline
User avatar

Joined: 2005-05-17 17:02:48
Posts: 10
Попробуи этот
Quote:
sub BS_Айрон_Helmet()
VAR Exit=0, LastTimer
while Exit<>1
UO.FindType('0x1BEF','0x0000','backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType('0x1BEF','0x0000','0x40364638') ;serial sunduka s iron
UO.Grab('500','finditem')
wait(400)
Endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu('Blacksmithing','Shields','Shields','buckler')
UO.UseType(0x1BEF) ; iron ings

while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
wait(550)
wend

If UO.InJournal("You have failed") then
repeat
wait(150)
until UO.Timer()>=LastTimer+100 ;time to make a helm
EndIf

UO.FindType('0x1B73',-1,'backpack') ; helm
wait(500)

If UO.GetQuantity('finditem') then
UO.WaitTargetObject('finditem')
UO.UseObject(0x4032ED47) ;forge
Endif
wait(1000)
wend
end sub

Или тебе сюда
http://yoko.netroof.net/forum/search.php
Top
   
Reply with quote  
Dreik
 Post subject:
PostPosted: 2005-05-22 03:03:33 
Offline

Joined: 2005-05-09 07:27:56
Posts: 15
Spasibo! vso rabotaet! :)
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 3 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