@Enforcer, плохо искал, с форума бота:
procedure zakup;
begin
if (not Inventory.User.ByID(22108,Item)) or (Item.Count < 6) then begin // докуп мп
Engine.FaceControl(0, False);
Engine.BypassToServer('_bbshome', True) ; //открывает альт-б
delay(100);
Engine.BypassToServer('_bbspage:30', True) ; //открывает магазин в альт-б
delay(100);
Engine.BypassToServer('_bbspage:30-2', True) ;//переходит на вторую страницу в магазине
delay(100);
Engine.BypassToServer('_bbsmultisell:90162;_bbspage:30-2', True) ; //открывает мультисел с мп банками
delay(100);
Engine.NPCExchange(22108, 7); //покупает мп банки в мультиселе
Engine.FaceControl(0, true);
end;