source: OniTrainer/current/Unit8.pas@ 575

Last change on this file since 575 was 251, checked in by alloc, 17 years ago
File size: 21.1 KB
Line 
1unit Unit8;
2
3interface
4
5USES StdCtrls,Buttons,Windows;
6
7CONST version:String='0.91 beta 1';
8CONST ais_controlled=30; //Number of Chars watched/controlled with this prog
9CONST number_main_groups=4;
10CONST number_settings=55;
11CONST number_items=26; //Char-Data-Items
12CONST number_char_groups=4; //Char-Windows-Groups
13CONST number_structs=3; //Char-Structs
14
15VAR _path:String;
16
17TYPE
18 TSetting = Record
19 updating:Boolean;
20 group:Byte;
21 address:LongWord;
22 has_box:Boolean;
23 Item_Checkbox:TCheckBox;
24 Item_Label:TLabel;
25 has_edit:Boolean;
26 Item_Edit:TEdit;
27 edit_type:Byte;
28 edit_address:LongWord;
29 END;
30 TSettings=Record
31 group:Byte;
32 caption:String;
33 hint:String;
34 address:LongWord;
35 has_box:Boolean;
36 has_edit:Boolean;
37 edit_hint:String;
38 edit_type:Byte;
39 Edit_Address:LongWord;
40 END;
41TYPE
42 byte_array=Array[0..250] OF Byte;
43TYPE
44 TValueSwitcher=Record
45 CASE IsFloat: Boolean OF
46 True: (ValueFloat:Single);
47 False: (ValueInt:LongWord);
48 END;
49TYPE
50 TStructItem=Record
51 updating:Boolean;
52 struct:Byte;
53 offset:LongWord;
54 data_type:Byte;
55 range:Single;
56 group:Byte;
57 Name:String;
58 overview_name:String;
59 hint:String;
60 Item_Edit:TEdit;
61 Item_Freeze:TCheckbox;
62 END;
63TYPE
64 TStructures=Record
65 Structs:Array[1..number_structs] OF LongWord;
66 Items:Array[1..number_items] OF TStructItem;
67 END;
68 TGroup=Record
69 Name:String;
70 Count:Byte;
71 Item:TGroupbox;
72 OpenClose:TSpeedButton;
73 END;
74TYPE
75 Hotkey=Record
76 MOD_Alt:Boolean;
77 MOD_Ctrl:Boolean;
78 Key:Byte;
79 Target_Type:Byte;
80 Target_CharID:Byte;
81 Target_CharName:String[25];
82 Target_Item:Byte;
83 Action:Byte;
84 Value:Double;
85 Value2:Double;
86 END;
87
88CONST HK_Target_Types:Array[1..2] OF String=(
89 'Global setting','Character setting'
90 );
91CONST HK_Actions:Array[1..7] OF String=(
92 'Toggle','Set','Add','Multiply','Freeze','Set & Freeze','Switch value'
93 );
94
95CONST MainGroupsStuff:Array[1..number_main_groups] OF TGroup=(
96 (name:'Debug Settings'),
97 (name:'Environment'),
98 (name:'Cheats'),
99 (name:'Camera')
100 );
101CONST SettingsStuff:Array[1..number_settings] OF TSettings=(
102 (group:1; caption:'Fast mode'; hint:'Makes the game much faster.'+Chr(13)+Chr(10)+'(Fast_Mode)'; address:$5ECE6E; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
103 (group:1; caption:'Everything breakable'; hint:'You can destroy anything with shots.'+Chr(13)+Chr(10)+'(p3_everything_breakable)'; address:$5E96B1; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
104 (group:1; caption:'Debug Characters'; hint:'Displays a little box with debug information about the selected char.'+Chr(13)+Chr(10)+'(Chr_Debug_Characters)'; address:$5ECB90; has_box:True; has_edit:True; edit_hint:'Sets which character should be debugged with ''Debug Characters''.'+Chr(13)+Chr(10)+'(char_to_debug)'; edit_type:1; edit_address:$5ECB8C),
105 (group:1; caption:'Debug Overlay'; hint:'Displays a debug-message box. (Don''t know yet for what use :D)'+Chr(13)+Chr(10)+'(Chr_Debug_Overlay)'; address:$5ECB91; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
106 (group:1; caption:'Draw all Characters'; hint:'Draws all characters, even the ones who are not in Konokos view.'+Chr(13)+Chr(10)+'(Chr_Draw_All_Characters)'; address:$5ECBA2; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
107 (group:1; caption:'Character detail'; hint:'Sets the drawing detail for all characters.'+Chr(13)+Chr(10)+'(Chr_Lod)'; address:0; has_box:False; has_edit:True; edit_hint:''; edit_type:1; edit_address:$54E174),
108 (group:1; caption:'Reduce screenshot size'; hint:'Reduces the screenshot size by 2^n'+Chr(13)+Chr(10)+'(Gs_Screen_Shot_Reduce)'; address:$0; has_box:False; has_edit:True; edit_hint:''; edit_type:1; edit_address:$5ECE98),
109 (group:1; caption:'Open all doors'; hint:'Disables the locks of all doors.'+Chr(13)+Chr(10)+'(Door_Ignore_Locks)'; address:$5EC5F5; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
110 (group:1; caption:'Show HUD'; hint:'Enables/disables the display of the HUD.'+Chr(13)+Chr(10)+'(GS_Show_UI)'; address:$5533E0; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
111 (group:1; caption:'Show names'; hint:'Shows the names of characters above their heads.'+Chr(13)+Chr(10)+'(AI2_ShowNames)'; address:$5EC0B4; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
112 (group:1; caption:'Show healths'; hint:'Shows the healths of characters above their heads.'+Chr(13)+Chr(10)+'(AI2_ShowHealth)'; address:$5EC0B5; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
113 (group:1; caption:'Show lines to AIs'; hint:'Shows lines to each AI character.'+Chr(13)+Chr(10)+'(AI2_ShowLineToChar)'; address:$5EC0B9; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
114 (group:1; caption:'Show paths'; hint:'Shows lines for the paths of AI characters.'+Chr(13)+Chr(10)+'(AI2_ShowPaths)'; address:$5EB8B0; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
115 (group:1; caption:'Show player''s BNV'; hint:'Displays the player''s BNV in a box.'+Chr(13)+Chr(10)+'(Chr_Show_BNV)'; address:$5ECB9E; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
116 (group:1; caption:'Show player''s LOD'; hint:'Displays the player''s LOD in a box.'+Chr(13)+Chr(10)+'(Chr_Show_LOD)'; address:$5ECBA0; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
117 (group:1; caption:'Show performance'; hint:'Displays the FPS in a box.'+Chr(13)+Chr(10)+'(Show_Performance)'; address:$5ECE74; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
118 (group:1; caption:'Print AI spawn events'; hint:'Prints a message whenever an AI is spawn.'+Chr(13)+Chr(10)+'(AI2_PrintSpawn)'; address:$5EC0CD; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
119 (group:1; caption:'Debug Weapons'; hint:'Prints debugging information on any weapon activity.'+Chr(13)+Chr(10)+'(Debug_Weapons)'; address:$620130; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
120 (group:1; caption:'Pin Characters'; hint:'Pins all characters to their current position.'+Chr(13)+Chr(10)+'(Chr_Pin_Character)'; address:$5ECBA1; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
121 (group:1; caption:'AIs ignore player'; hint:'AIs don''t attack player.'+Chr(13)+Chr(10)+'(AI2_IgnorePlayer)'; address:$5EC0C2; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
122 (group:1; caption:'Weapons don''t fade'; hint:'Does make weapons stay forever.'+Chr(13)+Chr(10)+'(Wp_Disable_Fade)'; address:$627DCC; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
123 (group:1; caption:'Draw only every n-th frame'; hint:'Fastens game speed.'+Chr(13)+Chr(10)+'(Draw_Every_Frame / Draw_Every_Frame_Multiple)'; address:$5ECE6D; has_box:True; has_edit:True; edit_hint:''; edit_type:1; edit_address:$5533E4),
124
125 (group:2; caption:'Show VertexShaders'; hint:'Toggles the use of VertexShaders.'+Chr(13)+Chr(10)+'(M3_Shade_Vertex)'; address:$556008; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
126 (group:2; caption:'Show Textures'; hint:'Toggles the use of textures.'+Chr(13)+Chr(10)+'(M3_Fill_Solid)'; address:$556009; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
127 (group:2; caption:'Show Environment'; hint:''+Chr(13)+Chr(10)+'(Gs_Show_Environment)'; address:$5533DC; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
128 (group:2; caption:'Show Objects'; hint:''+Chr(13)+Chr(10)+'(Gs_Show_Objects)'; address:$5533DE; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
129 (group:2; caption:'Show Characters'; hint:''+Chr(13)+Chr(10)+'(Gs_Show_Characters)'; address:$5533DD; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
130 (group:2; caption:'Show Particles'; hint:''+Chr(13)+Chr(10)+'(Gs_Show_Particles)'; address:$5533F0; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:0),
131
132 //(caption:''; hint:''+Chr(13)+Chr(10)+'()'; address:$; has_box:; has_edit:; edit_hint:''; edit_type:; edit_address:$),
133 (group:3; caption:'*bighead*'; hint:'Makes your head bigger.'; address:$5ECB98; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
134 (group:3; caption:'*canttouchthis*'; hint:'Makes you untouchable. (You can''t be knocked down etc)'; address:$5ECE91; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
135 (group:3; caption:'*elderrune*'; hint:'Health regeneration'; address:$620134; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
136 (group:3; caption:'*fistsoflegend*'; hint:'Enemies get knocked away.'; address:$5ECE8F; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
137 (group:3; caption:'*killmequick*'; hint:'Tougher enemies'; address:$5EB849; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
138 (group:3; caption:'*liveforever*'; hint:'Makes you invincible.'; address:$5ECE92; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
139 (group:3; caption:'*reservoirdogs*'; hint:'Enemies attacking their allies.'; address:$5EB848; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
140 (group:3; caption:'*roughjustice*'; hint:'Faster guns.'; address:$620133; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
141 (group:3; caption:'*shapeshifter*'; hint:'Lets you change your character with pressing F8 ingame.'; address:$5ECE6F; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
142 (group:3; caption:'*touchofdeath*'; hint:'Kill enemies with one touch.'; address:$5ECE93; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$0),
143 (group:3; caption:'Headsize'; hint:'Sets the size of the characters head.'+Chr(13)+Chr(10)+'(Chr_Big_Head, Chr_Big_Head_Amount)'; address:$5ECB98; has_box:True; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54E16C),
144 (group:3; caption:'Bodysize'; hint:'Sets the size of your body.'+Chr(13)+Chr(10)+'(Chr_Mini_Me, Chr_Mini_Me_Amount)'; address:$5ECB99; has_box:True; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54E170),
145 (group:3; caption:'Auto-aim distance'; hint:'Sets the distance in which auto-aim should work.'+Chr(13)+Chr(10)+'(Chr_Auto_Aim_Dist)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54E160),
146 (group:3; caption:'Auto-aim angle'; hint:'Sets the angle in which auto-aim should work (in degrees).'+Chr(13)+Chr(10)+'(Chr_Auto_Aim_Arc)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54E15C),
147 (group:3; caption:'Blocking angle'; hint:'Sets the angle in which attacks are blocked (in degrees).'+Chr(13)+Chr(10)+'(Chr_Block_Angle)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54E168),
148 //
149 (group:4; caption:'Height to feet'; hint:'Sets the height of the camera relative to your feets. (normal=15)'+Chr(13)+Chr(10)+'(CM_Height)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54D638),
150 (group:4; caption:'Distance to player'; hint:'Sets the distance of the camera to the placer. (normal=33)'+Chr(13)+Chr(10)+'(CM_Distance)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54D63C),
151 (group:4; caption:'Viewing angle when unarmed'; hint:'Sets of which angle (up/down) you look on the action when you''re unarmed. (normal=8)'+Chr(13)+Chr(10)+'(CM_Canter_Unarmed)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54D644),
152 (group:4; caption:'Viewing angle when armed'; hint:'Sets of which angle (up/down) you look on the action when you''re armed. (normal=7)'+Chr(13)+Chr(10)+'(CM_Canter_Weapon)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54D640),
153 (group:4; caption:'Actual viewing angle'; hint:'Sets of which angle (up/down) you look on the action.'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$6364D0),
154 (group:4; caption:'See-Through-Walls mode'; hint:'Sets if you can see through walls if they are in the way.'+Chr(13)+Chr(10)+'(CM_Jello)'; address:$54D64C; has_box:True; has_edit:False; edit_hint:''; edit_type:0; edit_address:$),
155 (group:4; caption:'Wall-transparency'; hint:'Sets how transparent walls get. (normal=20)'+Chr(13)+Chr(10)+'(CM_Jello_AMT)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:1; edit_address:$54D650),
156 (group:4; caption:'Wall-transparency-range'; hint:'Sets how much around the line between the camera and the player is made transparent. (normal=12)'+Chr(13)+Chr(10)+'(CM_Jello_Radius)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$54D648),
157 (group:4; caption:'Disable next 3 settings'; hint:'Disables the settings for the camera side'; address:$6364C0; has_box:True; has_edit:False; edit_hint:''; edit_type:$; edit_address:$),
158 (group:4; caption:'Side of Konoko'; hint:'Sets of which side you look at Konoko (degrees)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$6364C4),
159 (group:4; caption:'Side of Konoko to change to'; hint:'Sets to which side the cam should move (degrees)'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$6364C8),
160 (group:4; caption:'Change-speed'; hint:'Sets with which speed cam should move'; address:$; has_box:False; has_edit:True; edit_hint:''; edit_type:5; edit_address:$6364CC)
161 );
162CONST CharDataStuff:Array[1..number_items] OF TStructItem=(
163 (struct:1; offset:$014; data_type:6; range:20; group:1; name:'Character name'; overview_name:'Character name'; hint:''),
164 (struct:1; offset:$012; data_type:2; range:0; group:1; name:'Teamnumber'; overview_name:'Teamnumber'; hint:'0 = Konoko'+Chr(13)+Chr(10)+'1 = TCTF'+Chr(13)+Chr(10)+'2 = Syndicate'+Chr(13)+Chr(10)+'3 = Neutral'+Chr(13)+Chr(10)+'4 = Security Guard'+Chr(13)+Chr(10)+'5 = Rogue-Konoko'+Chr(13)+Chr(10)+'6 = Switzerland'+Chr(13)+Chr(10)+'7 = Syndicate Accessory'),
165 (struct:1; offset:$010; data_type:2; range:200; group:1; name:'Modelnumber'; overview_name:'Modelnumber'; hint:''),
166
167 (struct:1; offset:$004; data_type:1; range:0; group:2; name:'Death'; overview_name:'Death';
168 hint:'0 = char alive'+Chr(13)+Chr(10)+'1 = char death but still in animation'+Chr(13)+Chr(10)+'3 = char lying on ground'+Chr(13)+Chr(10)+'7 = only a corpse'+Chr(13)+Chr(10)+'32 = unkillable'),
169 (struct:1; offset:$038; data_type:4; range:10000; group:2; name:'Health'; overview_name:'Health'; hint:''),
170 (struct:1; offset:$03C; data_type:4; range:10000; group:2; name:'Health normal'; overview_name:'Health normal'; hint:''),
171 (struct:1; offset:$1A4; data_type:2; range:10; group:2; name:'Amount of hypos'; overview_name:'Hypos'; hint:''),
172 (struct:1; offset:$1A2; data_type:2; range:10; group:2; name:'Amount of red ammo clips'; overview_name:'Red ammo clips'; hint:''),
173 (struct:1; offset:$1A6; data_type:2; range:10; group:2; name:'Amount of green ammo clips'; overview_name:'Green ammo clips'; hint:''),
174 (struct:1; offset:$1B8; data_type:2; range:10000; group:2; name:'Shield'; overview_name:'Shield'; hint:'Full=100'),
175 (struct:1; offset:$1BA; data_type:2; range:10000; group:2; name:'Phasecloak'; overview_name:'Phasecloak'; hint:'Full=1775'),
176
177 (struct:2; offset:$084; data_type:5; range:0; group:3; name:'x'; overview_name:'x-pos'; hint:''),
178 (struct:2; offset:$088; data_type:5; range:0; group:3; name:'y (height)'; overview_name:'y-pos'; hint:''),
179 (struct:2; offset:$08C; data_type:5; range:0; group:3; name:'z'; overview_name:'z-pos'; hint:''),
180 (struct:1; offset:$16C; data_type:5; range:2*pi; group:3; name:'Body-facing'; overview_name:'Body-facing'; hint:'[0-360]'),
181 (struct:1; offset:$170; data_type:5; range:2*pi; group:3; name:'Direction you yourself look to'; overview_name:'Looking direct.'; hint:'[0-360]'),
182 (struct:3; offset:$21C0; data_type:5; range:0; group:3; name:'Azimuth'; overview_name:'Azimuth'; hint:''),
183 (struct:3; offset:$0E0; data_type:1; range:0; group:3; name:'Off'; overview_name:'Off'; hint:'Sets how long you''re already over an edge'),
184 (struct:3; offset:$0F6; data_type:1; range:0; group:3; name:'Air'; overview_name:'Air'; hint:'Sets how long you''re already in air'),
185 (struct:2; offset:$128; data_type:1; range:0; group:3; name:'NoClipping'; overview_name:'NoClipping'; hint:'2 = NoClipping disabled'+Chr(13)+Chr(10)+'70 = NoClipping enabled'),
186
187 (struct:1; offset:$1AA; data_type:2; range:10; group:4; name:'Amount of hypos'; overview_name:'Dropped hypos'; hint:''),
188 (struct:1; offset:$1A8; data_type:2; range:10; group:4; name:'Amount of red ammo clips'; overview_name:'Dropped red ammo'; hint:''),
189 (struct:1; offset:$1AC; data_type:2; range:10; group:4; name:'Amount of green ammo clips'; overview_name:'Dropped green ammo'; hint:''),
190 (struct:1; offset:$1B2; data_type:1; range:1; group:4; name:'Shield'; overview_name:'Drops shield'; hint:'[1/0]'),
191 (struct:1; offset:$1B3; data_type:1; range:1; group:4; name:'Phasecloak'; overview_name:'Drops phasecloak'; hint:'[1/0]'),
192 (struct:1; offset:$1B4; data_type:1; range:1; group:4; name:'Special'; overview_name:'Drops special'; hint:'(like datapad in lvl1, rapelling harnes in lvl5) [1/0]')
193// (struct:1; offset:$; data_type:; range:; group:; name:''; overview_name:''; hint:''),
194 );
195CONST CharGroupsStuff:Array[1..number_char_groups] OF TGroup=(
196 (name:'Global'),
197 (name:'Inventory'),
198 (name:'Position'),
199 (name:'AI drops')
200 );
201{$INCLUDE animations}
202
203CONST
204 PointerStruct1PointerArray1:longword=$127C54;
205 PointerStruct1PointerArray2:longword=$12BC34;
206 PointerStruct2First:longword=$6A8740;
207 PointerStruct3:longword=$127254;
208
209TYPE
210 THotKeys=Record
211 Size:Byte;
212 Items:Array[0..255] OF Hotkey;
213 END;
214
215VAR
216 Settings: Array[1..number_settings] OF TSetting;
217 MainGroups: Array[1..number_main_groups] OF TGroup;
218 //Cheats: Array[1..number_cheats] OF TSetting;
219 _Connected:Boolean;
220 _temp:byte_array;
221 _tempvalue:LongWord;
222 _ValueSwitcher:TValueSwitcher;
223 _ais_active: Array[0..ais_controlled] OF Boolean;
224 //_hotkeys: Array OF HotKey;
225 HotKeys: THotKeys;
226 HotKeysFile: File of THotKeys;
227 lvlnumber: Byte;
228
229TYPE
230 KeyCombo=Record
231 Name:String;
232 Value:Byte;
233 END;
234
235CONST lvl_mappings:Array[0..14] OF String[2]=(
236 '0_','1_','2_','3_','4_','6_','8_','9_','10','11','12','13','14','18','19'
237 );
238
239CONST MOD_Alt_Key=MOD_Alt;
240CONST MOD_Ctrl_Key=MOD_Control;
241
242CONST
243VKKeys:Array[1..78] OF Keycombo=(
244 (Name:'0';Value:$30),
245 (Name:'1';Value:$31),
246 (Name:'2';Value:$32),
247 (Name:'3';Value:$33),
248 (Name:'4';Value:$34),
249 (Name:'5';Value:$35),
250 (Name:'6';Value:$36),
251 (Name:'7';Value:$37),
252 (Name:'8';Value:$38),
253 (Name:'9';Value:$39),
254 (Name:'A';Value:$41),
255 (Name:'B';Value:$42),
256 (Name:'C';Value:$43),
257 (Name:'D';Value:$44),
258 (Name:'E';Value:$45),
259 (Name:'F';Value:$46),
260 (Name:'G';Value:$47),
261 (Name:'H';Value:$48),
262 (Name:'I';Value:$49),
263 (Name:'J';Value:$4A),
264 (Name:'K';Value:$4B),
265 (Name:'L';Value:$4C),
266 (Name:'M';Value:$4D),
267 (Name:'N';Value:$4E),
268 (Name:'O';Value:$4F),
269 (Name:'P';Value:$50),
270 (Name:'Q';Value:$51),
271 (Name:'R';Value:$52),
272 (Name:'S';Value:$53),
273 (Name:'T';Value:$54),
274 (Name:'U';Value:$55),
275 (Name:'V';Value:$56),
276 (Name:'W';Value:$57),
277 (Name:'X';Value:$58),
278 (Name:'Y';Value:$59),
279 (Name:'Z';Value:$5A),
280 (Name:'F1';Value:$70),
281 (Name:'F2';Value:$71),
282 (Name:'F3';Value:$72),
283 (Name:'F4';Value:$73),
284 (Name:'F5';Value:$74),
285 (Name:'F6';Value:$75),
286 (Name:'F7';Value:$76),
287 (Name:'F8';Value:$77),
288 (Name:'F9';Value:$78),
289 (Name:'F10';Value:$79),
290 (Name:'F11';Value:$7A),
291 (Name:'F12';Value:$7B),
292 (Name:'Backspace';Value:$08),
293 (Name:'Tab';Value:$09),
294// (Name:'Clear';Value:$0C),
295 (Name:'Enter';Value:$0D),
296 (Name:'Esc';Value:$1B),
297 (Name:'Spacebar';Value:$20),
298 (Name:'Page up';Value:$21),
299 (Name:'Page down';Value:$22),
300 (Name:'End';Value:$23),
301 (Name:'Home';Value:$24),
302 (Name:'Cursor left';Value:$25),
303 (Name:'Cursor up';Value:$26),
304 (Name:'Cursor right';Value:$27),
305 (Name:'Cursor down';Value:$28),
306 (Name:'Insert';Value:$2D),
307 (Name:'Delete';Value:$2E),
308// (Name:'Help';Value:$2F),
309 (Name:'NumPad0';Value:$60),
310 (Name:'NumPad1';Value:$61),
311 (Name:'NumPad2';Value:$62),
312 (Name:'NumPad3';Value:$63),
313 (Name:'NumPad4';Value:$64),
314 (Name:'NumPad5';Value:$65),
315 (Name:'NumPad6';Value:$66),
316 (Name:'NumPad7';Value:$67),
317 (Name:'NumPad8';Value:$68),
318 (Name:'NumPad9';Value:$69),
319 (Name:'NumPad decimal';Value:$6E),
320 (Name:'NumPad add';Value:$6B),
321 (Name:'NumPad subtract';Value:$6D),
322 (Name:'NumPad multiply';Value:$6A),
323 (Name:'NumPad divide';Value:$6F)
324// (Name:'NumPad separator';Value:$6C),
325);
326
327
328implementation
329
330end.
Note: See TracBrowser for help on using the repository browser.