From 83d27835a40b5b6a445dda24a606fcc2650ef754 Mon Sep 17 00:00:00 2001
From: Cohen Adair <cohenadair@gmail.com>
Date: Wed, 24 Aug 2011 15:40:28 -0700
Subject: [PATCH] Extensions: SRLRemote.sex

---
 Extensions/SRLRemote.sex | 783 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 783 insertions(+)
 create mode 100644 Extensions/SRLRemote.sex

diff --git a/Extensions/SRLRemote.sex b/Extensions/SRLRemote.sex
new file mode 100644
index 0000000..137565f
--- /dev/null
+++ b/Extensions/SRLRemote.sex
@@ -0,0 +1,783 @@
+(**
+ * This extension was developed by Shuttleu. If you have any questions
+ * concerning this extension, please post in the MSI Forums here:
+ * http://villavu.com/forum/showthread.php?t=66074
+ *
+ *   - Shuttleu
+ *
+ * - This extension was last updated 16 August 2011 by Shuttleu
+ *)
+
+program New;
+
+const
+  Extension = '.ini';
+
+type
+  ThePlayer = record
+    User, Pass, Nick, Loc, Pin: string;
+    Strings: array of string;
+    Integers: TIntegerArray;
+    Booleans: array of Boolean;
+    Active: Boolean;
+end;
+
+var
+  MyMenu, SRLRemoteMenuItem: TMenuItem;
+  ThePlayers: Array of ThePlayer;
+  Remote : TForm;
+  UserLabel, PassLabel, NickLabel, PinLabel, ActiveLabel, PlayerLabel : TLabel;
+  Active : TCheckBox;
+  User, Pass, Nick, Pin : TEdit;
+  SetButton1, SetButton2, CloseButton2, PreviousButton : TButton;
+  AddButton, DeleteButton, NextButton : TButton;
+  IntegersLabel, StringsLabel, BooleansLabel : array of TLabel;
+  Strings : array of TComboBox;
+  Booleans : array of TCheckBox;
+  Integers : array of TEdit;
+  HowManyPlayerss, PlayerNumber: Integer;
+  INIPath, TheScriptName: string;
+  IntegerNames, BooleanNames, StringNames: TStringArray;
+  TheStrings: Array of Array of string;
+  InstanceArray: TIntegerArray;
+    OpenInstance : TForm;
+  Label1 : TLabel;
+  InstanceNumber : TComboBox;
+  SetButton : TButton;
+  CloseButton : TButton;
+  OpenMain: Boolean;
+  ScriptNames: array of string;
+
+procedure LoadVars;
+var
+  i, j: Integer;
+begin
+  HowManyPlayerss:= StrToInt(ReadINI('Players', 'HowMany', INIPath));
+  SetArrayLength(IntegerNames, StrToInt(ReadINI('Players', 'Integers', INIPath)));
+  SetArrayLength(StringNames, StrToInt(ReadINI('Players', 'Strings', INIPath)));
+  SetArrayLength(BooleanNames, StrToInt(ReadINI('Players', 'Booleans', INIPath)));
+  SetArrayLength(TheStrings, Length(StringNames));
+  for i:=0 to High(TheStrings) do
+    SetArrayLength(TheStrings[i], StrToInt(ReadINI('Strings', '('+IntToStr(i)+')HowMany', INIPath)));
+  for i:=0 to High(TheStrings) do
+    for j:=0 to High(TheStrings[i]) do
+      TheStrings[i][j]:= ReadINI('Strings', '('+IntToStr(i)+')('+IntToStr(j)+')', INIPath);
+  for i:=0 to High(IntegerNames) do
+    IntegerNames[i]:= ReadINI('Integers', IntToStr(i), INIPath);
+  for i:=0 to High(StringNames) do
+    StringNames[i]:= ReadINI('Strings', IntToStr(i), INIPath);
+  for i:=0 to High(BooleanNames) do
+    BooleanNames[i]:= ReadINI('Booleans', IntToStr(i), INIPath);
+  SetArrayLength(ThePlayers, HowManyPlayerss);
+  for i:=0 to HowManyPlayerss-1 do
+  begin
+    SetArrayLength(ThePlayers[i].Integers, StrToInt(ReadINI('Players', 'Integers', INIPath)));
+    SetArrayLength(ThePlayers[i].Strings, StrToInt(ReadINI('Players', 'Strings', INIPath)));
+    SetArrayLength(ThePlayers[i].Booleans, StrToInt(ReadINI('Players', 'Booleans', INIPath)));
+    ThePlayers[i].User:= ReadINI(IntToStr(i), 'User', INIPath);
+    ThePlayers[i].Pass:= ReadINI(IntToStr(i), 'Pass', INIPath);
+    ThePlayers[i].Nick:= ReadINI(IntToStr(i), 'Nick', INIPath);
+    ThePlayers[i].Pin:= ReadINI(IntToStr(i), 'Pin', INIPath);
+    for j:=0 to High(ThePlayers[i].Integers) do
+      ThePlayers[i].Integers[j]:= StrToInt(ReadINI(IntToStr(i), 'Integer'+IntToStr(j), INIPath));
+    for j:=0 to High(ThePlayers[i].Strings) do
+      ThePlayers[i].Strings[j]:= ReadINI(IntToStr(i), 'String'+IntToStr(j), INIPath);
+    for j:=0 to High(ThePlayers[i].Booleans) do
+      ThePlayers[i].Booleans[j]:= StrToBool(ReadINI(IntToStr(i), 'Boolean'+IntToStr(j), INIPath));
+    ThePlayers[i].Active:= StrToBool(ReadINI(IntToStr(i), 'Active', INIPath));
+  end;
+end;
+
+procedure SaveVars;
+var
+  i, j: Integer;
+begin
+  ThePlayers[PlayerNumber].User:= User.Text;
+  ThePlayers[PlayerNumber].Pass:= Pass.Text;
+  ThePlayers[PlayerNumber].Nick:= Nick.Text;
+  ThePlayers[PlayerNumber].Pin:= Pin.Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    ThePlayers[PlayerNumber].Integers[j]:= StrToInt(Integers[j].Text);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    ThePlayers[PlayerNumber].Strings[j]:= Strings[j].Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    ThePlayers[PlayerNumber].Booleans[j]:= Booleans[j].Checked;
+  ThePlayers[PlayerNumber].Active:= Active.Checked;
+
+  WriteINI('Main', 'Changed', 'True', INIPath);
+  WriteINI('Players', 'HowMany', IntToStr(Length(ThePlayers)), INIPath);
+  WriteINI('Players', 'Integers', IntToStr(Length(ThePlayers[0].Integers)), INIPath);
+  WriteINI('Players', 'Strings', IntToStr(Length(ThePlayers[0].Strings)), INIPath);
+  WriteINI('Players', 'Booleans', IntToStr(Length(ThePlayers[0].Booleans)), INIPath);
+
+
+  for i:=0 to High(ThePlayers) do
+  begin
+    WriteINI(IntToStr(i), 'User', ThePlayers[i].User, INIPath);
+    WriteINI(IntToStr(i), 'Pass', ThePlayers[i].Pass, INIPath);
+    WriteINI(IntToStr(i), 'Nick', ThePlayers[i].Nick, INIPath);
+    WriteINI(IntToStr(i), 'Pin', ThePlayers[i].Pin, INIPath);
+    for j:=0 to High(ThePlayers[i].Integers) do
+      WriteINI(IntToStr(i), 'Integer'+IntToStr(j), IntToStr(ThePlayers[i].Integers[j]), INIPath);
+    for j:=0 to High(ThePlayers[i].Strings) do
+      WriteINI(IntToStr(i), 'String'+IntToStr(j), ThePlayers[i].Strings[j], INIPath);
+    for j:=0 to High(ThePlayers[i].Booleans) do
+      WriteINI(IntToStr(i), 'Boolean'+IntToStr(j), BoolToStr(ThePlayers[i].Booleans[j]), INIPath);
+    WriteINI(IntToStr(i), 'Active', BoolToStr(ThePlayers[i].Active), INIPath);
+  end;
+end;
+
+Procedure Click(Sender: TObject);
+Begin
+  if ((Sender = SetButton1) or (Sender = SetButton2)) then
+    SaveVars;
+  Remote.ModalResult:= mrOk;
+End;
+
+Procedure PreviousPlayer(Sender: TObject);
+var
+  j: Integer;
+Begin
+  if (PlayerNumber = 0) then Exit;
+
+  ThePlayers[PlayerNumber].User:= User.Text;
+  ThePlayers[PlayerNumber].Pass:= Pass.Text;
+  ThePlayers[PlayerNumber].Nick:= Nick.Text;
+  ThePlayers[PlayerNumber].Pin:= Pin.Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    ThePlayers[PlayerNumber].Integers[j]:= StrToInt(Integers[j].Text);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    ThePlayers[PlayerNumber].Strings[j]:= Strings[j].Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    ThePlayers[PlayerNumber].Booleans[j]:= Booleans[j].Checked;
+  ThePlayers[PlayerNumber].Active:= Active.Checked;
+
+  Dec(PlayerNumber);
+
+  User.Text:= ThePlayers[PlayerNumber].User;
+  Pass.Text:= ThePlayers[PlayerNumber].Pass;
+  Nick.Text:= ThePlayers[PlayerNumber].Nick;
+  Pin.Text:= ThePlayers[PlayerNumber].Pin;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    Integers[j].Text:= IntToStr(ThePlayers[PlayerNumber].Integers[j]);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    Strings[j].Text:= ThePlayers[PlayerNumber].Strings[j];
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    Booleans[j].Checked:= ThePlayers[PlayerNumber].Booleans[j];
+  Active.Checked:= ThePlayers[PlayerNumber].Active;
+
+  PlayerLabel.Caption:= 'User '+IntToStr(PlayerNumber+1)+' of '+IntToStr(HowManyPlayerss);
+End;
+
+Procedure AddPlayer(Sender: TObject);
+var
+  j: Integer;
+Begin
+  ThePlayers[PlayerNumber].User:= User.Text;
+  ThePlayers[PlayerNumber].Pass:= Pass.Text;
+  ThePlayers[PlayerNumber].Nick:= Nick.Text;
+  ThePlayers[PlayerNumber].Pin:= Pin.Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    ThePlayers[PlayerNumber].Integers[j]:= StrToInt(Integers[j].Text);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    ThePlayers[PlayerNumber].Strings[j]:= Strings[j].Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    ThePlayers[PlayerNumber].Booleans[j]:= Booleans[j].Checked;
+  ThePlayers[PlayerNumber].Active:= Active.Checked;
+
+  Inc(HowManyPlayerss)
+
+  SetArrayLength(ThePlayers, HowManyPlayerss);
+  SetArrayLength(ThePlayers[HowManyPlayerss-1].Integers, Length(ThePlayers[HowManyPlayerss-2].Integers));
+  SetArrayLength(ThePlayers[HowManyPlayerss-1].Strings, Length(ThePlayers[HowManyPlayerss-2].Strings));
+  SetArrayLength(ThePlayers[HowManyPlayerss-1].Booleans, Length(ThePlayers[HowManyPlayerss-2].Booleans));
+
+  PlayerNumber:= HowManyPlayerss-1;
+
+  User.Text:= 'User';
+  Pass.Text:= 'Pass';
+  Nick.Text:= 'Nick';
+  Pin.Text:= '0000';
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    Integers[j].Text:= '0';
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    Strings[j].Text:= ReadINI('Strings', '('+IntToStr(j)+')(0)', INIPath);
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    Booleans[j].Checked:= True;
+  Active.Checked:= True;
+
+  PlayerLabel.Caption:= 'User '+IntToStr(PlayerNumber+1)+' of '+IntToStr(HowManyPlayerss);
+End;
+
+Procedure DeletePlayer(Sender: TObject);
+var
+  i, j: Integer;
+  TempPlayers: Array of ThePlayer;
+Begin
+  if (HowManyPlayerss = 1) then Exit;
+
+  ThePlayers[PlayerNumber].User:= User.Text;
+  ThePlayers[PlayerNumber].Pass:= Pass.Text;
+  ThePlayers[PlayerNumber].Nick:= Nick.Text;
+  ThePlayers[PlayerNumber].Pin:= Pin.Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    ThePlayers[PlayerNumber].Integers[j]:= StrToInt(Integers[j].Text);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    ThePlayers[PlayerNumber].Strings[j]:= Strings[j].Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    ThePlayers[PlayerNumber].Booleans[j]:= Booleans[j].Checked;
+  ThePlayers[PlayerNumber].Active:= Active.Checked;
+
+  SetArrayLength(TempPlayers, HowManyPlayerss);
+
+  for i:=0 to (HowManyPlayerss-1) do
+    TempPlayers[i]:= ThePlayers[i];
+
+  SetArrayLength(ThePlayers, HowManyPlayerss-1);
+
+  for i:=0 to (PlayerNumber-1) do
+    ThePlayers[i]:= TempPlayers[i];
+
+  for i:=(PlayerNumber+1) to (High(TempPlayers)) do
+    ThePlayers[i-1]:= TempPlayers[i];
+
+  Dec(HowManyPlayerss);
+  if (PlayerNumber = HowManyPlayerss) then
+    Dec(PlayerNumber);
+
+  User.Text:= ThePlayers[PlayerNumber].User;
+  Pass.Text:= ThePlayers[PlayerNumber].Pass;
+  Nick.Text:= ThePlayers[PlayerNumber].Nick;
+  Pin.Text:= ThePlayers[PlayerNumber].Pin;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    Integers[j].Text:= IntToStr(ThePlayers[PlayerNumber].Integers[j]);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    Strings[j].Text:= ThePlayers[PlayerNumber].Strings[j];
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    Booleans[j].Checked:= ThePlayers[PlayerNumber].Booleans[j];
+  Active.Checked:= ThePlayers[PlayerNumber].Active;
+
+  PlayerLabel.Caption:= 'User '+IntToStr(PlayerNumber+1)+' of '+IntToStr(HowManyPlayerss);
+End;
+
+Procedure NextPlayerButton(Sender: TObject);
+var
+  j: Integer;
+Begin
+  if (PlayerNumber = (HowManyPlayerss-1)) then Exit;
+
+  ThePlayers[PlayerNumber].User:= User.Text;
+  ThePlayers[PlayerNumber].Pass:= Pass.Text;
+  ThePlayers[PlayerNumber].Nick:= Nick.Text;
+  ThePlayers[PlayerNumber].Pin:= Pin.Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    ThePlayers[PlayerNumber].Integers[j]:= StrToInt(Integers[j].Text);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    ThePlayers[PlayerNumber].Strings[j]:= Strings[j].Text;
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    ThePlayers[PlayerNumber].Booleans[j]:= Booleans[j].Checked;
+  ThePlayers[PlayerNumber].Active:= Active.Checked;
+
+  Inc(PlayerNumber);
+
+  User.Text:= ThePlayers[PlayerNumber].User;
+  Pass.Text:= ThePlayers[PlayerNumber].Pass;
+  Nick.Text:= ThePlayers[PlayerNumber].Nick;
+  Pin.Text:= ThePlayers[PlayerNumber].Pin;
+  for j:=0 to High(ThePlayers[PlayerNumber].Integers) do
+    Integers[j].Text:= IntToStr(ThePlayers[PlayerNumber].Integers[j]);
+  for j:=0 to High(ThePlayers[PlayerNumber].Strings) do
+    Strings[j].Text:= ThePlayers[PlayerNumber].Strings[j];
+  for j:=0 to High(ThePlayers[PlayerNumber].Booleans) do
+    Booleans[j].Checked:= ThePlayers[PlayerNumber].Booleans[j];
+  Active.Checked:= ThePlayers[PlayerNumber].Active;
+
+  PlayerLabel.Caption:= 'User '+IntToStr(PlayerNumber+1)+' of '+IntToStr(HowManyPlayerss);
+End;
+
+
+procedure RemoteForm;
+var
+  i, j: Integer;
+begin
+  LoadVars;
+  PlayerNumber:= 0;
+  Remote := TForm.Create(nil);
+  with Remote do
+  begin
+    BorderStyle := bsSingle;
+    BorderIcons := [];
+    FormStyle := fsStayOnTop;
+    Left := 376;
+    Top := 438;
+    Width := 192;
+    Height := (236+((Length(BooleanNames)+Length(IntegerNames)+Length(StringNames))*24));
+    Caption := 'Players Remote for '+TheScriptName;
+    Color := clBtnFace;
+    Font.Color := clWindowText;
+    Font.Height := -11;
+    Font.Name := 'MS Sans Serif';
+    Font.Style := [];
+    PixelsPerInch := 96;
+  end;
+
+  PlayerLabel := TLabel.Create(Remote);
+  with PlayerLabel do
+  begin
+    Parent := Remote;
+    Left := 60;
+    Top := 16;
+    Width := 22;
+    Height := 13;
+    Caption := 'User '+IntToStr(PlayerNumber+1)+' of '+IntToStr(HowManyPlayerss);
+  end;
+  UserLabel := TLabel.Create(Remote);
+  with UserLabel do
+  begin
+    Parent := Remote;
+    Left := 16;
+    Top := 16+24;
+    Width := 22;
+    Height := 13;
+    Caption := 'User';
+  end;
+  PassLabel := TLabel.Create(Remote);
+  with PassLabel do
+  begin
+    Parent := Remote;
+    Left := 16;
+    Top := 40+24;
+    Width := 23;
+    Height := 13;
+    Caption := 'Pass';
+  end;
+  NickLabel := TLabel.Create(Remote);
+  with NickLabel do
+  begin
+    Parent := Remote;
+    Left := 16;
+    Top := 64+24;
+    Width := 22;
+    Height := 13;
+    Caption := 'Nick';
+  end;
+  PinLabel := TLabel.Create(Remote);
+  with PinLabel do
+  begin
+    Parent := Remote;
+    Left := 16;
+    Top := 88+24;
+    Width := 15;
+    Height := 13;
+    Caption := 'Pin';
+  end;
+  SetArrayLength(IntegersLabel, Length(IntegerNames));
+  for i:=0 to High(IntegersLabel) do
+  begin
+    IntegersLabel[i] := TLabel.Create(Remote);
+    with IntegersLabel[i] do
+    begin
+      Parent := Remote;
+      Left := 16;
+      Top := 112+24+(i*24);
+      Width := 38;
+      Height := 13;
+      Caption := IntegerNames[i];
+    end;
+  end;
+  SetArrayLength(StringsLabel, Length(StringNames));
+  for i:=0 to High(StringsLabel) do
+  begin
+    StringsLabel[i] := TLabel.Create(Remote);
+    with StringsLabel[i] do
+    begin
+      Parent := Remote;
+      Left := 16;
+      Top := 112+24+((Length(IntegerNames)+i)*24);
+      Width := 32;
+      Height := 13;
+      Caption := StringNames[i];
+    end;
+  end;
+  SetArrayLength(BooleansLabel, Length(BooleanNames));
+  for i:=0 to High(BooleansLabel) do
+  begin
+    BooleansLabel[i] := TLabel.Create(Remote);
+    with BooleansLabel[i] do
+    begin
+      Parent := Remote;
+      Left := 16;
+      Top := 112+24+(((Length(IntegerNames)+(Length(StringNames))+i)*24));
+      Width := 44;
+      Height := 13;
+      Caption := BooleanNames[i];
+    end;
+  end;
+  ActiveLabel := TLabel.Create(Remote);
+  with ActiveLabel do
+  begin
+    Parent := Remote;
+    Left := 16;
+    Top := (136+(Length(IntegerNames)+Length(StringNames)+i)*24);
+    Width := 30;
+    Height := 13;
+    Caption := 'Active';
+  end;
+  SetArrayLength(Strings, Length(ThePlayers[0].Strings));
+  for i:=0 to High(Strings) do
+  begin
+    Strings[i] := TComboBox.Create(Remote);
+    with Strings[i] do
+    begin
+      Parent := Remote;
+      Left := 112;
+      Top := 112+24+((Length(IntegerNames)+i)*24);
+      Width := 70;
+      Height := 21;
+      ItemHeight := 13;
+      TabOrder := 8;
+      Text := ThePlayers[0].Strings[i];
+      with Items do
+      for j:=0 to High(TheStrings[i]) do
+        Add(TheStrings[i][j]);
+    end;
+  end;
+  SetArrayLength(Booleans, Length(ThePlayers[0].Booleans));
+  for i:=0 to High(Booleans) do
+  begin
+    Booleans[i] := TCheckBox.Create(Remote);
+    with Booleans[i] do
+    begin
+      Parent := Remote;
+      Left := 112;
+      Top := 112+24+(((Length(IntegerNames)+(Length(StringNames))+i)*24));
+      Width := 16;
+      Height := 16;
+      Checked := ThePlayers[0].Booleans[i];
+      TabOrder := 9;
+    end;
+  end;
+  User := TEdit.Create(Remote);
+  with User do
+  begin
+    Parent := Remote;
+    Left := 112;
+    Top := 16+24;
+    Width := 70;
+    Height := 21;
+    TabOrder := 10;
+    Text := ThePlayers[0].User;
+  end;
+  Pass := TEdit.Create(Remote);
+  with Pass do
+  begin
+    Parent := Remote;
+    Left := 112;
+    Top := 40+24;
+    Width := 70;
+    Height := 21;
+    PasswordChar := '*';
+    TabOrder := 11;
+    Text := ThePlayers[0].Pass;
+  end;
+  Nick := TEdit.Create(Remote);
+  with Nick do
+  begin
+    Parent := Remote;
+    Left := 112;
+    Top := 64+24;
+    Width := 70;
+    Height := 21;
+    TabOrder := 12;
+    Text := ThePlayers[0].Nick;
+  end;
+  Pin := TEdit.Create(Remote);
+  with Pin do
+  begin
+    Parent := Remote;
+    Left := 112;
+    Top := 88+24;
+    Width := 70;
+    Height := 21;
+    TabOrder := 13;
+    Text := ThePlayers[0].Pin;
+  end;
+  Active := TCheckBox.Create(Remote);
+  with Active do
+  begin
+    Parent := Remote;
+    Left := 112;
+    Top := (136+(Length(IntegerNames)+Length(StringNames)+i)*24);
+    Width := 16;
+    Height := 16;
+    Checked := ThePlayers[0].Active;
+    TabOrder := 14;
+  end;
+  SetArrayLength(Integers, Length(ThePlayers[0].Integers));
+  for i:=0 to High(Integers) do
+  begin
+    Integers[i] := TEdit.Create(Remote);
+    with Integers[i] do
+    begin
+      Parent := Remote;
+      Left := 112;
+      Top := 112+24+(i*24);;
+      Width := 70;
+      Height := 21;
+      TabOrder := 15;
+      Text := IntToStr(ThePlayers[0].Integers[i]);
+    end;
+  end;
+  SetButton2 := TButton.Create(Remote);
+  with SetButton2 do
+  begin
+    Parent := Remote;
+    Left := 15;
+    Top := 197+(((Length(BooleanNames)+Length(IntegerNames)+Length(StringNames))*24));
+    Width := 60;
+    Height := 25;
+    Caption := 'Set';
+    TabOrder := 9;
+    OnClick := @Click;
+  end;
+  CloseButton2 := TButton.Create(Remote);
+  with CloseButton2 do
+  begin
+    Parent := Remote;
+    Left := 100;
+    Top := 197+(((Length(BooleanNames)+Length(IntegerNames)+Length(StringNames))*24));
+    Width := 60;
+    Height := 24;
+    Caption := 'Close';
+    TabOrder := 10;
+    OnClick := @Click;
+  end;
+  PreviousButton := TButton.Create(Remote);
+  with PreviousButton do
+  begin
+    Parent := Remote;
+    Left := 7;
+    Top := 165+(((Length(BooleanNames)+Length(IntegerNames)+Length(StringNames))*24));
+    Width := 35;
+    Height := 25;
+    Caption := '<--';
+    TabOrder := 9;
+    OnClick := @PreviousPlayer;
+  end;
+  AddButton := TButton.Create(Remote);
+  with AddButton do
+  begin
+    Parent := Remote;
+    Left := 52;
+    Top := 165+(((Length(BooleanNames)+Length(IntegerNames)+Length(StringNames))*24));
+    Width := 35;
+    Height := 24;
+    Caption := 'Add';
+    TabOrder := 10;
+    OnClick := @AddPlayer;
+  end;
+  DeleteButton := TButton.Create(Remote);
+  with DeleteButton do
+  begin
+    Parent := Remote;
+    Left := 97;
+    Top := 165+(((Length(BooleanNames)+Length(IntegerNames)+Length(StringNames))*24));
+    Width := 35;
+    Height := 25;
+    Caption := 'Del';
+    TabOrder := 9;
+    OnClick := @DeletePlayer;
+  end;
+  NextButton := TButton.Create(Remote);
+  with NextButton do
+  begin
+    Parent := Remote;
+    Left := 142;
+    Top := 165+(((Length(BooleanNames)+Length(IntegerNames)+Length(StringNames))*24));
+    Width := 35;
+    Height := 24;
+    Caption := '-->';
+    TabOrder := 10;
+    OnClick := @NextPlayerButton;
+  end;
+end;
+
+procedure MainRemote;
+begin
+  RemoteForm;
+  Remote.ShowModal;
+end;
+
+Procedure ClickButton(Sender: TObject);
+Begin
+  if (Sender = CloseButton) then
+    OpenInstance.ModalResult:= mrOk;
+  if (Sender = SetButton) then
+  begin
+    INIPath:= INIPath+between('Instance ', '.', InstanceNumber.TEXT)+Extension;
+    OpenInstance.ModalResult:= mrOk;
+    OpenMain:= True;
+  end;
+End;
+
+procedure OpenInstanceForm;
+var
+  i : Integer;
+begin
+  OpenInstance := TForm.Create(nil);
+  with OpenInstance do
+  begin
+    BorderStyle := bsSingle;
+    BorderIcons := [];
+    FormStyle := fsStayOnTop;
+    Left := 483;
+    Top := 281;
+    Width := 305;
+    Height := 90;
+    Caption := 'Open Instance';
+    Color := clBtnFace;
+    Font.Color := clWindowText;
+    Font.Height := -11;
+    Font.Name := 'MS Sans Serif';
+    Font.Style := [];
+    PixelsPerInch := 96;
+  end;
+  Label1 := TLabel.Create(OpenInstance);
+  with Label1 do
+  begin
+    Parent := OpenInstance;
+    Left := 12;
+    Top := 16;
+    Width := 119;
+    Height := 17;
+    Caption := 'Open remote for instance';
+  end;
+  InstanceNumber := TComboBox.Create(OpenInstance);
+  with InstanceNumber do
+  begin
+    Parent := OpenInstance;
+    Left := 140;
+    Top := 16;
+    Width := 160;
+    Height := 21;
+    ItemHeight := 13;
+    TabOrder := 8;
+    Text := ScriptNames[0]+': Instance '+IntToStr(InstanceArray[0])+'.';
+    with Items do
+    for i:=0 to High(InstanceArray) do Add(ScriptNames[i]+': Instance '+IntToStr(InstanceArray[i])+'.');
+  end;
+  SetButton := TButton.Create(OpenInstance);
+  with SetButton do
+  begin
+    Parent := OpenInstance;
+    Left := 40;
+    Top := 48;
+    Width := 81;
+    Height := 25;
+    Caption := 'Open';
+    TabOrder := 9;
+    OnClick := @ClickButton;
+  end;
+  CloseButton := TButton.Create(OpenInstance);
+  with CloseButton do
+  begin
+    Parent := OpenInstance;
+    Left := 168;
+    Top := 48;
+    Width := 80;
+    Height := 24;
+    Caption := 'Close';
+    TabOrder := 10;
+    OnClick := @ClickButton;
+  end;
+end;
+
+procedure MainOpenInstance;
+begin
+  OpenInstanceForm;
+  OpenInstance.ShowModal;
+end;
+
+function FileNotEmpty(FilePath: string): Boolean;
+begin
+  Result:= False;
+  if (FileExists(FilePath)) then
+    Result:= StrToBool(ReadINI('Main', 'Running', FilePath));
+end;
+
+function HowManyInstances: TIntegerArray;
+var
+  i: Integer;
+begin
+  InstanceArray:= [];
+  ScriptNames:= [];
+  for i:=0 to 50 do
+    if FileNotEmpty(INIPath+InttoStr(i)+Extension) then
+    begin
+      SetArrayLength(Result, Length(Result)+1);
+      Result[High(Result)]:= i;
+      SetArrayLength(ScriptNames, Length(ScriptNames)+1);
+      ScriptNames[High(ScriptNames)]:= ReadINI('Main', 'Name', INIPath+InttoStr(i)+Extension);
+    end;
+end;
+
+procedure LoadForm;
+begin
+  InstanceArray:= HowManyInstances;
+  If (Length(InstanceArray) > 0) then
+    if (Length(InstanceArray) > 1) then
+    begin
+      MainOpenInstance
+      if OpenMain then
+        MainRemote;
+    end else
+    begin
+      INIPath:= INIPath+IntToStr(InstanceArray[0])+Extension;
+      MainRemote;
+    end;
+end;
+
+procedure SRLRemote(Sender: TObject);
+begin
+  if (not(Sender = SRLRemoteMenuItem)) then Exit;
+  INIPath:= AppPath+'Scripts/SRLRemote';
+  TheScriptName:= 'SRL Player';
+  Loadform;
+end;
+
+procedure Init;
+begin
+  MyMenu := TMenuItem.Create(Simba_MainMenu);
+  MyMenu.Caption := 'SRL Remote';
+  MyMenu.Visible := False;
+  Simba_MainMenu.Items.Add(MyMenu);
+
+  SRLRemoteMenuItem := TMenuItem.Create(MyMenu);
+  SRLRemoteMenuItem.Caption := 'Player Remote';
+  SRLRemoteMenuItem.OnClick := @SRLRemote;
+  MyMenu.Add(SRLRemoteMenuItem);
+end;
+
+procedure Attach;
+begin;
+  MyMenu.Visible := True;
+end;
+
+Procedure Detach;
+begin
+  MyMenu.Visible := False;
+end;
+
+function GetName : string;
+begin;
+  result := 'Shuttleu  Remote';
+end;
+
+function GetVersion : string;
+begin;
+  result := '1.0';
+end;
+
+begin
+
+end.