3e9f3615fa11a8ab31a9689f3e72f84f85439607
3 interface
4 const
8 var
41 implementation
43 const
51 var
54 //Skin
61 begin
66 begin
71 begin
76 begin
81 begin
86 begin
91 begin
96 begin
101 begin
106 begin
111 begin
116 begin
121 begin
124 else
129 var
132 begin
142 begin
148 begin
155 var
158 begin
160 begin
170 begin
172 begin
177 else
179 begin
181 begin
194 begin
196 begin
199 else
201 begin
207 var
209 begin
218 else
221 else
227 else
232 begin
237 begin
245 //Player collision.
246 {function coll:boolean;
247 begin
248 coll:=CollObj(getX, getY, getW, getH);
249 end;
251 //Player collision by block id.
252 function coll_bl(id:integer):boolean;
253 begin
254 coll_bl:=CollObjBlock(getX, getY, getW, getH, id);
255 end;
257 //Player collision by XY.
258 function coll_xy(xx,yy:integer):boolean;
259 begin
260 coll_xy:=CollObjXY(getX, getY, getW, getH, xx, yy);
261 end;
263 //Controll jump velocity
264 procedure jmp_ctrl;
265 begin
266 if (coll_bl(49)) or (coll_bl(103)) or (coll_bl(108)) then
267 vely:=5;
268 if (coll_bl(50)) or (coll_bl(51)) then
269 vely:=4;
270 if (coll_bl(0)) and (coll_bl(50) or coll_bl(51)) then
271 vely:=7;
272 end;
274 //Controll fall velocity
275 procedure phy_ctrl;
276 begin
277 if (coll_bl(49)) or (coll_bl(103)) then
278 vely:=-5;
279 if (coll_bl(50)) or (coll_bl(51)) then
280 if vely<-4 then
281 vely:=-4;
282 end;}
285 var
288 begin
289 loadPhy;
291 storePhy;
293 {if fly=false then
294 begin
295 old_vely:=vely;
296 calcGravY(getX, getY, getW, getH, CONST_PHY_ACC, vely, CONST_PHY_MAXVEL, jmp);
297 setY(PhyGetY);
298 vely:=PhyGetVelY;
299 jmp:=PhyGetJump;
300 cl:=PhyGetColl;
302 if cl then
303 if old_vely<-10 then
304 hp:=(hp-(abs(old_vely)-10));
305 end;}
309 begin
312 else
313 begin
314 loadPhy;
316 storePhy;
321 begin
327 begin
337 begin
347 var
349 begin
354 begin
361 initialization