uo script: скрипт на выкладывание на землю итемов

[XomaGetto]

подскажите плиз рабочию часть программы.
З.Ы. нессылайтесь на сайт по этой проге, там для платников в основном у меня версия уоскрипта 1.64
З.Ы.Ы. а то все мега отцы обклыдавают как говорят либо руками либо на ней, я не мега отец и руками неполувчаеться по три ряда обложить(один то не всегда успеваю). И бой получаеться до первого подлагивания в парализе и я уже обложен-далее я думаю уже понятно что чаще всего бывает- ...мир стал серым для меня.

[AMAAT]

const
{ X,Y игрока }
PX = 414;
PY = 316;
aDelay = 250;
aChestType1 = 2474;
aChestType2 = 3709;


function GetChestXY(var ax,ay : LongInt) : boolean;
var
GumpsList, ChestList : LongInt;
GumpsListLng, ChestListLng : LongInt;
GumpNum : LongInt; // номер окна
Gump,Chest : LongInt; // указатель на окно и объект
ex : Boolean;
s : String; // тмп строка
o : Boolean; // тмп булеан
gx,gy : LongInt; // координаты окна
ox,oy,oz : Word; // координаты сундука в окне
begin
GetGumpsList(GumpsList);
ex := false;
//сканируем все Гампы
GetListCount(GumpsList, GumpsListLng);
Result := false;
for GumpNum := 0 to GumpsListLng-1 do begin
GetListItem(GumpsList, GumpNum, Gump, s);
GetObjectsListByType(Gump, aChestType1, ChestList);
GetListCount(ChestList, ChestListLng);
if ChestListLng > 0 then begin
ex := true;
Result := true;

GetListItem(ChestList, 0, Chest, s);

GetGumpInfo(Gump, o, gx, gy);
GetObjectPos(Chest, ox, oy, oz);
ax := ox + gx + 14;
ay := oy + gy + 14;
end;
FreeObjectsList(ChestList);
if ex then Break;
GetObjectsListByType(Gump, aChestType2, ChestList);
GetListCount(ChestList, ChestListLng);
if ChestListLng > 0 then begin
ex := true;
Result := true;

GetListItem(ChestList, 0, Chest, s);

GetGumpInfo(Gump, o, gx, gy);
GetObjectPos(Chest, ox, oy, oz);
ax := ox + gx + 14;
ay := oy + gy + 14;
end;
FreeObjectsList(ChestList);
if ex then Break;
end;

FreeObjectsList(GumpsList);
end;


procedure Drag(x1,y1,x2,y2 : Word);
begin
LeftDown(x1,y1);
Delay(aDelay);
LeftUp(x2,y2);
end;
{364,305 -25 -25
390,330 0 0
408,351 +25 +25 }

var
mx,my : LongInt;
Chestx,Chesty : LongInt;
begin
GetMouseCoords(mx,my);
if GetChestXY(Chestx,Chesty) then begin
Drag(Chestx,Chesty,mx,my);
end;
end.

[XomaGetto]

мать моя женщина...:I Спосибо!