born to macro
2007-08-10 18:45:41
<!– BEGIN TEMPLATE: formanswers –>
born to macro - SRL Member Application Form
born to macro
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
yes php, c, html
Other Communitys
yes sythe.org , travdev.freehostia.com
How Long have You Played Runescape
about 2-3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
well iv made a few websites iv wroten alot of scripts and i want to become a member
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
born to macro - SRL Member Application Form
born to macro
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
yes php, c, html
Other Communitys
yes sythe.org , travdev.freehostia.com
How Long have You Played Runescape
about 2-3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
well iv made a few websites iv wroten alot of scripts and i want to become a member
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program GrooveyAutoFighter;
{.include SRL/srl..scar}
const
Startplayer = 0;
mColor1 = 0; {colour of monster}
mcolor2 = 0; {colour of monster}
mcolor3 = 0; {colour of monster}
Monster = 'Giant rat'; {name}
tol = 5;
mode = 2; {1 att 2 str 3 controlled 4 defence}
EvenSkills = True; {true or false}
Eat = 'No'; {yes/no}
Eathp = 5; {when you want to eat}
Foodname = ''; {name}
Foodcolor = 1; {colour of food}
VerNumber = '5'; {Version Number}
MaxTime = 5000; {Maximum wait time!}
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := StartPlayer;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active := True;
end;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure ProgressReport;
Begin
ClearDebug;
Writeln('<|----------------------------------------------|>');
Writeln(' AutoFighter v'+VerNumber+' by born to code ');
Writeln(' Worked for: '+ScriptTime2(2));
Writeln(' Attacked ' + IntToStr(Monsters));
Writeln('<|----------------------------------------------|>');
end;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure EatFood;
begin
if not LoggedIn then exit;
repeat
if(eat = 'Yes')then
begin
if(gethp < Eathp) then
begin
Gametab(4)
findobjarea(x,y,foodname,MIX1,MIY1,MIX2,MIY2,foodcolor,5,true);
Mouse(x,y,5,5,true);
isuptext(foodname);
end;
end;
until (gethp > eathp) or(not(LoggedIn));
end;
function FindFastRandoms: Boolean; //By WT-Fakawi.
var
i: Integer;
begin
if not LoggedIn then Exit;
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 FindRandoms;
begin
FindFastRandoms;
FindNormalRandoms;
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
function AttackTheMonster2(Color1, Color2, Color3, Tolerance: Integer; MonsterName: string): Boolean; {thanks to mastaraymond for the help}
var
i, x, y: Integer;
begin
if not LoggedIn then Exit;
Flag;
for i := 1 to 5 do
begin
if (FindColorTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance + i)) or
(FindColorTolerance(x, y, Color2, MSX1, MSY1, MSX2, MSY2, Tolerance + i)) or
(FindColorTolerance(x, y, Color3, MSX1, MSY1, MSX2, MSY2, Tolerance + i)) then
begin
MMouse(x, y, 3, 3);
Wait(80 + Random(60));
if (IsUpText('Attack ' + MonsterName)) then
begin
Result := True;
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Wait(40 + Random(20));
Flag;
Exit;
end;
end;
end;
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Function MakeTBoxOfTPointArrays(Points1,Points2,Points3:TPointArray;var ThePoint:TPoint): Boolean; {thanks to mastaraymond for the help}
Var
I,II,III:integer;
L,LL,LLL:integer;
TempBox:TBox;
begin;
if not LoggedIn then Exit;
L:= Length(Points1);
LL:= Length(Points2);
LLL:= Length(Points3);
if (L = 0) or (LL = 0) or (LLL = 0) then
begin;
Result:= False;
Exit;
end;
For I:= 0 to L-1 do
begin;
TempBox.x1:= (Points1[I].x-10);
TempBox.y1:= (Points1[I].y-10);
TempBox.x2:= (Points1[I].x+10);
TempBox.y2:= (Points1[I].x+10);
For II:= 0 to LL-1 do
if IntInBox(Points2[II].x,Points2[II].y,TempBox) then
For III:= 0 to LLL-1 do
if IntInBox(Points2[II].x,Points2[II].y,TempBox) then
For III:= 0 to LLL do
if IntInBox(Points3[III].x,Points3[III].y,TempBox) then
begin;
Result:=True;
ThePoint.x:=Round(((Points1[I].x + Points2[II].x + Points3[III].x ) div 3));
ThePoint.y:=Round(((Points1[I].y + Points2[II].y + Points3[III].y ) div 3));
exit;
end;
end;
end;
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
function AttackTheMonster(Color1, Color2, Color3, Tolerance: Integer; MonsterName: string): Boolean; {thanks to mastaraymond for the help}
var
i, x, y: Integer;
PointsColors1,PointsColors2,PointsColors3:TPointArray;
TempPoint:TPoint;
begin;
Flag;
FindColorsSpiralTolerance(MSCX,MSCY,PointsColors1,Color1,MSX1,MSY1,MSX2,MSY2,Tolerance);
FindColorsSpiralTolerance(MSCX,MSCY,PointsColors2,Color2,MSX1,MSY1,MSX2,MSY2,Tolerance);
FindColorsSpiralTolerance(MSCX,MSCY,PointsColors3,Color3,MSX1,MSY1,MSX2,MSY2,Tolerance);
if MakeTBoxOfTPointArrays(PointsColors1,PointsColors2,PointsColors3,TempPoint) then
begin;
if not LoggedIn then Exit;
MMouse(TempPoint.x,TempPoint.y, 3, 3);
Wait(80 + Random(60));
for I:= 0 to 3 do
if (IsUpText('Attack ' + MonsterName)) then
begin;
Result := True;
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Wait(40 + Random(20));
Flag;
Exit;
end;
end;
if AttackTheMonster2(Color1, Color2, Color3, Tolerance,MonsterName) then Result:=true;
end;
procedure Fighter;
var
TempTime:Integer;
begin
if not LoggedIn then Exit;
m:= 0;
if AttackTheMonster(mcolor1, mcolor2, mcolor3, tol, monster) then
begin;
TempTime:=GetSystemTime;
FindNormalRandoms;
Repeat
FindFastRandoms;
Wait(50+random(100));
FindNormalRandoms
until not InFight or ((GetSystemTime - TempTime) >= MaxTime) or (not(LoggedIn));
Monsters := m + 1;
ProgressReport;
end else if not FindMonster(MColor1,MColor2,MColor3,Tol,Monster) then
begin;
Writeln('We cant find the monster sorry! Logging out!');
NextPlayer(false);
end;
end;
procedure Setup;
begin;
Declareplayers;
Credits;
SetupSRL;
DisguiseScar(inttostr(Monsters));
ActivateClient;
SRLRandomsReport;
end;
begin
setup;
repeat
if (not (loggedin)) then
begin
loginplayer;
SetRun(true);
setfightmode(mode);
wait(2000 + random(1000));
highestangle;
end;
FindNormalRandoms;
wait(200 + random(200));
fighter;
wait(200 + random(200));
until (false);
ProgressReport;
Logout;
End.
——————————————————
<!– END TEMPLATE: formanswers –>
