From a1d0d2f7db6c67e4c1dd72200d81b79aa4735f96 Mon Sep 17 00:00:00 2001
From: Strangerke
Date: Sun, 11 Nov 2012 21:49:35 +0100
Subject: HOPKINS: Implement OCEAN_HOME()

---
 engines/hopkins/hopkins.cpp | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/engines/hopkins/hopkins.cpp b/engines/hopkins/hopkins.cpp
index b89b239cdf..ddad2d5bd3 100644
--- a/engines/hopkins/hopkins.cpp
+++ b/engines/hopkins/hopkins.cpp
@@ -2442,7 +2442,16 @@ void HopkinsEngine::BTOCEAN() {
 }
 
 void HopkinsEngine::OCEAN_HOME() {
-	warning("STUB - OCEAN_HOME()");
+	warning("OCEAN_HOME()");
+
+	if (_globals.OCEAN_SENS == 3)
+		_objectsManager.SETANISPR(0, 0);
+	if (_globals.OCEAN_SENS == 7)
+		_objectsManager.SETANISPR(0, 18);
+	if (_globals.OCEAN_SENS == 1)
+		_objectsManager.SETANISPR(0, 27);
+	if (_globals.OCEAN_SENS == 5)
+		_objectsManager.SETANISPR(0, 9);
 }
 
 void HopkinsEngine::OCEAN(int16 a1, Common::String a2, Common::String a3, int16 a4, int16 a5, int16 a6, int16 a7, int16 a8, int16 a9) {
-- 
cgit v1.2.3