procedure LoadDTMs(WhatDTM : string);
begin
case WhatDTM of
'Summoning' : SummoningDTM := DTMFromString('78DA63646760606066000328C5501521C92 00' +
'2A41981F83F10307202197CA86A2CCD74E06A40809119534D 6793' +
'02AA1A9039DCA86ADC75C551D5B0619A83EC1EB8395CA86A6 A3 3B' +
'C50D5B060AAE97FD087A20600F04A0C7A');
'Brig' : BrigDTM := DTMFromString('78DA63E4666060606300036608C510622BC 1C' +
'00FA41981F83F103082D4F0E05603028C2C986A125DE530D5 B011' +
'50C346A43984D4701056030055750A27');
'Bank' : BankDTM := DTMFromString('78DA63E4646060606200036608C5F0FFDF1 C0' +
'67E20CD0862030123480D2FAA9AAA0849B81A1060640712DC A86A' +
'FEDDD0C254C38ADB2EB01A90199C04CCE1C43407AB1A426EE 646A' +
'8811AC7B06EF90A5435CC98769D3F7112550DC80C2E543518 E6B0' +
'2324616A0EACF2C1740F13116AD809F88B13D33DE8E103006 BF31' +
'FBA');
'Teleport' : TeleportDTM := DTMFromString('78DA6314606060606700036608C5F03A5F8 58' +
'11F483302F17F2060140132B851D578A584C3D58000A32090 10C4' +
'6D0E580D2790E022420D1F013520337851D5589AE9A0AA019 9C14' +
'39E9BB991D588106117C80C0E22ECE2C3AF0600C15812C3') ;
'BrokenPick' : BrokenPickDTM := DTMFromString('78DA6334676660A8656440058C482490760 3A' +
'A2926A0C61BA8A688801A3BA09A4C026A8C806A728950D34A 408D' +
'13504D3E7E3500C8FC050A');
end;
Everytime i get this error with it as a procedure.
ine 81: [Error] (17187:16): Unknown identifier 'BrokenPickDTM' in script
And when i change it to a Function. i get this error.
Line 56: [Error] (17162:36): colon (':') expected in script
Could someone tell me why i can't get it to work?


Reply With Quote









