SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Basics of C++

Other Communitys
darkresistance.net, artificialaiming.net, keyhunt.com, srl

How Long have You Played Runescape
3 years, constantly on and off

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

I have a few months of experience in autoing. I have a lvl 103 main that i lvled 100% legit until this week. Back on topic. I am very mature for my age, 15, and I go to the top High School in New York which is ranked among the best in the country. Brooklyn Technical High School. I am very good with thinking with my head, puzzles, math, logic, basically all the necessities for scripting. And to add to that, I am a VERY fast learner. When I learn something new, I think every single bit of it over and over until I fully understand it and am able to use it in the future without reference. I am very into cars. My family originated from Baku, Azerbajjan. (Many assume that I am Muslim because of where im from, but I am not. I am russian/jewish.) That was an extremely scary and cruel place during my parents time. And still is a fraction of its past state. Murder on the street was common due to just pure hate. The reason im saying this is to prove that my parents are very tough and raised me in a stand alone/military style. So I know what to say and when to hold my tongue. I am in the process in perfecting my willow banker. I still need to give it a few more tweaks, and add any tree power chopper to it. Should be done by saturday if I have time. I have got everything down from tutorials and the infamous trial and error method. After I finish this script I will move onto death rune crafter and a law rune crafter. I love to help others and will be a great addition to the community. I have already met most of you on forums/IRC. Well, I just dont know what else to write. If you have any questions, please feel free.

Oh yeh. I have scored a 106 with this script with I think, Bobbo's? Test. Before I editted it I scored a 126, but many have told me not to use autocolor on the mainscreen. This is my first script. 2nd update.

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

{=========================================================================|
|                       ~Caustic's Willow ChoBank~                        |
|                               ~Version: 1.1~                            |
|=========================================================================|
|-Description:                                                            |
|   ~SMART if set True                                                    |
|   ~Willow chopper and banker                                            |
|   ~Fast Dtm Banking                                                     |
|   ~Unbelievble Failsafes                                                |
|   ~Instant TreeFinding                                                  |
|   ~Awesome Anti-Randoms                                                 |
|   ~Fast Ent Finding                                                     |
|   ~Anti-Ban                                                             |
|   ~Anti-Leaching                                                        |
|   ~Support for multiple players                                         |
|   ~Support for Bank PINs                                                |
|   ~SRL Stats support(Please sign up at stats.srl-forums.com)            |
|-------------------------------------------------------------------------|
|-Instructions:                                                           |
|   1. Start logged out                                                   |
|   2. If not useing SMART use low detail                                 |
|   3. SCAR version 3.15                                                  |
|   4. At least SRL version 4, Rev 14. Written and Tested with rev 16     |
|   6. All players must start in Draynor unless powerchopping.            |
|   7. Setup lines 43 -->  84                                             |
|-------------------------------------------------------------------------|
|-Next Versions:                                                          |
|   ~Check for broken axe and take one out of bank                        |
|   ~Form                                                                 |
|   ~Support for Yews, magic, etc. And their banks                        |
|   ~Powerchopping option                                                 |
|   ~World Switcher                                                       |
|   ~Will basically listen to suggestions until perfection                |
|   ~Keep an eye out, I will constantly update the script                 |
|=========================================================================}
program FirstScript;
{.include SRL/SRL/Misc/Smart.scar}
{.include SRL/SRL.scar}
//----------------------------SETUP---------------------------------------------
const

  Speed = 15;  // how fast do you want the mouse to move
  loads = 20;  //Banks to do before Player switch
  LlampSkill = 'Woodcutting'; // Choose skill to choose from genie
  Responder = True; // Use very realistic Typesend2 autoresponder?
  Time  = 999999999;  // How long to run script (minutes)?
  ShutDown = True;  // turns off computer after done
  SetCChat  = True; //changes your Chat Modes
  SMART   =  True;  // use smart? 100% compatible. Make sure to update worlds.ini
                    // at [URL]http://www.villavu.com/forum/showthread.php?t=29528[/URL]
  SmartWorld = 85; // what world should the script log into
//  Sleep = True; // want script to take breaks? (Anti-Ban)
//  SleepInterval =  ; // how long each break ...leave blank if sleep false
//  SleepEvery = ; //how often to sleep ...leave blank if sleep false
//  SwitchWorld = ; // switch world every 25-35 minutes?
 
  YourSRLId      = '5101';
  YourSRLpass    = '112392';
 
procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name        := 'causticresin';    //Account's name
  Players[0].Pass        := '112392b';    //Account's pass
  Players[0].Nick        := 'icre';    //Nick 4 middle characters of name
  Players[0].Active      := True;  //Active?
  Players[0].Pin         := '0000'; //bank pin. leave alone if no pin
 
end;
//----------------------------DO NOT EDIT BELOW THIS LINE------------------------
var
x,y,rx,ry,ST:Integer;
Start,RespondTime:Integer;
LoadsToDo,Banked,Chopped,Tries:Integer;
Ents,CBLevel,Responded:Integer;
tx, ty:Integer;

procedure SetupScript;
begin
  SetupSRL;
  ScriptID := '814';
  SRLID := YourSRLId;
  SRLPassword := YourSRLPass;
  DeclarePlayers;
  MouseSpeed:= Speed;
  ClearDebug;
end;
procedure AntiBan;
//-------------------------------AntiBan------------------------------------
begin
 if(not loggedin)then exit;
 case Random(80) of
  1,9,11: RandomMovement;
  3: AlmostLogout;
  4,6,7,8: PickUpMouse;
  5: HoverSkill ('Woodcutting', False);
  12: HoverSkill ('Hitpoints', False);
  13: HoverSkill ('Strength', False);
  14: HoverSkill ('Fishing', False);
  end;
end;

procedure CheckEnt;
//------------------------------- Simple Ent checker-------------------------------------
var Rock:integer;
begin
  if (not(IsUpText('hop'))) then exit;
  if (LoggedIn = False) or (InvFull) then exit;
  if not FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then Exit;
  if FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then
  begin
    WriteLn('Advoiding Ent');
    Ents:= Ents + 1;
    SymbolAccuracy:=0.2;
  if FindSymbol(x,y,'fish') then
      begin
        Mouse(x+8+random(3),y-15-random(5),3,3,true);
        FFlag(2);
        Wait(7000+random(2500));
        WriteLn('Ent Advoided');
      end;
  if (not(FindSymbol(x,y,'fish'))) then
  begin
  Writeln('Error locating Willows');
  Writeln('Correcting error...');
  Rock := DTMFromString('78DA634C676660706064400635FD3B188C803' +
                            '448F43F10306601D51843D43041D52426A6328840D58000630250' +
                            '8D230135F940352E04D480DCE349404D31508D077E350062D1104' +
                            'A');
  if DTMRotated(Rock, tx, ty, MMX1, MMY1, MMX2, MMY2) then
    Begin
      Writeln('Error Corrected');
      Mouse(tx + 33, ty+3, 2, 2, true);
      FFlag(2);
    end;
  end;
  end;
end;

procedure AntiRandom;
//------------------------------- AntiRandom-------------------------------------
begin
  if(not loggedin)then exit;
  CheckEnt;
  FindTalk;
  LampSkill:= (''+LlampSkill+'');
  FindNormalRandoms;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunAway('S', false, 1, (7000+random(3000)));
  end;
  FindMod;
  DwarfItem;
  FindDead;
  CheckEnt;
  if NoGameTab xor InBlack then
    begin
      Writeln('Found unsolvable random');
      Logout;
      NextPlayer(False);
      Exit;
    end;
end;
{*************************************************************************************************
Procedure TypeSend2(Text: String; SMART : Boolean);
By: FrÕzÑ_§ÕµL.
Description: Types Text Human-like, pressing random keys around the original.Will not mess up words such as red: or wave:
  as long as there is no space before the :. Will type in SMART if needed.
Use: TypeSend2('i want to change this text', false);
SMART use: TypeSend2('i want to change this text', true);
*************************************************************************************************}
Procedure TypeSend2(Text: String; SMART : Boolean);
var
  i, j, k, l, DP : integer;
  WordArr : Array [0..100] of TextType;
  Keys : Array [0..3] of String;
Begin
  i := 0;
  Text := Padr(Padl(Trim(Text), Length(Trim(Text)) + 1), Length(Trim(Text)) + 2);
  Repeat
    WordArr[i].OWord := Between(' ', ' ', Text);
    WordArr[i].NWord := WordArr[i].OWord;
    Delete(Text, Pos(WordArr[i].OWord, Text) - 1, Length(WordArr[i].OWord) + 1);
    i := i + 1;
  Until(Text = ' ');
  for i := 0 to 100 do
  Begin
    WordArr[i].ChangeType := -1;
    if Random(100) < 10 then
      if Pos(':', WordArr[i].OWord) < 1 then
        WordArr[i].ChangeType := Random(3);
  end;
  i := 0;
  Repeat
    Repeat
      if WordArr[i].ChangeType = -1 then
      Begin
        i := i + 1;
        if i > 100 then
          Break;
      end;
    until(WordArr[i].ChangeType >= 0);
    if Length(WordArr[i].OWord) = 0 then
      Break;
    j := Random(Length(WordArr[i].OWord)) + 1;
    if WordArr[i].ChangeType = 1 then
      DP := Pos(Copy(Lowercase(WordArr[i].OWord), j, 1), WordArr[i].OWord);
    Keys[3] := '1234567890';
    Keys[2] := 'qwertyuiop';
    Keys[1] := 'asdfghjkl';
    Keys[0] := 'zxcvbnm';
    Repeat
      for k := 3 downto 0 do
      Begin
        l := Pos(Copy(Lowercase(WordArr[i].OWord), j, 1), Keys[k]);
        if l > 0 then
          Break;
      end;
      if l = 0 then
      Begin
        i := i + 1;
        if (i > 100) then
          Break;
      end;
    until(l > 0);
    if (i > 100) then
      Break;
    case k of
      0 : k := k + Random(1);
      1, 2 : k := k - 1 + Random(2);
      3 : k := k - 1 + Random(1);
    end;
    case l of
      1 : l := 1 + Random(1);
      Length(Keys[k]) : l := Length(Keys[k]) - 1 + Random(1);
      else
        l := l - 1 + Random(2);
    end;
    if (Random(100) > 70) or (WordArr[i].ChangeType = 1) then
    Begin
      Delete(WordArr[i].NWord, j, 1);
      Insert(Copy(Keys[k], l, 1), WordArr[i].NWord, j);
    end else
      Insert(Copy(Keys[k], l, 1), WordArr[i].NWord, j - 1 + Random(1));
    i := i + 1;
  Until(i = 101);
  for i := 0 to 100 do
  Begin
    for l := 1 to Length(WordArr[i].NWord) do
    Begin
      if Pos(Copy(WordArr[i].NWord, l, 1), [EMAIL="'~!@#$%^&*()_+{}|:&quot;<>?'"]'~!@#$%^&*()_+{}|:"<>?'[/EMAIL]) > 0 then
      Begin
        KeyDown(VK_SHIFT);
        Wait(100 + Random(100));
      end;
      if SMART then
        SmartSendKeys(Copy(WordArr[i].NWord, l, 1))
      else
        TypeByte(GetKeyCode(StrGet(WordArr[i].NWord, l)));
      Try
        if Not(Pos(Copy(WordArr[i].NWord, l + 1, 1), [EMAIL="'~!@#$%^&*()_+{}|:&quot;<>?'"]'~!@#$%^&*()_+{}|:"<>?'[/EMAIL]) > 0) then
          KeyUp(VK_SHIFT);
      Except
      end;
      Wait(100 + Random(100));
      if (WordArr[i].ChangeType = 1) and (l = DP) then
        if (Copy(WordArr[i].NWord, l, 1) <> Copy(WordArr[i].OWord, DP, 1)) then
        Begin
          Wait(200 + Random(200));
          TypeByte(VK_BACK);
          Wait(200 + Random(200));
          if SMART then
            SmartSendKeys(Copy(WordArr[i].OWord, DP, 1))
          else
            TypeByte(GetKeyCode(StrGet(WordArr[i].OWord, DP)));
          Wait(200 + Random(200));
        end;
    end;
    if Length(WordArr[i].NWord) = 0 then
      Break;
    if SMART then
      SmartSendKeys(' ')
    else
      TypeByte(VK_SPACE);
  end;
  if SMART then
    SmartSendKeys(chr(10))
  else
    TypeByte(GetKeyCode(chr(13)));
  for l := 0 to 100 do
    if WordArr[l].ChangeType = 2 then
      if WordArr[l].OWord <> WordArr[l].NWord then
      Begin
        for i := 1 to Length(WordArr[l].OWord) do
        Begin
          if SMART then
            SmartSendKeys(Copy(WordArr[i].OWord, i, 1))
          else
            TypeByte(GetKeyCode(StrGet(WordArr[l].OWord, i)));
          Wait(100 + Random(100));
        end;
        if WordArr[l].OWord = '' then
          Exit;
        KeyDown(VK_SHIFT);
        Wait(100 + Random(100));
        if SMART then
          SmartSendKeys('*')
        else
          TypeByte(GetKeyCode('8'));
        Wait(200 + Random(200));
        KeyUp(VK_SHIFT);
        Wait(100 + Random(100));
        if SMART then
          SmartSendKeys(chr(10))
        else
          TypeByte(GetKeyCode(chr(13)));
        Exit;
      end;
end;

Procedure AutoResponder;
//------------------------------- AutoResponder-------------------------------
var n:boolean;
 begin
 if(not loggedin)then exit;
 if Responder = False then Exit;
 if LastChatter(Players[CurrentPlayer].Name) then Exit;
 if TimeFromMark(RespondTime) < 60000 then Exit;
 if SMART   =  True then
 n:= True else n:= False;
   begin
   RespondTime:= 0;
   if (GetBlackChatMessage = 'Woodcutting level') or (GetBlackChatMessage = 'wc lvl') then
     begin
       Responded:= Responded + 1;
       SayCurrentLevels('Woodcutting');
     end;
   if (GetBlackChatMessage = 'Fishing level') or (GetBlackChatMessage = 'Fishing lvl') then
     begin
       Responded:= Responded + 1;
       SayCurrentLevels('Fishing');
     end;
    If (GetBlackChatMessage = 'lol') or (GetBlackChatMessage = 'rofl') or (GetBlackChatMessage = 'lmao') or
       (GetBlackChatMessage = 'lawl')then
      Begin
      Responded:= Responded + 1;
       Case Random(7) of
          1:TypeSend2('^-^', n);
          2:TypeSend2('Lawl', n);
          3:TypeSend2('l0l', n);
          4:TypeSend2('lmao', n);
          5:TypeSend2('Rofl', n);
          6:TypeSend2('lol?', n);
          7:TypeSend2( '0.o', n);
         end;
       if (GetBlackChatMessage = Players[CurrentPlayer].Name) or
          (GetBlackChatMessage = Players[CurrentPlayer].Nick) then
            Begin
              Case Random(4) of
                1:TypeSend2('English no', n);
                2:TypeSend2('Sorry No english', n);
                3:TypeSend2('English Not me no', n);
                4:TypeSend2('Pashol ti nahur', n);
              end;
            end;
      If (GetBlackChatMessage = 'Hi') or (GetBlackChatMessage = 'Hello') or (GetBlackChatMessage = 'Hey') or
       (GetBlackChatMessage = 'Sup')then
      Begin
       Case Random(7) of
          1:TypeSend2('^-^', n);
          2:TypeSend2('hey man', n);
          3:TypeSend2('sup', n);
          4:TypeSend2('hi', n);
          5:TypeSend2('hello', n);
          6:TypeSend2('how u doin?', n);
          7:TypeSend2( 'sup bro', n);
         end;
       end;
       end;
    end;
   end;
function WillowColor: integer;
begin
  case Random(5) of
    0: Result := 3693410;
    1: Result := 2655089;
    2: Result := 2315338;
    3: Result := 2579794;
    4: Result := 2967888;
  end;
end;
Procedure WhichClick;
begin
  case Random(15) of
   0,8,9,15: begin
        GetMousePos(tx,ty);
        Mouse(tx, ty, 1, 1, False);
        if ChooseOption('hop') then
        begin
          Wait(10+Random(100));
          FFlag(0);
        end else
          ChooseOption('ancel');
        end;
 1,2,4,5,6,7,10,11,12,13,14: begin
       GetMousePos(tx,ty);
       Mouse(tx, ty, 1, 1, True);
       Wait(10+Random(100));
       FFlag(0);
     end;
   end;
end;
procedure Chop;
begin
  if not(LoggedIn) Then Exit;
  GameTab(4);
  repeat
    if(FindColorSpiralTolerance(tx, ty, WillowColor, 1, 1, 514, 336, 4)) then
    begin
      Status('Chopping Willow Trees');
      wait(150+Random(500));
      MMouse(tx, ty, 10, 10);
      FindNormalRandoms;
      if(IsUpText('illow')) then
      begin
        CheckEnt;
        WhichClick;
        wait(10 + Random(100));
        FindNormalRandoms;
        CheckEnt;
        AutoResponder;
        repeat
          if invfull then exit;
          Status('Waiting for tree to be gone.');
          wait(400+Random(345));
          CheckEnt;
          Wait(1+Random(1));
          AntiRandom;
          AutoResponder;
          AntiBan;
        until(not(IsUpText('illow')));
      end;
    end;
  until(InvFull);
end;

procedure ProgressReport;
//-------------------------------Reports Progress?-------------------------------
var
Mins: Longint;
begin
  ClearDebug;
  ClearReport;
  SRLRandomsReport;
  Mins := (GetSystemTime - ST) div 1000 div 60;
  Writeln('[-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=]');
  Writeln('|                         Caustics Willow ChoBank V1                           |');
  Writeln('|                         ' + TimeRunning+'                                            |');
  Writeln('|                           Chopped ' + IntToStr(Chopped) + ' Willows.                                 |');
  Writeln('|                           Banked ' + IntToStr(Banked) + ' times.                                    |');
  if Responded > 0 then
  Writeln('|                           Talked ' + IntToStr(Responded) + ' times.                                    |');
  if Ents > 0 then
  Writeln('|                           Ents avoided '+ IntToStr(Ents) + '                                     |');
  Writeln('|                           Total xp gained '+ IntToStr(Chopped*68)+'                                  |');
  Writeln('[-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=]');
end;
 
procedure Bank;
//-------------------------------banks logs-------------------------------
begin
  if(not loggedin)then exit;
  Status('Banking');
  OpenBankQuiet('db');
  If PinScreen then
    begin
      Status('Entering pin...');
      InPin(Players[CurrentPlayer].pin);
        if (InPin(Players[CurrentPlayer].pin)) then
          begin
            writeln('BankPin Entered');
          end;
    end;
  repeat
    FTWait(4+random(2));
  until(BankScreen);
  if(BankScreen)then
  begin
    Deposit(5+random(20), 28, (25+random(99)));
    wait(100+random(100));
    CloseBank;
    Banked := Banked + 1;
    LoadsToDo := LoadsToDo + 1;
    Chopped := Chopped + 27;
    ProgressReport;
  end;
end;
 
procedure RUNoob;
//------------------------------- checks if ur a noob-------------------------------
begin
if(not loggedin)then exit;
GetCombatLevel;
    if (GetCombatLevel < 16) then
    begin
      WriteLn('Lvl 3 normal clothes froob');
      NextPlayer(False);
      Exit;
    end;
    if (GetCombatLevel > 15) then
    begin
      CBLevel := GetCombatLevel;
      WriteLn('Thx for lvling player to '+IntToStr(CBLevel)+' and being a true macroer ;)');
    end;
end;

procedure ShutDownPC;
//--------------Shuts down Computer------ Credits Hy71194---Fixed by Caustic---------------
begin
  if (ShutDown = False) then
    TerminateScript;
  if (ShutDown = True) then
  begin
    WriteLn('');
    WriteLn('Shutting down your PC.');
    WriteLn('To stop it once it starts counting, go to Start, Run, then type ''shutdown -a''');
    Wait(2000);
    KeyDown(92);
    Wait(200);
    KeyDown(82);
    Wait(200);
    KeyUp(82);
    Wait(200);
    KeyUp(92);
    Wait(2000);
    SendKeys('shutdown -s -f -t 80 -c "Thank you for using Caustics First Script. '+TimeRunning+'"');
    Wait(2000);
    KeyDown(13);
    Wait(200);
    KeyUp(13);
    Wait(160000);
    TerminateScript;
  end;
end;
procedure RULeacher;
begin
  if ((YourSRLId      = '') or (YourSRLpass      = '')) then
    repeat
      writeln('Noob leacher.');
      wait(500);
      writeln('Noob leacher.');
      wait(500);
      writeln('Noob leacher.');
      wait(500)
    until(false)
end;

procedure RetaliateC;
//--------------------Turns autoretaliate off-------------------------------
begin
  if(not loggedin)then exit;
  GameTab(1);
  if (FindColor(x, y, 1777020, 624, 385, 719, 396)) then
  begin
    Mouse(639, 386, 5, 5, true)
  end;
  if (not(FindColor(x, y, 1777020, 624, 385, 719, 396))) then Exit;
end;

procedure WalkToWillows;
//------------------------- Walks to willows-------------------------------
var TX, TY,Rock: integer;
begin
  if(not loggedin)then exit;
  if InvFull then exit;
  SetRun(true);
  Status('Walking to Willows');
  SymbolAccuracy:=0.2;
  if FindSymbol(x,y,'fish') then
      begin
        Writeln('Willows Located');
        Mouse(x+8+random(3),y-15-random(5),3,3,true);
        FFlag(2);
        Exit;
      end;
  if (not(FindSymbol(x,y,'fish'))) then
  begin
  Writeln('Error locating Willows');
  Writeln('Correcting error...');
  Rock := DTMFromString('78DA634C676660706064400635FD3B188C803' +
                            '448F43F10306601D51843D43041D52426A6328840D58000630250' +
                            '8D230135F940352E04D480DCE349404D31508D077E350062D1104' +
                            'A');
  if DTMRotated(Rock, tx, ty, MMX1, MMY1, MMX2, MMY2) then
    Begin
      Writeln('Error Corrected');
      Mouse(tx + 33, ty+3, 2, 2, true);
      FFlag(2);
    end;
  end;
  if not DTMRotated(Rock, tx, ty, MMX1, MMY1, MMX2, MMY2) then
  begin
    Wait(1000);
        Writeln('Player Lost');
        FreeDTM(Rock);
        Nextplayer(False);
      end;
   FreeDTM(Rock);
end;
 

procedure ToBank;
//-------------------------------walks to bank-------------------------------
var dx,bx, by,DbBankers,dy: integer;
Angle: Extended;
begin
if(not loggedin)then exit;
DbBankers   := DTMFromString('78DA636C67626008644001FFFFFD63F80FA41' +
        '9416C2060AC01AAF182C8B140D5FCF9C304A619A17CB09A204C35' +
        '22E86AC2F09B0300F8811153');
  Status('Walking to bank');
  MakeCompass('N');
  SetAngle(True);
  SetRun(True);
  if(FindDtmRotated(DbBankers, bx, by, MMX1, MMY1, MMX2, MMY2, Radians(-30), Radians(30), 0.05,
        Angle))then
    begin
      Writeln('Bank Found');
      Mouse(bx+4,by,0,0,true);
      Mouse(bx+4,by,0,0,true);
      wait(100+random(50));
      FFlag(0);
      Bank;
    end;
  if(not(FindDTM(DbBankers,x,y,MMX1,MMY1,MMX2,MMY2)))then
  begin
    begin
      Writeln('Error finding bank');
      Mouse(620+random(3),42+random(3),2,2,true);
      FFlag(5);
    end;
      If (FindSymbol(dx,dy,'Bank')) then
      begin
        Writeln('Error Corrected');
        Mouse(dx, dy, 2, 2, true);
        FFlag(3);
        Bank;
      end;
      If (not(FindSymbol(dx,dy,'Bank'))) then
        begin
          Writeln('Lost. Dead or random');
          Nextplayer(False);
          Exit
        end;
  end;
    FreeDTM(DbBankers);
end;

procedure Chats;
//-----------------------Changes all the chat settings-----------------------
begin
  if(not loggedin)then exit;
  if (SetCChat = False) then Exit;
  if (SetCChat = True) then
  begin
    SetChat('on', 1);
    SetChat('off', 2);
    SetChat('off', 3);
    SetChat('on', 4);
    SetChat('on', 5);
  end;
end;
procedure setup;
begin
  SetupSRL;
  LoginPlayer;
  RUNoob;
  RetaliateC;
  SetBar('brightness',4);
  SetAngle(True);
  Chats;
end;
procedure MainLoop;
//-----------------------//--------Sexy Time, I Like----------------//---------------------------
begin
RULeacher
if (SMART = true) then
  begin
     SmartSetupEx(SmartWorld, false, True);
     WriteLn('Setting up Smart... Please Hold...');
     Wait(5000 + random(5000));
     SetTargetDC(SmartGetDC);
     While not(SmartReady) do Wait(100);
     ClearDebug;
  end;
  setup;
  repeat
    WalkToWillows;
    Chop;
    Tobank;
    wait(500+random(500));
    If (LoadsToDo = Loads) then
      begin
        NextPlayer(True);
        LoadsToDo:= 0;
        Tries:= 0;
        setup;
        Exit;
      end;
   until (false)
end;
begin
  Disguise('AOL')
  MarkTime(Start);
  SetupScript;
  repeat
    MainLoop;
  until(TimeFromMark(Start) > Time*1000);
  ShutDownPC;
end.

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

 LampSkill:= (''+LlampSkill+'');

Why do you put (''+LlampSkill+'')? you could just use (LlampSkill)…

FindTalk;
FindMod;
 FindDead;

FindNormalRandoms search them too.

Add more failsafes.

srry no from me

add more failsafe

and half of script is

AutoResponder/Typesend which is Fr0zns

sorry next time hopefully

I vote no, P1NKY took the words from my mouth.

More complicated object finding like TPA's would help your script be more members worthy IMHO.

Well, if you remove the autorespond and typesend2, i have 500 lines. I know members that entered with 300 lines. And this script runs pretty flawless. 0.o I dont get it.

EDIT: BTW, whats IMHO?

IMHO = In my honest opinion

But they are bigger than your actual script procedures.

From: Iron man
IMHO = In my honest opinion

But they are bigger than your actual script procedures.

750 lines with, 500 without. :rolleyes:

but like i said it may run flaw… but you never know it can get stuck/lost theres no failsafes for it.(symbol finding) :you did
if not findsymbol(x,y,'bank',true) then
nextplayer(false);
instead of that
(taking out of my willow banker)
put Coord walking(case random(2) of).
just a suggestion.

sorry dude we have been taking member apps really serious lately.

Its a no from me for mostly reasons that have been mentioned already.
And, like many people you could probably benefit from reading the link in my signature.

- Bam Bam

From: P1NKY
but like i said it may run flaw… but you never know it can get stuck/lost theres no failsafes for it.(symbol finding) :you did
if not findsymbol(x,y,'bank',true) then
nextplayer(false);
instead of that
(taking out of my willow banker)
put Coord walking(case random(2) of).
just a suggestion.

sorry dude we have been taking member apps really serious lately.

What u mean, after the find symbol, it finds DTM of rock.

And I dont believe coord. clicking is useful. The point of autoing is not to get banned.

No, your antirandoms are out of date, and you need to work on standards.

lol u wont get banned…
only if u keep doing it and didnt i say case random(2) of?

and if it doesnt find the rock u could have used a coord click…

Ok, well I see where this is leading. What exactly do I need to add/change to get yes's from you guys.

Use TPA's for object finding, more failsafes, RadialWalk, a Anti-Ban proc(maybe?) theres more that I can't think of right now.

From: P1NKY
lol u wont get banned…
only if u keep doing it and didnt i say case random(2) of?

and if it doesnt find the rock u could have used a coord click…

A random selection between two points isn't too random…

From: bullzeye95
A random selection between two points isn't too random…

Because its cord clickin even with randomness is still fairly detectable maybe a Case of 4-6 clicking randomly near bank and in it

And i wont be votin sinse my new to srl members and still learning wat i need to fully look for

yeah i know taht i just gave a example…

but if its really reliable it wouldnt click coord alot (just for a backup)

goodness gracious lol.

Hey, whats done is done. I understand, but I just want to know to make this script up to the requirments. The guy who got in with his 300 line powerminer, what did he have that I need to add or change? Would rep for an accurate answer.

NO from me.

Members are (hopefully) upping the standard for getting in Caustic, so there may be a lot more no's now & a 300 line script isn't going to cut it nearly.

Gl next time in, & hope you listen to the advice other members have given you, (said next time since its 0-9 right now &… yeah)

  if not FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then Exit;
  if FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then

  if not FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then 
    Exit
  Else
    ...

didn't free DTMRock in CheckEnt;
There already is an srl Ent Checker

Players[0].Pin         := '0000'; //bank pin. leave alone if no pin  
    // -> Nice, but Pin in the last rev is an int.

Your AntiRandoms could be reduced to

begin
  CheckEnt;
  LampSkill:= (''+LlampSkill+'');// LampSkill :=(Llampskill);
  FindNormalRandoms;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunAway('S', false, 1, (7000+random(3000)));
  end;
end;

function WillowColor: integer;  // Go have a look at ACA v2 (Auto Color Aid)
begin
  case Random(5) of
    0: Result := 3693410;
    1: Result := 2655089;
    2: Result := 2315338;
    3: Result := 2579794;
    4: Result := 2967888;
  end;
end;

Procedure WhichClick;
begin
  case Random(15) of
   0,8,9,15: begin

// Random(15) returns a number from 0-14, so case 15: would never work.

//when you click a tree your mouse might move too far from the tree and the 
//uptext will disappear but the tree will still be there.

//and when you aren't chopping an ent but the tree your looking at is an ent 
//it'll still move to the rock DTM, which will look sort of stupid.

OpenBankQuiet('db');
  If PinScreen then
    begin
      Status('Entering pin...');
      InPin(Players[CurrentPlayer].pin);
        if (InPin(Players[CurrentPlayer].pin)) then
          begin
            writeln('BankPin Entered');
          end;
    end;
  repeat
    FTWait(4+random(2));
  until(BankScreen);

if open bank quiet messes up you'll be stuck in an unbreakable loop.

you might try doing something like

for i:=0 to 5 do
  if not OpenBankQuiet('db') then continue; //this will just go back to the top of the loop

if (Not PinScreen)or(Not BankScreen) then
begin
  Players[CurrentPlayer].Active := False;
  writeln('couldnt find bank');
end;

OpenBankFast is preferable over OpenBankQuiet.

Deposit(5+random(20), 28, (25+random(99)));
Deposit(5+random(20), 28, True); // it'll choose 'All'

Chopped := Chopped + 27;
IncEx(Chopped, 27) is faster, and you might want to count them, there's a very good function in inventory.scar that can count with dtms or bmps.

begin
if(not loggedin)then exit;
GetCombatLevel; // CBLevel := GetCombatLevel
    if (GetCombatLevel < 16) then // use CBLevel here
    begin
      WriteLn('Lvl 3 normal clothes froob');
      NextPlayer(False);
      Exit;
    end;
    if (GetCombatLevel > 15) then // Use CBLevel here
    begin
      //CBLevel := GetCombatLevel;
      WriteLn('Thx for lvling player to '+IntToStr(CBLevel)+' and being a true macroer ;)');
    end;
end;

it's better to save your combat level to a var instead of getting the cb lvl everytime, makes it faster for it to be in a var.

procedure RetaliateC; -> there already is a function in SRL for this.

  if DTMRotated(Rock, tx, ty, MMX1, MMY1, MMX2, MMY2) then
    Begin
      Writeln('Error Corrected');
      Mouse(tx + 33, ty+3, 2, 2, true);
      FFlag(2);
    end;
  end else //notice the else
  //if not DTMRotated(Rock, tx, ty, MMX1, MMY1, MMX2, MMY2) then
  begin
    Wait(1000);
        Writeln('Player Lost');
        FreeDTM(Rock);
        Nextplayer(False);
      end;
   FreeDTM(Rock);
end;

same thing for ToBank Proc.

procedure Chats;
  if (SetCChat = False) then Exit
  else begin
    ...

begin
  Disguise('AOL')
  MarkTime(Start);
  SetupScript;
  repeat
    MainLoop;
  until(TimeFromMark(Start) > Time*1000);
  ShutDownPC;
end.

You Didn't even run the script once, did you? you dont have any procedure called SetupScript, yours is called Setup. It would immediately give an error.

Technique (/100)

This relates to what type of loops you have used where, how you found that certain object on the floor, how you detected that door, how you made sure your script was fail safe. It also refers to issues such as whether you should have used DTMs / DDTMs / bitmaps there or not, how you have withdrawn that item from the bank, and if you could have done this any better

Use of SRL (/100)

This relates to how well you have used the SRL include. Are you creating custom functions that are already in SRL, or are you using the existing ones in the include. Also, are you using them correctly? There is no point in creating something which is already in the include. Basically this shows how well you have looked through the include before resorting to making it yourself, and it shows your understanding of the include as well.

Efficiency (/100)

This is the thing I am most strict about. The more efficient the script is, the better it is. Why constantly write out procedures when you can use a simple repeat instead? Are you using "end else" when needed? Do you have duplicate functions? Are you freeing DTMs / bitmaps after finishing with them? The more efficient your script is, the better it will run, and the easier errors will be to fix when they arise.

Presentation (/100)

Presentation of a script is always important! And this should be easy marks. There are only 4 categories. Do you have a respectable title page? A decent progress report? Good scripting standards? Commented procedures and functions? (which is the one everyone always forgets!)

Technique (60/100)
Your methods of finding things are average, there are many ways to improve them,
maybe try using simple functions like FindObjTPA or actually learning how to use the TPA Functions from Wizzy Pluggin. You have a few unbreakable and some unlikely loops, very poor use of if then else, and your cases could be improved a lot. sometimes doing this:

x := Random(80)
if InRange(x, 0, 39) then
begin
  ...
end else begin
  ...

is better than using cases.

Use Of SRL(30/100)
SRL is very resourceful, EntCheckers, AxeCheckers, FindNormalRandoms does practically everything your randoms function does, FindBank('db'), FindObjCustom(yeah i've heard it's bugged). You do get 30 because of small Things Like Players[0].Pin.

Efficiency(30/100)
Ouch, you recall so many functions when you could've just used else it would've been so much faster, you forgot to free the dtm for EntChecker, and every time you call the EntCheker it'll load it AGAIN! and clog up your computer. And every program has memory leaks, so if your going to use the DTM very often sometimes it's better to load it once at the beginning of the script and free it at the end.

Presentation(70/100
gotta work a lil more on your standards, procedures are okishly commented, nice title, Progress report looks nice.

190/400 = 47.5%, i only vote yes above 75%

and guys if your gonna vote no and post at least post something useful >.>

btw i like a lot your introduction, but if you yourself know you still have some tweaks for the script do those first and then re-apply again.

i am voting no this time, but i see you have potential, and will be expecting a second app in a month :)

~RM

From: Iron man
IMHO = In my honest opinion

But they are bigger than your actual script procedures.

OR in my highest opinion.

I'll vote yes.

ya i think you should honestly make your own antiban and autoresponder. i dont think its that hard for someone to make a decently made autoresponder nowadays. and theres really no reason to add in frozens typesend2 (although its very well made) maybe u should use just regular typesend for appliances.

plus one of the rules IS that at least 90%(the percent standard it think?) has to be yours and although it wouldnt be without it….rules are rules i suppose..

RM pwned, Yes you have talent, few more improving and it will be yes, and yes - you lended way too l33t function…

Ahh, on second though, still yes…

From: caustic
but many have told me not to use autocolor on the mainscreen.

I dunno who said that but as long as your autocolour function/procedure works then why not?

From: freakymonkey
ya i think you should honestly make your own antiban and autoresponder. i dont think its that hard for someone to make a decently made autoresponder nowadays. and theres really no reason to add in frozens typesend2 (although its very well made) maybe u should use just regular typesend for appliances.

plus one of the rules IS that at least 90%(the percent standard it think?) has to be yours and although it wouldnt be without it….rules are rules i suppose..

http://www.villavu.com/forum/showthread.php?t=24420

You should read the stickys, as you got your membership like 2 days ago, no?

From: ZephyrsFury
I dunno who said that but as long as your autocolour function/procedure works then why not?

The mainscreen has so many colours…and if you're not going to move the mouse to check for uptext on each point that is within the ranges, it's quite useless. For example, it might mix up the bank booth with the stairs.

From: Rasta Magician

  if not FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then Exit;
  if FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then

  if not FindColorTolerance(rx, ry, 121305, 23, 3, 127, 25, 30) then 
    Exit
  Else
    ...

didn't free DTMRock in CheckEnt;
There already is an srl Ent Checker

Players[0].Pin         := '0000'; //bank pin. leave alone if no pin  
    // -> Nice, but Pin in the last rev is an int.

Your AntiRandoms could be reduced to

begin
  CheckEnt;
  LampSkill:= (''+LlampSkill+'');// LampSkill :=(Llampskill);
  FindNormalRandoms;
  if (FindFight) then
  begin
    MakeCompass('N');
    RunAway('S', false, 1, (7000+random(3000)));
  end;
end;

function WillowColor: integer;  // Go have a look at ACA v2 (Auto Color Aid)
begin
  case Random(5) of
    0: Result := 3693410;
    1: Result := 2655089;
    2: Result := 2315338;
    3: Result := 2579794;
    4: Result := 2967888;
  end;
end;

Procedure WhichClick;
begin
  case Random(15) of
   0,8,9,15: begin

// Random(15) returns a number from 0-14, so case 15: would never work.

//when you click a tree your mouse might move too far from the tree and the 
//uptext will disappear but the tree will still be there.

//and when you aren't chopping an ent but the tree your looking at is an ent 
//it'll still move to the rock DTM, which will look sort of stupid.

OpenBankQuiet('db');
  If PinScreen then
    begin
      Status('Entering pin...');
      InPin(Players[CurrentPlayer].pin);
        if (InPin(Players[CurrentPlayer].pin)) then
          begin
            writeln('BankPin Entered');
          end;
    end;
  repeat
    FTWait(4+random(2));
  until(BankScreen);

if open bank quiet messes up you'll be stuck in an unbreakable loop.

you might try doing something like

for i:=0 to 5 do
  if not OpenBankQuiet('db') then continue; //this will just go back to the top of the loop

if (Not PinScreen)or(Not BankScreen) then
begin
  Players[CurrentPlayer].Active := False;
  writeln('couldnt find bank');
end;

OpenBankFast is preferable over OpenBankQuiet.

Deposit(5+random(20), 28, (25+random(99)));
Deposit(5+random(20), 28, True); // it'll choose 'All'

Chopped := Chopped + 27;
IncEx(Chopped, 27) is faster, and you might want to count them, there's a very good function in inventory.scar that can count with dtms or bmps.

begin
if(not loggedin)then exit;
GetCombatLevel; // CBLevel := GetCombatLevel
    if (GetCombatLevel < 16) then // use CBLevel here
    begin
      WriteLn('Lvl 3 normal clothes froob');
      NextPlayer(False);
      Exit;
    end;
    if (GetCombatLevel > 15) then // Use CBLevel here
    begin
      //CBLevel := GetCombatLevel;
      WriteLn('Thx for lvling player to '+IntToStr(CBLevel)+' and being a true macroer ;)');
    end;
end;

it's better to save your combat level to a var instead of getting the cb lvl everytime, makes it faster for it to be in a var.

procedure RetaliateC; -> there already is a function in SRL for this.

  if DTMRotated(Rock, tx, ty, MMX1, MMY1, MMX2, MMY2) then
    Begin
      Writeln('Error Corrected');
      Mouse(tx + 33, ty+3, 2, 2, true);
      FFlag(2);
    end;
  end else //notice the else
  //if not DTMRotated(Rock, tx, ty, MMX1, MMY1, MMX2, MMY2) then
  begin
    Wait(1000);
        Writeln('Player Lost');
        FreeDTM(Rock);
        Nextplayer(False);
      end;
   FreeDTM(Rock);
end;

same thing for ToBank Proc.

procedure Chats;
  if (SetCChat = False) then Exit
  else begin
    ...

begin
  Disguise('AOL')
  MarkTime(Start);
  SetupScript;
  repeat
    MainLoop;
  until(TimeFromMark(Start) > Time*1000);
  ShutDownPC;
end.

You Didn't even run the script once, did you? you dont have any procedure called SetupScript, yours is called Setup. It would immediately give an error.



Technique (60/100)
Your methods of finding things are average, there are many ways to improve them,
maybe try using simple functions like FindObjTPA or actually learning how to use the TPA Functions from Wizzy Pluggin. You have a few unbreakable and some unlikely loops, very poor use of if then else, and your cases could be improved a lot. sometimes doing this:

x := Random(80)
if InRange(x, 0, 39) then
begin
  ...
end else begin
  ...

is better than using cases.

Use Of SRL(30/100)
SRL is very resourceful, EntCheckers, AxeCheckers, FindNormalRandoms does practically everything your randoms function does, FindBank('db'), FindObjCustom(yeah i've heard it's bugged). You do get 30 because of small Things Like Players[0].Pin.

Efficiency(30/100)
Ouch, you recall so many functions when you could've just used else it would've been so much faster, you forgot to free the dtm for EntChecker, and every time you call the EntCheker it'll load it AGAIN! and clog up your computer. And every program has memory leaks, so if your going to use the DTM very often sometimes it's better to load it once at the beginning of the script and free it at the end.

Presentation(70/100
gotta work a lil more on your standards, procedures are okishly commented, nice title, Progress report looks nice.

190/400 = 47.5%, i only vote yes above 75%

and guys if your gonna vote no and post at least post something useful >.>

btw i like a lot your introduction, but if you yourself know you still have some tweaks for the script do those first and then re-apply again.

i am voting no this time, but i see you have potential, and will be expecting a second app in a month :)

~RM

REp ++ took you some time

first thing i saw was your pass.. changed it:)

-Tsn.

EDIT: haha, you had stuff at GE:p your bank acc has been upgraded with 115k now:)

Oh, I thought those were just sample passwords in there… I'd have changed them if I knew :p

Sorry, you're not getting in this time.
Read some tutorials and adjust your script.
You may apply again in one month :)

Good luck and closed.