equal
deleted
inserted
replaced
46 Hedgehog: pointer; |
46 Hedgehog: pointer; |
47 Text: shortstring |
47 Text: shortstring |
48 end; |
48 end; |
49 |
49 |
50 procedure init_uVisualGears; |
50 procedure init_uVisualGears; |
|
51 procedure free_uVisualGears; |
51 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; |
52 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; |
52 procedure ProcessVisualGears(Steps: Longword); |
53 procedure ProcessVisualGears(Steps: Longword); |
53 procedure DrawVisualGears(Layer: LongWord); |
54 procedure DrawVisualGears(Layer: LongWord); |
54 procedure DeleteVisualGear(Gear: PVisualGear); |
55 procedure DeleteVisualGear(Gear: PVisualGear); |
55 procedure AddClouds; |
56 procedure AddClouds; |
556 procedure init_uVisualGears; |
557 procedure init_uVisualGears; |
557 begin |
558 begin |
558 VisualGearsList:= nil; |
559 VisualGearsList:= nil; |
559 end; |
560 end; |
560 |
561 |
|
562 procedure free_uVisualGears; |
|
563 begin |
|
564 while VisualGearsList <> nil do DeleteVisualGear(VisualGearsList); |
|
565 end; |
561 |
566 |
562 end. |
567 end. |