Stealth Client Forum

Code: Select all

if (bodid = ti[0]) or (bodid = ti[1]) or (bodid = ti[2]) or (bodid = ti[3]) or (bodid = ti[4]) or (bodid = ti[5]) then

Code: Select all

for i := 0 to 5
  if (bodid = ti[i]) then

Code: Select all

begin
 inittibsi;
 bobfilter(findtype($2259,backpack),'all','all','tailoring','all'); 
 terminate := false;
 while terminate = false do
 begin
  save;
  bodid := getgi;
  if count($2258) > 0 then
   if (bodid = ti[0]) or (bodid = ti[1]) or (bodid = ti[2]) or (bodid = ti[3]) or (bodid = ti[4]) or (bodid = ti[5]) then
    moveto(tfchest) // сундук с Female сетом  
   else 
    if (bodid = ti[6]) or (bodid = ti[7]) or (bodid = ti[8]) or (bodid = ti[9]) or (bodid = ti[10]) then
     moveto(tschest) // сундук с Studded сетом
    else  
     if (bodid = ti[11]) or (bodid = ti[12]) or (bodid = ti[13]) or (bodid = ti[14]) or (bodid = ti[15]) or (bodid = ti[16]) then
      moveto(tmchest) // сундук с Male сетом
     else
      if (bodid = ti[17]) or (bodid = ti[18]) or (bodid = ti[19]) or (bodid = ti[20]) or (bodid = ti[21]) then
       moveto(tbchest) // сундук с Bone сетом
      else
       if (bodid = ti[22]) or (bodid = ti[23]) or (bodid = ti[24]) or (bodid = ti[25]) or (bodid = ti[26]) then
        moveto(ttcchest) // сундук с Town Crier сетом 
       else
        if (bodid = ti[27]) or (bodid = ti[28]) or (bodid = ti[29]) then
         moveto(tshchest) // сундук с Обувью
        else
         moveto(tcchest); // сундук с Тканью
  wait(500);
 end; 
 checklag(5000);  
 wait(1000);
 terminate := false;
 bobfilter(findtype($2259,backpack),'all','all','blacksmithing','all'); 
 while terminate = false do
 begin 
  save;
  bodid := getgi;
  if count($2258) > 0 then
   if (bodid = bsi[0]) or (bodid = bsi[1]) or (bodid = bsi[2]) then
    moveto(bscchest) // сундук с Chainmail Set
   else 
    if (bodid = bsi[3]) or (bodid = bsi[4]) or (bodid = bsi[5]) or (bodid = bsi[6]) then
     moveto(bsrchest) // сундук с Ringmail Set
    else  
     if (bodid = bsi[7]) or (bodid = bsi[8]) or (bodid = bsi[9]) or (bodid = bsi[10]) or (bodid = bsi[11]) or (bodid = bsi[12]) then
      moveto(bspchest) // сундук с Platemail Set
     else
      if (bodid = bsi[13]) or (bodid = bsi[14]) or (bodid = bsi[15]) or (bodid = bsi[16]) or (bodid = bsi[17]) or (bodid = bsi[18]) or (bodid = bsi[19]) or (bodid = bsi[20]) or (bodid = bsi[21]) or (bodid = bsi[22]) or (bodid = bsi[23]) then
       moveto(bsoachest) // сундук с Other Armor
      else
       if (bodid = bsi[24]) or (bodid = bsi[25]) then
        moveto(bsbhchest) // сундук с Bardich & Halberd
       else
        moveto(bsowchest); // сундук с Other Weapon
  wait(500);
 end;  
 addtosystemjournal('stop script'); 
 clientprint('stop script'); 
end.

Code: Select all

for i := 0 to 5
  if (bodid = ti[i]) then
    begin
      moveto(tchest[i])
      break;
    end;
for i := 6 to 10