equal
deleted
inserted
replaced
124 if Gear <> nil then |
124 if Gear <> nil then |
125 begin |
125 begin |
126 DeleteCI(Gear); |
126 DeleteCI(Gear); |
127 FindPlace(Gear, false, 0, LAND_WIDTH); |
127 FindPlace(Gear, false, 0, LAND_WIDTH); |
128 if Gear <> nil then |
128 if Gear <> nil then |
129 AddGearCI(Gear) |
129 AddCI(Gear) |
130 end |
130 end |
131 end; |
131 end; |
132 |
132 |
133 PreviousTeam:= CurrentTeam; |
133 PreviousTeam:= CurrentTeam; |
134 |
134 |
502 begin |
502 begin |
503 HH^.Gear:=HH^.GearHidden; |
503 HH^.Gear:=HH^.GearHidden; |
504 HH^.GearHidden:= nil; |
504 HH^.GearHidden:= nil; |
505 InsertGearToList(HH^.Gear); |
505 InsertGearToList(HH^.Gear); |
506 HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked; |
506 HH^.Gear^.State:= (HH^.Gear^.State and (not (gstHHDriven or gstInvisible or gstAttacking))) or gstAttacked; |
507 AddGearCI(HH^.Gear); |
507 AddCI(HH^.Gear); |
508 HH^.Gear^.Active:= true; |
508 HH^.Gear^.Active:= true; |
509 ScriptCall('onHogRestore', HH^.Gear^.Uid) |
509 ScriptCall('onHogRestore', HH^.Gear^.Uid) |
510 end; |
510 end; |
511 |
511 |
512 procedure RestoreTeamsFromSave; |
512 procedure RestoreTeamsFromSave; |
686 if newCI then DeleteCI(newHog^.Gear); |
686 if newCI then DeleteCI(newHog^.Gear); |
687 oldHH:= CurrentHedgehog; |
687 oldHH:= CurrentHedgehog; |
688 CurrentHedgehog:= newHog; |
688 CurrentHedgehog:= newHog; |
689 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.CurAmmoType = amKnife) then |
689 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.CurAmmoType = amKnife) then |
690 LoadHedgehogHat(CurrentHedgehog^, 'Reserved/chef'); |
690 LoadHedgehogHat(CurrentHedgehog^, 'Reserved/chef'); |
691 if oldCI then AddGearCI(oldHH^.Gear); |
691 if oldCI then AddCI(oldHH^.Gear); |
692 if newCI then AddGearCI(newHog^.Gear) |
692 if newCI then AddCI(newHog^.Gear) |
693 end; |
693 end; |
694 |
694 |
695 |
695 |
696 procedure initModule; |
696 procedure initModule; |
697 begin |
697 begin |