equal
deleted
inserted
replaced
61 begin |
61 begin |
62 leftKey:= false; |
62 leftKey:= false; |
63 rightKey:= false; |
63 rightKey:= false; |
64 upKey:= false; |
64 upKey:= false; |
65 downKey:= false; |
65 downKey:= false; |
|
66 preciseKey:= false; |
66 end; |
67 end; |
67 |
68 |
68 procedure HW_otherKeysUp; cdecl; export; |
69 procedure HW_otherKeysUp; cdecl; export; |
69 begin |
70 begin |
70 spaceKey:= false; |
71 spaceKey:= false; |
84 end; |
85 end; |
85 |
86 |
86 procedure HW_walkRight; cdecl; export; |
87 procedure HW_walkRight; cdecl; export; |
87 begin |
88 begin |
88 rightKey:= true; |
89 rightKey:= true; |
|
90 end; |
|
91 |
|
92 procedure HW_preciseSet(status:boolean); cdecl; export; |
|
93 begin |
|
94 preciseKey:= status; |
89 end; |
95 end; |
90 |
96 |
91 procedure HW_aimUp; cdecl; export; |
97 procedure HW_aimUp; cdecl; export; |
92 begin |
98 begin |
93 upKey:= true; |
99 upKey:= true; |