equal
deleted
inserted
replaced
1077 if Gear^.Timer = 0 then |
1077 if Gear^.Timer = 0 then |
1078 begin |
1078 begin |
1079 AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState); |
1079 AddCaption(trmsg[sidStartFight], cWhiteColor, capgrpGameState); |
1080 end |
1080 end |
1081 end; |
1081 end; |
1082 gtATSmoothWindCh: |
|
1083 begin |
|
1084 if Gear^.Timer = 0 then |
|
1085 begin |
|
1086 if WindBarWidth < Gear^.Tag then inc(WindBarWidth) |
|
1087 else if WindBarWidth > Gear^.Tag then dec(WindBarWidth); |
|
1088 if WindBarWidth <> Gear^.Tag then Gear^.Timer := 10; |
|
1089 end |
|
1090 end; |
|
1091 gtATFinishGame: |
1082 gtATFinishGame: |
1092 begin |
1083 begin |
1093 AllInactive := false; |
1084 AllInactive := false; |
1094 if Gear^.Timer = 1000 then |
1085 if Gear^.Timer = 1000 then |
1095 begin |
1086 begin |