SRL Archive - Other Scripts

I was bored and decided to created this simple, little game for Scar fans.

All you have to do, is copy the code, paste it into scar, and press play.

The objective of the game is to maneuver the mouse to the randomized coordinates. The system will give you hints in the debug box, so watch that carefully.

{.Script Info:
# ScriptName  = CoordFinder
# Author(s)      = WhoCares357 and ejjman1
# Description = Find coordinates in time
# Version     = 1.67
# Date        = 1/27/06
# Comments    =Original by: WhoCares357;  Edited by: Ejjman1; Edited by WhoCares357
/Script Info}
program CoordFinder;
 
var
  cx, cy, x, y, I, WTime, TTime, Lvl: integer;
 
procedure Lvl1;
begin
 I := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 1;
 x := 0+random(75);
 y := 0+random(50);
   repeat
     I := I + 3;
     GetMousePos(cx, cy);
     WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
     Wait(WTime);
     if I >= 20000 then
     begin
       WriteLn('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       WriteLn('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl2;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 2;
 x := 0+random(150);
 y := 0+random(100);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl3;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 3;
 x := 0+random(225);
 y := 0+random(150);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl4;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 4;
 x := 0+random(312);
 y := 0+random(215);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl5;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 5;
 x := 0+random(375);
 y := 0+random(343);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl6;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 6;
 x := 0+random(490);
 y := 0+random(390);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl7;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 7;
 x := 0+random(590);
 y := 0+random(430);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl8;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 8;
 x := 0+random(655);
 y := 0+random(480);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl9;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 9;
 x := 0+random(723);
 y := 0+random(550);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Lvl10;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 10;
 x := 0+random(799);
 y := 0+random(599);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
   if I >= 20000 then
   begin
     writeln('A hint..its near '+inttostr(x+random(2))+', '+inttostr(y+random(2))+'.');
     writeln('I''ll give you 5 seconds to get that into your head...');
     wait(5000);
     TTime := TTime + I;
     I := 0;
   end;
 until(cx = x) and (cy = y);
   TTime := TTime + I;
end;
 
procedure Proggy;
begin
  writeln('You have completed lvl '+inttostr(Lvl)+'.');
  writeln('Completed in '+inttostr(TTime/1000)+' seconds.');
  if Lvl <= 9 then writeln('Moving onto the next lvl.');
  writeln('Prep Time of 5-10 seconds to cool down.');
  wait(5000+random(5000));
end;
 
begin
  Lvl1;
  Proggy;
  Lvl2;
  Proggy;
  Lvl3;
  Proggy;
  Lvl4;
  Proggy;
  Lvl5;
  Proggy;
  Lvl6;
  Proggy;
  Lvl7;
  Proggy;
  Lvl8;
  Proggy;
  Lvl9;
  Proggy;
  Lvl10;
  Proggy;
end.

Enjoy, and post your times here, :)

Edit: I have added on from my last script by incorporating ejjman1's ideas and script edits. I have re-edited his edits and will most likely edit it more if someone has further ideas. This is a community project now. If you have an idea for improvement, please post.

/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
You won! Congratulations! Give yourself a pat on the back.
It took you 28077 miliseconds to win the game.
\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////////

Not bad seeing as i didn't cheat. xD

/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
You won! Congratulations! Give yourself a pat on the back.
It took you 3 miliseconds to win the game.
\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////////

Owned? lol

Cool game. :)

Just an idea:

Maybe add levels to make it more interesting? Such as.. the script would generate random coords, tell you which coord to go to, once the user puts his mouse over the correct coords, it will save how long it took, and you will move on to the next lvl.

And at the end of let's say.. 5 lvls, it will show you the total time it took you to complete the game. :)

Hmm, good idea. I'll add it when I get some free time. Nice scores everyone :)

Edit: ejjman1 beat me to it :p Thanks ejjman1

/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
You won! Congratulations! Give yourself a pat on the back.
It took you 3 miliseconds to win the game.
\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////////

<3 HotKeys..;)

Me…showing that I have no life..:cartman: Jk lol but ya, I wanted to do this. Each lvl increases what it can be by 100, like…

Lvl 1: x can be anything from 0-100, same with y.
Lvl 2: x can be anything from 0-200, same with y.
…
All the way up to lvl 10, which is 0-1000. Good luck with it I guess.

PS: I added hint, and its very close to the actual coord, so search that area ;)

{.Script Info:
# ScriptName  = CoordFinder
# Author      = WhoCares357
# Description = Find coordinates in time
# Version     = 1.67
# Date        = 1/27/06
# Comments    = Edited by: Ejjman1
/Script Info}
program CoordFinder;

var
  cx, cy, x, y, I, WTime, TTime, Lvl: integer;

procedure Lvl1;
begin
 I := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 1;
 x := 0+random(100);
 y := 0+random(100);
   repeat
     I := I + 3;
     GetMousePos(cx, cy);
     WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
     Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl2;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 2;
 x := 0+random(200);
 y := 0+random(200);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl3;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 3;
 x := 0+random(300);
 y := 0+random(300);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl4;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 4;
 x := 0+random(400);
 y := 0+random(400);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl5;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 5;
 x := 0+random(500);
 y := 0+random(500);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl6;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 6;
 x := 0+random(600);
 y := 0+random(600);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl7;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 7;
 x := 0+random(700);
 y := 0+random(700);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl8;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 8;
 x := 0+random(800);
 y := 0+random(800);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl9;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 9;
 x := 0+random(900);
 y := 0+random(900);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
     if I >= 20000 then
     begin
       writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
       writeln('I''ll give you 5 seconds to get that into your head...');
       wait(5000);
       TTime := TTime + I;
       I := 0;
     end;
   until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Lvl10;
begin
 I := 0;
 cx := 0;
 cy := 0;
 WTime := 1;
 TTime := 0;
 Lvl := 10;
 x := 0+random(1000);
 y := 0+random(1000);
 repeat
   I := I + 3;
   GetMousePos(cx, cy);
   WriteLn('Current Mouse Position: ('+IntToStr(cx)+', '+IntToStr(cy)+')');
   Wait(WTime);
   if I >= 20000 then
   begin
     writeln('A hint..its near '+inttostr(x+random(1))+', '+inttostr(y+random(1))+'.');
     writeln('I''ll give you 5 seconds to get that into your head...');
     wait(5000);
     TTime := TTime + I;
     I := 0;
   end;
 until(cx = x) and (cy = y);
   TTime := TTime + I;
end;

procedure Proggy;
begin
  writeln('You have completed lvl '+inttostr(Lvl)+'.');
  writeln('Completed in '+inttostr(TTime/1000)+' seconds.');
  if Lvl <= 9 then writeln('Moving onto the next lvl.');
  writeln('Prep Time of 5-10 seconds to cool down.');
  wait(5000+random(5000));
end;

begin
  Lvl1;
  Proggy;
  Lvl2;
  Proggy;
  Lvl3;
  Proggy;
  Lvl4;
  Proggy;
  Lvl5;
  Proggy;
  Lvl6;
  Proggy;
  Lvl7;
  Proggy;
  Lvl8;
  Proggy;
  Lvl9;
  Proggy;
  Lvl10;
  Proggy;
end.

and when u increase lvls, say like every 2 lvls, u have to get 1 additional coord?

and maybe have timeframes to complete each lvl in?

/////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\
You won! Congratulations! Give yourself a pat on the back.
It took you 26070 miliseconds to win the game.
\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////////

From: bramble
and when u increase lvls, say like every 2 lvls, u have to get 1 additional coord?

and maybe have timeframes to complete each lvl in?

I don't see what you mean. There can only be an x and a y coordinate.

uh ejjman i mean set of coords, sorry to confuse you :-P, meaning find this set then find that set to continue to next lvl, and u have to do it in a specified amount of time, this would truly hone ur mouse skills

Lol, this will end up being a community project, eh? I'll update my original with yours ejjman1.

One thing, though. Make it max out at 800*600, because not everybody has their resolution at 1024*768.

Nvm, you beat me :P

K I updated the first post. :) Enjoy. (Thanks bunches to ejjman1. Without his help, you'd still be able to cheat :p)

Edit: My coords are a bit sloppy. Let me see yours again, lol.

Yours are fine lol.

K, thx for help again.