fade direction fix

src/common.rs

@@ -86,6 +86,16 @@ impl FadeDirection {
             _ => { None }
         }
     }
+
+    pub fn opposite(&self) -> FadeDirection {
+        match self {
+            FadeDirection::Left => { FadeDirection::Right }
+            FadeDirection::Up => { FadeDirection::Down }
+            FadeDirection::Right => { FadeDirection::Left }
+            FadeDirection::Down => { FadeDirection::Up }
+            FadeDirection::Center => { FadeDirection::Center }
+        }
+    }
 }
 
 #[derive(Debug, PartialEq, Copy, Clone)]

src/text_script.rs

@@ -631,7 +631,7 @@ impl TextScriptVM {
                     OpCode::FAO => {
                         let fade_type = read_cur_varint(&mut cursor)? as usize;
                         if let Some(direction) = FadeDirection::from_int(fade_type) {
-                            state.fade_state = FadeState::FadeOut(-15, direction);
+                            state.fade_state = FadeState::FadeOut(-15, direction.opposite());
                         }
 
                         exec_state = TextScriptExecutionState::WaitFade(event, cursor.position() as u32);