Snippet - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|396\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

garand	Created : 04 January 2007 Community Project Core Program... ...Maybe
I made this a while back and I thought that we could use it maybe. AppTitle "SOCODER MINI GAME DISPLAYER/SELECTOR" Graphics 1024,768,32,2 SetBuffer BackBuffer() Global rect_x=35 Global rect_y=7 Global select_x=35 Global select_y=7 grid() Function grid() While Not KeyHit(1) Cls Color 200,0,0 ;first row of red rectangles Rect rect_x,rect_y,233,233,0 Rect rect_x+238,rect_y,233,233,0 Rect rect_x+476,rect_y,233,233,0 Rect rect_x+714,rect_y,233,233,0 ;second row of red rectangles Rect rect_x,rect_y+238,233,233,0 Rect rect_x+238,rect_y+238,233,233,0 Rect rect_x+476,rect_y+238,233,233,0 Rect rect_x+714,rect_y+238,233,233,0 ;third row of red rectangles Rect rect_x,rect_y+476,233,233,0 Rect rect_x+238,rect_y+476,233,233,0 Rect rect_x+476,rect_y+476,233,233,0 Rect rect_x+714,rect_y+476,233,233,0 ;End of selection rectangles Color 255,255,255 Text 512,740,"SOCODER MINI GAMES -\|\|- Press ENTER to play selected game",1,0 ;Bottom description rectangle Color 255,255,255 Rect 0,725,1024,40,0 Rect 1,726,1022,38,0 ;Selction stuff If KeyHit(205) select_x=select_x+238 EndIf If KeyHit(203) select_x=select_x-238 EndIf If KeyHit(208) Select_y=select_y+238 EndIf If KeyHit(200) Select_y=select_y-238 EndIf If (select_x=>749) Then select_x=749 If (select_x=<35) Then select_x=35 If (select_y=<7) Then select_y=7 If (select_y=>483) Then select_y=483 Select select_x And select_y ;first row Case 35 And 7 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 1",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 749 And 7 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 4",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 511 And 7 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 3",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 273 And 7 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 2",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 ;last row Case 749 And 483 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 12",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 511 And 483 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 11",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 273 And 483 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 10",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 35 And 483 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 9",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 ;second row Case 749 And 245 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 8",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 511 And 245 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 7",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 273 And 245 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 6",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 Case 35 And 245 Color 255,255,255 Text select_x+70,select_y+15,"MINI GAME 5",0,0 Text select_x+37,select_y+190,"MINI GAME TITLE HERE",0,0 Text select_x+20,select_y+210,"AUTHOR OF MINI GAME HERE",0,0 End Select Color 200,200,0 Rect select_x+1,select_y+1,231,231,0 Rect select_x,select_y,233,233,0 Rect select_x+2,select_y+2,229,229,0 ;End of Function stuff Flip Wend End Function End --v It may need some changing but I thought the idea would be good.

Comments

Community Project Core Program...

Comments