Need a bit of guidance...

Printable View

01-14-2012, 06:38 AM
John

Need a bit of guidance...

i get this error when trying to run my script i am making, it opens another script(tab) called simba.

Code:

[Error] C:\Simba\Includes\SRL/SRL/core/simba.simba(8:3): Duplicate identifier 'TDTMPointDef' at line 7 Compiling failed.

Just ask for more info if you need it i will gladly supply it for you.
01-14-2012, 06:45 AM
YoHoJo

Copy/Paste us the script, put it in simba tags.

Quote:

Originally Posted by Evlin

i get this error when trying to run my script i am making, it opens another script(tab) called simba.

Code:

[Error] C:\Simba\Includes\SRL/SRL/core/simba.simba(8:3): Duplicate identifier 'TDTMPointDef' at line 7

Compiling failed.

Just ask for more info if you need it i will gladly supply it for you.

Requested.(and sorry for Wrong section :P)

Simba Code:

program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.scar}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$IfDef Reflection}
{$i reflection\reflection.simba}
{$EndIf}
 Const
{---SMART Setup Constants---}
  WORLD = 50;// Set a world, if you'd like.
  MEMBERS = False;// Change accordingly.
  SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';
{---------------------------}

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use this player
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure AntiBan;
begin
  case Random(6) of
  0: HoverSkill('Random', False);
  1: begin
       RandomMovement;
       HoverSkill('Random', False);
     end;
  2: BoredHuman;
  3: BoredHuman;
  4: ExamineInv;
  5: begin
       RandomAngle(1);
       HoverSkill('Random', False);
       ExamineInv;
     end;
  end;
end;
procedure AntiRandoms;
begin
  {$IfDef Reflection}
  R_FindRandoms;
  {$EndIf}
  FindNormalRandoms;
end;
procedure ProgressReport;
begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
Procedure BanktoFleshCrawls
var
myPath:TPointArray;
SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);//SPS Areas (self explanatory)
myPath := [Point(4194, 2685), Point(4212, 2708), Point(4233, 2728), Point(4231, 2763), Point(4229, 2783), Point(4186, 2800), Point(4196, 2861), Point(4179, 2918), Point(4157, 2961)];//Path from the path maker.

begin
Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
  SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
  {$IfDef Reflection}
  SetupReflection;
  {$EndIf} // Hello again IfDef. If you haven't noticed, EVERYTHING to do with reflection is surrounded by this, so it is very easily removed.

  DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
  LoginPlayer; // This logs in your first player.
  BanktoFleshCrawls; // sps path used to getting to the dungeon.
end.
end.

01-14-2012, 06:52 AM
YoHoJo
Yikes, you need to work on your standards first!
Also you have to 'end.' at the end, there can only be one end. (with a period).
One of those end. should be a end; and higher up (where you want to end your Procedure BankToFleshCrawler procedure, also you nede a ; after it like
Simba Code:
```
Procedure BankToFleshCrawler;
```
To find randoms all you need to do is called FindNormalRandoms to R_ (that's reflection and refelction is broken now). So kill the lines
Simba Code:
```
{$IfDef Reflection}  R_FindRandoms;  {$EndIf}
```
Please clean up your standards some more so we can read the code more easily!

Quote:

Originally Posted by YoHoJo

Yikes, you need to work on your standards first!
Also you have to 'end.' at the end, there can only be one end. (with a period).
One of those end. should be a end; and higher up (where you want to end your Procedure BankToFleshCrawler procedure, also you nede a ; after it like

Simba Code:

Procedure BankToFleshCrawler;

To find randoms all you need to do is called FindNormalRandoms to R_ (that's reflection and refelction is broken now). So kill the lines

Simba Code:

{$IfDef Reflection}  R_FindRandoms;  {$EndIf}

Please clean up your standards some more so we can read the code more easily!

umm i am extremely new to this so bare with me.
did you mean this?

Simba Code:

program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.scar}
{$i srl/srl.simba}
{$i sps/sps.simba}
{$i reflection\reflection.simba}

 Const
{---SMART Setup Constants---}
  WORLD = 50;// Set a world, if you'd like.
  MEMBERS = False;// Change accordingly.
  SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';
{---------------------------}

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use this player
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure AntiBan;
begin
  case Random(6) of
  0: HoverSkill('Random', False);
  1: begin
       RandomMovement;
       HoverSkill('Random', False);
     end;
  2: BoredHuman;
  3: BoredHuman;
  4: ExamineInv;
  5: begin
       RandomAngle(1);
       HoverSkill('Random', False);
       ExamineInv;
     end;
  end;
end;
procedure AntiRandoms;
begin
  FindNormalRandoms;
end;
procedure ProgressReport;
begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
Procedure BanktoFleshCrawls;
var
myPath:TPointArray;
SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);//SPS Areas (self explanatory)
myPath := [Point(4194, 2685), Point(4212, 2708), Point(4233, 2728), Point(4231, 2763), Point(4229, 2783), Point(4186, 2800), Point(4196, 2861), Point(4179, 2918), Point(4157, 2961)];//Path from the path maker.

begin
Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
  SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
  DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
  LoginPlayer; // This logs in your first player.
  BanktoFleshCrawls; // sps path used to getting to the dungeon.
     end;
    end.

01-14-2012, 07:16 AM
Flight
Could it be because you're trying to include Reflection?:
Simba Code:
```
{$i reflection\reflection.simba}
```
Reflection doesn't work any more, so no doubt you'll get errors when trying to include it in your script.
01-14-2012, 07:17 AM
YoHoJo

Sort of, pur that VERY LAST end; after the myPath:= line

Also fix up stanards! (Two spaces afer each begin until you reach the end after it) Look up and see if you can find a tutorial about propper standards. It makes the code easier for youself and everyone to read and help you out with! Nice start on the script though, love seeing new guys getting into it!

Quote:

Originally Posted by YoHoJo

Sort of, pur that VERY LAST end; after the myPath:= line

Also fix up stanards! (Two spaces afer each begin until you reach the end after it) Look up and see if you can find a tutorial about propper standards. It makes the code easier for youself and everyone to read and help you out with! Nice start on the script though, love seeing new guys getting into it!

link to the tut please.

plus minor changes still getting the same error

Simba Code:

program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.scar}
{$i srl/srl.simba}
{$i sps/sps.simba}


 Const
{---SMART Setup Constants---}
  WORLD = 50;// Set a world, if you'd like.
  MEMBERS = False;// Change accordingly.
  SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';
{---------------------------}

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use this player
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure AntiBan;
begin
  case Random(6) of
  0: HoverSkill('Random', False);
  1: begin
       RandomMovement;
       HoverSkill('Random', False);
     end;
  2: BoredHuman;
  3: BoredHuman;
  4: ExamineInv;
  5: begin
       RandomAngle(1);
       HoverSkill('Random', False);
       ExamineInv;
     end;
  end;
end;
procedure AntiRandoms;
begin
  FindNormalRandoms;
end;
procedure ProgressReport;
begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
Procedure BanktoFleshCrawls;
var
myPath:TPointArray;
SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);//SPS Areas (self explanatory)
myPath := [Point(4194, 2685), Point(4212, 2708), Point(4233, 2728), Point(4231, 2763), Point(4229, 2783), Point(4186, 2800), Point(4196, 2861), Point(4179, 2918), Point(4157, 2961)];//Path from the path maker.
end;
begin
Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
  SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
  DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
  LoginPlayer; // This logs in your first player.
  BanktoFleshCrawls; // sps path used to getting to the dungeon.
     end;
    end.

01-14-2012, 07:42 AM
YoHoJo

Remove the "end;" at the very bottom.
http://villavu.com/forum/showthread.php?t=60288

Quote:

Originally Posted by YoHoJo

Remove the "end;" at the very bottom.
http://villavu.com/forum/showthread.php?t=60288

ok, is this a bit neater?

Simba Code:

program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.scar}
{$i srl/srl.simba}
{$i sps/sps.simba}


 Const
{---SMART Setup Constants---}
  WORLD = 50;// Set a world, if you'd like.
  MEMBERS = False;// Change accordingly.
  SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';
{---------------------------}

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use this player
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;
procedure AntiBan;
begin
  case Random(6) of
  0: HoverSkill('Random', False);
  1: begin
       RandomMovement;
       HoverSkill('Random', False);
     end;
  2: BoredHuman;
  3: BoredHuman;
  4: ExamineInv;
  5: begin
       RandomAngle(1);
       HoverSkill('Random', False);
       ExamineInv;
     end;
  end;
end;
procedure AntiRandoms;
begin
  FindNormalRandoms;
end;
procedure ProgressReport;
begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;
Procedure BanktoFleshCrawls;
  var
  myPath:TPointArray;
  SPS_Setup(RUNESCAPE_SURFACE,['10_6','10_7']);//SPS Areas (self explanatory)
  myPath := [Point(4194, 2685), Point(4212, 2708),
  Point(4233, 2728), Point(4231, 2763), Point(4229, 2783),
  Point(4186, 2800), Point(4196, 2861), Point(4179, 2918),
  Point(4157, 2961)];//Path from the path maker.
end;
begin
  Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
  SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
  DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
  LoginPlayer; // This logs in your first player.
  BanktoFleshCrawls; // sps path used to getting to the dungeon.
end.

01-14-2012, 07:59 AM
YoHoJo

A lot better! Also put some spaces after each procedure too. (like blank lines).
So does it compile properly at last, or when you try to compile do you get error right away?
01-14-2012, 08:16 AM
John

this comes up...still
http://i1083.photobucket.com/albums/...ofguidance.png
01-14-2012, 08:19 AM
YoHoJo

Hurr figured it out you have
{$i srl/srl.scar}{$i srl/srl.simba}
you only need {$i srl/srl.simba} , all .scar includes are SRL4/oudated, we on SRL5 now.

Ran your script thru a formater. =)
Runs for me just like this.

E: LOL the formater removed the .scar include! Win!

Simba Code:

program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$I srl/srl.simba}
{$I sps/sps.simba}

const
  WORLD = 50;
  MEMBERS = False;
  SIGNED = True;
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Active := True;
    Pin := '';
  end;
end;

procedure AntiBan;
begin
  case Random(6) of
    0: HoverSkill('Random', False);
    1:
      begin
        RandomMovement;
        HoverSkill('Random', False);
      end;
    2: BoredHuman;
    3: BoredHuman;
    4: ExamineInv;
    5:
      begin
        RandomAngle(1);
        HoverSkill('Random', False);
        ExamineInv;
      end;
  end;
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
end;

procedure ProgressReport;
begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;

procedure BanktoFleshCrawls;
var
  myPath: TPointArray;
begin
  SPS_Setup(RUNESCAPE_SURFACE, ['10_6', '10_7']);
  myPath := [Point (4194, 2685), Point (4212, 2708), Point (4233, 2728), Point (4231, 2763), Point (4229, 2783), Point (4186, 2800), Point (4196, 2861), Point (4179, 2918), Point (4157, 2961)];
end;

begin
  Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  BanktoFleshCrawls;
end.

:duh::duh::duh::duh::duh::duh:
new error now :spongebob:

Code:

[Error] (82:3): Duplicate identifier 'SPS_Setup' at line 81

Compiling failed.

Simba Code:

program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i sps/sps.simba}


 Const
{---SMART Setup Constants---}
  WORLD = 50;// Set a world, if you'd like.
  MEMBERS = False;// Change accordingly.
  SIGNED = True; // True if running a single account, false otherwise.
{---------------------------}
{--------Script Info--------}
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';
{---------------------------}



procedure DeclarePlayers;


begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := '';
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use this player
  Players[0].Pin := ''; // Leave blank if the player doesn't have a bank pin
end;


procedure AntiBan;


begin
  case Random(6) of
  0: HoverSkill('Random', False);
  1: begin
       RandomMovement;
       HoverSkill('Random', False);
     end;
  2: BoredHuman;
  3: BoredHuman;
  4: ExamineInv;
  5: begin
       RandomAngle(1);
       HoverSkill('Random', False);
       ExamineInv;
     end;
  end;
end;


procedure AntiRandoms;


begin
  FindNormalRandoms;
end;


procedure ProgressReport;


begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;


Procedure BanktoFleshCrawls;

  var
  myPath:TPointArray;
  SPS_Setup;
  (RUNESCAPE_SURFACE,['10_6','10_7']);//SPS Areas (self explanatory)
  myPath := [Point(4194, 2685), Point(4212, 2708),
  Point(4233, 2728), Point(4231, 2763), Point(4229, 2783),
  Point(4186, 2800), Point(4196, 2861), Point(4179, 2918),
  Point(4157, 2961)];//Path from the path maker.
end;
begin
  Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False; // These four lines, setup and run Smart, using the constants you made earlier.
  SetupSRL; // This is used to setup SRL's base features, and is almost always necessary.
  DeclarePlayers; // This runs your DeclarePlayers procedure, setting them up to run
  LoginPlayer; // This logs in your first player.
  BanktoFleshCrawls; // sps path used to getting to the dungeon.
end.

01-14-2012, 08:27 AM
Dgby714

Quote:

Originally Posted by Evlin

:duh::duh::duh::duh::duh::duh:
new error now :spongebob:

Code:

[Error] (82:3): Duplicate identifier 'SPS_Setup' at line 81 Compiling failed.

You forgot a begin, Use the one I posted.

Quote:

Originally Posted by Dgby714

Ran your script thru a formater. =)
Runs for me just like this.

E: LOL the formater removed the .scar include! Win!

Simba Code:

program EvlinsFleshCrawlerKillah;
{$DEFINE SMART}
{$I srl/srl.simba}
{$I sps/sps.simba}

const
  WORLD = 50;
  MEMBERS = False;
  SIGNED = True;
  Author = 'Evlin';
  Name = 'EvlinsFleshCrawlerKillah';
  Version = '1.00';

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Nick := '';
    Active := True;
    Pin := '';
  end;
end;

procedure AntiBan;
begin
  case Random(6) of
    0: HoverSkill('Random', False);
    1:
      begin
        RandomMovement;
        HoverSkill('Random', False);
      end;
    2: BoredHuman;
    3: BoredHuman;
    4: ExamineInv;
    5:
      begin
        RandomAngle(1);
        HoverSkill('Random', False);
        ExamineInv;
      end;
  end;
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
end;

procedure ProgressReport;
begin
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  WriteLn(Name + ' by' + Author + ' V' + Version);
  WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;

procedure BanktoFleshCrawls;
var
  myPath: TPointArray;
begin
  SPS_Setup(RUNESCAPE_SURFACE, ['10_6', '10_7']);
  myPath := [Point (4194, 2685), Point (4212, 2708), Point (4233, 2728), Point (4231, 2763), Point (4229, 2783), Point (4186, 2800), Point (4196, 2861), Point (4179, 2918), Point (4157, 2961)];
end;

begin
  Smart_Server := WORLD;
  Smart_Members := MEMBERS;
  Smart_Signed := SIGNED;
  Smart_SuperDetail := False;
  SetupSRL;
  DeclarePlayers;
  LoginPlayer;
  BanktoFleshCrawls;
end.

:( i need the notes or i'll fudge it all up when i go to use that part of the script again :P

01-14-2012, 08:30 AM
John

Quote:

Originally Posted by Evlin

:( i need the notes or i'll fudge it all up when i go to use that part of the script again :P

Edit: but thanks anyways.
got it fixed
01-14-2012, 08:43 AM
John

NEW error :P now it runs and just stops, it wont do my path...
it just stays put...
01-14-2012, 08:53 AM
YoHoJo

Read up on your SPS tutorails then and see what you're doing wrong then.
Also add a bunch of WriteLn lines as debug so you know how far it's getting/exactly where it's messing up.