SRL Archive - RS3 Outdated / Broken Scripts

BH - SCAR Quiz!

Ive made this quiz due to boredness.

Includes: 34 random questions.

Total 5 questions per game :)
Post proggies here!


New Version:
- More questions!
- No more lowercase writing.
- Better Proggie ;)

:)

You have: 5/5. Correct, Gratz.

Great game, dude.
Well, its cool enough.
You seem experienced with forms, how long time did you spend on this one?
I liked your calc too.

hey mate this awesome very hard i got 1/5 lol:eek:

From: EvilChicken
Great game, dude.
Well, its cool enough.
You seem experienced with forms, how long time did you spend on this one?
I liked your calc too.

ah this 1 1 hour and 30 min. I wasnt thinking properly and i was playing silab aswell so ye took awhile :)

NO SCHOOL! :(:(:( *crys* year 8 sucks!.

If you can add more questions and asnwers for me that would be nice :)

I thought autorune was one word?

Also, you have "Type in LOL", but you said to lowercase all answers. So I put "lol". Got 3/5.

got 0/5 ;(

b\c i Capitalised The First Letters

funny script,
i tried it like 5 times
1/5
4/5
3/5
3/5
2/5

nice forms ;)

no //Is Santy Santa
no //Is Santy Santa
yes //Does SRL -forums owns any rs cheat forums..thats where I got 1 point
lol //Type in lol, you said to lowercase all letters?!
2006 february //when was forum created
You have: 1/5. Correct, Gratz.

It is impossible to get 5/5 w/o cheating here…

No offense, but this is first time I have to say, this thingy "sucks"…

Edit: I don't want to be rude, but you could use at least pos…or something:

program New;

var
  answer : string;
begin
  answer := '2006'; //When were forum created
  if pos(answer, Lowercase('2006 february')) > 0 then
    writeln('Right answer')
end.

That would be saved me…

From: Negaal
It is impossible to get 5/5 w/o cheating here…

No offense, but this is first time I have to say, this thingy "sucks"…

no
WT-Fakawi
no
freddy1990
yes
You have: 5/5. Correct, Gratz.

scj00 j00.
j/k. Just don't be harsh.
But yeah, not many people answer "hell yea" to the santy question. More options.

From: Negaal
It is impossible to get 5/5 w/o cheating here…

No offense, but this is first time I have to say, this thingy "sucks"…

Hahaha, ye :)

nothing impossible. How cant santa_clause be santa?

Lol evil ill fix tomoz if i have time, post more questions and answers pl0x :)

Couple improvements:

First of all, maybe post scripts like this here :)

To avoid users needing to type lowercase, use the function
LowerCase(S: String) to make the string lowercase.

Also about the questions, for some user-friendlyness you might want to avoid making the answers like "hell yes!", people might end up getting a bruteforcer before guessing that, if they wont cheat like I did.

And if you want the right answers to be lowercase, make your own ones so too -

Answer := 'WT-Fakawi';

or the capped lol are kind of impossible to do if not typing as for example WT-Fakawi is really typed.


Good quiz though, maybe you want to extend the question collection a bit.

Answer := 'WT-Fakawi';

Also removing spaces would be good idea, because some of us write WT - Fakawi,
Others WT-Fakawi.

    2: begin
        CreateFormGeneration('Do SRL Members suck');
        Answer := 'no';
      end;

I got it twice in my 5 questions. I answered 'yes', so that left me with 3/5 Correct. :rolleyes:

From: Wizzup?

    2: begin
        CreateFormGeneration('Do SRL Members suck');
        Answer := 'no';
      end;

I got it twice in my 5 questions. I answered 'yes', so that left me with 3/5 Correct. :rolleyes:

LOL!.. That made my day. :)
Eerik.
EDIT: 2/5.

why did u use srl? it wasnt needed in this script :p

i got 2 of 5 :(

begin
        CreateFormGeneration('How many letters does Santa_clause have in his name?');
        Answer := '12';
      end;

lol useless qeustion :p
3/5

wrog answer over here:

    1: begin
        CreateFormGeneration('How many letters does Santa_clause have in his name?');
        Answer := '12';
      end;

S-a-n-t-a -> 5
C-l-a-u-s-e -> 6
5+6=11. "_" is not a letter :P

i got 2/5 >.>
~RM

3/5 first try. Didn't know who won first script comp. Then said "yes" to is this gay. Also what is auto rune? Answer to what does SCAR stand for "shite compared to auto rune". I never new about this. History leason anyone?

From: rikjess

begin
        CreateFormGeneration('How many letters does Santa_clause have in his name?');
        Answer := '12';
      end;

lol useless qeustion :p
3/5

But santa clause is a legend ++. SO its not useless :)

Ill be updating aswell :)

got 4/5

weird questions and answers.

Updated, fixed errors, and lowercase thing. And added up to 34 questions (not as random).

4/5 wasn't that hard

From: zasz
4/5 wasn't that hard

:) Cuz i updated it lol.

GJ,You have: 5/5. Correct, Gratz.

On my 3rd try. The first one was one because I spelled nothing right.

From: Mylesmadness

GJ,You have: 5/5. Correct, Gratz.

On my 3rd try. The first one was one because I spelled nothing right.

GJ ;) its very easy now, a few questions that may bit a but harder

GJ,You have: 4/5. Correct, Gratz.

^^

From: Hugolord
GJ,You have: 4/5. Correct, Gratz.

^^

:) yay ;)

GJ,You have: 4/5. Correct, Gratz.

I got who made scar 3.14 twice. Possiably make it so it doesn't repeat questions?

From: richk1693
GJ,You have: 4/5. Correct, Gratz.

I got who made scar 3.14 twice. Possiably make it so it doesn't repeat questions?

I might but really i cbf finding a way to do it.

Save the numbers 1 through how many questions you have in an integer array. Then choose the questions like

index:= Random(Length(MyIntArray));
case MyIntArray[Index] of
  .....
end;

Then remove MyIntArray[Index] by doing something like

procedure SwapInteger(var a, b: Integer);  //put somewhere else, obviously ;)
var
  c: Integer;
begin
  c:= a;
  a:= b;
  b:= c;
end;

SwapInteger(MyIntArray[Index], MyIntArray[High(MyIntArray)]);
SetLength(MyIntArray, High(MyIntArray));

That SHOULD work.

From: bullzeye95
Save the numbers 1 through how many questions you have in an integer array. Then choose the questions like

index:= Random(Length(MyIntArray));
case MyIntArray[Index] of
  .....
end;

Then remove MyIntArray[Index] by doing something like

procedure SwapInteger(var a, b: Integer);  //put somewhere else, obviously ;)
var
  c: Integer;
begin
  c:= a;
  a:= b;
  b:= c;
end;

SwapInteger(MyIntArray[Index], MyIntArray[High(MyIntArray)]);
SetLength(MyIntArray, High(MyIntArray));

That SHOULD work.

Ima lazy lazy man would you expect a lazy man to add that ;)

Great job, Bobbo. :D

Nice form. I got 3/5.

From: Kold
Great job, Bobbo. :D

Nice form. I got 3/5.

Thanks dude ;)

GJ,You have: 4/5. Correct, Gratz.

1st time

After I cheated :D

GJ,You have: 5/5. Correct, Gratz.

From: gamer 5
1st time

After I cheated :D

LOl, cheats get nowhere in life ;)

No-one ever told me I was mentioned here! Cool…going to play now ;)

From: Santa_Clause
No-one ever told me I was mentioned here! Cool…going to play now ;)

Lol, who wouldnt mention a legend ;)

SRL Compiled in 0 msec
yes
Sp0rk-eh - SRL Member Application Form
no
no
3
GJ,You have: 5/5. Correct, Gratz.
Successfully executed

GJ,You have: 4/5. Correct, Gratz.

Not much of an academic quiz XD

From: BobboHobbo
LOl, cheats get nowhere in life ;)

that's not what my grades say! :D

Lol very funny game :D 3/5 zomg noob score xD