home *** CD-ROM | disk | FTP | other *** search
/ UnrealScript Game Programming All in One / UnrealScriptGameProgrammingAllInOne.iso / UGPAIOListings / UGPAIOListingsCh14 / CH14LIST / Classes / CH14_02LIST.uc < prev    next >
Encoding:
Text File  |  2006-02-07  |  1.3 KB  |  50 lines
  1. // %PARAMETERS = "CH14LIST C:\UT2004"
  2. //Identifies the package
  3. //CH14_01LIST.uc
  4.  
  5. class CH14_02LIST extends Commandlet;
  6. function int Main(string Args){
  7. //#1
  8. //Control, Limit, and Counter
  9. local Array<string> rgMinerals;
  10. local string szMinerals;
  11. local int iLIMIT, iCtr;
  12.  
  13. iCtr = 0;
  14. szMinerals = "Covelite Galena Stibinite " $
  15.              "Molybdenite Graphite Pyrolusite Basalt";
  16. iLIMIT =  Split(szMinerals, Chr(32) , rgMinerals);
  17.  
  18. Log(Chr(10) @ "CH14_02LIST" @ Chr(10));
  19.  
  20. Log("  Number of items: " @ iLIMIT);
  21. //The number of items in the array is 7, but
  22. //the indexes start at zero, so you get
  23. //an error if you start at 7; start at six
  24. //use iLIMIT -1
  25.  
  26. //#2
  27. Log("  List 1 (iCtr--):");
  28.    for(iCtr = iLIMIT-1; iCtr >= 0 ; iCtr--){
  29.       Log("    "  $iCtr $ ". "  $ rgMinerals[iCtr] );
  30.    }
  31. //#3
  32. Log("  List 3 Alternative count by -= 2:" );
  33.    for(iCtr = iLIMIT-1; iCtr >= 0 ; iCtr -= 2){
  34.       Log("    "  $iCtr $ ". "  $ rgMinerals[iCtr] );
  35.    }
  36. //#4
  37. Log("  List 3 Alternative count by += 3:" );
  38.    for(iCtr = 0; iCtr < iLIMIT ; iCtr += 3){
  39.       Log("    "  $iCtr $ ". "  $ rgMinerals[iCtr] );
  40.    }
  41. //#5
  42. Log("  List 3 Alternative count by Rand(3):" );
  43.    for(iCtr = 0; iCtr < iLIMIT ; iCtr += Rand(3) ){
  44.       Log("    "  $iCtr $ ". "  $ rgMinerals[iCtr] );
  45.    }
  46.   return 0;
  47. }
  48.  
  49.  
  50.