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?



What is your general programming knowledge?
HTML, PHP, Pascal, JAVA(minor)


Are you a member of any other communities?
Used to be apart of RSBOTs.net and Powerbot


Tell us about yourself…

From: VillaVuFTW
My name is Zack, and I love to play the guitar, code scripts for knowledge when I have the time, Video Gaming, and chilling. I'm working on standards for my scripts, as I'm not a very experienced scripter.

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

Program VillaScrolls;
//{$DEFINE SMART}
{$i SRL/SRL.simba}    //ChooseOption('All') fix..
{$i SPS/SPS.simba}

Const
Server = 54;

procedure DeclarePlayers;
Begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password

  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.

  Players[0].Integers[1] := 10000; // Number of loads
End;

 procedure ClickOn(PX:Integer; Click: Boolean);
 var
 x, y:integer;
 aFound:ExtEnded;
  Begin
  if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
      Begin
        Mouse(x, y, 1, 1, Click);
      End;
  End;

Function HT:Boolean;
Var
  Tablet, X, Y:Integer;
Begin
  Tablet := DTMFromString('mlwAAAHicY2dgYHBmYmBwAmI/IDYFYgsoOxCIHwLlnwHxTSB+AMSfoPgpEC+bP5/ByEAfyGLCwJJAEoSxAUY8GAoAkg0K9g==');
  If FindDTM(Tablet, X, Y, MIX1, MIY1, MIX2, MIY2)  then
  Begin
    writeln('First Task Done');
    Mouse(X, Y, 4, 4, true);
  End;
  FreeDTM(Tablet);
End;

Function WalkingToShop:Boolean;
Var
  ToShop:TPointArray;
  ToShopPos:TPoint;

  Spider, X, Y:Integer;
Begin
  writeln('GOODJOB');
  SPS_Setup(RUNESCAPE_SURFACE,(['8_6','8_7']));

  ToShop := [Point(3410, 2795), Point(3433, 2829), Point(3475, 2828), Point(3513, 2847), Point(3537, 2873)];
  SPS_WalkPath(ToShop);
  wait(500+random(200));

  SPS_GetMyPos;

  If SPS_GetMyPos = Point(3540, 2873) then
  Begin
    Writeln('At Shop!');
  End else
  Begin
    WriteLn('Walking Back to the Shop');
    ToShopPos := Point(3540, 2873);
    SPS_WalkToPos(ToShopPos);
  End;
    Wait(2300+Random(200));
End;

Function ClimbDownLadder:boolean;
var
  x, y:integer;
Begin
  If FindObjEx(x, y, ['Trapdoor'], [1381663, 2830911],6, 30, 62, 159, 464, 234) Then
  MMouse(x, y, 6, 6);
  If IsUpText('wn') then
  Begin
    Mouse(x, y, 0, 0, true);
    Wait(1200+RandomRange(500,1000));
  End;
End;
Function FindAndClickObelisk:boolean;
var
  x, y:integer;
Begin
  If FindObjEx(x, y, ['Obelisk'], [10534783, 2654844],10, 45, MSX1, MSY1, MSX2, MSY2) Then
  Begin
    MMouse(x, y, 6, 6);
    ClickMouse2(true);
  End;
End;

Function ScrollsTab:boolean;
var
  x, y, But1:integer;
Begin
  But1 := DTMFromString('mbQAAAHicY2VgYKgD4i4gbgPieiCuBmJtIFYBYh0gNgZiDSBWVdNmEBERQcHYACMWDAYAiRIEzw==');
Begin
  If FindDTM(But1, x, y, MSX1, MSY1, MSX2, MSY2) then
  Begin
    Writeln('Found Button');
    MMouse(x, y, 5, 5);
    Mouse(x, y, 0, 0, true);
    wait(150+RandomRange(150,320));
  End;
  FreeDTM(But1);
End;
End;
Function InfuseScrolls:boolean;
var
  x, y, But2:integer;
Begin
  But2 := DTMFromString('mWAAAAHicY2FgYHjPxMDwHYifAfFbEAaKvQDiN0D8FYj5+PjgOCpmMQMXAwKwAjEjGgYBAFomCWY=');
Begin
  If FindDTM(But2, x, y, MSX1, MSY1, MSX2, MSY2) then
  Begin
      Writeln('Found Scroll');
      MMouse(x, y, 5, 5);
      Mouse(x, y, 0, 0, false);
      wait(250);
      ChooseOption('All');
  End;
  FreeDTM(But2);
End;
End;
function BankChestColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;

  tmpCTS, i, arL: Integer;
Begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.93, 0.46);

  if not (FindColorsTolerance(arP,  10987695, MSX1, MSY1, MSX2, MSY2, 2)) then
  Begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  End;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  Begin
    Result := arC[i];
    Break;
  End;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
  Writeln('AutoColor failed in finding the color.');
End;
Function TeleBank:Boolean;
var
  x, y, DuelRing:integer;
Begin
  GameTab(Tab_Equip);
  DuelRing := BitmapFromString(8, 4, 'meJxjYmCQWy8FQaJVQhDEF8rDBBOX' +
        'XSspNVscgiDiQCRc0CSQWMAbGCfRLwpE4t0iEr2LJaesEW+fK1rdL' +
        '5RbJxCfFxgYKlonBAAKbhfV');
 Begin
  If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
    Begin
      MMouse(X,Y,6,6);
      ClickMouse2(False);
      Wait(400+Random(50));
      ChooseOption('Castle');
      GameTab(Tab_Inv);
      Wait(3200+Random(230));
    End;
  FreeBitMap(DuelRing);
 End;
End;
Function ChestFinding:Boolean;
Var
  X, Y, Bank:Integer;
  aFound:ExtEnded;
Begin
Bank := DTMFromString('mbQAAAHicY2VgYNBnZGBQBmITIFYDYkMgXgQUXwPEU4F4MpRdlBbBsGHlSobj+/YxlGVGM/S2tzHwA8XRMSMWDAYAJMoMow==');
Begin
  if FindDTMRotated(Bank, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
  Begin
    ClickOn(Bank, true);
  End;
 FreeDTM(Bank);
End;
End;
Function RingChecker:Boolean;
Var
  x, y, DuelRing:Integer;
Begin
  DuelRing := BitmapFromString(8, 4, 'meJxjYmCQWy8FQaJVQhDEF8rDBBOX' +
        'XSspNVscgiDiQCRc0CSQWMAbGCfRLwpE4t0iEr2LJaesEW+fK1rdL' +
        '5RbJxCfFxgYKlonBAAKbhfV');
  Begin
    If FindBlackChatMessage('crumbles to dust') then
    Begin
      Writeln('Withdrawing Ring');
      If FindBitMapTolerancein(DuelRing,x,y,MSX1,MSY1,MSX2,MSY2,45) then
      Begin
        MMouse(X,Y,6,6);
        Mouse(X, Y, 0, 0, true);
        Wait(1100+Random(150));
        If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
        Begin
          MMouse(X,Y,6,6);
          ClickMouse2(False);
          Wait(400+Random(50));
          ChooseOption('Wear');
          CloseBank;
        End;
        Begin
        Writeln('No Need to Take another Ring Yet');
        End;
        FreeBitMap(DuelRing);
      End;
    End;
  End;
End;
Function DepositScrolls:Boolean;
Var
  x, y, Scrolls:Integer;
Begin
  Scrolls := DTMFromString('mggAAAHicY2NgYJjCxMAwHYg7gHgxEC8B4rlA/BAo9xyIPwDxayC+BsRXgXhetCFDpaQgkMWEgiWBJAijA0YcGAIAJy4LBQ==');
  Begin
    If FindDTM(Scrolls,X,Y,MIX1,MIY1,MIX2,MIY2) then
    Begin
    MMouse(X,Y,6,6);
    ClickMouse2(False);
    Wait(100+Random(100));
    ChooseOption('Deposit-All');
    End;
    FreeDTM(Scrolls);
  End;
End;
Function WithdrawPouches:Boolean;
Var
  x, y, Spider:Integer;
Begin
  Spider := DTMFromString('mrAAAAHic42BgYHgBxO+A+AsUPwfi61B8D4izgDgWiLOBuASIK4C4EIgzgbgciCd4iAJJJpyYnwE/YCSAYQAAZzgLuw==');
  Begin
    If FindDTM(Spider, X, Y, MSX1, MSY1, MSX2, MSY2) then
    Begin
      MMouse(X, Y, 6, 6);
      ClickMouse2(False);
      Wait(100+Random(200));
      ChooseOption('but');
    End;
    FreeDTM(Spider);
  End;
End;
Function WalkingToBank:Boolean;
Var
ToBank:TPointArray;
Begin
  SPS_Setup(RUNESCAPE_SURFACE,['4_10','3_10','4_11']);

  ToBank :=  [Point(1618,4330), Point(1620, 4336)];
  SPS_WalkPath(ToBank);

  if not SPS_WalkPath(ToBank) then
  Begin
    SPS_WalkPath(ToBank);
  End;
  Wait(700+Random(200));
End;
Function Bank:Boolean;
Begin
  WalkingToBank;
  ChestFinding;
  Wait(1300+Random(300));
  If PinScreen then
  InPin(Players[CurrentPlayer].Pin);
  Wait(800+Random(200));
  If BankScreen then
  Begin
    RingChecker;
    Wait(200+Random(100));
    DepositScrolls;
    Wait(200+Random(100));
    WithdrawPouches;
    Wait(200+Random(100));
    CloseBank;
  End else
  Begin
    Bank;
  End;
End;
Function StartRingFind:Boolean;
Var
  x, y, DuelRing:Integer;
Begin
  If Not FindNormalRandoms then
  Begin
    DuelRing := BitmapFromString(8, 4, 'meJxjYmCQWy8FQaJVQhDEF8rDBBOX' +
        'XSspNVscgiDiQCRc0CSQWMAbGCfRLwpE4t0iEr2LJaesEW+fK1rdL' +
        '5RbJxCfFxgYKlonBAAKbhfV');
      GameTab(tab_Equip);
      Wait(300+Random(200));
      Begin
        If FindBitMapTolerancein(DuelRing,X,Y,MIX1,MIY1,MIX2,MIY2,45) then
        Begin
          MMouse(X,Y,6,6);
          Wait(500+Random(300));
          GameTab(Tab_Inv);
        End else
        Begin
          Writeln('Need to Get Ring');
          GameTab(Tab_Inv);
          ChestFinding;
          If BankScreen then
          Begin
            Wait(400+Random(200));
            If FindBitMapTolerancein(DuelRing,x,y,MSX1,MSY1,MSX2,MSY2,45) then
            Begin
              MMouse(X,Y,6,6);
              ClickMouse2(True);
              Wait(1100+Random(150));
              If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
              Begin
                MMouse(X,Y,6,6);
                ClickMouse2(False);
                Wait(400+Random(50));
                ChooseOption('Wear');
                WithdrawPouches;
                CloseBank;
              End;
            End;
          End;
        End;
      End;
      FreeBitMap(DuelRing);
  End;
End;
Begin
Smart_Server := Server;
Smart_Members:= True;
Smart_Signed := True;
Smart_SuperDetail := False;
ActivateClient;
SetupSRL
MouseSpeed := RandomRange(14, 20);
StartRingFind;
repeat
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
GameTab(Tab_Inv);
HT;
Wait(3200+RandomRange(1000, 1500));
WalkingToShop;
Wait(550+RandomRange(300,350));
ClimbDownLadder;
Wait(300+RandomRange(200,250));
FindAndClickObelisk;
Wait(2000+RandomRange(500,1200));
ScrollsTab;
Wait(500+RandomRange(500,800));
InfuseScrolls;
Wait(700+RandomRange(500,800));
TeleBank;
Wait(600+RandomRange(650,700));
Bank;
Wait(1000+RandomRange(150,300));
DepositScrolls;
Wait(300);
WithdrawPouches;
Wait(250);
CloseBank;
Until (Not LoggedIn);
End.

At the Request of a MEMBER

program new;
//{$DEFINE SMART}
{$i SRL/SRL.simba}    //ChooseOption('All') fix..
{$i SPS/SPS.simba}
function StumpColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.02, 0.83);

  FindColorsSpiralTolerance(MSCX, MSCY, arP, 6064559, MSX1, MSY1, MSX2, MSY2, 7);
  if (Length(arP) = 0) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 151) and (R <= 192) and (G >= 120) and (G <= 153) and (B >= 83) and (B <= 107) then
    begin
      ColorToXYZ(arC[i], X, Y, Z);

      if (X >= 21.37) and (X <= 35.34) and (Y >= 20.97) and (Y <= 34.60) and (Z >= 11.29) and (Z <= 18.47) then
      begin
        Result := arC[i];
        Writeln('AutoColor = ' + IntToStr(arC[i]));
        Break;
      end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;
function TreeColor: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.62, 1.41);

  if not (FindColorsTolerance(arP, 3035220, MSX1, MSY1, MSX2, MSY2, 7)) then
  begin
    Writeln('Failed to find the color, no result.');
    ColorToleranceSpeed(tmpCTS);
    SetColorSpeed2Modifiers(0.2, 0.2);
    Exit;
  end;

  arC := GetColors(arP);
  ClearSameIntegers(arC);
  arL := High(arC);

  for i := 0 to arL do
  begin
    Result := arC[i];
    Writeln('AutoColor = ' + IntToStr(arC[i]));
    Break;
  end;

  ColorToleranceSpeed(tmpCTS);
  SetColorSpeed2Modifiers(0.2, 0.2);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the color.');
end;


Function TreeAttack:boolean;
var
  x, y:Integer;
Begin
if FindObjTPA(x, y, TreeColor, 15, 2, 40, 60, 100, ['Chop', 'hop', 'Tree']) then
  MMouse(x, y, 1, 1);
  if IsUpText('hop') then
  Begin
  Mouse(x, y, 0, 0, false)
  WaitOption('hop', 400);
  end else
  if FindObjTPA(x, y, StumpColor, 15, 1, 35, 5, 500, ['here']) then
  writeln('waiting for tree');
  wait(12500+RandomRange(5000, 12000));
end;
Function AntiBan:boolean;
Begin
Case random(3)
of  2: MakeCompass('E');

end;
end;
begin
  SetupSRL;
repeat
TreeAttack
Wait(2500+RandomRange(3250,3500));
AntiBan;
until(not LoggedIn);
end.

a Quick GE Cutter.. It's not 100% Perfect but it works =x)

Your standards…

Can you please help me with standards?.. I've never understood a correct way to do things.. It still works O_O

You forgot your program header(?) at the beginning of your script:

program new;
//{$DEFINE SMART}
{$i SRL/SRL.simba}    //ChooseOption('All') fix..
{$i SPS/SPS.simba}

Const
Server = 54;

Should be apart from your includes, like this:

program new;
//{$DEFINE SMART}
{$i SRL/SRL.simba}    //ChooseOption('All') fix..
{$i SPS/SPS.simba}

Const
Server = 54;  

Var
x, y, But1, But2, w:Integer;
aFound:Extended;

You are using global variables there and it is a common saying to not use global variables as it 'Hogs' memory(At least, that's what I recall it does anyway. Someone correct me if I'm wrong, please!). So instead of global variables, you should be using local variables, like this for example:

procedure New;
var
  X, Y: Integer;
begin
end;

Your procedures and functions should be spaced out from each other for better manageability and because it looks much cleaner.
From:

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;
 procedure ClickOn(PX:Integer; Click: Boolean);
begin
  if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
  begin
    Mouse(x, y, 1, 1, Click);
  end;
end;

To:

procedure DeclarePlayers;
begin
  HowManyPlayers := 1; // Number of Players to use
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0; // Player to start with, first one is 0
  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Active := True; // True if you are using this player
  Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
  Players[0].Integers[1] := 10000; // Number of loads
end;

 procedure ClickOn(PX:Integer; Click: Boolean);
begin
  if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
  begin
    Mouse(x, y, 1, 1, Click);
  end;
end;

That's just an example, anyway.

If FindDTM(Tablet, X, Y, MIX1, MIY1, MIX2, MIY2)  then
    Begin
      writeln('First Task Done');
      Mouse(X, Y, 4, 4, true);

  End; 

Your begin .. end; nest for your tablet DTM finding function is not lined up.
Also, why do you give your procedures and functions such obscure names? It will get hard to manage much later on and it's better to give them more meaningful names.
Say instead of 'MASFMHT' as a procedure name, it would be better to make it: 'MakeASandwichForMyHungryTummy'.

Function WalkingToShop:Boolean;
Var
Spider, X, Y:Integer;
ToShop:TPointArray;
ToShopPos:TPoint;
      Begin
        writeln('GOODJOB');
        SPS_Setup(RUNESCAPE_SURFACE,(['8_6','8_7']));
        ToShop := [Point(3410, 2795), Point(3433, 2829), Point(3475, 2828), Point(3513, 2847), Point(3537, 2873)];
        SPS_WalkPath(ToShop);
        wait(500+random(200));
        SPS_GetMyPos;
        If SPS_GetMyPos = Point(3540, 2873) then
          Begin
            Writeln('At Shop!');
          End else
      Begin
        WriteLn('Walking Back to the Shop');
        ToShopPos := Point(3540, 2873);
        SPS_WalkToPos(ToShopPos);
      End;
    Wait(2300+Random(200));

End;

Your variables need to be spaced properly and your begin .. end nest is all over the place. It should be this:

Function WalkingToShop:Boolean;
Var
  Spider, X, Y:Integer;
  ToShop:TPointArray;
  ToShopPos:TPoint;
Begin
  writeln('GOODJOB');
  SPS_Setup(RUNESCAPE_SURFACE,(['8_6','8_7']));

  ToShop := [Point(3410, 2795), Point(3433, 2829), Point(3475, 2828), Point(3513, 2847), Point(3537, 2873)];
  SPS_WalkPath(ToShop);
  wait(500+random(200));

  SPS_GetMyPos;
  If SPS_GetMyPos = Point(3540, 2873) then
  Begin
    Writeln('At Shop!');
  End else
    Begin
      WriteLn('Walking Back to the Shop');
      ToShopPos := Point(3540, 2873);
      SPS_WalkToPos(ToShopPos);
    End;

  Wait(2300+Random(200));
End;

I'm not very picky about this, but your variable names should be properly capped. It's hard to explain so I'll just give you an example of improper and proper variable names:

(* Improper: *)
procedure New;
var
  TuRkeYSanDWich: string;
begin
end;

(* Proper: *)
procedure New;
var
  turkeySandwich: string;
begin
end;

(* Personal preference, you aquire your own taste of naming variables: *)
procedure New;
var
  X, Y: Integer; // It could be this way
  x, y: Integer; // Or it could be this way
  // The general rule for 'Multi-name' variables is to have the first word uncapped
  // and the following first letters of the other words capped, as I showed you in the
  // 'Improper' example.
begin
end;

By the way. Use custom TPAs and ATPAs, please. Now-a-days, 'We' don't really like it when applicants use 'FindObjEx'.



Good job, though. :)
Sorry for the spacing issues. Simba code gets whacky on the forums.

Thanks risk, I'll be sure to fix those in a bit.. would that affect my application in anyway? I know this script is functional and all.. but standards weren't very good :P

Yeah, people will vote no if you don't correct what I've mentioned or what others will mention. I personally won't vote but it's good to see you have a great attitude.

I'm currently fixing standards//

FIXED.. Risk can you check it ? :D

Ah, a 'bit better. But you still aren't spacing between your procedures and functions. You also aren't spacing properly after if's sometimes.

I believe this has become a help somewhat topic.. uhmm.. What do you mean spacing after If's?..

I would use TPAs if I had an account to update this with xD

This is what I mean:

procedure New;
begin
  (* Improper: *)
  if (not(LoggedIn)) then
  Exit;
  (*           *)


  (* Proper: *)
  if (not(LoggedIn)) then
    Exit;
  (*         *)
end;

Try making a separate script then that utilizes TPAs and ATPAs. :)


Don't worry about the application becoming a 'Help topic'. It isn't a problem, in my opinion. As long as you are learning.

Just some feedback:
- You used FindObj as your only object finder - it's fine but members expect to see more
- You used an autocolor function - you'll probably need to explain if a member asks you how it works
- SPS walking is nice but again, we expect to see more.
- Bitmaps and DTMs. I don't quite get why you used bitmaps at some points and DTMs the others. The dueling ring I think can be done as a DTM?
- Some minor inconsistencies in your mouse uses. You use MMouse and Mouse at one point and Mouse and ClickMouse2 at some others. It will be more elegant to stick with one style
- ChooseOption the general way is to use partial characters, ie. Matching "All", you would use ChooseOption('ll'). Again a very minor one.
- If SPS_GetMyPos = Point(3540, 2873) then //Are you sure this is right? I think SPS walking has built in randomness on the clicks, so are you absolutely sure you'll ask for an absolute point as your location?

The script is alright in general, but it could use more work. I'll perhaps hold my vote.

From: nosaj.421
Just some feedback:
- You used FindObj as your only object finder - it's fine but members expect to see more
- You used an autocolor function - you'll probably need to explain if a member asks you how it works
- SPS walking is nice but again, we expect to see more.
- Bitmaps and DTMs. I don't quite get why you used bitmaps at some points and DTMs the others. The dueling ring I think can be done as a DTM?
- Some minor inconsistencies in your mouse uses. You use MMouse and Mouse at one point and Mouse and ClickMouse2 at some others. It will be more elegant to stick with one style
- ChooseOption the general way is to use partial characters, ie. Matching "All", you would use ChooseOption('ll'). Again a very minor one.

Thanks for the feedback

AutoColor Function: Searches for a Perfect Color, thus using color tolerance to find matching colors close to the color range in order to find an object on screen.

This script was made a while ago when I was learning the vast adventures of scripting.. I put into an application due to the amount of profit can be made… I tried the ChooseOption('ll') but it would never detect it.

Thanks for you Expertise Feedback..

From: VillaVuFTW
Thanks for you Expertise Feedback..

I'm no expert. I'm a very new addition to the members rank anyway. But it would be a good idea for you to have some answers to what I raised earlier so that the others will approve of you, and that you can learn new things and make things even better.

I like your attitude so i voted yes

Thanks Jakey.

I didn't post this// where did that come from///

From: VillaVuFTW
Whatever.. Doesn't necessarily mean I'm 100% Familiar with this language, but I can make something that works perfectly.. and I can code.. geez

and… That just lost my vote :/
What is there to be bitter about? They told you what you needed to get in for your next application don't have to get frustrated. MANY members applied multiple times.

I applied 3 or 4 times before I got in P1nky applied 3 time.
Each time I improved.
You'll get there just takes time :)
Mat

I was JUST hovering over the Yes button when I saw that post :l

I don't even remember posting that negative post.

LOL.
Since you made me laugh I guess i'll give you a Yes.

no.
http://villavu.com/forum/showthread.php?t=75064

I voted no simply because you have two applications open.

Closed for same reasons as http://villavu.com/forum/showthread.php?p=939910#post939910

Please do not make multiple applications.

Closed

Edit: Markus, stop ninjaing me