SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
HTML, PHP,

Other Communitys
none

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 have been learning how to script for about 6 months and i am into the advanced section.
i have made one script from scratch and i have fixed up and updated quite a few old scripts including scripts which have become outdated and the owners have been too busy to fix.
i have helped people in the SRL FAQ area i have also helped in the scripts request area as well.
i have been recommended to become a srl member by other SRL Members and SRL Juior Members.

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

{.Script Info:
# ScriptName  = CMHT
# Author      = shuttleu
# Description = Tans cow hides in al-kharid
# Version     = v 2.6
# Date        = 10/05/08
# Comments    =
/Script Info}
program New;
{-------------------------------------------------------------------------------]
[                        __    __  ___  _    _ ________                         ]
[                       |  \  /  |/ _ \| |  | |___  ___|                        ]
[                       |   \/   | / \_| |__| |   | |                           ]
[                       | |\  /| | |  _|  __  |   | |                           ]
[                       | | \/ | | \_/ | |  | |   | |                           ]
[                       |_|    |_|\___/|_|  |_|   |_|                           ]
[                       Master Crafter Hide Tanner V2.                         ]
[                                by shuttleu                                    ]
[                                                                               ]
[===============================================================================]
[                                                                               ]
[ NAME           :  MCHT (Master Crafter Hide tanner)                           ]
[ AUTHOR         :  shuttleu                                                    ]
[ CATEGORY       :  Crafting                                                    ]
[ DESCRIPTION    :  Tans hides in al-kharid.                                    ]
[ MEMBERS ONLY   :  No                                                          ]
[ MULTIPLAYER    :  Yes                                                         ]
[ SCAR VERSION   :  3.15                                                        ]
[ SRL VERSION    :  4 #rev 16                                                   ]
[ RELEASE DATE   :  10/05/2008                                                  ]
[                                                                               ]
[===============================================================================]
[                                                                               ]
[ 01. Use the offcial runescape client (or SMART), with low detail and very     ]
[     bright. Set your screen resolution to 32bit true colour.                  ]
[ 02. Setup lines 45 to 55 (or more thean 55 if you have more than one player.  ]
[ 03. Put money in first bank slot and cowhide in anyother slot as long as it   ]
[     is at the top                          6                                   ]
[ 03. Position your runescape characters in the bank at al-kharid               ]
[ 04. Drag the crosshair over the runescape client and press play.              ]
[ 05. Enjoy the script and please post progress/feedback :D                     ]
[                                                                               ]
[-------------------------------------------------------------------------------}
{.include srl/srl/misc/smart.scar}
{.include SRL\SRL.scar}

var
  x, y, randomtime, totalhides, running, randomtime1, break1, breakwait1: integer;
  loads, HideDTM, SoftDTM, ShopDTM, HardDTM: integer;

const
maxloads = 100; // maximum amount of loads to do before the script finishes
break = 10;
breakwait = 5;

world = 6; // world number for smart to load

SRL_ID = 'ID';
SRL_PASS = 'Pass';

procedure DeclarePlayers;
begin
 HowManyPlayers:= 1; // Set Number of Players here.
 NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
 CurrentPlayer:= 0; // CurrentPlayer = Array Index

 Players[0].Name:= 'username'; // Your username
 Players[0].Pass:= 'pass'; // Your password
 Players[0].Nick:= 'sern'; // Few letters From Your Name
 Players[0].Pin:= '0000'; // Bank pin (if you have one, otherwise leave as 0000)
 Players[0].integers[0]:= 100; // Amount of loads to do before the script changes player
 Players[0].strings[0]:= 'soft'; // type of lether to make the hides into (soft or hard)
 Players[0].Active:= True; // If You use This Player Set True
end;

{======================================================================================]

 DO NOT EDIT ANYTHING BELOW THIS LINE UNLESS YOU HAVE PERMISSION FROM SHUTTLEU FIRST!!!

[======================================================================================}

{*******************************************************************************
procedure WhichDDTM(DDTM: string): Integer
By: shuttleu
Description: stores all the DTMs and declares one when needed
*******************************************************************************}
procedure WhichDDTM(DDTM: string);
begin
  if not(LoggedIn) then Exit;
  case DDTM of

    'hide':
    begin
      HideDTM := DTMFromString('78DA65CEC10A404010C6F1590FE2E11C94521' +
           '26FE3C089880BC9B622AD5AE5E09598BDC897FF656AFA358D081D' +
           'A259D037D975E4F2B4DB9B13D60C68FAAA7C8D4D786C5634D761D' +
           '0446C0C9A5D2934291B89A62D7234F1FF9F2ACBD0F8FF3BDB34A1' +
           '09D86834A7D66812360B9AB1A9C13C2DD3228B');
    end;

    'soft':
    begin
      SoftDTM := DTMFromString('78DA633CC8C4C0B087910119F8B87332C8016' +
           '990E87F2060DC0D54B309B71A10603C0E54B30D558DA32D07AA9A' +
           '234035470998B313A8E620AA9A406F2E54353B806A761130E7105' +
           '0CD6602EE3981E977372734357B816A8EE0770F00D03F17E6');
    end;

    'hard':
    begin
      HardDTM := DTMFromString('78DA639CCEC4C0B0979101199819C831C8016' +
           '990E87F20609C0A54B311558DA1B60C5C0D0830F602D5EC435563' +
           '6DA288AA661650CD51DC7681D52C00AAD94EC0AEB940350708983' +
           '301D31C0CF74C02AA398CAAC6DE4219D3CD9BF1BB07005ED415C7' +
           '');
    end;

    'shop':
    begin
      ShopDTM := DTMFromString('78DA631460606070666440067C7C3C0C72401' +
       'A24FA1F0818BF33E25503026035120CF8D580EC22A48605C8D240' +
       '55F37F863CAA9A8940421BB71A66109DC588570D0B100300CFFC0' +
       'EED');
    end;
  end;
end;

{*******************************************************************************
procedure Coins;
By: shuttleu
Description: Withdraws the coins from the bank.
*******************************************************************************}
procedure Coins;
begin
  if not(LoggedIn) then Exit;
  case Players[currentplayer].strings[0] of
  
    'soft':
    begin
      withdraw(1, 1, 27);
    end;
    
    'hard':
    begin
      withdraw(1, 1, 81);
    end;
  end;
end;
{*******************************************************************************
procedure Tanning;
By: shuttleu
Description: Tans the hides when inside the tanning screen.
*******************************************************************************}
procedure Tanning;
begin
  if not(LoggedIn) then Exit;
  case Players[currentplayer].strings[0] of

    'soft':
    begin
      Mouse(59, 74, 60, 68, false);
      Wait(1000 +random(500));
      ChooseOption('All');
    end;

    'hard':
    begin
      Mouse(170, 80, 60, 68, false);
      Wait(1000 +random(500));
      ChooseOption('All');
    end;
  end;
end;
{*******************************************************************************
function AutoTannerSymb; Integer;
By: ACA V2 (Nielsie95 and Sumilion)
Description: Returns the color of the tanner symbol.
*******************************************************************************}
function AutoTannerSymb: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  if not(LoggedIn) then Exit;
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  if not (FindColorsTolerance(arP, 1256009, MMX1, MMY1, MMX2, MMY2, 33)) then
  begin
    Writeln('Failed to find the tanner color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

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

  for i := 0 to arL do
  begin
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 51) and (R <= 95) and (G >= 23) and (G <= 60) and (B >= 1) and (B <= 36) then
    begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 3.52) and (H <= 8.91) and (S >= 42.13) and (S <= 92.61) and (L >= 10.57) and (L <= 23.75) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 1.73) and (X <= 6.32) and (Y >= 1.37) and (Y <= 5.58) and (Z >= 0.21) and (Z <= 2.24) then
          begin
            Result := arC[i];
            Writeln('TannerColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
    end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

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

{*******************************************************************************
function AutoFurnaceSymb; Integer;
By: ACA V2 (Nielsie95 and Sumilion)
Description: Returns the color of the furnace symbol.
*******************************************************************************}
function AutoFurnaceSymb: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  if not(LoggedIn) then Exit;
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  if not (FindColorsTolerance(arP, 1072113, MMX1, MMY1, MMX2, MMY2, 28)) then
  begin
    Writeln('Failed to find the furnace color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

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

  for i := 0 to arL do
  begin
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 226) and (R <= 256) and (G >= 72) and (G <= 109) and (B >= 0) and (B <= 32) then
    begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 4.76) and (H <= 6.48) and (S >= 88.91) and (S <= 100.02) and (L >= 44.69) and (L <= 56.10) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 34.05) and (X <= 46.71) and (Y >= 21.08) and (Y <= 32.05) and (Z >= 2.29) and (Z <= 4.87) then
          begin
            Result := arC[i];
            Writeln('FurnaceColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
    end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

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

{*******************************************************************************
function AutoBankSymb; Integer;
By: ACA V2 (Nielsie95 and Sumilion)
Description: Returns the color of the bank symbol.
*******************************************************************************}
function AutoBankSymb: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  if not(LoggedIn) then Exit;
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  if not (FindColorsTolerance(arP, 1364967, MMX1, MMY1, MMX2, MMY2, 30)) then
  begin
    Writeln('Failed to find the bank color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

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

  for i := 0 to arL do
  begin
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 214) and (R <= 248) and (G >= 194) and (G <= 228) and (B >= 0) and (B <= 40) then
    begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 13.89) and (H <= 15.16) and (S >= 82.91) and (S <= 99.09) and (L >= 42.33) and (L <= 55.90) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 47.53) and (X <= 65.86) and (Y >= 53.46) and (Y <= 74.70) and (Z >= 7.83) and (Z <= 12.89) then
          begin
            Result := arC[i];
            Writeln('Bank Color = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
    end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the bank color.');
end;
{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
var
 cactus : integer;
begin
  if not(LoggedIn) then Exit;
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  if FindDeformed(x, y, cactus, sx, sy, ex, ey) then
  begin
    FreeBitmap(cactus);
    Writeln('Found cactus');
    Result:= True;
  end else
  begin
    FreeBitmap(cactus);
    Writeln('Could not find cactus');
    Result:= False
  end;
end;

{*******************************************************************************
function FindObjCustom1(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray;
  Tolerance: Integer): Boolean;
By: Stupid3ooo and Starblaster100
Description: Finds Object with custom amount of colors and custom amount of Uptext
Use: FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5)
*******************************************************************************}
//Taken from SRL rev#14   because i dont like the way it works in rev#15
function FindObjCustom1(var cx, cy: Integer; Text: TStringArray; Color: TIntegerArray; Tolerance: Integer): Boolean;
var
  a, b, c, i, x1, y1, x2, y2: Integer;
  Start: Boolean;
begin
  if not(LoggedIn) then Exit;
  for b := 0 to (GetArrayLength(Color)-1) do
  begin
    if (FindColorSpiralTolerance(cx, cy, color[b], MSX1, MSY1, MSX2, MSY2, Tolerance)) then
    begin
      Start := True;
      Break;
    end;
  end;
  if(Start)then
  begin
    x1 := 245;
    y1 := 165;
    x2 := 277;
    y2 := 185;
    repeat
      if not(LoggedIn)then break;
      a := a + 1;
      if (a = 1) then
        c := c + 1
      else if (a = 3) then
        c := c + 1;
      for i := 1 to c do
      begin
        if (a = 1) then
        begin
          x1 := x1 + 30;
          x2 := x2 + 30;
        end else
        if (a = 2) then
        begin
          y1 := y1 - 20;
          y2 := y2 - 20;
        end else
        if (a = 3) then
        begin
          x1 := x1 - 30;
          x2 := x2 - 30;
        end else
        if (a = 4) then
        begin
          y1 := y1 + 20;
          y2 := y2 + 20;
        end;
        if (x1 = 485) and (x2 = 517) then
          x2 := x2 - 2;
        if (y1 = 325) and (y2 = 345) then
          y2 := y2 - 7;
        if (x2 > 515) then
          Break;
        for b := 0 to (GetArrayLength(Color)-1) do
        begin
          if (FindColorTolerance(cx, cy, Color[b], x1, y1, x2, y2, tolerance)) then
          begin
            MMouse(cx, cy, 0, 0)
            if (IsUpTextMultiCustom(Text)) then
            begin
              Result := True;
              Exit;
            end;
          end;
        end;
      end;
      if (a = 4) then
        a := 0;
    until (x2 > 515) or (Result = True);
  end;
end;

{*******************************************************************************
function ShopScreen
By: shuttleu
Description: returns true if the shop screen is open.
*******************************************************************************}
function ShopScren : Boolean;
begin
  if not(LoggedIn) then Exit;
  whichDDTM('shop')
  if findDTM(ShopDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
  begin
    FreeDTM(ShopDTM);
    Writeln('Found shop screen');
    Result := True;
  end else
  begin
    FreeDTM(ShopDTM);
    Result := False;
  end;
end;

{*******************************************************************************
procedure Error(where: string)
By: shuttleu
Description: Gives a little error message.
*******************************************************************************}
procedure Error(where: string; reason: string);
begin
  Writeln('Failed while '+where+'. Reason : '+reason);
end;

{*******************************************************************************
procedure Banking
By: shuttleu
Description: Opens the al-kharid bank and deposits everything and withdraws
cowhides and money.
*******************************************************************************}
procedure Banking;
var
 withdrawhides : integer;
 
begin
  if not(LoggedIn) then Exit;
  FFlag(0);
  OpenBankQuiet('akb');
  if Pinscreen then Inpin(players[currentplayer].pin);
  FixBank;
  DepositAll;
  Coins;
  WhichDDTM('hide')
  if not(FindDTM(HideDTM, x, y, MSX1, MSY1, MSX2, MSY2)) then
  begin
    FreeDTM(HideDTM);
    CloseBank;
    Error('withdrawing cowhides', 'No cowhides left in the bank');
    Logout;
    NextPlayer(false);
    Exit;
  end else
  begin
    MarkTime(withdrawhides);
    repeat
      MMouse(x, y, 5, 5);
      Wait(500 +random(500));
      Getmousepos(x, y);
      Mouse(x, y, 0, 0, false);
      Wait(500 +random(500));
      ChooseOption('Withdraw All');
      Wait(1000 +random(1000));
    until FindDTM(HideDTM, x, y, MIX1, MIY1, MIX2, MIY2) or (TimeFromMark(withdrawhides) >= 30000)
    FreeDTM(HideDTM);
    if TimeFromMark(withdrawhides) >= 30000 then
    begin
      CloseBank;
      Error('withdrawing cowhides', 'No cowhides left in the bank');
      Logout;
      NextPlayer(false);
      Exit;
    end else
  end;
  CloseBank;
  FindNormalRandoms;
end;

function CactusCol: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  R, G, B: Integer;
  H, S, L: Extended;
  X, Y, Z: Extended;
begin
  if not(LoggedIn) then Exit;
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(1);

  if not (FindColorsTolerance(arP, 3304777, MMX1, MMY1, MMX2, MMY2, 33)) then
  begin
    Writeln('Failed to find the cactus color, no result.');
    ColorToleranceSpeed(tmpCTS);
    Exit;
  end;

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

  for i := 0 to arL do
  begin
    if (rs_OnMinimap(arP[i].x, arP[i].y)) then
    begin
    ColorToRGB(arC[i], R, G, B);

    if (R >= 58) and (R <= 88) and (G >= 85) and (G <= 133) and (B >= 30) and (B <= 69) then
    begin
        ColorToHSL(arC[i], H, S, L);

        if (H >= 23.98) and (H <= 28.91) and (S >= 31.98) and (S <= 50.02) and (L >= 23.90) and (L <= 39.24) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 5.74) and (X <= 13.24) and (Y >= 7.85) and (Y <= 18.97) and (Z >= 2.67) and (Z <= 8.45) then
          begin
            Result := arC[i];
            Writeln('Cactus Color = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
    end;
    end;
  end;

  ColorToleranceSpeed(tmpCTS);

  if (i = arL + 1) then
    Writeln('AutoColor failed in finding the cactus color.');
end;
{*******************************************************************************
procedure WalkToTanner
By: shuttleu
Description: Walks from the bank in al-kharid to the tan shop in al-kharid
using symbols and then color.
*******************************************************************************}
procedure WalkToTanner;
var
  tpa: TPointArray;
  i: Integer;
begin
  if not(LoggedIn) then Exit;
  FindNormalRandoms;
  begin
    if FindCactus(628, 2, 712, 100) then
    begin
      MMouse(x, y, 5, 5);
      Wait(500 +random(500));
      GetMousePos(X, Y);
      Mouse(x, y, 0, 0, true);
      Wait(3000);
      FindNormalRandoms;
      FFlag(0);
    end else
    begin
      Writeln('Unable to find cactus by bitmap, now trying color');
      if RadialWalkEx(tpa, MMCX, MMCY, cactuscol, 30, 20, 90, 70) then
      begin
        MMouse(tpa[i].x, tpa[i].y, 5, 5);
        Wait(500 +random(500));
        GetMousePos(X, Y);
        Mouse(x, y, 0, 0, true);
        Wait(3000);
        FindNormalRandoms;
        FFlag(0);
      end else
      begin
        Error('walking to tanner', 'could not find cactus by bitmap or color');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;
    if FindSymbol(x, y, 'furnace') then
    begin
      MMouse(x, y, 5, 5);
      Wait(500 +random(500));
      GetMousePos(X, Y);
      Mouse(x, y, 0, 0, true);
      Wait(3000);
      FindNormalRandoms;
      FFlag(0);
    end else
    begin
      Writeln('Unable to find furnace by symbol, now trying color');
      if RadialWalkEx(tpa, MMCX, MMCY, AutoFurnaceSymb, 30, 320, 370, 70) then
      begin
        MMouse(tpa[i].x, tpa[i].y, 5, 5);
        Wait(500 +random(500));
        GetMousePos(X, Y);
        Mouse(x, y, 0, 0, true);
        Wait(3000);
        FindNormalRandoms;
        FFlag(0);
      end else
      begin
        Error('walking to tanner', 'could not find furnace by symbol or color');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;
    if FindSymbol(x, y, 'tanner') then
    begin
      MMouse(x, y, 5, 5);
      Wait(500 +random(500));
      GetMousePos(X, Y);
      Mouse(x, y, 0, 0, true);
      Wait(3000);
      FindNormalRandoms;
      FFlag(0);
    end else
    begin
      Writeln('Unable to find tanner by symbol, now trying color');
      if RadialWalkEx(tpa, MMCX, MMCY, AutoTannerSymb, 30, 290, 380, 70) then
      begin
        MMouse(tpa[i].x, tpa[i].y, 5, 5);
        Wait(500 +random(500));
        GetMousePos(X, Y);
        Mouse(x, y, 0, 0, true);
        Wait(3000);
        FindNormalRandoms;
        FFlag(0);
      end else
      begin
        Error('walking to tanner', 'could not find tanner by symbol or color');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;
  end;
end;

{*******************************************************************************
procedure WalkToBank
By: shuttleu
Description: Walks from the tan shop in al-kharid to the bank in al-kharid
using the DTMs.
*******************************************************************************}
procedure WalkToBank;
var
  tpa: TPointArray;
  i: Integer;
begin
  if not(LoggedIn) then Exit;
  FindNormalRandoms;
  begin
    if findsymbol(x, y, 'furnace') then
    begin
      MMouse(x, y, 5, 5);
      Wait(500 +random(500));
      GetMousePos(X, Y);
      Mouse(x, y, 0, 01, true);
      Wait(3000);
      FindNormalRandoms;
      FFlag(0);
    end else
    begin
      Writeln('Unable to find furnace by symbol, now trying color');
      if RadialWalkEx(tpa, MMCX, MMCY, AutoFurnaceSymb, 30, 230, 120, 70) then
      begin
        MMouse(tpa[i].x, tpa[i].y, 5, 5);
        Wait(500 +random(500));
        GetMousePos(X, Y);
        Mouse(x, y, 0, 0, true);
        Wait(3000);
        FindNormalRandoms;
        FFlag(0);
      end else
      begin
        Error('walking to bank', 'could not find furnace by symbol or color');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;
    if FindCactus(553, 102, MMX2, MMY2) then
    begin
      MMouse(x, y, 5, 5);
      Wait(500 +random(500));
      GetMousePos(X, Y);
      Mouse(x, y, 0, 0, true);
      Wait(3000);
      FindNormalRandoms;
      FFlag(0);
    end else
    begin
      Writeln('Unable to find cactus by bitmap, now trying color');
      if RadialWalkEx(tpa, MMCX, MMCY, cactuscol, 30, 120, 210, 70) then
      begin
        MMouse(tpa[i].x, tpa[i].y, 5, 5);
        Wait(500 +random(500));
        GetMousePos(X, Y);
        Mouse(x, y, 0, 0, true);
        Wait(3000);
        FindNormalRandoms;
        FFlag(0);
      end else
      begin
        Error('walking to bank', 'could not find cactus by bitmap or color');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;
    if FindSymbol(x, y, 'bank') then
    begin
      MMouse(x, y, 1, 1);
      Wait(500 +random(500));
      GetMousePos(X, Y);
      Mouse(x, y, 0, 0, true);
      wait(3000);
      FindNormalRandoms;
      FFlag(0);
    end else
    begin
      Writeln('Unable to find bank by symbol, now trying color');
      if RadialWalkEx(tpa, MMCX, MMCY, AutoBankSymb, 30, 280, 190, 70) then
      begin
        MMouse(tpa[i].x, tpa[i].y, 5, 5);
        Wait(500 +random(500));
        GetMousePos(X, Y);
        Mouse(x, y, 0, 0, true);
        Wait(3000);
        FindNormalRandoms;
        FFlag(0);
      end else
      begin
        Error('walking to bank', 'could not find bank by symbol or color');
        Logout;
        NextPlayer(False);
        Exit;
      end;
    end;
  end;
end;

{*******************************************************************************
procedure TanHides
By: shuttleu
Description: Tans the cow hides into hard or soft leather.
*******************************************************************************}
procedure TanHides;
var
 shop : integer;
 
begin
  if not(LoggedIn) then Exit;
  repeat
    Marktime(shop);
    if FindObjCustom1(x, y, ['alk', 'llis'], [4944848, 4680900], 30) then
    FindNormalRandoms;
    Mouse(x, y, 2, 2, False);
    ChooseOption('rade');
    Wait(1000 +random(1000));
  until Shopscren or (TimeFromMark(shop) >= 30000 )
  if TimeFromMark(shop) >= 30000 then
  begin
    Error('withdrawing cowhides', 'No cowhides left in the bank');
    Logout;
    NextPlayer(false);
    Exit;
  end;
  Tanning;
  repeat
    Wait(500)
  until not ShopScreen;
end;

procedure ReportVariables;
begin
  if not(LoggedIn) then Exit;
  case Players[currentplayer].strings[0] of
  
    'soft':
    begin
      WhichDDTM('soft');
      ReportVars[1] := ReportVars[1] + CountItemsDtm('inv', SoftDTM);
      totalhides := totalhides + CountItemsDtm('inv', SoftDTM);
      FreeDTM(SoftDTM);
    end;
    'hard':
    begin
      WhichDDTM('hard');
      ReportVars[2] := ReportVars[2] + CountItemsDtm('inv', HardDTM);
      totalhides := totalhides + CountItemsDtm('inv', HardDTM);
      FreeDTM(HardDTM);
    end;
  end;
end;

procedure proggy;
begin
  Writeln('[----------------------------------------------------------------]');
  Writeln('[             __    __  ___  _    _ ________                     ]');
  Writeln('[            |  \  /  |/ _ \| |  | |___  ___|                    ]');
  Writeln('[            |   \/   | / \_| |__| |   | |                       ]');
  Writeln('[            | |\  /| | |  _|  __  |   | |                       ]');
  Writeln('[            | | \/ | | \_/ | |  | |   | |                       ]');
  Writeln('[            |_|    |_|\___/|_|  |_|   |_|                       ]');
  Writeln('[                                                                ]');
  Writeln('[================================================================]');
  Writeln('[                                                                ]');
  Writeln('[   Worked for '+timerunning+'                                   ]');
  Writeln('[   Made '+inttostr(totalhides)+' hides                          ]');
  Writeln('[   Banked '+inttostr(loads)+' times                             ]');
  Writeln('[                                                                ]');
  Writeln('[                    Thank you for using MCHT                    ]');
  Writeln('[                                                                ]');
  Writeln('[----------------------------------------------------------------]');
end;
{*******************************************************************************
main loop
By: shuttleu
Description: Where the script all comes together.
*******************************************************************************}
begin
  SmartSetupEx(world, False, True);
  While Not (SmartReady) Do
  Wait(100);
  SetTargetDC(SmartGetDC);
  If Not (LoggedIn) Then
    While Not (SmartGetColor(386, 249) = 65535) Do
  Wait(100);
  ActivateClient;
  SetupSrl;
  ScriptId := '781';
  SRLID       := SRL_ID;
  SRLPassword := SRL_PASS;
  DeclarePlayers;
  loads:= 0;
  break1:= (break * 60000) * 60000
  breakwait1:= (break1 * 60000) * 60000
  MarkTime(running);
  if not Loggedin then LoginPlayer;
  repeat
    SetAngle(True);
    MakeCompass('n');
    if TimeFromMark(running) > break1 then
      MarkTime(running);
    Banking;
    if loggedin then
      ReportVars[0] := ReportVars[0] + 1;
    WalkToTanner;
    TanHides;
    WalkToBank;
    Proggy;
    if TimeFromMark(running) > break1 then
    begin
      randomtime:= random(300000);
      randomtime1:= randomtime / 60000;
      logout;
      Writeln('Taking a break for '+inttostr(breakwait)+' minuites and a random '+inttostr(randomtime1)+' minuites');
      LoginPlayer;
    end;
    ReportVariables;
    loads:= loads + 1;
    SrlRandomsReport;
    if loads= Players[currentplayer].integers[0] then
    begin
      Logout;
      NextPlayer(True);
      loads:= 0;
    end;
  until loads= maxloads
  Logout;
end.
 

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

This looks really good.
It might be a while before i can test it out though.
So i will vote later.
The only thing i can see so far is that you don't indent on your repeats-

repeat
  Stuff;
until(false);

But that's not much of a big deal, it just looks confusing.

Nice, nice….

Just a small suggestion,

{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
begin
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  if FindDeformed(x, y, cactus, sx, sy, ex, ey) then
  begin
    FreeBitmap(cactus);
    Writeln('Found cactus');
    Result:= True;
  end else
  begin
    FreeBitmap(cactus);
    Writeln('Could not find cactus');
    Result:= False
  end;
end;

can be replaced by

{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
begin
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  Result := FindDeformed(x, y, cactus, sx, sy, ex, ey);
  FreeBitmap(cactus);
  if Result then
    WriteLn('Found cactus')
  else 
    WriteLn('No cactus :(');
end;

Or something like that, mess around with it like that to shorten the code a bit.

But everything else looks okay, and I see you have fixed a few scripts to work good, so you have my yes vote. Good luck!

Edit: Just a suggestion shuttleu, remove that draynor.net image from your siggy. In the link, it shows your username on RS ;O

From: Hy71194
Nice, nice….

Just a small suggestion,

{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
begin
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  if FindDeformed(x, y, cactus, sx, sy, ex, ey) then
  begin
    FreeBitmap(cactus);
    Writeln('Found cactus');
    Result:= True;
  end else
  begin
    FreeBitmap(cactus);
    Writeln('Could not find cactus');
    Result:= False
  end;
end;

can be replaced by

{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
begin
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  Result := FindDeformed(x, y, cactus, sx, sy, ex, ey);
  FreeBitmap(cactus);
  if Result then
    WriteLn('Found cactus')
  else 
    WriteLn('No cactus :(');
end;

Or something like that, mess around with it like that to shorten the code a bit.

But everything else looks okay, and I see you have fixed a few scripts to work good, so you have my yes vote. Good luck!

Edit: Just a suggestion shuttleu, remove that draynor.net image from your siggy. In the link, it shows your username on RS ;O

Good Job!

{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
begin
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  Result := FindDeformed(x, y, cactus, sx, sy, ex, ey);
  FreeBitmap(cactus);
  if Result then WriteLn('Found cactus') else WriteLn('No cactus :(');
end;

:p

@hermpie: That is the same thing, just yours uses improper standards…

I voted yes. Look very good :)

From: Hy71194
Nice, nice….

Just a small suggestion,

{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
begin
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  if FindDeformed(x, y, cactus, sx, sy, ex, ey) then
  begin
    FreeBitmap(cactus);
    Writeln('Found cactus');
    Result:= True;
  end else
  begin
    FreeBitmap(cactus);
    Writeln('Could not find cactus');
    Result:= False
  end;
end;

can be replaced by

{*******************************************************************************
function FindCactus(sx, sy, ex, ey : integer) : boolean
By: shuttleu
Description: Returns true if cactus is found within specified area.
*******************************************************************************}
function FindCactus(sx, sy, ex, ey : integer) : boolean;
begin
  cactus := BitmapFromString(7, 8, 'beNpjYIADUy9pm2h' +
       'ZIANI+piKYAoC2UAEYaMJQpTBEUQjsiADEsAUQbYIuyAAF28T3A==' +
       '');
  Result := FindDeformed(x, y, cactus, sx, sy, ex, ey);
  FreeBitmap(cactus);
  if Result then
    WriteLn('Found cactus')
  else 
    WriteLn('No cactus :(');
end;
 

Or something like that, mess around with it like that to shorten the code a bit.

But everything else looks okay, and I see you have fixed a few scripts to work good, so you have my yes vote. Good luck!

Edit: Just a suggestion shuttleu, remove that draynor.net image from your siggy. In the link, it shows your username on RS ;O

thanks for the suggestion
oh and where abouts does it say my name because i cant see it :s

From: almost
This looks really good.
It might be a while before i can test it out though.
So i will vote later.
The only thing i can see so far is that you don't indent on your repeats-

repeat
  Stuff;
until(false);

But that's not much of a big deal, it just looks confusing.

ok thanks for the vote and the correction

and thank you everyone else that has already voted

~shut

Sorry shut, I vote no. There is absolutely nothing dynamic about your DDTMs, and your most advaned functions are direct, or nearly direct copies takes from ACA v2.

Tips:
- Your clicking is wrong.
First, you're moving the mouse to target area, then
you wait some time, then you do Mouse(X, Y, 1, 1) again! Wrong!
That would cause your mouse to Hop a couple extra pixels and look
suspicious. The correct way to do it is like this: (Note: This is just an
example.)

if FindColor(x, y, color, MSX1, MSY1, MSX2, MSY2) then
  Mouse(X, Y, 5, 5, True);

This is if you don't want to do anyting else exept to click.

if FindColor(x, y, color, MSX1, MSY1, MSX2, MSY2) then
begin
  MMouse(X, Y, 5, 5);
  GetMousePos(X, Y); // Gets position of mouse and stores into coordinates.
  Mouse(X, Y, 0, 0, True); // 0 randomness!
end;

Thats if you want to do something after that the color has been found and mouse has moved to th color. Like uptext checks.

Also, you do not need a begin/end if you're only wishing to preform ONE task after the "then". Like:

if FindColor(X, Y, ect..) then
  Mouse(X, Y, 0, 0, True);

if you ONLY want to move your mouse over to the color. But, if you want to do something MORE, then..

if FindColor(X, Y, blaah..) then
begin
  MMouse(X, Y, 5, 5);
  if IsUpText('ake') then
  begin // Here we do SEVERL things.
    GetMousePos(X, Y);
    Mouse(X, Y, 0, 0, True);
  end;
end;

SetTimes procedure:

procedure SetTimes;
begin
  break1:= break * 60000
  breakwait1:= break1 * 60000
end;

should be

procedure SetTimes;
begin
  break1:= (break * 60000) * 60000;
end;

And I don't think that even should be a procedure of its own.

Again we see the begin/end problem:

procedure Timer;
begin
  if TimeFromMark(running) > break1 then
    MarkTime(running);
end;

That is how the procedure should look like. Again, this shouldn't be a procedure of its own.
And, you've got a lot of unneeded procedures in your script. You should could EASILY be shortened down A LOT.

And, weren't you supposed to wait two weeks/one month before re-applying? Has is even gone that amount of time?

Again, sorry for the no.

From: Hy71194
@hermpie: That is the same thing, just yours uses improper standards…

That is not improper.

I agree with EvilChicken!, large DDTMs are doing nothing, you should use DTMs insted DDTMs, and 300lines are made by ACA.

I'm not voting on apps for the next 2 weeks, to instead look at what other people say on apps, see what requirements others have.

But tbh I don't know what to vote here anyway, sort of inbetween votes.

You didn't follow my guidelines..what should I vote then?:p

-Tsn.

Why did you say the autocoloring functions were made by you when ACA made them?

Like for example:

{*******************************************************************************
function AutoTannerSymb: Integer;
By: shuttleu
Description: Finds the color of the tanner symbol
*******************************************************************************}

Should be

{*******************************************************************************
function AutoTannerSymb: Integer;
By: ACA v2
Description: Finds the color of the tanner symbol
*******************************************************************************}

EDIT: No, EvilChicken pretty much gave my reasons. When most of the script is walking, you should have more advanced types of walking instead of symbol clicking…

You don't know how to use radialwalk, for example you did this:

if RadialWalk(AutoFurnaceSymb , 311, 383, 70, x, y) then
begin
  MMouse(x, y, 1, 1);
  Wait(500 +random(500));
  Mouse(x, y, 1, 1, true);
  Wait(3000);
  FindNormalRandoms;
  FFlag(0);

x mod and y mod don't mean put in x and y, its the randomness like the randx and randy in mouse. Radialwalk clicks for you so you don't have to use mouse/mmouse.

Did you even change anything from your last application? Half the script is ACA + FindObjCustom1. You have a few endless loops. Sorry, it's a no.

I should have just quoted my reply from your last application :p

oh s**t i have just noticed i have uploaded the wrong version
i made a load of changes to the script since i last attempted to apply for members and i have accidently put the old one in :s

is there anyway that this one can be closed so i can resubmit with the new script?

~shut

From: shuttleu
oh s**t i have uploaded the wrong version
i made a load of changes to the script since i attempted to apply for members and i have accidently put the old one in :s

is there anyway that this one can be closed so i can resubmit with the new script?

~shut

How would we know that you just didn't change the things that people said already so you could get more yes votes? Just seems kinda suspicious to me.

From: Iron man
How would we know that you just didn't change the things that people said already so you could get more yes votes? Just seems kinda suspicious to me.

you wont but i promise that i havent just changed it
i changed it when i got denyed last time and i have been waiting for about 3 weeks to re submit and then i went and put in the old one

as you can see the script is exactly the same as the one in here
http://www.villavu.com/forum/showthread.php?t=29308

~shut

There,

{.Script Info:
# ScriptName  = CMHT
# Author      = shuttleu
# Description = Tans cow hides in al-kharid
# Version     = v 2.5
# Date        = 20/04/08
# Comments    =
/Script Info}

This app,

{.Script Info:
# ScriptName  = CMHT
# Author      = shuttleu
# Description = Tans cow hides in al-kharid
# Version     = v 2.6
# Date        = 10/05/08
# Comments    = 
/Script Info}

The version number and date changed so something had to change? I didn't really feel like comparing the two and just saw that.

EDIT: Yeah they do look the same from skimming through it. But how do we still know you won't just change what we said here really quick then post that one? IMO you should wait another a month now, but thats not up to me.

From: Iron man
There,

{.Script Info:
# ScriptName  = CMHT
# Author      = shuttleu
# Description = Tans cow hides in al-kharid
# Version     = v 2.5
# Date        = 20/04/08
# Comments    =
/Script Info}

This app,

{.Script Info:
# ScriptName  = CMHT
# Author      = shuttleu
# Description = Tans cow hides in al-kharid
# Version     = v 2.6
# Date        = 10/05/08
# Comments    = 
/Script Info}

The version number and date changed so something had to change? I didn't really feel like comparing the two and just saw that.

EDIT: Yeah they do look the same from skimming through it. But how do we still know you won't just change what we said here really quick then post that one? IMO you should wait another a month now, but thats not up to me.

i have more than what was said here
i have added more failsafes and used dtm's instead of ddtm,s and used the radial walk better

~shut

I dunno…Yes, though crappy coding there..basics dude, basics…

function ShopScren : Boolean;
begin
  if findDTM(whichDDTM('shop'), x, y, MSX1, MSY1, MSX2, MSY2) then
  begin
    Writeln('Found shop screen');
    Result := True;
  end else
  begin
    Writeln('Cannot find shop screen');
    Result := False;
  end;
end;

Could be

function ShopScren : Boolean;
begin
  Result:=findDTM(whichDDTM('shop'), x, y, MSX1, MSY1, MSX2, MSY2) then
  Writeln('Found shop screen'+StrToBool(Result));
end;

if Players[currentplayer].strings[0]= 'hard' then
    begin
      Withdraw(1, 1, 81);
    end;

Could be

if Players[currentplayer].strings[0]= 'hard' then
  Withdraw(1, 1, 81);

procedure TanHides;
begin
  repeat
  if FindObjCustom1(x, y, ['alk', 'llis'], [4944848, 4680900], 30) then
  FindNormalRandoms;
  MMouse(x, y, 1, 1);
  Wait(250 +random(250));
  Mouse(x, y, 1, 1, False);
  ChooseOption('rade');
  Wait(1000 +random(1000));
  until Shopscren;
  if Players[currentplayer].strings[0]= 'soft' then
  begin
    Mouse(59, 74, 60, 68, false);
    Wait(1000 +random(500));
    ChooseOption('All');
  end;
  if Players[currentplayer].strings[0]= 'hard' then
  begin
    Mouse(170, 80, 60, 68, false);
    Wait(1000 +random(500));
    ChooseOption('All');
  end;
  repeat
  Wait(500)
  until not ShopScreen;
end;

Should be

procedure TanHides;
begin
  repeat
  if FindObjCustom1(x, y, ['alk', 'llis'], [4944848, 4680900], 30) then
  begin
    FindNormalRandoms;
    MMouse(x, y, 1, 1);
    Wait(250 +random(250));
    Mouse(x, y, 1, 1, False);
    ChooseOption('rade');
    Wait(1000 +random(1000));
    until Shopscren;
    if Players[currentplayer].strings[0]= 'soft' then
    begin
      Mouse(59, 74, 60, 68, false);
      Wait(1000 +random(500));
      ChooseOption('All');
    end;
    if Players[currentplayer].strings[0]= 'hard' then
    begin
      Mouse(170, 80, 60, 68, false);
      Wait(1000 +random(500));
      ChooseOption('All');
    end;
  end;
  repeat
    Wait(500)
  until not ShopScreen;//Not that good failsafe
end;

Also using cases, more adavanced loops and failsafes is bit small IMO…but that's just me…

I had more "shitty" script than you(Sorry for language, not that good in eng.)

Edit: I removed the code, what was not written by you, script still had 710 lines…n/a..

Yes

im 43% on no and 57% on yes.

why: well, it could be shortened a bit. But it got lots of more complicated stuff than in my app, so: Yes.

From: Iron man
There,

{.Script Info:
# ScriptName  = CMHT
# Author      = shuttleu
# Description = Tans cow hides in al-kharid
# Version     = v 2.5
# Date        = 20/04/08
# Comments    =
/Script Info}

This app,

{.Script Info:
# ScriptName  = CMHT
# Author      = shuttleu
# Description = Tans cow hides in al-kharid
# Version     = v 2.6
# Date        = 10/05/08
# Comments    = 
/Script Info}

The version number and date changed so something had to change? I didn't really feel like comparing the two and just saw that.

EDIT: Yeah they do look the same from skimming through it. But how do we still know you won't just change what we said here really quick then post that one? IMO you should wait another a month now, but thats not up to me.

Do you see any post saying that it is not allowed to change you script during the app?

there have been many discussions, but no conclusion. if you don't think it's fair he changes it then you can always vote no. i personally think it's rather good that they change it during the app (in some cases). it shows learning and commitment in my opinion.

shuttleu, i'm sorry i won't vote now, maybe tomorrow i'll take a closer look at your app ;)

~RM

From: Rasta Magician
Do you see any post saying that it is not allowed to change you script during the app?

there have been many discussions, but no conclusion. if you don't think it's fair he changes it then you can always vote no. i personally think it's rather good that they change it during the app (in some cases). it shows learning and commitment in my opinion.

I see you didn't get my post :rolleyes: He said he didn't change anything from his old application, yet that application had that to start with and this one had this to start out with. Its a good thing that he changed it, but he said he uploaded his old one so I'm just curious why that would change and nothing else would have if hes telling the truth.

From: Iron man
I see you didn't get my post :rolleyes: He said he didn't change anything from his old application, yet that application had that to start with and this one had this to start out with. Its a good thing that he changed it, but he said he uploaded his old one so I'm just curious why that would change and nothing else would have if hes telling the truth.

the reason why is because i had made all the changes to the smart version without realising
when i opened the normal version i noticed that i hadn't changed the top so i decided to change the top before the app but i didnt realise that i had made the changes to the smart version not the normal version

~shut

although much of the script is not yours, all your logic is correct and well used. very nice loding of (D)DTMs, walking has good failsafes (although i'd like a third one for every walk:p) and i definitely think that after every second failsafe you should add

else begin
writeln('player lost walking to...')
Players[CurrentPlayer].Active:=False;
LogOut;

or it could try walking back.

and even if you don't know some things i believe you can understand and master them easily.

voted.

~RM

DISREGARD MY VOTE; SORRY I WAS UNAWARE IM NOT SUPPOSED TO VOTE YET!

Nava2

From: Nava2
DISREGARD MY VOTE; SORRY I WAS UNAWARE IM NOT SUPPOSED TO VOTE YET!

Nava2

well even though youv'e voted it cant be taken away can it?

~shut

yeas admins can take it away they can edit polls.

I'm just wondering if anyone could answer me why they vote yes when half the script is mady by ACAv2 and the DDTMs aren't dynamic? (therefore, the script could be over 35-40% shorter with regular DTMs.)

Please answer.

From: EvilChicken!
I'm just wondering if anyone could answer me why they vote yes when half the script is mady by ACAv2 and the DDTMs aren't dynamic? (therefore, the script could be over 35-40% shorter with regular DTMs.)

Please answer.

Well, it could be shortened a lot yes. And i've been wanting to see scar scripts being shortneed a lot too. But i think the others voted yes, cause he does have radial walking… But thats only 1 thing. Multiple players yeah and the other basics, but i think i'm going to vote no. Not sure though, i'll keep the vote till later :o


-Ashur

From: Zytex!
im 43% on no and 57% on yes.

why: well, it could be shortened a bit. But it got lots of more complicated stuff than in my app, so: Yes.

I thought SRL Members was trying to get away from the whole "Well, his script is better then mine so i give him a Yes vote" thing… soo….. yeah…

Yes.

Although you use MMouse(x, y, 1, 1), random(1) always returns 0. So you'd be better off not using randomness at all. Saves you a few GetMousePos'es too.
I'll hold my vote for now, although it will probably be a yes.

Voted yes. I dunno why i changed my vote ;o But you're lucky i did :D

Looks like we're seeing a new member soon! Congratz! :D

-Ashur

From: Wizzup?
Although you use MMouse(x, y, 1, 1), random(1) always returns 0. So you'd be better off not using randomness at all. Saves you a few GetMousePos'es too.
I'll hold my vote for now, although it will probably be a yes.

thank you for that little hint
i have changed it in the script so that they are a 5 instead of a 1
i hope you will vote yes as i have spent quite hard on fixing that script up from my last app

From: Ashur2Good
Voted yes. I dunno why i changed my vote ;o But you're lucky i did :D

Looks like we're seeing a new member soon! Congratz! :D

-Ashur

thank you very much for voting yes
and thank you for congragulating me :)

~shut

Disregard my vote please
I feel that i made a bias vote on this application.

From: boxcrop
Disregard my vote please
I feel that i made a bias vote on this application.

just for curiosity
what did you vote?

~shut

After adjusting the votes from the ones who changed their mind, reading your script again and reading the thread again. I came to the conclusion that you're ready for members. Several members shortened some of your functions/procedures, but I like how you did it the long way. It tells me you understand the basics and the code is easier to understand for others.

Welcome, sir!