[Scummvm-cvs-logs] CVS: scummvm/sky logic.cpp,1.33,1.34

[Oliver Kiehl]

Update of /cvsroot/scummvm/scummvm/sky
In directory sc8-pr-cvs1:/tmp/cvs-serv12707

Modified Files:
	logic.cpp 
Log Message:
add one more function. now it runs for minutes and minutes...


Index: logic.cpp
===================================================================
RCS file: /cvsroot/scummvm/scummvm/sky/logic.cpp,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -d -r1.33 -r1.34
--- logic.cpp	25 May 2003 11:36:11 -0000	1.33
+++ logic.cpp	25 May 2003 11:45:04 -0000	1.34
@@ -1560,8 +1560,10 @@
 	error("Stub: fnRandom");
 }
 
-uint32 SkyLogic::fnPersonHere(uint32 a, uint32 b, uint32 c) {
-	error("Stub: fnPersonHere");
+uint32 SkyLogic::fnPersonHere(uint32 id, uint32 room, uint32 c) {
+	Compact *cpt = SkyState::fetchCompact(id);
+	_scriptVariables[RESULT] = cpt->screen == room ? 1 : 0;
+	return 1;
 }
 
 uint32 SkyLogic::fnToggleMouse(uint32 a, uint32 b, uint32 c) {