equal
deleted
inserted
replaced
82 procedure SetAllHHToActive; |
82 procedure SetAllHHToActive; |
83 procedure DrawGears; |
83 procedure DrawGears; |
84 procedure FreeGearsList; |
84 procedure FreeGearsList; |
85 procedure AddMiscGears; |
85 procedure AddMiscGears; |
86 procedure AssignHHCoords; |
86 procedure AssignHHCoords; |
|
87 function GearByUID(uid : Longword) : PGear; |
87 procedure InsertGearToList(Gear: PGear); |
88 procedure InsertGearToList(Gear: PGear); |
88 procedure RemoveGearFromList(Gear: PGear); |
89 procedure RemoveGearFromList(Gear: PGear); |
89 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
90 function ModifyDamage(dmg: Longword; Gear: PGear): Longword; |
90 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
91 procedure FindPlace(var Gear: PGear; withFall: boolean; Left, Right: LongInt); |
91 |
92 |
2091 ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent * _0_5) |
2092 ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent * _0_5) |
2092 else |
2093 else |
2093 ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent) |
2094 ModifyDamage:= hwRound(_0_01 * cDamageModifier * dmg * i * cDamagePercent) |
2094 end; |
2095 end; |
2095 |
2096 |
|
2097 function GearByUID(uid : Longword) : PGear; |
|
2098 var gear: PGear; |
|
2099 begin |
|
2100 GearByUID:= nil; |
|
2101 gear:= GearsList; |
|
2102 while gear <> nil do |
|
2103 begin |
|
2104 if gear^.uid = uid then |
|
2105 begin |
|
2106 GearByUID:= gear; |
|
2107 exit |
|
2108 end; |
|
2109 gear:= gear^.NextGear |
|
2110 end |
|
2111 end; |
|
2112 |
2096 procedure init_uGears; |
2113 procedure init_uGears; |
2097 begin |
2114 begin |
2098 CurAmmoGear:= nil; |
2115 CurAmmoGear:= nil; |
2099 GearsList:= nil; |
2116 GearsList:= nil; |
2100 KilledHHs:= 0; |
2117 KilledHHs:= 0; |