pwnzr
2008-02-10 04:45:24
<!– BEGIN TEMPLATE: formanswers –>
pwnzr - SRL Member Application Form
pwnzr
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
i met bonfield at university and he introduced me to this community
Programming Knowledge
scar
Other Communitys
cruels
How Long have You Played Runescape
2.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
im going to university this year for computer programming and i would really like to become a valued member and hope to see the SRL community grow and create great scripts
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
pwnzr - SRL Member Application Form
pwnzr
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
i met bonfield at university and he introduced me to this community
Programming Knowledge
scar
Other Communitys
cruels
How Long have You Played Runescape
2.5 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
im going to university this year for computer programming and i would really like to become a valued member and hope to see the SRL community grow and create great scripts
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program MyAutoFighter;
{.include SRL/SRL.scar}
var
m, monsters, Att,Str,Def:Integer;
Const
Color1 = 2577265; // color of monster to attack
Color2 = 15198954; // color of monster to attack
Color3 = 1847094; // color of monster to attack
NumberOfUsers = 1; // how many characters are you going to use with this script
StartPlayer = 0; // number of start player in DeclarePlayers
FoodColor = 000000; // color of food
HpToEat = 10; // when to eat
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
VersionNumber = 1.0;
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Procedure DeclarePlayers;
Begin
HowManyPlayers:= NumberOfUsers;
NumberOfPlayers( HowManyPlayers );
CurrentPlayer := StartPlayer;
Players[0].Name :='UserName';
Players[0].Pass :='Password';
Players[0].Nick :='3-4 Letters Of Youre Username';
Players[0].integers[3] := 40; // Attack level to Train to
Players[0].integers[4] := 99; // Strength level to Train to
Players[0].integers[5] := 10; // Defence level to Train to
Players[0].Active:=True;
Players[1].Name :='UserName';
Players[1].Pass :='Password';
Players[1].Nick :='3-4 Letters Of Youre Username';
Players[1].integers[3] := 40; // Attack level to Train to
Players[1].integers[4] := 99; // Strength level to Train to
Players[1].integers[5] := 10; // Defence level to Train to
Players[1].Active:=True;
end;
Procedure FindEnemy;
var x, y: Integer;
Begin
If
(FindColorSpiral(x,y,Color1,2,2,418,304)) Or
(FindColorSpiral(x,y,Color2,2,2,418,304)) Or
(FindColorSpiral(x,y,Color3,2,2,418,304)) Then
Begin
Writeln('Found Enemy Now Starting Script')
End Else
Writeln('We cant find the monster sorry! Logging out!');
end;
procedure AttackMode;
var
i,att,str,def:integer;
begin
if not(loggedIn) then exit;
if (players[currentplayer].skill='') then
begin
gametab(2);
wait(200);
att:=getskilllevel('attack');
str:=getskilllevel('strength');
def:=getskilllevel('defence');
if dbug then writeln(inttostr(att)+' attack');
if dbug then writeln(inttostr(str)+' strength');
if dbug then writeln(inttostr(def)+' defence');
marktime(a);
if (lowercasE(players[currentplayer].skill)='attack') then
if (att<players[currentplayer].integers[3]) then exit else players[currentplayer].skill:='';
if (lowercasE(players[currentplayer].skill)='strength') then
if (str<players[currentplayer].integers[4]) then exit else players[currentplayer].skill:='';
if (lowercasE(players[currentplayer].skill)='defence') then
if (def<players[currentplayer].integers[5]) then exit else players[currentplayer].skill:='';
for i:=0 to 0 do
begin
if (players[currentplayer].skill='') then
begin
if (att<players[currentplayer].integers[3]) then
if not(players[currentplayer].integers[3]=99) then
begin
players[currentplayer].skill:='attack';
break;
end;
if (str<players[currentplayer].integers[4]) then
if not(players[currentplayer].integers[4]=99) then
begin
players[currentplayer].skill:='strength';
break;
end;
if (def<players[currentplayer].integers[5]) then
if not(players[currentplayer].integers[5]=99) then
begin
players[currentplayer].skill:='defence';
break;
end;
if (players[currentplayer].integers[3]=99) then players[currentplayer].skill:='attack';
if (players[currentplayer].integers[4]=99) then players[currentplayer].skill:='strength';
if (players[currentplayer].integers[5]=99) then players[currentplayer].skill:='defence';
end;
end;
gametab(1);
case lowercase(players[currentplayer].skill) of
'attack': setfightmode(1);
'strength': setfightmode(2);
'defence','defense': setfightmode(4);
end;
end;
end;
function AttackTheMonster2(Color1, Color2, Color3, Tolerance: Integer; MonsterName: string): Boolean;
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;
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;
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 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;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
function DoAntiBan: Boolean;
begin
AntiBan;
wait(50 + random(100));
BoredEvery(3 + random(3));
wait(100 + random(100))
RotateEvery(7 + random(4));
wait(750 + random(250));
LeaveScreenEvery(5 + random(7));
wait(500 + random(150));
end;
procedure ProgressReport;
Begin
ClearDebug;
Writeln('<|----------------------------------------------|>');
Writeln(' AutoFighter v'+VersionNumber+' by Pwnzr ');
Writeln(('Worked for ' + TimeRunning + '');
Writeln(' Attacked ' + IntToStr(Monsters));
Writeln('<|----------------------------------------------|>');
end;
procedure WriteLns(Text: string);
begin
WriteLn(Text);
Wait(200);
end;
procedure Intro;
begin
WriteLns('`||''|. ');
WriteLns(' || || ... ... ... .. ... ...... ... .. ');
WriteLns(' ||...|` || || | || || ` .|` ||` '' ');
WriteLns(' || ||| ||| || || .|. || ');
WriteLns('.||. | | .||. ||. ||....| .||. ');
ClearDebug;
WriteLn('tell me how my script goes =] =]') ;
end;
Procedure Setup;
begin;
Declareplayers;
Credits;
SetupSRL;
ActivateClient;
SRLRandomsReport;
end;
begin
setup;
repeat
if (not (loggedin)) then
begin
loginplayer;
SetRun(true);
AttackMode;
wait(2000 + random(1000));
highestangle;
end;
FindNormalRandoms;
wait(200 + random(200));
fighter;
wait(200 + random(200));
until (false);
ProgressReport;
Logout;
End.
——————————————————
<!– END TEMPLATE: formanswers –>