SRL Archive - Archive

<!– BEGIN TEMPLATE: formanswers –>
kelly slater pro surfer - SRL Member Application Form
kelly slater pro surfer

What is the meaning to life?
to macro in runescape

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


Programming Knowledge
i know php, and html

Other Communitys
my site and srl

How Long have You Played Runescape
2-3years

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

well i made this script i works i tested for a day or 2 and it worked good im going to try to get acceped its been a month btw. so i hope this is good enugh.

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

//welcome to cR4nK dAt WiLlOwS.                                                       /
//start in draynor bank.                                                              /
//History:                                                                            //
//this was supposed to be Cr4nK dAt ¥eWs                                               /
//but i decided not to releece so i made a willow chopper                              /
//Credits:                                                                             /
//to jad for jad symbul and IEatJ00rBabiesfor walking,and Born2Code for death walk     /
//i hope you enjoy.                                                                    /
///////////////////////////////////////////////////////////////////////////////////////
{



program Cr4nKdAtWiLlOwS;

{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}
{.include SRL/SRL/Misc/Trade.scar}

var
  everyload, DepositLogs, Loads2, Tries2: Integer;

const
  Tree = 2592888; //No Need To Change
  Tree2 = 2785392; //No Need To Change
  Tree3 = 4544608; //No Need To Change
  LoadsToDo = 10; //Loads per player
  TimeToRunScript = 180; //In Minutes

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; //# of Players
  NumberofPlayers(HowManyPlayers);
  CurrentPlayer := 0; //Player to Start first
  
  Players[0].Name := ''; //Username
  Players[0].Pass := ''; //Password
  Players[0].Nick := ''; //3-4 Letters of your guys username
  Players[0].Active := True;


end;

Function FindFastRandoms: Boolean;    // By WT-Fakawi.

Var
  i: Integer;

Begin
  For I := 1 To 11 Do
  Begin
    Case I Of
       1:  If FindDead Then
             Result := True;
       2:  If FindMod Then
             Result := True;
       3:  If FindMime Then
             Result := True;
       4:  If FindMaze Then
             Result := True;
       5:  If FindQuiz Then
             Result := True;
       6:  If FindDemon Then
             Result := True;
       7: Begin
             If NoGameTab Then
             Begin
               Result := True;
               Players[CurrentPlayer].loc := 'No GameTab';
               Logout;
               Exit;
             End;
           End;
       8 : If RC Then
             Result := True;
       9 : If FindFight Then
              Begin
                Result := True;
                RunTo('N', False);
              End;
       10: If FindTalk Then
             Result := True;
       11: If HandleTrade Then
             Result := True;
    End;
    Wait(1);
  End;
End;

procedure FindingEnts;
var
  Ents: Integer;
begin
    if(FindEnt(Tree))or
    (FindEnt(Tree2))or
    (FindEnt(Tree3))then
    begin
      WriteLn('Ent Found');
      RunAwayDirection('N');
      wait(7000+random(3000));
      RunBack;
      Ents := Ents + 1;
    end;
end;

procedure FindRandoms;
begin
  FindFastRandoms;
  FindNormalRandoms;
  FindingEnts;
  FindHead;
end;




procedure Others;
var NickNameBMP: Integer;
begin
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  ClearDebug;
  ClearReport;
  ActivateClient;
  if(not(LoggedIn))then LoginPlayer;
  MakeCompass('N');
  HighestAngle;
end;

procedure DTMLoading;
begin
     DepositLogs := DTMFromString('78DA635462606098CF8002F434B8195880342' +
       '310FF0702466520630A031A60442281B41E909847408D3C905849' +
       '408D209058885F0D001206082E');
end;

function JadSymbol(WhatSymbol: String; Click, Switch: Boolean): Boolean; //this belongs too jad
var I: Integer;
begin
  for I := 1 to 7 do
  begin
    if(FindSymbol(x,y,(WhatSymbol)))then
    begin
      if(Click)then
        Mouse(x,y,2,2,true);
      Result := True;
      Exit;
    end;
    wait(750+random(500));
  end;
  Writeln('Could NOT find symbol.');
  Result := False;
  if(Switch)then
    LogOut;
end;

procedure WalkToWillows;// by ieatj00rbabys
var
  tries: integer;
begin
  if(Not(LoggedIn))then LoginPlayer;
  MakeCompass('E');
  HighestAngle;
  FindAxeHeadColor1;
  Wait(500+random(1000));
  JadSymbol('Fish', True, True);
  TimeToFindRandoms;
  wait(6000+random(2000));
  Flag;
  Tries := 0;
    repeat
      if(Tries = 20)then
      begin
        WriteLn('Unable to walk to Willows');
        NextPlayer(True);
      end;
    Wait(300+random(150));
    Tries := Tries + 1;
    until(FindColorTolerance(x, y, Tree, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree3, msx1, msy1, msx2, msy2, 4));
end;

procedure ChoppingWillow;// by me
begin
  If(Not(LoggedIn))then Exit;
repeat
  if(FindColorTolerance(x, y, Tree, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree2, msx1, msy1, msx2, msy2, 4)) or
    (FindColorTolerance(x, y, Tree3, msx1, msy1, msx2, msy2, 4))then
    begin
      MMouse(x, y, 2, 2);
      if(IsUpText('hop'))then
      begin
        TimeToFindRandoms;
        Mouse(x, y, 2, 2, true);
        BanBGone;
        TimeToFindRandoms;
        Wait(3000+random(4000));
      end;
    end;
until(InvFull);
end;

procedure BackToBank; // by jad
begin
  if(Not(LoggedIn))then Exit;
  JadSymbol('Fish', True, True);
  MMouse(x, y, 2, 2);
  wait(3000+random(2000));
  Mouse(x, y, 2, 2, true);
  Tries2 := Tries2+1;
  Flag;
  OpenBankQuiet('db');
  DTMLoading;
  if(FindDTM(DepositLogs, x, y, MIX1, MIY1, MIX2, MIY2))then
    begin
    MMouse(x, y, 2, 2);
    wait(1000+random(500));
    Mouse(x, y, 2, 2, false);
    wait(500+random(250));
    ChooseOption(x, y, 'eposit 10');
    wait(500+random(250));
    FreeDTM(DepositLogs);
    CloseBank;
    Loads2 := Loads2+1;
    EveryLoad := EveryLoad+1;
    end;
end;


{...><> Amazing Death Walk Procedure //by born2code


procedure TeleportToLumby;
begin
  Cast('Home Teleport');
  Wait(24000+random(3000));
end;

procedure DeathWalk;
var
Grass1, Dirt1, Grass1A, Dirt1A, Dirt2A, Dirt2, Dirt3, Dirt3A, T: integer;
begin
  RoadColor := FindRoadColor;
  Grass1 := BitmapFromString2(False, 'a2113E78DA333080010B472' +
       '061E2640E24CD2D8D80A499B92188ED680C278D4D402206662095' +
       '06E6CE66C666AE8696982400CD7');
  Dirt1 := BitmapFromString2(False, 'a3285B78DA33308001736320' +
       '6162610224CDDC2C4102964620D20924626C6208240D0D40E286C' +
       '66626A6C6A686E69824C424DAC9E2070042C');
  Dirt2 := BitmapFromString2(False, 'a30FA278DA33308001736320' +
       '6162610224CDDC2C4102964620D20924626C0A621B983982553A9' +
       'B981A1B199A639200646');
  Dirt3 := BitmapFromString2(False, 'aE0FB478DA33308001736320' +
       '6162610224CDDC2C4102964620D20924626C069235307304AB743' +
       '6B1343630B4C42401657');
  SymbolAccuracy := 0.3;
  if (FindSymbol(x,y,'water')) then
  begin
    SymbolAccuracy := 0.4;
    RoadColor := FindRoadColor;
    RadialWalk(RoadColor,80,90,60,2,2);
    FFlag(0);
    RadialWalk(RoadColor,320,330,70,2,2);
    FFlag(0);
    SymbolAccuracy := 0.6;
    repeat
      RadialWalk(RoadColor,305,325,55,2,2);
      FFlag(0);
    until(FindSymbol(x, y, 'store'));
    TravSymbol('store');
    Grass1A := AutoColorThis(Grass1, 30, MMX1, MMY1, MMX2, MMY2);
    RadialWalk(Grass1A, 270, 230, 70, 2, 2);
    FFlag(0);
    Dirt1A := AutoColorThis(Dirt2, 75, MMX1, MMY1, MMX2, MMY2);
    repeat
      RadialWalk(Dirt1A, 295, 255, 70, 2, 2);
      FFlag(0);
    until(FindSymbol(x,y,'dungeon'));
    TravSymbol('dungeon');
    Dirt2A := AutoColorThis(Dirt2, 75, MMX1, MMY1, MMX2, MMY2);
    repeat
      RadialWalk(Dirt1A, 236, 180, 70, 2, 2);
      FFlag(0);
      RadialWalk(Dirt2A, 250, 195, 70, 2, 2);
      FFlag(0);
    until(FindSymbol(x, y, 'rare trees'));
    Dirt2A := AutoColorThis(Dirt2, 75, MMX1, MMY1, MMX2, MMY2);
    repeat
      T := T + 1;
      RadialWalk(Dirt2A, 285, 250, 70, 2, 2);
      FFlag(0);
      Dirt3A := AutoColorThis(Dirt3, 75, MMX1, MMY1, MMX2, MMY2);
      RadialWalk(Dirt3A, 225, 260, 70, 2, 2);
      FFlag(0);
    until(T = 2);
    RoadColor := FindRoadColor;
    RadialWalk(RoadColor,295,340,70,2,2);
    FFlag(0);
    SymbolAccuracy := 0.3;
    repeat
      RadialWalk(RoadColor,310,335,70,2,2);
      FFlag(0);
    until(FindSymbol(x, y, 'bank'));
    TravSymbol('bank');
    Players[CurrentPlayer].Loc := 'bank';
  end else
  begin
    Writeln('Oops! Not in lumby!');
  end;
end;

  
procedure signature;
begin
  WriteLn('Cr4Nk dAt WilLoWs Made By:');
  WriteLn('|  / ______   |        |          '    );
  WriteLn('| /  |        |        |       \     /');
  WriteLn('|/   |_____   |        |        \   /');
  WriteLn('|\   |        |        |         \ /');
  WriteLn('| \  |        |        |          | ');
  WriteLn('|  \ |_____   |______  |______    |');
  WriteLn('Sig made bye kelly slater');
  Wait(5000+random(500));
end;

procedure progress;
begin
  WriteLn('++Cr4nK dAt WilLowS -- KELLY++');
  WriteLn('++Progress Report Time!++');
  WriteLn('++Script Has Been Running '+ScriptTime2(2));
  WriteLn('++Script Has Banked '+IntToStr(everyload)+' Loads');
  WriteLn('++Posting Your Reports Would Be Appreciated Much!');
end;

begin
SetupSRL;
Signature;
TeleportToLumby;
DeathWalk;
Others;
repeat
  repeat
    WalkToWillows;
    ChoppingWillows;
    BackToBank;
    Progress;
    SRLRandomsReport;
  until(Loads2 = LoadsToDo);
  NextPlayer(True);
until(ScriptTime(2) > TimeToRunScript*60*1000)
end.

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

Please put in

 tags.

offtopic, link your sig doesn't work.  Server not found.

He just needs to properly close the end one, ill look then.

From: kikwit
Please put in

 tags.

offtopic, link your sig doesn't work.  Server not found.

sites down im working on itoff topic ill fix in scar now

From: kelly slater pro surfer
sites down im working on itoff topic ill fix in scar now

lol, ok, just making sure you knew.

Now i'll take a look at the script…

most of it isn't even by you.

EDIT EDIT: Sorry, it's a no for me. About half of the actual code is made by other people ( excluding FindFastRandoms and JADsymbol). I pasted it into scar and deleted the big procedures that were made by others, and what was left wasn't much - just sort of looked like a power woodcutter - this is also for SRL 3.81 (i'm pretty sure), which doesn't bug me that much, but updating it wouldn't have taken that long.

Again, sorry, but it's just that too much of the main components are by others (specifically the walking/banking).

k

One thing.

procedure Others;
var NickNameBMP: Integer;
begin
  DeclarePlayers;
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  ClearDebug;
  ClearReport;
  ActivateClient;
  if(not(LoggedIn))then LoginPlayer;
  MakeCompass('N');
  HighestAngle;
end;

Nickname bmp needs to be declared as a global variable.

Im going to say no… theres about 2 procedure in that script that are your own. The script needs to be 90% yours..

Also you messed up your comments lol.

ok remove this thred i tryed ill try again next month….

From: kikwit
lol, ok, just making sure you knew.

Now i'll take a look at the script…

most of it isn't even by you. I'll wait for alex/other people to vote.

[offtopic/]sites up[offtopic]

Don't double post, edit your old one ;) And good luck next month.

http://www.villavu.com/forum/showthread.php?t=16012
this application was made about a week ago.

Closed as Requested