From ebb77764c65b16c7557af6af3ad438dcfc193faf Mon Sep 17 00:00:00 2001
From: Torbjörn Andersson
Date: Sun, 7 Nov 2004 15:23:00 +0000
Subject: Unstubbed SF_putString(). (Untested, but appears to be just for
 debugging.)

svn-id: r15726
---
 saga/sfuncs.cpp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'saga')

diff --git a/saga/sfuncs.cpp b/saga/sfuncs.cpp
index 5068456610..58f374033a 100644
--- a/saga/sfuncs.cpp
+++ b/saga/sfuncs.cpp
@@ -129,11 +129,11 @@ void Script::setupScriptFuncList(void) {
 }
 
 // Script function #0 (0x00)
+// Print a debugging message
 int Script::SF_putString(SCRIPTFUNC_PARAMS) {
-	for (int i = 0; i < nArgs; i++)
-		thread->pop();
-	
-	debug(1, "stub: SF_putString(), %d args", nArgs);
+	SDataWord_T param = thread->pop();
+
+	debug(1, currentScript()->diag->str[param]);
 	return SUCCESS;
 }
 
-- 
cgit v1.2.3