Display mode menu using checklist

Author

Message

Levanthus

21

Years of Service

User Offline

Joined: 17th Apr 2003

Location: Cumbria, UK

Posted: 8th Aug 2010 00:47

Link

On my current project, once you start it up there is a small menu asking to select a display mode/size. Now, the menu itself has only a small handful of display modes hard coded into it, how exaclty would i use the PERFORM CHECKLIST FOR DISPLAY MODES to create a menu that i could then Click to select one?

My current menu is like this:-

Global Text_size
Global Menu_Choice
Global Click_e

Text_size = Int(screen Height()/25)
set text size M_Text_size

Menu()

Function Menu()
	Show Mouse
	DO
		Set Cursor 0,0
		Menu_Choice = MenuText("1280 x 800",1,1)
		Menu_choice = MenuText("1280 x 800 Windowed",3,2)
		Menu_Choice = MenuText("1280 x 1024",5,3)
		Menu_Choice = MenuText("1280 x 1024 Windowed",7,4)
		Menu_Choice = MenuText("1366 x 768",9,5)
		Menu_Choice = MenuText("1366 x 768 Windowed",11,6)
		Menu_Choice = MenuText("1440 x 900",13,7)
		Menu_Choice = MenuText("1440 x 900 Windowed",15,8)
		Menu_Choice = MenuText("1600 x 1000",17,9)
		Menu_choice = MenuText("1600 x 1000 Windowed",19,10)
		Menu_Choice = MenuText("1680 x 1050",21,11)
		Menu_Choice = MenuText("1680 x 1050 Windowed",23,12)
		
		sync
	loop
endfunction

Function MenuText(Text_$,Line_,Option_)
	if int(mousey()/Text_size)= Line_ and Option_ > 0
		ink rgb(255,255,0),rgb(0,0,0)
		If mouseclick() = 1
			Click_e = Option_
		else
			Click_e = 0
		endif
	else
		ink rgb(255,255,255),rgb(0,0,0)
	endif
	
	Center text screen width()/2,Int(Line_*Text_Size),Text_$
	
	if click_e= 1 then set display mode 1280,800,32 : set window off
	if click_e= 2 then set display mode 1280,800,32 : Set Window Position 0,0
	if click_e= 3 then set display mode 1280,1024,32 : set window off
	if click_e= 4 then set display mode 1280,1024,32 : Set Window Position 0,0
	if click_e= 5 then set display mode 1366,768,32 : set window off 
	if click_e= 6 then set display mode 1366,768,32 : Set Window Position 0,0
	if click_e= 7 then set display mode 1440,900,32 : set window off
	if click_e= 8 then set display mode 1440,900,32 : Set Window Position 0,0
	if click_e= 9 then set display mode 1600,1000,32 : set window off
	if click_e= 10 then set display mode 1600,1000,32 : Set Window Position 0,0 
	if click_e= 11 then set display mode 1680,1050,32 : set window off
	if click_e= 12 then set display mode 1680,1050,32 : Set Window Position 0,0
endfunction Click_e

+ Code Snippet

Global Text_size
Global Menu_Choice
Global Click_e

Text_size = Int(screen Height()/25)
set text size M_Text_size

Menu()

Function Menu()
	Show Mouse
	DO
		Set Cursor 0,0
		Menu_Choice = MenuText("1280 x 800",1,1)
		Menu_choice = MenuText("1280 x 800 Windowed",3,2)
		Menu_Choice = MenuText("1280 x 1024",5,3)
		Menu_Choice = MenuText("1280 x 1024 Windowed",7,4)
		Menu_Choice = MenuText("1366 x 768",9,5)
		Menu_Choice = MenuText("1366 x 768 Windowed",11,6)
		Menu_Choice = MenuText("1440 x 900",13,7)
		Menu_Choice = MenuText("1440 x 900 Windowed",15,8)
		Menu_Choice = MenuText("1600 x 1000",17,9)
		Menu_choice = MenuText("1600 x 1000 Windowed",19,10)
		Menu_Choice = MenuText("1680 x 1050",21,11)
		Menu_Choice = MenuText("1680 x 1050 Windowed",23,12)
		
		sync
	loop
endfunction

Function MenuText(Text_$,Line_,Option_)
	if int(mousey()/Text_size)= Line_ and Option_ > 0
		ink rgb(255,255,0),rgb(0,0,0)
		If mouseclick() = 1
			Click_e = Option_
		else
			Click_e = 0
		endif
	else
		ink rgb(255,255,255),rgb(0,0,0)
	endif
	
	Center text screen width()/2,Int(Line_*Text_Size),Text_$
	
	if click_e= 1 then set display mode 1280,800,32 : set window off
	if click_e= 2 then set display mode 1280,800,32 : Set Window Position 0,0
	if click_e= 3 then set display mode 1280,1024,32 : set window off
	if click_e= 4 then set display mode 1280,1024,32 : Set Window Position 0,0
	if click_e= 5 then set display mode 1366,768,32 : set window off 
	if click_e= 6 then set display mode 1366,768,32 : Set Window Position 0,0
	if click_e= 7 then set display mode 1440,900,32 : set window off
	if click_e= 8 then set display mode 1440,900,32 : Set Window Position 0,0
	if click_e= 9 then set display mode 1600,1000,32 : set window off
	if click_e= 10 then set display mode 1600,1000,32 : Set Window Position 0,0 
	if click_e= 11 then set display mode 1680,1050,32 : set window off
	if click_e= 12 then set display mode 1680,1050,32 : Set Window Position 0,0
endfunction Click_e

It is based on a bit of code i discovered on the forums, i like how it works but i don;t know how i would implement the PERFORM CHECKLIST FOR DISPLAY MODES

I can see from your smile, you're not here for the sunset

Windows 7 64 bit, AMD Phenom II x4 Black edition, 4 GB Ram, Radeon HD 4650, 540 GB HDD

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 8th Aug 2010 02:23 Edited at: 8th Aug 2010 02:24

Link

This is how I do it...

+ Code Snippet

        // List 1, gfx modes.
	
	`clear the checklist
	empty checklist
	
	` check for available gfx modes,
	perform checklist for display modes
	    
	lmax=checklist quantity()
	a=1
	    
	` add them to an array (Needs IanM's Matrix1 plugins)
	for b=1 to lmax
	    
	    temp$=checklist string$(b)
	            
	    split string temp$,"x"
		
	    x=val(get split word$(1))
	    y=val(get split word$(2))
	    d=val(get split word$(3))
		
  	    if x=>640 and y=>480
	        list(1,a).writing=temp$
	        inc a
	    endif
		
	    if x=system(0).screenWidth and y=system(0).screenHeight and d=screen depth()
	        menu(3,1).listmode=a-1
	        resolution=a-1
	    endif
	    
	next b

I hope that helps a little

Back to top

Profile PM Email Website

Levanthus

21

Years of Service

User Offline

Joined: 17th Apr 2003

Location: Cumbria, UK

Posted: 8th Aug 2010 13:22 Edited at: 8th Aug 2010 13:23

Link

Ok i had a look at your bit of code but it doesn't seem to want to work for me.
everytime i compile it it highlights list(1,a).writing=temp$ but for a while now my editor hasn't told me WHAT is wrong with the line.

I made sure i had all of IanM's plugins and stuff.

I can see from your smile, you're not here for the sunset

Windows 7 64 bit, AMD Phenom II x4 Black edition, 4 GB Ram, Radeon HD 4650, 540 GB HDD

Back to top

Profile PM Email

=PRoF=

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 8th Aug 2010 13:36 Edited at: 8th Aug 2010 13:47

Link

It's a typed array; It needs defining before you can use it.

It wasn't a working snippet; I just hacked it out of my game and posted it for you to look at.

Here is an standalone version; I've changed all the typed variables to normal ones. hope it makes more sense

dim resolutionList$(100)
		
	`clear the checklist
	empty checklist
	
	` check for available gfx modes,
	perform checklist for display modes
	    
	lmax=checklist quantity()
	a=1
	    
	` add them to an array (Needs IanM's Matrix1 plugins)
	for b=1 to lmax
	    
	    temp$=checklist string$(b)
	            
	    split string temp$,"x"
		
	    x=val(get split word$(1))
	    y=val(get split word$(2))
	    d=val(get split word$(3))
		
	    // if the resolution is greater than 640 x 480 then add it to the list
	    if x=>640 and y=>480
	        resolutionList$(a)=temp$
	        inc a
	    endif
		
	    // this bit sets "resolution" variable to the list ID of the current resolution
	    if x=screen width() and y=screen height() and d=screen depth()
	        resolution=a-1
	    endif
	    
	next b

a=a-1 : ` otherwise it shows one to many in the resolution count bit

// display stuff to show it worked
	cls
	
	print str$(a)+" resolutions to choose from"
	print
	
	for b=1 to a
            if resolution<>b
                print resolutionList$(b)
            else
                print resolutionList$(b)+"  <-- Current Resolution"
            endif
        next b
	
	wait key

+ Code Snippet

	dim resolutionList$(100)
		
	`clear the checklist
	empty checklist
	
	` check for available gfx modes,
	perform checklist for display modes
	    
	lmax=checklist quantity()
	a=1
	    
	` add them to an array (Needs IanM's Matrix1 plugins)
	for b=1 to lmax
	    
	    temp$=checklist string$(b)
	            
	    split string temp$,"x"
		
	    x=val(get split word$(1))
	    y=val(get split word$(2))
	    d=val(get split word$(3))
		
	    // if the resolution is greater than 640 x 480 then add it to the list
	    if x=>640 and y=>480
	        resolutionList$(a)=temp$
	        inc a
	    endif
		
	    // this bit sets "resolution" variable to the list ID of the current resolution
	    if x=screen width() and y=screen height() and d=screen depth()
	        resolution=a-1
	    endif
	    
	next b

        a=a-1 : ` otherwise it shows one to many in the resolution count bit

	// display stuff to show it worked
	cls
	
	print str$(a)+" resolutions to choose from"
	print
	
	for b=1 to a
            if resolution<>b
                print resolutionList$(b)
            else
                print resolutionList$(b)+"  <-- Current Resolution"
            endif
        next b
	
	wait key

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Display mode menu using checklist