equal
deleted
inserted
replaced
115 t:= Gear^.NextGear |
115 t:= Gear^.NextGear |
116 end |
116 end |
117 end |
117 end |
118 end; |
118 end; |
119 |
119 |
120 function GetSprite(sprite, SDsprite: TSprite): TSprite; inline; |
120 function GetSprite(sprite, SDsprite: TSprite): TSprite; |
121 begin |
121 begin |
122 if SuddenDeathDmg then |
122 if SuddenDeathDmg then |
123 exit(SDsprite) |
123 exit(SDsprite) |
124 else |
124 else |
125 exit(sprite); |
125 exit(sprite); |
126 end; |
126 end; |
127 |
127 |
128 function GetSpriteByWind(sprite, Lsprite: TSprite): TSprite; inline; |
128 function GetSpriteByWind(sprite, Lsprite: TSprite): TSprite; |
129 begin |
129 begin |
130 if (SpritesData[Lsprite].Texture <> nil) and (cWindSpeedf<0) then |
130 if (SpritesData[Lsprite].Texture <> nil) and (cWindSpeedf<0) then |
131 exit(Lsprite) |
131 exit(Lsprite) |
132 else |
132 else |
133 exit(sprite); |
133 exit(sprite); |
134 end; |
134 end; |
135 |
135 |
136 function GetSpriteData(sprite, SDsprite: TSprite): PSpriteData; inline; |
136 function GetSpriteData(sprite, SDsprite: TSprite): PSpriteData; |
137 begin |
137 begin |
138 exit(@SpritesData[GetSprite(sprite, SDsprite)]); |
138 exit(@SpritesData[GetSprite(sprite, SDsprite)]); |
139 end; |
139 end; |
140 |
140 |
141 procedure DrawVisualGears(Layer: LongWord; worldIsShifted: boolean); |
141 procedure DrawVisualGears(Layer: LongWord; worldIsShifted: boolean); |
496 for j:= 0 to cSDCloudsNumber - 1 do |
496 for j:= 0 to cSDCloudsNumber - 1 do |
497 AddVisualGear(cLeftScreenBorder + j * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-cCloudOffset, vgtCloud, 0, true) |
497 AddVisualGear(cLeftScreenBorder + j * LongInt(cScreenSpace div (cSDCloudsNumber + 1)), LAND_HEIGHT-cCloudOffset, vgtCloud, 0, true) |
498 end; |
498 end; |
499 end; |
499 end; |
500 |
500 |
501 procedure AddFlake; inline; |
501 procedure AddFlake; |
502 begin |
502 begin |
503 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), LAND_HEIGHT-cCloudOffset+ random(cCloudOffset), vgtFlake); |
503 AddVisualGear(cLeftScreenBorder + random(cScreenSpace), LAND_HEIGHT-cCloudOffset+ random(cCloudOffset), vgtFlake); |
504 end; |
504 end; |
505 |
505 |
506 procedure AddFlakes; |
506 procedure AddFlakes; |