program project1 var menge Integer validquelle Boolean validziel Boole

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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.