SRL Archive - Development

FreePascal

library libDG;

{$mode objfpc}{$H+}

uses
  cmem, Classes, Sysutils;

function a(): integer;
begin
  Result := 42;
end;

function GetFunctionCount(): Integer; stdcall; export;
begin
  Result := 1;
end;

function GetFunctionInfo(x: Integer; var ProcAddr: Pointer; var ProcDef: PChar): Integer; stdcall; export;
begin
  case x of
    0: begin
        ProcAddr := @a;
        StrPCopy(ProcDef, 'function a(): integer;');
      end;
    else
      x := -1;
  end;
  Result := x;
end;

exports GetFunctionCount;
exports GetFunctionInfo;

initialization
end.

C

#include <string.h>

static int __stdcall a() {
  return 42;
}

static int __stdcall GetFuncCount(void) {
  return 1;
}

static int __stdcall GetFuncInfo(int x, void **addr, char **def) {
  switch (x) {
    case 0:
      *addr = (void *)&a;
      strcpy(*def, "function a(): integer;");
      break;
    default:
      x = -1;
  }
  return x;
}

int GetFunctionCount(void) __attribute__((alias("GetFuncCount@0")));
int GetFunctionInfo(int x, void **addr, char **def) __attribute__((alias("GetFuncInfo@12")));

Feel Free to post more info. =)

We should probably also discuss memory sharing somewhere. (I|Someone) actually need to look into that. :)

From: Wizzup?
We should probably also discuss memory sharing somewhere. (I|Someone) actually need to look into that. :)

Edit: Will add, =)

Didn't feel like creating my own thread, it's not possible to use functions and types from simba in a FreePascal plugin, right?

From: masterBB
Didn't feel like creating my own thread, it's not possible to use functions and types from simba in a FreePascal plugin, right?

Use MML and you can.

From: Dgby714
Use MML and you can.

Thanks, was looking for something like that.

From: masterBB
Thanks, was looking for something like that.

You're gonna need "Units/MMLCore" from Simba's repo, add it as a unit to your project.

Would I (be able to) include SRL in the plugin or the script that uses the plugin?

-Boom

Script uses the plugin.. Had this problem last night with a dll I wrote. Was told the same thing n it only makes sense no? But yeah plugins cannot use script functions.

Though u can write the entire function in the plugin :P which I believe u can because I've done it multiple times for that bitmap downloaded. Then have Simba call ur plugin functions

Wait so could I do -
SCRIPT

program blah;
{.include srl/srl.simba}
// include the plugin

Begin
   MineRock('This function is in the plugin and also uses SRL');
End.

Would that work?

-Boom

Yeah u can do that as long as everything needed is defined inside the plugin.. Ud probably have a lot of work to do to get that to work since u can't use the srl include.. Can only use mml and it's mufasa types Also not sure if it'll be able to use smart but I can write up one for u n test of it works if u like

You can get client data yes.

Ok thanks guys :-)

-Boom

From: Dynamite
Wait so could I do -
SCRIPT

program blah;
{.include srl/srl.simba}
// include the plugin

Begin
   MineRock('This function is in the plugin and also uses SRL');
End.

Would that work?

-Boom

No that won't work. A plugin cannot 'see' what's outside(srl include for example). So the MineRock function will not work since it needs srl include, but the srl include is not inside the dll.

From: KingKong
No that won't work. A plugin cannot 'see' what's outside(srl include for example). So the MineRock function will not work since it needs srl include, but the srl include is not inside the dll.

Could I include srl as a unit in the plugin?

-Boom

not really, since srl has like gazllion files and you'd have to add them all. What exactly do you want to do? Make your script faster?

I am looking into plugins to hide the main source of a script.

-Boom

From: Dynamite
I am looking into plugins to hide the main source of a script.

-Boom

Not sure is it possible but do the same was as RID does ?


~Home

From: Home
Not sure is it possible but do the same was as RID does ?


~Home

What does RiD do? :-)

-Boom

Doesn't RiD access a server from the script to access the true script? Kind of like how Impsoft does it.

From: RISK
Doesn't RiD access a server from the script to access the true script? Kind of like how Impsoft does it.

I was thinking of doing that but a user could just look at the link and follow it.

-Boom

Isn't there a way to send a 'Message' to the server and have the URL that the script interacts with actually give the script? So that if the user of the script follows the URL in the script, it wouldn't do anything because they can't send that 'Message'?

I'm not very experienced with anything like that, but.

Hmm, yes that could be possible… I think.

-Boom

We should have Lape plugin examples here as well.

FreePascal:

library libDG;

{$mode objfpc}{$H+}

uses
  Classes, SysUtils, lptypes;
  
{$R *.res}

procedure a(Params : PParamArray; Result : Pointer);
begin
  PLongInt(Result)^ := 42;
end;

function GetFunctionCount(): Integer; stdcall; export;
begin
  Result := 1;
end;

function GetFunctionInfo(x: Integer; var ProcAddr: Pointer; var ProcDef: PChar): Integer; stdcall; export;
begin	
  case x of
    0: begin
        ProcAddr := @a;
        StrPCopy(ProcDef, 'function a(): integer;');
      end;
    else
      x := -1;
  end;
  Result := x;
end;

exports GetFunctionCount;
exports GetFunctionInfo;

initialization
end.

You'll also need to add the lptypes (Lape types) unit to your project…