Not exactly for runescape... CONFUSED!!!

[Claximillions]

Hey, I'm making a script for a website called Drawball. I know SCAR is a runescape botting program but I couldn't find any other program with good syntax. PLEASE... help me with my script...

The error code is as follows:

Failed when compiling
[Error] (310:1): 'BEGIN' expected

I'm trying to add procedures because well, it was getting slightly messy. If the problem is I need to use functions instead then please tell me!

Code:

program DrawballBigClax;
var
x,y,a,b: Integer;

const
SpiralRed= 1253087;
SpiralBlue= 16321313;
procedure VerifyDrawball;
begin
if(FindColor(a,b,SpiralRed,900,600,1000,700)) then;
if(FindColor(a,b,SpiralBlue,900,600,1000,700)) then;
end;
else end;

procedure ColorBlack;

begin

  x:= 293
  y:= 254


  Wait(700)
 ClickMouse(995,635,true)
  Wait(300)
 MoveMouseSmooth(821,730)
  Wait(10+random(50));
 ClickMouse(821,730,true)
Wait(100)
ClickMouse(941,650,true)


//BlackOut

end;
procedure BlackOut1;
begin



repeat

 ClickMouse(x,y,true)

 x:= x + 12


Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));


until(x >= 855)

end;
procedure BlackOut2;
begin
 x:=275
 y:=273

repeat

 ClickMouse(x,y,true)

 x:= x + 12


Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));



until(x >=875)

end;
procedure BlackOut3;
begin

 x:=274
 y:=295

repeat

 ClickMouse(x,y,true)

 x:= x + 12


Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));



until(x >=881)

end;
procedure BlackOut4;
begin
 x:=264
 y:=317
 
repeat

 ClickMouse(x,y,true)

 x:= x + 12


Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));



until(x >= 885)

end;
procedure BlackOut5;
begin
x:= 259
y:= 338

repeat

 ClickMouse(x,y,true)

 x:= x + 12
 

Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));



until(x >= 890)
end;
procedure BlackOut6;
begin

 x:= 257
 y:= 358
 
repeat

 ClickMouse(x,y,true)

 x:= x + 12


Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));


 
 
until(x >= 893)

end;
procedure BlackOut7;
begin
 x:= 257
 y:= 377
 
repeat

 ClickMouse(x,y,true)

 x:= x + 12
 


Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));




until(x >= 896)

end;
procedure BlackOut8;
begin
 x:= 256
 y:= 395




repeat

  ClickMouse(x,y,true)



 x:= x + 12





Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));






until(x >= 898)

end;
procedure BlackOut9;
begin
 x:= 252
 y:= 415

repeat


 ClickMouse(x,y,true)


 x:= x + 12



Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));


 
 
until(x >= 898);

end;
procedure BlackOut10;
begin
 x:= 254
 y:= 436
 
repeat

ClickMouse(x,y,true)

 x:= x + 12
 

Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));

until(x >= 893)

end;
procedure BlackOut11;
begin
 x:= 258
 y:= 454
 
repeat

 ClickMouse(x,y,true)
 
 x:= x + 12
 

Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));

until(x >= 892)

end;
procedure BlackOut12;
begin
 x:= 261
 y:= 473
 
repeat

 ClickMouse(x,y,true)
 
 x:= x + 12
 


Wait(10+random(5));
MoveMouseSmoothEx(x,y,3,7,60,100,0)
Wait(10+random(3));

until(x >= 889);

//END OF BLACKOUT!!!







 MoveMouse(585,467)
 Sleep(10000+random(5000));
end;
end.

 

[cazax]

You need a main loop... after blackout you need a begin-end. and between them you put the procedures in the order you want them to be executed.

 

[Claximillions]

You need a main loop... after blackout you need a begin-end. and between them you put the procedures in the order you want them to be executed.

When I do this... It starts and instantly ends...

until(x >= 889);

//END OF BLACKOUT!!!







 MoveMouse(585,467)
 Sleep(10000+random(5000));
end;
begin
end.

 

[cazax]

When I do this... It starts and instantly ends...

until(x >= 889);

//END OF BLACKOUT!!!







 MoveMouse(585,467)
 Sleep(10000+random(5000));
end;
begin
end.

Because you don't have any code to execute, you just declare the procedures. In your main loop put:

begin
  ColorBlack;
  Blackout1; ...
  Blackout12;
end.

 

[Claximillions]

OOOOOHHHhhhhhh... Okz Thank you a lot! So... Procedure just defines what the script will do?

 

[cazax]

Procedures(and functions) are piece of code. Once you call a procedure the code is executed(in this case you call it from the main loop). E.g:

program New;

procedure HelloWorld;
Begin
  Writeln('Hello World!');
End;

begin
end.

As you can see the procedure is declared, but never executed:

program New;

Procedure HelloWorld;
Begin
  Writeln('Hello World!');
End;

begin
  HelloWorld;
end.

That would write 'Hello World!' in the debug box because I'm calling the procedure. Good luck

 

[Claximillions]

Ok, so, Can you help me with else, then, and or? I'm getting confused because when ever I enter something like "if(FindColor(...........) then or;" or else or end else or anything it always says Identifier required or Unknown Identifier. I'm going to make a new thread for it. So look out for that.

 

[cazax]

If:

If Something Then
Begin
  DoSometehing;
End;

Or:

If Something Or ThisOne Then
Begin
  DoSomething;
End;

And:

If Hungry And HasMoney Then
Begin
  GoToSubway;
End;

Else:

If Bored Then
  MakeScripts
Else
Begin
  Writeln('I'm not bored!');
End;

End Else:

If Tired And SchoolTomorrow Then
Begin
  Writeln('bye');
  GoToSleep;
End Else
Begin
  Writeln('No way!');
End;