SRL Archive - Senior News and General

Everyone should thank Boreas from saving us from hell (SRL mem forums).

He has done a lot for us.

<3 Boreas!

Eh don't worry about it, I did it as much for me as for you :p

Thank you Boreas! You completely pwn!!!

//Description: Well, its kinda impossible for him not too, but I thought I'd make a
//function to check anyway.

function DoesBoreasPwn: Boolean;
var BoreasPwns: Boolean;
begin
  if(not(BoreasPwns))then
  begin
    Result := False;
    Writeln('How is that possible?? Boreas doesnt pwn anymore..?! Terminating');
    TerminateScript;
  end;
  if(BoreasPwns)then
  begin
    Writeln('Well, it was pretty obvious he does :p Resulting true..');
    Result := True;
    Exit;
  end;
end;

There, run that and see if it results true! :p

It will always result false, as boolean variables are default false, lols….

EDIT:

I mean boolean's.

i was about to say that and you have to have more fun with it.

look at this:

function DoesBoreasPwn: Boolean;
begin
  ClearDebug;
  if(not(Result))then
  begin
    Result := False;
    Writeln('How is that possible?? Boreas doesnt pwn anymore..?! ');
    Wait(Random(5000))
    Writeln('Repairing his powers to Pwn.')
    Result:=True;
  end;
  if(Result)then
  begin
    Wait(Random(5000))
    Writeln('Well, Boreas you got you Pwning power back');
    Writeln('thanks to this script.')
    Writeln('Mathematically calculating the power of Boreas.')
    Wait(Random(5000))
    Writeln('Line *: [Error] (1:12): Unsatisfied Can''t hold value.')
    Result := True;
    Exit;
  end;
end;

begin
  DoesBoreasPwn;
end.

Funning thing is i have gotten an unsatisfied error before XD!

can anyone guess why.
Cause i know why.

He doesn't exit after his statement, and he doesn't use else, he checks the statement again, so it works.
BTW: Be carefull with booleans, those are the only values you should actually give a value…

program New;

function myb: boolean;

begin
end;

begin
  while not myb do
  begin
    writeln('u');
  end;
end

program New;

function myb: boolean;

begin
  result := false;
end;

begin
  while not myb do
  begin
    wait(5); // to save you from lag.
    writeln('u');
  end;
end.

Lol! I could have written a better script if I had more then 2 minutes before I had to get off.. :p