| changeset 16 | b6f4b413dd41 |
| parent 15 | 6200cca92480 |
| child 32 | 78bff13b11c0 |
| 15:6200cca92480 | 16:b6f4b413dd41 |
|---|---|
48 Gear.State:= Gear.State and not gstHHJumping; |
48 Gear.State:= Gear.State and not gstHHJumping; |
49 exit |
49 exit |
50 end; |
50 end; |
51 |
51 |
52 // check for case with ammo |
52 // check for case with ammo |
53 t:= CheckGearNear(Gear, gtCase, 25, 25); |
53 t:= CheckGearNear(Gear, gtCase, 30, 30); |
54 if t <> nil then |
54 if t <> nil then |
55 begin |
55 begin |
56 t.Message:= gm_Destroy; |
56 t.Message:= gm_Destroy; |
57 ; // take ammo from it |
57 ; // take ammo from it |
58 end; |
58 end; |