source: OniTrainer/current/Unit8.pas @ 251

Last change on this file since 251 was 251, checked in by alloc, 14 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.