EDIT: This problem is solved, I have another one though, please check my latest post on this thread.
So I decided to try and make my first script.
What this will do is, when you start on the 'View Advertisements' page on neobux (a paid to click site) it will find the purple advertisements, click on it, then click the red verification dot and then wait for the ad to load and finally cross the page.
So far I am stuck at trying to get the script to click the red dot, as I am getting a compiling erorr.
Simba Code:
program Neobux;
procedure ClickAd;
var
x, y:Integer;
begin
if FindColorSpiralTolerance(x, y, 15470554, 236, 221, 848, 348, 10) then
begin
MoveMouse(x, y);
ClickMouse(x, y, 1);
Wait(500);
end;
procedure Verify;
var
x, y:Integer;
begin
if FindColorSpiralTolerance (x, y, 225, 236, 221, 848, 348, 10) then
begin
MoveMouse(x, y);
ClickMouse(x, y, 1);
end;
begin
ClickAd;
Wait(500);
Verify;
end.
The error I get:
[Error] (15:1): Identifier expected at line 14
Compiling failed.
I'm probably making a huge mess of this and this is my very first attempt at programming, so I welcome any constructive criticism about code formatting etc etc. Going on the site might help you understand my problem easier.
Script in its current form 
Simba Code:
program Neobux;
procedure ClickAd;
var
x, y:Integer;
begin
if FindColorSpiralTolerance(x, y, 148131368, 248, 219, 913, 839, 30) or
FindColorSpiralTolerance(x, y, 45056, 248, 219, 913, 839, 30) then
begin
MoveMouse(x, y);
ClickMouse(x, y, 1);
Wait(500);
end;
end;
procedure Verify;
var
x, y:Integer;
begin
if FindColorSpiralTolerance (x, y, 225, 248, 219, 913, 839, 30) then
begin;
MoveMouse(x, y);
ClickMouse(x, y, 1);
end;
end;
procedure ClosePage;
begin
KeyDown(17);
KeyDown(87);
wait(30);
KeyUp(87);
KeyUp(17);
end;
procedure Browser;
var
x:Integer;
begin
OpenWebPage('http://www.neobux.com/m/v/');
activateclient;
end;
begin
Browser;
Wait(5000)
ClickAd;
Wait(500);
Verify;
Wait(20000);
ClosePage;
end.