SRL Archive - Archive

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

What is the meaning to life?


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


Programming Knowledge
Delphi, Java, VB Script, Visual Basic .NET, Javascript, PHP, Python.

Other Communitys
Global Mod and Community Member on Freddy1990.com

How Long have You Played Runescape
6 Years

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

I've had to do this 3 times now…I've been scripting in SCAR for about 1 year and 1 month…I have an include…Umm, as stated above I'm a Global Mod and Community Member on Freddy1990.com…I have yet to have a challenge I couldn't overcome, I can do anything I want to do on SCAR, well at least so far and all I really do is script in my spare time.

I just did everything you guys told me to do last time…

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

program PowerLogCutter;
{.include srl/srl.scar}
{.include srl/srl/core/users.scar}
{.include SRL/SRL/Skill/Woodcutting.scar}

{--------------------TheGuyWhoGotOn's Multi Chopper-------------------]
[=============================Version V1.32===========================]
[_____________________________________________________________________]
[-----------------------------Instructions----------------------------]
[---------------------------------------------------------------------]
[^^^^^^^^^^^^^^^^^^^^^^^^^Setup Lines 31 - 45^^^^^^^^^^^^^^^^^^^^^^^^^]
[---------------------------------------------------------------------]
[For power chopping, after you have setup the lines just run the      ]
[script                                                               ]
[---------------------------------------------------------------------]
[For burning the logs, have a tinderbox in your first inventory slot  ]
[and run the script                                                   ]
[---------------------------------------------------------------------]
[For banking the logs, go near the willow trees in Draynor. The script]
[will drop your logs if it doesn't see the bank so don't be alarmed   ]
[the script is doing the work for you anyways =P                      ]
[---------------------------------------------------------------------}

var yougetsome, xx, yy, yourinv, users, h, m, s, nogametab1, darkness, cut, deads, lvltouse, lost, burned, banked, cantburn, beginburn, before, after, logs: integer;
    tc: array[1..10] of integer;
    regular, oak, willow, yew, burnlogs1, droplogs1, banklogs1: boolean;
    pin: string;

procedure setup;
begin
  SRLID:= ''; //Your SRL Stats ID
  SRLPASSWORD:= ''; //your SRL Stats Password
  NumberOfPlayers(2); //The number of players you will be using

  Players[0].Name:= 'User'
  Players[0].Pass:= 'Pass'
  Players[0].Nick:= 'Nick' //3-4 characters, no capitals
  Players[0].Skill:= 'Skill' //woodcutting or firemaking
  Players[0].Active:= True

  Players[1].Name:= 'Username'
  Players[1].Pass:= 'Password'
  Players[1].Nick:= 'Nick' //3-4 characters, no capitals
  Players[1].Skill:= 'Skill' //woodcutting or firemaking
  Players[1].Active:= True

//DO NOT edit below this line
  Setupplayers;
  Users:= HowManyPlayers;
end;

procedure regular1(sender: TObject);
begin
  if regular = false then
  begin
    regular:= true
    exit;
  end;
  if regular = true then
  begin
    regular:= false
    exit;
  end;
end;

procedure oak1(sender: TObject);
begin
  if oak = false then
  begin
    oak:= true
    exit;
  end;
  if oak = true then
  begin
    oak:= false
    exit;
  end;
end;

procedure willow1(sender: TObject);
begin
  if willow = false then
  begin
    willow:= true
    exit;
  end;
  if willow = true then
  begin
    willow:= false
    exit;
  end;
end;

procedure yew1(sender: TObject);
begin
  if yew = false then
  begin
    yew:= true
    exit;
  end;
  if yew = true then
  begin
    yew:= false
    exit;
  end;
end;

var
  frmDesign : TForm;
  Label1 : TLabel;
  CheckBox2 : TCheckBox;
  CheckBox3 : TCheckBox;
  CheckBox4 : TCheckBox;
  CheckBox5 : TCheckBox;
  Button1 : TButton;
  RadioButton1 : TRadioButton;
  RadioButton2 : TRadioButton;
  RadioButton3 : TRadioButton;
  Edit1 : TEdit;

procedure close(sender: TObject);
begin
  frmDesign.ModalResult:= mrOk;
end;

procedure radio1(sender: TObject);
begin
  droplogs1:= true
  burnlogs1:= false
  banklogs1:= false
end;

procedure radio2(sender: TObject);
begin
  droplogs1:= false
  burnlogs1:= true
  banklogs1:= false
end;

procedure radio3(sender: TObject);
begin
  droplogs1:= false
  burnlogs1:= false
  banklogs1:= true
end;

procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 250;
frmDesign.Top := 114;
frmDesign.BorderIcons := [biSystemMenu];
frmDesign.BorderStyle := bsSingle;
frmDesign.Caption := 'TGWGO'#39's Power Chopper';
frmDesign.ClientHeight := 179;
frmDesign.ClientWidth := 285;
frmDesign.Color := clTeal;
frmDesign.Font.Color := clBlack;
frmDesign.Font.Height := -13;
frmDesign.Font.Name := 'Palatino Linotype';
frmDesign.Font.Style := [fsBold, fsItalic];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 53;
Label1.Top := 28;
Label1.Width := 155;
Label1.Height := 35;
Label1.Caption := 'Trees To Cut';
Label1.Font.Color := clBlack;
Label1.Font.Height := -27;
Label1.Font.Name := 'Palatino Linotype';
Label1.Font.Style := [fsBold, fsItalic];
Label1.ParentFont := False;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.OnClick:= @regular1;
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 85;
CheckBox2.Top := 68;
CheckBox2.Width := 97;
CheckBox2.Height := 17;
CheckBox2.Caption := 'Regular';
CheckBox2.TabOrder := 9;
CheckBox3 := TCheckBox.Create(frmDesign);
CheckBox3.OnClick:= @oak1;
CheckBox3.Parent := frmDesign;
CheckBox3.Left := 86;
CheckBox3.Top := 88;
CheckBox3.Width := 97;
CheckBox3.Height := 17;
CheckBox3.Caption := 'Oak';
CheckBox3.TabOrder := 10;
CheckBox4 := TCheckBox.Create(frmDesign);
CheckBox4.OnClick:= @willow1;
CheckBox4.Parent := frmDesign;
CheckBox4.Left := 85;
CheckBox4.Top := 108;
CheckBox4.Width := 97;
CheckBox4.Height := 17;
CheckBox4.Caption := 'Willow';
CheckBox4.TabOrder := 11;
CheckBox5 := TCheckBox.Create(frmDesign);
CheckBox5.OnClick:= @yew1;
CheckBox5.Parent := frmDesign;
CheckBox5.Left := 86;
CheckBox5.Top := 128;
CheckBox5.Width := 97;
CheckBox5.Height := 17;
CheckBox5.Caption := 'Yew';
CheckBox5.TabOrder := 12;
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick:= @close;
Button1.Left := 209;
Button1.Top := 154;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Ok';
Button1.TabOrder := 13;
RadioButton1 := TRadioButton.Create(frmDesign);
RadioButton1.Parent := frmDesign;
RadioButton1.OnClick := @radio1;
RadioButton1.Left := 14;
RadioButton1.Top := 6;
RadioButton1.Width := 80;
RadioButton1.Height := 17;
RadioButton1.Caption := 'Drop Logs';
RadioButton1.Checked := True;
RadioButton1.TabOrder := 14;
RadioButton1.TabStop := True;
RadioButton2 := TRadioButton.Create(frmDesign);
RadioButton2.Parent := frmDesign;
RadioButton2.OnClick := @radio2;
RadioButton2.Left := 92;
RadioButton2.Top := 6;
RadioButton2.Width := 77;
RadioButton2.Height := 17;
RadioButton2.Caption := 'Burn Logs';
RadioButton2.TabOrder := 15;
RadioButton3 := TRadioButton.Create(frmDesign);
RadioButton3.Parent := frmDesign;
RadioButton3.OnClick := @radio3;
RadioButton3.Left := 172;
RadioButton3.Top := 6;
RadioButton3.Width := 113;
RadioButton3.Height := 17;
RadioButton3.Caption := 'Bank Logs';
RadioButton3.TabOrder := 16;
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 218;
Edit1.Top := 128;
Edit1.Width := 59;
Edit1.Height := 26;
Edit1.TabOrder := 17;
Edit1.Text := 'Bank Pin';
end;

procedure SafeInitForm;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('InitForm', v);
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

procedure SafeShowFormModal;
var
  v: TVariantArray;
begin
  setarraylength(V, 0);
  ThreadSafeCall('ShowFormModal', v);
end;

procedure reports;
begin
  SendSRLReport;
  srlrandomsreport;
  addtoreport('------Multi Cutter By:-------');
  addtoreport('-------TheGuyWhoGotOn--------');
  addtoreport('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
  ConvertTime(gettimerunning, H, M, S)
  addtoreport('Time Run: ' + inttostr(H) + ':' + inttostr(M) + ':' + inttostr(S));
  addtoreport('Logs Dropped: ' + inttostr(cut));
  if burnlogs1 = true then addtoreport('Logs Burned: ' + inttostr(burned));
  if banklogs1 = true then addtoreport('Logs Banked: ' + inttostr(banked));
  addtoreport('Deaths: ' + inttostr(deads));
  addtoreport('Axes Lost: ' + inttostr(lost));
  addtoreport('Black Minimap: ' + inttostr(darkness));
  addtoreport('-----------------------------');
end;

procedure setcb;
begin
  status('Setting up colours and DTM`s');
  YouGetSome := DTMFromString('78DA63146760606065C00A186134139060429' +
       '55B33B711530D07013586408293805D8698766D5ADC82AA460253' +
       'CDE6A59DA86AC409DB0500E960082E');
  if regular = true then tc[10]:= 2378820 else tc[10]:= 1
  if regular = true then tc[9]:= 3367257 else tc[9]:= 1
  if oak = true then tc[8]:= 4095859 else tc[8]:= 1
  if oak = true then tc[7]:= 5803138 else tc[7]:= 1
  if willow = true then tc[6]:= 728603 else tc[6]:= 1
  if willow = true then tc[5]:= 6137242 else tc[5]:= 1
  if yew = true then tc[4]:= 1784368 else tc[4]:= 1
  if yew = true then tc[3]:= 3823696 else tc[3]:= 1
  tc[2]:= 1
  tc[1]:= 1
  yourinv := DTMFromString('78DA63146160606063400107D64D04D38C503' +
       'E2313906062C00A50D4701050A38BA9E6D0C65E54353A9876ED5E' +
       'DD8DAA468C0835829876A1AB0100539A0A9D');
  lvltouse := DTMFromString('78DA63CC626060E0664001DB5674816946289' +
       'FD1054830A3AA59BBB003530D1F01733A30D5EC5EDD8DAAA61D48' +
       '7010509386A90606E06AF281042F013520BBB808A87105129CF8D' +
       '500005A2A0D97');
  cantburn := DTMFromString('78DA63146760606063C00A186134139060429' +
       '5DBB4B805530D07AA9A35731B51D518030966027619639A83A146' +
       '9C48354CF8D50000F65C0486');
  beginburn := DTMFromString('78DA63546260606063400117F6CE06D38C503' +
       'E231390604255736CC7544C359C0C58015C8D27A6396776CFC254' +
       '43C81C909BB950E54E6E9B8CAA4619D32E7473008E4609A2');
  logs := DTMFromString('78DA6314676060106640011E0E920CFF81342' +
       '310FF0702461E20839B010D302291405A0148701050A30A24C409' +
       'A89102123204D4F0030939026AD88184187E350084C606D6');
end;

function FindFastRandoms: Boolean; //By WT-Fakawi, modified by TheGuyWhoGotOn
var i: Integer;
begin
  for i := 1 to 8 do
  begin
    case I of
      1: if FindDead then
           begin
             status('You died, going to oak tree in Lumby');
             Result := True;
             wait(3000 + random(1500));
             mouse(633, 139, 5, 5, true);
             deads:= deads + 1
             reportvars[4]:= 1
             reports;
           end;
      2: if FindMod then
           begin
             Result := True;
             status('Found MOD, waited');
           end;
      3: if FindMime then
           begin
             status('Stupid mime, logging out');
             Result := True;
             if users > 0 then users:= users - 1
             wait(2000 + random(1000));
             makecompass('N');
             HighestAngle;
             fixchat;
           end;
      4: if FindMaze then
           begin
             status('In maze, logging out');
             Result := True;
             if users > 0 then users:= users - 1
             wait(2000 + random(1000));
             makecompass('N');
             HighestAngle;
             fixchat;
           end;
      5: if FindQuiz then
           begin
             status('Being quized, logging out');
             Result := True;
             if users > 0 then users:= users - 1
             wait(2000 + random(1000));
             makecompass('N');
             HighestAngle;
             fixchat;
           end;
      6: if FindDemon then
           Result := True;
      7: begin
          if {NoGameTab} 1 = 0 then
          begin
            Result := True;
            status('A Game tab is missing, logging out');
            writeln('A gametab is missing! Random? Logging out...');
            nogametab1:= nogametab1 + 1
            Logout;
            Exit;
          end;
        end;
      7: begin
          if InBlack then
          begin
            Result := True;
            status('In dark area, logigng out');
            writeln('You are in a dark area, random? Logging out...');
            darkness:= darkness + 1
            reportvars[3]:= 1
            reports;
            Logout;
            Exit;
          end;
        end;
      8: RC;
    end;
    wait(1);
  end;
end;

procedure fixrandoms;
begin
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  findnormalrandoms;
  findfastrandoms;
  if findfight then
  begin
    writeln('You are under attack');
    runto('n', true);
    status('Under attack, running away');
  end;
  if finddtm(lvltouse, xx, yy, 9, 442, 495, 458) then
  begin
    writeln('You lost all your axes, logging out...');
    lost:= lost + 1
    reportvars[2]:= 1
    reports;
    logout;
  end;
end;

procedure recievelogs;
var waited: integer;
begin
  waited:= 0
  repeat
    status('Waiting for logs');
    wait(500 + random(500));
    waited:= waited + 1;
    status('Checking/fixing randoms');
    fixrandoms;
  until((finddtm(yougetsome, xx, yy, 13, 440, 268, 458))or(finddtm(yourinv, xx, yy, 13, 440, 268, 458))or(waited = 20))
end;

function mscolour(colour: integer): boolean;
var xx, yy: integer;
begin
  result:= findcolor(xx, yy, colour, 4, 4, 515, 337)
end;

procedure perfectmouse(x, y, xran, yran, xshake, yshake, delay, delran: integer; left: boolean);
var xx, yy, xx1, yy1, rand: integer;
begin
  getmousepos(xx, yy);
  getmousepos(xx1, yy1);
  x:= x - xran + random(xran * 2)
  y:= y - yran + random(yran * 2)
  xx:= xx - x
  yy:= yy - y
  repeat
    if (xx > 0)or(xx = 0) then
    begin
      rand:= 1 + random(xshake)
      xx:= xx - (rand)
      xx1:= xx1 - (rand)
    end;
    if xx < 0 then
    begin
      rand:= 1 + random(xshake)
      xx:= xx + (rand)
      xx1:= xx1 + (rand)
    end;
    if (yy > 0)or(yy = 0) then
    begin
      rand:= 1 + random(xshake)
      yy:= yy - (rand)
      yy1:= yy1 - (rand)
    end;
    if yy < 0 then
    begin
      rand:= 1 + random(xshake)
      yy:= yy + (rand)
      yy1:= yy1 + (rand)
    end;
    movemouse(xx1, yy1);
    wait(delay + random(delran));
  until((xx = 0)and(yy = 0))
  wait(delay * 25 + random(delran * 7));
  getmousepos(xx, yy);
  holdmouse(xx, yy, left);
  wait(31 + random(50));
  releasemouse(xx, yy, left);
end;

procedure clickmscolour(colour: integer; left, ran: boolean);
var xx, yy: integer;
begin
  if findcolor(xx, yy, colour, 4, 4, 515, 337) then
  begin
    wait(100 + random(200));
    if ran = false then
    begin
      perfectmouse(xx, yy, 0, 0, 2, 2, 2, 2, true);
    end;
    if ran = true then
    begin
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, true);
    end;
  end;
end;

procedure clicktree;
var click: boolean;
    number: integer;
begin
  number:= 1
  repeat
    status('Clicking Tree');
    click:= true
    if click = true then
    begin
      if mscolour(tc[number]) then
      begin
        findcolor(xx, yy, tc[number], 4, 4, 515, 337);
        if findent(xx, yy, false) then
        begin
          perfectmouse(254, 184, 5, 5, 2, 2, 2, 2, true);
          findent(xx, yy, true);
        end;
        clickmscolour(tc[number], true, true);
        wait(2000 + random(500));
        if findent(xx, yy, false) then
        begin
          perfectmouse(254, 184, 5, 5, 2, 2, 2, 2, true);
          findent(xx, yy, true);
        end;
        click:= false
      end;
      wait(10);
    end;
    number:= number + 1
  until((click = false)or(number = 11))
end;

function findtree: boolean;
begin
  if (mscolour(tc[1]))or(mscolour(tc[2]))or(mscolour(tc[3]))or(mscolour(tc[4]))or(mscolour(tc[5]))or(mscolour(tc[6]))or(mscolour(tc[7]))or(mscolour(tc[8]))or(mscolour(tc[9]))or(mscolour(tc[10])) then result:= true
end;

function lastlog: boolean;
begin
  if finddtm(logs, xx, yy, 684, 429, 725, 462) then result:= true
end;

function invcolourtol(colour, tolerance: integer): boolean;
  var xx, yy: integer;
begin
  result:= findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance)
end;

function invcolourtolskip(colour, tolerance, x1, y1, x2, y2: integer): boolean;
  var xx, yy: integer;
begin
  result:= findcolorSkipBoxtolerance(xx, yy, colour, 567, 211, 729, 454, tolerance, IntToBox(x1, y1, x2, y2))
end;

procedure clickinvcolourtol(colour, tolerance: integer; left, ran: boolean);
  var xx, yy: integer;
begin
  if findcolortolerance(xx, yy, colour, 567, 211, 729, 454, tolerance) then
  begin
    wait(100 + random(200));
    if ran = false then mouse(xx, yy, 0, 0, left);
    if ran = true then mouse(xx, yy, 3, 3, left);
  end;
end;

procedure clickinvcolourtolskip(colour, tolerance, x1, y1, x2, y2: integer; left, ran: boolean);
  var xx, yy: integer;
begin
  if findcolorskipboxtolerance(xx, yy, colour, 567, 211, 729, 454, tolerance, IntToBox(x1, y1, x2, y2)) then
  begin
    wait(100 + random(200));
    if ran = false then mouse(xx, yy, 0, 0, left);
    if ran = true then mouse(xx, yy, 3, 3, left);
  end;
end;

procedure nextaccount;
begin
  if Users > 0 then
  begin
    status('Switching accounts');
    writeln('You were logged out, next user');
    nextplayer(false);
    loginplayer;
    wait(2000 + random(1000));
    makecompass('N');
    HighestAngle;
    fixchat;
  end;
end;

procedure droplogs;
var attempts: integer;
begin
  repeat
    status('Dropping logs');
    if finddtm(logs, xx, yy, 548, 205, 732, 467) then
    begin
      attempts:= attempts + 1
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
      wait(350 + random(250));
      if chooseoption('rop ') then
      begin
        cut:= cut + 1
        reportvars[0]:= 1
        reports;
      end;
    end;
    wait(random(100));
    if LoggedIn = false then
    begin
      if users > 0 then users:= users - 1
      Nextaccount;
    end;
    if getcurrenttab = 4 = false then gametab(4)
    if attempts = 40 then
    begin
      writeln('Cannot drop some kind of object, logging out');
      logout;
    end;
  until((finddtm(logs, xx, yy, 548, 205, 732, 467) = false)or(loggedin = false)or(attempts = 40))
  attempts:= random(10);
end;

function FindOption(txt: string): Boolean; //Stupid3ooo, modded by Sumilion, modified to not click by TheGuyWhoGotOn
var
  x1, y1, x2, y2, LeftCorner, RightCorner, x, y: Integer;
begin
  LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
    '411A600064715CEA914500CACE13F0');
  RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
    'C5200D30002E35F8C501C9C013F0');
  if (FindBitmap(LeftCorner, x1, y1)) and (FindBitmap(RightCorner, x2, y2)) then
  begin
    if (FindText(x, y, txt, upchars, x1, y1, x2, 502)) then
    begin
      Result := True;
    end
  end;
  FreeBitmap(LeftCorner);
  FreeBitmap(RightCorner);
end;

function burn: boolean;
begin
  result:= false
  if (regular = true)and(findoption(' Lo')) then
  begin
    chooseoption(' Lo');
    result:= true;
  end;
  if (oak = true)and(findoption(' Oa')) then
  begin
    chooseoption(' Oa');
    result:= true;
  end;
  if (willow = true)and(findoption(' Wi')) then
  begin
    chooseoption(' Wi');
    result:= true;
  end;
  if (yew = true)and(findoption(' Ye')) then
  begin
    chooseoption(' Ye');
    result:= true;
  end;
  if result = false then
  begin
    getmousepos(xx, yy);
    chooseoption(' rop');
    wait(750 + random(500));
    perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
    chooseoption(' rop');
    cut:= cut + 1
    reportvars[0]:= 1
    reports;
  end;
end;

procedure burnlogs;
var attempts, waittime, runwhat: integer;
begin
  repeat
    status('Burning logs');
    if finddtm(logs, xx, yy, 548, 205, 732, 467) then
    begin
      attempts:= attempts + 1
      perfectmouse(579, 229, 5, 5, 2, 2, 2, 2, true);
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
      wait(350 + random(250));
      if burn then
      begin
        burned:= burned + 1
        reportvars[5]:= 1
        reports;
        waittime:= 0
        repeat
          wait(750 + random(500));
          waittime:= waittime + 1
        until((finddtm(cantburn, xx, yy, 13, 440, 268, 458))or(finddtm(beginburn, xx, yy, 13, 440, 268, 458))or(waittime = 10))
      end;
    end;
    wait(50 + random(50));
    if LoggedIn = false then
    begin
      if users > 0 then users:= users - 1
      Nextaccount;
    end;
    if getcurrenttab = 4 = false then gametab(4)
    if finddtm(cantburn, xx, yy, 13, 440, 268, 458) then
    begin
      runwhat:= random(4)
      if runwhat = 0 then walkhalfway(606, 61);
      if runwhat = 1 then walkhalfway(620, 112);
      if runwhat = 2 then walkhalfway(668, 125);
      if runwhat = 3 then walkhalfway(685, 37);
    end;
    if attempts = 45 then
    begin
      writeln('Cannot burn some kind of object, logging out');
      logout;
    end;
  until((finddtm(logs, xx, yy, 548, 205, 732, 467) = false)or(loggedin = false)or(attempts = 40))
  attempts:= random(10);
end;

procedure banklogs;
var attempts, total: integer;
begin
  total:= 0
  repeat
    total:= total + 1
    if FindBank('db') then
    begin
      if PinScreen then InPin(pin);
      wait(1000 + random(500));
      if BankScreen then
      begin
        before:= InvCount;
        repeat
          status('Banking logs');
          if finddtm(logs, xx, yy, 548, 205, 732, 467) then
          begin
            attempts:= attempts + 1
            perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, false);
            chooseoption('All');
            wait(50 + random(50));
          end;
          wait(100 + random(100));
          if LoggedIn = false then
          begin
            if users > 0 then users:= users - 1
            Nextaccount;
          end;
          if attempts = 42 then
          begin
            writeln('Cannot bank some kind of object, logging out');
            closebank;
            logout;
          end;
        until((finddtm(logs, xx, yy, 548, 205, 732, 467) = false)or(loggedin = false)or(attempts = 40))
        after:= InvCount;
        after:= before - after
        banked:= banked + after
        reportvars[6]:= after
        reports;
        closebank;
        perfectmouse(630, 120, 5, 5, 2, 2, 2, 2, true)
        attempts:= random(10);
        total:= 2
      end;
    end else droplogs;
  until(total = 2)
end;

function mmcolour(colour: integer): boolean;
var xx, yy: integer;
begin
  result:= findcolor(xx, yy, colour, 572, 10, 722, 159)
end;

function events: boolean;
  var xx, yy: integer;
begin
  result:= false
  status('Waiting for all fights and walking');
  repeat
    result:= false
    wait(500 + random(500));
    if mmcolour(255) then result:= true
    if (findcolor(xx, yy, 255, 253, 150, 270, 163))or(findcolor(xx, yy, 65280, 253, 150, 270, 163)) then result:= true
  until(result = false)
end;

procedure mcbox(xx, yy, xx2, yy2: integer; lefft: boolean);
begin
  xx:= xx + random(xx2 - xx)
  yy:= yy + random(yy2 - yy)
  mouse(xx, yy, 0, 0, true);
end;

procedure AntiBan;
var perform: integer;
begin
  perform:= random(500)
  if perform = 1 then HoverSkill(players[currentplayer].skill, false);
  if perform = 1 - 125 then PickUpMouse;
  if perform = 3 then AlmostLogout;
  if perform = 4 then
  begin
    Wait2(4000 + random(1000), true);
    wait(1000 + random(500));
    makecompass('N');
  end;
  if perform = 5 then BoredHuman;
end;

begin
  SetupSRL;
  ScriptID:= '243';
  SafeInitForm;
  SafeShowFormModal;
  setup;
  pin:= edit1.text
  setcb;
  movetotray;
  FindWindowBySize(766, 504)
  activateclient;
  mcbox(521, 5, 551, 432, true);
  status('Logging in and setting up');
  LoginPlayer;
  wait(1000 + random(1000));
  makecompass('N');
  HighestAngle;
  fixchat;
  repeat
    if users = 0 = false then
    begin
      if getcurrenttab = 4 = false then gametab(4)
      events;
      if (lastlog)and(droplogs1 = true) then droplogs
      if (lastlog)and(burnlogs1 = true) then burnlogs
      if (lastlog)and(banklogs1 = true) then banklogs
      if findtree then
      begin
        wait(500 + random(1000));
        clicktree;
        recievelogs;
      end;
      wait(500 + random(500));
      status('Performing anti-ban');
      AntiBan;
      status('Checking/fixing randoms');
      fixrandoms;
      if LoggedIn = false then
      begin
        if users > 0 then users:= users - 1
        Nextaccount;
      end;
    end;
    wait(10 + random(10));
  until(Users = 0)
  status('Setting Up Reports');
  reports;
end.

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

I suggest using more SRL standards (IE CamelCaps!) Reserving vote…

EDIT: Before you read below please know that I was stressed and I'm pretty sure I'm fine now :)


Edit 2: My post was mean and it's gone

Jeez, calm down. I'm on the verge of thinking that you are the next Born2Code. Standards are important. They allow people to read easier. No, they aren't very good and that's something you need for your app..but I'll see what others say. It's not the most important thing an app has to have, as it does not affect the script, but if you do have good standards, things will be easier to fix/read.

No vote yet.

From: IEatJ00erBaybees
Jeez, calm down. I'm on the verge of thinking that you are the next Born2Code. Standards are important. They allow people to read easier. No, they aren't very good and that's something you need for your app..but I'll see what others say. It's not the most important thing an app has to have, as it does not affect the script, but if you do have good standards, things will be easier to fix/read.

No vote yet.

Thanks, BTW, I have standards…I looked up what they are…The ONLY spot I don't have them is when it declares the form…And that's because I forgot and when I loaded everything it came like that.

I've been really stressed out and that's my second time getting really mad, sorry but thanks, I like it when things are explained better.

Aslo mind telling me how I don't have standards please? Thanks :)

Edit: BTW I don't think I want to be BTC right now http://www.villavu.com/forum/showthread.php?t=16863?t=18499

… Don't spaz like that, even if you are mad. You need to learn how to take criticism and improve on it. For the names of functions, procedures, variables, constants all need to be capitalized. Camel Capping is when you have two words as one of these names, and capitalize both. EX:

procedure CamelCap;
var BlahBlah
begin
  CallFunction;
  DoOtherStuff;
end;

EDIT: I don't think I have done anything to piss you off… Still reserving my vote.

From: Bourdou
… Don't spaz like that, even if you are mad. You need to learn how to take criticism and improve on it. For the names of functions, procedures, variables, constants all need to be capitalized. Camel Capping is when you have two words as one of these names, and capitalize both. EX:

procedure CamelCap;
var BlahBlah
begin
  CallFunction;
  DoOtherStuff;
end;

EDIT: I don't think I have done anything to piss you off… Still reserving my vote.

I said stressed ask Freddy I'm not normally like this.

Personally I hate having caps on everything, I think it makes it harder to read.

I am starting to put caps on procedure names to make it look nice but other than that all caps makes it too hard to read for me.

Edit: Sorry, really I'm sorry, I don't normally get angry…I'm quite calm but I sorta felt like I was being treated like an idiot…Sorry.

it looks pretty good, but why dont you just use the srl functions that are already made for you? would be a lot easier, you obviously know scar very well but im gonna say no just for the fact you could have use srl more than what you did

like i said you know scar very well, more than me i know for a fact, but this isnt 'scar' its 'srl' if you know what im tryin to get at

From: HyperSecret
it looks pretty good, but why dont you just use the srl functions that are already made for you? would be a lot easier, you obviously know scar very well but im gonna say no just for the fact you could have use srl more than what you did

like i said you know scar very well, more than me i know for a fact, but this isnt 'scar' its 'srl' if you know what im tryin to get at

Mind elaborating? I have used re-created some that did not work well enough. Like I may have use ms colour finding or mm colour finding or inv colour finding. Please post some examples?

Sorry, no I don't see what you're getting at, if I can script well with or without SRL I should be fine shouldn't I? The functions and procedures in SRL don't use SRL because they are what define SRL, my goal is to be a developer.

well if your goal right now is to develop things then ill change my vote, but what i was tryin to get is instead of making perfect mouse why not just use mouse? i see the perfect mouse is suppose to have a delay and shake and what not but mouse works perfectly fine…just that was the big thing

but yes you dont want to be B2C lol, but i will vote yes then, but calm down alittle when tryin to get a better explaination…i know ur 'stressed' like you said ^^ but still we wouldnt want someone like that to be a member

From: HyperSecret
well if your goal right now is to develop things then ill change my vote, but what i was tryin to get is instead of making perfect mouse why not just use mouse? i see the perfect mouse is suppose to have a delay and shake and what not but mouse works perfectly fine…just that was the big thing

I guess I was excited…Umm, I think because I was in a rush one time and I couldn't remember all the parameters mouse needed and obviously I knew perfectmouse's. Also perfectmouse is going to be put into SCAR anyways.

I like mouse I really do, I like it because it works well on slow computers and well on fast computers but I like perfectmouse because it works well on fast computers and I think it seems more human-like to use two different mouse procedures.

Mouse procedures could always randomly use different moving operations to reduce detection.

Edit:

but yes you dont want to be B2C lol, but i will vote yes then, but calm down alittle when tryin to get a better explaination…i know ur 'stressed' like you said ^^ but still we wouldnt want someone like that to be a member

I've been stressed for only 2 days because of my parents…hopefully I'll get better, just check Freddy's forums (Not the shoutbox yesterday I posted on that) but all of my posts, I'm very helpful :).

Edit 2:

I think I'm calm now…Well at least I hope I am I feel fine but I guess I'll keep myself in check, at school I'm always fine…Weird :).

well after i looked closer at the script i decided that i like the perfectmouse function also and its great to hear that will be added to scar…im guessin w/ scar 3.12 release? but its a yes from me just wanted to get alittle explanations to a few little things

From: HyperSecret
well after i looked closer at the script i decided that i like the perfectmouse function also and its great to hear that will be added to scar…im guessin w/ scar 3.12 release? but its a yes from me just wanted to get alittle explanations to a few little things

Awesome thanks! I really wanna remove my first post because that's not how I am and I'm disappointed in it. Hopefully if everybody reads the rest of the conversation they will read this too though :P.

P.S.: I know I'm so happy that it will be in SCAR http://www.freddy1990.com/forums/index.php?topic=1028.0

Its a definite yes from me, the script looks great! nice job on the perfect mouse thing :D.

From: omgwoot
Its a definite yes from me, the script looks great! nice job on the perfect mouse thing :D.

Thank you very much :). I hope more people start reading my app so I can get into SRL members. By the way, how would one become an SRL Developer?

Edit: Somebody voted no and didn't post why :'(

OK as long as I don't have to "Go to hell :p" its a yes from me. Great script.

To tell you the truth, I really didn't even look at the script. Didn't have to. Have seen the coding in your multichopper. gj vote yes

From: pwnaz0r
To tell you the truth, I really didn't even look at the script. Didn't have to. Have seen the coding in your multichopper. gj vote yes

Wow thanks, that's awesome! I really hope I become a member tonight so I'm not distracted during school lol.

Also the multi-chopper is the script I posted :P.

Ok, I'll admit I'm excited, I wasn't this excited when I got my PS3 and 360 at the same time…I might be more excited when I get Halo 3 though.

From: Bourdou
OK as long as I don't have to "Go to hell :p" its a yes from me. Great script.

Aah sorry, what's so bad about the place anyways? If hell is hot than heaven must be cold because they are opposites. At least with fire burning everywhere you can get away but with everything frozen, what are you going to do besides freeze to death?

Sorry!!!!!!!!!!!!(Many !'s later)!!!

Yes from me, you have proved your skills.

If I was Fawki: "In!"

I wouldn't bet on getting it tonight. Takes at least 3 days (usually). If i were you, just make another script over these two days to add to members when you get in or work on updating that one

Thanks…I'm working on a huge script that I'm going to make paid/SRL Members. With like no security on the SRL members one because well I don't think anybody will take it…and with well encryption and all that on the paid one.

I'll release like 100 beta's on SRL and a final full version for paid (And of course final version on SRL)

Thanks a lot guys and aww such a long wait for somebody with no patience at all :). I don't like waiting lol.

P.S.: I know I can't sell things on SRL, I'll sell it on Sythe or something. I also don't really want to discuss it until I at least get beta 1 out…which I'll release another beta when I finish each working section.

I read your post before you edited it…I understand you are a bit stressed, but…What is your real motivation for wanting to become an SRL member ? ..Even if you say things out of anger, this means they are still in the back of your mind…and if something to the affect " I really don't care if I become a member" is in the back of your mind…than I just have to wonder…

While you have applied with a nice script…this only part of the requirements…Attitude is a big deciding factor…you have already quoted B2C…He had a poor attitude…then played it cool until he got in…and look how it turned out ATM….

I hate to play Devil's Advocate here…but it's my job…I'm just trying to look out for the best interests of the community, and I hope you understand….

~RAM

BTW, I hold my vote as I always do… No sense committing to anything until you have all the facts ;)

I understand fully. I have often wondered why I want to be an SRL member…For a while I didn't care..If you have read my first app you would know that. However SRL IS the greatest community out there and if I want to be with great people in a great community I will have to be in SRL.

As far as I know it is in the back of my mind but I don't know why I said those things I know at the time I meant them but I hadn't thought things over. After I began thinking of how great this is and how he may have only meant for the better but how would I know that? I just insulted him before I knew anything, he obviously did something good to get into SRL.

RAM I 100% respect you and your decisions I will try to keep everything in check for now on.

P.S.: I'm not like b2c I'm in a few other communities about Unreal modding and stuff like that and Freddy seems to like me :P, so how bad can I be? Also b2c seems like more than an angry guy but overall a bad person…

Edit: It really sucks how I had to make that post but I guess it's for the best that you read it

Edit 2: In my first app I said it because, well I was going to make the PH include but now I'm thinking of taking the RS section out of my PH include and contributing to SRL.

Oh NOEZ! Why did you edit your posts? I think people need to read everything that happened, otherwise they will think I am some kind of lunatic. Listen, I was just trying to help you, and since I am not the most experienced scripter I wanted to see other peoples opinions first. I didn't mean anything personal, and I understand you were stressed. If you can, put the posts back the way they were.

From: Bourdou
Oh NOEZ! Why did you edit your posts? I think people need to read everything that happened, otherwise they will think I am some kind of lunatic. Listen, I was just trying to help you, and since I am not the most experienced scripter I wanted to see other peoples opinions first. I didn't mean anything personal, and I understand you were stressed. If you can, put the posts back the way they were.

Ahh I don't like it though I'm truly ashamed of them…I don't have it anyways…I realized I should have copied it. Don't worry I think people will know that I "spazed" out anyways. I REALLY don't like it how I posted that though…

I hope you understand I truly am sorry and I don't want somebody to get the wrong opinion about me because of that post.

P.S.: All I'm thinking is "aah this sucks what an amazing first post"

Edit: I really hope after I (If i) become a member that I can put this behind me…Damn, I was having such a good day too.

I voted yes. You seem to have a good attitude on Freddy's for the most part and I like you.

Yes.

From: Bam Bam
I voted yes. You seem to have a good attitude on Freddy's for the most part and I like you.

Hey Bam Bam (Thank god somebody I know), thanks!!

Hey guys I'll be looking at this post until 10PM EST unless my dad says otherwise…at 9 though I just need to do a little home work.

From: IEatJ00erBaybees
Yes.

Thank you!

I really wish I knew who/why they said no :(

Edit: In case some people were wondering why I was stressed, it's because of my parents bugging me about highschool and everything constantly lecturing me on it and everything. Oh ya and I might get my computer taken away for the entire school year because my dad doesn't think coding/scripting will help me at all in the future.

Don't worry dude, lol. Once tomorrow night pulls around, and you are on this streak of 7:1 (14-2 by tomorrow?), Fawki will come through and accept you.

From: IEatJ00erBaybees
Don't worry dude, lol. Once tomorrow night pulls around, and you are on this streak of 7:1 (14-2 by tomorrow?), Fawki will come through and accept you.

Hey sweet thanks :).

your script looks kool.

this is what we main if we say 'we're looking for some more advanced people' like you. and you got srl status in your script wich is realy nice to.

you got my yes.

Why did you make your own mouse procedure, you can't use it everywere, since all normal SRL routines use the MMouse.

Nice script. It's a yes from meh!

Yes from me.

yes from me.

From: Wizzup?
Why did you make your own mouse procedure, you can't use it everywere, since all normal SRL routines use the MMouse.

I didn't make it specifically for this script…I just temp-forgot how to do the procedure mmouse so I just put in perfectmouse because I was in a rush. I also think that it may be less detectable with 2 different mouse procedures going on.

I made it to see if Freddy would put it into SCAR and he is going to :).

Thanks guys :).

Patience, patience, any scripts shouldnt be done in a rush. And why didnt you just check MMouse's params from SRL? Or SRL Wiki BoreasEdit: Ctrl+space ftw!

I'll say yes ;)

From: n3ss3s
Patience, patience, any scripts shouldnt be done in a rush. And why didnt you just check MMouse's params from SRL? Or SRL Wiki BoreasEdit: Ctrl+space ftw!

The SRL 4 beta is VERY messy in a lot of spots…my SCAR wasn't responding for code hints…But it's not really a big deal really, if you guys want me to that badly I'll use mmouse.

Also why are people voting no without posting? It's really annoying.

Edit: Well I am usually in a rush with things with places to go and people to see…I like to finish things up and post an update. Also as I said before I carried on with the idea because of detectability reasons. I will change it though.

One suggerstion: I ran today, dropping takes FOR EVER…. :S if/when you update, make it drop a lot faster.

From: hy71194
One suggerstion: I ran today, dropping takes FOR EVER…. :S if/when you update, make it drop a lot faster.

The dropping isn't consistent with each computer…I'm going to make it be though, it's fast on my computer but I know from experience it isn't on others. I'm going to make it send reports after it drops the logs and not while it's dropping them.

Well after looking through your script I've noticed quite a few things, sadly, most of which are not good.

First of all, do you understand cases and what they are? They are a very useful tool when you need to set a specific parameter if they users sets a particular variable like in your "SetCB" procedure.

Yes, your standards aren't great but I won't criticize you much for that because when I applied I had horrible standards.

In your "FixRandoms" procedure you don't need to set bitmap mask, the procedures that use it already set it and free it, so your just wasting memory with that.

"ReceiveLogs" is really basic I don't think I really needed its' own procedure but thats just preference. Also I haven't tested yet but from looking at it, it looks like it will lag horrible due to a FixRandoms every 1/2 second.

Good job on PerfectMouse I'm glad that it's going to be implemented into SCAR it looks very useful. Ummm… doesn't look very "Humanized" from looking at the coding but I'd have to see it in action.

There is no SRL, which in most cases is an automatic "no" since it is a requirement, also there is poor multiplayer which is another requirement to become an SRL Member.

You really need to learn more before you can become an SRL member, and personally you don't even know cases… don't use SRL, and ppor Multiplayer, along with poor standards I honestly can't give you a yes.

So try and learn cases, look up proper standards, and use SRL, and better Multiplayer and I can pretty much guarantee you'll get in, but for now I'm going to vote No.

P.S. For those of you who voted yes, please look through some of the requirements to become an SRL Member. Even though he wants to become a Dev you need to start at the bottom and work up, even if you don't like, or want to, you have to.

Whoa, whoa whoa. I have Multi-player and it doesn't lag horribly. I know of cases and have a vague understanding of how to use them. I was told to place that bitmap mask thing in but I will remove it. I also have used SRL, that's what my script is based on…This seems really brutal I don't think you read my full script. I even used forms, I used every idea that came to mind.

Please tell me a specific important requirement that I missed.

BTW, thanks for posting why you said no, it really means a lot.

Edit: It's annoying how people will vote no without posting :(

Edit2: I started 1 years and 1 months ago, I can script anything I want to so far…

Well, its not necissarily that you didn't use multi player I just feel that it isn't used effectively. I'll change that in my above post to be more clear. Also your welcome, I feel that it is important for people to learn from their mistakes.

Also for using SRL, your script doesn't need to be based off of SRL it must use SRL and SRL functions.

From: Special Ed
Well, its not necissarily that you didn't use multi player I just feel that it isn't used effectively. I'll change that in my above post to be more clear. Also your welcome, I feel that it is important for people to learn from their mistakes.

Also for using SRL, your script doesn't need to be based off of SRL it must use SRL and SRL functions.

I did most of the time though…A lot of colour finding procedures were too over-done and game me run-time errors in SRL 4 Beta…I just tried to make things simple…I know quite a bit about SRL but I'm not perfect, nobody is. I know lots more just about scripting in general…Lets put it this way, most of the time I find it easier without a partner but it's always nice to have one. Somebody to talk to, somebody to help when I get frustrated.

I see SRL like that, a great community with great scripters, that's where I want to be for sure. I want to be with good people with great skills who I can relate with instead of being stuck around with the leachers for the rest of my life. I need somewhere to go and I'm a forumer (As Freddy has noticed), I love Freddy1990.com, I check the forums every day and I have read every post except maybe 21.

I feel I could make a great contribute to this community and I hope others feel the same way.

Edit: My multi-player has it's functional use, nothing more nothing less. I think the script is almost everything it needs to be for a non-member script ;).

procedure regular1(sender: TObject);
begin
  if regular = false then
  begin
    regular:= true
    exit;
  end;
  if regular = true then
  begin
    regular:= false
    exit;
  end;
end;

procedure oak1(sender: TObject);
begin
  if oak = false then
  begin
    oak:= true
    exit;
  end;
  if oak = true then
  begin
    oak:= false
    exit;
  end;
end;

procedure willow1(sender: TObject);
begin
  if willow = false then
  begin
    willow:= true
    exit;
  end;
  if willow = true then
  begin
    willow:= false
    exit;
  end;
end;

procedure yew1(sender: TObject);
begin
  if yew = false then
  begin
    yew:= true
    exit;
  end;
  if yew = true then
  begin
    yew:= false
    exit;
  end;
end;

Those can all be combined into one case:

procedure AtClick(sender: TObject);
begin
  case Sender of
    CheckBox2: if (Regular) then Regular := False else Regular := True;
    CheckBox3: if (Oak) then Oak := False else Oak := True;
    CheckBox4: if (Willow) then Willow := False else Willow := True;
    CheckBox5: if (Yew) then Yew := False else Yew := True;
  end;
end;

Hell, you could just make it into a ComboBox instead of a CheckBox. You can use cases with RadioBox's too.

On the progress report you could if used TimeRunning from Timing.scar.

if burnlogs1 = true then —> if burnlogs1 then, looks nicer. Same with all booleans.

You can start using MSX1, MSY1, etc.

procedure recievelogs;
var waited: integer;
begin
  waited:= 0
  repeat
    status('Waiting for logs');
    wait(500 + random(500));
    waited:= waited + 1;
    status('Checking/fixing randoms');
    fixrandoms;
  until((finddtm(yougetsome, xx, yy, 13, 440, 268, 458))or(finddtm(yourinv, xx, yy, 13, 440, 268, 458))or(waited = 20))
end;

Do you want that to result true everytime there is a log in your inventory, instead of only when there is a new log in your inventory?

procedure fixrandoms;
begin
  NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
  findnormalrandoms;
  findfastrandoms;
  if findfight then
  begin
    writeln('You are under attack');
    runto('n', true);
    status('Under attack, running away');
  end;
  if finddtm(lvltouse, xx, yy, 9, 442, 495, 458) then
  begin
    writeln('You lost all your axes, logging out...');
    lost:= lost + 1
    reportvars[2]:= 1
    reports;
    logout;
  end;
end;

Make the nickname bitmap everytime that procedures is called will cause alot of lag. Everything in FindFastRandoms is in FindNormalRandoms which also causes extra lag.

if ran = true then
    begin
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, true);
    end;

Looks better —>

if ran then perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, true);

The way you set up multiplayer is very confusing, and hard to explain why it's not right. Read some other scripts and you should catch on to how it should be used.

"if users = 0 = false then" —> "if not users = 0 then"

SetupSRL;
  ScriptID:= '243';
  SafeInitForm;
  SafeShowFormModal;
  setup;
  pin:= edit1.text
  setcb;
  movetotray;
  FindWindowBySize(766, 504)
  activateclient;
  mcbox(521, 5, 551, 432, true);
  status('Logging in and setting up');
  LoginPlayer;
  wait(1000 + random(1000));
  makecompass('N');
  HighestAngle;
  fixchat;

Having all that in the main loop is just ugly. Have a separate setup
procedure.

I skipped around alot and didn't cover the whole script, but those are some specific things to work on. You know alot about Scar, you just need to iron out the small things into your brain like standards. Make sure you understand the functions and procedures you use.

I might vote, I havn't decided.

I've very new with forms…Also a combo box…Let me see what that is…(I didn't read any tutorials except Freddy's), no…because I want people to be able to pick more than one option…Receive logs checks to see if there is a log in the last slot so it knows not to wait…I've acknowledged that I need "NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);" out already…I don't see:

if ran = true then
    begin
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, true);
    end;

Oh, I found it…I need to fix that, it's in at least 2 spots, I don't know why I did that…oh I remember, it used to be longer but I made perfectmouse so now it's shorter, I've had it for a while before this script was for SRL, I'll fix that.

[offtopic]Fix chat doesn't work :([/offtopic] I know it looks pretty bad on the main loop, I'll make a setup procedure for everything.

Thanks for the comments :).

Boreas, whats the meaning of that CTRL + Space? For me it just moves 3 things from task bar to tray?

Oh noe, boreas are you saying that you have tons of scar windows open always so you press CTRL + Space?

lol, and by the way, you have no idea how to do a pretty edit :)

This is how the true masters do it

Lol, I wonder do I have enough avatar space to put that there…

From: n3ss3s
Boreas, whats the meaning of that CTRL + Space? For me it just moves 3 things from task bar to tray?

Oh noe, boreas are you saying that you have tons of scar windows open always so you press CTRL + Space?

lol, and by the way, you have no idea how to do a pretty edit :)

If you remove all CTRL SPACE shortcuts from all other running applications, and then press it in SCAR, it bring up the auto complete menu with the parameters each function uses


A very useful tool

Lol, I prefer typing "." in scar without the quotes.

SB got pwnzzled



Anyways I remember the params of everything I use :)

n3ss, don't use that damn irritating edit pic plz?

Typing "." in SCAR only works when you are using types, and not when you want to see the auto complete menu.

I hope you haven't tried typing in "FindColorSpir." and waiting for the auto complete menu to appear. It just won't happen.

Besides, he asked what was CTRL SPACE used for, and i answered.

Now we are going off topic, lets discuss TGWGO's SRL Member app. If you would like to continue this discussion, make a new thread in the appropriate board.

Thank you

Yeayea, *cough* Look whos talkin *cough* :D :D :D Jk/Jk

Yea back on topic

Well, I think in the course of this thread, you've actually learnt to take constructive criticism =)

Perfect mouse looks great, script looks great, you seem like a very nice person. I think you deserve membership. It's a yes from me.

101% yes, but why for is SRL made, you can do lots of things easyer, use Srl Manual… some functions are removed after srl 4 release, so if it gives unknown identifer open file where function is located to and be sure its there… else you need to make it yourself:)

Thanks guys, [offtopic]and you guys are noobs for not using the off topic tags :P[/offtopic] I hope this all plays out nicely :).

This time I am going to vote no. You have a decent knowledge of how Scar works and you tried your best to use at least a few procedures from the SRL, but I don't think you understand everything you're using. Either you had some help with the script, you took some procedures from other scripts, or you kept trying different things until they worked.

Start by moving to the intermediate tutorials forum, then apply again in a month. I don't think you will have a problem becomming an SRL member in the future, but I think you are giving yourself too much credit so far.

From: Town
This time I am going to vote no. You have a decent knowledge of how Scar works and you tried your best to use at least a few procedures from the SRL, but I don't think you understand everything you're using. Either you had some help with the script, you took some procedures from other scripts, or you kept trying different things until they worked.

Start by moving to the intermediate tutorials forum, then apply again in a month. I don't think you will have a problem becomming an SRL member in the future, but I think you are giving yourself too much credit so far.

Why do you think I needed help or tried 100 times? I've read lots of the manual and it's not up-to-date with even SRL 3.8 and I still ended up getting it, or I would just read through the files in SRL.

Not everybody gets an SRL script right their first time you know…I'm annoyed how it's based on SRL coding when if I know SCAR well and have enough knowledge to be confident in scripting with it I think that should be fine. I can use SRL and have used it how I was told to on my last app, do you want me to make it perfect or something?

Edit: By the way, why are you so sure that I won't get in? I have 17 yes and 7 no…?

Edit2: I didn't try my best…I don't want to give anything with my best away to leachers…But I can honestly say that you're right, basically all I used was multi-player and anti-randoms. What else do you want me to use? I have a bad/good habit of doing everything myself and asking questions later.

Edit3: I also used like chooseoption and banking…

From: TheGuyWhoGotOn
Why do you think I needed help or tried 100 times? I've read lots of the manual and it's not up-to-date with even SRL 3.8 and I still ended up getting it, or I would just read through the files in SRL.

Not everybody gets an SRL script right their first time you know…I'm annoyed how it's based on SRL coding when if I know SCAR well and have enough knowledge to be confident in scripting with it I think that should be fine. I can use SRL and have used it how I was told to on my last app, do you want me to make it perfect or something?

Edit: By the way, why are you so sure that I won't get in? I have 17 yes and 7 no…?

1. you're annoyed that becoming an SRL Member is based on SRL coding. Doesn't make sense.

2. 99% - you will get in

Lol I know it's weird but if I know coding than I'm pretty confident that SRL should be easy, I've used SRL in my script (obviously) so do I need to know the entire include off by heart? Well I guess I don't because more people are voting yes but ti's so hard to make some people happy :P.

From: TheGuyWhoGotOn
Why do you think I needed help or tried 100 times? I've read lots of the manual and it's not up-to-date with even SRL 3.8 and I still ended up getting it, or I would just read through the files in SRL.

Not everybody gets an SRL script right their first time you know…I'm annoyed how it's based on SRL coding when if I know SCAR well and have enough knowledge to be confident in scripting with it I think that should be fine. I can use SRL and have used it how I was told to on my last app, do you want me to make it perfect or something?

Edit: By the way, why are you so sure that I won't get in? I have 17 yes and 7 no…?

I didn't say that you weren't going to get in. I don't think that you should get in, and I do think that you should move to the intermediate section of Tutorial Island. I thought I was being helpful in that.

I think that you have gotten help because you don't understand all of the procedures you made. Clearly you don't understand forms very well, you also have wasted procedures (maybe to make your script longer, or else because you don't know how to work without them). I don't think you understand cases, at all.

(I just noticed this):

until((finddtm(yougetsome, xx, yy, 13, 440, 268, 458))or(finddtm(yourinv, xx, yy, 13, 440, 268, 458))or(waited = 20))

That confused me before because you start looking for the DTM at (13, 440). What good does that do besides make Scar look for the DTM in places it doesn't have to?

Another reason I don't think you understand your procedures is because you have MSColor and ClickMSColor (neither of which do all that much). MSColor is not used in ClickMSColor? Same with InvColourTol.

Dropping procedure could be much better using InvBox and ExistsItem, etc.

if (regular = true)and(findoption(' Lo')) then
  begin
    chooseoption(' Lo');
    result:= true;
  end;
  if (oak = true)and(findoption(' Oa')) then
  begin
    chooseoption(' Oa');
    result:= true;
  end;
  if (willow = true)and(findoption(' Wi')) then
  begin
    chooseoption(' Wi');
    result:= true;
  end;
  if (yew = true)and(findoption(' Ye')) then
  begin
    chooseoption(' Ye');
    result:= true;
  end;

That's horrid.

Another note, use "if not ()" instead of "if () = false".

If this is your first SRL script (you said if it was your first time, I'm not sure how to interprete that) then I definately don't think you should be an SRL member yet. If you think that scripting using the SRL is annoying then stay over at Freddy's site. I'm not saying it's bad forum (which it definately isn't), but these are the SRL Forums. Good luck in the future.

Honestly right now with the way things have been going you'll probably get in its just we've been getting some "inadequate" people in SRL Members and personally I think they haven't been around long enough or have high enough standards to vote, before I though SRL Members was next to impossible to get into, I thought it would be a great feat to accomplish, and in the time I've been here, I've noticed the deterioration of Applications, except a few. I'm not saying that your a horrible scripter I just think you need more experience before you can be an SRL Member.

Please although it doesn't say I'm that active and yes I do have a low post count but 99% of my post are either helpful or asking for some help / discussing some relevant to SRL.

From: Special Ed
Honestly right now with the way things have been going you'll probably get in its just we've been getting some "inadequate" people in SRL Members and personally I think they haven't been around long enough or have high enough standards to vote, before I though SRL Members was next to impossible to get into, I thought it would be a great feat to accomplish, and in the time I've been here, I've noticed the deterioration of Applications, except a few. I'm not saying that your a horrible scripter I just think you need more experience before you can be an SRL Member.

Please although it doesn't say I'm that active and yes I do have a low post count but 99% of my post are either helpful or asking for some help / discussing some relevant to SRL.

Special been here longer than me, and i've been here awhile. Also i do think members is alot easier to accomplish now than it was

[offtopic] Really I think with the large influx of people we should make Members at least a little more difficult to enter, or at least bring it back to the way it was.[/offtopic]

On topic however I'd like it if you TGWGO, would do two things for me… if its not too much to ask.

First: Please look up cases in the tutorial section if you haven't already, it would benefit you greatly. Also check how if(Function)then works, not if(Function = True)then… since that is improper "grammar".

Second: Use SRL, please… although you want to be a dev, and you think its easy to use it, please just use SRL completely in a script, use a lot of SRL function / procedure and make it so it looks like you know what all of the functions do in SRL, because to me being an "SRL" Member means you know "SRL" pretty well.

From: Town
I didn't say that you weren't going to get in. I don't think that you should get in, and I do think that you should move to the intermediate section of Tutorial Island. I thought I was being helpful in that.

I think that you have gotten help because you don't understand all of the procedures you made. Clearly you don't understand forms very well, you also have wasted procedures (maybe to make your script longer, or else because you don't know how to work without them). I don't think you understand cases, at all.

(I just noticed this):

until((finddtm(yougetsome, xx, yy, 13, 440, 268, 458))or(finddtm(yourinv, xx, yy, 13, 440, 268, 458))or(waited = 20))

That confused me before because you start looking for the DTM at (13, 440). What good does that do besides make Scar look for the DTM in places it doesn't have to?

Another reason I don't think you understand your procedures is because you have MSColor and ClickMSColor (neither of which do all that much). MSColor is not used in ClickMSColor? Same with InvColourTol.

Dropping procedure could be much better using InvBox and ExistsItem, etc.

if (regular = true)and(findoption(' Lo')) then
  begin
    chooseoption(' Lo');
    result:= true;
  end;
  if (oak = true)and(findoption(' Oa')) then
  begin
    chooseoption(' Oa');
    result:= true;
  end;
  if (willow = true)and(findoption(' Wi')) then
  begin
    chooseoption(' Wi');
    result:= true;
  end;
  if (yew = true)and(findoption(' Ye')) then
  begin
    chooseoption(' Ye');
    result:= true;
  end;

That's horrid.

Another note, use "if not ()" instead of "if () = false".

If this is your first SRL script (you said if it was your first time, I'm not sure how to interprete that) then I definately don't think you should be an SRL member yet. If you think that scripting using the SRL is annoying then stay over at Freddy's site. I'm not saying it's bad forum (which it definately isn't), but these are the SRL Forums. Good luck in the future.

It looks for the DTM in the chat area…how is that useless at all? "If not ()" instead of "if () = false", why? It looks better and I'll get more confused…I really don't see why I should do something like that because it looks better or it's "proper grammar".

I used MScolour and all the others you listed there…without declaring the procedures the script would be much longer. Every version of this script was shorter than the next. How could my script possibly be longer with using those?

InvBox isn't in the manual I'll look for it…No, I won't use that, that would just drop everything from what I see…I could just use "dropall", I need it to only drop logs…not axes and anything else it came up with. Check the older versions of the script, it used to be morel like that.

When you were talking about my dropping procedure you showed me my firemaking procedure, it MUST have that just incase it can't burn the logs. I could make it look for chat text but I prefer to have it that way, more human-like instead of trying to burn everything.

Special Ed:

I normally don't have "if function = true" please tell me where I have that, I understand how it works.

Also on a more accurate note, this isn't my first SRL script, it's my first SRL script that is more than 200 lines long I guess. Maybe my third or so. So my first one that I've make in a year.

Ummm there are a couple more instances but this is the first that caught my eye.

procedure clickmscolour(colour: integer; left, ran: boolean);
var xx, yy: integer;
begin
  if findcolor(xx, yy, colour, 4, 4, 515, 337) then
  begin
    wait(100 + random(200));
    if ran = false then
    begin
      perfectmouse(xx, yy, 0, 0, 2, 2, 2, 2, true);
    end;
    if ran = true then
    begin
      perfectmouse(xx, yy, 3, 3, 2, 2, 2, 2, true);
    end;
  end;
end;

instead of if(ran = true)then you could type if(ran)then same with if(ran = false)then could be if(not(ran))then I guess it is just preference but I think it looks nicer and is easier to read as well as shorter to type it the way I showed you. This is just a little thing, but when I read through your code it kind of bugs me… lol.

From: TheGuyWhoGotOn
It looks for the DTM in the chat area…how is that useless at all? "If not ()" instead of "if () = false", why? It looks better and I'll get more confused…I really don't see why I should do something like that because it looks better or it's "proper grammar".

Oh, I understand it now. I didn't know what it was a DTM of. If you keep doing if () = false then it will mess you up in the future if something does not result false and results nothing instead.

From: TheGuyWhoGotOn
I used MScolour and all the others you listed there…without declaring the procedures the script would be much longer. Every version of this script was shorter than the next. How could my script possibly be longer with using those?

You should have used MSColor inside ClickMSColor. Reread what I said.

From: TheGuyWhoGotOn
InvBox isn't in the manual I'll look for it…No, I won't use that, that would just drop everything from what I see…I could just use "dropall", I need it to only drop logs…not axes and anything else it came up with. Check the older versions of the script, it used to be morel like that.

InvBox only results the coordinate of the inventory slot. It doesn't drop for you.

From: TheGuyWhoGotOn
When you were talking about my dropping procedure you showed me my firemaking procedure, it MUST have that just incase it can't burn the logs. I could make it look for chat text but I prefer to have it that way, more human-like instead of trying to burn everything.

I pointed out your firemaking procedure because it takes up ten more lines than it has to. Use a case.

From: TheGuyWhoGotOn
Special Ed:

I normally don't have "if function = true" please tell me where I have that, I understand how it works.

You have it pretty much everywhere, use Ctrl + F.

From: TheGuyWhoGotOn
…I'm annoyed how it's based on SRL coding when if I know SCAR well and have enough knowledge to be confident in scripting with it I think that should be fine.

Once again, there is no denying you have a lot of talent…but your comments really make me wonder…this is an SCAR/SRL community…. If you want to just use SCAR and make your own procedures, No one will stop you, but I don't see how this benefit this community.

~RAM

From: RAM_RUNE
Once again, there is no denying you have a lot of talent…but your comments really make me wonder…this is an SCAR/SRL community…. If you want to just use SCAR and make your own procedures, No one will stop you, but I don't see how this benefit this community.

~RAM

I wanna be a dev, of course I need to learn more SRL to get the full inside of SRL besides the essentials. All of my scripts for now on will be using SRL and I'm working on a big script (As previously posted) that will put my skills to the test and I'm hoping to help the community with it.

I hope to maybe get other people to add their own ideas to it too because if I want a project to help the community I should maybe allow other people to contribute and be credited.

@Town:

Well, I normally want it to return true or false and if it doesn't I'de like an error.

I used to have the ms function in itself…I may do it again but I prefer having two separate functions/procedures.

If I used those for the inventory then wouldn't I have to use Uptext which seems to slow things down?

I admit, I don't understand cases well enough to do that :(.

I'll fix all of my true's then, sorry.

(Everything is in order sorry for not quoting)

Edit: I think it should be mandatory for people to post why they said no because how will anybody improve if they don't know how to?

You suck at everything!!!!! I vote no!!!! (look to the bottom left i put something in white color font)






JK, great job! i voted yes :D

From: Timothegreat
You suck at everything!!!!! I vote no!!!! (look to the bottom left i put something in white color font)






JK, great job! i voted yes :D

Lol thanks! I was like, it looks a little too dramatic for an SRL Member so I thought you were joking lol.

Why do you do that???? Seriously though. This has gotten to be quite the controversial application lol.

TheGuyWhoGotOn, is by far, smarter than many of the people who get accepted.

He obviously has some differences in style and preference when it comes to scripting, but I feel that he shows talent in what he has done as well as a desire for the best of futures to the SCAR communities.

Being a great scripter is not the only quality looked for in an SRL Member.

From: Bourdou
Why do you do that???? Seriously though. This has gotten to be quite the controversial application lol.

[offtopic]Yes it has lol it has :P, people keep forgetting their offtopic tags :P. I wish I could give away noob points :P[/offtopic]

Give away noob points to members, and then say goodbye to being a member ;)

edit: adding offtopic tags:

begin
if(textbelow=offtopic)then
begin
y:=y-1; //going one line up from when the offtopic starts
sendkeys('[offtopic]');
repeat
y:=y+1;
until(textbelow<>offtopic);
end;
end;

that should do it


[offtopic]
i think its healthy to show a certain amount of disrespect to your seniors :P

note: i said "certain" amount.
a certain… very small amount(unless you are special, like a hobbit)

oops, i forgot the offtopic tags…
[/offtopic]

[offtopic]Haha Hobbit. BTW elemental, Standards! See that is my certain amount of disrespect to you, because I think I read something that said you were uber 1337. [end of offtopicness?]

In.