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

ДРВшники!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2065		 Page 1 of 1
Author:  Sit [ 2004-11-25 23:53:44 ]
Post subject:  ДРВшники!
подскажите плиз.
пытаюсь написать такой скрипт:
берем айрон из сундука
делаем браслеты которые кладутся в один из бекпеков в сумке-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
а вот далее сделать не удалось
Author:  Шмак [ 2004-11-26 18:17:00 ]
Post subject: 
##################????????#########################################
; 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 менять...
Author:  Sit [ 2004-11-27 00:06:14 ]
Post subject: 
всмысле айди менять?
Author:  Goggy [ 2004-12-02 01:12:38 ]
Post subject: 
А вы не пробовали IDшники масивом записать???
Иногда удобно бывает!! :)
Author:  AGRS [ 2004-12-02 07:39:49 ]
Post subject: 
Это что еще за умник сюда серийник впендюрил?!
VAR Bottle = '0x4028cfd5'
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/