equal
deleted
inserted
replaced
37 procedure HW_walkRight; cdecl; export; |
37 procedure HW_walkRight; cdecl; export; |
38 procedure HW_aimUp; cdecl; export; |
38 procedure HW_aimUp; cdecl; export; |
39 procedure HW_aimDown; cdecl; export; |
39 procedure HW_aimDown; cdecl; export; |
40 procedure HW_shoot; cdecl; export; |
40 procedure HW_shoot; cdecl; export; |
41 procedure HW_whereIsHog; cdecl; export; |
41 procedure HW_whereIsHog; cdecl; export; |
42 |
42 procedure HW_chat; cdecl; export; |
|
43 procedure HW_tab; cdecl; export; |
43 {$ENDIF} |
44 {$ENDIF} |
44 |
45 |
45 implementation |
46 implementation |
46 |
47 |
47 {$IFDEF IPHONEOS} |
48 {$IFDEF IPHONEOS} |
76 rightClick:= true; |
77 rightClick:= true; |
77 end; |
78 end; |
78 |
79 |
79 procedure HW_allKeysUp; cdecl; export; |
80 procedure HW_allKeysUp; cdecl; export; |
80 begin |
81 begin |
81 upKey:= false; |
82 // set all keys to released |
82 downKey:= false; |
83 init_uKeys(); |
83 leftKey:= false; |
|
84 rightKey:= false; |
|
85 spaceKey:= false; |
|
86 end; |
84 end; |
87 |
85 |
88 procedure HW_walkLeft; cdecl; export; |
86 procedure HW_walkLeft; cdecl; export; |
89 begin |
87 begin |
90 leftKey:= true; |
88 leftKey:= true; |
108 procedure HW_shoot; cdecl; export; |
106 procedure HW_shoot; cdecl; export; |
109 begin |
107 begin |
110 spaceKey:= true; |
108 spaceKey:= true; |
111 end; |
109 end; |
112 |
110 |
|
111 procedure HW_chat; cdecl; export; |
|
112 begin |
|
113 chatAction:= true; |
|
114 end; |
|
115 |
|
116 procedure HW_tab; cdecl; export; |
|
117 begin |
|
118 switchAction:= true; |
|
119 end; |
|
120 |
113 procedure HW_whereIsHog; cdecl; export; |
121 procedure HW_whereIsHog; cdecl; export; |
114 //var Xcoord, Ycoord: LongInt; |
122 //var Xcoord, Ycoord: LongInt; |
115 begin |
123 begin |
116 //Xcoord:= Gear^.dX + WorldDx; |
124 //Xcoord:= Gear^.dX + WorldDx; |
117 WriteLnToConsole('HW - hog is at x: ' + ' y:'); |
125 WriteLnToConsole('HW - hog is at x: ' + ' y:'); |