Feroc1ty
2009-07-03 08:14:17
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Some javascript, some C++, some second life scripting language, some scripting language from a game called WarCraft, and some scar obviously.
Are you a member of any other communities?
No
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
No
Were you Referred to SRL?
What is your general programming knowledge?
Some javascript, some C++, some second life scripting language, some scripting language from a game called WarCraft, and some scar obviously.
Are you a member of any other communities?
No
Tell us about yourself…
From: Feroc1ty
Hello, I'm feroc1ty, my interests are to simply improve my knowledge of programming, and why not do so while giving myself an edge in a game I somewhat enjoy playing.
Please show us one (or multiple) of your scripts.
I started out a few days ago, but here is what I have so far.
{ Please note that I might have done some extra crap with the random functions, such as adding multiple
of them and adding them together, simply because I believe the random is seeded, and wanted to receive
more random results}
// Feroc1ty(text).scar
var keyboard, shiftboard: array [0..3] of string;
mistypeprobability:integer;
// Keyboard strings with correct locations
procedure SetupVars;
begin
keyboard[0] := '`1234567890-= '; shiftboard[0] := '~!@#$%^&*()_+ '
keyboard[1] := ' qwertyuiop[]\'; shiftboard[1] := ' QWERTYUIOP{}|'
keyboard[2] := ' asdfghjkl; '; shiftboard[2] := ' ASDFGHJKL:" '
keyboard[3] := ' zxcvbnm,./ '; shiftboard[3] := ' ZXCVBNM<>? '
end;
{
---> FINISH THIS FIRST BEFORE DOING ANYTHING RANDOM!! <---
F I N I S H T H I S ! ! !
}
function TypeLetter(character:string; mistake:boolean):boolean;
begin
if mistake then
begin
end;
end;
// Can't complete until TypeLetter() is finished.
procedure TypeText(text:string; mistakes:boolean);
begin
end;
// Feroc1ty.scar
{.include Feroc1ty(text).scar}
var height, width, mousex, mousey: integer;
procedure Feroc1ty;
begin
GetClientDimensions(width,height);
GetMousePos(mousex, mousey);
end;
// Not yet complete, might add some stuff to improve the "humanness" of the script
procedure MoveTo(x, y, speed, accuracy:integer);
var dist:integer;
angle:extended;
begin
repeat
angle := Arctan2(y - mousey, x - mousex) + Rand() - 0.5;
mousex := Round(mousex + (speed + Random(speed) + Random(speed) + Random(speed))/2 * Cos(angle));
mousey := Round(mousey + (speed + Random(speed) + Random(speed) + Random(speed))/2 * Sin(angle));
dist := Distance(x, y, mousex, mousey);
MoveMouse(mousex,mousey);
Wait(5);
until (dist < accuracy)
end;
procedure Click(left:boolean);
var i:integer;
begin
HoldMouse(mousex, mousey, left);
while i < 5 do
begin
Wait(10+Random(20));
i := i + 1;
end;
ReleaseMouse(mousex, mousey, left);
Wait(20+Random(40));
end;
// Needs text functions complete before completion!
function LogIn(name,pass:string):string;
var x,y:integer;
begin
x := Round(width * 0.50);
y := Round(height * 0.39);
MoveTo(x,y,5,5);
Click(true);
end;
function GetMouseX():integer;
begin
Result := mousex;
end;
function GetMouseY():integer;
begin
Result := mousey;
end;
// MyFirstMacro.scar
program New;
{.include Feroc1ty.scar}
// Client Variables
var offset: integer;
// Initialization Procedure
procedure Init;
begin
Feroc1ty;
end;
// Body of program
begin
Init;
LogIn('test','lol');
end.