SRL Archive - News and General

Alright guys, I am going to tell you something. I am going to be working on a big project for a while. It is going to be a Script Manager.

Some features:

• Import/Export .ssm files from a URL or a file on your computer
• Edit script properties
• View all scripts in a certain folder in a list box with different columns for different properties
• A saved player list for each script that can be loaded with a single procedure such as Players := LoadPlayers('Wizzups Essence Miner'); and loadplayers would return an array of Players :p
• Able to check if new versions for any script in the library available. If they are, it downloads and will ask if you want to have automatic downloads and prefences for that stuff can be changed later.
• Etc, etc.

But as you can see this will be a great project that will be hard but worth while at the end. There may even be a repository of great scripts and it will replace the download scripts from web thing in the older versions of scar ;). But please not those features are subject to change.

Such as this: The import might be changed to just saving the file into the Scripts folder, and when you launch it, it will be detected and stuff.

But I need a few people to help.

First of all I need a syntax highlighter engine that will be able to work on any richedit form thing. Also, I need to know if there is such thing as columned listboxes.

Ex:

Because I see a column attribute but I do not know how to make it place two pieces of data into two seperate columns.

From: Da 0wner
Alright guys, I am going to tell you something. I am going to be working on a big project for a while. It is going to be a Script Manager.

Some features:

• Import/Export .ssm files from a URL or a file on your computer
• Edit script properties
• View all scripts in a certain folder in a list box with different columns for different properties
• A saved player list for each script that can be loaded with a single procedure such as Players := LoadPlayers('Wizzups Essence Miner'); and loadplayers would return an array of Players :p
• Able to check if new versions for any script in the library available. If they are, it downloads and will ask if you want to have automatic downloads and prefences for that stuff can be changed later.
• Etc, etc.

But as you can see this will be a great project that will be hard but worth while at the end. There may even be a repository of great scripts and it will replace the download scripts from web thing in the older versions of scar ;). But please not those features are subject to change.

Such as this: The import might be changed to just saving the file into the Scripts folder, and when you launch it, it will be detected and stuff.

But I need a few people to help.

First of all I need a syntax highlighter engine that will be able to work on any richedit form thing. Also, I need to know if there is such thing as columned listboxes.

Ex:

Because I see a column attribute but I do not know how to make it place two pieces of data into two seperate columns.

So something like rsbot? When u click run script, it gives u all the scripts? But with more features and are you asking for help with the main thing?

I would have no idea about rsbot, never used it. And i'm asking for help on what i asked for help :p.

program Test;

var
  frmDesign : TForm;
  Label1 : TLabel;
  Label2 : TLabel;
  Label3 : TLabel;
  ListBox1 : TListBox;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.Width := 351;
frmDesign.Height := 324;
frmDesign.Caption := 'frmDesign';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 13;
Label1.Top := 2;
Label1.Width := 28;
Label1.Height := 13;
Label1.Caption := 'Name';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 146;
Label2.Top := 2;
Label2.Width := 35;
Label2.Height := 13;
Label2.Caption := 'Skill';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 280;
Label3.Top := 2;
Label3.Width := 19;
Label3.Height := 13;
Label3.Caption := 'Version';
ListBox1 := TListBox.Create(frmDesign);
ListBox1.Parent := frmDesign;
ListBox1.Left := 8;
ListBox1.Top := 18;
ListBox1.Width := 319;
ListBox1.Height := 265;
ListBox1.ItemHeight := 13;
ListBox1.TabOrder := 8;
Listbox1.TabWidth := 90;
ListBox1.Items.Add('Wizzup''s Essence Miner' + chr(vk_tab) + 'Mining' + chr(vk_tab) + '1.0');
ListBox1.Items.Add('Cnr Sport''s Air Crafter' + chr(vk_tab) + 'Runecrafting' + chr(vk_tab) + '1.3');
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(v, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(v, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

begin
  SafeInitForm;
  SafeShowFormModal;
  FreeForm(frmDesign);
end.

:)

That's as close as you can get with columns. Theres no grid like the first one where you can sort.