1059 if Gear^.Timer > 1000 then |
1059 if Gear^.Timer > 1000 then |
1060 begin |
1060 begin |
1061 if ((Gear^.Pos and posCaseAmmo) <> 0) then |
1061 if ((Gear^.Pos and posCaseAmmo) <> 0) then |
1062 begin |
1062 begin |
1063 if Gear^.State and gstFrozen <> 0 then |
1063 if Gear^.State and gstFrozen <> 0 then |
|
1064 DrawSprite(sprCase, x - 24, y - 28, 0) |
|
1065 else |
1064 begin |
1066 begin |
1065 DrawSprite(sprCase, x - 24, y - 28, 0); |
1067 i:= (GameTicks shr 6) mod 64; |
1066 exit |
1068 if i > 18 then i:= 0; |
1067 end; |
1069 DrawSprite(sprCase, x - 24, y - 24, i) |
1068 i:= (GameTicks shr 6) mod 64; |
1070 end |
1069 if i > 18 then i:= 0; |
|
1070 DrawSprite(sprCase, x - 24, y - 24, i) |
|
1071 end |
1071 end |
1072 else if ((Gear^.Pos and posCaseHealth) <> 0) then |
1072 else if ((Gear^.Pos and posCaseHealth) <> 0) then |
1073 begin |
1073 begin |
1074 if Gear^.State and gstFrozen <> 0 then |
1074 if Gear^.State and gstFrozen <> 0 then |
|
1075 DrawSprite(sprFAid, x - 24, y - 28, 0) |
|
1076 else |
1075 begin |
1077 begin |
1076 DrawSprite(sprFAid, x - 24, y - 28, 0); |
1078 i:= ((GameTicks shr 6) + 38) mod 64; |
1077 exit |
1079 if i > 13 then i:= 0; |
1078 end; |
1080 DrawSprite(sprFAid, x - 24, y - 24, i) |
1079 i:= ((GameTicks shr 6) + 38) mod 64; |
1081 end |
1080 if i > 13 then i:= 0; |
|
1081 DrawSprite(sprFAid, x - 24, y - 24, i); |
|
1082 end |
1082 end |
1083 else if ((Gear^.Pos and posCaseUtility) <> 0) then |
1083 else if ((Gear^.Pos and posCaseUtility) <> 0) then |
1084 begin |
1084 begin |
1085 if Gear^.State and gstFrozen <> 0 then |
1085 if Gear^.State and gstFrozen <> 0 then |
|
1086 DrawSprite(sprUtility, x - 24, y - 28, 0) |
|
1087 else |
1086 begin |
1088 begin |
1087 DrawSprite(sprUtility, x - 24, y - 28, 0); |
1089 i:= (GameTicks shr 6) mod 70; |
1088 exit |
1090 if i > 23 then i:= 0; |
1089 end; |
1091 i:= i mod 12; |
1090 i:= (GameTicks shr 6) mod 70; |
1092 DrawSprite(sprUtility, x - 24, y - 24, i) |
1091 if i > 23 then i:= 0; |
1093 end |
1092 i:= i mod 12; |
|
1093 DrawSprite(sprUtility, x - 24, y - 24, i); |
|
1094 end |
1094 end |
1095 end; |
1095 end; |
1096 if Gear^.Timer < 1833 then |
1096 if Gear^.Timer < 1833 then |
1097 begin |
1097 begin |
1098 DrawTextureRotatedF(SpritesData[sprPortal].texture, min(abs(1.25 - (Gear^.Timer mod 1333) / 400), 1.25), 0, 0, |
1098 DrawTextureRotatedF(SpritesData[sprPortal].texture, min(abs(1.25 - (Gear^.Timer mod 1333) / 400), 1.25), 0, 0, |