#1 Amount.scar
SRL v31
I get Compiles but then i get this [Runtime Error] : Exception: Access violation at address 006D72AA in module 'scar.exe'. Read of address 00000000 in line 294 in script C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Amount.scar
SCAR Code:
program New;
Var CopperO,TinO,TMined:Integer;
Var CopperDTM,TinDTM,BarDTM:integer;
{.include SRL/SRL.scar}
Procedure Load;
begin
CopperDTM := DTMFromString('78DA637465606078CD80026ED79831B002694' +
'620FE0F048C9E40C63D0634C0884402697B207197801A7320F184' +
'801A1320F199801A5B20F183801A5F20F196809A0020F108BF1A0' +
'05C7B0EFC');
TinDTM := DTMFromString('78DA63CC67606078CD8002BA1AEAC1342394C' +
'F5809241E32A001465435E540E22D01357940E22B01357140E233' +
'01351940E2310135207FDDC3AF06009F400B02');
BarDTM := DTMFromString('78DA639CCAC0C0F090010D302291407A31907' +
'84A404D2790784B849A8F04D42C00124F08A8990924BE12503307' +
'487CC2AF0600C9870AA4');
end;
Procedure CountO;
begin
CopperO:= CountItemsIn('inv', 'dtm',CopperDTM, []);
Writeln('Copper Mined='+InttoStr(CopperO))
TinO:= CountItemsIn('inv', 'dtm',TinDTM, []);
Writeln('Tin Mined='+IntToStr(TinO));
TMined:= TMined+ CopperO + TinO;
end;
begin
SetupSRL;
ActivateClient;
Wait(1000+Random(500));
CountO;
end.
#2 RaidalWalk
it there any way to make it scan out instead of in?