SRL Archive - Help

Need a bit of guidance...


John

2012-01-14 01:38:08

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


[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.

YoHoJo

2012-01-14 01:45:07

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

John

2012-01-14 01:48:09

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


[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)
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.

YoHoJo

2012-01-14 01:52:58

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
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
  {$IfDef Reflection}  R_FindRandoms;  {$EndIf}

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

John

2012-01-14 02:12:48

From: 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
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
  {$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?

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.

Flight

2012-01-14 02:16:49

Could it be because you're trying to include Reflection?:
{$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.

YoHoJo

2012-01-14 02:17:15

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!

John

2012-01-14 02:40:41

From: 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

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.

YoHoJo

2012-01-14 02:42:27

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

John

2012-01-14 02:56:51

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


ok, is this a bit neater?

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.


YoHoJo

2012-01-14 02:59:43

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?

John

2012-01-14 03:16:56

this comes up…still

YoHoJo

2012-01-14 03:19:13

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.

Dgby714

2012-01-14 03:25:27

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

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

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.

John

2012-01-14 03:26:05

:duh::duh::duh::duh::duh::duh:
new error now :spongebob:
[Error] (82:3): Duplicate identifier 'SPS_Setup' at line 81
Compiling failed.

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.

Dgby714

2012-01-14 03:27:26

From: Evlin
:duh::duh::duh::duh::duh::duh:
new error now :spongebob:
[Error] (82:3): Duplicate identifier 'SPS_Setup' at line 81
Compiling failed.


You forgot a begin, Use the one I posted.

John

2012-01-14 03:27:48

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

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

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

John

2012-01-14 03:30:24

From: 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

John

2012-01-14 03:43:18

NEW error :P now it runs and just stops, it wont do my path…
it just stays put…

YoHoJo

2012-01-14 03:53:22

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.