SRL Archive - General Botting Help

hey guys this is my script so far and Keep getting the error [Error] C:\Simba\Scripts\My First Scripts\better Nat Crafter.simba(33:13): Invalid number of parameters at line 32 and [Error] C:\Simba\Scripts\My First Scripts\better Nat Crafter.simba(33:21): Identifier expected at line 32
Compiling failed.


program NatCrafter;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}

var
runs, crafted, Money_Used: Integer;

const

PLAYER_USERNAME = '';
PLAYER_PASSWORD = '';
PLAYER_NICK = '';
Double_Nats = 'False';
NatureAltarColour1 = 945934;
NatureEntranceColour1 = 945934;
NotedPureEssColour = 7500411;
//Finish adding constants.

procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
Players[0].Name := PLAYER_USERNAME;
Players[0].Name := PLAYER_PASSWORD;
Players[0].Name := PLAYER_NICK;
Players[0].Active := True;
end;
function On_My_Wayward_son: Boolean;
var x,y: integer;
begin
if(FindColor(x, y, 7774158 , MSX1, MSY1, MSX2, MSY2)) then
Result := True; then
MMouse(x, y);
Result := False
Then
end;

whats with the "then" after "result := true" ? should be a semicolon there, also for your if statement at the end wack in a set of begin and end; 's

function On_My_Wayward_son: Boolean;
var x,y: integer;
begin
  if(FindColor(x, y, 7774158 , MSX1, MSY1, MSX2, MSY2)) then
  begin
    Result := True;
    MMouse(x, y);
  end else
  begin
    Result := False;
  end;
end; 

^^^ i think thats what you were after?

program NatCrafter;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}

var
  runs, crafted, Money_Used: Integer;

const
  PLAYER_USERNAME = '';
  PLAYER_PASSWORD = '';
  PLAYER_NICK = '';
  Double_Nats = 'False';
  NatureAltarColour1 = 945934;
  NatureEntranceColour1 = 945934;
  NotedPureEssColour = 7500411;
  //Finish adding constants.

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  Players[0].Name := PLAYER_USERNAME;
  Players[0].Pass:= PLAYER_PASSWORD;
  Players[0].Nick := PLAYER_NICK;
  Players[0].Active := True;
end;

function On_My_Wayward_son: Boolean;
var 
  x,y: integer;
begin
  result:= FindColor(x, y, 7774158 , MSX1, MSY1, MSX2, MSY2);
  if(result)then 
    MMouse(x, y,3,3);
end; 

? is that what you wanted?

also, use the simba tags to make it WAY easier to read ur code

Hey thanks so much sorry for late reply had to go somewhere but thanks to both of you :)