[Ohrrpgce] Input String command

[Bob the Hamster]

On Wed, Jun 01, 2005 at 05:13:02PM -0400, Mike Caron wrote:
> Ok, I finished it off, and any key that produces a read character is
> accounted for (with the notable exception of the num-pad "/", whose
> key code I couldn't find). I also made it so that if the player hits
> ESC, input string() will return false, and ENTER will cause it to
> return true. Something to remember is that the string will still have
> the new text in it when ESC happens, just the false is a flag to say
> "ignore it" or something.
> 
> I attached the patch, since I can't access gilgamsh for some reason. I
> can't access it for SVN or for the wiki.

I have been spending all day today at work trying to get a new firewall 
working... gilgamesh happens to be behind that firewall. I will not 
leave it in an unusable state when I go home, but for at least a little 
while longer today it will be horked off-and-on.

Bugzilla is not affected, so you can attach stuff there.

---
Bob the Hamster

> On 6/1/05, Mike Caron <caron.mike at gmail.com> wrote:
> > Of course everyone would want it. You can only go so far with strings
> > you make yourself. Think of where QBasic would be if people couldn't
> > type strings into the IDE. :)
> > 
> > I'll see what I can do to implelment those suggestions, and I'll
> > finish off the routine. I was actually thinking about hardcoding it
> > too, but then I realized that with the position text() command, it
> > would be possible (and easier) to implement it. Then I realized that
> > key codes bear no relation to ascii codes. I was worrying that it
> > would be too slow for practical use, but it seems fine in my testing,
> > so yeah.
> > 
> > On 6/1/05, Bob the Hamster <Bob at hamsterrepublic.com> wrote:
> > >
> > >
> > > On Wed, Jun 01, 2005 at 02:27:04PM -0400, Mike Caron wrote:
> > > > 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.
> > >
> > > I was thinking that something like this would be useful (you just know
> > > everybody would want it) but I had been thinking along the lines of a
> > > hard-coded function, very much like "rename hero" ... but actually, I
> > > like what you are doing here better. it looks good.
> > >
> > > By coding it as a script, it reduces bloat, and it will be more
> > > flexible.
> > >
> > > As for the problem with "j" bringing up the joystick config screen, I
> > > suggest the following two changes:
> > >
> > > 1) Make CTRL+J bring up the joystick screen, not plain J
> > > 2) the same bitset used by "suspend player" should also disable CTRL+J
> > >
> > > ---
> > > Bob the Hamster
> > >
> > > > 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
> > > > _______________________________________________
> > > > Ohrrpgce-motherhamster.org mailing list
> > > > ohrrpgce at lists.motherhamster.org
> > > > http://lists.motherhamster.org/listinfo.cgi/ohrrpgce-motherhamster.org
> > >
> > > _______________________________________________
> > > Ohrrpgce-motherhamster.org mailing list
> > > ohrrpgce at lists.motherhamster.org
> > > http://lists.motherhamster.org/listinfo.cgi/ohrrpgce-motherhamster.org
> > >
> > 
> > 
> > --
> > Mike Caron
> > Final Fantasy Q
> > http://finalfantasyq.com
> > 
> 
> 
> -- 
> Mike Caron
> Final Fantasy Q
> http://finalfantasyq.com


> _______________________________________________
> Ohrrpgce-motherhamster.org mailing list
> ohrrpgce at lists.motherhamster.org
> http://lists.motherhamster.org/listinfo.cgi/ohrrpgce-motherhamster.org