SRL Archive - OSR Help

Hmm just found out you can use a Result in a function like this

program new;

var
  Something: string;

function SayIt: string;
begin
  WriteLn(Result);
end;

begin
  Something := 'Hi People!';
  Something := SayIt;
end.

Its pretty cool =)

I havnt tested to see if it works in SCAR but it worked in Simba

Wtf. It seems more like a bug in the interpreter than a feature..

From: Sex
Wtf. It seems more like a bug in the interpreter than a feature..

Yeah i thought it might be a bug too lol but i like it =)

Wanna check to see if it works in SCAR? :)

It would appear so.

Successfully compiled (50 ms)
Hi People!
Successfully executed

Well then it seems as though it's not a bug. Hmm. Interesting. :) Kind of pointless, though.

I thought Simba and SCAR both used PS..and PS interprets the shit. So it might be a bug with PS.

Simba uses PS, SCAR uses Delphi (I think). So I doubt it would be a bug?

Both use PS. SCAR was just PROGRAMMED in Delphi.
I THINk!?:D

Yeah, I think you're right. But it matters what it was programmed in, I believe.

From: i luffs yeww
Yeah, I think you're right. But it matters what it was programmed in, I believe.

Why?

Because the problem/bug/feature would be in Delphi/PascalScript, not SCAR/Simba, right? I don't see how it would be SCAR/Simba's fault.

Why would it be Delphi's fault? PS is the interpreter…

I noticed this when playing with RandStr();

=) found this in srl test it

program new;
{.include SRL/SRL.scar}

var
  Test: string;

begin
  Test := 'TestString';
  Test := AddMistakes('<- Testing', 30);
  WriteLn(Test);
end. 

also found it in ColorEffectAdd

program new;
{.include SRL/SRL.scar}

var
  Test: string;

begin
  Test := 'TestString';
  Test := ColorEffectAdd(False, True); //Only if color is false and effects is true
  WriteLn(Test);
end. 

Attached Diff with Fixes =)

Yeah, It is a bug man. That's not supposed to happen.

Happens with all functions..

program new;
function x : boolean;
begin
end;
var
 y : boolean;
begin
  y := true;
  y := x;
  writeln(y);
end.

I guess it's time for everyone to start initializing their results!