hedgewars/uGearsHandlersMess.pas
changeset 10645 b8c73bacb31e
parent 10642 8fdfa2b77d83
child 10650 7f23971bd9db
equal deleted inserted replaced
10644:3b8290381fcb 10645:b8c73bacb31e
   880                                     Land[ly, lx]:=  lfDamaged or lfObject
   880                                     Land[ly, lx]:=  lfDamaged or lfObject
   881                                 else Land[ly, lx]:=  lfDamaged or lfBasic
   881                                 else Land[ly, lx]:=  lfDamaged or lfBasic
   882                                 end
   882                                 end
   883                             else Land[ly, lx]:= lf;
   883                             else Land[ly, lx]:= lf;
   884                         if gun then
   884                         if gun then
   885                             LandPixels[ry, rx]:= (ExplosionBorderColor and (not AMask)) or (p^[px] and AMask)
   885                              LandPixels[ry, rx]:= (Gear^.Tint shr 24         shl RShift) or 
       
   886                                                   (Gear^.Tint shr 16 and $FF shl GShift) or 
       
   887                                                   (Gear^.Tint shr  8 and $FF shl BShift) or 
       
   888                                                   (p^[px] and AMask)
   886                         else LandPixels[ry, rx]:= addBgColor(LandPixels[ry, rx], p^[px]);
   889                         else LandPixels[ry, rx]:= addBgColor(LandPixels[ry, rx], p^[px]);
   887                         end
   890                         end
   888                     else allpx:= false
   891                     else allpx:= false
   889                     end;
   892                     end;
   890                 p:= PLongWordArray(@(p^[s^.pitch shr 2]))
   893                 p:= PLongWordArray(@(p^[s^.pitch shr 2]))