SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?



What is your general programming knowledge?
Pascal And extremely limited Java


Are you a member of any other communities?
Sythe Profile Link : http://www.sythe.org/member.php?u=300079


Tell us about yourself…

From: Evlin
Name: John
Interests: computers, Simba Scripting, runescape and Fast paced sports.
I am 15 years old.
Australian
I have Been In the botting scene since the start of 2011, January.
Trying To Achieve Cert 3 I.T. at school.
Like Flying RC Planes(just Getting Into It)

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

program EvlinsGildedAltarReMade;//V4 By Evlin
{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i sps/sps.simba}
{$i srl/srl/skill/summoning.simba}

//Been Working on this For Numerous Hours, Getting It To The Standards.

{______________ONLY HAVE ONE KIND OF BONES IN THE TAB YOU ARE USING____________}
const
{______________________________Script Setup____________________________________}

//Player Setup
UserLogin = 'fakeman@hotmail.com';         //RuneScape Username
UserPassword = 'fake';      //Runescape Password
Pin = '';               //Bank Pin, Leave blank if none.

//Summoning
UseSummoning = 'yes';      //yes Or no?
WhatFamiliar = '0' ;         { Type in one of the Following:
                           * 0 = Terror Bird
                           * 1 = War Tortoise}
//BoneType
TypeOfBones = '3';  { Type in one of the Following:
                           * 0 = Dragon Bones
                           * 1 = BabyDragonBones
                           * 2 = FrostDragon Bones
                           * 3 = Big Bones

____________________________END OF SCRIPT SETUP________________________________}
var
Herb, BoneDTM, BonesForRun, XpForRun, BoneSacraficed, ExpGained, TripNumber: integer;
SummoningColour, PouchDTM, ExtraBones, ExtraXp, ExtraXp1: integer;
BoneName, PouchName, UpTextx: String;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := UserLogin;
  Players[0].Pass := UserPassword;
  Players[0].Active := True;
  Players[0].Pin := Pin;
end;


Procedure SummoningValues;
begin
    Case Lowercase(WhatFamiliar) of
    '0' :
         begin
           UpTextx:= 'pirit';
           SummoningColour:= 10653323;
           PouchDTM:= DTMFromString('mggAAAHicY2NgYBBkYmAQAmIxIJYAYikglgPiw0C5c0B8AoiPAPEBID4JxBYmBkCSiUFXTQ6Me1yFwXwQiQ0z4sAQAACoSwgg');
           PouchName:= 'TerrorBird';
           ExtraBones:= 12;
         end;
   '1':
         begin
           UpTextx:= 'ort';
           SummoningColour:= 3637174;
           PouchDTM:= DTMFromString('mggAAAHicY2NgYLBjYmCwAmI3ILYHYk8gdgTifUC5c0B8GIiPA/FpID4LxLcvXQSSTAxFXgIMs8v0wWwQFgaS2DAjDgwBAMZfC1A=');
           PouchName:= 'War Tortise';
           ExtraBones:= 18;
         end;
    end;
end;


Procedure BoneValues;
begin
    Case Lowercase(TypeOfBones) of
    '0' :
         begin
            BoneDTM := DTMFromString('mlwAAAHicY2dgYOBjYmAQAGJhIBYBYikglgViSSDeD5Q/AsTHgfg0EJ8C4mNAfAiI61tagSQTViwCJHFhRjwYCgBFZAg5');
            BoneName:= 'DragonBones';
            XpForRun:= 6300;
            BonesForRun:= 25;
            ExtraXp:= 3024;
            ExtraXp1:= 4536;
         end;
   '1':
         begin
            BoneDTM := DTMFromString('mlwAAAHicY2dgYLBmYmBwA2JHILYBYgcgdgZiFyCeDJSfCcQzoHgeEM8B4mlAvHDWLCDJhBWLAElcmBEPhgIAfc4Iew==');
            BoneName:='BabyDragonBones';
            XpForRun:= 2625;
            BonesForRun:= 25;
            ExtraXp:= 1260;
            ExtraXp1:=  1890;
         end;
   '2':
         begin
            BoneDTM := DTMFromString('mlwAAAHicY2dgYOBjYmAQAGJhIBYBYikglgViSSDeD5Q/AsTHgfg0EJ8C4mNAfAiI61tagSQTViwCJHFhRjwYCgBFZAg5');
            BoneName:='FrostDragonBones';
            XpForRun:= 15750;
            BonesForRun:= 25;
            ExtraXp:= 7560;
            ExtraXp1:= 11340;
         end;
   '3':
         begin
            BoneDTM := DTMFromString('mlwAAAHicY2dgYLBmYmBwA2JHILYBYgcgdgZiFyCeDJSfCcQzoHgeEM8B4mlAvHDWLCDJhBWLAElcmBEPhgIAfc4Iew==');
            BoneName:='BigBones';
            XpForRun:= 1300;
            BonesForRun:= 25;
            ExtraXp:= 624;
            ExtraXp1:= 936;
         end;
    end;
end;


Procedure ProgressReport;
begin
  WriteLn('_______Evlins Gilded Altar______');
  WriteLn('Time Ran For ' + TimeRunning + '');
  WriteLn('You Have Gained ' + IntToStr(ExpGained) + ' Prayer xp');
  WriteLn('You Have Sacraficed ' + IntToStr(BoneSacraficed) + ' ' + (BoneName));
  WriteLn('You Have Done ' + IntToStr(TripNumber) + ' Trips');
  WriteLn('________________________________');
end;


procedure WalkToBankBackUp;
var
x, y: integer;
begin
  SymbolAccuracy := 0.5;
  if FindSymbol(x, y, 'bank') then
  MMouse(x, y, 2, 2);
  ClickMouse2(True);
  SymbolAccuracy := 0.8;
  FFlag(1);
  Wait(500+random(500));
end;


procedure WalkToBank;
begin
 SPS_Setup(RUNESCAPE_SURFACE, ['10_6'])
    SPS_Continue := true;
 if SPS_WalkPath([Point(4181, 2649), Point(4182, 2655), Point(4182, 2662),
    Point(4183, 2670), Point(4184, 2676), Point(4192, 2678), Point(4199, 2680),
    Point(4207, 2681), Point(4211, 2684)]) then
    begin
      FFlag(2);
      Wait(1000 + Random(200));
    end else
    begin
      WalkToBankBackUp;
    end;
end;


function UseBankNPC: Boolean;//Aegis not mine.
var
  bx, by, Speed, ColFace, ColGrey, ColBlue, ColHair, t: Integer;
begin
  Result := (LoggedIn) and (BankScreen or PinScreen);
  if (Result) then exit;
  Speed := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  ColFace := 7842002;
  ColGrey := 8883597;
  ColBlue := 5322302;
  ColHair := 1714479;
  if (FindObjThroughMM(bx, by, 'npc', [ColFace, ColBlue, ColGrey, ColHair], [5, 5, 5, 5],
    ['ounter', 'se Co', 'anke', 'to B', 'Banker', 'nker'], 2, 2)) then
  begin
    Mouse(bx, by, 0, 0, False);
    if (WaitOptionMulti(['kly Co', 'se-qu', 'ank B', 'Bank Banker', 'ank', 'nker'], 750)) then
    begin
      t := (GetSystemTime + 5000);
      repeat
        if (BankScreen) or (PinScreen) then
        begin
          Result := true;
          Break;
        end;
        Wait(50);
      until(GetSystemTime > t);
      if (Length(Players) > 0) then
        if ((PinScreen) and (Players[CurrentPlayer].Pin <> '')) then
          InPin(Players[CurrentPlayer].Pin);
      Result := (BankScreen) or (PinScreen);
    end;
  end;
  ColorToleranceSpeed(Speed);
end;


procedure Bank1;
var
x, y: integer;
aFound: extended;
begin
  repeat
    UseBankNPC;
  until(BankScreen) or (PinScreen);
  if (PinScreen) then
    begin
      InPin(Pin);
    end;
      If (BankScreen) then
      Wait(1300+random(50));
          if FindDTMRotated(BoneDTM, x, y, 26, 84, 480, 292, -Pi/4, Pi/4, Pi/60, aFound) then
              begin
                Writeln('Found the ' + BoneName);
                MMouse(x, y, 7, 7);
                ClickMouse2(False);
                Wait(450+random(25));
                ChooseOption('All');
                Wait(450+random(25));
              end else
              begin
                WriteLn('You Have No ' + BoneName + '!');
                TerminateScript;
                FreeDTM(BoneDTM);
              end;
        CloseBank;
        FreeDTM(Herb);
end;


procedure Bank;
var
x, y: integer;
aFound: extended;
begin
   Herb := DTMFromString('mggAAAHicY2NgYNgJxPuAeD8QbwPiw0B8HIinAfFUIJ4HxHOBeA4QTwZibl8eIMmEgSWBJDbMiANDAACM8Akc');
  repeat
    UseBankNPC;
  until(BankScreen) or (PinScreen);
  if (PinScreen) then
    begin
      InPin(Pin);
    end;
      If (BankScreen) then
      Wait(1300+random(50));
       begin
          if FindDTM(Herb, x, y, 26, 84, 480, 292) then
            begin
              Writeln('Found The Marrentill');
              MMouse(x, y, 7, 7);
              ClickMouse2(True);
              Wait(375+random(50));
              ClickMouse2(true);
              Wait(375+random(50));
            end else
            begin
              Writeln('You Have No Marrentill!');
              TerminateScript;
              FreeDTM(Herb);
            end;
          if FindDTMRotated(BoneDTM, x, y, 26, 84, 480, 292, -Pi/4, Pi/4, Pi/60, aFound) then
              begin
                Writeln('Found the ' + BoneName);
                MMouse(x, y, 7, 7);
                ClickMouse2(False);
                Wait(450+random(25));
                ChooseOption('All');
                Wait(450+random(25));
              end else
              begin
                WriteLn('You Have No ' + BoneName + '!');
                TerminateScript;
              end;
        end;
        CloseBank;
        FreeDTM(Herb);
end;


procedure TeleToHouse;
begin
 if (BankScreen) then
 begin
   CloseBank;
   Wait(500+random(100));
 end;
  begin
    InvMouse(1, 1);
    Wait(6750+random(1000));
  end;
end;


function DoorColour: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.27, 0.95);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 10.09) and (X <= 16.08) and (Y >= 10.47) and (Y <= 16.07) and (Z >= 7.71) and (Z <= 10.86) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

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

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


procedure OpenDoor;
var
x, y: integer;
Begin
  ClickNorth(SRL_ANGLE_HIGH);
  begin
    if FindObjTPA(x, y, DoorColour , 3, 1, 70, 80, 130, ['oor']) then
    begin
      MMouse(x, y, 0, 0);
      ClickMouse2(True);
      Flag;
      Wait(700+random(75));
      MouseBox(250, 40, 268, 73, 1);
      Flag;
      Wait(2000+random(75));
    end else
      begin
        WriteLn('Could Not Find The Door, Terminating Script');
        TerminateScript;
      end;
    end;
end;



procedure TeleToBank;
var
x, y: integer;
begin
  if FindColorTolerance(x, y, 7114144, 49, 23, 92, 50, 10) then
  begin
  MMouse(x, y, 0, 0);
  Wait(280+random(250));
  ClickMouse2(true);
  Flag;
  Wait(2300+random(200));
  MouseBox(223, 381, 301, 387, 1);
  Wait(7000+random(250));
  end else
  begin
    WriteLn('Did not Find Amulet, Are You Sure You Have One?');
    TerminateScript;
  end;
end;


procedure RightBurner;
var
x, y: integer;
begin
  if FindColorTolerance(x, y, 2409718, 313, 48, 413, 180, 10) then
  begin
    WriteLn('Found Right Burner, Lighting.');
    MMouse(x, y, 0, 0);
    Wait(200+random(50));
    ClickMouse2(True);
    Flag;
    Wait(3000+random(120));
    if FindBlackChatMessage('ncense') then
    begin
      WriteLn('The Right Burner Is Lit');
    end else
      begin
        WriteLn('I dont Think the Burner Is Lit, Just Incase, starting over.');
        TeleToBank;
      end;
    end;
end;


procedure LeftBurner;
var
x, y: integer;
begin
  if FindColorTolerance(x, y, 2409718, 33, 89, 104, 158, 10) then
  begin
    WriteLn('Found Left Burner, Lighting.');
    MMouse(x, y, 0, 0);
    Wait(200+random(50));
    ClickMouse2(True);
    Flag;
    Wait(3000+random(120));
    if FindBlackChatMessage('ncense') then
    begin
      WriteLn('The Left Burner Is Lit');
    end else
      begin
        WriteLn('I dont Think the Burner Is Lit, Just Incase, starting over.');
        TeleToBank;
      end;
    end;
end;


function Book: Integer;
var
  arP: TPointArray;
  arC: TIntegerArray;
  tmpCTS, i, arL: Integer;
  X, Y, Z: Extended;
begin
  tmpCTS := GetColorToleranceSpeed;
  ColorToleranceSpeed(2);
  SetColorSpeed2Modifiers(0.35, 0.25);

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

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

  for i := 0 to arL do
  begin
    ColorToXYZ(arC[i], X, Y, Z);

    if (X >= 28.19) and (X <= 40.02) and (Y >= 29.35) and (Y <= 41.59) and (Z >= 34.29) and (Z <= 49.10) then
    begin
      Result := arC[i];
      Writeln('AutoColor = ' + IntToStr(arC[i]));
      Break;
    end;
  end;

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

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


procedure Altar;
var
x, y: integer;
begin
  if FindObjTPA(x, y, Book , 10, 1, 5, 10, 12, ['tar']) then
  begin
    WriteLn('Found Altar, Sacraficing.');
    MMouse(x, y, 7, 7);
    ClickMouse2(true);
  end else
  begin
    WriteLn('Did not Find The Altar, Terminating Script.');
    TerminateScript;
  end;
end;


Procedure Sacrafice;
begin
  InvMouse(9, MOUSE_RIGHT);
  Wait(300+random(120));
  ChooseOption('Use');
  Altar;
  Flag;
  Wait(1700+random(200));
  MouseBox(234, 404, 284, 453, MOUSE_LEFT);
end;


procedure Using;
begin
 WriteLn('Sacrificing...');
 repeat
   Wait(500);
 until(InvCount = 1);
 WriteLn('Finished Sacrificing, Banking.');
 BoneSacraficed := BoneSacraficed + BonesForRun;
 ExpGained := ExpGained + XpForRun;
 TripNumber := TripNumber + 1;
end;


procedure Renew;
var
x, y, SPot: integer;
aFound: extended;
begin
  SPot := DTMFromString('mbQAAAHicY2VgYHjEyMDwCojfAvFTIL4DxDOB4jOAeB4QLwbiRUAsd+0ukGRCwcJAEh0zYsFgAAAm4gnW');
    if FindDTMRotated(SPot, x, y, 26, 84, 480, 292, -Pi/4, Pi/4, Pi/60, aFound) then
    begin
      MMouse(x, y, 0, 0);
      Wait(500+random(50));
      ClickMouse2(true);
      Wait(700+random(25));
    end;
    if FindDTMRotated(PouchDTM, x, y, 26, 84, 480, 292, -Pi/4, Pi/4, Pi/60, aFound) then
    begin
      MMouse(x, y, 0, 0);
      Wait(500+random(50));
      ClickMouse2(False);
      WaitOption('ummon', 400);
      Wait(3500+random(500));
      end;
   FreeDTM(PouchDTM);
   FreeDTM(SPot);
end;



procedure RenewFamiliar;
var
x, y, SPot: integer;
aFound: extended;
begin
SPot := DTMFromString('mbQAAAHicY2VgYHjEyMDwCojfAvFTIL4DxDOB4jOAeB4QLwbiRUAsd+0ukGRCwcJAEh0zYsFgAAAm4gnW');
  repeat
    UseBankNPC
  until(BankScreen or PinScreen);
  Wait(750+random(50));
  if FindDTMRotated(SPot, x, y, 26, 84, 480, 292, -Pi/4, Pi/4, Pi/60, aFound) then
    Begin
      MMouse(x, y, 0, 0);
      Wait(500+random(50));
      ClickMouse2(true);
      Wait(700+random(25));
    end else
    Begin
      WriteLn('Did Not Find Any Summoning Potions, Terminating Script');
      FreeDTM(SPot);
      TerminateScript;
    end;
  if FindDTMRotated(PouchDTM, x, y, 26, 84, 480, 292, -Pi/4, Pi/4, Pi/60, aFound) then
    begin
      MMouse(x, y, 0, 0);
      Wait(500+random(50));
      ClickMouse2(true);
      Wait(700+random(25));
      CloseBank;
    end else
    begin
      WriteLn('Did Not Find Any ' + PouchName + ' Pouches, Terminating script');
      FreeDTM(PouchDTM);
      FreeDTM(SPot);
      TerminateScript;
    end;
   FreeDTM(PouchDTM);
   FreeDTM(SPot);
end;


procedure CheckFamiliar;
begin
  if UsingFamiliar then
  begin
    WriteLn('We Still Have A Familiar');
  end else
  begin
    WriteLn('We Have No Familiar, Renewing');
    RenewFamiliar;
    Renew;
  end;
end;



procedure TakeBob;
begin
  MouseBox(699, 133, 715, 148, MOUSE_LEFT);
  Wait(700+random(50));
end;


procedure Using1;
begin
  WriteLn('Sacrificing...');
  repeat
    Wait(500);
  until(InvCount = 7);
  TakeBob;
   repeat
     Wait(500);
   until(InvCount = 1);
    if UseSummoning = 'yes' then
     if WhatFamiliar = '0' then
     begin
       WriteLn('Finished Sacraficing, Banking.');
       BoneSacraficed := BoneSacraficed + BonesForRun + ExtraBones;
       ExpGained := ExpGained + XpForRun + ExtraXp;
       TripNumber := TripNumber + 1;
     end else
     if UseSummoning = 'yes' then
      if WhatFamiliar = '1' then
     begin
       WriteLn('Finished Sacraficing, Banking.');
       BoneSacraficed := BoneSacraficed + BonesForRun + ExtraBones;
       ExpGained := ExpGained + XpForRun + ExtraXp1;
       TripNumber := TripNumber + 1;
     end else
      WriteLn('Finished Sacraficing, Banking.');
      BoneSacraficed := BoneSacraficed + BonesForRun;
      ExpGained := ExpGained + XpForRun;
      TripNumber := TripNumber + 1;

end;


procedure FillBob;
var
x, y: integer;
begin
  MouseBox(699, 133, 715, 148, MOUSE_RIGHT);
  if WaitOption('Call', 700) then
  Wait(5500+random(200));
  begin
    if FindObjCustom(x, y, [UpTextx], [SummoningColour], 30) then
    begin
      MMouse(x, y, 0, 0);
      ClickMouse2(False);
      WaitOption('tore', 300);
      Wait(860+random(50));
      if not FindBlackChatMessage('This is not') then
      begin
        InvMouse(9,MOUSE_RIGHT);
        WaitOption('All', 300);
        Wait(300+random(50));
        MouseBox(421, 36, 428, 44, MOUSE_LEFT);
      end else
      begin
        FillBob;
      end;
    end;
  end;
end;


Procedure SetUpScript;
begin

  ClearDebug;
  Smart_Server := 77;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetUpSRL;
  DeclarePlayers;
  WriteLn('Evlins Gilded Altar ReBuffed V4');
  WriteLn('Please Be Sure To Post Any Bugs You Run Into On My Thread');
  WriteLn('Summoning Support');
  LogInPlayer;
  BoneValues;
  SummoningValues;
end;


begin
  SetUpScript;
 if UseSummoning = 'no' then
 begin
   repeat
     Bank;
     TeleToHouse;
     OpenDoor;
     RightBurner;
     LeftBurner;
     Sacrafice;
     Using;
     ProgressReport;
     TeleToBank;
     WalkToBank;
 until(not LoggedIn);
 end else
     begin
       repeat
         Bank;
         FillBob;
         Bank1;
         TeleToHouse;
         OpenDoor;
         RightBurner;
         LeftBurner;
         Sacrafice;
         Using1;
         ProgressReport;
         TeleToBank;
         WalkToBank;
       until(Not LoggedIn);
     end;
     FreeDTM(BoneDTM);
end.

Oh and if you Vote No/Yes please tell me what i could improve/what i did well. Thank you.

Voted yes.

You've been here over 5 months so there is no issue about longevity. Also, your activity is above 80% and I've seen you around the forums quite a bit, so personally I feel there is no problem with being a part of the community.

As far as the script is concerned, standards are off, but I'll leave a valued voter to explain in more detail. Having said that, looking at some progress reports the script looks very stable and can run for over 5 hours - which is very good.

One more thing - Simba is not a programming language, it's a program. I believe the language you're looking for is Pascal.

Good luck!

From: abu_jwka
Voted yes.

You've been here over 5 months so there is no issue about longevity. Also, your activity is above 80% and I've seen you around the forums quite a bit, so personally I feel there is no problem with being a part of the community.

As far as the script is concerned, standards are off, but I'll leave a valued voter to explain in more detail. Having said that, looking at some progress reports the script looks very stable and can run for over 5 hours - which is very good.

One more thing - Simba is not a programming language, it's a program. I believe the language you're looking for is Pascal.

Good luck!

Thank You Abu Jwka, Much appreciated, My standards are off, but atm i am acutally reading about them here.

and thanks for clarifying pascal not Simba :P

Im voting no, Just a quick glance over the script, your using simple Object finding, Id like to see you make your own, not use FindObjPTA. You have infinite loops ! and your script doesnt support multiplayer ! And learn up about Records, they'll make yours script look a hell lot nicer with all your cases.

For an example of the use of records: (If you dont understand it, always use the search button :) )

type
  TFill = record
    Uptext, Description: TStringArray;
    DTM, WetDTM, Outcome: integer;
  end;

var
  Equipment: TFill;


function LoadEquipment(which: string): TFill;
begin
  case lowercase(which) of
    'claying':
      with Result do
      begin
        //  Item := 'Wet Clay';
        UpText := [''];
        DTM := LoadDTM('wbucket');
        WetDTM := LoadDTM('wclay');
        Description := ['Softended', 'Clay[s]', 'Claying'];
      end;
    'w bucket':
      with Result do
      begin
        //    Item := 'Water Filled Bucket';
        UpText := ['ket'];
        DTM := LoadDTM('bucket');
        WetDTM := LoadDTM('wbucket');
        Description := ['Filled', 'bucket[s] with water', 'Filling'];
      end;
    'bucketclay':
      with Result do
      begin
        //  Item := 'Wet Clay';
        UpText := ['ket'];
        DTM := LoadDTM('bucket');
        WetDTM := LoadDTM('wbucket');
        Description := ['Softended', 'Clay[s] with bucket water', 'Claying/Filling'];
      end;
    'w vial':
      with Result do
      begin
        // Item := 'Water Filled Vial';
        UpText := ['Via'];
        DTM := LoadDTM('Vial');
        WetDTM := LoadDTM('wvial');
        Description := ['Filled', 'Vials with water', 'Filing'];
      end;
  end;
end;                          

Use:

FindDTM(Equipment.DTM, xx, yy, MIx1, MIy1, MIx2, MIy2)

Has to be one of the worst, attempts of teaching records but, hope you understand how it works.

Your a very capable scripter, but Id like to see more out of you, Good luck :).

And @abu_jwka - A little tip, since your new to members, watch how the applications work and what other SRL Members look for in a application before voting.

Thanks :).

Ok I'll have to look into that, Thanks for the feedback!

From: BobboHobbo

And @abu_jwka - A little tip, since your new to members, watch how the applications work and what other SRL Members look for in a application before voting.

Ok fine, I'll keep quite I guess :redface:


Just saying … that is a bad tutorial on records, but who knows, Evlin may be quick to catch on :p

Voted yes.

Side note:
I think it's fine to vote after you're accepted into Members. You see what we look for in your app, and if you're accepted, then you know the deal. That's just me :p

It is a nice script and you are getting closer to a yes vote then many other members but it just isn't enough to get into members in my opinion. I would like too see you try the following:

1. function/procedure that requires parameters.

2. function that shortens this:

      BoneSacraficed := BoneSacraficed + BonesForRun;
      ExpGained := ExpGained + XpForRun;
      TripNumber := TripNumber + 1;

3. shorter code overall

4. better standards

5. More functions

6. Add some failsafes

7. Remove the logic flaws (like in your walk back up method)

~Abu, im gonna have to agree on what BH says.
~Evlin, I voted no since there aren't TPAs and you're really simple object finding.

From: abu_jwka
Voted yes.

You've been here over 5 months so there is no issue about longevity. Also, your activity is above 80% and I've seen you around the forums quite a bit, so personally I feel there is no problem with being a part of the community.

As far as the script is concerned, standards are off, but I'll leave a valued voter to explain in more detail. Having said that, looking at some progress reports the script looks very stable and can run for over 5 hours - which is very good.

One more thing - Simba is not a programming language, it's a program. I believe the language you're looking for is Pascal.

Good luck!

Abu, Your input is appreciated however voting the day after receiving membership yourself is a tad bit asinine. You have no clue what standards people are held to or how to vote. while there is no rule enforcing it it's generally a good idea to only comment and give input, at least for a few weeks.

Thanks,

EDIT: I guess BH also said something to you :p

From: footballjds
Abu, Your input is appreciated however voting the day after receiving membership yourself is a tad bit asinine. You have no clue what standards people are held to or how to vote. while there is no rule enforcing it it's generally a good idea to only comment and give input, at least for a few weeks.

Thanks,

EDIT: I guess BH also said something to you :p

I personally think it's fine. He got accepted into Members, so he knows what standards we judge on, since we told him in his app. That's just me though.

The "You have no clue" part seemed kind of harsh and inaccurate ;)

Voted no some time ago, didn't have time to reply, but seems that you have gotten basically every reason already explained why I voted no.

From: Kyle Undefined
I personally think it's fine. He got accepted into Members, so he knows what standards we judge on, since we told him in his app. That's just me though.

The "You have no clue" part seemed kind of harsh and inaccurate ;)

The truth is harsh Kyliekins :p

From: footballjds
Abu, Your input is appreciated however voting the day after receiving membership yourself is a tad bit asinine. You have no clue what standards people are held to or how to vote. while there is no rule enforcing it it's generally a good idea to only comment and give input, at least for a few weeks.

Thanks,

EDIT: I guess BH also said something to you :p

Bobbo said I should look at what others are looking for before voting - fine

Kyle disagreed and said I know the deal - also fine

S1N agreed with BH - fine

But where on earth did that just come from? I am really sorry for voting because judging by your response I feel like I've hurt you emotionally. I feel like I've just cut out a little piece of your heart that can never be replaced.

For that, I apologise


No seriously, I do.

From: abu_jwka
Bobbo said I should look at what others are looking for before voting - fine

Kyle disagreed and said I know the deal - also fine

S1N agreed with BH - fine

But where on earth did that just come from? I am really sorry for voting because judging by your response I feel like I've hurt you emotionally. I feel like I've just cut out a little piece of your heart that can never be replaced.

For that, I apologise


No seriously, I do.

I forgive you but my heart is still broken </3

abu_jwka was only trying to be helpful and responsive, some things above me did not have to be said.

OT: My list i've got so far…
1. function/procedure that requires parameters.|| What kind of functions do you mean by this?

2. function that shortens this:
Simba Code

BoneSacraficed := BoneSacraficed + BonesForRun;
      ExpGained := ExpGained + XpForRun;
      TripNumber := TripNumber + 1;

3. shorter code overall

4. better standards

5. More functions

6. Add some failsafes
I'll Look into this, i have an idea for it.

7. Remove the logic flaws (like in your walk back up method)
I don't see my flaw here, could you expand please.

8. TPA<=== I'm gonna need some help with this one.

No for quite a few reasons:

procedure WalkToBankBackUp;
var
x, y: integer;
begin
  SymbolAccuracy := 0.5;
  if FindSymbol(x, y, 'bank') then
  MMouse(x, y, 2, 2);
  ClickMouse2(True);
  SymbolAccuracy := 0.8;
  FFlag(1);
  Wait(500+random(500));
end;

Spot the bug.

TerminateScript;

That's almost instant no. NEVER, EVER use terminatescript, unless you are out of players (read: add multiplayer). Besides that you should never leave the player logged in, always log out.

No functions made by you at all, everything is a procedure (or made by ACA/Aegis).

Tons of possibily infinite loops, here I'll highlight a few:

  repeat
    Wait(500);
  until(InvCount = 7);
  TakeBob;
   repeat
     Wait(500);
   until(InvCount = 1);

I lol'd at this:

    if UseSummoning = 'yes' then

Another mistake by you here:

     end else
      WriteLn('Finished Sacraficing, Banking.');
      BoneSacraficed := BoneSacraficed + BonesForRun;
      ExpGained := ExpGained + XpForRun;
      TripNumber := TripNumber + 1;

So in short: Failsafes, multiplayer, watch your begin/end, cut the infinite loops out and maybe get some decent mainloop logic and use some functions in your script instead of it being all procedure.

Overal a nice start, but not there yet.

Having a go at TPA's atm.. Having no luck :P

Yes from me. You seem to have a good addatude. Some things I would like to see improved upon:
Failsafes, TPA usage, and most importantly non static wait times!

A constant wait time is very unhuman, and could increase the odds of being banned.

No from me, I would like to see use of things other than ObjFinding methods/functions in the next script(s) you choose to apply with. I am not a fan of DTM's and even though you think they're simple and effective to use, they hoard up memory. Anyway, good luck.

Thank's Toxin' If i use something that you suggest me not to use, please suggest what i should use for the specific task.

Markus has summed up it very well.

Btw, maybe first logout then terminatescript? I still do this a lot.

Yup i'll add that in.

I might not get time to reapply for a while cause of school :/

There's no ETA for SRL membership. Just do whatever you want as your real life allows for it. There's no need for a rush :)

From: abu_jwka
Bobbo said I should look at what others are looking for before voting - fine

Kyle disagreed and said I know the deal - also fine

S1N agreed with BH - fine

But where on earth did that just come from? I am really sorry for voting because judging by your response I feel like I've hurt you emotionally. I feel like I've just cut out a little piece of your heart that can never be replaced.

For that, I apologise


No seriously, I do.

You have every bit as much a right to vote as any other SRL Member. Plus, my standards are laxer than the current "standards" for an application so you're likely to be tough enough on people anyways.

Some people just think they know everything about, well, everything when in fact they don't :P I'm glad to see to exercising your right to vote and hopefully nobody has discouraged you. Any, and every vote is helpful especially when feedback is left.

-Bam Bam

i voted no, i would like to see more TPA's then obj finding

Looks like you aren't getting in.. Closed this now, you can reapply in 2 weeks. Good luck!