The ReadLn Function!

Hello SRL community. I'm here to tell you about the ReadLn command. Everyone knows the writeln function but very few know the readln and it is quite useful!

What is ReadLn?

ReadLn is a function used to get information from the user. It is basicly a form that dosen't require any other codeing except one small procedure.

Where could i use ReadLn?

Use it where you need to get information from the user but don't want to have to go to the trouble of makeing a form ;)

What is the syntax?

The syntax is simple:

SCAR Code:

function Readln(question: string): string;

The question is statement is what you want to ask the user.

Useing ReadLn.

Just put:

SCAR Code:

ReadLn({question here});

where you want to ask the user your question. A box will pop up with your question and an edit box. The user puts the "answer" in the edit box and ReadLn returns the answer as a string.

Useing a variable to define the answer.

We need to use a variable to make the "answer" any use to us. So just make something like this:

SCAR Code:

var
Answer : string;

Working Example.

Here is a working example of ReadLn;

SCAR Code:

program ReadLnExample;
var
Answer : String;

procedure GetAnswer;
begin
Answer := ReadLn('What is your username?');
writeln(Answer);
end;

begin
GetAnswer;
end.

Feel free to + rep me if you like guide and please give feedback.

-Ronny

I 'spose it'd be helpful for some people :)

I was bored and I made a script to show the possibilites.........

SCAR Code:

program New;

var SndBox, ManyBox : string;
var Done : Integer;

begin
ClearDebug;
SndBox:= Readln('What do you want to type');
ManyBox:= Readln('How many times?');
//Sendkeys(SndBox)
Writeln('Printing ' + inttostr(strtoint(ManyBox)) + ' Times');
Writeln('');
Repeat
Writeln(SndBox);
Done:= Done + 1;
until(Done = (strtoint(ManyBox)))
Writeln('');
end.

This is an interesting concept. Thanks for sharing.

How could you use this for a script in RS/ what would be the point? Just wondering, cause I can't think of how.

Simple set up form, that's about it.

Quote:

---

Originally Posted by Boreas

Simple set up form, that's about it.

---

Ah ok I see.

Ye, a simple little shortcut ;)

Yes and something like this is great for runescape:

SCAR Code:

program New;
{.include SRL/SRL.scar}
var
UserQuestion,PassQuestion,NickQuestion,SkillQuestion,LocQuestion : string;


procedure GetAnswers;
begin
UserQuestion := readln('Username?');
PassQuestion := readln('Password?');
NickQuestion := readln('Nick name?');
SkillQuestion := readln('Skill?');
LocQuestion := readln('Player Location?');
end;

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := UserQuestion;
Players[0].Pass := PassQuestion;
Players[0].Nick := NickQuestion;
Players[0].Skill:= SkillQuestion;
Players[0].Loc  := LocQuestion;
Players[0].Active :=True;
end;

begin
GetAnswers;
end.

Wow! This is what I needed! Very helpful... at least for me!

if you like it then you could rep me if you like ;)

Just so you know ronny, its against the rules to ask for rep ;)

decent tut.

I didn't ask for rep i just said if you like it then you can feel free to if you want ;)

You did say

if you like it then + my rep

not you could rep you, but to do it if he liked it ;) No big deal lol.. Just thought I'd explain to you the rules :p

i hear ya..ill edit post :)

What is rep for anyways :confused:

Lol, reminding people to give you rep "If they want too" Is pretty much telling them too because you know they liked the tut ;) Rep is not supposed to be talked about at all. It really doesn't matter lol, just saying ;)

Edit: Runehacker, its just something that only you can see, that people rep your post. I forgot how to check it though, something under account management I believe :p

Ok can we get back on topic now?

So it's somekinda like the "prompt" function from JavaScript?
Can you somekinda like this?:

SCAR Code:

program Users_Age;
Var
  Age: String;

Procedure Users_Age;
Begin
  Age:= ReadLn('How old are you?');
  Writeln(Age);
End;

Begin
  Users_Age;
End.

And than you can use that further in your script, right?
Like:

SCAR Code:

program Users_Age;
{.include srl/srl.scar}
Var
  Age: String;
  Times, Age2 : integer;

Procedure Users_Age;
Begin
  Age:= ReadLn('How old are you?');
  Writeln(Age);
End;

Procedure WriteUsersInfo;
Begin
  Age2:= StrToInt(Age)+1;
  Times := 1;
  Repeat
    Writeln('Your '+IntToStr(Times)+' b-day');
    Times := Times + 1;
  Until (Times = Age2)
End;

Begin
  Users_Age;
  WriteUsersInfo;
End.

>> I know somekinda like stupid, but it's an example :P

EDIT: Plz can you also send a PM cause i probably gonna forget this thread cause of exams, tx :P

no offence, wouldn't this go in the beginners section =p

Ya i guess but alot of people dont know about it (even advanced).

we no about.. alot of people just don't use it.

y not use this instead of forms...like ronny said

Quote:

---

program New;
{.include SRL/SRL.scar}
var
UserQuestion,PassQuestion,NickQuestion,SkillQuesti on,LocQuestion : string;


procedure GetAnswers;
begin
UserQuestion := readln('Username?');
PassQuestion := readln('Password?');
NickQuestion := readln('Nick name?');
SkillQuestion := readln('Skill?');
LocQuestion := readln('Player Location?');
end;

Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name := UserQuestion;
Players[0].Pass := PassQuestion;
Players[0].Nick := NickQuestion;
Players[0].Skill:= SkillQuestion;
Players[0].Loc := LocQuestion;
Players[0].Active :=True;
end;

begin
GetAnswers;
end.

---

but add like this

SCAR Code:

program New;
{.include SRL/SRL.scar}
var
UserQuestion,PassQuestion,NickQuestion,SkillQuestion,LocQuestion : string;
 
 
procedure GetAnswers;
begin
UserQuestion := readln('Username?');
PassQuestion := readln('Password?');
NickQuestion := readln('Nick name?');
SkillQuestion := readln('Skill?');
LoadQuestion:=readln('how many loads');
end;
 
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
 
Players[0].Name := UserQuestion;
Players[0].Pass := PassQuestion;
Players[0].Nick := NickQuestion;
Players[0].Skill:= SkillQuestion;
Players[0].Active :=True;
end;
 
begin
GetAnswers;
end.

...and im sure u could add multi-player to readln if u wanted

It's easier then forms :)

i know....but would u be able to make multiplayer with it?...like

SCAR Code:

const
Loads:(answer)

procedure woot;
begin
  answer:readln('how many players are you using');
  for I:=0 to (answer) do 
  repeat
    username[i]:=readln('username');
    password[i]:=readln('password');
    nickname[i]:=readln('nickname');
    load[i]:=readln('how many load');
    answer:=answer-1
  until (answer:=0)
end;

procedure DeclarePlayers;
begin
howManyPlayers := (answer);
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
 
Players[0].Name := Username;
Players[0].Pass := Password;
Players[0].Nick := Nickname;

Players[1].Name := Username;
Players[1].Pass := Password;
Players[1].Nick := Nickname;

Players[2].Name := Username;
Players[2].Pass := Password;
Players[2].Nick := Nickname;
end;

begin
woot;
DeclarePlayers;
end.

that wont nessisarily work...just an example

SCAR Code:

procedure DeclarPlayersReadln;
begin
  try
  HowManyPlayers:=strtoint(readln('how many players are you using'));
  except end;
  NumberOfPlayers(HowManyPlayers);

  for CurrentPlayer:= 0 to HowManyPlayers-1 do
  begin
    try
    Players[CurrentPlayer].Name:=readln('Player['+inttostr(CurrentPlayer)+']'+chr(39)+'s Username');
    except end;
    if Players[CurrentPlayer].Name='terminatescript' then terminatescript;

    try
    Players[CurrentPlayer].Pass:=readln(Players[CurrentPlayer].Name+chr(39)+'s Password');
    except end;
    if Players[CurrentPlayer].Pass='terminatescript' then terminatescript;

    try
    Players[CurrentPlayer].Nick:=readln(Players[CurrentPlayer].Name+chr(39)+'s Nick');
    except end;
    if Players[CurrentPlayer].Nick='terminatescript' then terminatescript;

    try
    Players[CurrentPlayer].Integer1:=strtoint(readln(Players[CurrentPlayer].Name+chr(39)+'s will do how many loads'));
    except end;
    if Players[CurrentPlayer].Integer1=0 then terminatescript;
  end;
  try
  CurrentPlayer:=strtoint(readln('Which Player will start?'));
  except end;
end;

begin
    setupsrl;
    DeclarPlayersReadln;
end.

Try that

Boreas to the rescue :spongebob:

Sorry that i 'm daying this, but why doesn't anyone answers my question?
Omg :)

Yes

holy crap Boreas...that is amazing...thats way better and simpler than what i wouldve come up with...i wrote sumthing earlier...and it was like 40 lines...ty!!

question though...for the which player starts....would u put the name or the number...number, right?


y doesit only do up to 2 players?

Which player starts is a number.

It should do as many as you want. Remember if you do 3 players, they will be 0 1 and 2.


By the way, what I posted above was just to prove what Readln could be used for if you really wanted. But I would suggest using this instead.

SCAR Code:

program New;
{.include srl/srl.scar}
{.include srl/srl/misc/playerform.scar}

begin
setupsrl;
FileName:='Team1';
setupplayers;
end.

im not quite sure i get what u mean with the

Quote:

---

program New;
{.include srl/srl.scar}
{.include srl/srl/misc/playerform.scar}

begin
setupsrl;
FileName:='Team1';
setupplayers;
end.

---

...but i typed in 7 for the number of players...and it only did 2
EDIT: sry nope it works for all past 2...yep

Quote:

---

Originally Posted by Boreas

Yes

---

Thanks, i get it than :P
Btw you also know JavaScript?

Np. I know a little bit of a few languages, but only really SCAR.

is there any way where u could make more than one question come up in one window?...like an ultimate form, without all those extra lines...like putting ands in between them...and having them all pop up at once(even if they're in different windows...to make it easier to understand

Not that I know of. Learn forms or use setupplayers :p

yea u posted something about that earlier

SCAR Code:

program New;
{.include srl/srl.scar}
{.include srl/srl/misc/playerform.scar}

begin
setupsrl;
FileName:='Team1';
setupplayers;
end.

ill look it up...but if i cant find...can u tell me what it is?
EDIT: not sure i really get it...so it just opens a form...and asks all the things in your declare players?noo.....hmm its says it opens a form...but why make real forms if this just opens one, without all the form work...why make real forms?

EDIT2: ohhhhh...i've seen this before..i tried that mini-script u put up ...that i re-posted, and it came up...but how would u make it work for a specific script...1 where u wouldnt need the loc or the skill, like a buyer. u cant really change those.instead of those 2 i would need them to type in a item type, number of loads, and pin number.:confused:

If you want stuff that settupplayers doesn't have, you need to write (or get someone else to write - there are a couple people doing it I think) a custom form.

lol...who's making custom forms?!