equal
deleted
inserted
replaced
60 Health, Damage: LongWord; |
60 Health, Damage: LongWord; |
61 CollIndex: Longword; |
61 CollIndex: Longword; |
62 Tag: integer; |
62 Tag: integer; |
63 end; |
63 end; |
64 |
64 |
65 function AddGear(X, Y: integer; Kind: TGearType; State: Cardinal; const dX: real=0.0; dY: real=0.0; Timer: LongWord=0): PGear; |
65 function AddGear(X, Y: integer; Kind: TGearType; State: Cardinal; const dX: real=0.0; dY: real=0.0; Timer: LongWord=0): PGear; |
66 procedure ProcessGears; |
66 procedure ProcessGears; |
67 procedure SetAllToActive; |
67 procedure SetAllToActive; |
68 procedure SetAllHHToActive; |
68 procedure SetAllHHToActive; |
69 procedure DrawGears(Surface: PSDL_Surface); |
69 procedure DrawGears(Surface: PSDL_Surface); |
70 procedure FreeGearsList; |
70 procedure FreeGearsList; |
86 end; |
86 end; |
87 end; |
87 end; |
88 |
88 |
89 procedure DeleteGear(Gear: PGear); forward; |
89 procedure DeleteGear(Gear: PGear); forward; |
90 procedure doMakeExplosion(X, Y, Radius: integer; Mask: LongWord); forward; |
90 procedure doMakeExplosion(X, Y, Radius: integer; Mask: LongWord); forward; |
91 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: integer): PGear; forward; |
91 function CheckGearNear(Gear: PGear; Kind: TGearType; rX, rY: integer): PGear; forward; |
92 procedure SpawnBoxOfSmth; forward; |
92 procedure SpawnBoxOfSmth; forward; |
93 |
93 |
94 {$INCLUDE GSHandlers.inc} |
94 {$INCLUDE GSHandlers.inc} |
95 {$INCLUDE HHHandlers.inc} |
95 {$INCLUDE HHHandlers.inc} |
96 |
96 |
476 GearsList:= nil; |
476 GearsList:= nil; |
477 while tt<>nil do |
477 while tt<>nil do |
478 begin |
478 begin |
479 t:= tt; |
479 t:= tt; |
480 tt:= tt.NextGear; |
480 tt:= tt.NextGear; |
481 try |
|
482 Dispose(t) |
481 Dispose(t) |
483 except OutError(errmsgDynamicVar) end; |
|
484 end; |
482 end; |
485 end; |
483 end; |
486 |
484 |
487 procedure AddMiscGears; |
485 procedure AddMiscGears; |
488 var i, x, y: integer; |
486 var i, x, y: integer; |