SRL Archive - Other Scripts

Well i was bored so i made this quiz, its simple but fun to answer questions :).

Yah, i posted in this section because its not really for RS, like it doesn't auto on RS, or do anything in RS.

Well here is the script, i might update it later :).

program RSQuiz;//Made by U L T R A.

{Version 1.0.}

var
 Count : Integer;
 NQ : String;

procedure AskQuestion1;
var
 QuestionA : String;
 begin
  begin
  repeat
  WriteLn('Answer the question! You have ' + IntToStr(5-Count) + ' chances left!');
  QuestionA := ReadLn('What is the name of a runescape monster that is half ghost - half skeleton?');
  Wait(1000);
  Count := Count + 1;
  until(QuestionA = 'Ankou')or(5-Count <= 0);
  if(QuestionA = 'Ankou')then
  begin
  WriteLn('Oh, my, god, you got it right! Good job!');
  WriteLn('You earned a chance point!');
  Count := Count - 2;
  WriteLn('You now have ' + IntToStr(5-Count) + ' chances left!');
  end else
  if(5-Count <= 0)then
  begin
  WriteLn('Oh, too bad, get better at runescape! Better luck next time!');
  TerminateScript;
  end;
  end;
end;

procedure AskQuestion2;
var
 QuestionA : String;
 begin
   begin
   repeat
   WriteLn('Answer the question! You have ' + IntToStr(5-Count) + ' chances left!');
   QuestionA := ReadLn('Who is zezima?');
   Wait(1000);
   Count := Count + 1;
   until(QuestionA = 'A guy with no life')or(5-Count <= 0);
   if(QuestionA = 'A guy with no life')then
   begin
   WriteLn('Awsome, good job! You passed the second question!');
   WriteLn('You earned a chance point!');
   Count := Count - 2;
   WriteLn('You now have ' + IntToStr(5-Count) + ' chances left!');
   end else
   if(5-Count <= 0)then
   begin
   WriteLn('Well, you passed the first question... It could have been worse...');
   WriteLn('Get better at runescape');
   TerminateScript;
   end;
  end;
end;

procedure TheEnd;
begin
 WriteLn('---------------------------------------------------------------------');
 WriteLn('You beat the game with ' + IntToStr(5-Count) + ' chances left!!!');
 WriteLn('---------------------------------------------------------------------');
end;
 
begin
ClearDebug;
AskQuestion1;
Wait(2000);
begin
repeat
NQ := ReadLn('Are you done reading the debug box? Yes/No?');
Wait(1000);
until(NQ = 'Yes');
AskQuestion2;
Wait(5000);
begin
repeat
NQ := ReadLn('Are you done reading the debug box? Yes/No?');
Wait(5000);
until(NQ = 'Yes');
TheEnd;
end;
end;
end.

Please post some comments? :P Ty.

Standards please! :eek:

hehe.

improve standards

and w/e since its ur 1 of your bored scripts i like it :P

Standards please!

hehe.

improve standards

and w/e since its ur 1 of your bored scripts i like it :P

Dont read it! You will find the answers! Dont wanna make standards because i dont want people to look at the answers there :P.

P1nky, my god, stop saying: "hehe." god darn! :D

who is ankou? maybe ill look it up in the database.

maybe some more "runescape related questions"

and maybe multiple right answers

great script. Here's a proggy.

———————————————————————
You beat the game with 6 chances left!!!
———————————————————————

You might want to use lowercase(string), some peoples capitalize names, some not.