prints "Hello World!"Code:++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.
prints "Hello World!"Code:++++++++++[>+++++++>++++++++++>+++>+<<<<-]>++.>+.+++++++..+++.>++.<<+++++++++++++++.>.+++.------.--------.>+.>.
Join the Official SRL IRC channel. Learn how to Here.
Exactly how do you use that to print hello world? I put just that in and got begin expected, added what's needed and got identifier expected. (I was assuming it was a scar code)
ILMMTYAEAFHPY.Originally Posted by sirlaughsalot



richk, that's brainfuck![]()
He might have got from here...
http://en.wikipedia.org/wiki/Brainfuck
SCAR Code:program new;
{function decomp(text:string):tstringarray; } {Nope, does not work. Is possible, can somebody tell me why?}
{var
i:integer;
temp:tstringarray;
begin
setarraylength(temp,high(text));
for i:=1 to high(text) do
begin
temp[i]:=StrGet(text,1);
end;
result:=temp;
end; }
function write(text:Tstringarray):boolean;
var
i,t:integer;
waffle:tstringarray;
dones,compile,original:string;
begin
original:= getdebugtext;
waffle:=['A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z',' ','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z'];
for i:=0 to high(text) do
begin
compile:=compile+text[i];
end;
original:=original+compile;
for i:=0 to high(text) do
begin
repeat
t:=random(53);
cleardebug;
writeln(dones+waffle[t]);
wait(15);
until(text[i]=waffle[t])
dones:=dones+text[i];
end;
end;
begin
write(['H','e','l','l','o',' ','W','o','r','l','d']);
//write(decomp('Hello World'));
//decomp('Test');
end.
I looked at Boreas' and told myself I could do something like that too![]()
[QUOTE]<GoF`> oh no its Raymooond
<Raymooond> Heya
<GoF`> is it ray or some other ray?
<LeeLokHin> No idea
<LeeLokHin> Raymond, what's the game you like the most?
<Raymooond> Runescape
<-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]



leelokhin, you need to set the length of temp as length(text), not high(text).
Very simple one here but oh well...
SCAR Code:program HelloWorld;
Const
h = 'H';
e = 'e';
l = 'l';
o = 'o';
w = 'W';
r = 'r';
d = 'd';
Procedure HW;
Begin
ClearDebug;
WriteLN(h+e+l+l+o+w+o+r+l+d);
end;
Begin
HW;
end.
SCAR Code:program HelloWorld;
const
h='H';
e='e';
l='l';
o='o';
w='w';
r='r';
d='d';
z=' ';
Procedure HelloWorld;
begin
writeln(h)
wait(200)
writeln(e)
wait(200)
writeln(l)
wait(200)
writeln(l)
wait(200)
writeln(o)
wait(200)
writeln(z)
wait(200)
writeln(w)
wait(200)
writeln(o)
wait(200)
writeln(r)
wait(200)
writeln(l)
wait(200)
writeln(d)
end;
begin
cleardebug;
writeln('Prepare to be amazed......')
wait(1000)
HelloWorld;
end.
I'm baaaack
SCAR Code:{.include SRL/SRL.scar}
var
w: integer;
function SendHello(sex: integer): string;
begin
case sex of
1: Result := 'h';
2: Result := 'e';
3: Result := 'l';
4: Result := 'l';
5: Result := 'o';
6: Result := '';
7: Result := 'W';
8: Result := 'o';
9: Result := 'r';
10: Result := 'l';
11: Result := 'd';
12: Result := '!';
end;
end;
begin
SetupSRL;
ClearDebug;
w := 1;
for w := 1 to 12 do
begin
WriteLn(SendHello(w));
w := w + 1;
end;
end.
for some reason it only types every other letter.![]()
That's because you have a for-loop and "w := w + 1;", that makes it add not one, but two a time![]()
The best way to contact me is by email, which you can find on my website: http://wizzup.org
I also get email notifications of private messages, though.
Simba (on Twitter | Group on Villavu | Website | Stable/Unstable releases
Documentation | Source | Simba Bug Tracker on Github and Villavu )
My (Blog | Website)
RC4 Cypher this time
SCAR Code:program RC4Cypher;
var
s : array [0 .. 255] of byte;
i, j : integer;
const cyphertext = 'k[âCòË;e2';
Key = 'SRLFtw';
procedure InitRandomGen(key : string);
begin
for i := 0 to 255 do
S[i] := i;
for i := 0 to 255 do
begin
j := (j + S[i] + (ord(key[(i mod (length(key))+1)]))) mod 256;
swap(S[i],S[j])
end;
i := 0;
j := 0;
end;
function GenerateByte : byte;
begin
i := (i + 1) mod 256;
j := (j + S[i]) mod 256;
swap(s[i], s[j]);
result := S[(s[i]+s[j]) mod 256];
end;
function EncryptRC4(text, key : string) : string;
var CC, LL : integer;
begin
LL := length(text);
InitRandomGen(key);
result := text;
for CC := 1 to LL do
begin
result[CC] := chr((ord(text[cc])) xor GenerateByte);
end;
end;
begin
writeln(EncryptRC4(cyphertext, key));
end.
I made a new script, check it out!.
There are currently 1 users browsing this thread. (0 members and 1 guests)