SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
PHP, Actionscript

Other Communitys
Darkdemon.org

How Long have You Played Runescape
5 years

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

I'm 16 years old. My experience in coding started in PHP.
I'm classed in a Advanced Math Class. I can learn coding pretty fast.

Few things I did in PHP:
-a file uploader
-random image signature

Things I do in AS:
-RPG
-Test.

I started with Scar not so long ago.

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

{~**~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
                                                                              |
                                             .___                             |
                           _____ _____     __| _/____                         |
                          /     \\__  \   / __ |/ __ \                        |
                         |  Y Y  \/ __ \_/ /_/ \  ___/                        |
                         |__|_|  (____  /\____ |\___  >                       |
                               \/     \/      \/    \/                        |
                                                                              |
                                                                              |
                                 ___.                                         |
                                 \_ |__ ___.__.                               |
                                  | __ <   |  |                               |
                                  | \_\ \___  |                               |
                                  |___  / ____|                               |
                                      \/\/                                    |
                                                                              |
                                                                              |
               ___                       ___                   ___            |
              /\__\          ___        /\__\      ___        /\  \           |
             /:/ _/_        /\  \      /:/  /     /\  \      /::\  \          |
            /:/ /\__\       \:\  \    /:/  /      \:\  \    /:/\:\  \         |
           /:/ /:/ _/_      /::\__\  /:/  /       /::\__\  /:/  \:\  \        |
          /:/_/:/ /\__\  __/:/\/__/ /:/__/     __/:/\/__/ /:/__/ \:\__\       |
          \:\/:/ /:/  / /\/:/  /    \:\  \    /\/:/  /    \:\  \ /:/  /       |
           \::/_/:/  /  \::/__/      \:\  \   \::/__/      \:\  /:/  /        |
            \:\/:/  /    \:\__\       \:\  \   \:\__\       \:\/:/  /         |
             \::/  /      \/__/        \:\__\   \/__/        \::/  /          |
              \/__/                     \/__/                 \/__/           |
                                                                              |
                                                                              |
~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*}
                    {/////////Instruction///////////}
                    {  1.Go to bank and get food    }
                    {  2.Fill out the form          }
                    {  3.Hit run and go make coffee }
                    {///////////////////////////////}

                    {///////////Contact/////////////}
                    {  To contact me by Email:      }
                    {  [email]Wrightri601@hotmail.com[/email]      }
                    {                               }
                    {   In Game:                    }
                    {   Wilio1                      }
                    {///////////////////////////////}

program FuckingFighterofDeath;

{.include SRL\SRL.scar}


const
  StartPlayer         = 0;  // Determines who will play first
  skilltochoose       = 'strength'; //Choose the skill you want.
  Switch              = false;//If is true, it will switch between attack,
                     //defense and strength every 5min.
  hpleft = 71; //when hp is that or lower, you will eat.

const
Versionnumber = '0.6';

var
  killcount,foodeat,x1,y1,mcolor1,mcolor2,timercounter,lolyou,i,x,y,food: Integer;


{*******************************************************************************
Procedure from the SRL template.
Description: This procedure will declare the players,  You can use up to 6 players
Please put the monster color 1 and 2 in each one of them.
*******************************************************************************}

procedure ProgressReport;
begin
  writeln('(=================== REPORT =============)')
  writeln('food eaten: '+inttostr(foodeat))
  writeln('Sscript as run for '+Timerunning)
  writeln('(========================================)')
end;

Procedure DeclarePlayers;

begin
     HowManyPlayers  := 4;               // Set Number of Players here.
     NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
     CurrentPlayer:=StartPlayer;        // CurrentPlayer = Array Index

     Players[0].Name :='username';
     Players[0].Pass :='password';
     Players[0].Nick :='nickname';
     Players[0].integers[1] := 7235438; //First monster color
     Players[0].integers[2] := 4144975;  // second monster color
     Players[0].integers[3] := 9541559; //this is the food color when he eats.
     Players[0].strings[1] := 'Strength' //Skill you want to train with lamp.
     Players[0].Active:=True;

     Players[1].Name :='xxxx';
     Players[1].Pass :='xxxx';
     Players[1].Nick :='xxxxx';
     Players[1].integers[1] := 7235438; //First monster color
     Players[1].integers[2] := 4144975;  // second monster color
     Players[1].integers[3] := 9541559; //this is the food color when he eats.
     Players[1].strings[1] := 'Strength' //Skill you want to train with lamp.
     Players[1].Active:=True;

     Players[2].Name :='username';
     Players[2].Pass :='password';
     Players[2].Nick :='nickname';
     Players[2].integers[1] := 7235438; //First monster color
     Players[2].integers[2] := 4144975;  // second monster color
     Players[2].integers[3] := 0; //this is the food color when he eats.
     Players[2].strings[1] := 'Strength' //Skill you want to train with lamp.
     Players[2].Active:=True;

     Players[2].Name :='username';
     Players[2].Pass :='password';
     Players[2].Nick :='nickname';
     Players[2].integers[1] := 7235438; //First monster color
     Players[2].integers[2] := 4144975;  // second monster color
     Players[2].integers[3] := 0; //this is the food color when he eats.
     Players[2].strings[1] := 'Strength' //Skill you want to train with lamp.
     Players[2].Active:=True;
end;


procedure setbitmac;

begin
  box := BitmapFromString2(False, 'aFCB3D78DAEDCD4D0AC4300805' +
  'E02B59FB34762949BCFF91265218520A21EB61B2F802FE3C8988A' +
  'E73409081481DEAC1E99565367CEB129AF56C925A7E45220DCBC9' +
  '9E5DD62A8240DC1656575FCB959D7DDED2A6F996CEF36BDFBBD60' +
  'D869D2B6BEF9CB772A2A13D24387C763F6D47F441F967FE52E607' +
  '04D');
end;



{*******************************************************************************
Procedure by : Wilio
Description: This procedure will set the variables of the script, DO NOT EDIT!
*******************************************************************************}

procedure setvariables;

  begin
    foodeat := 0;
    end;

{*******************************************************************************
Procedure by : Wilio
Description: This procedure will load everything that needs to be loaded before
the script start
*******************************************************************************}

procedure load;

begin
  writeln('Created by Wilio')
  wait(666);
  Writeln('Do not RIP >=(')
  wait(666);
  SetupSrl;
  SetVariables;
  SetBitMac;
  ScriptID := '273'
end;

{*******************************************************************************
Procedure by : Wilio
Description:  This procedure will tell who logged in in Randoms Report.
*******************************************************************************}


procedure Loginfighter;

begin
  loginplayer;
  mcolor1 := Players[currentplayer].integers[1];
  mcolor2 := Players[currentplayer].integers[2];
  food    := Players[currentplayer].integers[3];
  writeln('<==============-'+versionnumber+'-================>');
  wait(1500);
  writeln(players[currentplayer].Nick+' as loged in');
  SrlRandomsReport;
end;

{*******************************************************************************
Procedure by : Wilio
Description:  This is an important procedure of RadialWalking
*******************************************************************************}

procedure monsteroutsight;
begin
  if(not findcolortolerance(x,y,mcolor1,0,0,515,338,5))
    or
    (not findcolortolerance(x1,y1,mcolor2,0,0,515,338,5))then
  begin
    RadialWalk( 62965 , 30, 390, 44, 0, -1);
    wait(900);
  end
end;




{*******************************************************************************
Function by : Wilio
Description: This function will check if the current monster if the monster isn't
in attack(return true if not occupied)
*******************************************************************************}

function MonsterBusy: Boolean;

begin
  if(InChat('Someone else is fighting that'))then
  begin
    result := true;
    sendkeys('...');
    wait(150+random(50));
    KeyDown(VK_return);
    wait(150+random(30));
    KeyUp(VK_return);

 end
end;



{*******************************************************************************
Procedure by : Wilio
Description:  This is the procedure that will destroy the monster;
*******************************************************************************}

procedure killthatmonster;

begin
       Mouse(x,y,0,0,true);
       if (MonsterBusy) then
       begin
         writeln('Somene ele is fighting that bitch');
       end else
       begin
         wait(8000+random(2000));
       end
  end;

{*******************************************************************************
Function by : Wilio
Description:  This function will check the health.
*******************************************************************************}


function CheckHealth: Boolean;

begin
  wait(450+random(300))
  Mouse(577,186,4,4,true);
  if(Gethp <= hpleft) then
  begin
    Result := true;
    writeln('Healing time!');
    wait(500+random(100))
  end else
  begin
    wait(1000+random(100))
    writeln('you have: '+inttostr(gethp)+' hp left');
    Mouse(646,180,6,6,true);
  end
end;

{*******************************************************************************
Procedure by : Wilio
Description:  This Procedure will heal.
*******************************************************************************}

procedure healingtime;

begin
  if(CheckHealth) then
  begin
    Mouse(646,180,6,6,true);
    wait(900+random(600));
    if(findcolortolerance(x,y,food,549,202,741,468,4))then
    begin
      Mouse(x,y,6,6,true);
      wait(800+random(450));
      food := food + 1;
    end else
    begin
      writeln('no more found, script will change player');
      wait(500);
      Players[currentplayer].Active := false;
      logout;
      loginfighter;
    end
  end
end;
{*******************************************************************************
Procedure by : Wilio
Description:  This is a important procedure that will check for randoms
*******************************************************************************}


procedure versusrandoms;

//Let's first start with our friend the random box
begin
  if(findbitmaptolerancein(box,x,y,558,215,736,462,10))then
  begin
    Mouse(x,y,5,6,true);
    wait(100 + Random(300));
    SolveBox;
    wait(600+random(150));
  end
  //Then our friend the Genie
  if(findcolortolerance(x,y,8785279,174,96,364,241,7)) //genie pants
  and
   (findcolortolerance(x,y,14450457,174,96,364,241,7)) then //genie torso
  begin
    Mouse(x,y,5,5,true)
    wait(1000+random(150));
    FindLamp(skilltochoose);
  end
  //Have we found a mime?
  if(FindMime)then
  begin
    writeln('mime found, switching player')
    Players[currentplayer].Active := false;
    logout;
    loginfighter;
  end
  //Are you dead?
  begin
    if(FindDead)then
    begin
      Players[currentplayer].Active := false;
      logout;
      loginfighter;
    end
    //Pinball random
    if(SolvePinball)then
    begin
    end
    //then let's solve the annoying talking randoms
    if(FindTalk) then
    begin
    end
    //demon
    if(FindDemon) then
    begin
    end
  end
end;
{*******************************************************************************
Procedure by : Wilio
Description: Anti ban!!!!!!!!!!!
*******************************************************************************}

procedure theantiban;

begin
  case random(70) of
    1: RandomRClick;
    2:HoverSkill('Strenght',false);
    3:PickUpMouse;
    23:SayCurrentLevels('strength');
    5:SayCurrentLevels('attack');
    15:SayCurrentLevels('defence');
    7:AlmostLogOut;
    45:RandomMovement;
    9:BoredHuman;
  end
end;

{*******************************************************************************
Procedure by : Wilio
Description: This procedure will log out of runescape
*******************************************************************************}



{*******************************************************************************
Procedure by : Wilio
Description: This procedure will log in into runescape
*******************************************************************************}




{*******************************************************************************
And then it begins!
*******************************************************************************}

begin


  SetupSrl;
  load;
  DeclarePlayers;
  loginfighter;
  if(loggedin) then
  begin
  repeat
    ProgressReport;
    if(findcolortolerance(x,y,mcolor1,0,0,515,338,5))
       and
        (findcolortolerance(x1,y1,mcolor2,0,0,515,338,5))
      then
      begin
       if((y1-y) <= 60) or ((y-y1) <= 60) then
      begin
        killthatmonster;
       end
      end else
      begin
        monsteroutsight;
      end
      healingtime;
      versusrandoms;
      theantiban;
    until(false);
  end else
  begin
  writeln('you are not logged in noob');
  exit;
  end
end.

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

No, I dont see any failsafes. Your multiplayer is useless, because you dont even log in a player at all.

Why dont you just use Fawkis Anti-Randoms? to me yours wouldnt work.

But i must say, you have 0% longetivity and you learnt this much that fast, well done. if you get in congratz if you dont then come back with an leet script in 30 days. :)

Goodluck.

Sorry no.

EDIT*

     Players[2].Name :='username';
     Players[2].Pass :='password';
     Players[2].Nick :='nickname';
     Players[2].integers[1] := 7235438; //First monster color
     Players[2].integers[2] := 4144975;  // second monster color
     Players[2].integers[3] := 0; //this is the food color when he eats.
     Players[2].strings[1] := 'Strength' //Skill you want to train with lamp.
     Players[2].Active:=True;
 
     Players[2].Name :='username';
     Players[2].Pass :='password';
     Players[2].Nick :='nickname';
     Players[2].integers[1] := 7235438; //First monster color
     Players[2].integers[2] := 4144975;  // second monster color
     Players[2].integers[3] := 0; //this is the food color when he eats.
     Players[2].strings[1] := 'Strength' //Skill you want to train with lamp.
     Players[2].Active:=True;

Found this, you need to get rid of the 2's for one of those things and change to 3 :)

     Players[2].Name :='username';
     Players[3].Pass :='password';
     Players[3].Nick :='nickname';
     Players[3].integers[1] := 7235438; //First monster color
     Players[3].integers[2] := 4144975;  // second monster color
     Players[3].integers[3] := 0; //this is the food color when he eats.
     Players[3].strings[1] := 'Strength' //Skill you want to train with lamp.
     Players[3].Active:=True;

Agree with bobbo read some tutorials, look at some good scripts, and apply again in a month if you wish.

I have a suggestion for your monster busy, in my fighting script, I have a monsterbusy that checks if there is the green or red color around the monster, works great…

its a nice script. with that low long activitie you have learned realy fast. but for member where just looking for something more then that. keep on learning and maby next time ;)

no sorry,

but keep on learning and surprice us next time with the best script ever! :D

Sorry, no. It's a bit too simple and standards are wrong.

no here also…standards were a no

begin
       Mouse(x,y,0,0,true);
       if (MonsterBusy) then
       begin
         writeln('Somene ele is fighting that bitch');
       end else
       begin
         wait(8000+random(2000));
       end
  end;

quick question/suggestion, why have the long wait there…that stops the script for atleast 8 seconds…then if it finds that txt again there is like 30 sec gone from fighting…wont get good production from the script….

Wilio, nice word art.


But sorry, no.



EDIT :p

                            ,ooo888888888888888oooo,
                          o8888YYYYYY77iiiiooo8888888o
                         8888YYYY77iiYY8888888888888888
                        [88YYY77iiY88888888888888888888]
                        88YY7iYY888888888888888888888888
                       [88YYi 88888888888888888888888888]
                       i88Yo8888888888888888888888888888i
                       i]        ^^^88888888^^^     o  [i
                      oi8  i           o8o          i  8io
                    ,77788o ^^  ,oooo8888888ooo,   ^ o88777,
                    7777788888888888888888888888888888877777
                     77777888888888888888888888888888877777
                      77777788888888^7777777^8888888777777
       ,oooo888 ooo   88888778888^7777ooooo7777^8887788888        ,o88^^^^888oo
    o8888777788[];78 88888888888888888888888888888888888887 7;8^ 888888888oo^88
   o888888iii788 ]; o 78888887788788888^;;^888878877888887 o7;[]88888888888888o
   88888877 ii78[]8;7o 7888878^ ^8788^;;;;;;^878^ ^878877 o7;8 ]878888888888888
  [88888888887888 87;7oo 777888o8888^;ii;;ii;^888o87777 oo7;7[]8778888888888888
  88888888888888[]87;777oooooooooooooo888888oooooooooooo77;78]88877i78888888888
 o88888888888888 877;7877788777iiiiiii;;;;;iiiiiiiii77877i;78] 88877i;788888888
 88^;iiii^88888 o87;78888888888888888888888888888888888887;778] 88877ii;7788888
;;;iiiii7iiii^  87;;888888888888888888888888888888888888887;778] 888777ii;78888
;iiiii7iiiii7iiii77;i88888888888888888888i7888888888888888877;77i 888877777ii78
iiiiiiiiiii7iiii7iii;;;i7778888888888888ii7788888888888777i;;;;iiii 88888888888
i;iiiiiiiiiiii7iiiiiiiiiiiiiiiiiiiiiiiiii8877iiiiiiiiiiiiiiiiiii877   88888
ii;;iiiiiiiiiiiiii;;;ii^^^;;;ii77777788888888888887777iii;;  77777           78
77iii;;iiiiiiiiii;;;ii;;;;;;;;;^^^^8888888888888888888777ii;;  ii7         ;i78
^ii;8iiiiiiii ';;;;ii;;;;;;;;;;;;;;;;;;^^oo ooooo^^^88888888;;i7          7;788
o ^;;^^88888^     'i;;;;;;;;;;;;;;;;;;;;;;;;;;;^^^88oo^^^^888ii7         7;i788
88ooooooooo         ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 788oo^;;          7;i888
887ii8788888      ;;;;;;;ii;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;^87           7;788
887i8788888^     ;;;;;;;ii;;;;;;;oo;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,,,      ;;888
87787888888     ;;;;;;;ii;;;;;;;888888oo;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;,,;i788
87i8788888^       ';;;ii;;;;;;;8888878777ii8ooo;;;;;;;;;;;;;;;;;;;;;;;;;;i788 7
77i8788888           ioo;;;;;;oo^^ooooo ^7i88^ooooo;;;;;;;;;;;;;;;;;;;;i7888 78
7i87788888o         7;ii788887i7;7;788888ooooo7888888ooo;;;;;;;;;;;;;;oo ^^^ 78
i; 7888888^      8888^o;ii778877;7;7888887;;7;7788878;878;;    ;;;;;;;i78888o ^
i8 788888       [88888^^ ooo ^^^^^;;77888^^^^;;7787^^^^ ^^;;;;  iiii;i78888888
^8 7888^        [87888 87 ^877i;i8ooooooo8778oooooo888877ii; iiiiiiii788888888
  ^^^          [7i888 87;; ^8i;;i7888888888888888887888888   i7iiiiiii88888^^
               87;88 o87;;;;o 87i;;;78888788888888888888^^ o 8ii7iiiiii;;
               87;i8 877;77888o ^877;;;i7888888888888^^ 7888 78iii7iii7iiii
               ^87; 877;778888887o 877;;88888888888^ 7ii7888 788oiiiiiiiii
                 ^ 877;7 7888888887 877i;;8888887ii 87i78888 7888888888
                  [87;;7 78888888887 87i;;888887i  87ii78888 7888888888]
                  877;7 7788888888887 887i;887i^  87ii788888 78888888888
                  87;i8 788888888888887 887ii;;^ 87ii7888888 78888888888
                 [87;i8 7888888888888887 ^^^^   87ii77888888 78888888888
                 87;;78 7888888888888887ii      87i78888888 778888888888
                 87;788 7888888888888887i]      87i78888888 788888888888
                [87;88 778888888888888887       7ii78888888 788888888888
                87;;88 78888888888888887]       ii778888888 78888888888]
                7;;788 7888888888888888]        i7888888888 78888888888'
                7;;788 7888888888888888         'i788888888 78888888888
                7;i788 788888888888888]          788888888 77888888888]
                '7;788 778888888888888]         [788888888 78888888888'
                ';77888 78888888888888          8888888888 7888888888]
                 778888 78888888888888          8888888888 7888888888]
                  78888 7888888888888]         [8888888888 7888888888
                   7888 788888888888]          88888888888 788888888]
                    778 78888888888]           ]888888888 778888888]
                    oooooo ^88888^              ^88888^^^^^^^^8888]
                   87;78888ooooooo8o            ,oooooo oo888oooooo
                   [877;i77888888888]          [;78887i8888878i7888;
                    ^877;;ii7888ii788          ;i777;7788887787;778;
                     ^87777;;;iiii777          ;77^^^^^^^^^^^^^^^^;;
                        ^^^^^^^^^ii7]           ^ o88888888877iiioo
                           77777o               [88777777iiiiii;;778
                            77777iii            8877iiiii;;;77888888]
                            77iiii;8           [77ii;778 788888888888
                            7iii;;88           iii;78888 778888888888
                           77i;78888]          ;;;;i88888 78888888888
                          ,7;78888888          [;;i788888 7888888888]
                          i;788888888           ;i7888888 7888888888
                          ;788888888]           i77888888 788888888]
                          ';88888888'           [77888888 788888888]
                           [[8ooo88]             78888888 788888888
                            [88888]              78888888 788888888
                              ^^^                [7888888 77888888]
                                                  88888888 7888887
                                                  77888888 7888887
                                                   ;i88888 788888i
                                                  ,;;78888 788877i7
                                                 ,7;;i;777777i7i;;7
                                                 87778^^^ ^^^^87778
                                                  ^^^^ o777777o ^^^
                                                  o77777iiiiii7777o
                                                 7777iiii88888iii777
                                                ;;;i7778888888877ii;;
                   Imperial Stormtrooper       [i77888888^^^^8888877i]
                  (Standard Shock Trooper)     77888^oooo8888oooo^8887]
                                              [788888888888888888888888]
                                              88888888888888888888888888
                                              ]8888888^iiiiiiiii^888888]
                       Bob VanderClay           iiiiiiiiiiiiiiiiiiiiii
                                                    ^^^^^^^^^^^^^

It looks nice, but if i should test it, then i don't want to use it, it's too buggy, and some failsafes are needed too, thing is, make sure it works good before posting it, we all don't want script hanging around when we are away.. school or sleep… so try adding some failsafes, good luck next time