ДРВшники!
Posted: 2004-11-25 23:53:44
подскажите плиз.
пытаюсь написать такой скрипт:
берем айрон из сундука
делаем браслеты которые кладутся в один из бекпеков в сумке-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
а вот далее сделать не удалось
пытаюсь написать такой скрипт:
берем айрон из сундука
делаем браслеты которые кладутся в один из бекпеков в сумке-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
а вот далее сделать не удалось