From 1f9c0dc6666bed76c2e025548f2c98bb328bf694 Mon Sep 17 00:00:00 2001
From: James Brown
Date: Sun, 5 May 2002 20:08:41 +0000
Subject: Add text speed option (-y for Yak :)

svn-id: r4216
---
 script.cpp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'script.cpp')

diff --git a/script.cpp b/script.cpp
index d9388b42e7..a7c7fa1f69 100644
--- a/script.cpp
+++ b/script.cpp
@@ -358,7 +358,12 @@ void Scumm::writeVar(uint var, int value)
 {
 	if (!(var & 0xF000)) {
 		checkRange(_numVariables - 1, 0, var, "Variable %d out of range(w)");
-		_vars[var] = value;
+
+		// FIXME: Find some better place to put this.
+		if (var == VAR_CHARINC)
+			_vars[VAR_CHARINC] = _defaultTalkDelay / 20;
+		else
+			_vars[var] = value;		
 
 		if ((_varwatch == (int)var) || (_varwatch == 0)) {
 			if (vm.slot[_currentScript].number < 100)
-- 
cgit v1.2.3