Log in

View Full Version : Need a bit of guidance...


John
01-14-2012, 06:38 AM
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
01-14-2012, 06:45 AM
Copy/Paste us the script, put it in simba tags.
John
01-14-2012, 06:48 AM
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
01-14-2012, 06:52 AM
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
01-14-2012, 07:12 AM
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
01-14-2012, 07:16 AM
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
01-14-2012, 07:17 AM
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
01-14-2012, 07:40 AM
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
01-14-2012, 07:42 AM
Remove the "end;" at the very bottom.
http://villavu.com/forum/showthread.php?t=60288
John
01-14-2012, 07:56 AM
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
01-14-2012, 07:59 AM
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
01-14-2012, 08:16 AM
this comes up...still
http://i1083.photobucket.com/albums/j392/evlin1/Villavu/Needabitofguidance.png
YoHoJo
01-14-2012, 08:19 AM
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
01-14-2012, 08:25 AM
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
01-14-2012, 08:26 AM
: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
01-14-2012, 08:27 AM
: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
01-14-2012, 08:27 AM
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
01-14-2012, 08:30 AM
:( 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
01-14-2012, 08:43 AM
NEW error :P now it runs and just stops, it wont do my path...
it just stays put...
YoHoJo
01-14-2012, 08:53 AM
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.