SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
Mr.Klean


What is your general programming knowledge?
Everything I know is what i have learned here.


Are you a member of any other communities?
No


Tell us about yourself…

From: RyGuy
I am currently a freshman in college going to school for Pharmacy. Live in Wisconsin. I am a member of the Track & Field team at my school (pretty good too :P). I love playing RuneScape, but hate the grinding aspect of it. I have already made and release two agility scripts, and plan to make more that take away from the grinding aspect of the game for other members. I am an IRL friend with a trusted Senior SRL Member, Mr.Klean.

I would like to thank everyone who looks at my application, and hope you find me a worthy applicant to become an SRL Member!

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

program ApeAtoll;
//////////////////////////WRITTEN BY RYGUY//////////////////////////////

////////////////////////////VERSION 1.2////////////////////////////////
{$DEFINE SMART}
{$DEFINE SRL5}
{$i SRL/srl.simba}

var
  x, y, Stone, Tree1, Bars, Fell, Slope, TopOfSlope,
  ToSwingMM, Swing, Tree2, BottomOfSwing, ToStoneMM,
  TimeBegan, StartingXP, TimesFailed, PickIt, CutIt,
  EatIt, FromPineapple, Stone2: integer;

  aFound: extended;

///////////////////////////PLAYER SETUP//////////////////////////////////
const
  EatAt = 100; //HP to eat at. Put anything above your max hp to disable.


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

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

////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////



procedure SetDTMs;
begin
  Stone := DTMFromString('mwQAAAHic42RgYNBmhGB9INYCYnUgFgNiNSC2AWIdoJptQLwZiHcA8S4o/zAQnwLiM0BcC8QpUToMaTG6DBlxegyhPmpg3NC7iqG2eyVD66S1DHkZhgxcQHXoWAQNA61kYCKA4QAAp4oTFA==');
  Stone2 := DTMFromString('mrAAAAHic42BgYNBkZGDQBWJVIJYCYmUg1gdiSxANlN8CxDuAeCsQ7wXiY0B8AogPA3EFEIuJiTNEB2mCcUXbEoaGvjUM1V1LGZr7VjEUZBkxcAHVwLAIFgy0hoEJD4YBAO33EVM=');
  Tree1 := DTMFromString('mggAAAHicY2NgYFBkZGDQBGI1INaFsjmAeBJQrhuIZwHxFCCuBuIWIM4K1WeIclZnyAs2YOgttGMIdVBlePXhOwMXUA4bZsSBIQAAfa0L0Q==');
  Bars := DTMFromString('mggAAAHicY2NgYNBgZGBwBGIpKOYEYlkgjgfKpQNxGhA3MUD4ukDcUeTL4GWnxRDsps/g56TDUNE6nyEqTo6BCyiHjEWgGGgUAzMWDAEAytEJWQ==');
  Fell := DTMFromString('mggAAAHicY2NgYMhmYmBoA2I/IM4C4iQgrgDiaUC5SUBcA8T1QFwNxJVAHGXIzqAcIcjgaSXI0DFxFhxzAeVgmB8JMwIxExYMAQALBAzO');
  Slope := DTMFromString('m6wAAAHic42ZgYNBkZGAwBmI7IHYD4iAgVgJidSDWgdK6QLwNqHYdEC8C4uVAPBeIFwPxJiBeAcRbgXgCEB8B4q9AXJZlwlCRYwqmM+L0GHKSDBiSEuUYMtIVGGKiZRhi/DQYvOwVGOp6VjLwANUTg0WAGOgUBhYkzIQDszKgAACaZhYE');
  TopOfSlope := DTMFromString('mbQAAAHicY2VgYAhnZGBIB+JqIO4G4ttAXAAUzwTiFCCOB2JfIA7wsmWIDnVjCPF3BOPkMlUGVqA4MuYHYhY0DDQOAgCYLAla');
  ToSwingMM := DTMFromString('mQwAAAHicY2ZgYOBjgAAYzQXEHEDc0DWTQSFMjCE2tYiBB8iHYUYkDAQAgskDvA==');
  Swing := DTMFromString('mlwAAAHicY2dgYLgPxJeh+AoU7wHixYwMDM1AejYQLwPirUC8H4jjofJZtaYMy1o9GCbm2jPMKnZmmF/vylDTtYzBP1GLgQsoj45FoJgRBwapgQIAl20TVw==');
  Tree2 := DTMFromString('mrAAAAHic42BgYHgDxC+A+C0QnwHiY0C8CYg/APFHIJZmZGAQB2IlIOYA4rtAsctArAtkWwHx7Fo3hroES4aGREsGz0gxhsBkMYagVDGGpCR5hoRobQYuoFoY5sGCGZEwMxJmgmIYAAAd/hF5');
  BottomOfSwing := DTMFromString('mggAAAHicY2NgYIhjYmCIBmI/IJ4AxOVAHAnEGkA5CSDWAmJ9IDYF4gQg7pw4F459nVQZDq2PZFCJEGHgAcrBMD8QS0IxIxbMygADAMxvDEo=');
  ToStoneMM := DTMFromString('mWAAAAHicY2FgYNjExMCwBIhXAPE0IDYFipkBsQoQmwNxTXMfQ1q4PoNpkgRDiIc6Az9QDBkzomEQAAC7JweS');
  PickIt := DTMFromString('mbQAAAHicY2VgYJAGYjkobQnEdkB8B4hvAvEDIP4JxMeAWHSCBMP3RSoM+2ulGYratRiaJ+ky8APF0TEjFgwGAALkC6s=');
  CutIt := DTMFromString('mggAAAHicY2NgYMhmYmAoY4LQiUCcDMRFQMzFyMDAA8TiUPoXUO1vIN7RJg0kmTAwF5DEhhmxqoYBAF1YBnE=');
  EatIt := DTMFromString('mggAAAHicY2NgYMhlYmDIAuIyIM4G4iQgzgDiJ0C5u0D8EIjfMED4zxlAgAkD758hzcAFZGHDjFh1wAAAeO0JsQ==');
  FromPineapple := DTMFromString('mggAAAHicY2NgYGhhZGBoAOJaIO4A4j4gbgbi+UC5GUC8BoinA/EcIN4AxFY6Qgy9U/QY9FT4GLytxBnK4k0Z/OyUGLiAcuiYH4gZoZgJCbMywAAAAMcLtg==');
end;



procedure FreeDTMs;
begin
  FreeDTM(Stone);
  FreeDTM(Stone2);
  FreeDTM(Tree1);
  FreeDTM(Bars);
  FreeDTM(Fell);
  FreeDTM(Slope);
  FreeDTM(TopOfSlope);
  FreeDTM(ToSwingMM);
  FreeDTM(Swing);
  FreeDTM(Tree2);
  FreeDTM(BottomOfSwing);
  FreeDTM(ToStoneMM);
  FreeDTM(PickIt);
  FreeDTM(CutIt);
  FreeDTM(EatIt);
  FreeDTM(FromPineapple);
end;



procedure Report;
var
  Exp, ExpHr, TimeRan: integer;
begin
  TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
  Exp := (GetXPBarTotal - StartingXP);
  ExpHr := Round((Exp * 3600) / (TimeRan));
  WriteLn('Time: ' + TimeRunning);
  WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
  WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Agility Experience per Hour!');
end;




procedure AntiBan;
begin
  if not(LoggedIn)then
  Exit;
  LevelUpEx(True, True);
  case Random(300)of
    0: HoverSkill('Agility', false);
    1: PickUpMouse;
    2: RandomMovement;
    3: RandomRClick;
  end;
end;



procedure SteppingStone;
begin
  if FindDTMRotated(Stone, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) or FindDTMRotated(Stone2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  Mouse(x, y, 5, 5, True);
  Wait(4500 + random(100));
  AntiBan;
end;



procedure UpTree;
begin
  if FindDTMRotated(Tree1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  Mouse(x, y, 5, 5, True);
  Wait(4500 + random(100));
  AntiBan;
end;



procedure MonkeyBars;
var
  BarCount: integer;
begin
  repeat
    Inc(BarCount);
    if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, aFound)then
    MMouse(x, y, 2, 2);
    Wait( randomrange (25, 50) );
  until IsUpText('wing') or (BarCount > 15);
  if IsUpText('wing')then
  begin
    ClickMouse2(True);
    Wait(6800 + random(100));
    AntiBan;
  end;
end;



procedure SkullSlope;
var
  SlopeCount: integer;
begin
  repeat
    Inc(SlopeCount);
    x := MSCX;
    y := MSCY;
    if FindColorSpiralTolerance(x, y, 3435383, MSX1, MSY1, MSX2, MSY2, 4)then
    MMouse(x, y, 0, 0);
    Wait( randomrange (25, 50));
  until IsUpText('limb') or (SlopeCount > 30);
  if  IsUpText('limb')then
  begin
    ClickMouse2(True);
    Wait(1000 + random(100));
    AntiBan;
    While IsMoving do WaitNone;
  end;
end;



procedure RunToSwing;
begin
  if FindDTMRotated(ToSwingMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
  Mouse(x, y, 5, 5, True);
  Wait(1000 + random(100));
  AntiBan;
  Flag;
  Wait(1500 + random(100));
end;



procedure OverWater;
begin
  if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  Mouse(x, y, 5, 5, True);
  AntiBan;
  Wait(3500 + random(100));
end;



procedure DownTree;
begin
  if FindDTMRotated(Tree2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  Mouse(x, y, 5, 5, True);
  AntiBan;
  TimesFailed := 0;
  Wait(11000 + random(100));
end;



procedure BackToStart;
begin
  if FindDTMRotated(ToStoneMM, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
  Mouse(x, y, 5, 5, True);
  Wait(1000 + random(100));
  Report;
  AntiBan;
  Flag;
end;

procedure GetPineapple;
begin


  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(CutIt, 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, aFound)then
    Mouse(x, y, 4, 4, True);
    Wait(1750 + random(100));
  end;

end;



function CurrentHP:integer;
var
  s: string;
begin
  Result := GetMMLevels('health', s);
end;



procedure WhereAreWe;
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, aFound) or FindDTMRotated(Stone2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Stone');
    SteppingStone;
  end;

  if FindDTMRotated(Tree1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Tree1');
    UpTree;
  end;

  if FindDTMRotated(Bars, x, y, 180, 0, 420, 340, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Bars');
    MonkeyBars;
  end;

  if FindDTMRotated(Slope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Slope');
    SkullSlope;
  end;

  if FindDTMRotated(TopOfSlope, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Top');
    RunToSwing;
  end;

  if FindDTMRotated(Swing, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Swing');
    OverWater;
  end;

  if FindDTMRotated(Tree2, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Tree 2');
    DownTree;
  end;

  if (CurrentHP < 300) and (InvCount < 12)then
  begin
    WriteLn('Getting a Pineapple for later use');
    GetPineapple;
  end;

  if FindDTMRotated(BottomOfSwing, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Found Bottom');
    BackToStart;
  end;

  if FindDTMRotated(Fell, x, y, MMX1, MMY1, MMX2, MMY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Think you fell.. trying to go back to the stone')
    BackToStart;
  end;

  if TimesFailed > 15 then
  begin
    WriteLn('We are probably stuck. Logging out to be safe.');
    Logout;
  end;

end;



begin
  Smart_Server := 86;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;

  SetUpSRL;
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  TimeBegan := GetSystemTime;
  ToggleXPBar(True);
  StartingXP := (GetXPBarTotal);

  repeat
    SetAngle(SRL_ANGLE_HIGH);
    MakeCompass('S');
    SetDTMs;
    if (CurrentHP < EatAt)then

    repeat
      begin
        FindDTM(EatIt, x, y, MIX1, MIY1, MIX2, MIY2);
        Mouse(x, y, 5, 5, True);
      end;
    until (CurrentHP > EatAt);

    WhereAreWe;
    FindNormalRandoms;
    FreeDTMs;
  until(AllPlayersInactive);
end.

program AdvancedGnomeAgility;
//////////////////////////WRITTEN BY RYGUY//////////////////////////////

////////////////////////////VERSION 0.90////////////////////////////////
{$DEFINE SMART}
{$DEFINE SRL5}
{$loadlib sps}
{$i SRL/srl.simba}
{$i sps/sps.simba}

var
  Log, Branch1, Branch2, Post, Hurdle, TimeBegan, StartingXP: integer;
  aFound: extended;

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

  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active:=True;
end;
////////////////////DO NOT TOUCH BELOW THIS LINE/////////////////////////



procedure SetDTMs;
begin
  Log := DTMFromString('mlwAAAHicY2dgYFBjZGDgB2JpINYEYkUgVgViHSDeDJQ/BsSbgHgVEM8A4lNAvA2IixwFGHLiFRkKHPgZ0qz4GLwtxRnCnaQYcuz4GdiA8rgwIx4MBQAxWws7');
  Branch1 := DTMFromString('mbQAAAHicY2VgYNBjZGBQAmILIPYC4kQgngMUnwnEM5BwfqgSQ02KOUNxjDFDfqQhmOYHinOhYUYsGAwAfOwJcQ==');
  Branch2 := DTMFromString('mKgEAAHic42NgYOACYm4g9gRiOyA2YYAAViDmAWIZIBYBYkGoOnaoHBsQS0BpmBl8UD0wdSA5RgYEAOlL91dg8LaWYkjykWdI8JID4yhXGYYYd1mGOA85huwgJYbMAEWGwnBlhvxQCAbp4QDqJQczkolRAQDIyg2R');
  Hurdle := DTMFromString('mQwAAAHicY2ZgYJBlZGBQBmJtIK4A8quAuBKI/95dwfDr9jKG7zeWMHAB+TDMiISBAABdxglu');
  Post := DTMFromString('mQwAAAHicY2aAAA4g5oRiaajYxj4/hu6uVoaSknwGNiAfhhmRMBAAAKdUBMw=');
end;



procedure FreeDTMs;
begin
  FreeDTM(Log);
  FreeDTM(Branch1);
  FreeDTM(Branch2);
  FreeDTM(Hurdle);
  FreeDTM(Post);
end;



procedure Report;
var
  Exp, ExpHr, TimeRan: integer;
begin
  TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
  Exp := (GetXPBarTotal - StartingXP);
  ExpHr := Round((Exp * 3600) / (TimeRan));
  WriteLn('Time: ' + TimeRunning);
  WriteLn('We have gained ' + IntToStr(Exp) + ' Agility Experience!');
  WriteLn('We are gaining ' + IntToStr(ExpHr) + ' Agility Experience per Hour!');
end;




procedure AntiBan;
begin
  if not(LoggedIn)then
  Exit;
  LevelUpEx(True, True);
  case Random(300)of
    0: HoverSkill('Agility', false);
    1: PickUpMouse;
    2: RandomMovement;
    3: RandomRClick;
  end;
end;



procedure LogBalance;
var
  x, y: integer;
begin
  repeat
    if FindDTMRotated(Log, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
      WriteLn('Found Log');
      Mouse(x, y, 5, 5, True);
      Wait(500+random(50));
  until(IsMoving);
    while(IsMoving) do
      WaitNone;
      AntiBan;
end;



procedure ObstacleNet;
var
  x, y: integer;
begin
  x := MSCX;
  y := MSCY;
  if FindObjTPA(x, y, 466484, 5, 1, 50, 150, 200, ['over'])then
  begin
    ClickMouse2(True);
    WriteLn('Found Net');
    AntiBan;
    Wait(3750+random(100));
  end;
end;



procedure TreeBranch1;
var
  x, y: integer;
begin
  x := MSCX;
  y := MSCY;
  FindDTMRotated(Branch1, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)
  Mouse(x, y, 4, 4, True);
  if DidRedClick then
  begin
    WriteLn('Found Branch 1');
    AntiBan;
    SetAngle(SRL_ANGLE_LOW);
  end;
end;



procedure TreeBranch2;
var
  x, y: integer;
begin
  if FindDTM(Branch2, x, y, MSX1, MSY1, MSX2, MSY2)then
  Mouse(x, y, 4, 4, True);
  WriteLn('Found Branch 2');
  AntiBan;
  Wait(3000+random(50));
end;



procedure Signpost;
var
  x, y: integer;
begin
  if FindDTMRotated(Post, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  Mouse(x, y, 4, 4, True);
  WriteLn('Found Signpost');
  AntiBan;
  Wait(3000+random(50));
end;



procedure Pole;
var
  x, y: integer;
begin
  ClickNorth(SRL_ANGLE_NONE);
  Wait(100+random(50));
  if FindObjTPAMulti(x, y, [4541520, 2566185], 4, 1, 220, 7, 200, ['Swing'])then
  ClickMouse2(True);
  WriteLn('Found Pole');
  AntiBan;
  Wait(12000+random(100));
end;



procedure Barrier;
var
  x, y: integer;
begin
  if FindDTM(Hurdle, x, y, MSX1, MSY1, MSX2, MSY2)then
  begin
    MMouse(x, y, 3, 4);
    ClickMouse2(True);
    if DidRedClick then
    begin
      WriteLn('Found Barrier');
      AntiBan;
      Wait(6500+random(100));
      Report;
    end;
  end;
end;



procedure BackToLog;
begin
  repeat
    case Random(3) of
      0: SPS_WindWalk(Point(1736, 2910));
      1: SPS_WindWalk(Point(1736, 2912));
      2: SPS_WindWalk(Point(1734, 2910));
    end;
    WriteLn('Attempting To Run Back To Log')
  until (IsMoving);
    begin
      MakeCompass('E');
      SetAngle(SRL_ANGLE_HIGH);
    end;
end;



procedure WhereAreWe;
var
  x, y: integer;
begin

  if FindDTMRotated(Log, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Trying Balence');
    LogBalance;
  end;

  if FindBlackChatMessage('other')then
  begin
    WriteLn('Trying Net');
    ObstacleNet;
  end;

  if FindBlackChatMessage('netting')then
  begin
    WriteLn('Trying First Branch');
    TreeBranch1;
  end;

  if FindNPCChatText('do',  nothing)then
  begin
    SetAngle(SRL_ANGLE_HIGH);
    TreeBranch1;
  end;

  if FindBlackChatMessage('above')then
  begin
    WriteLn('Trying Second Branch');
    TreeBranch2;
  end;

  if FindDTMRotated(Post, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound)then
  begin
    WriteLn('Trying Signpost');
    Signpost;
  end;

  if FindColoredAreaTolerance(x, y, 6270424, MSX1, MSY1, MSX2, MSY2, 600, 5)then
  begin
    WriteLn('Trying Pole');
    Pole;
  end;

  if FindDTM(Hurdle, x, y, MSX1, MSY1, MSX2, MSY2)then
  begin
    WriteLn('Trying Barrier');
    Barrier;
  end;

  if FindColoredAreaTolerance(x, y, 10129284, MMX1, MMY1, MMX2, MMY2, 100, 10)then
  begin
    WriteLn('Trying Walk Back To Log')
    BackToLog;
  end;
end;



begin
  Smart_Server := 86;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  SPS_Setup(RUNESCAPE_SURFACE, ['4_7']);
  ActivateClient;
  DeclarePlayers;
  LoginPlayer;
  TimeBegan := GetSystemTime;
  ToggleXPBar(True);
  StartingXP := (GetXPBarTotal);
  ClickNorth(SRL_ANGLE_HIGH);
  MakeCompass('E');
  repeat
    SetDTMs;
    WhereAreWe;
    FindNormalRandoms;
    FreeDTMs;
  until(false);
end.

Sorry, you're off to a good start but these scripts are just way too simple.

Only DTM's are used.

Going to vote no for this time :(

I'd have to agree, they're really simple. You're getting there though! Which to me, puts you ahead of the rest! :) Also, I'd like to see you become more active in the community.

Thank you guys for your feedback! Honestly I wasn't expecting much more than this, but I wanted to see what you guys had to say. Besides becoming more active, do you have any advice on what I can include in some of my future scripts? I use a lot of DTMs simply because they work for me.

I don't think the DTMs are such a problem, in my opinion, it is just the type of script and it is very hard to display a lot of methods when the script doesn't bank and just moves around. You on the right path though, keep going.

May be try a different type of script next time like something with banking. Good luck.

I'd like to see some more variety in your scripts, to be quite honest. Dig around in the include, use what SRL has already provided for you and learn how simple it is to take advantage of that.

Thanks guys, I still <3 all of ya :P I'll apply again some day, but probably not anytime soon. No rush really, just trying to get a little more well-known around here

Maybe. :)

Nah, Yes.

But you got to replace the useless Wait(xxx) with more useful waits, like FindNormalRandoms;

Take a look at my FTWait (FindTalkWait)… It performs a FindNormalRandoms once every 10th of a second. This way Simba has something useful to do other then just Waiting….

WT.. i searched for your FTWait and i could not find it =/

This is my FTWait in its most essential form. It is a nice habit using waits to actually do something for you. Before you know it, you end up in a random and your script has missed it.

procedure FTWait(myLen:Integer);
var mywait: Integer;
begin
     for mywait := 1 to myLen do
     begin
           Wait(50+ Random(50));
          if FindNormalRandoms then
          begin
                 // whatever you need to re-setup because the colors have changed.
           end;
     end
end;

From: RyGuy
Thank you guys for your feedback! Honestly I wasn't expecting much more than this, but I wanted to see what you guys had to say. Besides becoming more active, do you have any advice on what I can include in some of my future scripts? I use a lot of DTMs simply because they work for me.

Personally, I think you're using DTM's because that's really the only thing you know how to use optimally. Our library is huge, there are so many more reliable functions other than depending on a DTM for identifying what you want to do/where to click…etc. As all the others said, I'd like to see you utilize the library more. For now, it's a no, but you do have potential, so keep up the good work.