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
Java, C

Other Communitys
Fagex, Mopar, Sythe

How Long have You Played Runescape
4 years.

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

Hi, I'm 14 years old guy from Finland.
I have been macroing ever since RSC, I've been using scar alot, and I've made couple of scripts and I've tested and helped on finding bugs on scripts for many scripters. I'm currently working on my SRL AutoFighter. I'm posting it as a sample of my work the current version will be last free version of it, the next ones will be SRL members only(If Im getting in) or just keep it as my private script.
I've also made nonSRL scripts, such as alcher, F-key talker and Auto-Login. (see my earlier applies )
I also love to learn and what would be better way, than great scripters scripts ? I was gonna make my new version of autofighter sales script, but I decided that I'll make it free script, posting the new nonreleased version as a example of my work.

I really think, that this time I got what it takes to become a SRL member.

——————————————————
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.2___-_-\\
// 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\\



Const
Color1 = 16316664; //use different colours of different rats
Color2 = 16316664;
Color3 = 16316664;
Monstername ='Cow' ; //write the name JUST like its on game.
Kills = 100000 ; // amount of monsters to be killed.
Startplayer = 0 ;   //player that starts
foodcolor = 1467061;//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)
LogBack = 'No' ; // Log back if you get logged out ( if u get random and log out It logs you back, or if you outfood log out etc. )
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'
InFightAt ='Yes' ; // Use the attack procedures with InFightAt or the ones without ? InFightAt bugs sometimes.
const MissedColorO  = 16728128;
const HitColorO   = 192;
const GreenStatusColorO = 65280;
const RedStatusColorO = 225;

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

Procedure DeclarePlayers;
begin

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

Players[0].Name :='';//name
Players[0].Pass :='';//pass
Players[0].Nick := '';// about 3 letters of ur name
Players[0].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;


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(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;
   
Procedure report;
begin
writeln('______________________')
writeln('DaWuAutoFighter PRO V1.3')
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;

function FindMonsterO(Color1, Color2, Color3, Tolerance: Integer; MonsterName: String): Boolean;
var
  i: integer;
  dir: string;
  TimeOut: integer;
begin
MarkTime(TimeOut);
repeat //you have to make it a loop so it lasts for 1 minutes

 case random(4)+1 of
  1: dir:= 'nswe';
  2: dir:= 'wens';
  3: dir:= 'sewn';
  4: dir:= 'ewns';
 end;
 for i:= 1 to 4 do
   if(not(KAttackMonster(Color1, Color2, Color3, Tolerance + i, monsterName)))then
     MakeCompass(strget(dir, i))
    else
   begin
     result:= true;
     exit;
   end;
until( TimeFromMark(TimeOut)>120000 )
or(Result=True);
if(TimeFromMark(TimeOut)>120000 )
then begin
LogOut;
terminateScript;
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;

function KAttackMonsterM(Color1, Color2, Color3, Tolerance: Integer; MonsterName: String): Boolean;
var
  i, x, y: Integer;
begin
  FFlag(1);
  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(1);
       OutFightO; //Waits Until Out Of Fight..
       exit;
     end;
    end;
 end;
end;

function FindMonsterM(Color1, Color2, Color3, Tolerance: Integer; MonsterName: String): Boolean;
var
  i: integer;
  dir: string;
  TimeOut: integer;
begin
MarkTime(TimeOut);
repeat //you have to make it a loop so it lasts for 1 minutes

 case random(4)+1 of
  1: dir:= 'nswe';
  2: dir:= 'wens';
  3: dir:= 'sewn';
  4: dir:= 'ewns';
 end;
 for i:= 1 to 4 do
   if(not(KAttackMonsterM(Color1, Color2, Color3, Tolerance + i, monsterName)))then
     MakeCompass(strget(dir, i))
   else
   begin
     result:= true;
     exit;
   end;

until( TimeFromMark(TimeOut)>120000 )
or(Result=True);
if(TimeFromMark(TimeOut)>120000 )then
begin
LogOut;
terminateScript;
end;
end;



Procedure MaybeLogIn;
begin
if (LogBack= 'Yes') or (LogBack= 'yes') then
begin
If (not (loggedIn)) then
begin
Loginplayer;
SetFightmode(fightmode);
SelectSpell;
SetRun(true);
Highestangle;
end;
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;

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 (InFightAt='No') or (InFightAt='no') Then
Begin
DaTalk;
Writeln('Attacking without the InFightAt')
FindMonsterO(color1,color2,color3,tolerance,monstername);
Kattackmonster(color1,color2,color3,tolerance,monstername);
end;
FindNormalRandoms;
If (InFightAt='Yes')or (Infightat= 'yes') Then
Begin
Writeln('Attacking with the InFightAt')
FindMonsterM(color1,color2,color3,tolerance,monstername);
KattackmonsterM(color1,color2,color3,tolerance,monstername);
end;
a:= a +1;
fightchecks:= fightchecks + 1;
NotToBeKilled;
PutArrowsOn;
DaTalk;
FindNormalRandoms;
Arrowpickup;
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;
DaTalk;
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;
FindNormalRandoms;
until(fightchecks = Kills);
end;


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

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

Does that switch players?

Very nice. Such a broad range of coding and procedures. Much better then those people applying with ' a simple auto/power miner/chopper stuff thats been so overly done. Well done. a yes from me.

A yes from me.
Good script (+Its SRL), and its clean scripting.
Good indenting too.

The main thing I like: You gave clear credit to people who helped you.
This is a good habit :P

// 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\\

Ahhh :'(