BAsh
2007-06-08 04:14:10
<!– BEGIN TEMPLATE: formanswers –>
BAsh - SRL Member Application Form
BAsh
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java
Other Communitys
Moparisthebest (not moparscape) Rs-r
How Long have You Played Runescape
2yrs
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Currently hacking rs java classes so they can be decompiled into something recognizable.
Wrote a few scripts for aryan.
Detailed knowledge of java.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Here is some code.
——————————————————
<!– END TEMPLATE: formanswers –>
BAsh - SRL Member Application Form
BAsh
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Java
Other Communitys
Moparisthebest (not moparscape) Rs-r
How Long have You Played Runescape
2yrs
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Currently hacking rs java classes so they can be decompiled into something recognizable.
Wrote a few scripts for aryan.
Detailed knowledge of java.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Here is some code.
//3212, 3205 <- target
program New;
{.include SRL/SRL.scar}
var
conn_index: integer;
procedure CMapWalk(x, y : integer);
var
zinitx, zinity, zfinalx, zfinaly : integer;
begin
zinitx := MMCX + x;
zinity := MMCY - y;
Mouse(zinitx, zinity, 0, 0, true);
end;
function connect: boolean;
var
str : string;
begin
if (conn_index <> 0) then freeConnection(conn_index);
conn_index := openConnection('127.0.0.1', 44, 3000);
SendConnectionData(conn_index, 'C');
ReadConnectionData(conn_index, str)
writeln('Response: ' + str);
if (str = 'Y') then result := true;
end;
procedure close;
begin
SendConnectionData(conn_index, 'X');
freeConnection(conn_index);
conn_index:= 0;
end;
function getPlayerX: integer;
var
str: string;
begin
SendConnectionData(conn_index, 'PX');
ReadConnectionData(conn_index, str)
result := strtoint(str);
end;
function getPlayerY: integer;
var
str: string;
begin
SendConnectionData(conn_index, 'PY');
ReadConnectionData(conn_index, str)
result:= strtoint(str);
end;
function NotAtTile(x, y, tolerance : integer) : boolean;
var
currentx, currenty : integer;
begin
if((x > currentx - tolerance) and (x < currentx + tolerance) and (y > currenty - tolerance) and (y < currenty + tolerance)) then
begin
result := false;
end else
begin
result := true;
end;
end;
procedure WalkToTile(x, y : integer);
var
dx, dy : integer;
begin
while(NotAtTile(x, y, 3)) do
begin
dx := x - getPlayerX;
dy := y - getPlayerY;
WriteLn('Walking...');
CMapWalk(dx * 4, dy * 4);
end;
WriteLn('Reached tile.');
end;
begin
ActivateClient();
SetupSRL();
Sleep(400);
WriteLn('Starting script');
if (conn_index <> 0) then freeConnection(conn_index);
if (connect) then
begin
WriteLn('Walking to tile.');
WalkToTile(3212, 3205);
close;
end else
begin
writeln('Could not connect.');
end;
end.
——————————————————
<!– END TEMPLATE: formanswers –>