equal
deleted
inserted
replaced
44 procedure HideHog(HH: PHedgehog); |
44 procedure HideHog(HH: PHedgehog); |
45 procedure RestoreHog(HH: PHedgehog); |
45 procedure RestoreHog(HH: PHedgehog); |
46 procedure ProcessGears; |
46 procedure ProcessGears; |
47 procedure EndTurnCleanup; |
47 procedure EndTurnCleanup; |
48 procedure SetAllToActive; |
48 procedure SetAllToActive; |
49 procedure SetAllHHToActive; |
49 procedure SetAllHHToActive; inline; |
|
50 procedure SetAllHHToActive(Ice: boolean); |
50 procedure DrawGears; |
51 procedure DrawGears; |
51 procedure FreeGearsList; |
52 procedure FreeGearsList; |
52 procedure AddMiscGears; |
53 procedure AddMiscGears; |
53 procedure AssignHHCoords; |
54 procedure AssignHHCoords; |
54 function GearByUID(uid : Longword) : PGear; |
55 function GearByUID(uid : Longword) : PGear; |
559 t^.Active:= true; |
560 t^.Active:= true; |
560 t:= t^.NextGear |
561 t:= t^.NextGear |
561 end |
562 end |
562 end; |
563 end; |
563 |
564 |
564 procedure SetAllHHToActive; |
565 procedure SetAllHHToActive; inline; |
|
566 begin |
|
567 SetAllHHToActive(true) |
|
568 end; |
|
569 |
|
570 procedure SetAllHHToActive(Ice: boolean); |
565 var t: PGear; |
571 var t: PGear; |
566 begin |
572 begin |
567 AllInactive:= false; |
573 AllInactive:= false; |
568 t:= GearsList; |
574 t:= GearsList; |
569 while t <> nil do |
575 while t <> nil do |
570 begin |
576 begin |
571 if (t^.Kind = gtHedgehog) or (t^.Kind = gtExplosives) then |
577 if (t^.Kind = gtHedgehog) or (t^.Kind = gtExplosives) then |
572 begin |
578 begin |
573 if t^.Kind = gtHedgehog then CheckIce(t); |
579 if (t^.Kind = gtHedgehog) and Ice then CheckIce(t); |
574 t^.Active:= true |
580 t^.Active:= true |
575 end; |
581 end; |
576 t:= t^.NextGear |
582 t:= t^.NextGear |
577 end |
583 end |
578 end; |
584 end; |
579 |
|
580 |
585 |
581 procedure DrawGears; |
586 procedure DrawGears; |
582 var Gear: PGear; |
587 var Gear: PGear; |
583 x, y: LongInt; |
588 x, y: LongInt; |
584 begin |
589 begin |