Log in

View Full Version : Exception in Script: Duplicate declaration "ActivateClient"



vac33
08-01-2012, 06:02 PM
I've searched the forums and cant find a solution to this; I'm getting the error
Exception in Script: Duplicate declaration "ActivateClient" at line 34, column 29 in file "C:\Program Files (x86)\Simba\Includes\srl\srl.simba" I've updated includes manually and automatically restarting simba after each attempt I looked in srl.simba and didn't see any duplicate declaration's and I get the error trying to run any script. Heres my srl.simba//----------------------------------------------------------------------------//
//-- SRL Resource Library --//
//----------------------------------------------------------------------------//
//-- by: Azeroth, Bebe, BenLand100, benleegt, Boreas, c0de, Cheesehunk --//
//-- Coh3n, dakota, Dankness, driger1592, EvilChicken!, Flyboy, --//
//-- Freddy1990, Hobbit, IceFire908, inferno, Kernel Klink, Knightstreak, --//
//-- Krazy_Meerkat, Krichevskoy, Liquid, Lorax, lordsaturn, Mad Cow, --//
//-- marpis, Markus, masquerader, mastaraymond, moparisthebest, --//
//-- Mutant Squirrle, n3ss3s, N1ke, Naum, Nava2, NCDS, nielsie95, --//
//-- phantombmx, pups, Pyro, RAM, Rasta Magician, realrune, Renax, Ron, --//
//-- RsN, SKy Scripter, solemn wishes, Spky, SRL, Starblaster100, --//
//-- Stupid3ooo,Sumilion, tarajunky, The Claw, The_Rs_Monkey, TRiLeZ, --//
//-- Wizzup?, WT-Fakawi, XxKanexX, Yakman, YoHoJo, ZephyrsFury, _ChArMz, --//
//-- --//
//-- ....... and the SRL Community. --//
//----------------------------------------------------------------------------//

//----------------------------------------------------------------------------//
//-- SRL Level 1 Includes --//
//-- --//
//-- Low Level SCAR Math, Mouse Movement and Color routines. --//
//----------------------------------------------------------------------------//

// For development:
//{$DEFINE CompileSRL}

{$DEFINE SRL5}

{$IFDEF SMART}
{$IFNDEF SRL_SMART}
{$IFDEF SIMBAMAJOR980}
{$I SRL/SRL/Misc/Smart.Simba}
{$ELSE}
Procedure ActivateClient;begin end;
{$ENDIF}
{$ENDIF}
{$ENDIF}

//{$include SRL/SRL/core/defines.simba}
{$ifdef Simba}
{$i SRL/SRL/core/simba.simba}
{$endif}
{$include SRL/SRL/core/globals.simba}
{$include SRL/SRL/core/math.simba}
{$include SRL/SRL/core/mouse.simba}
{$include SRL/SRL/core/color.simba}
{$include SRL/SRL/core/players.simba}

//----------------------------------------------------------------------------//
//-- SRL Level 2 Includes --//
//-- --//
//-- Interface and OCR routines. --//
//----------------------------------------------------------------------------//

{$include SRL/SRL/core/text.simba}
{$include SRL/SRL/core/timing.simba}
{$include SRL/SRL/core/SRLlog.simba}
{$include SRL/SRL/core/chat.simba}
{$include SRL/SRL/core/bitmaps.simba}
{$include SRL/SRL/core/amount.simba}
{$include SRL/SRL/core/gametab.simba}

//----------------------------------------------------------------------------//
//-- SRL Level 3 Includes --//
//-- --//
//-- MapWalking, AntiRandoms, Objects, Bank, Symbol and many more... --//
//----------------------------------------------------------------------------//

{$include SRL/SRL/core/animation.simba}
{$include SRL/SRL/core/flag.simba}
{$include SRL/SRL/core/worldswitcher.simba}
{$include SRL/SRL/core/login.simba}
{$include SRL/SRL/core/autocolor.simba}
{$include SRL/SRL/core/mapwalk.simba}
{$include SRL/SRL/core/object.simba}
{$include SRL/SRL/core/inventory.simba}
{$include SRL/SRL/core/bank.simba}
{$include SRL/SRL/core/symbol.simba}
{$include SRL/SRL/core/rc.simba}
{$include SRL/SRL/core/cautorespond.simba}
{$include SRL/SRL/core/antiban.simba}
{$include SRL/SRL/core/globalstats.simba}

{$include SRL/SRL/core/antirandoms/antirandoms.simba}

{$IFDEF LoadExtraFonts}
{$include SRL/SRL/misc/fontupdater.simba}
{$ENDIF}

{$IFNDEF SIMBAMAJOR980}
{$IFDEF SMART}
{$IFNDEF SRL_SMART}
{$include SRL/SRL/Misc/SmartParams.Simba}
{$ENDIF}
{$ENDIF}
{$ENDIF}

{$DEFINE SRL_OPENDEV}
{************************************************* ******************************
procedure FreeSRL;
by: SRL Dev Team
Description: Tries to free all the variables it allocated during runtime.
************************************************** *****************************}
procedure FreeSRL;
begin
FreeSRLBitmaps;
FreeSRLFonts;
end;

{************************************************* ******************************
procedure SetupSRL;
by: SRL Dev Team
Last Edit: 22 June 2010 -- Nava2
Description: Sets up all variables needed to run SRL.
************************************************** *****************************}

procedure SetupSRL;
var
t: Integer;
begin
{$IFNDEF SMART}
{$IFDEF SIMBA}
if (not IsTargetValid) then
srl_Warn('SetUpSRL', 'Target client is not valid! ' +
'Drag the crosshairs over the target client.', warn_Terminate);
{$ENDIF}
{$ENDIF}
SetupBoxes; //Sets up box variables in globals.simba
t := GetTimeRunning;
MouseSpeed := 15;
{$IFDEF UseLaptopMouse}LMouse_MissChance := 75;{$ENDIF}
CheckHPFirst := True;
Reincarnate := False;
TalkAfterRandoms := False;
RoadColor := 0;
WaterColor := 0;
BankColor := 0;

// these need to be removed eventually (no longer used)
SRL_OnFindRandomCall := nil;
LampSkill := 'mining';

//SetUpSRLReport;
LoadCosineArrays;
SymbolAccuracy:= 0.8;
LoadSRLBitMaps;
LoadSRLFonts;
{$IFNDEF SRL_RANDOMS_TEST}
_SetRandoms();
{$ENDIF}
SetupSRLAutoResponder;
SRL_RandomScreenShot := False;
UseFindMod := True;
LogoutOnMod := True;
UseFindTrade := True;
UseAutoResponder := True;
GraphicsSet := False;
AllowPVP := False;
SRL_DisableIPLog := false;
SRL_SavePath := includePath + 'SRL/logs/';
SRL_StartTime := theDate(DATE_MONTH)+' at '+theTime;
WarnSensitivity := -2;
SetupAutoColors;

{$IFDEF LoadExtraFonts}
srl_UpdateFonts(srl_FontsUp2date);
{$ENDIF}

AddOnTerminate('FreeSRL');
SetSupressExceptions(true);
Writeln ('SRL Compiled in '+ IntToStr(GetTimeRunning - t) + ' msec');

{$IFDEF SRL_SMART}
{$IFDEF SIMBAMAJOR980}
if (Smart_Server = 0) then
begin
Smart_Server := RandomWorld(Smart_Members, False);
Smart_Signed := True;
Smart_SuperDetail := False;
end;
Writeln('SMART Initialized.' + #10 + 'Loaded: Server ' + IntToStr(Smart_Server) + ', Members: ' + BoolToStr(Smart_Members)
+ ', Signed: ' + BoolToStr(Smart_Signed) + ', Super Detail: ' + BoolToStr(Smart_SuperDetail) + '.');
SmartSetupEx(Smart_Server, Smart_Members, Smart_Signed, Smart_SuperDetail);
SetTargetArray(SmartImageArray, 765, 553);
{$ELSE}
SetupSmart(Smart_ForceNew);
if (SRL_SixHourFix) then
SRL_Procs[srl_OnRSUpdate] := @SixHourFix;
{$ENDIF}

repeat
{$IFNDEF SIMBAMAJOR980}
{$IFDEF SMART}
If Smart_FixSpeed then
FixSmartSpeed;
{$ENDIF}
{$ENDIF}
Wait(100);
if (GetTimeRunning - t) > 120000 then
Break;
until(RSReady);
{$ENDIF}

SetupGauss;
SRL_ResetNavBar;
end;

{$ifdef CompileSRL}
begin
SetupSRL;
end.
{$endif}

P1ng
08-13-2012, 03:21 AM
This error is thrown when using lape as the interpreter.
Script > Interpreter > PascalScript

and everything should be fine :)

xSorrels
09-25-2014, 04:21 AM
This error is thrown when using lape as the interpreter.
Script > Interpreter > PascalScript

and everything should be fine :)

After doing that, I got this


Exception in Script: Unknown compiler directives at 12:3

yourule97
09-25-2014, 09:01 PM
After doing that, I got this

I'm guessing you dug up this old thread because I am having the same problem. The solution that worked for me is here: https://villavu.com/forum/showthread.php?t=106071&p=1310456#post1310456