Am facut catevai adaugiri la GUI. Sistemul are acum afishe (labels) si checkbox-uri
Toate widgeturile interfetei pot fi accesate si folosite din script, exemplu:
Cod sursă:
Form(800, 380 + 168, 120, 220, 10, "MainMenuForm", true, 12, "WindowType1");
if (Button("MissStartBt", "MainMenuForm", 20, 40, 50, 30, false, 5, "ButtonType1", " Start n Mission", "Static", 5, 5, 12, ColorWhite, ColorWhite))
{
menu_state = MainMenuState_enum.Missions;
}
if (Button("OptionsBt", "MainMenuForm", 20, 80, 50, 30, false, 5, "ButtonType1", "Options","Static", 5, 10, 12, ColorWhite, ColorWhite))
{
Menu1Options = true;
}
if (Button("Exitbt", "MainMenuForm", 20, 120, 50, 30, false, 5, "ButtonType1", "Exit", "Static", 5, 10, 12, ColorWhite, ColorWhite))
{
return false;
}
if (Menu1Options)
{
Form(600, 400, 400, 250, 14, "OptForm", true, 12, "WindowType1");
if(Button("OptB1","OptForm",30, 40, 50, 30, false, 5, "ButtonType1", "Back", "Static", 5, 10, 12, ColorWhite, ColorWhite))
{
Menu1Options = false;
}
WireFrameMode = CheckBox("WframeChB", "OptForm", 120, 90, 30, "ChBx1");
Afish("fNameX", "OptForm", "Wireframe render:", 20, 90, 14, ColorWhite, ColorWhite);
if (WireFrameMode == 1)
{
cam.PolygonMode = PolygonMode.PM_SOLID;
}
if (WireFrameMode == 2)
{
cam.PolygonMode = PolygonMode.PM_WIREFRAME;
}
}
Daca apesi pe butonul options se deschide meniul Options in screenshot
[
1
|
