SRL Archive - OSR Help

procedure BankAtEdge;
var
Banker,x,cx,cy,y:Integer;
begin;
  Banker := DTMFromString('m6wAAAHic42ZgYEhmhOB0IM4G4lQgTgTiCCAOA+JIKB0LxH+A6r8C8S8g/g/ErEAxASAWBGIuIGaEqvkBxPNmdTI0N9cy/C3PZ/h70JdhbaAPg66SJIO6rChDmq8lg62eEsNsTxeGD8+eMsgB1ROLGUnASAAA7x4aMQ==');
end;
  begin;
    Wait(3000);
    if FindDTM('Banker', x,y,MSX1,MSY1,MSX2,MSY2) then
    begin;
      Mouse(cx,cy,3,3,false);
      ChooseOption('Bank Banker');
      Wait(3000);
      Withdraw(0,0,28);
      CloseBank;
     end else
         begin;
            Logout;
            TerminateScript;
         end;
end;
        

I get a compiling error:[Error] (60:26): Unknown identifier 'x' at line 59
Compiling failed.

but i defined x as an integer?

it looks good to me. Do you mind post the entire script or highlight the line?

program new;
{$DEFINE SMART}
{.include SRL/SRL.simba}
{.include custom/DDTM.simba}
{.include SPS/SPS.simba}
{$i ObjectDTM\ObjDTMInclude.simba}
const
  SmartWorld = 7;
  Members = False;
  SignedClient = True;
  HighDetail = False;
  NumbOfPlayers = 1;
  StartPlayer= 1;

  procedure DeclarePlayers;
var i:integer;
begin
  NumberOfPlayers(NumbOfPlayers);
  CurrentPlayer := StartPlayer;
  for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

  with Players[0] do
  begin
    Name        := '';     //Player username.
    Pass        := '';     //Player password.
    Nick        := ''; //Player nickname - 3-4 letters of Player username.
    Active      := True;

  end;

end;




procedure FromEdgeToBank;
Var

cx,cy,Banker:integer;

begin;
  ClickNorth(SRL_ANGLE_HIGH);
if ObjDTM_Find('52:48:4:1:7:120:86:1:7:136:90:1:7:58:29:1:7:86:60', cx, cy, True) then
begin;
  Writeln('We found it, now lets walk it!');
  ObjDTM_Walk('52:48:4:1:7:120:86:1:7:136:90:1:7:58:29:1:7:86:60', 2, 100, 5, True);
end;
end;

procedure BankAtEdge;
var
Banker,x,cx,cy,y:Integer;
begin;
  Banker := DTMFromString('m6wAAAHic42ZgYEhmhOB0IM4G4lQgTgTiCCAOA+JIKB0LxH+A6r8C8S8g/g/ErEAxASAWBGIuIGaEqvkBxPNmdTI0N9cy/C3PZ/h70JdhbaAPg66SJIO6rChDmq8lg62eEsNsTxeGD8+eMsgB1ROLGUnASAAA7x4aMQ==');
end;
  begin;
    Wait(3000);
    if FindDTM('Banker', x,y,MSX1,MSY1,MSX2,MSY2) then
    begin;
      Mouse(cx,cy,3,3,false);
      ChooseOption('Bank Banker');
      Wait(3000);
      Withdraw(0,0,28);
      CloseBank;
     end else
         begin;
            Logout;
            TerminateScript;
         end;
end;

procedure TeleportToArdy;
begin;
  GameTab(28);
  if FindColorSpiralTolerance(x,y,8333644,564,222,586,240,10) then
  begin;
  Mouse(x,y,3,3,true);
  end;
  Wait(1000);
  if FindColorSpiralTolerance(vx,vy,1579371,155,197,183,225,10) then
  begin;
    Mouse(vx,vy,3,3,true);
    Wait(15000);
  end;
end;



function FromArdyToWildy:Boolean;
var
ArdyPath:TPointArray;
x,qx,qy,y:integer;
 begin;
  ClickNorth(SRL_ANGLE_HIGH);
  SPS_Setup(RUNESCAPE_SURFACE,['5_8','6_8','5_7','6_7']);
  ArdyPath := [Point(2379, 3266), Point(2379, 3282), Point(2379, 3296), Point(2369, 3318), Point(2356, 3322), Point(2341, 3316), Point(2334, 3311), Point(2309, 3303), Point(2283, 3302), Point(2270, 3314), Point(2269, 3331), Point(2266, 3341), Point(2266, 3358), Point(2265, 3369), Point(2263, 3381), Point(2264, 3389), Point(2261, 3402), Point(2261, 3415), Point(2262, 3427), Point(2262, 3444), Point(2260, 3458), Point(2259, 3470), Point(2246, 3473), Point(2220, 3473), Point(2212, 3470), Point(2212, 3439), Point(2200, 3421), Point(2185, 3409), Point(2170, 3405), Point(2156, 3405), Point(2141, 3406), Point(2127, 3408), Point(2116, 3410), Point(2102, 3414), Point(2091, 3416)];
  SPS_WalkPath(ArdyPath);
  Wait(3000);
  if FindObj(x,y,'Lever',4026508,10) then
  begin;
    Mouse(x,y,2,2,true);
    Wait(5000);
end;
end;

function FromWildyToWeb:boolean;
var
WildyPath:TPointArray;
x,y:integer;
begin;
  Wait(1000);
  ClickNorth(SRL_ANGLE_HIGH);
  SPS_Setup(RUNESCAPE_SURFACE,['11_2','10_2']);
  WildyPath := [Point(4455, 934), Point(4457, 920), Point(4457, 913), Point(4457, 899), Point(4460, 888), Point(4462, 866), Point(4467, 848), Point(4467, 832), Point(4468, 825)];
  SPS_WalkPath(WildyPath);
end;

function CutWeb(WaitFor: Integer): Boolean;
var
  Uptext: String;
  t, x, y: Integer;
begin
  Result := False;
  MarkTime(t);
  Writeln('Searching for web...');
  repeat
    if FindObj(x,y,'Web',9802901,10) then
    begin
      repeat
        Mouse(x,y,3,3,true);
        if WaitUptext('alk', 1000) then
        begin
          Writeln('Web slashed!');                                //procedure WalkPath;begin  ObjDTM_WalkPath(['78:83:14:1:7:45:95:10:7:66:91:10:7:65:71:10:7:65:79:10:7:65:63:10:7:65:54:10:7:65:46:10:7:109:41:10:7:109:58:10:7:109:49:10:7:110:66:10:7:110:74:10:7:110:82:0:7:79:39'    ,'32:121:3:1:7:49:95:10:7:69:91:1:7:33:50',    '48:121:5:1:7:98:55:1:7:66:94:1:7:78:115:1:7:57:130:1:7:41:111',    '13:72:8:1:7:90:86:1:7:74:91:1:7:74:107:1:7:90:111:1:7:106:108:1:7:102:120:1:7:62:79:1:7:74:67',    '37:107:7:1:7:82:71:1:7:62:75:1:7:46:71:1:7:42:91:1:7:58:107:1:7:46:115:1:7:58:127',    '59:108:8:1:7:82:91:1:7:98:90:1:7:110:102:1:7:110:118:1:7:35:75:1:7:40:126:1:7:79:133:1:7:94:67'], 0, 100, 5, True, True);end;
          Result := True;
          Break;
        end;
        Wait(Random(1000));
      until (TimeFromMark(t) > (WaitFor / 2));
    end;
  until Result or (TimeFromMark(t) > WaitFor);
  if not Result then
    Writeln('Web not found!');
end;



procedure WalkFromWebToGate;
begin;
  ObjDTM_WalkPath(['24:111:3:2:7:66:48:2:7:18:95:2:7:45:111:4:16:103:34:103:30:119:16:117', '47:137:3:2:7:105:84:2:7:78:68:2:7:77:147:4:43:127:59:136:48:145:37:136', '51:143:3:2:7:113:92:2:7:116:127:2:7:93:115:4:45:136:66:139:53:150:40:142', '18:114:3:2:7:124:57:2:7:147:69:5:7:38:140:4:12:110:33:108:26:119:14:117', '8:74:3:5:7:99:102:5:7:41:136:5:7:87:107:4:3:66:17:67:17:80:3:81', '12:77:3:2:7:93:119:2:7:54:118:2:7:47:134:4:4:72:25:71:21:86:8:86', '9:65:3:2:7:65:91:2:7:39:53:2:7:124:123:4:6:57:21:59:18:79:3:69', '16:77:3:2:7:124:123:2:7:117:138:2:7:38:52:4:11:65:25:74:19:87:9:82', '7:77:3:5:7:72:130:5:7:52:75:5:7:92:28', '10:72:3:2:7:78:52:2:7:94:52:2:7:133:48', '43:131:3:5:7:139:63:5:7:88:35:5:7:80:32', '26:62:3:5:7:52:127:5:7:46:39:5:7:50:14:5:33:66:16:66:20:50:33:50:33:67'], 0, 100, 5, true, true);
end;

function OpenGate:boolean;
var
WolfPath:TPointArray;
x,y:integer;
begin
  if ObjDTM_Find('mrAAAAHic42BgYBBhZGAQBOIPDBD8EYj/MEDExIG4HMhOA+J0IC4F4lYgboHSbUAsKirCEBsdyZCSGM9QXVnGUFKYz9BYV81QW13BkJOZzsAFVIMPMxLAMAAAi8YRow==',x,y,true) then

  begin;
    Mouse(x,y,3,3,true);
  end else
  begin;
    TerminateScript;
  end;
  Wait(14000);
  if FindBlackChatMessage('you skilfully balance across ridge') then
  begin;
    Writeln('We arrived')
  end else
  Repeat
  SPS_Setup(RUNESCAPE_SURFACE,['9_2']);
  WolfPath := [Point(3839, 940), Point(3859, 957), Point(3874, 979), Point(3864, 999), Point(3849, 999), Point(3834, 980), Point(3831, 976)];
  if objDTM_Find('mrAAAAHic42BgYBBhZGAQBOIPDBD8EYj/MEDExIG4HMhOA+J0IC4F4lYgboHSbUAsKirCEBsdyZCSGM9QXVnGUFKYz9BYV81QW13BkJOZzsAFVIMPMxLAMAAAi8YRow==',x,y,true) then
  begin;
    Mouse(x,y,3,3,true);
  end;
  Until(FindBlackChatMessage('you skilfully balance across ridge'))
  end;


begin
  Smart_Server := SmartWorld;
  Smart_Members := Members;
  Smart_Signed := SignedClient;
  Smart_SuperDetail := HighDetail;
  setupSRL();
  ObjDTM_Setup
  DeclarePlayers;
  FromEdgeToArdy;
end.                                          

The whole script is a complete mess, im trying to make a death walker from Er1ks agility wilderness course,

It's my first script and i started after watching one 40 minute video from YoHo, I started with SPS then read a few DTM tutorials then started changing things and everything is one massive mess now xD

Found your problem

procedure BankAtEdge;
var
Banker,x,cx,cy,y:Integer;
begin;
  Banker := DTMFromString('m6wAAAHic42ZgYEhmhOB0IM4G4lQgTgTiCCAOA+JIKB0LxH+A6r8C8S8g/g/ErEAxASAWBGIuIGaEqvkBxPNmdTI0N9cy/C3PZ/h70JdhbaAPg66SJIO6rChDmq8lg62eEsNsTxeGD8+eMsgB1ROLGUnASAAA7x4aMQ==');
  Wait(3000);
  if FindDTM('Banker', x,y,MSX1,MSY1,MSX2,MSY2) then
  begin;
    Mouse(cx,cy,3,3,false);
    ChooseOption('Bank Banker');
    Wait(3000);
    Withdraw(0,0,28);
    CloseBank;
  end else
  begin;
    Logout;
    TerminateScript;
  end;
end; 

You had

Procedure
Var
Begin
  End;
End;

So your first end there terminated the script.


EDIT:

Also

if FindDTM( 'Banker', x,y,MSX1,MSY1,MSX2,MSY2) then    

is suppose to be

if FindDTM( Banker, x,y,MSX1,MSY1,MSX2,MSY2) then    

also here you can reuse x and y.

procedure TeleportToArdy;
var
x,y: Integer;
begin;
  GameTab(28);
  if FindColorSpiralTolerance(x,y,8333644,564,222,586,240,10) then
  begin;
  Mouse(x,y,3,3,true);
  end;
  Wait(1000);
  if FindColorSpiralTolerance( x,y,1579371,155,197,183,225,10) then
  begin;
    Mouse( x, y,3,3,true);
    Wait(15000);
  end;
end;
       

Great effort, keep it up! Don't stop learning and feel free to post problem if you run into one!!@#!

post entire script.

Also problem is

begin;
  Banker := DTMFromString('m6wAAAHic42ZgYEhmhOB0IM4G4lQgTgTiCCAOA+JIKB0LxH+A6r8C8S8g/g/ErEAxASAWBGIuIGaEqvkBxPNmdTI0N9cy/C3PZ/h70JdhbaAPg66SJIO6rChDmq8lg62eEsNsTxeGD8+eMsgB1ROLGUnASAAA7x4aMQ==');
end;

You have a begin and end right there, then script thinks that that procedure is all over.
Remove that end (and whatever other begins/ends you must)

Thanks allot guys, understand what i did wrong now :D

I'm going to try neat up the script allot so it's readable, Thanks for DTM tip btw, was just about to get stuck at that part for another 5-10 minutes xD