I have been begginning a Nat Running script, but been running into a strange error in the OBJDTM extension.
the script:Code:Error: Exception: "" is an invalid integer at line 810
Anyone else had problems with ObjectDTM?Code: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.



Reply With Quote




