Learning HollyWood (~Tutorial) Vol. 1

Atheist wrote:
The

InKeyStr()

command is a real let down!

In AMOS Pro, there is an Inkey$ command that retrieves only one character from the keyboard, and then you can react to the character as you please. It doesn't appear on the screen, you decide if it's displayed or not, even.

In Hollywood, the letter appears on the screen, so I can't filter out letters from appearing which cannot be selected. Also, a RETURN must be entered, unlike in AMOS.

There is
IsKeyDown()

But then I'd have to

Repeat
Until IsKeyDown("Q")=TRUE or IsKeyDown("q")=TRUE or IsKeyDown("N")=TRUE or IsKeyDown("n")=TRUE or IsKeyDown("S")=TRUE or IsKeyDown("s")=TRUE or IsKeyDown("E")=TRUE or IsKeyDown("e")=TRUE or IsKeyDown("W")=TRUE or IsKeyDown("w")=TRUE

For quit or north or south or east or west, and I see that it wouldn't work anyway, as the second comparison would get a NEW key depressed variable anyway. Not possible to do in HollyWood, I can see.

Table: ox1ad2f168
Table: ox1a60edf0
Table: ox1a60ef30
Table: ox1a60f070
Table: ox1a60f1b0

Function PrintMyKey(k)
; This function is called everytime the user release a key
if k=5
NPrint(k)
endif
EndFunction

Function PrintMyKey(msg)
NPrint(msg.key)
A$=msg.key
print("Hello "..A$)
EndFunction

Atheist wrote:
Hi Hans,

I am using TextOut because in AMOS
Text x,y,"Hello"
prints words MUCH faster than Print and gives me to the pixel placement.

(Continuing AMOS) Print has 80 x 25 character position placement.

Had a problem if you use
locate 79,24
Print "a";

That's the lower right corner of the screen, there would be a carriage return and the screen would scroll up.
There was a command, thankfully, that froze screen raising, however, it wasn't needed with the Text x,y,"a" command.
Another problem was, with print, the invisible cursor would I think in locate 0,0 make an 8x8 blank space at times, or even erase a character.

Atheist wrote:
WOW! Woohooo!

One of the few times my experiment worked out!

Quote:

Function PrintMyKey(msg)
NPrint(msg.key)
A$=msg.key
print("Hello "..A$)
EndFunction

I wasn't sure at all if it would work as "msg.key" isn't a string variable. Can periods be used in variable names in HollyWood? I had no idea that they could be used.

So, when I get an acceptable reply, and want to act on it, do I cancel "InstallEventHandler" or "WaitEvent" or both?

Const #TRUE = 1
Const #FALSE = 0
quit = FALSE

Function KeyEventHandler(msg)
; Print the key press
NPrint(msg.key)

if msg.key = "q"
quit = TRUE
EndIf
EndFunction

InstallEventHandler({OnKeyUp = KeyEventHandler})

; Main Loop
While quit = FALSE
WaitEvent
Wend

Atheist wrote:
Hi Hans,

Convoluted, but I see what it's doing.

Now, if I want the next keyboard user inputs to be one of "N"orth, "S"outh, "E"ast or "W"est, I need to

InstallEventHandler({OnKeyUp = KeyEventHandler})

and reference a different function? "KeyEventHandler" could be "ChooseDirection"?

if msg.key = "q"
quit = TRUE
else if msg.key = "N"
MoveNorth
EndIf

etc.

I'd never be able to figure out how you did that.

It looks like I would need a masters degree to figure out that that table needs redirecting that way, I'd never be able to figure out how you did that.