SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Scar

Other Communitys
Sp0rk-eh

How Long have You Played Runescape
2 years

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

I enjoy Scar scripting and I have been learning for about 3 months and I think that I have a chance of making it into members now. Outside of this community I enjoy swimming competitively, playing soccer with my friends, music, and hanging out with my friends. I can play the Cello and the Piano. I am 14 years old and I live in Georgia, U.S.

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

{ Rasta Magician helped me alot.

 You Must have axe in inventory, NOT wielded}

program WillowCutter;
{.include SRL/SRL.scar}

const
 Loads = 3;//amount of loads to do before switching players
 Version = '2';
 YourSRLId = '2670';
 YourSRLPassword = 'blink182';
 
var
 C1, C2 : integer;
 x,y : integer;
 Bankers, Log : integer;
 time : integer;
 
{Fill This Part Out}
procedure DeclarePlayers;
begin
  HowManyPlayers := 2;
  CurrentPlayer := 0;
  NumberOfPlayers(HowManyPlayers);

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

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

end;

Procedure Bitmaps;
begin
  Log := DTMFromString('78DA6314616060106340013E2E32609A11CA6' +
       '7540412520C688011550D480B2F0135FC40828F801A7620214C40' +
       '0D3311EE0199234F847B9408A891246C0E00D8F60238');
       
  Bankers := DTMFromString('78DA639461606010654001FFFFFF07D38C503' +
       'EA31090904455F3E70F13A61A41026A8481841C7E3500E04109A4' +
       '');
end;

//Made by Sumillion
function FindEnt(fx, fy: Integer; AvoidWhenFound: Boolean): Boolean;
var
  arUpTextEntColorPoints: TPointArray;
  x, y, EntTime, tcts: Integer;
begin
  if not(LoggedIn)then
    Exit;
  GetMousePos(x, y);
  if(x <> fx)or(y <> fy)then
    MMouse(fx, fy, 0, 0);
  if(IsUpText('Chop'))then
  begin
    tcts := GetColorToleranceSpeed;
    ColorToleranceSpeed(2);
    SetColorspeed2Modifiers(0.4, 0.4);
    FindColorsTolerance(arUpTextEntColorPoints, 51657, 80, 6, 127, 20, 5);
    Result := Length(arUpTextEntColorPoints) > 10;
    ColorToleranceSpeed(tcts);
  end;
  if(Result)then
  begin
    WriteLn('Ent Found!!');
    if(AvoidWhenFound)then
    begin
      Writeln('Waiting for it to go away.');
      MouseFindNoFlag(MMCX, MMCY, -1, 1);
      MarkTime(EntTime);
      while(TimeFromMark(EntTime) < 35000)do
        if(Random(20) > 15)then
          IdleTime(500, 500, 0.4)
        else
          Wait(500 + Random(500));
      EntsAvoided := EntsAvoided + 1;
    end;
  end;
end;


//I got this procedure from Derek-
Procedure AngleWalk(WAngle: string; Dist: Integer; WFlag: Boolean);
var
  Angle : Extended;
  TheAngle, x, y : Integer;
begin
  Case LowerCase(WAngle) of
    'n' : TheAngle := 0;
    'w' : TheAngle := 90;
    's' : TheAngle := 180;
    'e' : TheAngle := 270;
    else
      begin
        try
          TheAngle := StrToInt(GetNumbers(WAngle));
        except
          WriteLn('AngleWalk Failed: Invalid string/integer entered.');
          Exit;
        end;
      end;
  end;
  TheAngle := 270 - TheAngle;
  if (Dist > 72) then Dist := 72;
  Angle := rs_GetCompassAngleDegrees;
  x := MMCX + Round(Dist * Cos((Angle + TheAngle) * (pi/180)));
  y := MMCY + Round(Dist * Sin((Angle + TheAngle) * (pi/180)));
  Mouse(x, y, 0, 0, True);
  if WFlag then
  begin
    Wait(RandomRange((Dist * 24), (Dist * 26)));
    FFlag(0);
  end;
end;

procedure ToSpot;
begin
  MakeCompass('N');
  SetRun(True);
  AngleWalk('170', 40, True);
end;

procedure MyAntiBannage;
begin
  case Random(40) of
    0: RandomRClick;
    1: BoredHuman;
    2: RandomMovement;
    3: AlmostLogout;
    4: PickUpMouse;
    5: HoverSkill('Woodcutting', False);
  end;
end;

procedure Bank;
 begin
   MakeCompass('N');
   SetRun(False);
   GameTab(4);
   If FindSymbol(x,y,'bank')Then
   begin
     Mouse(x,y,3,3,true);
     Flag;
   end;
   If not FindSymbol(x,y,'bank')Then
   if  DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
   begin
     Mouse(x, y, 1, 1, True);
     Flag;
   end;
   begin
     MarkTime(time);
     repeat;
       if (not(Loggedin)) then  break;
       If FindObj(x,y,'ank booth',670542,3) then
       Mouse(x,y,3,3,false);
       ChooseOption('uickly');
       Wait(2000);
    until(BankScreen or (TimeFromMark(time) > 120000));
   end;
   C2 := C2 +  AmountDTM('Inventory',Log);
   ReportVars[0]:= ReportVars[0] + AmountDTM('Inventory',Log);
   C1 := C1 + 1;
   ReportVars[1]:= ReportVars[1] + 1;
   Deposit(2, 28, 2);
   CloseBank;
end;

procedure ChopTree;
begin
  repeat
    If Not Loggedin Then Break;
    if (FindObjCustom(X, Y, ['ill','low','illo','llo'], [3896169,3238238,3902333,1387816], 3)) then
    begin
      FindEnt(x,y,true);
      Mouse(x,y,3,3,True);
      FFlag (0);
      FindNormalRandoms;
      MyAntiBannage;
      Wait(5000);
    end;
  Until(invfull);
end;

procedure Reports;
begin
  ClearDebug;
  writeln('------Skilld Us Willow Chopper and Banker------');
  writeln('Cut About '+IntToStr(C2)+' Willows');
  writeln('Banked '+IntToStr(C1)+' Times');
  writeln('Worked For '+TimeRunning);
  SRLRandomsReport;
end;

begin
  SetupSRL;
  ScriptID := '636';
  SRLID := YourSRLID;
  SRLPassword := YourSRLPassword;
  Disguise('eBay');
  ActivateClient;
  Bitmaps;
  DeclarePlayers;
  repeat
    if LoggedIn then Logout;
    LoginPlayer;
    repeat
      ToSpot;
      ChopTree;
      MyAntiBannage;
      if InvFull then
      begin
        Bank;
        Reports;
      end;
    if not Loggedin then NextPlayer(False);
    until C1 = Loads;
    NextPlayer(True);
  until False;
end.

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

the script is very small, much of it is done by someone else. the procedures you made yourself are quite simple compared to what we expect from members. to open the bank you could use OpenBankQuiet. to find the bank you reall don't have much of failsafes, and no walking at all.

If FindSymbol(x,y,'bank')Then
begin
  Mouse(x,y,3,3,true);
  Flag;
end;        // end else, otherwise you might look for it twice without any need.
If not FindSymbol(x,y,'bank')Then
  if  DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
  begin
    Mouse(x, y, 1, 1, True);
    Flag;
  end;

also take the time to get your standards right, they're off and that's always a minus.

it's a no, and i might as well tell you that probably no one will vote yes for the reasons i said above or even other reasons.

but i've seen you around the forums and i like your attitude, which is a plus. but the scripting still needs some work.

Don't give up, your on the good way, i see you improved since your last app. Remember to only re-apply in a month and that at least 90% of the script has to be yours. also read some more tuts and have a good look at the ones tha say what is needed to get into members.

~RM

Yep, to short as RM said.

Also since you said RM helped you a lot I'll take RMs word that its not 90% yours.

This doesn't make the most important requirements for SRL member ship.

No as well.

the 90% thingy was because of Sum's and Derek's procedures.

here is the link to the help i gave him:
http://www.villavu.com/forum/showthread.php?t=23948?t=26129

it was more of a guidance than actual code help. but i still think it is a no. Sorry.

~RM

I'm afraid you're not getting in this time.
You may try again in one month, good luck :)
Closed.