equal
deleted
inserted
replaced
107 procedure HW_pause; cdecl; export; |
107 procedure HW_pause; cdecl; export; |
108 begin |
108 begin |
109 pauseAction:= true; |
109 pauseAction:= true; |
110 end; |
110 end; |
111 |
111 |
112 procedure HW_whereIsHog; cdecl; export; |
112 procedure HW_cursorUp(coefficient:LongInt); cdecl; export; |
113 //var Xcoord, Ycoord: LongInt; |
|
114 begin |
113 begin |
115 //Xcoord:= Gear^.dX + WorldDx; |
114 coeff:= coefficient; |
116 WriteLnToConsole('HW - hog is at x: ' + ' y:'); |
115 cursorUp:= true; |
|
116 end; |
117 |
117 |
118 exit |
118 procedure HW_cursorDown(coefficient:LongInt); cdecl; export; |
|
119 begin |
|
120 coeff:= coefficient; |
|
121 cursorDown:= true; |
|
122 end; |
|
123 |
|
124 procedure HW_cursorLeft(coefficient:LongInt); cdecl; export; |
|
125 begin |
|
126 coeff:= coefficient; |
|
127 cursorLeft:= true; |
|
128 end; |
|
129 |
|
130 procedure HW_cursorRight(coefficient:LongInt); cdecl; export; |
|
131 begin |
|
132 coeff:= coefficient; |
|
133 cursorRight:= true; |
119 end; |
134 end; |
120 |
135 |
121 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
136 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
122 begin |
137 begin |
123 isTerminated:= true; |
138 isTerminated:= true; |