Re: help with normal windows font....[correction]

new topic     » topic index » view thread      » older message » newer message

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)

new topic     » topic index » view thread      » older message » newer message

Search



Quick Links

User menu

Not signed in.

Misc Menu