| changeset 68 | cbb93eb90304 |
| parent 64 | 9df467527ae5 |
| child 70 | 82d93eeecebe |
| 67:3101306251e5 | 68:cbb93eb90304 |
|---|---|
71 procedure FreeGearsList; |
71 procedure FreeGearsList; |
72 procedure AddMiscGears; |
72 procedure AddMiscGears; |
73 procedure AssignHHCoords; |
73 procedure AssignHHCoords; |
74 |
74 |
75 var CurAmmoGear: PGear = nil; |
75 var CurAmmoGear: PGear = nil; |
76 |
76 GearsList: PGear = nil; |
77 |
|
77 implementation |
78 implementation |
78 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics; |
79 uses uWorld, uMisc, uStore, uConsole, uSound, uTeams, uRandom, uCollisions, uLand, uIO, uLandGraphics; |
79 var GearsList: PGear = nil; |
80 var RopePoints: record |
80 RopePoints: record |
|
81 Count: Longword; |
81 Count: Longword; |
82 HookAngle: integer; |
82 HookAngle: integer; |
83 ar: array[0..300] of record |
83 ar: array[0..300] of record |
84 X, Y: real; |
84 X, Y: real; |
85 dLen: real; |
85 dLen: real; |
143 Result.Timer:= Timer |
143 Result.Timer:= Timer |
144 end; |
144 end; |
145 gtHedgehog: begin |
145 gtHedgehog: begin |
146 Result.Radius:= cHHRadius; |
146 Result.Radius:= cHHRadius; |
147 Result.Elasticity:= 0.002; |
147 Result.Elasticity:= 0.002; |
148 Result.Friction:= 0.999; |
148 Result.Friction:= 0.9985; |
149 Result.Angle:= cMaxAngle div 2; |
149 Result.Angle:= cMaxAngle div 2; |
150 end; |
150 end; |
151 gtAmmo_Grenade: begin |
151 gtAmmo_Grenade: begin |
152 Result.Radius:= 4; |
152 Result.Radius:= 4; |
153 end; |
153 end; |