SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
cheri - SRL Member Application Form
cheri

What is the meaning to life?


Where you Referred to SRL? If yes, by whom?
no


Programming Knowledge
Delphi

Other Communitys
Was in sythe.

How Long have You Played Runescape
From 2002

Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.

Im 18 years old student from finland. Learning programming in school.

Free time I play Runescape, wow. ( Both games i auto ^^ )

Have about 2 years experience for programming SCAR. But most of the scripts I don't publish because, if you publish -> more risk to get banned.
So I just share with my friends and of course I use them too. :D

——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted

program Cherfightah;
{.include SRL\SRL.SCAR}
{.include SRL\SRL\skill\Fighting.scar}
{.include SRL/SRL/Skill/Ranging.scar}
{.include SRL\SRL\extended\xObject.SCAR}


Const
Color1 = 1121681;  rats
Color2 = 1121681;
Color3 = 1121681;
Monstername ='Guard' ;
Kills = 100000 ; 
Startplayer = 0 ;   
foodcolor = 1400241;
Runawaydir= 'N' ; 
Pickarrows  = False; 
Arrowcolor  = 0; 
EatHp = 61;   
Foodname = 'Lobster';
Eat = 'Yes' ; 
Tolerance = 3 ; 
Fightmode = 2 ;  



Var fightchecks,a, killed :integer; TabTimer:integer; EatTimer:integer;
SkillTimer:integer;

Procedure report;
begin
writeln('______________________')
writeln('DaWuAutoFighter V1.4')
writeln('Worked for '+ TimeRunning);
writeln('Killed: ' + inttostr(a))
writeln('______________________')
end;



Function InFightAt(x, y: Integer):Boolean;
var
  dx, dy: Integer;
begin
Result:= (FindColor(dx, dy, 65280, x - 20, y - 10, x + 20, y + 10) or
    FindColor(dx, dy, 225, x - 20, y - 10, x + 20, y + 10)   or
    FindColor(dx, dy, 16728128, x - 20, y , x + 20, y + 20)   or
    FindColor(dx, dy, 192, x - 20, y, x + 20, y + 20));
end;


procedure OutFightO;
var
  i: integer;
begin
  Flag;
  for i:= 1 to 5 do
 begin
    if(InFightAt(x,y))then
   begin
     repeat
       wait(50);
     until(not(InFightAt(x,y)));
    exit;
   end else
  wait(300);
 end;
end;

function KAttackMonsterM(Color1, Color2, Color3, Tolerance: Integer; MonsterName: String): Boolean;
var
  i, x, y: Integer;
begin
  FFlag(5);
  for i:= 1 to 5 do
 begin
   if(FindColorTolerance(x, y, Color1, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
     (FindColorTolerance(x, y, Color2, MSX1, MSY1, MSX2, MSY2, Tolerance + i))and
     (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));
       FFlag(5);
       OutFightO;       exit;
     end;
    end;
 end;
end;




Procedure RandomTab;
begin
  MarkTime(TabTimer);
  repeat
    if TimeFromMark(TabTimer) > 2000 then
    begin
    Wait(600+random(500))
      Gametab(1+random(12))
      MarkTime(Tabtimer);
    end else Wait(500);
  until false;
end;

function Arrowpickup: boolean;
begin
 if (Pickarrows=true) then
  begin
  repeat
   wait(400+random(210))
    if(FindObj(x,y,'ake',arrowcolor,0))then
     begin
     mouse(x,y,3,2,true)
     FFlag(5);
    end;
  until(not(FindObj(x,y,'ake',arrowcolor,0)))
 end;
end;

//-----------------------------------------------//

function PutArrowsOn: Boolean; 
var
  xx, yy: Integer;
begin
if (Pickarrows=true) then
 begin
 GameTab(4)
  Result := FindInvArrows(xx, yy);
   Wait(100 + Random(250));
   Mouse(xx, yy, 0, 0, True);
  end;
end;

procedure SkillCheck;
begin
 if(FightMode = 1) then begin
   HoverSkill('Attack',false);
 end;
 if(FightMode = 2) then begin
   HoverSkill('Strength',false);
 end;
 if(FightMode = 3) then begin
   HoverSkill('Attack',false);
   wait(1000 + random(500));
   HoverSkill('Strength',false);
 end;
 if(FightMode = 4) then begin
   HoverSkill('Defence',false);
 end;
end;


Procedure Slay;
begin
fightchecks:=0;
a:=0;
Repeat;
MarkTime(TabTimer);
MarkTime(eatTimer);
MarkTime(SkillTimer);
wait(100+random(500))
FindMonster(color1,color2,color3,tolerance,monstername);
KattackmonsterM(color1,color2,color3,tolerance,monstername);
a:= a +1;
fightchecks:= fightchecks + 1;
PutArrowsOn;
FindNormalRandoms;
Arrowpickup;
Report;
FindNormalRandoms;
wait(1000+Random(550))
if(eat = 'Yes')then begin
if TimeFromMark(EatTimer) > 15000 then
    begin
    Wait(1000+random(500))
      RealEatifneeded(foodcolor,EatHp,False)
      End;
      End;

if TimeFromMark(SkillTimer) > 30000 then
    begin
    Wait(1000+random(500))
      SkillCheck;
      End;

if TimeFromMark(TabTimer) > 25000 then
    begin
    Wait(1000+random(500))
      Gametab(1+random(12))
      end;
AntiBan;
until(fightchecks = Kills);
end;

Procedure DeclarePlayers;
begin

HowManyPlayers := 1;
NumberOfPlayers 1;
CurrentPlayer := ;

Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick := '';
Players[0].Active := True;



writeln('using'+inttostr(howmanyplayers)+'player[s]');
end;


Begin
SetupSRL;
Declareplayers;
loginplayer;
HighestAngle;
SetRun(true);
FindNormalRandoms;
AntiBan;
setfightmode(fightmode);
Slay;
Logout;
End.

——————————————————
<!– END TEMPLATE: formanswers –>

I think this is stolen…

{.include SRL\SRL\extended\xObject.SCAR}

has been removed already for a long time.
Also,

highestangle;

has been removed since rev 10…
It is outdated, and thats an auto no from me.

writeln('DaWuAutoFighter V1.4')

How do you explain that?

Also, work on your standards;)
Good luck next time.

EDIT:
It was stolen:
http://www.villavu.com/forum/showthread.php?t=4046?t=4827
Thanks to ZephyrsFury for finding out:)

PvH

This is a copied script.

writeln('DaWuAutoFighter V1.4')

Its DaWu's auto fighter from the Fighting section in the Junior Members scripts section.

http://www.villavu.com/forum/showthread.php?t=4046?t=4827

Next time you copy a script… make sure you remove the old scripts name before you post it… :rolleyes:

hahaha you got SRL copyright busted owned

And the account is suspended..
Edit:

Released: 12-05-2006

Don't copy..

But *doesn't vote*

Even I noticed that lol. I wouldn't have noticed if he renamed the procedures :D

WHY must you people always spam applications when there is no script or it is copied. If you see someone already say "You need a script" or "This is copied" and shows proof, you don't need to repeat what they are saying 12 times. Just stop posting and report the thread.

Closed.