Results 1 to 9 of 9

Thread: Unexpected End of file at line 0 ERROR

  1. #1
    Join Date
    May 2012
    Posts
    190
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Unexpected End of file at line 0 ERROR

    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;
    BOT TILL YOU DROP!

  2. #2
    Join Date
    Jan 2009
    Location
    Turlock/LA, California
    Posts
    1,494
    Mentioned
    3 Post(s)
    Quoted
    66 Post(s)

    Default

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

  3. #3
    Join Date
    Feb 2006
    Location
    Tracy/Davis, California
    Posts
    12,631
    Mentioned
    135 Post(s)
    Quoted
    418 Post(s)

    Default

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

  4. #4
    Join Date
    May 2012
    Posts
    190
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    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).
    Last edited by ABC!; 05-26-2012 at 09:36 AM.
    BOT TILL YOU DROP!

  5. #5
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

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

  6. #6
    Join Date
    May 2012
    Posts
    190
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by John View Post
    Last line, "End" Should be "End."
    Yeah i tried that still not working -.- and thanks for the message aha, hopefully no-one saw that!
    BOT TILL YOU DROP!

  7. #7
    Join Date
    Oct 2011
    Location
    Australia, Vic
    Posts
    1,517
    Mentioned
    2 Post(s)
    Quoted
    120 Post(s)

    Default

    Quote Originally Posted by ABC! View Post
    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
    Simba Code:
    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.
    Last edited by John; 05-26-2012 at 09:43 AM.

  8. #8
    Join Date
    Oct 2006
    Location
    Netherlands
    Posts
    3,285
    Mentioned
    105 Post(s)
    Quoted
    494 Post(s)

    Default

    fix'd
    Simba Code:
    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 .
    Working on: Tithe Farmer

  9. #9
    Join Date
    May 2012
    Posts
    190
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ty guys + repped both!
    BOT TILL YOU DROP!

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •