Scaper
2007-11-20 22:11:00
<!– BEGIN TEMPLATE: formanswers –>
scaper123 - SRL Member Application Form
scaper123
What is the meaning to life?
umm meaning to life for me is getting in with every day life at work, at home, and not taking runescape to seriouse like the kids do i like to go to work and set my wc'ers miners away see you can still play the game while doing every day activity. i love this forum :D
Where you Referred to SRL? If yes, by whom?
no
i currently found the wiki sight and it all went from there
Programming Knowledge
currently learning java,i kno html,sql delphi basics,c++
Other Communitys
i am ibot contributer/ i contribute more here tho. help in turtorials there etc, kyab member
How Long have You Played Runescape
i played rune scape 4 months my son got me into it no im a cheater;)
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
well i am currently an IT consultent for a british company called BT.
i am always on these forums,kyab,rsca, and always willing to help or give
a point of view or point some1 in the right direction if they need it.
i am familirised with the people here and have a good knowledge of the comunity i jus want to move that step up now.i enjoy this comunity it's always alive, helping, freindly, and i have learned alot from here.i never leech i always contribute as much back as they give if i can.
below is the work i jus made this up for here i have much more to give i jus need the extra opurtunity.this took me 20minutes to do for this application.
All the best
~scaper123
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
scaper123 - SRL Member Application Form
scaper123
What is the meaning to life?
umm meaning to life for me is getting in with every day life at work, at home, and not taking runescape to seriouse like the kids do i like to go to work and set my wc'ers miners away see you can still play the game while doing every day activity. i love this forum :D
Where you Referred to SRL? If yes, by whom?
no
i currently found the wiki sight and it all went from there
Programming Knowledge
currently learning java,i kno html,sql delphi basics,c++
Other Communitys
i am ibot contributer/ i contribute more here tho. help in turtorials there etc, kyab member
How Long have You Played Runescape
i played rune scape 4 months my son got me into it no im a cheater;)
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
well i am currently an IT consultent for a british company called BT.
i am always on these forums,kyab,rsca, and always willing to help or give
a point of view or point some1 in the right direction if they need it.
i am familirised with the people here and have a good knowledge of the comunity i jus want to move that step up now.i enjoy this comunity it's always alive, helping, freindly, and i have learned alot from here.i never leech i always contribute as much back as they give if i can.
below is the work i jus made this up for here i have much more to give i jus need the extra opurtunity.this took me 20minutes to do for this application.
All the best
~scaper123
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
// _Scaper123_
//i have much more to give im dont this at 5am uk time work in 10mins..hehe
program PowerCutWillows;
{.include SRL/SRL.scar}
var Loads: Integer;Dropped: Integer;
const
LoadsPerPlayer = 10; //How many loads per player before switching.
TreeColor = 3297881; //Jus set the color of tree you want to chop and away we go. color works for me only change if needed
WaitPerTree = 5000; //How long to wait before changing Trees..1000 millisecs = 1 second..?
Procedure DeclarePlayers;
begin
SRLID :=''; //If you dont have this please register at...
SRLPassword :=''; // [url]www.srl-forums.com[/url] come on dont jus Leech the scripts.
HowManyPlayers :=2; //How many Players you want to use
NumberOfPlayers( HowManyPlayers ); //No need to touch this
CurrentPlayer :=0; //Current player you want to start with [0] or [1]?
Players[0].Name := ''; //Charecters name.
Players[0].Pass := ''; //Chars's pass.
Players[0].Nick := 'oxy'; //Three or four letters of your chars name.
Players[0].Active := True; //Do you want to use this player?
Players[1].Name := 'UserName'; //Charecters name.
Players[1].Pass := 'UserPass'; //Chars's pass.
Players[1].Nick := 'eee'; //Three or four letters of your chars name.
Players[1].Active := False; //Do you want to use this player?
end;
procedure DoAntiRandoms;
begin
findTalk;
FindNormalrandoms;
if (FindFight = true) then
begin
RunAwayDirection('w');//Touch only if object in the way set to run.
Wait(5000 + random(1000));
RunBack;
end;
end;
procedure AntiBan;
begin
case 1 + Random(6) of
1 : BoredHuman;
2 : PickUpMouse;
3 : HoverSkill('random', false);
4 : RandomMovement;
5 : RandomRClick;
6 : GameTab(1 + Random(13));
end;
end;
procedure Progressreport;
begin
Cleardebug;
Writeln('[]==============================[]');
Writeln('---------------------------------');
Writeln(' Did ' + IntToStr(Loads) + ' Loads' +' ');
Writeln('---------------------------------');
Writeln(' Did ' + IntToStr(Dropped) + ' Dropped' +' ');
Writeln('[]==============================[]');
end;
Procedure Choptree;
var
x,y, MyMark : integer;
begin
if not Loggedin then exit;
MarkTime(MyMark);
repeat
if FindObj (x, y, 'hop', TreeColor, 30) then
begin
Mouse(x,y, 177, 112, False);
if ChooseOption('hop') then
begin
//increase 1 to the total tree - if we had one
Wait(WaitPerTree);
Exit;//we clicked chop now we can exit this procedure.
end;
end;
if TimeFromMark(MyMark)> (2*60*100)then
begin
Logout;
Exit;
end;
until false;
end;
function Detectent: Boolean;
var
x,y:integer;
begin
if (FindColorTolerance(x, y, 383705, 9, 9, 233, 24, 20)) or
(FindColorTolerance(x, y, 65535, 9, 9, 233, 24, 20)) then
begin
GetMousePos(x, y);
Mouse(x, y, 5, 5, False);
if (FindText(x, y, 'Chop down', upchars, x - 50, y - 50, x + 100, y + 50)) then
begin
if (FindColor(x, y, 65535, x + 70, y, x + 100, y + 10)) then
begin
Writeln('Found ent! Waiting for it to go away');
Result := True;
EntsAvoided := EntsAvoided + 1;
Mouse(MMCX, MMCY, 1, 1, True);
end;
end else
ChooseOption('Cancel');
end;
end;
begin
SetupSRL;
DeclarePlayers;
if LoggedIn then Logout;
LoginPlayer;
end;
repeat
Choptree;
if InvFull then
begin
if(AxeInInventory) then DropToPosition(2,28);
if(not(AxeInInventory) then DropAll;
Inc(Players[CureentPlayer].Banked);
if Players[CureentPlayer].Banked mod LoadsPerPlayer = 0 then
begin
NextPlayer(True);
end;
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>