equal
deleted
inserted
replaced
101 begin |
101 begin |
102 if CurAmmoType = amKnife then |
102 if CurAmmoType = amKnife then |
103 LoadHedgehogHat(HHGear^.Hedgehog^, 'Reserved/chef') |
103 LoadHedgehogHat(HHGear^.Hedgehog^, 'Reserved/chef') |
104 else if prevAmmo = amKnife then |
104 else if prevAmmo = amKnife then |
105 LoadHedgehogHat(HHGear^.Hedgehog^, Hat); |
105 LoadHedgehogHat(HHGear^.Hedgehog^, Hat); |
|
106 end; |
|
107 // Try again in the next slot |
|
108 if CurAmmoType = prevAmmo then |
|
109 begin |
|
110 if slot >= cMaxSlotIndex then slot:= 0 else inc(slot); |
|
111 HHGear^.MsgParam:= slot; |
|
112 ChangeAmmo(HHGear) |
106 end |
113 end |
107 end |
114 end |
108 end; |
115 end; |
109 |
116 |
110 procedure HHSetWeapon(HHGear: PGear); |
117 procedure HHSetWeapon(HHGear: PGear); |