Skip to content
This repository
Fetching contributors…

Cannot retrieve contributors at this time

file 74 lines (64 sloc) 1.773 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74
program new;

procedure init;
begin;
  Writeln('init your extension here');
end;
procedure onOpenConnection(var url : string; var Cont : boolean);
begin
  Writeln('Opening url: ' + url);
  Writeln('We shall allow this.. For now!! Gna Gna!');
  Cont := True;
end;
procedure onWriteFile(var FileName : string; var Cont : boolean);
begin
  Writeln('So.. You want to write to file: ' + FileName);
  Writeln('Well for this time only!');
  Cont := True;
end;

procedure onOpenFile(var FileName : string; var Cont : boolean);
begin
  Writeln('So you want to open this file: ' + filename);
  Writeln('Well I don''t care much, lets see what the other hooks think!');
  //Not set Cont as we don't care, while other hooks might
end;

procedure onColourPick(const Colour,x,y : integer);
begin
  Writeln('So you''ve picked a color, huh!?');
  Writeln(inttostr(colour) + ' attuh (' + inttostr(x) +',' + inttostr(y) + ')');
end;
 
function onScriptStart(var Script : string; var Cont : boolean): String;
begin
  Writeln('So you want to compile the following script!!');
  Writeln(script);
  Writeln('lets allow that for now ;)');
  Cont := True;
  Result := Script;
end;

function onScriptOpen(var Script: String): String;
begin
  Result := Script + 'THIS IS AFTER THE .END, HOPEFULLY');
end;

procedure free;
begin
  Writeln('Free your extension here');
end;

procedure Attach;
begin;
  Writeln('Your extension has been enabled, do stuff here');
end;

Procedure Detach;
begin
  Writeln('Your extension has ben disabled, do stuff here');
end;

//Called to retrieve the name of your extension
function GetName : string;
begin;
  result := 'Leet Extension';
end;

//Called to retrieve the version of your extension
function GetVersion : string;
begin;
  result := '0.001';
end;
begin
end.
Something went wrong with that request. Please try again.