TGC Codebase Backup



Display Cards informations and Resolutions entries by Anonymous Coder

22nd Jul 2007 12:49
Summary

Permet d'afficher les cartes et les résolutions disponibles sur le pc



Description



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem cartes
PERFORM CHECKLIST FOR GRAPHICS CARDS
nbCards=CHECKLIST QUANTITY()
cardInfo$=""
if ( nbCards > 0 )
   for value=1 to nbCards step 1
      cardInfo$=CHECKLIST STRING$(value);
      print "Carte n°" + str$(value) + " : " + cardInfo$
   next value
endif

rem resolutions
PERFORM CHECKLIST FOR DISPLAY MODES
nbResolution=CHECKLIST QUANTITY()
resolutionInfo$=""
if ( nbResolution > 0 )
   for value=1 to nbResolution step 1
      resolutionInfo$=CHECKLIST STRING$(value);
      print "Resolution n°" + str$(value) + " : " + resolutionInfo$
   next value
endif

input "Please enter key ";enterkey$