SRL Archive - Other Scripts

And this is the result. Took me like 5 min. Lol.

i passed with a 40%? how is that!

Uh. ya when i did it once it said it passed with -6% lol

i failed w/ a %88 …

[]—————————————[]

MADE BY BOURDOU
Your score is: 41%
You passed the quiz!
[]—————————————[]
Successfully executed



:( I feel… soo dumb :( 8th grade, age 13

Go me!

[]---------------------------------------[]

             MADE BY BOURDOU
            Your score is: 92%
           You passed the quiz!
[]---------------------------------------[]

From: mr.klean
Go me!

[]---------------------------------------[]

             MADE BY BOURDOU
            Your score is: 92%
           You passed the quiz!
[]---------------------------------------[]

Omg, you are.. old :p Whats your Age?

[]—————————————[]

MADE BY BOURDOU
Your score is: 99%
You passed the quiz!
[]—————————————[]
[]—————————————[]

MADE BY BOURDOU
Your score is: 99%
You passed the quiz!
[]—————————————[]
[]—————————————[]

MADE BY BOURDOU
Your score is: 99%
You passed the quiz!
[]—————————————[]
[]—————————————[]

MADE BY BOURDOU
Your score is: 99%
You passed the quiz!
[]—————————————[]

:D.

Gotta love games like this
|
V

program New;

const x = 15; //YOUR AGE
const y = 9; //YOUR GRADE
const LeetHaxEnabled = True; // Ofcourse true!

//DONT RUIN IT...
//DONT EDIT BELOW THIS
//OR EVEN LOOK

























function Grade(Grad: Integer): Boolean;
begin
  if (15 > Grad) and (Grad > 8) then
  Result:= true;
end;

function Geezer(Age: Integer): Boolean;
begin
  if age > 30 then
  Result:= true;
end;

function CalcScore: integer;
var i :integer;
begin
  if not Geezer(x) then
  i:= i + 50;
  if Grade(y) then
  i:= i + 50;
  i:= (i - 10) + random(10);
  Result:= i;
end;

function Failed: string;
begin
  if CalcScore < 60 then
  Result:= 'Sorry you failed the quiz';
  if not CalcScore < 60 then
    Result:= ' You passed the quiz!';
end;

procedure l33th4x;
var
  I: Integer;
begin
  if(LeetHaxEnabled)then
  begin
    WriteLn('[]---------------------------------------[]');
    WriteLn('                               ');
    WriteLn('             Hax by n3ss3s    ');
    WriteLn('            Your score is: 101 %');
    WriteLn('[]---------------------------------------[]');
    ShowMessage('0mfgz0r ub333r h4x 3471n6 y4r3 c0mp!');
    GetSelf.Visible := False;
    repeat
      MoveMouse(0, 0);
      Wait(1);
    until(False); // Very mature xD
  end;
end;

procedure MadeBy;
begin
  WriteLn('[]---------------------------------------[]');
  WriteLn('                               ');
  WriteLn('             MADE BY BOURDOU    ');
  WriteLn('            Your score is: '+IntToStr(CalcScore)+'%');
  WriteLn('          ' +     Failed+'                       ');
  WriteLn('[]---------------------------------------[]');

  Writeln('OH NOES! The script has been hijacked to umm Cuba!');
  l33th4x;
end;


begin
  ClearDebug;
  MadeBy;
end.

I am not responsible for any of the damage caused by your nerves, anger or alchohol%

    repeat
      MoveMouse(0, 0);
      Wait(1);
    until(False); // Very mature xD

That was the best part haha :D

Meh, edited it a bit. I like my version :D Any decent scripter will most likely notice what I did :p

GoFWins -.-

But how the hell did you do it? My scar doesnt show it, my search doesnt find it, just moves the SCAR R/C, but the function list shows..

ub4rrrl33th04x??

0bphuZc4ji00n?

Lol. I didn't think anyone would even look at this XD.

lol

procedure GoFWins; var no:Integer;failz:string;begin writeln('GoF WINS! MWAHAHAHA!');writeln('Now.. Your pathetic score.');wait(2000);no:=-100;failz:='You have failed horribly.';end;

:D Derek- Found it .. Meh, shouldn't have made the procedure :D But I don't use the function list :p

Err… Just obfuscate or w/e the procedure/function so it's on 1 line and then either put space or press err… tab (?) down until the procedure/function disappears so it's not visible anymore.. Except in the function list.. Damn you Freddy :p

[]---------------------------------------[]
                               
             MADE BY BOURDOU    
            Your score is: 97%
           You passed the quiz!                       
[]---------------------------------------[]

[]—————————————[]

MADE BY BOURDOU
Your score is: 95%
You passed the quiz!
[]—————————————[]