program project1 var stackgr integer stack bagpack Ziel integer begin

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
program project1;
var
stackgr :integer;
stack, bagpack, Ziel :integer;
begin
stack:= getQuantity($42078E30);
stackgr:= getQuantity($42078E30);
bagpack:= getQuantity($403283F3);
Ziel:= getQuantity($401CB695);
IF ((stack = 1)and(stackgr = 15)and(bagpack = 0)and(Ziel > 0))THEN
begin
DragItem($42078A68, 30);
DropItem($401CB695, 988, 566, 2);
end;
end.