Program ruby1 var menge integer validquelle validziel boolean const zi

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