srl.scar

SRL. SCAR的基本资源库!!!没有的人可下载

{****************************************************************************
                     Scar Standard Resource Library
****************************************************************************}

// * core
{.include srl\srl\core\Globals.scar}
{.include srl\srl\core\Users.scar}
{.include srl\srl\core\Math.scar}
{.include srl\srl\core\Timing.scar}
{.include srl\srl\core\MouseFlag.scar}
{.include srl\srl\core\GameTab.scar}
{.include srl\srl\core\Text.scar}
{.include srl\srl\core\DTM.scar}
{.include srl\srl\core\Color.scar}
{.include srl\srl\core\AutoTalk.scar}
{.include srl\srl\core\BitMap.scar}
{.include srl\srl\core\Symbol.scar}
{.include srl\srl\core\Inventory.scar}
{.include srl\srl\core\Login.scar}
{.include srl\srl\core\Object.scar}
{.include srl\srl\core\Depreciated.scar}
{.include srl\srl\core\MapWalk.scar}
{.include srl\srl\core\AntiRandoms.scar}
{.include srl\srl\core\AntiBan.scar}
{.include srl\srl\core\Bank.scar}

// * f2p
//{.include srl\srl\skill\Cooking.scar}
//{.include srl\srl\skill\Crafting.scar}
//{.include srl\srl\skill\Firemaking.scar}
//{.include srl\srl\skill\Fishing.scar}
//{.include srl\srl\skill\Magic.scar}
//{.include srl\srl\skill\Mining.scar}
//{.include srl\srl\skill\Prayer.scar}
//{.include srl\srl\skill\Ranging.scar}
//{.include srl\srl\skill\Runecrafting.scar}
//{.include srl\srl\skill\Smithing.scar}
//{.include srl\srl\skill\WoodCutting.scar}

// * p2p
//{.include srl\srl\skill\Agility.scar}
//{.include srl\srl\skill\Farming.scar}
//{.include srl\srl\skill\Fletching.scar}
//{.include srl\srl\skill\Herblore.scar}
//{.include srl\srl\skill\Slayer.scar}
//{.include srl\srl\skill\Thieving.scar}

// * meta
//{.include srl\srl\skill\Fighting.scar}

// * colorfinders
//{.include srl\srl\misc\FaladorColorFinder.scar}
//{.include srl\srl\misc\DraynorColorFinder.scar}

const MaskName= 'SCAR 2.03. Powered by SRL.';//Name you want scar to be disguised as.

//  SetCamera:string;

{*******************************************************************************
procedure DisguiseScar(disguise: string);
By: WT-Fakawi
Description: Sets Scar to custom disguise name in windowstray.
*******************************************************************************}

procedure DisguiseScar(disguise: string);
begin
  GetApplication.Title:= disguise;
  GetSelf.Caption:= disguise;
end;

{******************************************************************************
procedure SetupSRL;
By: WT-Fakawi
Description: Setup SRL.
*****************************************************************************}

procedure SetupSRL;
begin
  RoadColor  := 0;
  WaterColor := 0;
  BankColor  := 0;
  Banks      := 0;
  Frogs      := 0;
  kLastChoice  := -1;
  DisguiseScar(MaskName);

  UpChars    := LoadChars2(AppPath + 'CharsRS22\');
  SmallChars := LoadChars2(AppPath + 'CharsChat2\');
  StatChars  := LoadChars2(AppPath + 'CharsChat2\fontsmall\');
  NpcChars   := LoadChars2(AppPath + 'includes\SRL\CharsNPC\');

  LoadCoSineArrays;
  LoadSRLBitMaps;

  MarkTime(LogOutMark);
  MarkTime(RandomChatMark);
  MarkTime(RandomClickMark);
  MarkTime(RotateMark);
  MarkTime(KillScriptMark);
  MarkTime(LeaveScreenMark);
  MarkTime(HoverMark);
  MarkTime(ST);

  SetMouseMode(false);
  BenMouse:=True;
  MouseSpeed:=10;
  RandomPlayer:=False;
  ReinCarnate:=False;
  ScreenShots:=False;
  CheckHpFirst:=True;

// Found If You Forget to Set LampSkill in Script it Doesnt Work lol
  if LampSkill = '' then LampSkill := 'Mining';
  
  SymbolAccuracy:= 0.8;
end;