Not exactly for runescape... CONFUSED!!!

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:

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.

 

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...

Code:

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:

Code:

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

 

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

 

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:

Code:

program New;

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

begin
end.

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

Code:

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

 

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.

 

If:

Code:

If Something Then
Begin
  DoSometehing;
End;

Or:

Code:

If Something Or ThisOne Then
Begin
  DoSomething;
End;

And:

Code:

If Hungry And HasMoney Then
Begin
  GoToSubway;
End;

Else:

Code:

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

End Else:

Code:

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