equal
deleted
inserted
replaced
1119 cLaserSighting:= true; |
1119 cLaserSighting:= true; |
1120 |
1120 |
1121 if (GameFlags and gfArtillery) <> 0 then |
1121 if (GameFlags and gfArtillery) <> 0 then |
1122 cArtillery:= true; |
1122 cArtillery:= true; |
1123 |
1123 |
1124 if (Theme = 'Snow') or (Theme = 'Christmas') then |
1124 if not hasBorder and ((Theme = 'Snow') or (Theme = 'Christmas')) then |
|
1125 begin |
1125 for i:= 0 to Pred(vobCount*2) do |
1126 for i:= 0 to Pred(vobCount*2) do |
1126 AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0); |
1127 AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0); |
|
1128 disableLandBack:= true |
|
1129 end |
1127 end; |
1130 end; |
1128 |
1131 |
1129 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); |
1132 procedure doMakeExplosion(X, Y, Radius: LongInt; Mask: LongWord); |
1130 begin |
1133 begin |
1131 doMakeExplosion(X, Y, Radius, Mask, $FFFFFFFF); |
1134 doMakeExplosion(X, Y, Radius, Mask, $FFFFFFFF); |
1849 begin |
1852 begin |
1850 Gear^.Hedgehog:= hh; |
1853 Gear^.Hedgehog:= hh; |
1851 Gear^.Text:= text; |
1854 Gear^.Text:= text; |
1852 Gear^.FrameTicks:= x |
1855 Gear^.FrameTicks:= x |
1853 end |
1856 end |
1854 else ParseCommand('say ' + text, true) |
1857 //else ParseCommand('say ' + text, true) |
1855 end |
1858 end |
1856 else if (x >= 4) then |
1859 else if (x >= 4) then |
1857 begin |
1860 begin |
1858 SpeechType:= x-3; |
1861 SpeechType:= x-3; |
1859 SpeechText:= text |
1862 SpeechText:= text |