Yoko

All sides of Injection
It is currently 2026-01-18 00:41:31

All times are UTC+02:00




Post new topic  Reply to topic  [ 5 posts ] 
Author Message
 Post subject: ДРВшники!
PostPosted: 2004-11-25 23:53:44 
Offline

Joined: 2004-11-21 01:32:43
Posts: 3
подскажите плиз.
пытаюсь написать такой скрипт:
берем айрон из сундука
делаем браслеты которые кладутся в один из бекпеков в сумке-1 (которая в сундуке) если в бекпеке 255 браслетов то он перекладывается в другую сумку-2 а следущие браслеты идут в новый пустой бекпек сумки-1
короче примерно так
скрипт на перекладывание есть рабочий вот он
sub sort_type(objtype)
var sunduk = "0x4020B06A"; <- iauaeo noiaoea
var bag_sum = "0x402E6B87"; <- aaeiae n ionouie noieaie
var bag_out = "0x402E6B8C"; <- aaiae a eioi?ue aoaoo neeaauaaouny caiieiaiua noiee
var sumka = "0x0E76";
var MpS = 250;
var sum, mt, n, m;
UO.UseObject(sunduk);
wait(1500);
UO.UseObject(bag_sum);
wait(1500);
UO.FindType(sumka, "-1", bag_sum);
if UO.FindCount()==0 then
UO.Print("ERROR! Dobav' sumki!");
UO.Exec("terminate sort_type");
endif
UO.AddObject("sum", "finditem");
UO.UseObject("sum");
wait(2000);
UO.SetReceivingContainer("sum");
repeat
UO.FindType(objtype, "-1", "sum");
m = UO.FindCount();
if m == MpS then
m = 0;
UO.SetReceivingContainer(bag_out);
UO.Grab("-1", "sum");
wait(4000);
UO.FindType(sumka, "-1", bag_sum);
if UO.FindCount()==0 then
UO.Print("ERROR! Dobav' sumki!");
UO.Exec("terminate sort_type");
endif
UO.AddObject("sum", "finditem");
UO.UseObject("sum");
wait(2000);
UO.SetReceivingContainer("sum");
endif
UO.FindType(objtype, "-1", "backpack");
if UO.FindCount() > 0 then
UO.Grab("1", "finditem");
n=UO.Count(objtype);
repeat
wait(200);
until n > UO.Count(objtype);
wait(1000);
endif
until UO.Count(objtype)==0;
UO.UnSetReceivingContainer();
UO.Print("Done!!!");
end sub
а вот далее сделать не удалось


Top
   
 Post subject:
PostPosted: 2004-11-26 18:17:00 
Offline
User avatar

Joined: 2004-10-13 15:06:13
Posts: 31
##################????????#########################################
; Tinker. v.1.00b (c) Edred
;
; ?a? aa?ao ec noiaoea eiaiou, e?aooeo ec ieo aooueee
; e neeaauaaao yoe aooueee a yoio ?a noiaoe.
; Anee eiae caeii?eeenu - auoia.
;
sub tinker()
VAR Sunduk = '0x4026b203' ; Na?eae noiaoea
VAR Ingi = '0x1BEF' ; Oei eiaia
VAR Instrum = '0x1EBC' ; Oei eino?oiaioa oeiea?a
VAR Bottle = '0x4028cfd5'
VAR Kolvo = 255 ; A?aou eiaia
VAR k = 0
VAR BagN = '0x4010b7eb'


uo.unsetcatchbag(bagN)
While TRUE
UO.FindType( Ingi, -1, Sunduk ) ; Euai eiae a noiaoea
If UO.FindCount() == 0 Then
UO.Print("Iron Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 0
; Iiea a iaea anou eiae
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
uo.setcatchbag( BagN )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Tinkering','Jewelry','Jewelry','necklace')
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( Bottle ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'Bottle moved' )
end if
Wend
Wend
end sub

я таким пользуюсь, тока муторно ID менять...


Top
   
 Post subject:
PostPosted: 2004-11-27 00:06:14 
Offline

Joined: 2004-11-21 01:32:43
Posts: 3
всмысле айди менять?


Top
   
 Post subject:
PostPosted: 2004-12-02 01:12:38 
Offline
User avatar

Joined: 2004-11-07 01:22:35
Posts: 291
Location: Черкассы
А вы не пробовали IDшники масивом записать???
Иногда удобно бывает!! :)


Top
   
 Post subject:
PostPosted: 2004-12-02 07:39:49 
Offline
Expert!
User avatar

Joined: 2004-04-04 21:40:09
Posts: 1007
Это что еще за умник сюда серийник впендюрил?!
VAR Bottle = '0x4028cfd5'


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 5 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 13 guests


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