SRL Archive - Archive

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


Are you affilated in anyway with Jagex LTD?
No

Were you Referred to SRL?
N/A


What is your general programming knowledge?
Attempted learning Java few years ago, never pursued it.
Started learning Pascal/Scripting about 2-3 weeks ago and I actually enjoy doing it.


Are you a member of any other communities?
Username was/is "Tmoe" on the following:
Sythe.org(2007-Present)
Spyike.org(November 2010-January 2012) – closed down
Rsbuddy.org(2009?-Present)

Was really only active on Sythe.org,Spyike.org, and now Villavu.


Tell us about yourself…

From: jatex
Well, my first name is Tayler (which I hate) and everyone I know calls me by my last name (which I do not care to disclose.)

I'm a junior in highschool (turn 17 in May of this year) and am on the Tennis team. Maintain a decent GPA of about a 3.0.
Outside of school I'm either with my girlfriend, with friends, or at home.. While at home, I'm either playing guitar, playing Xbox, surfing a forum, or now, working on a script.

Involving my future, I plan on attending either James Madison or George Mason University in pursuit of a degree in International Studies.

Hope that wasn't to detailed :P.

Note:
When it comes to posting, I post when needed to. I am not a fan of post whoring it up (it took me 5 years to get 3k posts on Sythe.)

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

SoulWars Beta (It's still in progress)
Note: I do not plan on publicly releasing that script. When it is completed, I plan on releasing it as members+(Hopefully being a member myself by then.)
[simba]program SoulWars_by_Jatex;
  {$DEFINE SMART}
  {$DEFINE PAINT}
  {$i srl/srl/misc/smart.simba}
  {$i SRL/srl.simba}
  {$i SRL\SRL\Misc\PaintSmart.simba}
  {$i ObjectDTM\ObjDTMInclude.simba}

var
x,y,i,cx,cy: integer;
RedTeamHeadGrave,BlueTeamHeadGrave,RedGravePortal,EnterPortalText,BlueWaitingRoom,RedWaitingRoom,BlueTeamBigGraveExit,RedTeamSmallGraveExit,BlueTeamSmallGraveExit,BlueGravePortal,RedTeamBigGraveExit : Array[0..25] of integer;
aFound: Extended;

//const
//SRL_ANGLE_LOW   = 1;

 procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name         := '';
      Pass         := '';
      BoxRewards   := ['XP','xp','lamp'];
      LampSkill    := 'Dungoneering';
      Active       := True;
    end;
  end;
(*******************************************************************************
   Script Starts here, don't mess with it unless you know what you're doing..
   In order to run the script, you will need to download ObjDTMs.. This can be
   found here: [url]http://villavu.com/forum/showthread.php?p=847813[/url]
   Thanks GGZZ for helping with "AreWeDead."

   If you need help with anything, please PM me on Villavu (Name: Jatex) or Sythe
   (Name: Tmoe).
****************************************************************************** *)
 Function AreWeDead: boolean;
var
  str: String;
begin
  str := GetChatBoxText(8, clBlack);
  result:= (ExecRegExpr('dead', str) or FindDead);
end;

 procedure Antiban;
  begin
    if(not(LoggedIn))then
    Exit;
    case Random(800) of
    0:
    begin
      HoverSkill('Attack', false);
      wait(1000+Random(200));
    end;
    10: PickUpMouse;
    20: BoredHuman;
    30: RandomMovement;
    40:
    begin
      MakeCompass('S');
      wait(125+random(100));
      MakeCompass('N');
      wait(75+random(100));
      MakeCompass('N');
      FindNormalRandoms;
    end;
    50: MakeCompass('Random');
    60:
    begin
      HoverSkill('Strength', false);
      wait(1000+Random(200));
    end;
    70:
    begin
      HoverSkill('Defence', false);
      wait(1000+Random(200));
    end;
    80:
    begin
      HoverSkill('Hitpoints', false);
      wait(1000+Random(200));
    end;
  end;
 end;


 procedure ClickPortal;
  begin
  if FindObjCustom(x,y,['oin','team','alance','ortal'],[5411922,4164420,3964494],10) then
          repeat
            Writeln('Found Balance Portal, joining.');
            Mouse(x,y,4,4,false);
            ChooseOption('oin');
            Wait(1775+random(350));
            Writeln('Waiting till at portal');
          until ObjDTM_Find('80:80:2:1:7:35:66:1:7:43:50',cx,cy,True) or ObjDTM_Find('80:80:1:2:7:97:77',cx,cy,True);
            begin
              if FindNPCChatText('Warning',move) then
                begin
                  Writeln('Clicking Continue');
                  ClickContinue(True,True)
                  Wait(150+random(175));
                  FindNPCChatText('Enter',Clickleft);
                end;
            end;
  end;

  procedure WalkRed;
  begin
    //ObjDTM_WalkPath(['111:112:3:2:7:93:73:2:7:82:104:2:7:79:133', '68:141:4:2:7:70:100:2:7:94:103:2:7:98:130:2:7:56:130', '37:79:3:2:7:67:107:2:7:108:69:2:7:74:69', '26:44:3:2:7:77:93:2:7:113:106:2:7:47:46', '33:63:3:2:7:98:111:2:7:105:76:2:7:85:110', '25:55:3:1:7:81:35:1:7:40:106:1:7:20:91', '19:77:4:1:7:69:34:1:7:93:26:1:7:99:130:1:7:55:123'],6,100,80,False,True);
    //Note stops at walls, needs to walk to oblisk
    ObjDTM_WalkPath(['111:107:2:2:7:93:89:2:7:94:73', '83:142:4:2:7:50:106:2:7:55:76:2:7:67:46:2:7:97:108', '32:83:4:2:7:105:74:2:7:62:111:2:7:36:68:2:7:70:73','29:64:3:2:7:76:108:2:7:39:95:2:7:48:61', '38:70:3:2:7:104:108:2:7:76:118:1:7:89:68', '29:67:3:1:7:120:113:1:7:76:40:1:7:52:39', '29:85:3:1:7:73:136:1:7:101:59:1:7:54:120', '26:78:2:1:7:81:121:1:7:98:36'],6,100,80,False,True);
    Writeln('Walking to oblisk..');
  end;

  procedure WalkBlue;
  begin
    ObjDTM_WalkPath(['46:59:4:1:7:25:86:1:7:62:17:1:7:74:29:1:7:74:90', '91:30:5:1:7:59:105:1:7:109:108:1:7:108:47:1:7:104:25:1:7:55:25', '117:58:4:1:7:97:97:1:7:44:74:1:7:93:74:1:7:116:78', '129:116:4:1:7:55:97:1:7:106:86:1:7:109:124:1:7:78:101', '125:117:5:1:7:50:78:1:7:58:50:1:7:98:78:1:7:126:94:1:7:82:126', '125:77:5:1:7:38:90:1:7:54:42:1:7:82:58:1:7:90:94:1:7:62:90', '127:70:3:1:7:46:94:1:7:110:130:1:7:118:26', '134:80:2:1:7:66:138:1:7:74:34'],6,100,80,False,True);
    Writeln('Walking to Obelisk..');
  end;

  procedure AttackPlayersB;
  begin
  end;

  procedure AttackPlayersR;
  begin
  end;
 {procedure FindingPortalRed;
 begin
    Antiban;
    ClickNorth(1);
    //if FindDTMRotated(RedTeamHeadGrave[0],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(RedTeamHeadGrave[1],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound) then
    if ObjDTM_Find('80:80:1:2:7:97:77',cx,cy,True) then
      begin
        MakeCompass('S');
        Wait(250+random(175));
        ClickPortal;
          end else
            begin
              if ObjDTM_Walk('63:103:2:2:7:128:65:2:7:98:81',0,80,5,True) then
                begin
                  Writeln('Walking to balance portal.');
                  MakeCompass('S')
                  ClickPortal;
                end else
                  Exit;
            end;
 end;

 procedure FindingPortalBlue;
  begin
    Antiban;
    ClickNorth(1);
      //if FindDTMRotated(BlueTeamHeadGrave[0],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(BlueTeamHeadGrave[1],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound) then
      if ObjDTM_Find('80:80:2:1:7:35:66:1:7:43:50',cx,cy,True) then
        begin
          MakeCompass('S');
          Wait(250+random(175));
          ClickPortal;
        end else
          begin
           if ObjDTM_Walk('92:104:2:1:7:34:67:1:7:65:30',0,80,5,True) then
              begin
                Writeln('Walking to balance portal.');
                Wait(1575+random(350));
                MakeCompass('S');
                ClickPortal;
              end else;
                Exit
          end;
  end; }

  procedure FindingPortal;
  begin
    Antiban;
    ClickNorth(1);
      //if FindDTMRotated(BlueTeamHeadGrave[0],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(BlueTeamHeadGrave[1],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound) then
      if ObjDTM_Find('80:80:2:1:7:35:66:1:7:43:50',cx,cy,True) or ObjDTM_Find('80:80:2:2:7:130:65:2:7:98:81',cx,cy,True) then
        begin
          MakeCompass('S');
          Wait(250+random(175));
          ClickPortal;
        end// else
          {begin
           if ObjDTM_Walk('92:104:2:1:7:34:67:1:7:65:30',0,80,5,True) then
              begin
                Writeln('Walking to balance portal.');
                Wait(1575+random(350));
                MakeCompass('S');
                ClickPortal;
              end else;
                Exit
          end;}
  end;

 procedure RedTeamWait;
  begin
    MakeCompass('W');
      if ObjDTM_Find('80:80:4:2:7:81:117:2:7:119:120:2:7:108:33:2:7:77:49',cx,cy,True) then
        begin
          Writeln('Found lava..');
          repeat
           Writeln('Found Red Waiting room');
           Wait(1250+random(750));
           Writeln('Waiting..')
           Antiban;
           MakeCompass('W');
          //until FindDTMRotated(RedGravePortal[0],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound);
          until ObjDTM_Find('80:80:2:2:7:105:93:2:7:106:77',cx,cy,True);
      end else
        Exit;
  end;

 procedure BlueTeamWait;
  begin
    MakeCompass('E');
    Wait(1000);
    Writeln('Making Compass East.')
      begin
       if ObjDTM_Find('79:80:4:1:7:113:112:1:7:91:121:1:7:33:90:1:7:78:31',cx,cy,True) then
          begin
          Writeln('FoundWater');
            repeat
              Writeln('Found Blue Waiting room');
              Wait(5250+random(750));
              Writeln('Waiting..')
              Antiban;
              MakeCompass('E');
            //until FindDTMRotated(RedGravePortal[0],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound);
            until ObjDTM_Find('80:80:1:1:7:67:102',cx,cy,True);
          end else
            Exit;
      end;// else
        //Exit;
  end;
 procedure ClickBigGravePortalR;
 begin
  if FindObjCustom(x,y,['ass','ed','arrier'],[4741808,3952276,3296646],10) then
    begin
      Wait(850);
      repeat
        Writeln('Getting out of graveyard');
        Mouse(x,y,4,4,false);
        ChooseOption('Pass');
        Wait(275+random(350));
      until IsMoving;
        end else
          Exit;
 end;

 procedure ClickSmallGravePortalR;
 begin
  if FindObjCustom(x,y,['ass','ed','arrier'],[4741808,3952276,3296646],10) then
    begin
      ObjDtm_Walk('101:79:2:2:7:122:89:2:7:122:73',0,100,80,True);
      repeat
        Writeln('Getting out of graveyard');
        Mouse(x,y,4,4,false);
        ChooseOption('Pass');
        Wait(275+random(350));
      until IsMoving;
    end else
      Exit;
 end;

 procedure RedTeamGraveyardFirst;
 begin
  Antiban;
  MakeCompass('W');
    if ObjDTM_Find('80:80:2:2:7:105:93:2:7:106:77',cx,cy,True) then
      begin
        begin
        if AreWeDead then
          begin
            Writeln('Ghosting it up..');
            Wait(14500+random(525));
          end;
        end;
        begin
          //ObjDtm_Walk(['111:107:2:2:7:93:89:2:7:94:73', '83:142:4:2:7:50:106:2:7:55:76:2:7:67:46:2:7:97:108', '32:83:4:2:7:105:74:2:7:62:111:2:7:36:68:2:7:70:73','29:64:3:2:7:76:108:2:7:39:95:2:7:48:61', '38:70:3:2:7:104:108:2:7:76:118:1:7:89:68', '29:67:3:1:7:120:113:1:7:76:40:1:7:52:39', '29:85:3:1:7:73:136:1:7:101:59:1:7:54:120', '26:78:2:1:7:81:121:1:7:98:36'],0,100,80,True);
          Wait(500+random(175));
          ClickBigGravePortalR;
          Writeln('Getting out of graveyard..')
        end;
          begin
            WalkRed;
          end;
      end else
        Exit;
          {begin
            ObjDTM_Walk
            ClickBigGravePortal;
          end;}
 end;

 procedure RedTeamWalkSmallGrave;
 begin
  if ObjDTM_Find('80:80:4:1:7:46:89:1:7:47:66:1:7:113:67:1:7:113:90',cx,cy,True) then
    begin
    ObjDTM_Walk('78:85:4:1:7:45:94:1:7:46:70:1:7:115:70:1:7:115:94',0,100,5,True);
    Antiban;
    Writeln('Currently ghosting it up..');
    Wait(14500+random(500));
    MakeCompass('N')
    ClickSmallGravePortalR;
    end else
      Exit;
      begin
        Writeln('Walking to Obelisk');
        //ObjDTM_WalkPath([pathhere],6,100,80,False,True);
      end;
 end;
 procedure ClickBigGravePortalB;
 begin
  if FindObjCustom(x,y,['ass','lue','arrier'],[8744019,9989719,16620687],10) then
    begin
      repeat
        Writeln('Getting out of graveyard');
        Mouse(x,y,4,4,false);
        ChooseOption('Pass');
        Wait(275+random(350));
      until IsMoving;
        end else
          Exit;
      begin
        WalkBlue;
      end;
 end;

 procedure ClickSmallGravePortalB;
 begin
  if FindObjCustom(x,y,['ass','lue','arrier'],[8744019,9989719,16620687],10) then
    begin
      repeat
        Writeln('Getting out of graveyard');
        Mouse(x,y,4,4,false);
        ChooseOption('Pass');
        Wait(275+random(350));
      until IsMoving;
    end else
      Exit;
 end;

 procedure BlueTeamGraveyardFirst;
 begin
  Antiban;
  MakeCompass('E');
    //if FindDTMRotated(BlueGravePortal[0],x,y,MSX1,MSY1,MSX2,MSY2,-Pi/4,Pi/4,Pi/60,aFound) then
    if ObjDTM_Find('80:80:1:1:7:67:102',cx,cy,True) then
      begin
        begin
        if AreWeDead then
          begin
            Wait(14500+random(525));
            Writeln('Ghosting it up..');
          end;
        end;
        begin
          //ObjDtm_Walk('58:78:2:1:7:48:92:1:7:47:23',0,100,80,True);
          Wait(500+random(175));
          MakeCompass('E');
          ClickBigGravePortalB;
          Writeln('Getting out of graveyard..')
        end;
          begin
            WalkBlue;
          end;
      end else
        Exit;
  end;
  procedure BlueTeamWalkSmallGrave;
    begin
      if AreWeDead then
        begin
          if ObjDTM_Find('80:80:4:1:7:50:91:1:7:53:51:1:7:93:39:1:7:107:93',cx,cy,True) then
            begin
            ObjDTM_Walk('83:68:4:1:7:50:91:1:7:53:50:1:7:65:34:1:7:110:85',0,100,80,True);
            Antiban;
            Wait(14500+random(525));
            Writeln('Ghosting it up..');
            MakeCompass('S')
            ClickSmallGravePortalB;
            end else
              Exit;
        end else
          Exit;
          begin
            Writeln('Walking to Obelisk');
            ObjDTM_WalkPath(['135:48:4:1:7:48:62:1:7:61:44:1:7:105:108:1:7:70:113', '123:53:4:1:7:36:79:1:7:104:116:1:7:74:138:1:7:53:129', '125:81:3:1:7:62:142:1:7:69:32:1:7:87:142', '128:101:1:1:7:60:15', '148:57:2:1:7:40:125:1:7:32:108'],6,100,80,False,True);
          end;
    end;

 procedure DeclareDTMs;
  begin
    RedTeamHeadGrave[0] := DTMFromString('mrAAAAHic42BgYFBnYWBwAmJWIJZmgfCtgNgViHmAeClQTR8QdwLxZiDeDcRbgHg2EM8FYidXJ4as1BiGlPgwhobKPIaKogyG0EBPhrryXIa8zHgGLqAafJiRAIYBAIqLEB8=');
    RedTeamHeadGrave[1] := DTMFromString('mrAAAAHic42BgYPBmYWAwBOI0ILYG4gggNgHiBCD2B8kxMjAYALEnEHsBsREQ20KxNxA31xYxNFUXMCREBzOU5KUwxEUGMvS2VjLUlGYzZKXGMHAB7cCHGQlgGAAAF/kPGQ==');
    BlueTeamHeadGrave[0] := DTMFromString('mrAAAAHic42BgYBABYmkg5oayQUADiOWAmAsqJw7EYlA5CyiGgZUrFzGUlhYwHDy4k2HqlD6G4uI8htzcDIbKyhKG+fNngM3AhxkJYBgAAGRKDsk=');
    BlueTeamHeadGrave[1] := DTMFromString('mwQAAAHic42RgYFBgZWBQBmJZIFYFYkEg5gdibSjbAIi1GBkYWIBYFIglgDgciL2hNEjOAIgLC3MYurpaGJYsmcswbdoEhhkzJoLpysoShq1b1jKUlxYxcAHtI4QZicBwAACoLBJA');
    EnterPortalText[0] := DTMFromString('mggAAAHicY2NgYNBiYWBghWJvIPZjgYh9Y2RgeAvEX4D4DZR+D8QnTpzAitmBZmHDjDgwBAAAPDAVAg==');
    BlueWaitingRoom[0] := DTMFromString('mggAAAHicY2NgYDjDwsDwGIg3AvEzIN4CxJeB+ABQ7i4QLwbi+UB8B4gfAnFyuRpDS99MDMwFlMOGGXFgCAAAWIUTIQ==');
    BlueWaitingRoom[1] := DTMFromString('mWAAAAHicY2FgYJjFwsDQA8TrgXgtEK8BiQHxLiCeDcSphSoMX959gGMuoBgyZkTDIAAADh4Ozg==');
    RedWaitingRoom[0] := DTMFromString('mlwAAAHicY2dgYGBnZWD4yMLAoAikFYD4NZD9DogNgOzrQPl9UPwJiL8C8W0gvgvERoaGDEdXy4Lxh/PKcDYIcwHlcWFGPBgKAGaQE+A=');
    RedWaitingRoom[1] := DTMFromString('mlwAAAHicY2dgYOBkZWCQBmIZIP7CwsDwlQVCywL5N4Dyx4D4DRC/BuLjDBCxm0BsbmbO8O79B1T84QcYcwHlcWFGPBgKAIKbGyA=');
    BlueGravePortal[0] := DTMFromString('mlwAAAHicY2dgYIhiYWDwA+ISIE4CYg8gtgXiAiDuBsrnA/FEIC4D4rlA3AHEDUBs4HmJwTu0miE8dRqDa/wqBhvfVgYbnxoGz+hpDFxAeVyYEQ+GAgB8RQ7c');
    BlueTeamBigGraveExit[0] := DTMFromString('mggAAAHicY2NgYLBkYWCQA+JoIJYF4hggtgJiLkYGBjEoZoJiELtn1l+GpPKTYBxbugyMQWwuoFnYMCMODAEAeWQMFQ==');
    BlueTeamSmallGraveExit[0] := DTMFromString('mWAAAAHicY2FgYOhiYWC4AMRFQHwMiF0ZGRiygLgQiGWAuKJpK0Ni4TEwzq+cwcAF1IOMGdEwCAAAQF8Kcg==');
    RedGravePortal[0] := DTMFromString('mbQAAAHicY2VgYNjOwsAwE4gvAvE8Fgh/O1B8CRCfBOJTQDwZiDt0xRhSnfQZcqzVGTIsVBjyHPUYuIDi6JgRCwYDAFRqC1g=');
    //RedTeamBigGraveExit[0] := DTMFromString('mbQAAAHicY2VgYDjAwsDQDMWnoFifkYFBG4itgdgGiGWBeEVxAUOtjztDu5sTGKfZ2zBwAfWjY0YsGAwA3u0KOA==');
    //RedTeamSmallGraveExit[0] := DTMFromString('mbQAAAHicY2VgYHBgYWAoBuICINaDYkVGIA3EElBaGIinRbsz9PtYMbT6GoHpGm9dBi6gfnTMiAWDAQAIXQfX');
    //RedTeamSmallGraveExit[1] := DTMFromString('mQwAAAHicY2ZgYJjCwsCwHog7gTickYEhEIiDgfhoQgjD4hAnhnURHgxcQHUwzIiEgQAAKWkG+w==');
    //BlueGraveWall[0]
    //RedGraveWall[0]
  end;
 procedure FreeDTMs;
 begin
  FreeDTM(RedTeamHeadGrave[0]);
  FreeDTM(RedTeamHeadGrave[1]);
  FreeDTM(EnterPortalText[0]);
  FreeDTM(BlueWaitingRoom[0]);
  FreeDTM(RedWaitingRoom[0]);
  FreeDTM(BlueTeamHeadGrave[0]);
  FreeDTM(BlueTeamHeadGrave[1]);
  FreeDTM(BlueWaitingRoom[1]);
  FreeDTM(RedWaitingRoom[1]);
  FreeDTM(BlueTeamSmallGraveExit[0]);
  FreeDTM(BlueTeamBigGraveExit[0]);

 end;
 procedure GetToWaitingRoom;
  begin
    FindingPortal;
    if ObjDTM_Find('79:80:4:1:7:113:112:1:7:91:121:1:7:33:90:1:7:78:31',cx,cy,True) then
      begin
    BlueTeamWait;
      end else
    RedTeamWait;
  end;
 procedure RedTeam;
  begin
    if ObjDTM_Find('80:80:2:2:7:105:93:2:7:106:77',cx,cy,True) then
      begin
        RedTeamGraveyardFirst;
      end else
        RedTeamWalkSmallGrave;
  end;
 procedure BlueTeam;
  begin
    if ObjDTM_Find('80:80:1:1:7:67:102',cx,cy,True) then
      begin
        BlueTeamGraveyardFirst;
      end else
    BlueTeamWalkSmallGrave;
  end;

 procedure SWMain;
  begin
    repeat
    GetToWaitingRoom;
        if ObjDTM_Find('80:80:1:1:7:67:102',cx,cy,True) then
          begin
            BlueTeam;
          end else
            RedTeam;
    until(false);
  end;

   procedure Setup;
  begin
    Smart_Server := 44;
    Smart_Members := True;
    Smart_Signed := True;
    Smart_SuperDetail := False;
    SetupSRL;
    ActivateClient;
    ObjDTM_Setup;
    DeclarePlayers;
  end;

begin
  Setup;
  ActivateClient;
  DeclarePlayers;
  ClearDebug;
  repeat
  DeclareDTMs;
  //SWMain;
  BlueTeam;
  //GetToWaitingRoom;
  FreeDTMs;
  until(false)
end.   

program Seers_Yews;
{$DEFINE SMART}
{$DEFINE PAINT}
{$i srl/srl/misc/smart.simba}
{$i SRL/srl.simba}
{$i SRL\SRL\Misc\PaintSmart.simba}
{$i ObjectDTM\ObjDTMInclude.simba}

   {var
    x,y: Integer;
    Walk,WalkYew,Walk2,Walk3:Array[0..120] of Integer;
    aFound:Extended;}
  //const
   // Bank_CT = 'clt'
  var
  AngleHigh: integer;

 Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name         := ''; //Username
      Pass         := '';   //Password
      Pin          := '';       //Pin
      BoxRewards   := ['XP','xp','lamp']; //Reward
      LampSkill    := 'Woodcutting';     //What to use Gene Lamp on
      Active       := True;
    end;
  end;

  procedure Antiban;
  begin
    if(not(LoggedIn))then
    Exit;
    case Random(500) of
    0:
    begin
      HoverSkill('Woodcutting', false);
      wait(1000+Random(200));
    end;
    10: PickUpMouse;
    20: BoredHuman;
    30: RandomMovement;
    40:
    begin
      MakeCompass('S');
      wait(125+random(100));
      MakeCompass('N');
      wait(75+random(100));
      MakeCompass('N');
      FindNormalRandoms;
    end;
    50: MakeCompass('Random');
  end;
 end;
  //procedure WalkToNewTree;

  procedure ChopTree;
  var x,y,colorz: integer;
  begin
    if(InvFull) then
      Exit;
    repeat
      FindNormalRandoms;
      AntiBan;
      MakeCompass('N');
      SetAngle(AngleHigh);
        if FindObjCustom(x,y,['ew','hop','own'],[2182722,5474683,1654580],5) then
          begin
            Writeln('Found Yew Tree chopping now..');
            Wait(550+random(500));
            Mouse(x,y,4,4,true);
            ChooseOption('hop');
              repeat
                wait(250+random(250));
              until not IsUpTextMultiCustom(['hop','ew']) or (InvCount=28);
                end else Writeln('Cannot find Yew Tree.. Walking to new tree..');
                  begin
                    ObjDTM_Walk('117:83:5:1:7:74:67:0:7:116:52:1:7:123:119:1:7:53:128:1:7:74:87',0,100,80,true);
                    Wait(500+random(275));
                  end;
        if FindObjCustom(x,y,['ew','hop','own'],[2182722,5474683,1654580],5) then
          begin
            Writeln('Found Yew Tree chopping now..');
            Wait(550+random(500));
            Mouse(x,y,4,4,true);
            ChooseOption('hop');
              repeat
                wait(250+random(250));
              until not IsUpTextMultiCustom(['hop','ew']) or (InvCount=28);
          end else Writeln('Cannot find Yew Tree.. Walking to new tree..');
            begin
              ObjDTM_Walk('38:77:4:1:7:36:62:1:7:116:62:1:7:121:126:5:7:38:118',0,100,80,true);
            end;
              begin
                if IsUpTextMultiCustom(['ead,ak,agic,aple']) then
                  ObjDTM_Walk('128:133:5:1:7:55:66:1:7:102:56:0:7:98:80:1:7:120:119:1:7:28:113',0,100,80,true);
              end;
    Antiban;
  until(InvFull);
 end;

 procedure WalkToYew;  //Thanks for the help in IRC (Euphemism, [J]ustin)
  begin
    if(InvEmpty) then
    Writeln('Inventory is empty, walking to Yews.');
  begin
    if ObjDTM_WalkPath(['73:113:4:10:7:66:70:0:7:83:87:8:7:90:120:5:7:30:100','64:139:5:5:7:40:67:0:7:95:56:1:7:126:71:1:7:82:127:8:7:65:114','57:119:5:0:7:47:88:8:7:69:62:0:7:134:83:1:7:98:126:3:7:29:103', '36:81:5:0:7:71:52:8:7:97:66:1:7:78:118:5:7:33:119:1:7:30:68'],0,100,80,false,true) then
    Writeln('Arriving at Yews.');
    begin
    wait(250 + random(250));
      MakeCompass('n');
    end;
 end;
end;

  procedure WalkToBank;
  begin
  if(InvFull) then
    Writeln('Inventory is full, walking to bank..');
  begin
    if ObjDTM_WalkPath(['97:61:6:1:7:37:63:0:7:79:47:8:7:106:61:1:7:87:115:5:7:61:115:3:7:39:96', '106:28:4:1:7:104:100:1:7:23:88:0:7:66:51:1:7:112:58', '84:36:4:1:7:82:95:0:7:44:108:1:7:58:55:1:7:110:58', '88:63:5:1:7:34:36:1:7:109:46:1:7:106:105:1:7:55:103:5:7:41:75'],0,100,80,false,true) then
      Writeln('Arriving at Camelot bank.');
    begin
    wait(250+random(250));
    Antiban;
    MakeCompass('N');
  end;
  end
end;

   { procedure Bank
 begin
 if(Invfull)then
  //begin
   repeat
 Writeln('Inventory full, banking.')
    OpenBank('clt',True,True)
   Wait(250+random(100));
    if PinScreen then
      InPin(Players[CurrentPlayer].Pin);
      Until(BankScreen);
    //if(PinScreen)then InPin(Players[CurrentPlayer].Pin);
    //if(bankscreen)then
     //if BankScreen
      Depositall;
 CloseBank;
 end;
 //end;}

 procedure Banking;
 begin
  if(InvFull) then
    begin
      SetAngle(AngleHigh);
        repeat
          WriteLn('Inventory full, banking.');
          OpenBankNPC;
            if(PinScreen)then
              InPin(Players[CurrentPlayer].Pin );
            if(BankScreen) then
              DepositAll;
              CloseBank;
        until(InvEmpty);
   end;
end;

begin
  Smart_Server := 12;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  SetupSRL;
  ActivateClient;
  ObjDTM_Setup;
  ClearDebug;
  DeclarePlayers;
  if not(LoggedIn) then
  LogInPlayer;
  repeat
  WalkToYew;;
  ChopTree;
  WalkToBank;
  Banking;
  until(false);
  //repeat
  //NextPlayer(True);
  //until(AllPlayersInactive);
end.

program MiningGuild_by_Jatex;
{$DEFINE SMART}
{$DEFINE PAINT}
{$i srl/srl/misc/smart.simba}
{$i SRL/srl.simba}
{$i SRL\SRL\Misc\PaintSmart.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
 var
 {MSX1,MSY1,MSX2,MSY2,}x,y,i: integer;
 OldInv,PlusOne,Ores,AngleHigh,colorz: integer;
 //MyTPA: TPointArray;
 //MyPoint: TPoint;
 WalkingToOres,WalkingToUpLadder: Array[0..3] of integer;
 aFound: Extended;

 Procedure DeclarePlayers;
  begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
      Name         := '';                             //Account Username
      Pass         := '';                             //Account Password
      Pin          := '';                             //Account Pin (leave blank if not one)
      BoxRewards   := ['XP','xp','lamp'];
      LampSkill    := 'Mining';
      Active       := True;
    end;
  end;

  procedure Antiban;
  begin
    if(not(LoggedIn))then
    Exit;
    case Random(500) of
    0:
    begin
      HoverSkill('Mining', false);
      wait(1000+Random(200));
    end;
    10: PickUpMouse;
    20: BoredHuman;
    30: RandomMovement;
    40:
    begin
      MakeCompass('S');
      wait(125+random(100));
      MakeCompass('N');
      wait(75+random(100));
      MakeCompass('N');
      FindNormalRandoms;
    end;
    50: MakeCompass('Random');
  end;
 end;

 procedure MineMithril;
  begin
    if(InvFull) then
    Exit;
    repeat
      FindNormalRandoms;
      MakeCompass('S');
      SetAngle(AngleHigh);
      Oldinv := InvCount;
      PlusOne:= InvCount + 1;
    if FindObjCustom(x,y,['ine','ocks'],[7230805,9728626,7096649],10) then
      begin
        Writeln('Found Mithril Ore..');
        colorz:=GetColor(x,y);
        Mouse(x,y,4,4,true);
        ChooseOption('ine');
        Writeln('Mining Mith Ore..');
        MarkTime(Ores);
      end;
        repeat
          Wait(500+random(250));
          Writeln('Waiting')
          Antiban;
          Writeln('Antiban');
          FindNormalRandoms;
          Wait(500+random(300));
        //if (OldInv=PlusOne) then
          //Writeln('Mithril Count:'+InvCount);
        Until(OldInv=PlusOne)or(TimeFromMark(Ores) > 5100+random(250));
          Writeln('+1Invy');
            //until FindObjCustom(x,y,['ine','ocks'],[7230805,9728626,7096649],10)=False;
    until FindColorTolerance(x,y,7230805,MSX1,MSY1,MSX2,MSY2,10)=false or InvFull;
 end;
            //until (InvFull);


 procedure MineCoal;
 begin
  If(InvFull) then
    Exit;
    repeat
      Antiban;
      FindNormalRandoms;
      MakeCompass('S');
      SetAngle(AngleHigh);
      Oldinv := InvCount;
      PlusOne:= InvCount + 1;
        if FindObjCustom(x,y,['ine','ocks'],[789773,1052945,1316117],5) then
          begin
            Writeln('Found Coal Ore.. Mining');
            //Wait(1000+random(500));
            colorz:=GetColor(x,y);
            Mouse(x,y,4,4,true);
            ChooseOption('ine');
            Writeln('Mining Coal Ore..');
            MarkTime(Ores);
            Writeln('Marking Time');
          end;
            repeat
              Wait(500+random(250));
              Writeln('Waiting')
              Antiban;
              Writeln('Antiban');
              FindNormalRandoms;
              Wait(500+random(300));
        //if (OldInv=PlusOne) then
          //Writeln('Mithril Count:'+InvCount);
            until(OldInv=PlusOne)or(TimeFromMark(Ores) > 5100+random(250));
              Writeln('+1Invy');
  until FindObjCustom(x,y,['ine','ocks'],[789773,1052945,1316117],10) or InvFull;
 end;

 procedure WalkToRocks;
 begin
  Wait(450+random(125));
  ClickNorth(SRL_ANGLE_HIGH);
  Wait(1250+random(275));
    if FindDTMRotated(WalkingToOres[0],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) then
      begin
        Writeln('Walking to first DTM');
        Mouse(x,y,5,5,True);
        FFlag(6);
          repeat
            Wait(50+Random(25));
          until FindDTMRotated(WalkingToOres[1],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(WalkingToOres[2],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound);
      end;
        if FindDTMRotated(WalkingToOres[1],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) then
          begin
            Writeln('Walking to second DTM');
            Mouse(x,y,5,5,True);
            FFlag(6);
          end;
        if FindDTMRotated(WalkingToOres[2],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) then
          begin
            Writeln('Walking to failsafed DTM');
            Mouse(x,y,5,5,True);
            FFlag(6);
          end;
              {repeat
                Wait(50+Random(25));
              until FindDTMRotated(WalkingToOres[1],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound);
          end;
            if FindDTMRotated(WalkingToOres[1],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) then
              begin
                Writeln('Walking to second DTM');
                Mouse(x,y,5,5,True);
                FFlag(6);
              end;}
  end;

 procedure WalkToMine;
  begin
    if(InvEmpty) then
      Writeln('Walking To Mine..');
    begin
       ClickNorth(SRL_ANGLE_HIGH);
      if ObjDTM_WalkPath(['117:55:5:0:7:72:143:1:7:23:80:1:7:26:27:1:7:46:36:0:7:134:87', '114:140:3:1:7:98:33:0:7:124:67:0:7:96:113', '43:114:3:0:7:30:89:0:7:43:133:0:7:67:55'],0,100,80,false, true) then
        begin
          Wait(1000+random(500));
          MakeCompass('W');
          if FindObjCustom(x,y,['limb-down','adder'],[4548989,2118252,1787227,2376274],15) then
            repeat
              Wait(1000+random(500));
              Writeln('Found Ladder, climbing down');
              //Wait(1000+random(500));
              //colorz:=GetColor(x,y);
              Mouse(x,y,4,4,false)
              ChooseOption('limb');
              Wait(500+random(250));
              Antiban;
            //until FindColorTolerance(x,y,5067905,MSX1,MSY1,MSX2,MSY2,3);
            until(IsMoving);
          //end else;
          //Writeln('Cannot Find Ladder.');
              begin
                Wait(250+random(225));
                WalkToRocks;
    //ObjDTM_WalkPath(['129:92:3:5:7:111:97:5:7:142:94:5:7:119:78', '133:86:3:5:7:85:55:5:7:123:48:5:7:100:90'],0,100,80,false,true);
              end;
      end;
    end;
 end;

 procedure WalkToLadder;
 begin
   ClickNorth(SRL_ANGLE_HIGH);
   Wait(1250+random(275));
   if FindDTMRotated(WalkingToUpLadder[0],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(WalkingToUpLadder[2],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) then
    begin
      Writeln('Walking to first DTM');
      Mouse(x,y,4,4,True);
      FFlag(6);
      repeat
        Wait(50+Random(25));
      until FindDTMRotated(WalkingToUpLadder[1],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(WalkingToUpLadder[3],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound)
    end;
      if FindDTMRotated(WalkingToUpLadder[1],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(WalkingToUpLadder[3],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) then
        begin
          Writeln('Walking to second DTM');
          Mouse(x,y,4,4,True);
          FFlag(6);
        end;
 end;

 procedure WalkToBank;
  begin
    if(InvFull) then
      begin
        WalkToLadder;
      end;
      //if ObjDTM_WalkPath(['28:76:4:5:7:46:59:5:7:85:62:5:7:77:90:5:7:46:90', '52:105:5:5:7:35:82:5:7:85:63:5:7:104:82:5:7:79:117:5:7:35:112', '38:86:4:5:7:62:70:5:7:96:59:5:7:109:93:5:7:54:86', '33:64:4:5:7:81:59:5:7:104:55:5:7:104:86:5:7:89:82'],0,100,80,false,true) then
        begin
         if FindObjCustom(x,y,['limb-up','adder'],[3751746,4541776,3226432,4410190],15) then
          repeat
            //MakeCompass('W');
            SetAngle(AngleHigh);
            Wait(1000+random(500));
            Writeln('Found Ladder, climbing down');
            //Wait(1000+random(500));
            //colorz:=GetColor(x,y);
            Mouse(x,y,4,4,false)
            ChooseOption('limb');
            Wait(500+random(250));
            Antiban;
        //until FindColorTolerance(x,y,5067905,MSX1,MSY1,MSX2,MSY2,3);
          until(IsMoving);
        end;
          begin
            Wait(1250+random(275));
            MakeCompass('N');
            ObjDTM_WalkPath(['117:89:3:0:7:38:81:0:7:66:55:0:7:79:101', '54:25:3:0:7:42:97:0:7:29:52:0:7:66:18', '35:59:3:0:7:68:143:0:7:28:124:0:7:91:68'],0,100,80,false,true);
          end;
 end;
//end;

 procedure Banking;
 begin
  if(InvFull) then
    begin
      SetAngle(AngleHigh);
        repeat
          WriteLn('Inventory full, banking.');
          OpenBankFast('feb');
            if(PinScreen)then
              InPin(Players[CurrentPlayer].Pin );
            if(BankScreen) then
              DepositAll;
              CloseBank;
        until(InvEmpty);
   end;
end;

 procedure DeclareDTMs;
 begin
   WalkingToOres[0] := DTMFromString('mggAAAHicY2MAAlYGhmMsDAx7gPg0lH4OxKeAUoeA+AIQrwbiDUB8FYhdLHUYInR5GMw15Ris9BQYzLXlGBwdPBi4gHLYMCMODAEAaN0MZw==');
   WalkingToOres[1] := DTMFromString('mbQAAAHicY2VgYHjGwsBwCIhLgfgtEL8B4kdA8TVAfAWIXwPxeiB2s1ZmcHZ1Z4gy4mb49OULQ2RMNAM7UBwdM2LBYAAABK4OKA==');
   WalkingToOres[2] := DTMFromString('mggAAAHicY2NgYNjHwsCQCMTLgXgvEM8G4llA3A+UawLiGCCeA8R5QDwJiN0s1RiidNkYIsPDGF6/+8bw6f17BnMTYwYuoBw2zIgDQwAABfMPlw==');
   WalkingToUpLadder[0] := DTMFromString('mggAAAHicY2NgYFjMwsAwF4gnAPEHIN4OxLuBeClQrhGIDwDxbCDeCsT9QOxsocXw/elLBmNNaQZDVSkGExNzhrDwKAYuoBw2zIgDQwAA8YIOTw==');
   WalkingToUpLadder[1] := DTMFromString('mbQAAAHicY2VgYOhlYWA4AMXngfgSEK8Gis8E4jNAvAuIVwKxpZ4sw/enLxkM1aUYHBzcGMLCoxi4gOLomBELBgMAt1IM+g==');
   WalkingToUpLadder[2] := DTMFromString('mggAAAHicY2NgYNjEwsCwlwVC3wHi00B8HYinA+VWAnECEE8E4kogXgLEHubqDJ8+fWFw0JNhcLN3YYgJi2Cw1pRi4ALKYcOMODAEAAAVOg6n');
   WalkingToUpLadder[3] := DTMFromString('mggAAAHicY2NgYJjPwsAwC4h3AfFuIF4JxIeAuAso1wnErUA8C4hnAnEJEDvoyTDE6nAwxIRFMOhraDN8ffcRjLmActgwIw4MAQAnyRAI');
 end;

 procedure FreeDTMs;
 begin;
  FreeDTM(WalkingToOres[0]);
  FreeDTM(WalkingToOres[1]);
  FreeDTM(WalkingToOres[2]);
  FreeDTM(WalkingToUpLadder[0]);
  FreeDTM(WalkingToUpLadder[1]);
 end;

 procedure MineRocks;
  begin
    repeat
      MineMithril;
      Writeln('Starting Mith Loop');
      MineCoal;
      Writeln('Starting Coal Loop');
    until(InvFull);
 end;
  //Exit;

  procedure Setup;
  begin
    Smart_Server := 135;
    Smart_Members := false;
    Smart_Signed := True;
    Smart_SuperDetail := False;
    SetupSRL;
    ActivateClient;
    ObjDTM_Setup;
    DeclarePlayers;
  end;

  procedure WalkingTo;
  begin
    DeclareDTMs;
    WalkToMine;
    FreeDTMs;
  end;

  procedure Walkingback;
  begin
    if(InvFull) then
      begin
        Writeln('Time to walk to bank..');
        DeclareDTMs;
        Writeln('DTMs declared');
        WalkToBank;
        FreeDTMs;
      end;
  end;

begin
  Setup;
  ClearDebug;
  if not(LoggedIn) then
  LogInPlayer;
  repeat
  //WalkingTo;
  MineRocks;
  Walkingback;
  Banking;
  until(false);
end.

I won't vote but I'll tell you what I see wrong:
1. Your standards are all over the place. In a few spots, they are correct, in other, they are incorrect. You need to work on those.

2. You should not use global variables and instead should use local variables.
Example of a global variable:

program new;

var
  X, Y: Integer;

begin
end.

Example of a local variable:

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

3. You have an infinite loop or two:

repeat
            Wait(50+Random(25));
          until FindDTMRotated(WalkingToOres[1],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound) or FindDTMRotated(WalkingToOres[2],x,y,MMX1,MMY1,MMX2,MMY2,-Pi/4,Pi/4,Pi/60,aFound);

What happens if it can't find the DTMs? Also, at what point do you ever free the DTMs?


4. Fix the standards on your DTM walking, please. It's VERY ugly.

Alright, thanks. I will work on my standards.

Regarding point 2: If you're refering to the SoulWars script, the reason there are so many globally declared is due to testing. I was constantly changing things around and found it easier to declare them globally instead of moving them constantly.

Thanks for pointing that out the loops, never thought of that..

Lol :P
Is this better? I haven't reformatted the Yew Script since I originally wrote it (minus a few bugs.)

 procedure WalkToYew;  //Thanks for the help in IRC (Euphemism, [J]ustin)
  begin
    if(InvEmpty) then
      Writeln('Inventory is empty, walking to Yews.');
        begin
          if ObjDTM_WalkPath(['73:113:4:10:7:66:70:0:7:83:87:8:7:90:120:5:7:30:100','64:139:5:5:7:40:67:0:7:95:56:1:7:126:71:1:7:82:127:8:7:65:114','57:119:5:0:7:47:88:8:7:69:62:0:7:134:83:1:7:98:126:3:7:29:103', '36:81:5:0:7:71:52:8:7:97:66:1:7:78:118:5:7:33:119:1:7:30:68'],0,100,80,false,true) then
            Writeln('Arriving at Yews.');
              begin
                wait(250 + random(250));
                MakeCompass('n');
              end;
        end;
  end;

  procedure WalkToBank;
  begin
    if(InvFull) then
      Writeln('Inventory is full, walking to bank..');
        begin
          if ObjDTM_WalkPath(['97:61:6:1:7:37:63:0:7:79:47:8:7:106:61:1:7:87:115:5:7:61:115:3:7:39:96', '106:28:4:1:7:104:100:1:7:23:88:0:7:66:51:1:7:112:58', '84:36:4:1:7:82:95:0:7:44:108:1:7:58:55:1:7:110:58', '88:63:5:1:7:34:36:1:7:109:46:1:7:106:105:1:7:55:103:5:7:41:75'],0,100,80,false,true) then
            Writeln('Arriving at Camelot bank.');
              begin
                wait(250+random(250));
                Antiban;
                MakeCompass('N');
              end;
        end
  end;

Use MarkTime and TimeFromMark to kill endless loops.

Yes.

Proud you released your Soul Wars script and resisted the temptation of selling it else where. Doing good, just keep on improving it and adding more features to it, fixing bugs, cleaning it up and it will be an amazing script to add to the collection in member+

Good luck and remember that learning is a process that never ends. ^.^

It's a Yes from me ^.^

From: jatex
Lol :P
Is this better? I haven't reformatted the Yew Script since I originally wrote it (minus a few bugs.)

 procedure WalkToYew;  //Thanks for the help in IRC (Euphemism, [J]ustin)
  begin
    if(InvEmpty) then
      Writeln('Inventory is empty, walking to Yews.');
        begin
          if ObjDTM_WalkPath(['73:113:4:10:7:66:70:0:7:83:87:8:7:90:120:5:7:30:100','64:139:5:5:7:40:67:0:7:95:56:1:7:126:71:1:7:82:127:8:7:65:114','57:119:5:0:7:47:88:8:7:69:62:0:7:134:83:1:7:98:126:3:7:29:103', '36:81:5:0:7:71:52:8:7:97:66:1:7:78:118:5:7:33:119:1:7:30:68'],0,100,80,false,true) then
            Writeln('Arriving at Yews.');
              begin
                wait(250 + random(250));
                MakeCompass('n');
              end;
        end;
  end;

  procedure WalkToBank;
  begin
    if(InvFull) then
      Writeln('Inventory is full, walking to bank..');
        begin
          if ObjDTM_WalkPath(['97:61:6:1:7:37:63:0:7:79:47:8:7:106:61:1:7:87:115:5:7:61:115:3:7:39:96', '106:28:4:1:7:104:100:1:7:23:88:0:7:66:51:1:7:112:58', '84:36:4:1:7:82:95:0:7:44:108:1:7:58:55:1:7:110:58', '88:63:5:1:7:34:36:1:7:109:46:1:7:106:105:1:7:55:103:5:7:41:75'],0,100,80,false,true) then
            Writeln('Arriving at Camelot bank.');
              begin
                wait(250+random(250));
                Antiban;
                MakeCompass('N');
              end;
        end
  end;

NOPE. You only indent on a begin, or an if -IF- it only has one conditional ("if not loggedin then loginplayer").

Also, wat? You call an if, do a writeln (THUS ENDING THE IF STATEMENT), THEN you call the begin. This is wrong. Call the IF, THEN BEGIN, then the stuff related to what you want done because the if statement results true. You understand this?

Not sure what to say about those logic errors and standards. You're active on IRC but eh.. can you post a proggy on the SW script? And make a list of what you have not yet to complete in it?

Harry = tightest mo'fka on the block :P

Thanks for the tip S1N, I'll be sure to implement that.

Thanks Demise, and I'll keep that in mind.

Thanks S1N, again :P.

Alright Harry, I read up on standards, but never really followed them to the t. I get what you're saying. The Yew script I will be going back and editing it (adding failsafes etc.) and cleaning up the rest of the code. I was more excited about writing my first script then anything else :P.

For the SW script:
Attacking needs to be implemented.
Failsafes need to be adding for everything. (I've seen it to a procedure perfect, but also seen it completely mess up.)
Walking from the red-teams small graveyard to the Obelisk. I somehow lost the path I made, lol :3.

Does this mean I was accepted?:P

Been a while hasnt it yes looks like you have gotten members grats

He does have more yes' but only 12[9/3] people voted.
Maybe have an admin decide if the app voting time should be extended or just give him mems?

Has the number of voters diminished since I was voted in?

A lot of people don't vote anymore, just some people who just go on apps when they have a bad day and vote no on all, the rest is the same 10-15 people

So, what's this mean for me? ;3

From: jatex
So, what's this mean for me? ;3

You're in the same situation as before… You're stuck waiting on an admin.

Why so eager?

From: Kyle Undefined
Why so eager?

He has been waiting for a bit.

From: Kyle Undefined
Why so eager?

Perhaps eager is the wrong word, but nonetheless the application went "through" (the poll auto-closed) on Saturday and I'm wondering if I'll be officially accepted into members, or if it will be denied by an admin.

Sorry no from me. You use the Function FindObject a bit too much and rely on DTM's to get the job done. If you look into TPA's, you could do everything much more easily and efficiently.

But don't get discouraged. You show clear knowledge of SRL and you are on your way.

From: kingarabian
Sorry no from me. You use the Function FindObject a bit too much and rely on DTM's to get the job done. If you look into TPA's, you could do everything much more easily and efficiently.

But don't get discouraged. You show clear knowledge of SRL and you are on your way.

Was voting re-opened or something?

Nonetheless, I really just haven't messed with TPAs all the scripts I've written have run plenty smooth with findobj etc.
Either way I plan on implementing them in a woodcutter that I want to write..(once I'm home anyway)

Don't double post, it makes it seem as if you're greedy for Members :p

From: Sin
Don't double post, it makes it seem as if you're greedy for Members :p

Lol :P
I'm simply wondering what the status on the application is considering it's been closed for nearly 2 weeks.

Well my brother and I are working on a Soul Wars script ourselves. If you knew some simple TPA's, you could do all the core functions so much easier… But you show potential, but I want to see some intermediate things in there as well.

Also, while ObjectDTM's are very powerful they are also very simple to use. By using ObjDTM's you are only telling me that you only know how to use a tool.

But yeah, as long as you show some more dedication and expand your knowledge you will be fine. As of recent we have become A LOT more stricter on member applications.

Tbh, you're not that active. You've npbeen a member since 2007 and you only have 90 posts..

Sorry,

Slipped past the last round I went through.

In!

Welcome