Program test var menge integer validquelle validziel boolean const zie

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
Program test;
var
menge : integer;
validquelle, validziel : boolean
const
zielbp = $4167A92B
quellbp= $400F8834
tauschruby = $4167B8BE
begin
menge := GetQuantity(tauschruby);
validquelle := IsObjektExists(quellbbp)
validziel := IsObjektExists(zielbp)
if(menge = >0) and (validquelle) and (validziel) then
begin
DragItem(tauschruby, quelbp, 15);
DropItem(tauschruby, zielbp, 0,0,0);
end;
end.