S_rose94
11-06-2013, 05:41 PM
13var
14 x, y: Integer;
15 DsgnForm : TForm;
16 Username, Password : TEdit;
17 StartBtn : TButton;
18 chopping
19
20
21
22 procedure FindTree;
23 var x, y: Integer;
24 begin
25 wait(500 + random(800))
26 if P07_FindObjCustom(x,y, ['hop', Tree], [TREECOLOR, TREECOLOR2], 5) then
27 begin
28 if chopping := (0) then
29 begin
30 P07_MouseBox(X, Y, X, Y, mouse_left);
31 wait(random(500));
32 end;
33 end;
34 end;
Above is the code that I am struggling with, for some reason it asks for a colon to be placed at the variable line (line 23) I have no idea why I have been playing with it for a while and no luck can someone please explain to me what I have done wrong? if you need more of the script ill upload
14 x, y: Integer;
15 DsgnForm : TForm;
16 Username, Password : TEdit;
17 StartBtn : TButton;
18 chopping
19
20
21
22 procedure FindTree;
23 var x, y: Integer;
24 begin
25 wait(500 + random(800))
26 if P07_FindObjCustom(x,y, ['hop', Tree], [TREECOLOR, TREECOLOR2], 5) then
27 begin
28 if chopping := (0) then
29 begin
30 P07_MouseBox(X, Y, X, Y, mouse_left);
31 wait(random(500));
32 end;
33 end;
34 end;
Above is the code that I am struggling with, for some reason it asks for a colon to be placed at the variable line (line 23) I have no idea why I have been playing with it for a while and no luck can someone please explain to me what I have done wrong? if you need more of the script ill upload