[Ohrrpgce] Input String command

[Mike Caron]

I was thinking about implementing a routine to give the player a
chance to input an arbitrary string (without the use of name hero()),
and I came up with this routine (or two).

It's not done, but you can enter all the letters* (upper and lower
case), numbers (both the numbers, and their respective symbols),
space, backspace and enter (which doesn't get put in the stream, but
instead says "ok, done").

* - with the exception of "j", since that brings up the joystick
calibration menu. Perhaps a bitset to disable that would be in order

The other routine (which is actually above it) essentially translates
the key codes into ascii values. Of course, this would all be simpler
if game remembered the ascii code entered (or even the last key code)
instead of having to check *each* key.

I'm going to finish this up tonight. The only reason I'm sending it
like this is because I'm at school right now, and need to transport it
home. :) So, I thought I'd ask for some C&C in the mean time.

-- 
Mike Caron
Final Fantasy Q
http://finalfantasyq.com
-------------- next part --------------
script, last ascii, begin
	variable(code, shift)

	shift := keyispressed(42)==true, or, keyispressed(54)==true

	if(keyispressed(30)) then (code := 65)
	if(keyispressed(48)) then (code := 66)
	if(keyispressed(46)) then (code := 67)
	if(keyispressed(32)) then (code := 68)
	if(keyispressed(18)) then (code := 69)
	if(keyispressed(33)) then (code := 70)
	if(keyispressed(34)) then (code := 71)
	if(keyispressed(35)) then (code := 72)
	if(keyispressed(23)) then (code := 73)
	if(keyispressed(36)) then (code := 74)
	if(keyispressed(37)) then (code := 75)
	if(keyispressed(38)) then (code := 76)
	if(keyispressed(50)) then (code := 77)
	if(keyispressed(49)) then (code := 78)
	if(keyispressed(24)) then (code := 79)
	if(keyispressed(25)) then (code := 80)
	if(keyispressed(16)) then (code := 81)
	if(keyispressed(19)) then (code := 82)
	if(keyispressed(31)) then (code := 83)
	if(keyispressed(20)) then (code := 84)
	if(keyispressed(22)) then (code := 85)
	if(keyispressed(47)) then (code := 86)
	if(keyispressed(17)) then (code := 87)
	if(keyispressed(45)) then (code := 88)
	if(keyispressed(21)) then (code := 89)
	if(keyispressed(44)) then (code := 90)
	if(keyispressed(2)) then (if(shift) then (code :=33) else (code :=49))
	if(keyispressed(3)) then (if(shift) then (code :=64) else (code :=50))
	if(keyispressed(4)) then (if(shift) then (code :=35) else (code :=51))
	if(keyispressed(5)) then (if(shift) then (code :=36) else (code :=52))
	if(keyispressed(6)) then (if(shift) then (code :=37) else (code :=53))
	if(keyispressed(7)) then (if(shift) then (code :=94) else (code :=54))
	if(keyispressed(8)) then (if(shift) then (code :=38) else (code :=55))
	if(keyispressed(9)) then (if(shift) then (code :=42) else (code :=56))
	if(keyispressed(10)) then (if(shift) then (code :=40) else (code :=57))
	if(keyispressed(11)) then (if(shift) then (code :=41) else (code :=48))
	if(keyispressed(41)) then (if(shift) then (code :=126) else (code :=96))
	if(keyispressed(12)) then (if(shift) then (code :=95) else (code :=45))
	if(keyispressed(57)) then (code := 32)


	if(code <= 90, and, code >= 65) then, begin	
		if(shift == false) then (code += 32)
	end

	return (code)

end

script, input string, str, useexist, begin
	variable(done, key)
	if(useexist==false) then (clear string(str))
	while(done == false) do, begin
		center string at(str,160,110)
		wait for key
		if(key is pressed(28)) then (done := true) else, begin
			if(key is pressed(14)) then (delete char(str,string length(str)))
			key := last ascii
			if(last ascii) then(append ascii(str,key))
		end
	end
end