home *** CD-ROM | disk | FTP | other *** search
/ UnrealScript Game Programming All in One / UnrealScriptGameProgrammingAllInOne.iso / UGPAIOListings / UGPAIOListingsCh13 / CH13LIST / Classes / CH13_06LIST.uc < prev    next >
Encoding:
Text File  |  2006-02-06  |  2.2 KB  |  74 lines
  1. // %PARAMETERS = "CH13LIST C:\UT2004"
  2. //Identifies the package
  3. //CH13_06LIST.uc
  4.  
  5. class CH13_06LIST extends Commandlet;
  6. function int Main(string Args){
  7.  
  8. //#1
  9. local string szTitleInfo, szSource;
  10. local Array<string> rgOrphicSayings;
  11. local int iItr;
  12.  
  13.  
  14. rgOrphicSayings[0] =Caps(" Enthusiasm ") @ Chr(10)
  15.      @ " Believe, youth, that your heart is your oracle...";
  16.  
  17. rgOrphicSayings[1] = Caps(" Hope ") @ Chr(10)
  18.      @ " Hope deifies man; it is the apotheosis of the soul...";
  19.  
  20. rgOrphicSayings[2] = Caps(" Immortality ") @ Chr(10)
  21.      @ "The grander my conception of being, the nobler any future.";
  22.  
  23. rgOrphicSayings[3] = Caps(" Vocation ") @ Chr(10)
  24.      @ " Engage in nothing that cripples or degrades you." $  Chr(10) @
  25.      "Your first duty is self-culture, self-evaluation. . .";
  26.  
  27. rgOrphicSayings[4] = Caps(" Sensualism ") @ Chr(10)
  28.      @ "He who marvels at nothing, who feels nothing to be" $  Chr(10) @
  29.      "mysterious, but must needs bare all things to sense," $  Chr(10) @
  30.      "lacks both wisdom and piety.";
  31.  
  32. rgOrphicSayings[5] = Caps(" Aspiration ") @ Chr(10)
  33.      @ "The insatiableness of her desires is an augury of the " $
  34.      "soul's eternity.";
  35.  
  36. szTitleInfo = Chr(10) @ Caps("Orphic Sayings") @
  37.                "Amos Bronson Alcott  1799-1888" $  Chr(10);
  38. szSource =    Chr(10) @ "  Perry Miller, ed. The American Transcendentalists" $  Chr(10) @
  39.               "(Baltimore: Johns Hopkins U. Press, 1957), pp. 86-88.";
  40.  
  41. //#2
  42. iItr =  Rand(6);
  43. Log ( Chr(10) $ iItr + 1 $ ".");
  44.  
  45.  
  46. //#3
  47. if(iItr == 1 || iItr == 6){
  48.      Log( Chr(10) $ szTitleInfo $  Chr(10)
  49.                  $ rgOrphicSayings[iItr] $ Chr(10) $ szSource);
  50. }
  51.  
  52. //#4 equal to or equal to and not equal to
  53. if(iItr == 3 || (iItr == 0 && iItr != 6)){
  54.      Log(Chr(10) $ szTitleInfo $ Chr(10)
  55.                  $ rgOrphicSayings[iItr] $ Chr(10) $  szSource);
  56. }
  57.  
  58. //#5 Compound: greatter than and less than
  59. if(iItr > 3 && !(iItr > 4))
  60. {
  61.      Log(Chr(10) $ szTitleInfo $ Chr(10)
  62.                  $ rgOrphicSayings[iItr] $ Chr(10) $ szSource);
  63. }
  64.  
  65. //#6 Compound: greater than or equal to
  66. if(iItr > 4 || iItr == 2)
  67. {
  68.      Log(Chr(10) $ szTitleInfo $ Chr(10)
  69.                  $ rgOrphicSayings[iItr] $ Chr(10) $ szSource);
  70. }
  71.  
  72.    return 0;
  73. }
  74.