Well I made a thread earlier, but deleted it because I though I had it sorted, but I don't.
Here's the code first off:
SCAR Code:
program New;
{.include SRL/SRL.scar}
var
BronzeBar, IronBar, SteelBar, MithBar, AddyBar, RuneBar, Bars, x, y : Integer;
const
Bar = 'RuneBar'; //Valid arguments: BronzeBar ~ IronBar ~ SteelBar ~ MithBar ~
// AddyBar ~ RuneBar ~~ EXACTLY!
procedure LoadDTMs;
begin
case (Bar) of
0: begin
BronzeBar := DTMFromString('78DA63FCC6C4C0F080910119C47A683370016' +
'990E87F2060FC0C54730D550D44164602E95F40353708A8616466' +
'60B84B40CD6FA0394F09A8F90254F39A809A674035CF08A879035' +
'4F312558D818202AA9AE740350F0998F30EA8E6167E3500824016' +
'C1');
Bars:= BronzeBar;
end;
1: begin
IronBar := DTMFromString('78DA8DD1D10A40500C06E0CD499294E4C6C39' +
'D3B6F2E44A208B9C12F29AEFEB38BADB6AFB59A0646A457F94661' +
'ADE4A877F744680853FECD337D336A02531393C234C46430ADC39' +
'E819818662626825988119895181F662366F7442607331273C074' +
'C418DC5339DC4C7E7A016EE916E1');
Bars:= IronBar;
end;
2: begin
SteelBar := DTMFromString('78DA63CC62666090646240061505F90C46409' +
'A1188FF03016326508D20AA1A882C8C04D20540354204D45400D5' +
'881350530A54234B404D2E508D2A0135494035CA04D4C402D5C81' +
'1501307542343404D3211FE4A05AA5121220C9508A82904AA11C6' +
'AF06006FA10CB2');
Bars:= SteelBar;
end;
3: begin
MithBar := DTMFromString('78DA638C64666078CDC8800CEC1D621924813' +
'448F43F103082D43C465503918591403A01A8E6090135A94035CF' +
'09A84904AAF94C404D3A50CD5B22D410B22B16A8E63B013501403' +
'55F08A80905AAF946408D2F50CD7B22EC7A43845D04FC0500F093' +
'15E9');
Bars:= MithBar;
end;
4: begin
AddyBar := DTMFromString('78DA636C67666078C7C8800C02D30219B8803' +
'448F43F10303603D53C46550391859140BA03A8E60901357D4035' +
'CF08A8990454F3820835AF09A8E906AAF94C849BBF1150534F849' +
'A0ACC30C450530554F38508356F08A8A901AA7945849B9FE35703' +
'00D5E11999');
Bars:= AddyBar;
end;
5: begin
RuneBar := DTMFromString('78DA63E4646660E0676240064179950C22409' +
'A1188FF03012307500D3BAA1A882C8C04D2FC40355C04D48800D5' +
'F01050230C542348400D1F508D1801356C40353204D4FC03CA4B1' +
'250F313282F4E84397C04D4B000DDC3815F0D00FFE809A7');
Bars:= RuneBar;
end;
end;
end;
procedure Test;
begin
if FindDTM(Bars, x, y, MIX1, MIY1, MIX2, MIY2) then
MMouse(X, Y, 10, 10);
end;
begin
SetupSRL;
ActivateClient;
LoadDTMs;
Test;
end.
Most experienced scripters should probably be able to see what I'm trying to do, which is load a single DTM, depending on which bar the user wants, and names it to "Bars". However, when I run it, it compiles, but I get an error.
Code:
[Runtime Error] : Exception: Type Mismatch in line 14 in script D:\Program Files\SCAR 3.15b\SCAR 3.15\Scripts\My Scripts\Smither\Smither.scar
Any help appreciated,
~Richard