stampede10343
2007-10-24 21:47:18
<!– BEGIN TEMPLATE: formanswers –>
stampede10343 - SRL Member Application Form
stampede10343
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
some python
Other Communitys
Sythe
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting for about a year, and have been using SCAR for about 1.5 years, i have used a couple other Autominers, and got banned so i got interested in Scar after i learned my lesson, i started just using some autominers. but i wanted to know why they work so i read tutorials on here and Sythe. And i learned and i think im doing pretty good and i think im ready to see if im good enough to be a member, and to share my experiece.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
stampede10343 - SRL Member Application Form
stampede10343
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
some python
Other Communitys
Sythe
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I have been scripting for about a year, and have been using SCAR for about 1.5 years, i have used a couple other Autominers, and got banned so i got interested in Scar after i learned my lesson, i started just using some autominers. but i wanted to know why they work so i read tutorials on here and Sythe. And i learned and i think im doing pretty good and i think im ready to see if im good enough to be a member, and to share my experiece.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program ChickenKiller;
{.include SRL/SRL.scar}
var x, y : Integer;
Chickens : Integer;
const
TimePerPlayer = 15;// How long to fight and switch players (in mins)
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 1;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].Skill := 'strength'; //'attack','strength','defence'
Players[0].Integers[1] := 1; // 1 2 // 1 = Attack
Players[0].Integers[2] := 500;// // 2, 3 = Strength //Chickens to Kill
Players[0].Active := True; // 3 4 // 4 = Defense
end;
function FindChicken : Boolean;
var
Colors : array[1..4]of Integer;
i : Integer;
begin
Result := False;
colors[1] := 5227996;
colors[2] := 923765;
colors[3] := 5161431;
colors[4] := 5269622;
for i := 1 to 4 do
begin
if(FindObj(x, y, 'ick', colors[i], 5))then
begin
Result := True;
end else
Result := false;
end;
end;
{ NOT MINE I copied from Forefeathers }
function countfeathers:integer;
var
feathers:integer;
count:string;
begin
result:=0;
feathers:=DTMFromString('78DA639464606010614001DBD7AC61E002D28' +
'C40FC1F081845810C5E0634C08844026921202148400D485E8C08' +
'73A409A8E107124A04D480FC2443408D3CA6DF31D448000949FC6' +
'A00153F07BB');
gametab(4);
wait(200+random(50));
if finddtm(feathers,x,y,mix1,miy1,mix2,miy2) then
begin
count:=GetTextAtEx(x-16, y-17, 0, statchars, False, False, 0, 1, 65535, 10, false, tr_AlphaNumericChars);
count:=trim(TrimOthers(count));
if not(count='') then
begin
result:=strtoint(count);
end;
end;
freedtm(feathers);
end;
{ NOT MINE I copied from Forefeathers }
function FindFastRandoms: Boolean; //By WT-Fakawi.
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 Feathers;
var
f : Integer;
begin
repeat
begin
if(FindObj(x, y, 'ath', 12171971, 5))then
begin
FTWait(2);
MMouse(x, y, 5, 5);
wait(30 + random(10));
Mouse(x, y, 0, 0, false);
wait(100 + random(30));
ChooseOption('eather');
end;
F := f + 1;
end;
until(not(FindObj(x, y, 'ath', 12171971, 5))) or (f = 5);
end;
procedure Attack;
begin
if(FindChicken)then
begin
if(FindFight)then Exit;
MMouse(x, y, 5, 5);
Mouse(x, y, 0, 0, true);
end;
repeat
wait(300);
until(not(FindFight));
if(Random(5) = 2)then
begin
HoverSkill(Players[CurrentPlayer].Skill, false);
wait(1000 + random(500));
end;
Chickens := Chickens + 1;
end;
procedure SetupPlayer;
Begin
if(not(LoggedIn))then
Begin
LoginPlayer;
end;
SetFightMode(Players[CurrentPlayer].Integers[1]);
end;
procedure Proggy;
begin
writeln('|<---------------------------->|');
writeln('|< Stamp''s Chicken Killer 1.0 >|');
writeln('|<---------------------------->|');
writeln('|< Killed : ' + inttostr(Chickens) + 'Chickens >|');
writeln('|<Worked For: ' + ' >|');
writeln('|<---------------------------->|');
end;
begin
SetupSRL;
repeat
if(not(LoggedIn))then
Begin
NextPlayer(False);
end;
until(Chickens >= Players[CurrentPlayer].Integers[2]);
end.——————————————————
<!– END TEMPLATE: formanswers –>