Re: help with normal windows font....[correction]
- Posted by Alex Ford <FFUltimateMaster at CS.COM> Aug 11, 2000
- 450 views
whoops.. i'm soooo sorry... what i posted for the code, i accidently pasted double... sorry.. [note: yes i know i have two include files as comments... only cuz i'm not ready to use them yet... =)] --------------CODE----------- include win32lib.ew -- include morfiteu.ew -- include mrft_api.ew without warning constant win = create(Window, "Microcosm Worlds", 0, Default, Default, 400,400,0), file = create(Menu, "&File", win,0,0,0,0,0), newgame = create(MenuItem, "&Restart", file,0,0,0,0,0), loadgame = create(MenuItem, "&Load", file,0,0,0,0,0), topscore = create(MenuItem, "&Top Monsters", file,0,0,0,0,0), MenuSep1 = create( MenuItem, "-", file, 0,0,0,0,0 ), quit = create(MenuItem, "&Exit",file,0,0,0,0,0), options = create(Menu, "&Options", win,0,0,0,0,0), osound = create(MenuItem, "turn Sound &on", options,0,0,0,0,0), fsound = create(MenuItem, "turn Sound o&ff", options,0,0,0,0,0), MenuSep2 = create(MenuItem, "-", options,0,0,0,0,0), cinter = create(MenuItem, "Connect to Server", options,0,0,0,0,0), dinter = create(MenuItem, "Disconnect from Server", options,0,0,0,0,0), ainter = create(MenuItem, "Act as Server", options,0,0,0,0,0), help = create(Menu, "&Help", win,0,0,0,0,0), MenuAbout = create( MenuItem, "&About", help, 0,0,0,0,0 ), ExtraAbout = create(MenuItem, "Made with...", help,0,0,0,0,0), Guide = create(MenuItem, "&Guide", help,0,0,0,0,0), Keys = create(MenuItem, "&Keys", help,0,0,0,0,0) setCheck( osound, 1 ) ----------------------------------------------------------------------------- -- File Menu procedure onMenu_newgame() integer result result = message_box( "This function will be avalible in the next version ", -- text "Restarting Microcosm Worlds...", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ newgame ] = routine_id( "onMenu_newgame" ) procedure onMenu_loadgame() integer result result = message_box( "This function won't be avalible until saving is implimented ", -- text "Loading Saved Data for Microcosm Worlds", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ loadgame ] = routine_id( "onMenu_loadgame" ) procedure onMenu_topscore() integer result result = message_box( "Top 1: Gual\n Trainer: Herdun\nTop 2: Flower\n Trainer: Lita\nTop 3: Thunder\n Trainer: Samual\nTop 5: U-terga\n Trainer: Guy ", -- text "About FinalStar II", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ topscore ] = routine_id( "onMenu_topscore" ) -- Option Menu procedure onMenu_cinter() integer result result = message_box( "The internet function won't be avalible for awhile, sorry ", -- text "Connecting to Server... 0%", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ cinter ] = routine_id( "onMenu_cinter" ) procedure onMenu_dinter() integer result result = message_box( "Disconnecting is not needed, as you are not connected to a server ", -- text "Disconnected", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ dinter ] = routine_id( "onMenu_dinter" ) procedure onMenu_ainter() integer result result = message_box( "This function is not yet avalible ", -- text "Act as a Microcosm Server", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ ainter ] = routine_id( "onMenu_ainter" ) -- Help menu procedure onMenu_MenuAbout() integer result result = message_box( "Microcosm Worlds is a production of Aetheorraent\nCopyRight 1999/2000/2001\nAll Right Reserved\nOffical Site:\nhttp://evilzz.net/aetheorraent ", -- text "About Microcosm Worlds", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ MenuAbout ] = routine_id( "onMenu_MenuAbout" ) procedure onMenu_ExtraAbout() integer result result = message_box( "Microcosm Worlds used David Cuny's Win32Lib,\nMorfit for Euphoria,\nAnd several other programs/libaries ", -- text "About Microcosm Worlds", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ ExtraAbout ] = routine_id( "onMenu_ExtraAbout" ) procedure onMenu_Guide() integer result result = message_box( "This function is not yet avalible ", -- text "Guide", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ Guide ] = routine_id( "onMenu_Guide" ) procedure onMenu_Keys() integer result result = message_box( "F = Talk/Search\nD = Cancel/Run\nS = Special\nA = Menu\nE = Right1\nR = Right2\nW = Left1\nQ = Left2\nEnter = Start/Pause\nSpace = Select ", -- text "Game Keys", -- title MB_ICONINFORMATION+MB_TASKMODAL ) -- icon end procedure onClick[ Keys ] = routine_id( "onMenu_Keys" ) -- End of Menu Session ----------------------------------------------------------------------------- global procedure onPaint_win( integer x1, integer y1, integer x2, integer y2 ) setPosition( win, 95, 150 ) setTextColor(win,Green) setFont( win, "Arial", 14, 1) wPuts( win, "Aetheorraent Presents" ) end procedure onPaint[win] = routine_id( "onPaint_win" ) setWindowBackColor(win, BLACK) procedure Close() closeWindow(win) end procedure onClick[quit] = routine_id("Close") ----------------------------------------------------------------------------- WinMain(win,Normal)