stampede10343
2008-01-18 20:34:03
<!– 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
Looked at a few… Never learned any though
Other Communitys
Sythe but i dont really do anything cause of all the spamming
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
This will be my second time applying for a membership, and i think I've learned about some new features and tried to implement them into my script.
I've reviewed a couple of the nice beginner tutorials and most of the Intermediate tutorials about all the basics and some TPoints, and things of that nature. I have a decent understanding of Radial Walk, though i haven't used it much. I try to make sure there are fail safes where they need to by looking at similar scripts. I know a little about DDTM's and used one is this script. I thank you guys for all your comments and motivation.
——————————————————
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
Looked at a few… Never learned any though
Other Communitys
Sythe but i dont really do anything cause of all the spamming
How Long have You Played Runescape
5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
This will be my second time applying for a membership, and i think I've learned about some new features and tried to implement them into my script.
I've reviewed a couple of the nice beginner tutorials and most of the Intermediate tutorials about all the basics and some TPoints, and things of that nature. I have a decent understanding of Radial Walk, though i haven't used it much. I try to make sure there are fail safes where they need to by looking at similar scripts. I know a little about DDTM's and used one is this script. I thank you guys for all your comments and motivation.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{.Script Info:
# ScriptName = Stamp's ChickenKiller v1.2
# Author = Stampede10343
# Description = Kills Chickens and Collects Feathers
# Version = 1.2
# Date = 01/18/08
# Comments = Set your constants, and your players up and press play :)
/Script Info}
program ChickenKiller;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
var x, y, chickx, chicky : Integer;
Chickens, PlayerTimer, c : Integer;
count : String;
SubPoints: array[0..3] of TDTMPointDef;
MainPoint : TDTMPointDef;
PenTDTM: TDTM;
ChickenPen:Integer;
WhichAngle : Extended;
const
TimePerPlayer = 15;// How long to fight and switch players (in mins)
FightTimeOut = 12000;// Max Time it takes to kill a chicken
dbug = false; // Shows extra info via WriteLn, its not really needed
RoadTol = 255;// Dont change unless its having trouble callibrating
procedure DeclarePlayers;
begin
HowManyPlayers := 2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username'; //username
Players[0].Pass := 'pass'; //password
Players[0].Nick := 'ern'; //3-4 letters from your username
Players[0].Skill := 'strength';
Players[0].Integers[0] := 1; // Fight Mode 1 2
Players[0].Active := True; // 3 4
Players[1].Name := 'username'; //username
Players[1].Pass := 'pass'; //password
Players[1].Nick := 'ern'; //3-4 letters from your username
Players[1].Skill := 'strength';
Players[1].Integers[0] := 1; // Fight Mode 1 2
Players[1].Active := True; // 3 4
end;
{ NOT MINE I borrowed from Forefeathers }
function countfeathers:integer;
var
feathers:integer;
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 borrowed 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
Flag;
if(not(LoggedIn))then Exit;
if(InFight)then Exit;
begin
f := f + 1;
if(FindObj(x, y, 'eather', 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');
wait(750);
end;
end;
until(not(FindObj(x, y, 'eather', 12171971, 5))) or (f >= 3);
end;
procedure WaitInFight;
begin
Flag;
if(not(InFight))then Exit;
wait(250);
repeat
if(dbug)then writeln('Waiting to get out of fight');
FTWait(2);
until(not(InFight));
end;
procedure AssembleDTM;
begin
MainPoint .x:=633;
MainPoint .y:=86;
MainPoint .areasize:=1
MainPoint .areashape:=0;
MainPoint .color:=5987170;
MainPoint .tolerance:=RoadTol;
SubPoints[0].x:=621;
SubPoints[0].y:=79;
SubPoints[0].areasize:=1;
SubPoints[0].areashape:=0;
SubPoints[0].color:=15658734;
SubPoints[0].tolerance:=5;
SubPoints[1].x:=651;
SubPoints[1].y:=89;
SubPoints[1].areasize:=1;
SubPoints[1].areashape:=0;
SubPoints[1].color:=15922923;
SubPoints[1].tolerance:=5;
SubPoints[2].x:=616;
SubPoints[2].y:=93;
SubPoints[2].areasize:=1;
SubPoints[2].areashape:=0;
SubPoints[2].color:=15922923;
SubPoints[2].tolerance:=5;
SubPoints[3].x:=647;
SubPoints[3].y:=93;
SubPoints[3].areasize:=1;
SubPoints[3].areashape:=0;
SubPoints[3].color:=15922923;
SubPoints[3].tolerance:=5;
PenTDTM.MainPoint := MainPoint;
PenTDTM.SubPoints := SubPoints;
ChickenPen:= AddDTM(PenTDTM);
end;
procedure Callibrate;
begin
if(not(LoggedIn))then Exit;
if(FindDTMRotated(ChickenPen, x, y, MMX1, MMY1, MMX2, MMY2, - Pi/2, Pi/2, 0.1,
WhichAngle))then
begin
if rs_OnMinimap(x + 10, y + 50) then
Mouse(x + 10, y + 50, 3, 3, true)
else
Mouse(x, y, 3, 3, true);
c := 0;
end;
end;
function FindChicken : Boolean;
var I : Integer;
begin
for I := 0 to 9 do
begin
if(FindObjCustom(chickx, chicky, ['ttack', 'tack', 'hicken', 'icke'],
[2771037, 8233913, 8102584, 2572886, 3430514, 7443624], i))then
begin
Result := True;
Mouse(chickx, chicky, 3, 3, true);
GameTab(4);
FindFastRandoms;
if(Random(30) = 2)then
begin
if(dbug)then writeln('Random Skill Check');
HoverSkill(Players[CurrentPlayer].Skill, false);
wait(900 + random(500));
end;
Chickens := Chickens + 1;
end;
end;
end;
procedure SetupPlayer;
Begin
if(not(LoggedIn))then
Begin
LoginPlayer;
end;
SetFightMode(Players[CurrentPlayer].Integers[0]);
SetRun(True);
SetAngle(True);
MakeCompass('N');
GameTab(4);
wait(1000);
end;
procedure Proggy;
begin
writeln('|<---------------------------->|');
writeln('|< Stamp''s Chicken Killer 1.0 >|');
writeln('|<---------------------------->|');
writeln('|< Killed : ' + inttostr(Chickens) + ' Chickens >|');
writeln('|< Worked For : ' + TimeRunning + ' >|');
writeln('|<---------------------------->|');
end;
begin
ActivateClient;
SetupSRL;
DeclarePlayers;
AssembleDTM;
SetupPlayer;
MouseSpeed := 16;
repeat
begin
SetupPlayer;
MarkTime(PlayerTimer);
repeat
c := c + 1;
if(c = 3)then Callibrate;
FindChicken;
if(dbug)then writeln('Begin');
Feathers;
if(not(InFight))then FindChicken;
if(dbug)then writeln('Done Waiting for Fight');
Feathers;
FindFastRandoms;
until(TimePerPlayer * 60000 <= TimeFromMark(PlayerTimer));
if(not(LoggedIn))then NextPlayer(False);
if(LoggedIn)then NextPlayer(True);
end;
until(false);
end.——————————————————
<!– END TEMPLATE: formanswers –>