SRL Archive - Archive

DaWu - SRL Member Application Form
DaWu

What is the meaning to life?
Having fun.

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


Programming Knowledge
C, Java

Other Communitys
Fagex, Mopar, Sythe

How Long have You Played Runescape
3-4 years

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

I like scripting, I'm working on my AutoFighter, I know how to use the main SRL and its main procedures. I've been applying like 6 times, if I won't make it this time, I guess, I just don't have what it takes to become a SRL member.

The example script has:

My own attack procedure,
Autoranging with arrows pickup,
Automaging with strike spells,
Multiplayers,
Randoms,
AntiBan,

It works great and Run it overnight couple of times since its now multiplayers.
I Hope I finally have what it takes to become a SRL member.
Here we go again.

-DaWu.

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

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


//setup at lines 20-39 \\
//Start logged out \\
//Im not responsible for any loss or damage this script causes \\

//Yes and No must be writen like that Yes not yes, won't work if not that way\\

//-_-___DaWuAutoFighter PRO Version 1.5___-_-\\
// Made by DaWu                           \\
//xxKanexx great fighting functions. <3   \\
//Gofs arrow picking and stuff            \\
//WT-Fakawi's Great InFightAt, thanks     \\
//DaDerDer & R4ndom ( der for the base auto talk \\
// and r4ndom for modyfying it ) I added   \\
// autoresponding from the r4ndoms script\\
//Thx Arr0w for the leet responder \\
//And last but not least, thanks SRL, you made it possible \\



Const
Color1 = 16316664; //Colours of the monsters.
Color2 = 2510958;
Color3 = 16316664;
Monstername ='Cow' ; //write the name JUST like its on game.
Response = False; // use autoresponse1 or not, less stabile than arrows.
Respond2= True; //Arrows more stabile responder, True = use it, false = not.
UserName= '' ; // If using arrows Responder, then add youre username here.
Kills = 100000 ; // amount of monsters to be killed.
Startplayer = 0 ;   //player that starts
foodcolor = 5856368;//set food color if u wanna eat.
Runawaydir= 'N' ; //Direction to run N,S,W,E
Pickarrows  = False; // Set to false if u dont use arrows.
Arrowcolor  = 0; //Color of the arrow on ground.
EatHp = 20;   //Hp to eat at.
Eat = 'No' ; //Yes Or No, Eat Or Not. (remember to write first letter in caps)
Tolerance = 3 ; //Tolerance for the monster colours
Fightmode = 2 ;  //Fightmode to be used
AutoSpell = 'Fire Strike'; //Spell Name. Only strike spells ! ONLY.
Style = 'DONOTCHANGE'; //DO NOT CHANGE THIS!
Magic = 'No'; // If to use magics, set 'Yes' if not to use then set 'No'
AttackProcedure ='2' ; // 1 for kanesAttack, 2 for my attack procedure.
Skill='Strength';//Lamp Skill For Genie
const MissedColorO  = 16728128;
const HitColorO   = 192;
const GreenStatusColorO = 65280;
const RedStatusColorO = 225;

Var fightchecks,i,  killed :integer; TabTimer:integer; EatTimer:integer;
SkillTimer:integer; Dir: String; TimeOut2: integer;

Procedure DeclarePlayers;
begin

HowManyPlayers := 4;
NumberOfPlayers(howmanyplayers);
CurrentPlayer := StartPlayer;

Players[0].Name :='dsaf';//name
Players[0].Pass :='1345324';//pass
Players[0].Nick := 'af';// about 3 letters of ur name
Players[0].Skill := 'Strength';  // skill for lamp.
Players[0].Active := True;

Players[1].Name :='ASDSA';
Players[1].Pass :='sdasf';
Players[1].Nick :='mmeraa';
Players[1].Skill := 'Strength';  // skill for lamp.
Players[1].Active:=True;

Players[2].Name :='zxcvbnm';
Players[2].Pass :='21321';
Players[2].Nick :='xcv';
Players[2].Skill := 'Strength';  // skill for lamp.
Players[2].Active:=True;

Players[3].Name :='poiuytrewq';
Players[3].Pass :='2321';
Players[3].Nick :='oiu';
Players[3].Skill := 'Strength';  // skill for lamp.
Players[3].Active:=True;

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


Procedure Intro;
begin
writeln('*^_-_-_-_-_-_-_-_-_^*');
writeln('DaWu Presents to you:');
wait(1000)
writeln('DaWu AutoFighter PRO' );
wait(1000)
Writeln('Enjoy the ride <3'    );
Wait(6000)
end;


Procedure ResponderByArrow;
Begin
if (Respond2= True) Then
begin
  if (InChat('Mining lvls') or
    InChat('Mining lvls?') or
    InChat('Mine lvls') or
    Inchat('Mine lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Mining')))
  end;

  if (InChat('Wc lvls') or
    InChat('Wc lvls?') or
    InChat('Woodcut lvls') or
    InChat('Woodcut lvls?') or
    InChat('Woodcutting lvls') or
    InChat('Woodcutting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
  end;
  if (InChat('Fish lvls') or
    InChat('Fish lvls?') or
    InChat('Fishin lvls') or
    InChat('Fishin lvls?') or
    InChat('Fishing lvls') or
    InChat('Fishing lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Fishing')))
  end;
  if (InChat('Attack lvls') or
    InChat('Attack lvls?') or
    InChat('Atack lvls') or
    InChat('Atack lvls?') or
    InChat('Attac lvls') or
    InChat('Attac lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Attack')))
  end;

  if (InChat('Strengh lvls') or
    InChat('Strengh lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Strengh')))
  end;

  if (InChat('Defenc lvls') or
    InChat('Defenc lvls?') or
    InChat('Defence lvls') or
    InChat('Defence lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Defence')))
  end;

  if (InChat('Hp lvls') or
    InChat('Hp lvls?') or
    InChat('Hitpoint lvls') or
    InChat('Hitpoint lvls?') or
    InChat('Hitpoints lvls') or
    InChat('Hitpoints lvls?') or
    InChat('Hitp lvls') or
    InChat('Hitp lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
  end;

  if (InChat('Range lvls') or
    InChat('Range lvls?') or
    InChat('Rangin lvls') or
    InChat('Rangin lvls?') or
    InChat('Ranged lvls') or
    InChat('Ranged lvls?') or
    InChat('Ranging lvls') or
    InChat('Ranging lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Ranged')))
  end;

  if (InChat('Pray lvls') or
    InChat('Pray lvls?') or
    InChat('Prayer lvls') or
    InChat('Prayer lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Prayer')))
  end;

  if (InChat('Mage lvls') or
    InChat('Mage lvls?') or
    InChat('Mag lvls') or
    InChat('Mag lvls?') or
    InChat('Magic lvls') or
    InChat('Magic lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Magic')))
  end;

  if (InChat('Cook lvls') or
    InChat('Cook lvls?') or
    InChat('Cookin lvls') or
    Inchat('Cookin lvls?') or
    InChat('Cooking lvls') or
    InChat('Cooking lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Cooking')))
  end;

  if (InChat('Fletch lvls') or
    InChat('Fletch lvls?') or
    InChat('Fletching lvls') or
    InChat('Fletching lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Fletching')))
  end;

  if (InChat('Firemaking lvls') or
    InChat('FireMaking lvls?') or
    Inchat('Fire making lvls') or
    InChat('Fire making lvls')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Firemaking')))
  end;

  if (InChat('Craft lvls') or
    InChat('Craftt lvls?') or
    InChat('Craftin lvls') or
    InChat('Crafting lvls?') or
    InChat('Crafting lvls') or
    InChat('Crafting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Crafting')))
  end;

  if (InChat('Smelt lvls') or
    InChat('Smelt lvls?') or
    InChat('Smelting lvls') or
    InChat('Smelting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Smelting')))
  end;

  if (InChat('Rc lvls') or
    InChat('Rc lvls?') or
    InChat('Runecraft lvls') or
    InChat('Runecraft lvls?') or
    InChat('Runecrafting lvls') or
    InChat('Runecrafting lvls?')) then
  begin
    TypeSend(IntToStr(GetSkillLevel('Runecraft')))
  end;

  if (InChat(UserName + '?')) then
  begin
    TypeSend('Yeah?')
  end;

  if (InChat('Wna b freinds?') or
    InChat('Wna be freinds?') or
    InChat('Wana b freinds?') or
    InChat('Wana be freinds?') or
    InChat('Want 2 b freinds?') or
    InChat('Want 2 be freinds?') or
    InChat('Want to b freinds?') or
    InChat('Want to be freinds?')) then
  begin
    TypeSend('No ty')
  end;

  if (InChat('Hi' + UserName) or
    InChat('Hey' + UserName) or
    InChat('Hello' + UserName)) Then
  begin
    TypeSend('Hi')
  end;

  if (InChat('You are a noob' + UserName) or
    InChat( UserName + 'you are a noob')) then
  begin
    TypeSend('Okay')
  end;

  if (InChat('What music do you people like?') or
    InChat('Wat music do you guys like?') or
    InChat('What music you ppl like?') or
    InChat('Wat music do yoo  peeps like')) then
  begin
    TypeSend('Rock FTW!!')
  end;
end;
end;

Procedure SomeCrap;
begin
  SRLrandomsreport;
  FindLamp(Skill);
  FindTalk;
end;

Function GetChatMessage(Text: String): Boolean;
Var
TX, TY: Integer;
Chat: String;
Begin

  If(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
   Begin
    Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));

     If(Pos(Text, Chat) <> 0)then
      Begin
       Result:= True;
      End

   End

End;

procedure DaTalk;
var say : string;
Begin
If (Response=True) then
Begin
If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
   Begin
    Case (Random(14)+1) of
      0 : say:= ('?');
      1 : say:= ('what');
      2 : say:= ('yes');
      3 : say:= ('yep');
      4 : say:= ('what do you want');
      5 : say:= ('me?');
      6 : say:= ('Yah?');
      7 : say:= ('who? me?');
      8 : say:= ('whasup?');
      9 : say:= ('huh');
      10 : say:= ('???');
      11 : say:= ('sup?');
      12 : say:= ('yer');
      13 : say:= ('Yessum?');
      14 : say:= ('yezzer?');
      15 : say:= ('thats muh name =]');
    End
   TypeSend(say);
  End;

If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))Then
   Begin
    Case (Random(24)+1) of
     0 : say:= ('lolz');
     1 : say:= ('hah');
     2 : say:= ('bwaha');
     3 : say:= ('....');
     4 : say:= ('funny..');
     5 : say:= ('heh');
     6 : say:= ('lololol');
     7 : say:= ('ha ha!');
     8 : say:= ('haaaa!');
     9 : say:= ('lmao');
     10 : say:= ('Whats so funny?');
     11 : say:= ('Ur funny lol');
     12 : say:= ('Hillarious');
     13 : say:= ('*Giggles*');
     14 : say:= ('rofllll');
     15 : say:= ('Gahhaa');
     16 : say:= ('*laughing* haha');
     17 : say:= ('tehehe');
     18 : say:= ('psht');
     19 : say:= ('uh..ya');
     20 : say:= ('ya i bet');
     21 : say:= ('funny lil critter...');
     22 : say:= ('think thats funny?');
     23 : say:= ('funny funny');
     24 : say:= ('*snorts as i laugh*');
     25 : say:= ('funy');
     26 : say:= ('if i was in a good mood i would laugh..');
     27 : say:= ('pretty pretty funny');
     28 : say:= ('=p');
     29 : say:= ('X[)');
     30 : say:= ('roflmao!');
    End
   TypeSend(say);
   end;
        If(GetChatMessage('wat')) or (GetChatMessage('what')) or (GetChatMessage('wot')) or (GetChatMessage('wut')) or (GetChatMessage('watcha'))
   And
  (GetChatMessage('doing')) or (GetChatMessage('doin'))then
    Begin
     Case (random(9) + 1) of
      0 : say:= ('nuttin');
      1 : say:= ('nothing');
      2 : say:= ('nothin');
      3 : say:= ('eh, nothin');
      4 : say:= ('being bored');
      5 : say:= ('bored');
      6 : say:= ('bored, you?');
      7 : say:= ('chillin');
      8 : say:= ('chilling, you?');
      9 : say:= ('chilling');
      10 : say:= ('playing runescape haha');
      11 : say:= ('nothin, im sick =[');
      12 : say:= ('talkin to you =]');
      end
    TypeSend(say);
    end;

     If(GetChatMessage('hey')) or (GetChatMessage('hello')) or (GetChatMessage('hi')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then

   Begin
    Case (random(9) + 1) of
      0 : say:= ('hello');
      1 : say:= ('hi');
      2 : say:= ('hey');
      3 : say:= ('sup dude');
      4 : say:= ('watsup');
      5 : say:= ('yo bro');
      6 : say:= ('hi');
      7 : say:= ('hey man');
      8 : say:= ('*waves*');
      9 : say:= ('how ya doin');
      10 : say:= ('good day');
      11 : say:= ('ello');
      12 : say:= ('helloooow');
      13 : say:= ('heya');
      14 : say:= ('hiiyaah');
      15 : say:= ('heeeyyyyy');
    End
   TypeSend(say);
   
   End;
   end;
   end;
   
Procedure report;
begin
writeln('______________________')
writeln('DaWuAutoFighter PRO V1.5')
writeln('Worked for '+ TimeRunning);
writeln('Killed: ' + inttostr(a))
writeln('______________________')
end;



Procedure NotToBeKilled;
Begin
if(eat = 'Yes')or (eat= 'yes' )then
begin
Gametab(4)
if (invcount=0) or (invcount=1) or (invcount=2) then
begin
runawaydirection(runawaydir);
wait(10000+random(200));
logout;
writeln('we are out of food, running and logging out')
exit;
end;
end;
end;


procedure SelectSpell;
begin
if (Magic='Yes')or (magic= 'yes' ) then
Begin
 SetUpAutoCast(AutoSpell, Style);
end;
end;

Function InFightAtO(x, y: Integer):Boolean;
var
  dx, dy: Integer;
begin
Result:= (FindColor(dx, dy, GreenStatusColorO, x - 20, y - 10, x + 20, y + 10) or
    FindColor(dx, dy, RedStatusColorO, x - 20, y - 10, x + 20, y + 10)   or
    FindColor(dx, dy, MissedColorO, x - 20, y , x + 20, y + 20)   or
    FindColor(dx, dy, HitColorO, x - 20, y, x + 20, y + 20));
end;


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




Procedure MaybeLogIn;
begin
If (not (loggedIn)) then
begin
nextPlayer(False);
SetFightmode(fightmode);
SelectSpell;
SetRun(true);
Highestangle;
end;
End;



procedure IfNoEatThenRun;
begin
If (eat='No') or (eat='no') then
begin
gametab(2);
if(gethp=1) or (gethp=2) or (gethp=3) or (gethp=4) or (gethp=5) or
(gethp=6) then
Begin
runawaydirection(runawaydir);
wait(10000+random(200));
logout;
Writeln('Too low hp, no food usage, logged out.')
exit;
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;

Procedure Ban;
 var
 NoBan : Integer;
  begin
   if ( not ( LoggedIn )) then Exit;
   NoBan:=Random(120)
    case NoBan of
     1: RandomRClickEvery(2 + Random(30));
     2: hoverskill('woodcutting', false);
     3: hoverskill('random', false);
     4: DoEmote(1 + Random(20));
     5: BoredEvery(9 + Random (21));
     6: PickUpMouse;
     7: LeaveScreenEvery(10 + Random(5));
     8: RotateEvery(20 + Random(5));
    end;
   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; //By Freddy1990 .. Edited a bit.
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;
SelectSpell;
Repeat;
MaybeLogIn;
DaTalk;
FindNormalRandoms;
MarkTime(TabTimer);
MarkTime(eatTimer);
MarkTime(SkillTimer);
wait(100+random(500))
If (AttackProcedure='1') Then
Begin
DaTalk;
FindNormalRandoms;
Writeln('Attacking With KanesAttack')
FindMonster(color1,color2,color3,tolerance,monstername);
Kattackmonster(color1,color2,color3,tolerance,monstername);
end;

If (Attackprocedure='2') then
Begin
MarkTime(TimeOut2);
WriteLn('Attacking with my leet attack procedure.' )
  FFlag(0);
Repeat
If(findcolorspiralTolerance(x,y,color1,MSX1,MSY1,MSX2,MSY2,Tolerance))or
  (findcolorspiralTolerance(x,y,color2,MSX1,MSY1,MSX2,MSY2,Tolerance))or
  (findcolorspiralTolerance(x,y,color3,MSX1,MSY1,MSX2,MSY2,Tolerance))Then
   mmouse(x,y,3,3)
   FindTalk;
If(not(findcolorspiralTolerance(x,y,color1,MSX1,MSY1,MSX2,MSY2,Tolerance)))or
  (not(findcolorspiralTolerance(x,y,color2,MSX1,MSY1,MSX2,MSY2,Tolerance)))or
  (not(findcolorspiralTolerance(x,y,color3,MSX1,MSY1,MSX2,MSY2,Tolerance)))Then
   begin
 case random(4)+1 of
  1: dir:= 'nswe';
  2: dir:= 'wens';
  3: dir:= 'sewn';
  4: dir:= 'ewns';
 end;
 for i:= 1 to 4 do
   MakeCompass(strget(dir,i));
   FindTalk;
   end;
   Until IsUpTextMulti('att','ack',Monstername)
   or(TimeFromMark(TimeOut2)>120000 )
   end;
   if(TimeFromMark(TimeOut2)>120000 )then
begin
LogOut;
NextPlayer(False);
end;
   If IsUpTextMulti('att','ack',Monstername) Then
    Begin
    GetMousePos(x,y)
    mouse(x,y,1,1,true)
    FindTalk;
    FFlag(0)
    FindNormalRandoms;
    FindTalk;
    OutFightO;
    Ban;
    FindTalk;
    SomeCrap;
    DaTalk;
    ResponderByArrow;
    If (not(loggedin)) then
    nextplayer(false)
    end;


    
a:= a +1;
fightchecks:= fightchecks + 1;
NotToBeKilled;
PutArrowsOn;
DaTalk;
ResponderByArrow;
FindNormalRandoms;
Arrowpickup;
ResponderByArrow;
FindTalk;
Report;
FindNormalRandoms;
wait(1000+Random(550))
if(eat = 'Yes')or (eat = 'yes')then begin
if TimeFromMark(EatTimer) > 15000 then
    begin
    Wait(1000+random(500))
      RealEatifneeded(foodcolor,EatHp,False)
      End;
      End;
IfNoEatThenRun;
FindTalk;
ResponderByArrow;
DaTalk;
Ban;
FindNormalRandoms;
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;
If (WeAreDead) Then exit;
AntiBan;
ResponderByArrow;
FindNormalRandoms;
If (Not(Loggedin)) then Begin
Nextplayer(false);
end;
until(fightchecks = Kills);
end;


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

——————————————————

Nearly 100 views, 2 votes, 0 posts ?
Comon, vote me in. :wink:

You should add anti randoms to OutFight.

After scrolling through your script a bit, wow your pretty good. Good job on script and I vote yes.

I think you weren't voted in before because you were being a dickhead on the other thread. ;]

From: WhiteShadow
You should add anti randoms to OutFight.

After scrolling through your script a bit, wow your pretty good. Good job on script and I vote yes.

I think you weren't voted in before because you were being a dickhead on the other thread. ;]

Well I was pretty "depressed" when my script just got leeched and I got declined on SRL apply, you know, It pretty much pissed me off, well, I flushed all the piss from my head down to severs and decided to give a try again. Hehe. ;)

DaWu is in.