47 procedure AssignHHCoords; |
47 procedure AssignHHCoords; |
48 function GearByUID(uid : Longword) : PGear; |
48 function GearByUID(uid : Longword) : PGear; |
49 |
49 |
50 implementation |
50 implementation |
51 uses uStore, uSound, uTeams, uRandom, uIO, uLandGraphics, {$IFDEF SDL13}uTouch,{$ENDIF} |
51 uses uStore, uSound, uTeams, uRandom, uIO, uLandGraphics, {$IFDEF SDL13}uTouch,{$ENDIF} |
52 uLocale, uAmmos, uStats, uVisualGears, uScript, GLunit, uVariables, |
52 uLocale, uAmmos, uStats, uVisualGears, uScript, uVariables, |
53 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
53 uCommands, uUtils, uTextures, uRenderUtils, uGearsRender, uCaptions, uDebug, uLandTexture, |
54 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlersRope |
54 uGearsHedgehog, uGearsUtils, uGearsList, uGearsHandlersRope |
55 , uVisualGearsList, uGearsHandlersMess, uAI; |
55 , uVisualGearsList, uGearsHandlersMess, uAI; |
56 |
56 |
57 var skipFlag: boolean; |
57 var skipFlag: boolean; |
310 ScreenFadeValue:= sfMax; |
310 ScreenFadeValue:= sfMax; |
311 ScreenFadeSpeed:= 1; |
311 ScreenFadeSpeed:= 1; |
312 |
312 |
313 ChangeToSDClouds; |
313 ChangeToSDClouds; |
314 ChangeToSDFlakes; |
314 ChangeToSDFlakes; |
315 glClearColor(SDSkyColor.r * (SDTint/255) / 255, SDSkyColor.g * (SDTint/255) / 255, SDSkyColor.b * (SDTint/255) / 255, 0.99); |
315 SetSkyColor(SDSkyColor.r * (SDTint/255) / 255, SDSkyColor.g * (SDTint/255) / 255, SDSkyColor.b * (SDTint/255) / 255); |
316 Ammoz[amTardis].SkipTurns:= 9999; |
316 Ammoz[amTardis].SkipTurns:= 9999; |
317 Ammoz[amTardis].Probability:= 0; |
317 Ammoz[amTardis].Probability:= 0; |
318 end; |
318 end; |
319 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState); |
319 AddCaption(trmsg[sidSuddenDeath], cWhiteColor, capgrpGameState); |
320 playSound(sndSuddenDeath); |
320 playSound(sndSuddenDeath); |