926 else DrawRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
926 else DrawRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
927 gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then |
927 gtSMine: if (((Gear^.State and gstAttacking) = 0)or((Gear^.Timer and $3FF) < 420)) and (Gear^.Health <> 0) then |
928 DrawRotated(sprSMineOff, x, y, 0, Gear^.DirAngle) |
928 DrawRotated(sprSMineOff, x, y, 0, Gear^.DirAngle) |
929 else if Gear^.Health <> 0 then DrawRotated(sprSMineOn, x, y, 0, Gear^.DirAngle) |
929 else if Gear^.Health <> 0 then DrawRotated(sprSMineOn, x, y, 0, Gear^.DirAngle) |
930 else DrawRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
930 else DrawRotated(sprMineDead, x, y, 0, Gear^.DirAngle); |
931 gtCase: case Gear^.Pos of |
931 gtCase: if ((Gear^.Pos and posCaseAmmo) <> 0) then |
932 posCaseAmmo : begin |
932 begin |
933 i:= (GameTicks shr 6) mod 64; |
933 i:= (GameTicks shr 6) mod 64; |
934 if i > 18 then i:= 0; |
934 if i > 18 then i:= 0; |
935 DrawSprite(sprCase, x - 24, y - 24, i); |
935 DrawSprite(sprCase, x - 24, y - 24, i); |
936 end; |
936 end |
937 posCaseHealth: begin |
937 else if ((Gear^.Pos and posCaseHealth) <> 0) then |
938 i:= ((GameTicks shr 6) + 38) mod 64; |
938 begin |
939 if i > 13 then i:= 0; |
939 i:= ((GameTicks shr 6) + 38) mod 64; |
940 DrawSprite(sprFAid, x - 24, y - 24, i); |
940 if i > 13 then i:= 0; |
941 end; |
941 DrawSprite(sprFAid, x - 24, y - 24, i); |
942 posCaseUtility: begin |
942 end |
943 i:= (GameTicks shr 6) mod 70; |
943 else if ((Gear^.Pos and posCaseUtility) <> 0) then |
944 if i > 23 then i:= 0; |
944 begin |
945 i:= i mod 12; |
945 i:= (GameTicks shr 6) mod 70; |
946 DrawSprite(sprUtility, x - 24, y - 24, i); |
946 if i > 23 then i:= 0; |
947 end; |
947 i:= i mod 12; |
948 end; |
948 DrawSprite(sprUtility, x - 24, y - 24, i); |
|
949 end; |
949 gtExplosives: begin |
950 gtExplosives: begin |
950 if ((Gear^.State and gstDrowning) <> 0) then |
951 if ((Gear^.State and gstDrowning) <> 0) then |
951 DrawSprite(sprExplosivesRoll, x - 24, y - 24, 0) |
952 DrawSprite(sprExplosivesRoll, x - 24, y - 24, 0) |
952 else if Gear^.State and gstAnimation = 0 then |
953 else if Gear^.State and gstAnimation = 0 then |
953 begin |
954 begin |