TheSantaMan
2009-01-27 02:40:03
Well i get this error when running this program. I can't figure it out. I'm sure there some things wrong with the script but i really just started it so don't be to harsh..
Edit:
So i completely uninstalled my SCAR, then i reinstalled, and got version 31 of SRL, installed the new reflection using widgets installer. That is all that's in there; no tampering. So .. yeh
error :
Edit:
So i completely uninstalled my SCAR, then i reinstalled, and got version 31 of SRL, installed the new reflection using widgets installer. That is all that's in there; no tampering. So .. yeh
program jesus45puretrainer;
{.Include SRL\SRL\Misc\Smart.Scar}
{.Include SRL\SRL.Scar}
{.Include SRL\SRL\Reflection\Reflection.Scar}
{.include D-Include\DInclude.scar}
var
x, y, Axe: integer;
const
////////////////////////////////////////////////////////
Activity = True; // Wood cut or mine? //
AxeWield = False; // is axe wielded? //
//
//
//
//////////////////////////////////////////////////
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //How many Players
NumberOfPlayers(HowManyPlayers);
CurrentPlayer :=0; //Starting Player
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
// 1 for wc 2 for mine (both in lumby)
end;
{/////////////////////////////////////////////////////////////////////////
//
//
DO NOT TOUCH BELOW HERE, UNLESS YOU KNOW WHAT YOUR DOING ;) //
//
}////////////////////////////////////////////////////////////////////
procedure Hello;
begin
writeln(' WElCOME TO JESUS45 LUMBY PWNER ');
wait(250);
writeln(' ENJOY! ');
wait(200);
writeln(' and dont be a noob or ill flamzor you :)');
end;
Procedure Dtms;
begin
Axe := DTMFromString('78DA633467666028636440066D29020C82401' +
'A26CA680F54938DAA06260B57E30A549347408D23504D310135C6' +
'40352D04D45810760F00D4B8054D');
end;
function LoadPath1: TPointArray;
begin
SetLength(Result, 5);
Result[0] := (Point(3229, 3219));
Result[1] := (Point(3235, 3225));
Result[2] := (Point(3224, 3235));
Result[3] := (Point(3209, 3246));
Result[4] := (Point(3194, 3240));
end;
function Path: boolean;
begin
Result := WalkPath(LoadPath1);
if Result then Writeln('Walked path!');
end;
procedure Mainloop;
begin
DeclarePlayers;
Hello;
LoadPath1;
Path;
end.error :
Line 8: [Error] (20423:1): Duplicate identifier 'RSBuild' in script C:\Program Files (x86)\SCAR 3.15\includes\SRL\SRL\Reflection\Hooks.Scar