SRL Archive - OSR Help

Object Dtm Partially working?

m34tcode

2012-03-09 10:45:39

I have been begginning a Nat Running script, but been running into a strange error in the OBJDTM extension.

Error: Exception: "" is an invalid integer at line 810

the script:

program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i ObjectDTM\ObjDTMInclude.simba}

const
  debug = true;

var AREA_GraahkTele,AREA_Altar,AREA_InAltar:String;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Active := true;
    Member := true
  end;
end;

procedure debugText(words:String);
begin
  if debug then writeln(words);
end;

procedure setAreas;
begin
  //AREA_GraahkTele := '80:80:8:1:7:95:71:1:7:101:86:1:7:117:83:1:7:120:95:1:7:129:75:3:7:103:95:3:7:115:56:3:7:87:71:10:54:80:61:66:76:59:97:60:109:74:111:88:107:113:85:122:64:115:56:94';
  AREA_InAltar := '66:53:10:1:7:90:98:1:7:105:90:1:7:109:78:1:7:113:58:1:7:113:43:1:7:86:114:1:7:121:106:3:7:129:75:3:7:37:91:3:7:142:67';
end;

procedure walkToAltar;
var
  DTMs:TStringArray;
  i:Integer;
begin
      debugText('Walking to altar...');
      DTMs := ['135:61:5:1:7:90:83:1:7:105:78:1:7:51:71:2:7:75:119:3:7:102:52',
      '136:80:7:3:7:108:90:3:7:52:72:1:7:94:101:1:7:90:114:1:7:83:125:1:7:59:110:1:7:110:105',
      '141:83:6:1:7:70:62:1:7:66:78:1:7:66:94:1:7:117:53:1:7:98:53:1:7:97:45',
      '101:35:10:1:7:57:58:1:7:65:50:1:7:73:42:1:7:49:34:1:7:64:22:1:7:37:51:1:7:37:59:3:7:116:58:3:7:108:66:3:7:112:78',
      '134:61:6:1:7:119:69:1:7:82:49:1:7:58:91:3:7:101:107:3:7:93:116:3:7:97:128',
      '135:90:7:1:7:70:95:1:7:79:103:1:7:95:103:3:7:88:95:1:7:32:75:3:7:101:95:1:7:32:62',
      '107:111:9:3:7:105:66:3:7:92:74:3:7:96:91:3:7:80:58:3:7:75:37:1:7:66:87:1:7:71:108:1:7:79:116:1:7:41:100',
      '90:81:9:1:7:53:87:1:7:44:79:1:7:39:57:3:7:71:62:3:7:67:45:3:7:79:36:3:7:110:57:3:7:118:53:3:7:123:70'];
  for i:=0 to length(DTMs)-1 do
    ObjDTM_Walk(DTMs[i],20,150,40,true);
end;

procedure MouseAltar;
var altarCols:TIntegerArray;
x,y:integer;
begin
  altarCols := [5242264,6280345,4976543];
  FindObjCustom(x,y,['nter', 'ltar'],altarCols,4);
  mouse(x,y,1,1,true);
  //wait till inside
  while not ObjDTM_Walk(AREA_InAltar,20,150,40,true) do wait(125+random(25));

end;


procedure CraftRunes;
begin
  ObjDTM_Walk(AREA_InAltar,15,15,40,true);
end;

begin

  Smart_Members := true;
  Smart_Server := 100;
  Smart_Signed := false;
  Smart_SuperDetail := false;

  SetupSRL;
  LoadObjects;

  ClickNorth(SRL_ANGLE_HIGH);
  repeat
      //walkToAltar;
      MouseAltar;
      CraftRunes;
  until false;
end.

Anyone else had problems with ObjectDTM?

Ashaman88

2012-03-09 11:19:12

From: m34tcode
I have been begginning a Nat Running script, but been running into a strange error in the OBJDTM extension.

Error: Exception: "" is an invalid integer at line 810

the script:

program new;
{$DEFINE SMART}
{$i srl/srl.simba}
{$i ObjectDTM\ObjDTMInclude.simba}

const
  debug = true;

var AREA_GraahkTele,AREA_Altar,AREA_InAltar:String;
procedure DeclarePlayers;
begin
  HowManyPlayers := 1
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  with Players[0] do
  begin
    Name := '';
    Pass := '';
    Active := true;
    Member := true
  end;
end;

procedure debugText(words:String);
begin
  if debug then writeln(words);
end;

procedure setAreas;
begin
  //AREA_GraahkTele := '80:80:8:1:7:95:71:1:7:101:86:1:7:117:83:1:7:120:95:1:7:129:75:3:7:103:95:3:7:115:56:3:7:87:71:10:54:80:61:66:76:59:97:60:109:74:111:88:107:113:85:122:64:115:56:94';
  AREA_InAltar := '66:53:10:1:7:90:98:1:7:105:90:1:7:109:78:1:7:113:58:1:7:113:43:1:7:86:114:1:7:121:106:3:7:129:75:3:7:37:91:3:7:142:67';
end;

procedure walkToAltar;
var
  DTMs:TStringArray;
  i:Integer;
begin
      debugText('Walking to altar...');
      DTMs := ['135:61:5:1:7:90:83:1:7:105:78:1:7:51:71:2:7:75:119:3:7:102:52',
      '136:80:7:3:7:108:90:3:7:52:72:1:7:94:101:1:7:90:114:1:7:83:125:1:7:59:110:1:7:110:105',
      '141:83:6:1:7:70:62:1:7:66:78:1:7:66:94:1:7:117:53:1:7:98:53:1:7:97:45',
      '101:35:10:1:7:57:58:1:7:65:50:1:7:73:42:1:7:49:34:1:7:64:22:1:7:37:51:1:7:37:59:3:7:116:58:3:7:108:66:3:7:112:78',
      '134:61:6:1:7:119:69:1:7:82:49:1:7:58:91:3:7:101:107:3:7:93:116:3:7:97:128',
      '135:90:7:1:7:70:95:1:7:79:103:1:7:95:103:3:7:88:95:1:7:32:75:3:7:101:95:1:7:32:62',
      '107:111:9:3:7:105:66:3:7:92:74:3:7:96:91:3:7:80:58:3:7:75:37:1:7:66:87:1:7:71:108:1:7:79:116:1:7:41:100',
      '90:81:9:1:7:53:87:1:7:44:79:1:7:39:57:3:7:71:62:3:7:67:45:3:7:79:36:3:7:110:57:3:7:118:53:3:7:123:70'];
  for i:=0 to length(DTMs)-1 do
    ObjDTM_Walk(DTMs[i],20,150,40,true);
end;

procedure MouseAltar;
var altarCols:TIntegerArray;
x,y:integer;
begin
  altarCols := [5242264,6280345,4976543];
  FindObjCustom(x,y,['nter', 'ltar'],altarCols,4);
  mouse(x,y,1,1,true);
  //wait till inside
  while not ObjDTM_Walk(AREA_InAltar,20,150,40,true) do wait(125+random(25));

end;


procedure CraftRunes;
begin
  ObjDTM_Walk(AREA_InAltar,15,15,40,true);
end;

begin

  Smart_Members := true;
  Smart_Server := 100;
  Smart_Signed := false;
  Smart_SuperDetail := false;

  SetupSRL;
  LoadObjects;

  ClickNorth(SRL_ANGLE_HIGH);
  repeat
      //walkToAltar;
      MouseAltar;
      CraftRunes;
  until false;
end.

Anyone else had problems with ObjectDTM?

When I made my nat script objdtm was more unreliable than sps. you can get sps to work pretty much full proof, although you should have a back up as well

m34tcode

2012-03-09 11:25:20

The ObjBTM walking is actually very good. Ill try out SPS. Thanks