Help needed for a simple menu, please ?

Author

Message

Serge Adjo

19

Years of Service

User Offline

Joined: 3rd Aug 2006

Location:

Posted: 19th May 2010 12:31 Edited at: 19th May 2010 12:45

Link

hello everyone ! I'm working on simple menu based on simple text and mouse controled, no media needed so you can compile it directly... but it don't work correctly: only the last line return the correct value if the user click on it...
the 'choice / option selected' equals 0 for every line except the last...
I don't find any solution.
please just copy and paste this code below, it work without external media:

Rem Project: MENU
Rem Created: Wednesday, May 19, 2010
rem by serge adjo

REM ==========================================================
REM THE PROBLEM IS THAT ONLY THE LAST OPTION / CHOICE RETURN THE CORRECT VALUE, SO, SEE WHAT YOU CAN DO TO FIX IT...
REM ==========================================================

Rem ***** Main Source File *****
SYNC ON
SYNC RATE 60
BACKDROP ON
REM MENUS VARIABLES :
REM V_LANGUAGE_E : 0 = FRENCH ; 1 = ENGLISH
GLOBAL V_LANGUAGE_E = 1
GLOBAL V_TEXT_SIZE_E
GLOBAL V_MENU_CHOICE_E

REM TEXT SIZE, FONT:
V_TEXT_SIZE_E = INT(SCREEN HEIGHT()/25)
SET TEXT FONT "Arial" : SET TEXT SIZE V_TEXT_SIZE_E

REM OUR MENU:
f_MAIN_MENU()
	
REM THE FUNCTIONS USED:
REM //////////////////////////////
FUNCTION f_MAIN_MENU()
	SHOW MOUSE
	DO
		SET CURSOR 0,0
		PRINT "CHOICE / OPTION SELECTED: ";V_MENU_CHOICE_E
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("TIREUR D'ELITE 3D: MENU PRINCIPAL",1,0)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("THE SHARPSHOOTER 3D: MAIN MENU",1,0)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("JOUER !",3,1)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("PLAY !",3,1)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("AIDE - COMMANDES",5,3)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("HELP - CONTROLS",5,3)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUITTER",8,4)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUIT",8,4)

SYNC
	LOOP
ENDFUNCTION
REM //////////////////////////////

REM //////////////////////////////
FUNCTION f_TEXT_MENU(v_TEXT_$,v_LINE_E,v_OPTION_N_E)
	v_CLICK_E = 0
	REM CHANGE THE COLOR WHEN MOUSE IS OVER THE TEXT AND CHECK IF THE USER CLICKS;
	IF INT(MOUSEY()/V_TEXT_SIZE_E) = v_LINE_E AND v_OPTION_N_E > 0
		INK RGB(255,255,0),RGB(0,0,0)
		IF MOUSECLICK()=1
			v_CLICK_E = v_OPTION_N_E 
 		ELSE
 			v_CLICK_E = 0
		ENDIF
	ELSE
		INK RGB(255,255,255),RGB(0,0,0)
	ENDIF
	REM AFFICHE TEXTE;
	CENTER TEXT SCREEN WIDTH ( )/2,INT(v_LINE_E*V_TEXT_SIZE_E),v_TEXT_$
ENDFUNCTION v_CLICK_E
REM //////////////////////////////

+ Code Snippet

Rem Project: MENU
Rem Created: Wednesday, May 19, 2010
rem by serge adjo

REM ==========================================================
REM THE PROBLEM IS THAT ONLY THE LAST OPTION / CHOICE RETURN THE CORRECT VALUE, SO, SEE WHAT YOU CAN DO TO FIX IT...
REM ==========================================================

Rem ***** Main Source File *****
SYNC ON
SYNC RATE 60
BACKDROP ON
REM MENUS VARIABLES :
REM V_LANGUAGE_E : 0 = FRENCH ; 1 = ENGLISH
GLOBAL V_LANGUAGE_E = 1
GLOBAL V_TEXT_SIZE_E
GLOBAL V_MENU_CHOICE_E

REM TEXT SIZE, FONT:
V_TEXT_SIZE_E = INT(SCREEN HEIGHT()/25)
SET TEXT FONT "Arial" : SET TEXT SIZE V_TEXT_SIZE_E

REM OUR MENU:
f_MAIN_MENU()
	
REM THE FUNCTIONS USED:
REM //////////////////////////////
FUNCTION f_MAIN_MENU()
	SHOW MOUSE
	DO
		SET CURSOR 0,0
		PRINT "CHOICE / OPTION SELECTED: ";V_MENU_CHOICE_E
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("TIREUR D'ELITE 3D: MENU PRINCIPAL",1,0)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("THE SHARPSHOOTER 3D: MAIN MENU",1,0)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("JOUER !",3,1)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("PLAY !",3,1)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("AIDE - COMMANDES",5,3)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("HELP - CONTROLS",5,3)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUITTER",8,4)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUIT",8,4)

		SYNC
	LOOP
ENDFUNCTION
REM //////////////////////////////	


REM //////////////////////////////
FUNCTION f_TEXT_MENU(v_TEXT_$,v_LINE_E,v_OPTION_N_E)
	v_CLICK_E = 0
	REM CHANGE THE COLOR WHEN MOUSE IS OVER THE TEXT AND CHECK IF THE USER CLICKS;
	IF INT(MOUSEY()/V_TEXT_SIZE_E) = v_LINE_E AND v_OPTION_N_E > 0
		INK RGB(255,255,0),RGB(0,0,0)
		IF MOUSECLICK()=1
			v_CLICK_E = v_OPTION_N_E 
 		ELSE
 			v_CLICK_E = 0
		ENDIF
	ELSE
		INK RGB(255,255,255),RGB(0,0,0)
	ENDIF
	REM AFFICHE TEXTE;
	CENTER TEXT SCREEN WIDTH ( )/2,INT(v_LINE_E*V_TEXT_SIZE_E),v_TEXT_$
ENDFUNCTION v_CLICK_E
REM //////////////////////////////

the main function here is: 'f_TEXT_MENU(v_TEXT_$,v_LINE_E,v_OPTION_N_E)' where 'v_TEXT_$' is the text you want to display, 'v_LINE_E' set at wich line you want the text to be printed ( there are 25 lines at all), 'v_OPTION_N_E' is the id of the text and it makes possible to know if the text is clicked and then react with the proper function. the function return a value that equals 'v_OPTION_N_E' if the user clicked on the text.

hope you understand...

please help me fix this

Back to top

Profile PM

Van B

Moderator

23

Years of Service

User Offline

Joined: 8th Oct 2002

Location: Sunnyvale

Posted: 19th May 2010 13:10

Link

I think it's because you are resetting that returned value to 0 everytime - unless you click the last option, then that's the only one that isn't reset - because it's reset with...

IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUITTER",8,4)
IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUIT",8,4)

See V_MENU_CHOICE_E will always be reset to 0.

In the function, instead of resetting it to 0, reset it to the current value, but set it to -1 before calling any text functions so that you know when any menu item is clicked, maybe something like this:

Rem Project: MENU
Rem Created: Wednesday, May 19, 2010
rem by serge adjo

REM ==========================================================
REM THE PROBLEM IS THAT ONLY THE LAST OPTION / CHOICE RETURN THE CORRECT VALUE, SO, SEE WHAT YOU CAN DO TO FIX IT...
REM ==========================================================

Rem ***** Main Source File *****
SYNC ON
SYNC RATE 60
BACKDROP ON
REM MENUS VARIABLES :
REM V_LANGUAGE_E : 0 = FRENCH ; 1 = ENGLISH
GLOBAL V_LANGUAGE_E = 1
GLOBAL V_TEXT_SIZE_E
GLOBAL V_MENU_CHOICE_E

REM TEXT SIZE, FONT:
V_TEXT_SIZE_E = INT(SCREEN HEIGHT()/25)
SET TEXT FONT "Arial" : SET TEXT SIZE V_TEXT_SIZE_E

REM OUR MENU:
f_MAIN_MENU()
	
REM THE FUNCTIONS USED:
REM //////////////////////////////
FUNCTION f_MAIN_MENU()
	SHOW MOUSE
	DO
		SET CURSOR 0,0
V_MENU_CHOICE_E=-1
		PRINT "CHOICE / OPTION SELECTED: ";V_MENU_CHOICE_E
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("TIREUR D'ELITE 3D: MENU PRINCIPAL",1,0)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("THE SHARPSHOOTER 3D: MAIN MENU",1,0)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("JOUER !",3,1)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("PLAY !",3,1)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("AIDE - COMMANDES",5,3)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("HELP - CONTROLS",5,3)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUITTER",8,4)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUIT",8,4)

SYNC
	LOOP
ENDFUNCTION
REM //////////////////////////////

REM //////////////////////////////
FUNCTION f_TEXT_MENU(v_TEXT_$,v_LINE_E,v_OPTION_N_E)
	v_CLICK_E = 0
	REM CHANGE THE COLOR WHEN MOUSE IS OVER THE TEXT AND CHECK IF THE USER CLICKS;
	IF INT(MOUSEY()/V_TEXT_SIZE_E) = v_LINE_E AND v_OPTION_N_E > 0
		INK RGB(255,255,0),RGB(0,0,0)
		IF MOUSECLICK()=1
			v_CLICK_E = v_OPTION_N_E 
 		ELSE
 			v_CLICK_E = V_MENU_CHOICE_E
		ENDIF
	ELSE
		INK RGB(255,255,255),RGB(0,0,0)
	ENDIF
	REM AFFICHE TEXTE;
	CENTER TEXT SCREEN WIDTH ( )/2,INT(v_LINE_E*V_TEXT_SIZE_E),v_TEXT_$
ENDFUNCTION v_CLICK_E
REM //////////////////////////////

+ Code Snippet

Rem Project: MENU
Rem Created: Wednesday, May 19, 2010
rem by serge adjo

REM ==========================================================
REM THE PROBLEM IS THAT ONLY THE LAST OPTION / CHOICE RETURN THE CORRECT VALUE, SO, SEE WHAT YOU CAN DO TO FIX IT...
REM ==========================================================

Rem ***** Main Source File *****
SYNC ON
SYNC RATE 60
BACKDROP ON
REM MENUS VARIABLES :
REM V_LANGUAGE_E : 0 = FRENCH ; 1 = ENGLISH
GLOBAL V_LANGUAGE_E = 1
GLOBAL V_TEXT_SIZE_E
GLOBAL V_MENU_CHOICE_E

REM TEXT SIZE, FONT:
V_TEXT_SIZE_E = INT(SCREEN HEIGHT()/25)
SET TEXT FONT "Arial" : SET TEXT SIZE V_TEXT_SIZE_E

REM OUR MENU:
f_MAIN_MENU()
	
REM THE FUNCTIONS USED:
REM //////////////////////////////
FUNCTION f_MAIN_MENU()
	SHOW MOUSE
	DO
		SET CURSOR 0,0
V_MENU_CHOICE_E=-1
		PRINT "CHOICE / OPTION SELECTED: ";V_MENU_CHOICE_E
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("TIREUR D'ELITE 3D: MENU PRINCIPAL",1,0)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("THE SHARPSHOOTER 3D: MAIN MENU",1,0)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("JOUER !",3,1)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("PLAY !",3,1)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("AIDE - COMMANDES",5,3)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("HELP - CONTROLS",5,3)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUITTER",8,4)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUIT",8,4)

		SYNC
	LOOP
ENDFUNCTION
REM //////////////////////////////	


REM //////////////////////////////
FUNCTION f_TEXT_MENU(v_TEXT_$,v_LINE_E,v_OPTION_N_E)
	v_CLICK_E = 0
	REM CHANGE THE COLOR WHEN MOUSE IS OVER THE TEXT AND CHECK IF THE USER CLICKS;
	IF INT(MOUSEY()/V_TEXT_SIZE_E) = v_LINE_E AND v_OPTION_N_E > 0
		INK RGB(255,255,0),RGB(0,0,0)
		IF MOUSECLICK()=1
			v_CLICK_E = v_OPTION_N_E 
 		ELSE
 			v_CLICK_E = V_MENU_CHOICE_E
		ENDIF
	ELSE
		INK RGB(255,255,255),RGB(0,0,0)
	ENDIF
	REM AFFICHE TEXTE;
	CENTER TEXT SCREEN WIDTH ( )/2,INT(v_LINE_E*V_TEXT_SIZE_E),v_TEXT_$
ENDFUNCTION v_CLICK_E
REM //////////////////////////////

Health, Ammo, and bacon and eggs!

Back to top

Profile PM Email

Serge Adjo

19

Years of Service

User Offline

Joined: 3rd Aug 2006

Location:

Posted: 19th May 2010 14:12 Edited at: 19th May 2010 14:12

Link

@Van B, yeah the two mistake I've made are:
-resetting the variable v_CLICK_E to 0
-let the variable v_CLICK_E be a local variable
the solution is quite simple:
-let the variable v_CLICK_E be global
-no resetting to 0

now that it is fixed I recommend everyone to use this function in their project: it can be useful to quick menu prototypes, or even a final menu:

Rem Project: MENU
Rem Created: Wednesday, May 19, 2010
rem by serge adjo

REM ==========================================================
REM THE PROBLEM IS THAT ONLY THE LAST OPTION / CHOICE RETURN THE CORRECT VALUE, SO, SEE WHAT YOU CAN DO TO FIX IT...
REM ==========================================================

Rem ***** Main Source File *****
SYNC ON
SYNC RATE 60
BACKDROP ON
REM MENUS VARIABLES :
REM V_LANGUAGE_E : 0 = FRENCH ; 1 = ENGLISH
GLOBAL V_LANGUAGE_E = 1
GLOBAL V_TEXT_SIZE_E
GLOBAL V_MENU_CHOICE_E
GLOBAL V_CLICK_E
REM TEXT SIZE, FONT:
V_TEXT_SIZE_E = INT(SCREEN HEIGHT()/25)
SET TEXT FONT "Arial" : SET TEXT SIZE V_TEXT_SIZE_E

REM OUR MENU:
f_MAIN_MENU()
	
REM THE FUNCTIONS USED:
REM //////////////////////////////
FUNCTION f_MAIN_MENU()
	SHOW MOUSE
	DO
		SET CURSOR 0,0
		PRINT "CHOICE / OPTION SELECTED: ";V_MENU_CHOICE_E
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("TIREUR D'ELITE 3D: MENU PRINCIPAL",1,0)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("THE SHARPSHOOTER 3D: MAIN MENU",1,0)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("JOUER !",3,1)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("PLAY !",3,1)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("AIDE - COMMANDES",5,3)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("HELP - CONTROLS",5,3)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUITTER",8,4)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUIT",8,4)

SYNC
	LOOP
ENDFUNCTION
REM //////////////////////////////

REM //////////////////////////////
FUNCTION f_TEXT_MENU(v_TEXT_$,v_LINE_E,v_OPTION_N_E)

REM CHANGE THE COLOR WHEN MOUSE IS OVER THE TEXT AND CHECK IF THE USER CLICKS;
	IF INT(MOUSEY()/V_TEXT_SIZE_E) = v_LINE_E AND v_OPTION_N_E > 0
		INK RGB(255,255,0),RGB(0,0,0)
		IF MOUSECLICK()=1
			V_CLICK_E = v_OPTION_N_E 
		ELSE
			v_CLICK_E = 0
		ENDIF
	ELSE
		INK RGB(255,255,255),RGB(0,0,0)
	ENDIF
	REM AFFICHE TEXTE;
	CENTER TEXT SCREEN WIDTH ( )/2,INT(v_LINE_E*V_TEXT_SIZE_E),v_TEXT_$
ENDFUNCTION V_CLICK_E
REM //////////////////////////////

+ Code Snippet

Rem Project: MENU
Rem Created: Wednesday, May 19, 2010
rem by serge adjo

REM ==========================================================
REM THE PROBLEM IS THAT ONLY THE LAST OPTION / CHOICE RETURN THE CORRECT VALUE, SO, SEE WHAT YOU CAN DO TO FIX IT...
REM ==========================================================

Rem ***** Main Source File *****
SYNC ON
SYNC RATE 60
BACKDROP ON
REM MENUS VARIABLES :
REM V_LANGUAGE_E : 0 = FRENCH ; 1 = ENGLISH
GLOBAL V_LANGUAGE_E = 1
GLOBAL V_TEXT_SIZE_E
GLOBAL V_MENU_CHOICE_E
GLOBAL V_CLICK_E
REM TEXT SIZE, FONT:
V_TEXT_SIZE_E = INT(SCREEN HEIGHT()/25)
SET TEXT FONT "Arial" : SET TEXT SIZE V_TEXT_SIZE_E

REM OUR MENU:
f_MAIN_MENU()
	
REM THE FUNCTIONS USED:
REM //////////////////////////////
FUNCTION f_MAIN_MENU()
	SHOW MOUSE
	DO
		SET CURSOR 0,0
		PRINT "CHOICE / OPTION SELECTED: ";V_MENU_CHOICE_E
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("TIREUR D'ELITE 3D: MENU PRINCIPAL",1,0)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("THE SHARPSHOOTER 3D: MAIN MENU",1,0)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("JOUER !",3,1)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("PLAY !",3,1)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("OPTIONS",4,2)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("AIDE - COMMANDES",5,3)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("HELP - CONTROLS",5,3)
		
		IF V_LANGUAGE_E = 0 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUITTER",8,4)
		IF V_LANGUAGE_E = 1 THEN V_MENU_CHOICE_E = f_TEXT_MENU("QUIT",8,4)

		SYNC
	LOOP
ENDFUNCTION
REM //////////////////////////////	


REM //////////////////////////////
FUNCTION f_TEXT_MENU(v_TEXT_$,v_LINE_E,v_OPTION_N_E)

	REM CHANGE THE COLOR WHEN MOUSE IS OVER THE TEXT AND CHECK IF THE USER CLICKS;
	IF INT(MOUSEY()/V_TEXT_SIZE_E) = v_LINE_E AND v_OPTION_N_E > 0
		INK RGB(255,255,0),RGB(0,0,0)
		IF MOUSECLICK()=1
			V_CLICK_E = v_OPTION_N_E 
		ELSE
			v_CLICK_E = 0
		ENDIF
	ELSE
		INK RGB(255,255,255),RGB(0,0,0)
	ENDIF
	REM AFFICHE TEXTE;
	CENTER TEXT SCREEN WIDTH ( )/2,INT(v_LINE_E*V_TEXT_SIZE_E),v_TEXT_$
ENDFUNCTION V_CLICK_E
REM //////////////////////////////

thank you Van B !

Back to top

Profile PM

HowDo

23

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 19th May 2010 14:15

Link

Put in code sinppets then when were looking for some thing like this will be able to find it.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sasuke

20

Years of Service

User Offline

Joined: 2nd Dec 2005

Location: Milton Keynes UK

Posted: 19th May 2010 16:50

Link

One thing, have you though of create a sort of text bank to handle the languages instead of hard coding them all over the place. Two maybe fine now, but what if you have eight, that's a lot of repeat code. I quickly wrote an example which could be quite useful:

// setup variables that never change as constants
#constant c_LANG_EN         0
#constant c_LANG_FR         1

type UDT_Lang
    EN as string
    FR as string
endtype

global dim _TextBank() as UDT_Lang

global g_Language as dword
       g_Language = 0   `ENGLISH BY DEFLAUT
       
sync on : sync rate 60

`TBI - text bank index
EN$ = "English"
FR$ = "French"
TBI_Lang = AddText( EN$, FR$ )

EN$ = "Hello world"
FR$ = "Bonjour tout le monde"
TBI_HW = AddText( EN$, FR$ )

do : cls

oldClick = Click
    Click = mouseclick()
    
    if Click > 0 and oldClick = 0
        g_Language = 1-g_Language
    endif
    
    set cursor 0,0
    print "Press mouse to change language"
    print "Language: " + GetText( TBI_Lang , -1 )
    print
    print "All Languages: " + GetText( TBI_HW , -1 )
    print "Only French: " + GetText( TBI_HW , c_LANG_FR )
    
    sync
loop

// add to text bank
function AddText( EN as string, FR as string )
    local Out as integer
    array insert at bottom _TextBank()
    Out = array count(_TextBank())
    _TextBank().EN = EN
    _TextBank().FR = FR    
endfunction Out

// get text from bank
// LangOveride - if you only want to return a specific language else set it to -1
function GetText( BankIndex as integer , LangOveride as integer )
    local Out as string
    if array count(_TextBank()) > -1 and BankIndex <= array count(_TextBank())
        // wrote this quick so this line could be improved
        select (((LangOveride>-1)*LangOveride) + (LangOveride=-1)*g_Language)
            case c_LANG_EN
                Out = _TextBank( BankIndex ).EN
            endcase
            case c_LANG_FR
                Out = _TextBank( BankIndex ).FR
            endcase
        endselect
    endif
endfunction Out

+ Code Snippet

// setup variables that never change as constants
#constant c_LANG_EN         0
#constant c_LANG_FR         1

type UDT_Lang
    EN as string
    FR as string
endtype

global dim _TextBank() as UDT_Lang

global g_Language as dword
       g_Language = 0   `ENGLISH BY DEFLAUT
       
sync on : sync rate 60

`TBI - text bank index
EN$ = "English"
FR$ = "French"
TBI_Lang = AddText( EN$, FR$ )

EN$ = "Hello world"
FR$ = "Bonjour tout le monde"
TBI_HW = AddText( EN$, FR$ )


do : cls

    oldClick = Click
    Click = mouseclick()
    
    if Click > 0 and oldClick = 0
        g_Language = 1-g_Language
    endif
    
    set cursor 0,0
    print "Press mouse to change language"
    print "Language: " + GetText( TBI_Lang , -1 )
    print
    print "All Languages: " + GetText( TBI_HW , -1 )
    print "Only French: " + GetText( TBI_HW , c_LANG_FR )
    
    sync
loop

// add to text bank
function AddText( EN as string, FR as string )
    local Out as integer
    array insert at bottom _TextBank()
    Out = array count(_TextBank())
    _TextBank().EN = EN
    _TextBank().FR = FR    
endfunction Out

// get text from bank
// LangOveride - if you only want to return a specific language else set it to -1
function GetText( BankIndex as integer , LangOveride as integer )
    local Out as string
    if array count(_TextBank()) > -1 and BankIndex <= array count(_TextBank())
        // wrote this quick so this line could be improved
        select (((LangOveride>-1)*LangOveride) + (LangOveride=-1)*g_Language)
            case c_LANG_EN
                Out = _TextBank( BankIndex ).EN
            endcase
            case c_LANG_FR
                Out = _TextBank( BankIndex ).FR
            endcase
        endselect
    endif
endfunction Out

Enjoy

A dream is a fantasy, if you achieve that fantasy it was never a dream to begin with.

Back to top

Profile PM Email

Serge Adjo

19

Years of Service

User Offline

Joined: 3rd Aug 2006

Location:

Posted: 21st May 2010 10:21 Edited at: 21st May 2010 17:23

Link

@hi there ! I've uploaded an HD 720p video of my game "The Sharpshooter 3D" on youtube, in this video you can see the menu functions in action along with action, game footage:

http://www.youtube.com/watch?v=8i2rV5h5bUY

and some screenshot showing the menu:

enjoy the video !

here is the WIP thread:http://forum.thegamecreators.com/?m=forum_view&t=151744&b=8

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Help needed for a simple menu, please ?