SRL Archive - First Scripts

Hi im quite new here and I thought I might as well make a script and stop leeching, i decided to make this script as a test and i just wanted to see how well it can do and what could be improved.

Here it is

program NumberGuesser;//By Jameo 30what (have a fiddle but if reposting please give credit)

var
i: Integer;
y: Integer;
x: Integer;
z: Integer;


begin
y:=(999)//Change Here To Your Number
x:=(0)
z:=(1000)//Change to max number
 writeln('Welcome to Jameo 30whats Number Guesser')
  wait (5000)
 repeat
  x:= x + 1;
  i:=random(z)
  wait (100)
  writeln('Is Your Number ' +IntToStr(i) +'?')
 until (i=y)
 if (i=y)
 then writeln('Your Number Is ' +IntToStr(y) +'!');
  writeln('I guessed ' +IntToStr(x) +' times');

end.

program NumberGuesser;//By Jameo 30what (have a fiddle but if reposting please give credit)

var
  i, y, x, z: Integer; // Declare at one line

begin
  z := 1000;
  y := 999;
  x := 0;
  Writeln('Welcome to Jameo 30whats Number Guesser')
  Wait(5000);
  repeat
    Inc(x); // Inc() is faster
    i := Random(z);
    Wait(100);
    Writeln('Is Your Number ' +IntToStr(i) +'?');
  until (i=y);
  Writeln('Your Number Is ' +IntToStr(y) +'!');
  Writeln('I guessed ' +IntToStr(x) +' times');
  end;
end.

Optimized some things.
Pretty basic but I smell potential ;)

lol nice xD

From: Frt

program NumberGuesser;//By Jameo 30what (have a fiddle but if reposting please give credit)

var
  i, y, x, z: Integer; // Declare at one line

begin
  z := 1000;
  y := 999;
  x := 0;
  Writeln('Welcome to Jameo 30whats Number Guesser')
  Wait(5000);
  repeat
    Inc(x); // Inc() is faster
    i := Random(z);
    Wait(100);
    Writeln('Is Your Number ' +IntToStr(i) +'?');
  until (i=y);
  Writeln('Your Number Is ' +IntToStr(y) +'!');
  Writeln('I guessed ' +IntToStr(x) +' times');
  end;
end.

Optimized some things.
Pretty basic but I smell potential ;)

Thx

I have made another script (got my idea from the get banned script) it chooses a random number and types it using sendkeys (heard its really easy to detect) and you should get banned for spamming and macroing.Stupid but thats what comes up off the top of your head.:confused:

program New;

var
x: integer;


begin
wait(10000)//Wait To Switch To Game
repeat
x:=random(10000000000000)
sendkeys(IntToStr(x) + chr(13))
wait(2000)//Wait In Between Typing
until(false)

end.

program New;

var
x: integer;


begin
  Wait(10000); //Wait To Switch To Game
  repeat
    x := random(10000000000000)
    TypeSend(IntToStr(x)) //Types enter at the end for you
    Wait(2000); //Wait In Between Typing
  until(false)

end.