Re: rory farm first beta is now ready for testing
The game is interesting. I do have a few bits of feedback though.
In the help dialog, it sayd w, a, s, and d for moving, when it's the arrows.
Also if you alt tab while in an input box, you can't get it back. Might I recommend doing something like
Procedure.s InputBox(Title.S,Text.S,DefaultText.S="",OKName.S="OK",CancelName.S="Cancel")
Output.S
OpenWindow(100,#PB_Ignore,#PB_Ignore,#PB_Ignore,#PB_Ignore,Title,#PB_Window_Maximize)
TextGadget(101,0,15,200,20,Text)
StringGadget(102,0,15,200,20,DefaultText)
ButtonGadget(103,20,35,200,20,OKName,#PB_Button_Default)
ButtonGadget(104,40,55,200,20,CancelName)
SetActiveGadget(102)
AddKeyboardShortcut(100,#PB_Shortcut_Return,111)
AddKeyboardShortcut(100,#PB_Shortcut_Escape,112)
Repeat
Output=GetGadgetText(102)
Event=WaitWindowEvent()
Select Event
Case #PB_Event_Menu
Select EventMenu()
Case 111
If GetActiveGadget()=102 Or GetActiveGadget()=103
CloseWindow(100)
ProcedureReturn Output
EndIf
If GetActiveGadget()=104
CloseWindow(100)
ProcedureReturn ""
EndIf
Case 112
CloseWindow(100)
ProcedureReturn ""
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case 103
CloseWindow(100)
ProcedureReturn Output
Case 104
CloseWindow(100)
ProcedureReturn ""
EndSelect
EndSelect
Until Event=#PB_Event_CloseWindow
EndProcedure
Also, if you hit escape and get the exit dialog and alt tab, after you come back, the window goes unavailable. This also happens, I've found, if you enter 1 for the number of trees. I'm assuming that you use a windowed screen, and in that case I'd recommend making your own dialog asking, without buttons and y for yes, n for no, as windowed screens and dialogs like that don't get along all that well
HTH
-- Audiogames-reflector mailing list Audiogames-reflector@sabahattin-gucukoglu.com https://sabahattin-gucukoglu.com/cgi-bin/mailman/listinfo/audiogames-reflector