-----------------------------------

G-lant

Thu May 20, 2004 3:13 pm


I need help, someone please help me.....

-----------------------------------

  Are YOU THAT PRO?

Ok I cant seem to get my Player process to work without my Playsel process. The just dont work with out each other.  Can some one see whats wrong and maby, kinda, fix it for me.  :?  please?
% The "GUI.CreateMenu" program.
import GUI
%Pic.ScreenLoad ("C:/game/Map1.jpg", 0, 0, picCopy)
View.Set ("graphics 640, 480")
View.Set ("nocursor")
var first, second : int                 % The menus.
var item : array 1 .. 4 of int         % The menu items.
var name : array 1 .. 4 of string (20) :=
    init ("Quit", "Map", "Player", "Player select")
%(, "B", "---", "C", "D",
%"Disable B Menu Item", "Enable B Menu Item", "---",
%"Disable Second Menu", "Enable Second Menu")
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

procedure MenuSelected
    for i : 1 .. 4
        if item (i) = GUI.GetEventWidgetID then
            Text.Locate (maxrow, 1)
            put name (i) + " selected option              " ..
        end if
    end for
end MenuSelected

procedure Map
    for i : 1 .. 4
        if item (i) = GUI.GetEventWidgetID then
            Text.Locate (maxrow, 1)
            put name (i) + " selected option              " ..
        end if
    end for
end Map

procedure Playsel
    for i : 1 .. 4
        if item (i) = GUI.GetEventWidgetID then
            cls
            Text.Locate (maxrow, 1)
            put name (i) + " Test                          " ..
        end if
    end for
end Playsel

procedure Player
    for i : 1 .. 4
        if item (i) = GUI.GetEventWidgetID then
            Text.Locate (maxrow, 1)
            put name (i) + "s selected option              " ..
            delay (200)
            Playsel
        end if
    end for
end Player



% Create the menus
first := GUI.CreateMenu ("Game")
item (1) := GUI.CreateMenuItem (name (1), GUI.Quit)
item (2) := GUI.CreateMenuItem (name (2), Map)
item (3) := GUI.CreateMenuItem (name (3), Player)
%item (4) := GUI.CreateMenuItem (name (4), Playsel)

loop
    exit when GUI.ProcessEvent
end loop




-----------------------------------

Dan

Thu May 20, 2004 6:23 pm



-----------------------------------

you have to chage the number of indexs your are looking throw in your item array.

like so:


% The "GUI.CreateMenu" program.
import GUI
%Pic.ScreenLoad ("C:/game/Map1.jpg", 0, 0, picCopy)
View.Set ("graphics 640, 480")
View.Set ("nocursor")
var first, second : int                 % The menus.
var item : array 1 .. 3 of int         % The menu items.
var name : array 1 .. 4 of string (20) :=
    init ("Quit", "Map", "Player", "Player select")
%(, "B", "---", "C", "D",
%"Disable B Menu Item", "Enable B Menu Item", "---",
%"Disable Second Menu", "Enable Second Menu")
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

procedure MenuSelected
    for i : 1 .. 3
        if item (i) = GUI.GetEventWidgetID then
            Text.Locate (maxrow, 1)
            put name (i) + " selected option              " ..
        end if
    end for
end MenuSelected

procedure Map
    for i : 1 .. 3
        if item (i) = GUI.GetEventWidgetID then
            Text.Locate (maxrow, 1)
            put name (i) + " selected option              " ..
        end if
    end for
end Map

procedure Playsel
    for i : 1 .. 3
        if item (i) = GUI.GetEventWidgetID then
            cls
            Text.Locate (maxrow, 1)
            put name (i) + " Test                          " ..
        end if
    end for
end Playsel

procedure Player
    for i : 1 .. 3
       if item (i) = GUI.GetEventWidgetID then
            Text.Locate (maxrow, 1)
            put name (i) + "s selected option              " ..
            delay (200)
            Playsel
        end if
    end for
end Player



% Create the menus
first := GUI.CreateMenu ("Game")
item (1) := GUI.CreateMenuItem (name (1), GUI.Quit)
item (2) := GUI.CreateMenuItem (name (2), Map)
item (3) := GUI.CreateMenuItem (name (3), Player)
%item (4) := GUI.CreateMenuItem (name (4), Playsel)

loop
    exit when GUI.ProcessEvent
end loop



-----------------------------------

G-lant

Fri May 21, 2004 3:24 pm



-----------------------------------

Ok thanks man, that helps alot. ^^