s1cky
2007-10-25 17:29:26
<!– BEGIN TEMPLATE: formanswers –>
s1cky - SRL Member Application Form
s1cky
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
java
Other Communitys
sldevelopment.com
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been surfing the forums for a while now, and at first i just observed, and in fact, i am sad to say i was a lecher, but then i became more interested in scripting and decided to start, so i brought up some tuts and learn how to power cut, this is only the second version that i have made, but i am in the process of updating it. And also, looking into making a bow stringer, as soon as i come out with an update for my power cutter.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
s1cky - SRL Member Application Form
s1cky
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
java
Other Communitys
sldevelopment.com
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been surfing the forums for a while now, and at first i just observed, and in fact, i am sad to say i was a lecher, but then i became more interested in scripting and decided to start, so i brought up some tuts and learn how to power cut, this is only the second version that i have made, but i am in the process of updating it. And also, looking into making a bow stringer, as soon as i come out with an update for my power cutter.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program Treekiller;
//This is my frist script, so please post proggies an such.
//fill out login information
//fill out tree color and direction to run away, if attacked
//if anyone has any suggestions or anything to make this better please post
//can use for any tree as long as you pick the color
//has antirandoms but haven't had the time to check if they work. but they should
//Special thanks to RogerUK, hairy duncan2, and King of Knives for helping me with getting the script running. And richk1693 for his antirandom.
{.include SRL/SRL.scar}
//Variables
var
Loads: integer;
x,y : integer;
//Constants
Const
TreeColor = 531741; //Set the Tree Color
StartPlayer = 0;
NumberOfUsers = 1;
WaitTime = 5000; //5 Seconds to Wait
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer :=0;
Players[0].Name :='username';
Players[0].Pass :='password';
Players[0].Nick :='3-4 letters from your username';
Players[0].Active:=True; // If You use This Player Set True
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars)
if (not(LoggedIn)) then LoginPlayer;
end;
Procedure AntiRandoms;
Begin
FindTalk;
FindNormalRandoms;
if (FindFight = True) then
begin
RunAwayDirection('N'); //choose wisely
Wait(10000 + random(3000));
RunBack;
end;
end;
Procedure Cut;
Begin
Repeat
if(FindColorSpiralTolerance(x,y,TreeColor,MSX1,MSY1,MSX2,MSY2,5)) then
begin
MMouse(x,y,0,0);
Wait(250+random(50));
Mouse(x,y,0,0,true);
Wait(500 + random(250));
AntiRandoms;
Wait(WaitTime +(random(500)))
end;
until(InvFull);
end;
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 8 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: begin
if InBlack then
begin
Result := True;
Players[CurrentPlayer].loc := 'InBlack';
Logout;
Exit;
end;
end;
8: RC;
end;
wait(1);
end;
end;
Procedure Drop;
Begin
DropAll;
Loads:=Loads+1;
End;
Procedure Prog;
Begin
ClearDebug;
WriteLn('----->Welcome to the killer of trees :D<-----');
WriteLn(' ');
WriteLn('--------------------------------------------');
WriteLn('------------->Progress Report<--------------');
WriteLn('You have cut down' +IntToStr(Loads)+ 'loads!');
WriteLn('---------->End of Progress Report<----------');
WriteLn('--------------------------------------------');
end;
begin
ActivateClient;
SetupSRL;
DeclarePlayers;
repeat
NickNameBmp:=CreateBitMapMaskFromText(Players[CurrentPlayer].Nick,UpChars);
Cut;
Drop;
ClearDebug;
Prog;
until(IsFKeyDown(12));
end.——————————————————
<!– END TEMPLATE: formanswers –>