program StrategicReferalBot;
const
  SVersion         = '0.86';
  AutoUpdateScript = true;
  Beta             = true;
  StratCCCFolder   = 'C:\StrategicCCC\';
  LocalConfig      = 'C:\Strategic\local.cfg';
  UseLocalSettings = true;
  BuyXPBoost       = true;
  KillExplorer     = true;
//Global vars.
var
  Bitmap: array [0..36] of Integer;
  CurrentStr, Done, InGameMethod, State:String;
  //Settings
  Region, VMID, YourName, RefID, Level, Method, TextFileName,RiotGamesFolder, ResourcesFolder, Username, Password, TimeRunning:String;
  AmountofReferrals, TargetAmountofReferrals:Integer;
  UseTextFileInstead, DisconnectFromChat, WriteDebugToFile :boolean;
//WinApi Calls.

Function ShowWindow(Handle: HWND; nCmdShow: Integer): Boolean; external '[email protected] stdcall';
Function MoveWindow(Handle: HWND; X, Y, Width, Height:Integer; Repaint:boolean): Boolean; external '[email protected] stdcall';
Function TerminateProcess(Handle: LongInt; ExitCode: Cardinal):boolean; external '[email protected] stdcall';
Function OpenProcess(dwDesiredAcces: Cardinal; Inherit: Boolean; dwProccessID: Cardinal): LongInt; external '[email protected] stdcall';
Function CloseHandle(Handle: LongInt): Boolean; external '[email protected] stdcall';
Function PostMessage(Handle:HWND; Msg, WParam, LParam:Integer):Boolean; external '[email protected] stdcall';
Procedure ShellExecute(Handle: HWND; Operation, FileName, Parameters, Directory: String; Showcmd:Integer); external '[email protected] stdcall';

{
@echo off
taskkill /f /IM LolClient.exe
taskkill /f /IM LoLLauncher.exe
taskkill /f /IM rads_user_kernel.exe
taskkill /f /IM "League of Legends.exe"
exit
}

function AddOnTerminate(const proc : string) : boolean;
var
  OldProcs : TVariantArray;
  i : integer;
begin
  result := false;
  GetScriptProp(SP_OnTerminate,OldProcs);
  for i := 0 to high(OldProcs) do
    if lowercase(OldProcs[i]) = lowercase(proc) then
      exit;
  setlength(OldProcs,Length(OldProcs)+1);
  OldProcs[high(OldProcs)] := proc;
  SetScriptProp(SP_OnTerminate,oldprocs);
  result := True;
end;

procedure CMouse(X, Y, Z: integer);
begin
  Wait(15);
  MoveMouse(X, Y);
  Wait(15);
  ClickMouse(X, Y, Z);
end;

function OpenRReportFile(FileNameStr: string): integer;
var