program project1;
var
menge : Integer;
validquelle : Boolean;
validziel : Boolean;
const
zielbp = $42078E30;
quellbp = $403283F3;
tauschitem = $401CB695;
begin
menge := GetQuantity(tauschitem);
validquelle := IsObjectExist(quellbp);
validziel := IsObjectExist(zielbp);
if(Menge > 0) and (validquelle) and (validziel) then
begin
DragItem(tauschitem, 30);
DropItem(zielbp, 988, 566, 2);
end;
end.