Invalid number of parameters in Azzon's Gnome Agility Runner [Archive] - SRL

matto

11-25-2007, 09:12 AM

***SOLVED PLEASE REMOVE/LOCK***

Hey,

When I run the script below I get this error:

Failed when compiling

Line 414: [Error] (15604:48): Invalid number of parameters in script C:\Documents and Settings\xxx\Desktop\GnomeAgilityRunner v3.0.scar

I am using SCAR Divi 3.12 and SRL4. (Note I uploaded the original script, without my account info)

ScarScript:By Drunkenoldma
//################################################## #######//################################################## #######//#### Azzon's Gnome Agility Runner ####//#### Version: 3.0 ####//#### - Fr0zn S0ul Edit - ####//################################################## #######//################################################## #######//#### ####//#### Hello, and Welcome. I would like to start ####//#### off by saying thank you for using this ####//#### script. If you have any questions, ####//#### suggestions, or problems related to this ####//#### script, then feel free to post on the ####//#### thread or send me a pm. ####//#### ####//#### You can find the player adjustable ####//#### variables for the script between lines ####//#### 76 and 94. ####//#### ####//#### You can setup the players using this ####//#### script between lines 104 and 118. Due note ####//#### that the script is only designed for a ####//#### single player, and the purpose of the ####//#### player setup is for Anti-Randoms. ####//#### ####//#### Thank you for using this script. ####//#### - Azzon ####//#### ####//#### This script is made using SCAR DIVI v3.12 ####//#### and SRL 4. ####//#### - Fr0zn S0ul ####//#### ####//################################################## #######//################################################## #######//#### ####//#### Fr0zn S0ul's additions: ####//#### *Made script acceptable for new runescape ####//#### interface and SRL 4 / SCAR 3.12. ####//#### *Added LogOut procedure for less randoms ####//#### and switch of players - requires your own ####//#### addition for extra players sorry, most ####//#### people only have one members account. ####//#### *Added LogOutWait variables. These mean that ####//#### after logging out and back in a certain ####//#### amount of times, your player will wait for ####//#### an amount of minutes before logging back in. ####//#### *Made script run a lot faster by removing and ####//#### reducing Wait times. ####//#### *Added Levels Gained and XP to next level ####//#### in the Player Report. ####//#### *Added more failsafes, as player got stuck ####//#### behind nets and pipe sometimes. ####//#### *Reduced the extra random x and y axis ####//#### additions, as they made player go slightly ####//#### off course sometimes. ####//#### *Remodeled the Declare Players procedure. ####//#### *Slightly adjusted some of the obstacle ####//#### colors. ####//#### ####//################################################## #######//################################################## #######program GnomeAgilityRunner; //931 Lines, With Spacers And Procedure Headers{.include SRL/SRL.scar} var x, y, LapsMade, LogAfter, LapsTillLog, tries, WaitOnPipe, LapsTillCheckRun, WaitOnFlagLoops : Integer; LostCount, LogOutWaitFor, LogOutWaitEvery, LogCounter, StartLevel, LevelsGained : Integer; NextLevel, XPNextLevel, NWorld, OWorld : Integer; FirstLap, s1_Complete, s2_Complete, s3_Complete, s4_Complete : Boolean; s5_Complete, s6_Complete, NewLap, LapComplete, FoundPipe, WalkingToStart, LogOutWait : Boolean; {.include SRL/SRL/misc/WorldSwitcher.scar} //################################################## ##############//## Manual Player Setup ##//################################################## ############## const g_ColorTol = 16; //Game Screen Color Tolerance. Lowering Will Make Script Run Faster. Too Low And It Won't Work! Laps = 150500; //Number Of Laps You Want The Script To Run For CheckRunLapDelay = 8; //Number Of Laps To Complete Before Calling CheckRun Again //################################//## Note: Unless You Experience##//## Color Problems, It Is ##//## Recommended To Leave The ##//## Color's As They Are. ##//################################ s_LogBalance_C1 = 868973; // Obstacle 1, Log Color s_LogBalance_C2 = 606056; // Obstacle 1, Log Color s_LogBalance_C3 = 602705; // Obstacle 1, Log Color s_ObstacleNet_C1 = 5530233; //Obstacle 2, Net Color s_ObstacleNet_C2 = 869744; //Obstacle 6, Net Color s_TreeBranch_C = 3431793; //Obstacle 3, and Obstacle 5, Tree Color s_BalancingRope_C = 4613245; //Obstacle 4, Rope Color s_ObstaclePipe_C = 5592411; //Obstacle 7, Pipe Color s_Mushroom_C = 2576031; //End Of Obstacle 7, Mushroom Color //################################################## ##############//################################################## ############## //####################################//## Player Setup Location ##//#################################### Procedure DeclarePlayers;begin SRLID := '0'; // Don't have this? Please Register at: SRLPassword := ''; // <a href="http://www.stats.srl-forums.com/" target="_blank">http://www.stats.srl-forums.com/</a> //You must let this script connect to <a href="http://www.villu-reborn.com/stats/stats.php" target="_blank">www.villu-reborn.com/stats/stats.php</a> to send script statistics to SRL! HowManyPlayers := 1; // How many players to use. NumberOfPlayers( HowManyPlayers ); // Leave this. CurrentPlayer := 0; // Start Player? ie. 0 = Players[0].name LogAfter := 10; // Log Out every how many laps? LogOutWait := true; // Every (LogOutWaitevery) logouts, log out for (LogOutWaitFor) extra amount of time? LogOutWaitEvery := 8; // How often to wait extra time at logout LogOutWaitFor := 10 + random(5); // Wait for how many extra MINUTES plus random(x) amount of time at LogOutWait? //LogOutWaitFor is in MINUTES! Players[0].Name := 'youruser0'; // UserName Players[0].Pass := 'yourpass1'; // Password Players[0].Nick := 'urus'; // 3/4 String of Name (ie: if accname is 'macroman' then set .nick at 'acro'). Script won't work if this is set wrong! Players[0].Active := True; // Use this account? True / Falseend; //####################################//## World Selector ##//#################################### {************************************************* ******************************function SelectWorld(Which: Integer): Boolean;By: WT-FakawiDescription: Selects World using ingame switcher.************************************************** *****************************} Procedure WorldSelect;Begin OWorld := NWorld; Repeat if Players[CurrentPlayer].Booleans[0] = false then Begin Repeat case random(54) of 0: NWorld := 12; 1: NWorld := 22 ; 2: NWorld := 23; 3: NWorld := 24; 4: NWorld := 26 5: NWorld := 27; 6: NWorld := 28; 7: NWorld := 31; 8: NWorld := 36; 9: NWorld := 39; 10: NWorld := 42; 11: NWorld := 44; 12: NWorld := 45; 13: NWorld := 46; 14: NWorld := 48; 15: NWorld := 54; 16: NWorld := 56; 17: NWorld := 58; 18: NWorld := 59; 19: NWorld := 64; 20: NWorld := 65; 21: NWorld := 66; 22: NWorld := 70; 23: NWorld := 71; 24: NWorld := 76; 25: NWorld := 77; 26: NWorld := 78; 27: NWorld := 79; 28: NWorld := 88; 29: NWorld := 89; 30: NWorld := 91; 31: NWorld := 92; 32: NWorld := 97; 33: NWorld := 98; 34: NWorld := 99; 35: NWorld := 100; 36: NWorld := 103; 37: NWorld := 104; 38: NWorld := 110; 39: NWorld := 111; 40: NWorld := 112; 41: NWorld := 114; 42: NWorld := 115; 43: NWorld := 116; 44: NWorld := 120; 45: NWorld := 121; 46: NWorld := 124; 47: NWorld := 129; 48: NWorld := 130; 49: NWorld := 131; 50: NWorld := 132; 51: NWorld := 137; 52: NWorld := 138; 53: NWorld := 143; end; until(Nworld <> OWorld); end; until(SelectWorld(NWorld)); ReportVars[1] := ReportVars[1] + 1;end; {************************************************* ******************************function SolveChatRandom: Boolean;By: Nielsie95Description: Solves a random when there's found one inchat.************************************************** *****************************} function SolveChatRandom2: Boolean;var Event: string;begin if (not SolveChatRandoms) or (not AreTalking) then Exit; Event := GetNPCEvent; case Capitalize(Event) of 'Unknown': Exit; 'Pious Pete': // Candle Lighting begin Writeln(Players[CurrentPlayer].Name + ': Stupid Pete =('); Logout; TerminateScript; Result := True; Exit; end; 'Mysterious Old Man': // Maze + Pinball begin if ((GetColor(83, 431) = 0) and (GetColor(88, 418) = 0)) or ((GetColor(83, 430) = 0) and (GetColor(88, 417) = 0)) or ((GetColor(151, 426) = 0) and (GetColor(470, 393) = 0) and (GetColor(372, 370) = 128)) then begin SolvePinball; end Exit; end; 'Quiz Master': FindQuiz; // Quiz Master 'Prison Pete': // ScapeRune balloons begin Inc(ScapeRunes); Writeln(Players[CurrentPlayer].Name + ': Yay Balloon Animals!'); Logout; TerminateScript; Result := True; Exit; end; 'Sergeant Damien': FindDemon; // Camo 'Leo The Gravedigger': // Zombie begin Writeln(Players[CurrentPlayer].Name + ': I Don' + chr(39) + 't Want To Dig Any Graves! '); Logout; TerminateScript; Result := True; Exit; end; 'Evil Bob': // ScapeRune island begin Inc(ScapeRunes); Writeln(Players[CurrentPlayer].Name + ': An Evil Cat? What is the World Coming To?!'); Logout; TerminateScript; Result := True; Exit; end; 'Freaky Forester': // Lederhosen begin Writeln(Players[CurrentPlayer].Name + ': Since When Do Birds Have More Than One Tail...'); Logout; TerminateScript; Result := True; Exit; end; 'Mr Mordaut': // Surprise Exam begin Writeln(Players[CurrentPlayer].Name + ': School? NO WAY!'); Logout; TerminateScript; Result := True; Exit; end; end;end; {************************************************* ******************************function FindNormalRandoms: Boolean;by: The SRL Developers Team!... all time sexiness by MutantDescription: Calls the 'normal' random checks.************************************************** *****************************} function FindNormalRandoms2: Boolean;var i: Integer;begin for i := 0 to 14 do begin case I of 0: if SolveChatRandom2 then Result := True; 1: if SolveTalkingRandom(Players[CurrentPlayer].Nick) then Result := True; 2: Respond; 3: if FindTalk then Result := True; 4: if FindDead then Begin Writeln(Players[CurrentPlayer].Name + ': Noooo I died =...('); Logout; Result := True; TerminateScript; end; 5: if FindMod then Begin Writeln(Players[CurrentPlayer].Name + ': Ooh A Moderator!'); Result := True; end; 6: if FindDemon then Result := True; 7: if FindMime then Begin Writeln(Players[CurrentPlayer].Name + ': Miming?! Why Can' + chr(39) + 't You Just Talk?'); TerminateScript; Result := True; end; 8: if FindMaze then Begin Writeln(Players[CurrentPlayer].Name + ': Aww Mazes Are Too Hard =('); TerminateScript; Result := True; end; 9: if FindQuiz then Result := True; 10: if FindTalk then // Call it twice Result := True; 11: if FindLamp(LampSkill) then // Maybe we missed it? Result := True; 12: if (FindBox) then begin Result := True; if (UseBoxSolver) then SolveBox else GambleBox; end; 13: begin if NoGameTab then begin Wait(3000 + Random(300)); if SolveChatRandom2 then begin Result := True; Exit; end; Logout; TerminateScript; Result := True; Exit; end; end; 14: if RC then Result := True; end; if Result then Break; end; If Not(LoggedIn) then Begin Writeln(Players[CurrentPlayer].Name + ': Hey Why Are We Just Sitting Here?'); WorldSelect; LogInPlayer; end;end; //####################################//## AntiRandom Procedure ##//#################################### Procedure AntiRandoms;begin FindNormalRandoms2; DwarfItem;end; //####################################//## Greeting Procedure ##//#################################### procedure A_Greeting; begin WriteLn('#################################'); WriteLn('## Welcome ##'); WriteLn('## You Are Using ##'); WriteLn('## A Script Created By Azzon ##'); WriteLn('## Enjoy ##'); WriteLn('## - Fr0zN S0uL Edit - ##'); WriteLn('#################################'); end; //####################################//## Player Report Procedure ##//#################################### procedure PlayerReport; begin LevelsGained := GetSkillLevel('agility') - StartLevel; XPNextLevel := XpTilNextLevel('agility', false); NextLevel := GetSkillLevel('agility') + 1; ClearDebug; WriteLn('() (======================================)'); WriteLn('() (= Azzons Gnome Agility Course Runner =)'); WriteLn('() (= - Fr0zn S0ul Edit - =)'); WriteLn('() (======================================)'); WriteLn('() (= Laps Completed : ' + IntToStr(LapsMade)); WriteLn('() (= Laps Left : ' + IntToStr(Laps - LapsMade)); WriteLn('() (= Levels Gained : ' + IntToStr(LevelsGained)); Writeln('() (= ' + IntToStr(XPNextLevel) + ' XP To Level ' + IntToStr(NextLevel) + ' Agility'); Writeln('() (= Script Running For ' + TimeRunning); WriteLn('() (======================================)'); SRLRandomsReport;end; //####################################//## CheckForLevel Procedure ##//#################################### procedure CheckForLevel;begin if Not(FindText(x,y,Players[CurrentPlayer].Nick,SmallChars,7,457,117,476)) then begin repeat ClickToContinue; until(FindText(x,y,Players[CurrentPlayer].Nick,SmallChars,7,457,117,476)); end;end; //####################################//## WaitOnFlag Procedure ##//#################################### procedure WaitOnFlag; begin WaitOnFlagLoops := 0; repeat Wait(500+random(250)); AntiRandoms; CheckForLevel; WaitOnFlagLoops := WaitOnFlagLoops + 1; if WaitOnFlagLoops = 18 then begin Mouse(250, 210, 32, 32, true); end; if not(LoggedIn) then Exit; until(FlagPresent = false); end; //####################################//## 1st Obstacle Procedure ##//#################################### procedure s1_LogBalance; begin tries := 0; repeat if (tries = 3) then begin if FindSymbol(x, y, 'agility') then begin Mouse(x, y + 10, 6, 6, true); WaitOnFlag; tries := 0; end; end; AntiRandoms; if FindObjCustom(x, y, ['Log balance'], [s_LogBalance_C1, s_LogBalance_C2, s_LogBalance_C3], g_ColorTol) then begin Mouse(x, y, 6, 6, true); WaitOnFlag; Wait(2250 + random(500)); end; tries := tries + 1; Wait(750+random(375)); if (not(LoggedIn)) then Exit; until(FindBlackChatMessage('carefully') or FindBlackChatMessage('safely') or FindBlackChatMessage('advanced')); repeat Wait(250+random(125)); CheckForLevel; AntiRandoms; if FindBlackChatMessage('safely') or FindBlackChatMessage('advanced') then begin case random(3) of 0: Begin Mouse(200, 260, 32, 32, true); wait(100 + random(100)); end; 1: Begin Mouse(240, 250, 32, 32, true); wait(100 + random(100)); end; 2: Begin Mouse(300, 250, 32, 32, true); wait(100 + random(100)); end; end; s1_Complete := true; end else LostCount := LostCount + 1; if (not(LoggedIn)) then Exit; if (LostCount >= 4) then begin Repeat if FindSymbol(x, y, 'agility') then begin Mouse(x, y + 10, 6, 6, true); WaitOnFlag; tries := 0 break; end else if (tries = 3) then Begin Logout; Writeln(Players[CurrentPlayer].Name + ': Could not find agility symbol. Logged Out.'); end; tries := tries + 1; wait(500 + random(250)); until(tries = 5); end; until(s1_Complete = true); tries := 0 LostCount := 0 end; //####################################//## 2nd Obstacle Procedure ##//#################################### procedure s2_ObstacleNet; begin repeat WaitOnFlag; if FindObj(x, y, 'Obstacle net', s_ObstacleNet_C1, g_ColorTol) then begin Mouse(x, y, 2, 2, true); Wait(750 + random(250)); end; if FindBlackChatMessage('that from here') then begin GameTab(7); Wait(100 + random(250)); Mouse(620,430,0,0,true); Wait(100 + random(250)); Mouse(260,80,2,2,true); WaitOnFlag; end; Wait(750+random(250)); CheckForLevel; AntiRandoms; if (not(LoggedIn)) then Exit; until(FindBlackChatMessage('netting') or FindBlackChatMessage('advanced')); repeat Wait(250+random(125)); CheckForLevel; AntiRandoms; if FindBlackChatMessage('netting') or FindBlackChatMessage('advanced') then begin s2_Complete := true; wait(500 +random(250)); end; if (not(LoggedIn)) then Exit; until(s2_Complete = true); end; //####################################//## 3rd Obstacle Procedure ##//#################################### procedure s3_TreeBranch; begin repeat WaitOnFlag; if FindObj(x, y, 'Tree branch', s_TreeBranch_C, g_ColorTol) then begin Mouse(x, y, 3, 3, true); end; Wait(1000+random(500)); CheckForLevel; AntiRandoms; if (not(LoggedIn)) then Exit; until (FindBlackChatMessage('tree.') or FindBlackChatMessage('platform')); Wait(250+random(125)); repeat CheckForLevel; AntiRandoms; Wait(500+random(150)); if FindBlackChatMessage('platform') or FindBlackChatMessage('advanced') then begin Mouse(325, 200, 20, 6, true); WaitOnFlag; s3_Complete := true; end; if Not(FindBlackChatMessage('platform') or FindBlackChatMessage('advanced')) then begin Mouse(278, 188, 0, 0, true); end; if (not(LoggedIn)) then Exit; until(s3_Complete = true); end; //####################################//## 4th Obstacle Procedure ##//#################################### procedure s4_BalancingRope; begin repeat WaitOnFlag; if FindObj(x, y, 'Balancing rope', s_BalancingRope_C, g_ColorTol) then begin Mouse(x, y, 2, 2, true); end; WaitOnFlag; Wait(250+random(125)); CheckForLevel; AntiRandoms; if (not(LoggedIn)) then Exit; until(FindBlackChatMessage('carefully') or FindBlackChatMessage('advanced')); Wait(250+random(125)); repeat CheckForLevel; AntiRandoms; Wait(500+random(250)); if FindBlackChatMessage('tightrope') or FindBlackChatMessage('advanced') then begin s4_Complete := true; end; if FindBlackChatMessage('reach') then begin Mouse(x - 20 + random(10), y, 0, 0, true); end; if (not(LoggedIn)) then Exit; until(s4_Complete = true); end; //####################################//## 5th Obstacle Procedure ##//#################################### procedure s5_TreeBranch; begin repeat WaitOnFlag; if FindObj(x, y, 'Tree branch', s_TreeBranch_C, g_ColorTol) then begin Mouse(x, y, 3, 3, true); WaitOnFlag; end; Wait(750+random(325)); CheckForLevel; AntiRandoms; if (not(LoggedIn)) then Exit; until(FindBlackChatMessage('tree') or FindBlackChatMessage('ground') or FindBlackChatMessage('advanced')); Wait(250+random(125)); repeat CheckForLevel; AntiRandoms; Wait(250+random(125)); if FindBlackChatMessage('ground') or FindBlackChatMessage('advanced') then begin case random(3)+1 of 1: Mouse(240, 50, 8, 8, true); 2: Mouse(170, 75, 8, 8, true); 3: Mouse(310, 45, 8, 8, true); end; s5_Complete := true; end; if (not(LoggedIn)) then Exit; until(s5_Complete = true); end; //####################################//## 6th Obstacle Procedure ##//#################################### procedure s6_ObstacleNet; begin repeat WaitOnFlag; if FindObj(x, y, 'Obstacle net', s_ObstacleNet_C2, g_ColorTol) then begin Mouse(x, y, 2, 2, true); WaitOnFlag end; Wait(250+random(125)); CheckForLevel; AntiRandoms; if FindBlackChatMessage('not do that from') then begin s6_Complete := true; break; end; if (not(LoggedIn)) then Exit; until(FindBlackChatMessage('netting') or FindBlackChatMessage('advanced')); Wait(250+random(125)); repeat CheckForLevel; AntiRandoms; if FindBlackChatMessage('netting') or FindBlackChatMessage('advanced') then begin s6_Complete := true; end; if (not(LoggedIn)) then Exit; until(s6_Complete = true); end; //####################################//## Pipe Finder Procedure ##//#################################### procedure PipeFinding; begin repeat WaitOnFlag; if FindObj(x, y, 'Obstacle pipe', s_ObstaclePipe_C, g_ColorTol) then begin Mouse(x, y, 4, 4, true); WaitOnFlag; PlayerReport; Wait(2000+random(1000)); if FindBlackChatMessage('this side') or FindBlackChatMessage('enter') or FindBlackChatMessage('ide')then begin FoundPipe:=True end; if FindBlackChatMessage('being') then begin FoundPipe := false; end else begin FoundPipe := true; WaitOnPipe := 0; end; end; Wait(500+random(250)); AntiRandoms; if (not(LoggedIn)) then Exit; until(FoundPipe = true); end; //####################################//## 7th Obstacle Procedure ##//#################################### procedure s7_ObstaclePipe; begin PipeFinding; repeat CheckForLevel; AntiRandoms; Wait(500+random(250)); if FindColorTolerance(x, y, s_Mushroom_C, msx1, msy1, msx2, msy2, g_ColorTol) then begin tries := 0; repeat if FindSymbol(x, y, 'agility') then begin Mouse(x, y + 10, 6, 6, true); WalkingToStart := true; WaitOnFlag; LapComplete := true; end; tries := tries + 1; if (not(LoggedIn)) then Exit; until((WalkingToStart = true) or (tries = 12)); if (tries = 12) then begin LogOut; WriteLn('Couldnt find the agility symbol.'); end; end else begin WaitOnPipe := WaitOnPipe + 1; end; if (WaitOnPipe = 3) then begin PipeFinding; end; until(LapComplete = true); tries := 0 end; //####################################//## Global Script Setup ##//#################################### procedure SetupAgilityRunner; begin SetupSRL; ScriptID := '353' ClearDebug; Disguise('iTunes'); A_Greeting; ActivateClient; Wait(250+random(125)); FirstLap := true; DeclarePlayers; WriteLn(Players[CurrentPlayer].Name + ': "Time to Run!"'); GetApplication.MINIMIZE; LoginPlayer; LapsMade := 1 LapsTillLog := LogAfter + random(5); LogCounter := 0; LostCount := 0; OWorld := 0; NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, Upchars); StartLevel := GetSkillLevel('agility'); HighestAngle; MakeCompass('N'); end; //################################################## ######################//################################################## ###################### //####################################//## Main Loop ##//#################################### begin SetupAgilityRunner; Wait(100+random(50)); Mouse(32,491,0,0,true); SetChat('friends', 1); SetChat('off', 2); repeat if (not(LoggedIn)) then Exit; if (FirstLap = true) then begin LapsTillCheckRun := CheckRunLapDelay; SetRun(true); FirstLap := false; s1_LogBalance; end; if LapsTillCheckRun <= 0 then begin LapsTillCheckRun := CheckRunLapDelay; SetRun(true); end; if NewLap = true then begin NewLap := false; LapsTillCheckRun := LapsTillCheckRun - 1; HighestAngle; MakeCompass('N'); s1_LogBalance; end; if s1_Complete = true then begin s1_Complete := false; s2_ObstacleNet; end; if s2_Complete = true then begin s2_Complete := false; s3_TreeBranch; end; if s3_Complete = true then begin s3_Complete := false; s4_BalancingRope; end; if s4_Complete = true then begin s4_Complete := false; s5_TreeBranch; end; if s5_Complete = true then begin s5_Complete := false; s6_ObstacleNet; end; if s6_Complete = true then begin s6_Complete := false; s7_ObstaclePipe; end; if LapComplete = true then begin LapComplete := false; LapsMade := LapsMade + 1; ReportVars[0] := ReportVars[0] + 1; LapsTillLog := LapsTillLog - 1; NewLap := true; end; if (LapsTillLog <= 0) then begin LogOut; wait(500 + random(250)); LogCounter := LogCounter + 1; if LogOutWait = true then begin if (LogOutWaitEvery <= LogCounter) then begin LogCounter := 0; Wait(LogOutWaitFor * 60000); end; end; WorldSelect; LoginPlayer; LapsTillLog := LogAfter + random(5) SetRun(true); end; until(LapsMade >= Laps); if (LapsMade >= Laps) then begin LogOut; WriteLn('Training Was A Success.'); WriteLn('Thanks For Using My Script! Have a Nice Day =)'); end else begin WriteLn('A Problem Was Encountered During Training.'); WriteLn('Thanks For Using My Script! Have a Nice Day =)'); end;end. //################################################## ######################//################################################## ######################