TViYH
2008-09-02 22:21:22
<!– BEGIN TEMPLATE: formanswers –>
TheVoiceInYourHead - SRL Member Application Form
TheVoiceInYourHead
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, HTML, CSS, VB.NET
Other Communitys
RSBot, Sythe, few others
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hmmm. I'm good in school [A average], I'm easy to get along with. I play sports. I lovee to script! I usually don't end up finishing scripts though because RS gets boring..I'm learning TPAs, etc. Getting decent at them =].
I hope you guys will finally accept me into the Members forum =]
I've tried pretty hard.
I've learned TPAs, T2DPointArrays, multiplayer, etc.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
TheVoiceInYourHead - SRL Member Application Form
TheVoiceInYourHead
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
PHP, HTML, CSS, VB.NET
Other Communitys
RSBot, Sythe, few others
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hmmm. I'm good in school [A average], I'm easy to get along with. I play sports. I lovee to script! I usually don't end up finishing scripts though because RS gets boring..I'm learning TPAs, etc. Getting decent at them =].
I hope you guys will finally accept me into the Members forum =]
I've tried pretty hard.
I've learned TPAs, T2DPointArrays, multiplayer, etc.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{.Script Info:
# ScriptName = PowerChopper v1.2
# Author = TheVoiceInYourHead
# Description =
# Version = 1.2
# Date = Sep. 02, 2008
# Comments =
/Script Info}
program PowerChopper;
{.include SRL\SRL.scar}
{.include SRL\SRL\Skill\Woodcutting.scar}
var
Logs, Ents, z: Integer;
Colors: TIntegerArray;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Colors := []; //Setup Normal Tree colors here
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
Writeln( IntToStr ( HowManyPlayers ) + ' Players' );
End;
function waitChop: boolean;
var
i, c, x, y: Integer;
begin
if not LoggedIn then Exit;
i := InvCount;
MarkTime(c);
repeat
FindNormalRandoms;
if FindEnt(x, y, True) then
Inc(Ents);
Wait(120);
until((InvCount>i) or (TimeFromMark(c)>=60000));
Result := True;
end;
function dropLogs: boolean;
var
x, y: Integer;
begin
if not LoggedIn then Exit;
repeat
Logs := Logs + CountItems(srl_GetBitmap(bmp_Log_Normal), 'bmp', [0])
ClickAllItems(srl_GetBitmap(bmp_Log_Normal), 'bmp', 'rop', 120, [0]);
until(not(FindBitmap(srl_GetBitmap(bmp_Log_Normal), x, y)));
Result := True;
end;
//Thanks to Cazax and Nava2 for help
function findTree(colors: tintegerarray): boolean;
var
MainTPA: TPointArray;
MainATPA, ColorTPA: T2DPointArray;
MainPoint: TPoint;
i, c, lingth: Integer;
begin
if not LoggedIn then Exit;
for c := 0 to High(colors) do
begin
FindColorsSpiralTolerance(MSCX, MSCY, ColorTPA[c], colors[c], MSX1, MSY1, MSX2, MSY2, 5);
MainTPA := CombineTPA(MainTPA, ColorTPA[c]);
end;
if Length(MainTPA)=0 then
begin
WriteLn('Pick new colors..');
TerminateScript;
end;
MainATPA := TPAtoATPAEx(MainTPA, 4, 4);
Lingth := High(MainATPA);
for i := 0 to Lingth do
begin
MainPoint := MiddleTPA(MainATPA[i]);
MMouse(MainPoint.x, MainPoint.y, 0, 0);
Wait(75 + Random(51));
if IsUpText('ree') then
begin
Mouse(MainPoint.x, MainPoint.y, 0, 0, False);
Wait(250 + Random(250));
Result := ChooseOption('hop');
If Result Then
Exit;
end;
end;
if Not Result Then
Writeln('No Tree');
end;
procedure Proggy;
begin
WriteLn('<><><><><>TViYH''s PowerChopper');
WriteLn('Total Ents: ' + IntToStr(Ents));
WriteLn('Total Logs: ' + IntToStr(Logs));
WriteLn('Total Time: ' + IntToStr((GetTimeRunning * 1000) * 60) + ' minutes');
end;
procedure MainLoop;
begin
if not LoggedIn then Exit;
if not FindAxe then
begin
WriteLn('No axe..');
TerminateScript;
end;
repeat
if findTree(Colors) then
waitChop;
until(InvFull);
dropLogs;
Proggy;
end;
begin
SetupSRL;
DeclarePlayers;
ActivateClient;
for z := 0 to (HowManyPlayers-1) do
begin
LoginPlayer;
MainLoop;
NextPlayer(False);
end;
end.
——————————————————
<!– END TEMPLATE: formanswers –>