equal
deleted
inserted
replaced
34 |
34 |
35 // for automatic tests |
35 // for automatic tests |
36 HaltTestSuccess = 0; |
36 HaltTestSuccess = 0; |
37 HaltTestFailed = 10; |
37 HaltTestFailed = 10; |
38 HaltTestLuaError = 11; |
38 HaltTestLuaError = 11; |
|
39 HaltTestUnexpected = 12; |
39 |
40 |
40 |
41 |
41 sfMax = 1000; |
42 sfMax = 1000; |
42 |
43 |
43 // message constants |
44 // message constants |
46 errmsgUnknownCommand = 'Unknown command'; |
47 errmsgUnknownCommand = 'Unknown command'; |
47 errmsgUnknownVariable = 'Unknown variable'; |
48 errmsgUnknownVariable = 'Unknown variable'; |
48 errmsgIncorrectUse = 'Incorrect use'; |
49 errmsgIncorrectUse = 'Incorrect use'; |
49 errmsgShouldntRun = 'This program shouldn''t be run manually'; |
50 errmsgShouldntRun = 'This program shouldn''t be run manually'; |
50 errmsgWrongNumber = 'Wrong parameters number'; |
51 errmsgWrongNumber = 'Wrong parameters number'; |
|
52 errmsgLuaTestTerm = 'WARNING: Lua test terminated before the test was properly finished with EndLuaTest()!'; |
51 |
53 |
52 msgLoading = 'Loading '; |
54 msgLoading = 'Loading '; |
53 msgOK = 'ok'; |
55 msgOK = 'ok'; |
54 msgFailed = 'failed'; |
56 msgFailed = 'failed'; |
55 msgFailedSize = 'failed due to size'; |
57 msgFailedSize = 'failed due to size'; |
101 tpHighest = 1.00; |
103 tpHighest = 1.00; |
102 |
104 |
103 // To allow these to layer, going to treat them as masks. The bottom byte is reserved for objects |
105 // To allow these to layer, going to treat them as masks. The bottom byte is reserved for objects |
104 // TODO - set lfBasic for all solid land, ensure all uses of the flags can handle multiple flag bits |
106 // TODO - set lfBasic for all solid land, ensure all uses of the flags can handle multiple flag bits |
105 // lfObject and lfBasic are only to be different *graphically* in all other ways they should be treated the same |
107 // lfObject and lfBasic are only to be different *graphically* in all other ways they should be treated the same |
106 lfBasic = $8000; // white |
108 lfBasic = $8000; // black |
107 lfIndestructible = $4000; // red |
109 lfIndestructible = $4000; // red |
108 lfObject = $2000; |
110 lfObject = $2000; // white |
109 lfDamaged = $1000; // |
111 lfDamaged = $1000; // |
110 lfIce = $0800; // blue |
112 lfIce = $0800; // blue |
111 lfBouncy = $0400; // green |
113 lfBouncy = $0400; // green |
112 lfLandMask = $FF00; // upper byte is used for terrain, not objects. |
114 lfLandMask = $FF00; // upper byte is used for terrain, not objects. |
113 |
115 |
315 cTargetPointRef : TPoint = (x: NoPointX; y: 0); |
317 cTargetPointRef : TPoint = (x: NoPointX; y: 0); |
316 |
318 |
317 kSystemSoundID_Vibrate = $00000FFF; |
319 kSystemSoundID_Vibrate = $00000FFF; |
318 |
320 |
319 cMinPlayWidth = 200; |
321 cMinPlayWidth = 200; |
|
322 cWorldEdgeDist = 200; |
320 |
323 |
321 implementation |
324 implementation |
322 |
325 |
323 end. |
326 end. |