SRL Archive - Archive

How Long have You Played Runescape?
8 Year(s)


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
GOOGLE


What is your general programming knowledge?
Pascal script, a little SQL (beginning) , and java too.


Are you a member of any other communities?
Powerbot, hardly


Tell us about yourself…

From: (s)okkr7
My name is Matt. I like computers, duh, and sports such as: soccer, basketball, tennis, and disc golf! My hobby is to find old bicycles and restore them, then sell them for profit. I like to play runescape on my downtime, and I never like to give up on a challenge. I am employed at a local grocery store as customer service, and I love to help people no matter how hard the task. I like to solve things on my own as best as I can to better my knowledge, and as a last resort, I ask for help. Being a junior in high school, I have a full schedule and I'm going to a local college for computer sciences/programming (as my school has no such curriculum). I plan to take a route of computers in college, and I feel as this community is already helping, so why not apply to better myself. Thanks.

~(s)okkr7

Please show us one (or multiple) of your scripts.

program sApeAgility_v1;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{$i SRL/SRL/misc/smartgraphics.simba}

const
NumberOfLaps=0; //disregard for now
EatAt = 50;  //percentage NOT actual #
var
  X, Y, Stone, FirstTree, Bars, Fallen, Slope, TopOfSlope,
  MMToSwing, Swing, Treefailsafe, DownToEarth, MMToStone,
  TimesFailed, PickIt, CutP, EatP,FromPineapple,
  StoneFailsafe, Tree2fail: integer;

  FoundIt: extended;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name        :='';
    Pass        :='';
    Active      := true;
  end;
end;
{***********************************************}
{||    Credits to Flight for the procedure    ||}
{***********************************************}
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
  randSpeed: extended;
  X,Y,X2,Y2,A,Dist,MP: integer;
begin
  A := MouseSpeed;
  GetMousePos(X, Y);
  Dist := Distance(X, Y, eX, eY);
  MP := Round(Dist/150);
  if MP < 0 then
    MP := 1;

  randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
  X2 := RandomRange(eX-(A*MP), eX+(A*MP));
  Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
  WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
  GetMousePos(X, Y);
  MMouse(eX, eY, ranX, ranY);
  MouseSpeed := A;
end;
{***********************************************}
{||    Credits to Flight for the procedure    ||}
{***********************************************}
procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
var
  veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
  lastX,lastY,MSP,W,maxStep,D: integer;
  sqrt2,sqrt3,sqrt5: extended;
begin
  MSP  := MouseSpeed;
  sqrt2:= sqrt(2);
  sqrt3:= sqrt(3);
  sqrt5:= sqrt(5);

  repeat
    dist:= hypot(xs - xe, ys - ye);
    wind:= minE(wind, dist);
    D := Random((Round(dist)/3));
    if (D > 100) then
      D := RandomRange(90, 100);
    if (D < 5) then
      D := RandomRange(5, 8);

    maxStep := D;

    if dist >= targetArea then
    begin
      windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
      windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
    end else
    begin
      windX:= windX / sqrt2;
      windY:= windY / sqrt2;
    end;

    veloX:= veloX + windX;
    veloY:= veloY + windY;
    veloX:= veloX + gravity * (xe - xs) / dist;
    veloY:= veloY + gravity * (ye - ys) / dist;

    if hypot(veloX, veloY) > maxStep then
    begin
      randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
      veloMag:= sqrt(veloX * veloX + veloY * veloY);
      veloX:= (veloX / veloMag) * randomDist;
      veloY:= (veloY / veloMag) * randomDist;
    end;

    lastX:= Round(xs);
    lastY:= Round(ys);
    xs:= xs + veloX;
    ys:= ys + veloY;

    if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
      MoveMouse(Round(xs), Round(ys));

    W := (Random(100/MSP))*3;
    if (W < 5) then
      W := 5;
    wait(W);
    lastdist:= dist;
  until(hypot(xs - xe, ys - ye) < 1)

  if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
    MoveMouse(Round(xe), Round(ye));

  MouseSpeed := MSP;
end;
{***********************************************}
{||    Credits to Flight for the procedure    ||}
{***********************************************}
procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
var
  randSpeed: extended;
  X,Y: integer;
begin
  randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
  GetMousePos(X, Y);
  BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
end;
{********************************************}
{ Credits for DTMs go to RyGuy who left SRL! }
{********************************************}
procedure Calls;
begin
  Stone := DTMFromString('mwQAAAHic42RgYNBmhGB9INYCYnUgFgNiNSC2AWIdoJptQLwZiHcA8S4o/zAQnwLiM0BcC8QpUToMaTG6DBlxegyhPmpg3NC7iqG2eyVD66S1DHkZhgxcQHXoWAQNA61kYCKA4QAAp4oTFA==');
  StoneFailsafe := DTMFromString('mrAAAAHic42BgYNBkZGDQBWJVIJYCYmUg1gdiSxANlN8CxDuAeCsQ7wXiY0B8AogPA3EFEIuJiTNEB2mCcUXbEoaGvjUM1V1LGZr7VjEUZBkxcAHVwLAIFgy0hoEJD4YBAO33EVM=');
  FirstTree := DTMFromString('mggAAAHicY2NgYJBkgABFIFYFYjkoWxyIOaFyIDXyQCwAxFmh+gyvPnxnCHVQZegttGPICzZgiHJWZ+ABymHDjDgwBAAAebwIxQ==');
  Bars := DTMFromString('mggAAAHicY2NgYNBgZGBwBGIpKOYEYlkgjgfKpQNxGhA3MUD4ukDcUeTL4GWnxRDsps/g56TDUNE6nyEqTo6BCyiHjEWgGGgUAzMWDAEAytEJWQ==');
  Fallen := DTMFromString('mggAAAHicY2NgYMhmYmBoA2I/IM4C4iQgrgDiaUC5SUBcA8T1QFwNxJVAHGXIzqAcIcjgaSXI0DFxFhxzAeVgmB8JMwIxExYMAQALBAzO');
  Slope := DTMFromString('m6wAAAHic42ZgYChmgIByIC4E4jIonQPEc4B4AhB3AHEtEMsBcSoQm0D1qAKxBBArAbEwEPMCsTgQC4HMyTJhqOtZyeBlr8AQ46fBEBMtw5CRrsCQlCjHkJNkwJARpwdWU5FjysADVC8CxPxImAcHZgRiViBmQsIsODASAABpuxIH');
  TopOfSlope := DTMFromString('mbQAAAHicY2VgYAhnZGBIB+JqIO4G4ttAXAAUzwTiFCCOB2JfIA7wsmWIDnVjCPF3BOPkMlUGVqA4MuYHYhY0DDQOAgCYLAla');
  MMToSwing := DTMFromString('mQwAAAHicY2ZgYOBjgAAYzQXEHEDc0DWTQSFMjCE2tYiBB8iHYUYkDAQAgskDvA==');
  Swing := DTMFromString('mlwAAAHicY2dgYLgPxJeh+AoU7wHixYwMDM1AejYQLwPirUC8H4jjofJZtaYMy1o9GCbm2jPMKnZmmF/vylDTtYzBP1GLgQsoj45FoJgRBwapgQIAl20TVw==');
  Treefailsafe := DTMFromString('mrAAAAHic42BgYHgDxC+A+C0QnwHiY0C8CYg/APFHIJZmZGAQB2IlIOYA4rtAsctArAtkWwHx7Fo3hroES4aGREsGz0gxhsBkMYagVDGGpCR5hoRobQYuoFoY5sGCGZEwMxJmgmIYAAAd/hF5');
  Tree2fail := DTMFromString('mrAAAAHic42BgYGBkZGBgAmJ+RghbHIhfA8XfAnEIEF8H4nNA/JABIn4LiK8B8XOoWLyPFoOflRJDfLwsQ2SIOkNSoiyDkRo/GNuaSDHwA9Xgw4xQzISEmZEwDAAAsGkPPQ==');
  DownToEarth := DTMFromString('mggAAAHicY2NgYAhkYmBIBeIgII4H4glAvBiIVYByGkBsAsRdQGwExNZA3NYzDQX72MszpIZoMfAD5bBhRiTMgoQhAAD5kAy6');
  MMToStone := DTMFromString('mWAAAAHicY2FgYNjExMCwBIhXAPE0IDYFipkBsQoQmwNxTXMfQ1q4PoNpkgRDiIc6Az9QDBkzomEQAAC7JweS');
  PickIt := DTMFromString('mbQAAAHicY2VgYJAGYjkobQnEdkB8B4hvAvEDIP4JxMeAWHSCBMP3RSoM+2ulGYratRiaJ+ky8APF0TEjFgwGAALkC6s=');
  CutP := DTMFromString('mggAAAHicY2NgYMhmYmAoY4LQiUCcDMRFQMzFyMDAA8TiUPoXUO1vIN7RJg0kmTAwF5DEhhmxqoYBAF1YBnE=');
  EatP := DTMFromString('mggAAAHicY2NgYMhlYmDIAuIyIM4G4iQgzgDiJ0C5u0D8EIjfMED4zxlAgAkD758hzcAFZGHDjFh1wAAAeO0JsQ==');
  FromPineapple := DTMFromString('mggAAAHicY2NgYGhhZGBoAOJaIO4A4j4gbgbi+UC5GUC8BoinA/EcIN4AxFY6Qgy9U/QY9FT4GLytxBnK4k0Z/OyUGLiAcuiYH4gZoZgJCbMywAAAAMcLtg==');
end;

procedure Frees;
begin
  FreeDTM(Stone);
  FreeDTM(StoneFailsafe);
  FreeDTM(FirstTree);
  FreeDTM(Bars);
  FreeDTM(Fallen);
  FreeDTM(Slope);
  FreeDTM(TopOfSlope);
  FreeDTM(MMToSwing);
  FreeDTM(Swing);
  FreeDTM(TreeFailsafe);
  FreeDTM(Tree2fail);
  FreeDTM(DownToEarth);
  FreeDTM(MMToStone);
  FreeDTM(PickIt);
  FreeDTM(CutP);
  FreeDTM(EatP);
  FreeDTM(FromPineapple);
end;
procedure WaitAt();
begin
end;
procedure StepDatStone;
begin
  if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(StoneFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    FFlag(5);
    HumanMMouse(X, Y, 1, 1);
    if IsUpText('stone')then
    ClickMouse2(true);
    Wait(125 + random(25));
    begin
      if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(StoneFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) then
      HumanMMouse(X, Y, 0, 0);
      ClickMouse2(True);
      Wait(4250 + random(150));
    end;
  end;
end;
procedure ClimbTree;
begin
  if FindDTMRotated(FirstTree, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) then
  repeat
  Mouse(X, Y, 5, 5, True);
  Wait(1);
  until Not FindDTMRotated(FirstTree, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) and FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, FoundIt);
end;
procedure BarHop;
var
  Fails: integer;
begin
  repeat
    Inc(Fails);
    if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, FoundIt)then
    HumanMMouse(x, y, 2, 2);
    Wait(150 + random(50));
  until IsUpText('wing') or (Fails > 10);
  if IsUpText('wing')then
  begin
    ClickMouse2(True);
    Wait(6550 + random(250));
  end;
end;
procedure Scale;
var
  Scales: integer;
begin
  repeat
    Inc(Scales);
    x := MSCX;
    y := MSCY;
    if FindColorSpiralTolerance(x, y, 3435383, MSX1, MSY1, MSX2, MSY2, 4)then
    HumanMMouse(x, y, 0, 0);
    Wait(randomrange (25, 50));
  until IsUpText('slope') or (Scales > 30);
  if  IsUpText('slope')then
  begin
    ClickMouse2(True);
    Wait(100 + random(50));
    HumanMMouse(580, 45, 10, 10);
    Wait(800 + random(100));
    While (IsMoving) do (WaitAt);
  end;
end;
procedure ToSwing;
begin
  if FindDTMRotated(MMToSwing, X, Y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
  Mouse(x, y, 5, 5, True);
  Wait(750 + random(250));
  HumanMMouse(221, 128, 5, 5);
  FFlag(2);
  if FindDTMRotated(Swing, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  HumanMMouse(X, Y, 2, 2);
  ClickMouse2(true);
  Wait(1550 + random(125));
end;
procedure HopWater;
begin
  if FindDTMRotated(Swing, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    HumanMMouse(x, y, 5, 5);
    Wait(150 + random(50));
    if (IsUpText('Rope'))then
    begin
      ClickMouse2(True);
      Wait(100 + random(50));
      HumanMMouse(232, 261, 4, 4);
      Wait(3350 + random(150));
    end;
  end;
end;
procedure SlideDown;
var
  times: integer;
begin
  HumanMMouse(222, 264, 1, 1);
  If IsUpText('Tropical') then
  begin
  writeln('Sliding down');
  ClickMouse2(true);
  Wait(8750 + Random(250));
  end else
if FindDTMRotated(Treefailsafe, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(Tree2fail, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) and IsUpText('Tropical') then
  begin
  HumanMMouse(X, Y, 2, 2);
  ClickMouse2(True);
  repeat
  wait(1);
  until FindDTMRotated(MMToStone, X, Y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt) or (times > 5) or (FindSymbol(X, Y, Symbol_Agility));
  end;
  if FindDTMRotated(Treefailsafe, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(Tree2fail, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
  repeat
    Inc(times);
    HumanMMouse(X, Y, 5, 5);
    Wait(150 + random(50));
    if (IsUpText('tree'))then
    begin
      ClickMouse2(True);
      Wait(100 + random(50));
      TimesFailed := 0;
      Wait(10975 + random(175));
    end;
  until FindDTMRotated(MMToStone, X, Y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt) or (times > 5) or (FindSymbol(X, Y, Symbol_Agility));
  end;
end;
procedure ToStart;
begin
  if FindDTMRotated(MMToStone, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt) or (FindSymbol(X, Y, Symbol_Agility)) or (not(isMoving)) then
  begin
    Mouse(x, y, 5, 5, True);
    Wait(100 + random(50));
    HumanMMouse(295, 180, 25, 25);
    Wait(1000 + random(100));
    Flag;
    Wait(1000 + random (250));
  end;
end;
procedure GrabFood;
begin
  If HPPercent < 50 then
  begin
    Wait(400 + random(50));
    if FindDTM(PickIt, x, y, MSX1, MSY1, MSX2, MSY2)then
    Mouse(x, y, 5, 5, True);
    Wait(2000 + random(100));
  end;
  begin
    if FindDTM(CutP, x, y, MIX1, MIY1, MIX2, MIY2)then
    Mouse(x, y, 5, 5, False);
    WaitOption('lice', 300);
    Wait(400 + random(50));
    Mouse(190, 430, 20, 20, True);
    Wait(300 + random(50));
  end;
  begin
    if FindDTMRotated(FromPineapple, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
    Mouse(x, y, 4, 4, True);
    Wait(1750 + random(100));
  end;
end;
function CurrentHP:integer;
var
  p: string;
begin
  Result := GetMMLevels('health', p);
end;
procedure Location;
var
  X, Y: integer;
begin
  WriteLn('Failed ' + IntToStr(TimesFailed) + ' Times');
  Inc(TimesFailed);
  if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(StoneFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Hopping across');
    StepDatStone;
  end;
  if FindDTMRotated(FirstTree, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Climbing trunk');
    ClimbTree;
  end;
  if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Look at those muscles');
    BarHop;
  end;
  if FindDTMRotated(Slope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Scaling!');
    Scale;
  end;
  if FindDTMRotated(TopOfSlope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('We scaled');
    ToSwing;
  end;
  if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Found Swing');
    HopWater;
  end;
  if FindDTMRotated(TreeFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(Tree2fail, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Found Tree two');
    SlideDown;
  end;
  if (HPPercent < 30) and (InvCount < 15)then
  begin
    WriteLn('Grabbing a Pineapple for safety');
    GrabFood;
  end;
  if FindDTMRotated(DownToEarth, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Touched home');
    GrabFood;
    ToStart;
  end;
  if FindDTMRotated(Fallen, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('You fell.. back to dat stone!')
    ToStart;
  end;
  if TimesFailed > 15 then
  begin
    WriteLn('Logging out for safety');
    Logout;
    TerminateScript;
  end;
end;
{procedure MainLoop;
var
  Place: Integer;
begin
  Case Place of

  'Stone' :
            begin
            if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(StoneFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
            //StepDatStone;
            end;
    'Tree'  : begin
              if FindDTMRotated(FirstTree, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
              //ClimbTree;
              end;
      'Bars'  : begin
                if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, FoundIt)then
                //BarHop;
                end;
        'Slope' : begin
                  if FindDTMRotated(Slope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
                  //Scale;
                  end;
          'TSlope' : begin
                     if FindDTMRotated(TopOfSlope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
                     //ToSwing;
                     end;
              'Rope'  : begin
                        if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
                        //HopWater;
                        end;
                'Vine'  : begin
                          if FindDTMRotated(TreeFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(Tree2fail, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
                          //SlideDown;
                          end;
              'BOR'  : begin
                       if FindDTMRotated(DownToEarth, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
                       //GrabFood;
                       //ToStart;
                       end;
           'Fell'  : begin
                     if FindDTMRotated(Fell, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
                     //ToStart;
                     end;
           end;
end;    }
begin
SRL_SixHourFix := true;
Smart_FixSpeed := true;

SetupSRL;
DeclarePlayers;
LoginPlayer;
If not (MakeCompass('S')) then
ClickNorth(SRL_ANGLE_HIGH);
MakeCompass('S');
GameTab(tab_inv);
 repeat
    Calls;
    if (HPPercent < EatAt)then
    repeat
      begin
        FindDTM(EatP, x, y, MIX1, MIY1, MIX2, MIY2);
        Mouse(x, y, 5, 5, True);
      end;
    until (CurrentHP > EatAt);
    Location;
    //MainLoop;
    Frees;
until Not(loggedin);
end.

//next script I whipped up in a day or two, kinda lame//

program sHunterKitter;
{$DEFINE SMART}
{$i SRL/SRL.simba}
{$i SRL/SRL/misc/smartgraphics.simba}

{[******************************************]
 [*********Sokkr7's Hunter Kit Opener*******]
 [****** Fill out the Const & start in *****]
 [********Soulwars w/ earth staff on********]
 [******************************************]}
const
 AmountOfKits = 8000;
{^^ # of astrals divided by two. Always round up!}
 TimeToRun    = 18000000; //until break (default 5 hours)
 TimeRunTotal = 90000000; //set really high if using for awhile!
 Break        = True; // Yes=true, No=false
 BreakFor     = 6000;  //How long to break for? (In milliseconds) [default 5 minutes]
 OpenKits     = true; //set to true if you want to cast and open
var
  X, Y, Invy, Stop, First, Time, Kits, Magic, Profit, Astral: Integer;

{**************************************}
{ Fill in declares  | And the const ^^ }
{**************************************}
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  with Players[0] do
  begin
    Name        :=''; //Username
    Pass        :=''; //Password
    Pin         :=''; //Leave blank if none
    Member      := true;  //no touchy
    Active      := true;  //no touchy
  end;
end;
procedure Callthings;
begin
Astral := BitmapFromString(4, 6, 'meJw7tvr4MRJRampmWnp2RmZuYmJq' +
        'cnI6hAsASeUuIQ==');
end;
procedure Freethings;
begin
FreeBitmap(Astral);
end;
{***************************************
|*  Major Credits to Flight for this  *|
****************************************}
Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
var
  randSpeed: extended;
  X,Y,X2,Y2,A,Dist,MP: integer;
begin
  A := MouseSpeed;
  GetMousePos(X, Y);
  Dist := Distance(X, Y, eX, eY);
  MP := Round(Dist/150);
  if MP < 0 then
    MP := 1;

  randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
  X2 := RandomRange(eX-(A*MP), eX+(A*MP));
  Y2 := RandomRange(eY-(A*MP), eY+(A*MP));
  WindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
  GetMousePos(X, Y);
  MMouse(eX, eY, ranX, ranY);
  MouseSpeed := A;
end;
{***************************************
|*  Major Credits to Flight for this  *|
****************************************}
procedure BrakeWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, targetArea: extended);
var
  veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist: extended;
  lastX,lastY,MSP,W,maxStep,D: integer;
  sqrt2,sqrt3,sqrt5: extended;
begin
  MSP  := MouseSpeed;
  sqrt2:= sqrt(2);
  sqrt3:= sqrt(3);
  sqrt5:= sqrt(5);

  repeat
    dist:= hypot(xs - xe, ys - ye);
    wind:= minE(wind, dist);
    D := Random((Round(dist)/3));
    if (D > 100) then
      D := RandomRange(90, 100);
    if (D < 5) then
      D := RandomRange(5, 8);

    maxStep := D;

    if dist >= targetArea then
    begin
      windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
      windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
    end else
    begin
      windX:= windX / sqrt2;
      windY:= windY / sqrt2;
    end;

    veloX:= veloX + windX;
    veloY:= veloY + windY;
    veloX:= veloX + gravity * (xe - xs) / dist;
    veloY:= veloY + gravity * (ye - ys) / dist;

    if hypot(veloX, veloY) > maxStep then
    begin
      randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
      veloMag:= sqrt(veloX * veloX + veloY * veloY);
      veloX:= (veloX / veloMag) * randomDist;
      veloY:= (veloY / veloMag) * randomDist;
    end;

    lastX:= Round(xs);
    lastY:= Round(ys);
    xs:= xs + veloX;
    ys:= ys + veloY;

    if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
      MoveMouse(Round(xs), Round(ys));

    W := (Random(100/MSP))*3;
    if (W < 5) then
      W := 5;
    wait(W);
    lastdist:= dist;
  until(hypot(xs - xe, ys - ye) < 1)

  if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
    MoveMouse(Round(xe), Round(ye));

  MouseSpeed := MSP;
end;
{***************************************
|*  Major Credits to Flight for this  *|
****************************************}
procedure BrakeMMouse(eX, eY, ranX, ranY: Integer);
var
  randSpeed: extended;
  X,Y: integer;
begin
  randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
  GetMousePos(X, Y);
  BrakeWindMouse(X, Y, eX, eY, 9, 5, 10.0 / randSpeed, 15.0 / randSpeed, 10.0 * randSpeed);
end;
{****************************************}
{ My Custom Antiban, will add more later }
{   Props to Kyle for providing a link!  }
{****************************************}
procedure AntiBan;
begin
 case(Random(10)) of
 1: begin
    GameTab(tab_Stats);
    HoverSkill(skill_Magic, False);
    end;
 2: begin
    GameTab(tab_Stats);
    GetSkillLevel(skill_magic);
    XPTillNextLevel(skill_Magic);
    end;
 3: begin
    BoredHuman;
    end;
 4: begin
    CompassMovement(40, 120, true);
    end;
 5: begin
    GameTab(tab_Inv);
    ExamineInv;
    end;
 6: begin
    PickUpMouse;
    RandomRClick;
    end;
 7: begin
    SetScreenMouse('W', 6);
    end;
 8: begin
    GameTab(tab_Friends);
    Wait(1000 + Random(650));
    end;
 9: begin
    InvMouse(1, 2);
    ClickMouse2(false);
    end;
10: begin
    GameTab(tab_Music);
    ScrollMouse(634, 308, 2);
    end;
  end;
end;
{**************************************}
{ Author:Sokkr7 |   Clicks the spell   }
{**************************************}
procedure ClickSpell;
begin
  GameTab(tab_Magic);
  MarkTime(Invy);
  if (OpenKits = false) then
repeat
  begin
     Mouse(629, 262, 10, 5, Mouse_Left);
     if (FindBlackChatMessage('You do not have enough astral runes to cast this spell')) then
     break;
     if (Not(FindBlackChatMessage('You do not have enough astral runes to cast this spell'))) then
     wait(250 + Random (50));
  end;
until (TimeFromMark(Invy) > 71000) and (IsChatBoxTextAnyLine('You need at least one free inventory space to cast this spell', clBlack));
 if (OpenKits = true) then
 begin
 repeat
   GameTab(tab_magic);
   Mouse(629, 262, 10, 5, Mouse_Left);
 until (InvCount = 4)
 if (InvCount = 4) then
  begin
  GameTab(tab_Inv);
  Wait(Random(50));
  Mouse(622, 230, 7, 7, Mouse_left);
  Wait(Random(50));
  Mouse(663, 230, 7, 7, Mouse_left);
  Wait(Random(50));
  Mouse(704, 230, 7, 7, Mouse_left);
  Wait(Random(350));
  end;
 end;
end;
{****************************************}
{ My own custom banking procedure for SW }
{****************************************}
procedure Bank;
  begin
  if (Not(FindNormalRandoms)) then
  MakeCompass('W');
    repeat
    OpenBankChest(SRL_BANK_SW);
    until (BankScreen) Or (PinScreen)
       Wait(1000);
       if FindBitmaptoleranceIn(Astral, X, Y, MSX1, MSY1, MSX2, MSY2, 25) then
       begin
       HumanMMouse(X, Y, 4, 4);
       ClickMouse2(False);
       ChooseOption('Withdraw-All');
       end else
       if Not(FindBitmaptoleranceIn(Astral, X, Y, MSX1, MSY1, MSX2, MSY2, 25)) then
       Deposit(2, 28, true);
       Wait(350);
       CloseBank;
    end;
{****************************************}
{     Prints a progress report below     }
{****************************************}
procedure Proggy;
begin
  Kits := Kits + 27
  Magic := Magic + 1890
  Profit := Profit + (46*27)
  WriteLn('[*******************************************************]');
  WriteLn('[************** Sokkr7''s Hunter Kitter ****************]');
  WriteLn('[*******************************************************]');
  WriteLn('[***************[' + IntToStr(Kits) + (' hunter kits made!' + ']******************]'));
  WriteLn('[*****[' + ('Player has gained ' + IntToStr(Magic) + (' experience in magic!' + (']*****]'))));
  WriteLn('[****************[' + ('Player has Made ' + IntToStr(Profit) + (' GP' + ']***************]')));
  WriteLn('[********[' + ('Running for ' + (TimeRunning) +']*********]'));
  WriteLn('[*******************************************************]');
end;
procedure PrintOnSmart;
var
  TR, Made, Gained, Earned: String;
  Pic: Integer;
begin
  Proggy;
  SmartSetDebug(true);
  TR := TimeRunning;
  Made := IntToStr(Kits);
  Gained := IntToStr(Magic);
  Earned := IntToStr(Profit);

\\had a bitmap image for proggy here, but was too long sadly!


 SMART_DrawBitmap(True, pic, Point(MCX1, MCY1));
 Smart_DrawText(91, 390, StatChars, TR, clAqua);
 Smart_DrawText(91, 409, StatChars, Made, clAqua);
 Smart_DrawText(91, 431, StatChars, Gained, clAqua);
 Smart_DrawText(91, 453, StatChars, Earned, clAqua);
 FreeBitmap(Pic)
end;
{****************************************}
{ Mainloop |    Written by: (s)okkr7 :)  }
{****************************************}
begin
  SRL_SixHourFix:= True;
  Smart_FixSpeed:= True;
 repeat
  SetupSRL;
  Callthings;
  DeclarePlayers;
  Loginplayer;
  MarkTime(First);
  ClearDebug;
  SetAngle(SRL_ANGLE_HIGH);
  MouseSpeed:= 60;
  if (not LoggedIn) then
    TerminateScript();;
  begin
    repeat
      begin
      if (Not(LoggedIn)) then
        begin
        LoginPlayer;
        end;
      Bank;
      case(random(15)) of
      1: Antiban;
      2: ;
      3: ;
      4: ;
      5: ;
      6: ;
      7: ;
      8: ;
      9: ;
      10: ;
      11: ;
      12: ;
      13: ;
      14: ;
      15: ;
      end;
      ClickSpell;
      ClearDebug;
      PrintOnSmart;
      Wait(2500);
      end;
    until (Kits >= AmountOfKits) or (TimeFromMark(First) > TimeToRun) or (FindBlackChatMessage('You do not have enough astral runes to cast this spell'));
  if (TimeFromMark(First) > TimeToRun) and (Break = True) then
    begin
    ExitToLobby;
    MarkTime(Time);
    WriteLn('Breaking for your amount of time!');
    repeat
    Wait(1);
    until (TimeFromMark(Time) > BreakFor);
    repeat
      begin
      if (Not(LoggedIn)) then
        begin
        LoginPlayer;
        end;
      Bank;
      AntiBan;
      ClickSpell;
      ClearDebug;
      PrintOnSmart;
      Wait(2500);
      end;
    until (Kits >= AmountOfKits) or (TimeFromMark(First) > TimeToRun) or (FindBlackChatMessage('You do not have enough astral runes to cast this spell'));
    end;
  end;
 until (TimeFromMark(Stop) > (TimeRunTotal))
 Freethings;
 Logout;
 TerminateScript;
end.

Hey there, it's good to see that you're trying, but there are a few problems I have with your script(s).

procedure Location;
var
  X, Y: integer;
begin
  WriteLn('Failed ' + IntToStr(TimesFailed) + ' Times');
  Inc(TimesFailed);
  if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(StoneFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Hopping across');
    StepDatStone;
  end;
  if FindDTMRotated(FirstTree, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Climbing trunk');
    ClimbTree;
  end;
  if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Look at those muscles');
    BarHop;
  end;
  if FindDTMRotated(Slope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Scaling!');
    Scale;
  end;
  if FindDTMRotated(TopOfSlope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('We scaled');
    ToSwing;
  end;
  if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Found Swing');
    HopWater;
  end;
  if FindDTMRotated(TreeFailsafe, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) or FindDTMRotated(Tree2fail, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Found Tree two');
    SlideDown;
  end;
  if (HPPercent < 30) and (InvCount < 15)then
  begin
    WriteLn('Grabbing a Pineapple for safety');
    GrabFood;
  end;
  if FindDTMRotated(DownToEarth, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('Touched home');
    GrabFood;
    ToStart;
  end;
  if FindDTMRotated(Fallen, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
  begin
    WriteLn('You fell.. back to dat stone!')
    ToStart;
  end;
  if TimesFailed > 15 then
  begin
    WriteLn('Logging out for safety');
    Logout;
    TerminateScript;
  end;

All that can be condensed into a nice case statement.

procedure ToSwing;
begin
  if FindDTMRotated(MMToSwing, X, Y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, FoundIt)then
  Mouse(x, y, 5, 5, True);
  Wait(750 + random(250));
  HumanMMouse(221, 128, 5, 5);
  FFlag(2);
  if FindDTMRotated(Swing, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt)then
  HumanMMouse(X, Y, 2, 2);
  ClickMouse2(true);
  Wait(1550 + random(125));
end;

Also, you tend to rely on Waits ALOT, say a lag spike occurs, your whole proc. has been butchered :l

Although DTMs are decent to use, i'd prefer if you used TPAs to detect your obstacles, as they are amazingly accurate.

Overall, though you have activity (which is a great thing!) I don't feel the scripts are upto date with the SRL Member standards. Keep trying though!

Best of luck.

Thanks Shay, only problem is I tried using ATPAs at Ape Atoll and it wouldn't work :/ Maybe give me some tips? Thanks for the feedback!

Holy Global Variables Batman! Most of those could have been local Variables.

procedure WaitAt();
begin
end;

^Does that do something?

From: BraK
Holy Global Variables Batman! Most of those could have been local Variables.

procedure WaitAt();
begin
end;

^Does that do something?

Yeah I like to declare variables before time so I don't have to later on, but I realize it's bad :x.. Also, never got around to completing that procedure, sadly.

Too much copied from elsewhere, and it's too simple/flawed. D:

From: NKN
Too much copied from elsewhere, and it's too simple/flawed. D:

Copied from elsewhere? It'd be nice to know what's "simple" and "flawed" too.

1. Over-use of global variables. Not only is this bad practice, but it greatly increases memory usage.

2. Crediting people for their work - Flight and RyGuy.

3. Using DTMs for things TPAs would be more accurate for - While it may be possible to use DTMs for certain obstacles, the use of TPAs would be much more efficient and accurate. Not to mention that I would like to see you demonstrate your ability using them prior to me voting.

4. Un-used procedure - As pointed out by BraK. I like to see that you take pride in your script, that you've read it over a few times before posting it up here for an application and make it as efficient and 'professional' as possible. Leaving an un-used/finished procedure in there doesn't demonstrate pride in your work for me.

5. IsUpText - Would much rather see WaitUpText here.

6. This below is an infinite loop - don't ever have these.

procedure ClimbTree;
begin
  if FindDTMRotated(FirstTree, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) then
  repeat
  Mouse(X, Y, 5, 5, True);
  Wait(1);
  until Not FindDTMRotated(FirstTree, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) and FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, FoundIt);
end; 

- Yet the procedure immediately below it you have a failsafe to stop an infinite loop, you clearly now how to do it, but knowing how to write a good script and actually implementing your knowledge and doing it are two different things.

7. Over reliance on static waits - As shay mentioned, if the user gets a lag spike the whole lot goes out of whack. You need failsafes and checks to make sure that things happened the way they should have.

8. Standards - Overall they are pretty good. Would like to see a bit more spacing, like between procedures and I usually like to space out groups of actions within my procedures, too. Not necessary, but I feel it makes things easier to read and keep a track of what's going on. Couple of capitalised words and missing a couple of indentations, but all up pretty good.

9. Lengthy procedures full of if..then statements rather than being shortened to one case statement.

I only went through your first script attached, but I hope these bits of information help you out a little bit. Not everyone gets in on their first member's application, but it is only a waste of time if you don't come away learning anything from it.

Check out some of the guides on member's applications and try to learn each element they suggest you know for a good application.

From: P1ng
1. Over-use of global variables. Not only is this bad practice, but it greatly increases memory usage.

2. Crediting people for their work - Flight and RyGuy.

3. Using DTMs for things TPAs would be more accurate for - While it may be possible to use DTMs for certain obstacles, the use of TPAs would be much more efficient and accurate. Not to mention that I would like to see you demonstrate your ability using them prior to me voting.

4. Un-used procedure - As pointed out by BraK. I like to see that you take pride in your script, that you've read it over a few times before posting it up here for an application and make it as efficient and 'professional' as possible. Leaving an un-used/finished procedure in there doesn't demonstrate pride in your work for me.

5. IsUpText - Would much rather see WaitUpText here.

6. This below is an infinite loop - don't ever have these.

procedure ClimbTree;
begin
  if FindDTMRotated(FirstTree, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) then
  repeat
  Mouse(X, Y, 5, 5, True);
  Wait(1);
  until Not FindDTMRotated(FirstTree, X, Y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, FoundIt) and FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, FoundIt);
end; 

- Yet the procedure immediately below it you have a failsafe to stop an infinite loop, you clearly now how to do it, but knowing how to write a good script and actually implementing your knowledge and doing it are two different things.

7. Over reliance on static waits - As shay mentioned, if the user gets a lag spike the whole lot goes out of whack. You need failsafes and checks to make sure that things happened the way they should have.

8. Standards - Overall they are pretty good. Would like to see a bit more spacing, like between procedures and I usually like to space out groups of actions within my procedures, too. Not necessary, but I feel it makes things easier to read and keep a track of what's going on. Couple of capitalised words and missing a couple of indentations, but all up pretty good.

9. Lengthy procedures full of if..then statements rather than being shortened to one case statement.

I only went through your first script attached, but I hope these bits of information help you out a little bit. Not everyone gets in on their first member's application, but it is only a waste of time if you don't come away learning anything from it.

Check out some of the guides on member's applications and try to learn each element they suggest you know for a good application.

*Copied into notepad* Geez P1ng, thanks much for this. I'm working on using TPAs and such now, as I guess I've been doing them wrong. If you could/would help at all in that direction, that'd also be great. (even a link to a tut that you think is worthy would be gratified). Again, thank you :)

Edit: If anyone can, and wants to, just move this to archive. Not even going to bother with it anymore.

I think this is going to be open until the poll is closed, dont request it to be archived though, someone like P1ng might give you more valueable feedback!

From: Shay
All that can be condensed into a nice case statement.

Case statements are based on 1 condition and many block statements.

He has several condition statements in that code block.

If that can sit inside a case statement, then maybe I'm doing it wrong.

From: smurg
Case statements are based on 1 condition and many block statements.

He has several condition statements in that code block.

If that can sit inside a case statement, then maybe I'm doing it wrong.

New procedure –> use the DTM as the case.

From: Shay
New procedure –> use the DTM as the case.

Thanks again, re-writing this script now with some new features. Also, if I revise it to a point, am I allowed to resubmit with it? Or anything you'd suggest? Anyone?

You may edit your application at any time to add new things in that you have learnt, however those who have already voted will be unable to change their vote.

Sorry, too much borrowed code. (excessive IMO)

It's frowned upon Changing you script after the original posting as you are expected to post your best and have pride in the script.

Some stuff I've found, might have been posted before. A bit messy but oh well.

Static waits
Waiting then checking for uptext instead of WaitUptext
Mouse(629, 262, 10, 5, Mouse_Left);
Static coords for a spell that could be on a different position if the spellbook is setup differently.
Findblackchatmessage is also way to long and if someone would type that in RS it would also think it's out of astrals.
TimeFromMark(Invy) > 71000) -> static 71 sec wait


repeat
GameTab(tab_magic);
Mouse(629, 262, 10, 5, Mouse_Left);
until (InvCount = 4)
Infinite loop as it never increases InvCount

if (InvCount = 4) then
unnecessary check as it does only get there if invcount = 4

–

So yeah overall I don't want to see static waits, use a WaitFunc or something else. Some waits aren't even randomized so work on that :P You can't avoid having some waits but you can avoid loads of them. This does also increase the speed of the script.

And I'd like to see more advanced way of object detection instead of using DTM's/bitmaps.

From: BraK
It's frowned upon Changing you script after the original posting as you are expected to post your best and have pride in the script.

Personally, I like it when applicants do that. :)

Personally i'd reapply when you manage to change the script to using TPA's. Apply for SRL Members isn't about making the best script in the game, its about showing what you can do with your knowledge, as far as i know your script doesn't even have to work.

From: cause
Sorry, too much borrowed code. (excessive IMO)

From where? I borrowed the DTMs from RyGuy, and Flights mouse procedures, was unaware that was "too much."

From: BraK
It's frowned upon Changing you script after the original posting as you are expected to post your best and have pride in the script.

Yeah I felt like it was worthy at the time, but now I realize I could make it a heck of a lot better..

From: J J
Some stuff I've found, might have been posted before. A bit messy but oh well.

Static waits
Waiting then checking for uptext instead of WaitUptext
Mouse(629, 262, 10, 5, Mouse_Left);
Static coords for a spell that could be on a different position if the spellbook is setup differently.
Findblackchatmessage is also way to long and if someone would type that in RS it would also think it's out of astrals.
TimeFromMark(Invy) > 71000) -> static 71 sec wait


repeat
GameTab(tab_magic);
Mouse(629, 262, 10, 5, Mouse_Left);
until (InvCount = 4)
Infinite loop as it never increases InvCount

if (InvCount = 4) then
unnecessary check as it does only get there if invcount = 4

–

So yeah overall I don't want to see static waits, use a WaitFunc or something else. Some waits aren't even randomized so work on that :P You can't avoid having some waits but you can avoid loads of them. This does also increase the speed of the script.

And I'd like to see more advanced way of object detection instead of using DTM's/bitmaps.

Working on TPAs right now, and that was written when I first joined here. Was my first written script for my personal use, but I later posted it and people used it.

From: Daniel
Personally, I like it when applicants do that. :)

Do what? Revise or not?

From: (s)okkr7

Do what? Revise or not?

Revise :P

Edited nearly the whole script to fit more of everyone's needs. When's the next time I would be able to submit? (Don't wanna seem to pushy as it is..)

Usually its around 2weeks, take those weeks to polish the script even more! :)

I voted no, but here are my 2cents even though it has already been said.

A few global variables is understandable, but you just have too many imo.

I would have rather seen TPA's or at very least your own DTM's and not some one else's.

You do look like you are on a very good path however. I would personally suggest starting with a new script from scratch rather then just editing this one if you wish to submit another application. Don't rush your self, the best learning is done over time, not rushed.

From: (s)okkr7
From where? I borrowed the DTMs from RyGuy, and Flights mouse procedures, was unaware that was "too much."

Yeah well, it is. Also just on the presentation side of things, I really would not advise saying

//next script I whipped up in a day or two, kinda lame//

As it leaves the viewer already skeptical, better to not include it, or have it as perfect as you can get it. You will get in next time though I'm sure :).

From: cause
Yeah well, it is. Also just on the presentation side of things, I really would not advise saying

//next script I whipped up in a day or two, kinda lame//

As it leaves the viewer already skeptical, better to not include it, or have it as perfect as you can get it. You will get in next time though I'm sure :).

<3 quick question! does a DTM necessarily HAVE to have the same color around it? Or have I just learned it wrong?

EDIT: Just wanted to say thanks to the brave souls who voted 'Yes' ;) and for all the feedback I have received from those who voted no. It's all a learning experience, am I right? :)

You seem to have taken your application the right way :) Don't be disheartened by the no votes - You may not be ready just yet, but you certainly have the potential.

I am not quite sure what you mean by "does a DTM necessarily HAVE to have the same color around it".

When creating a DTM you select certain points, each of these points will have a colour that corresponds to the individual point. From there you may add tolerance and area to each of the points. The tolerance allows for colour change and the area allows the point to shift slightly.

Bearing in mind the greater the area and tolerance the greater the risk of false positives.

From: P1ng
You seem to have taken your application the right way :) Don't be disheartened by the no votes - You may not be ready just yet, but you certainly have the potential.

I am not quite sure what you mean by "does a DTM necessarily HAVE to have the same color around it".

When creating a DTM you select certain points, each of these points will have a colour that corresponds to the individual point. From there you may add tolerance and area to each of the points. The tolerance allows for colour change and the area allows the point to shift slightly.

Bearing in mind the greater the area and tolerance the greater the risk of false positives.

Helped out a lot actually! Think the revision is coming along quite nicely :)

Hmm I didn't see this, so I will give you the usual stuff :P
Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused. Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted. (You are fine here)

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

From: R4nd0m
Hmm I didn't see this, so I will give you the usual stuff :P
Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused. Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted. (You are fine here)

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

+1
Next vote will probably be a yes.

From: R4nd0m
Hmm I didn't see this, so I will give you the usual stuff :P
Try to follow this guide to become a SRL member:
http://villavu.com/forum/showthread.php?t=74195

For learning purposes I recommend starting with YoHoJo's video tutorials, informative and they will teach you what you need to know to create a basic/decent script.
http://villavu.com/forum/showthread.php?t=69179

For more advanced scripting I would suggest reading these guides:
http://villavu.com/forum/forumdisplay.php?f=96

Also one thing I really think is important is being community focused. Posting actively not only shows you genuinely care for the community it also helps your chances of getting accepted. (You are fine here)

These guides can help you with that:
http://villavu.com/forum/showthread.php?t=72050
http://villavu.com/forum/showthread.php?t=66084

Anyway, sorry for the roughness. Good luck.

Thank you for the awesome links! Made me try out some new things to get out of my comfort zone! :)

From: EtherFreak
+1
Next vote will probably be a yes.

Any reasons as to why? ;)

Closed

You can try again in a month Good Luck.