SRL Archive - Help

Unexpected End of file at line 0 ERROR

ABC!

2012-05-25 17:29:31

program SwampToadCollector; <<- This is the line!

[Error] (1:1): Unexpected end of file at line 0
Compiling failed.

^^ Keep getting this error! But I can't see that I'm doing anything wrong!

program SwampToadCollector;

x[Warrior]x3500

2012-05-25 17:33:29

umm do you have an "end." at the end of your script? is the main loop correct?

YoHoJo

2012-05-25 17:45:58

Copy/paste script you are running, put it in simba tags.

ABC!

2012-05-26 03:02:18

program SwampToadCollector;

  {$DEFINE SRL5}
  {$DEFINE SMART}

  {$i SRL/SRL.simba}

  Const

//SRL Stats
  SRLStats_Username = '';
  SRLStats_Password = '';

//Break Settings
  BreakIn      = 135;
  BreakFor     = 15;
  Version      = 1.0;


  Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name        := '';  //Enter your Runescape Username Here
      Pass        := '';            //Enter your Runescape Password Here
      Pin         := '';                    //Enter your Bank Pin Here, Leave blank if you dont have one      BoxRewards  := ['XP','xp','lamp'];
      LampSkill   := Skill_Agility;
      Active      := True;
    end;
  end;

    Var
      x, y: Integer;

Procedure Antiban;
Begin

  Case Random(100) Of
    1: HoverSkill('magic', False);
    2: HoverSkill('random', False);
    3: Boredhuman;
    4: Wait(2500 + random(4500));
    5: RandomRClick;
    6: PickUpMouse;
    7: RandomMovement;
  end;
end;
Procedure PickUpFrog;
begin
    repeat
    FindNormalRandoms;
    if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('Take');
    end;
      repeat
      Until not IsUpText('toad') or (InvFull);
  until(InvFull);
  End;

Procedure RadialWalkToBank;
var
  x,y, Roadcolor: Integer;
begin
  If (InvFull) then
  begin
    RoadColor := AutoColor(1);
    writeln(ToStr(RoadColor));
  repeat
    RadialWalkAutoColor(RoadColor, 160, 180, 65, 1, 1);
  until(FindSymbol(x, y, 'summoning obelisk'));
end;


begin
  Smart_Server := 23;
  Smart_Members := True;
  Smart_Signed := False;
  Smart_SuperDetail := False;

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;

  SetAngle(SRL_ANGLE_HIGH);
  PickUpFrog;
  RadialWalkToBank;
end

There it is, nothing special, but hoping to get it fully working, would be a good first script to make ( I think).

John

2012-05-26 03:05:16

Last line, "End" Should be "End."

ABC!

2012-05-26 05:36:44

From: John
Last line, "End" Should be "End."

Yeah i tried that still not working -.- and thanks for the message aha, hopefully no-one saw that!

John

2012-05-26 05:41:05

From: ABC!
Yeah i tried that still not working -.- and thanks for the message aha, hopefully no-one saw that!

;) no probs, 1 second and i'll have another look.

E: Spot the difference :P

program SwampToadCollector;

  {$DEFINE SRL5}
  {$DEFINE SMART}

  {$i SRL/SRL.simba}

  Const

//SRL Stats
  SRLStats_Username = '';
  SRLStats_Password = '';

//Break Settings
  BreakIn      = 135;
  BreakFor     = 15;
  Version      = 1.0;


  Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name        := '';  //Enter your Runescape Username Here
      Pass        := '';            //Enter your Runescape Password Here
      Pin         := '';                    //Enter your Bank Pin Here, Leave blank if you dont have one      BoxRewards  := ['XP','xp','lamp'];
      LampSkill   := Skill_Agility;
      Active      := True;
    end;
  end;

    Var
      x, y: Integer;

Procedure Antiban;
Begin

  Case Random(100) Of
    1: HoverSkill('magic', False);
    2: HoverSkill('random', False);
    3: Boredhuman;
    4: Wait(2500 + random(4500));
    5: RandomRClick;
    6: PickUpMouse;
    7: RandomMovement;
  end;
end;
Procedure PickUpFrog;
begin
    repeat
    FindNormalRandoms;
    if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('Take');
    end;
      repeat
      Until not IsUpText('toad') or (InvFull);
  until(InvFull);
  End;

Procedure RadialWalkToBank;
var
  x,y, Roadcolor: Integer;
begin
  If (InvFull) then
  begin
    RoadColor := AutoColor(1);
    writeln(ToStr(RoadColor));
  repeat
    RadialWalkAutoColor(RoadColor, 160, 180, 65, 1, 1);
  until(FindSymbol(x, y, 'summoning obelisk'));
  end;
end;


begin
  Smart_Server := 23;
  Smart_Members := True;
  Smart_Signed := False;
  Smart_SuperDetail := False;

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;

  SetAngle(SRL_ANGLE_HIGH);
  PickUpFrog;
  RadialWalkToBank;
end.

You Missed an "End" in RadialWalkBank.

masterBB

2012-05-26 05:45:49

fix'd

program SwampToadCollector;

  {$DEFINE SRL5}
  {$DEFINE SMART}

  {$i SRL/SRL.simba}

  Const

//SRL Stats
  SRLStats_Username = '';
  SRLStats_Password = '';

//Break Settings
  BreakIn      = 135;
  BreakFor     = 15;
  Version      = 1.0;


  Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name        := '';  //Enter your Runescape Username Here
      Pass        := '';            //Enter your Runescape Password Here
      Pin         := '';                    //Enter your Bank Pin Here, Leave blank if you dont have one      BoxRewards  := ['XP','xp','lamp'];
      LampSkill   := Skill_Agility;
      Active      := True;
    end;
  end;

    Var
      x, y: Integer;

Procedure Antiban;
Begin

  Case Random(100) Of
    1: HoverSkill('magic', False);
    2: HoverSkill('random', False);
    3: Boredhuman;
    4: Wait(2500 + random(4500));
    5: RandomRClick;
    6: PickUpMouse;
    7: RandomMovement;
  end;
end;
Procedure PickUpFrog;
begin
    repeat
    FindNormalRandoms;
    if FindObjCustom(x, y, ['Swamp', 'toad'], [2190656], 5) then
    begin
      Mouse(x, y, 0, 0, false);
      ChooseOption('Take');
    end;
      repeat
      Until not IsUpText('toad') or (InvFull);
  until(InvFull);
  End;

Procedure RadialWalkToBank;
var
  x,y, Roadcolor: Integer;
begin
  If (InvFull) then
  begin
    RoadColor := AutoColor(1);
    writeln(ToStr(RoadColor));
  repeat
    RadialWalkAutoColor(RoadColor, 160, 180, 65, 1, 1);
  until(FindSymbol(x, y, 'summoning obelisk'));
end;
end;     //added end


begin
  Smart_Server := 23;
  Smart_Members := True;
  Smart_Signed := False;
  Smart_SuperDetail := False;

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;

  SetAngle(SRL_ANGLE_HIGH);
  PickUpFrog;
  RadialWalkToBank;
end.      //added .

ABC!

2012-05-26 05:54:08

Ty guys + repped both!