home *** CD-ROM | disk | FTP | other *** search
/ UnrealScript Game Programming All in One / UnrealScriptGameProgrammingAllInOne.iso / UGPAIOListings / UGPAIOListingsCh13 / CH13LIST / Classes / CH13_02LIST.uc < prev    next >
Encoding:
Text File  |  2006-02-06  |  1.8 KB  |  71 lines
  1. // %PARAMETERS = "CH13LIST C:\UT2004"
  2. //Identifies the package
  3. //CH13_012IST.uc
  4.  
  5. class CH13_02LIST extends Commandlet;
  6.  
  7.  
  8. function int Main(string Args){
  9.     Log(Chr(10) $ "   CH13_02LIST" $ Chr(10));
  10.     showTitle();
  11.     showLines();
  12.     showSource();
  13.     return 0;
  14. }
  15.  
  16.  
  17. function int showSource(){
  18.       local string szSource, szSpace;
  19.       szSpace = "   ";
  20.  
  21.       szSource  =  Chr(10) $ szSpace $ 
  22.                 "Perry Miller, ed. The American Transcendentalists"
  23.                 $ szSpace;
  24.       szSource  @=  Chr(10) $ szSpace $
  25.                 "(Baltimore: Johns Hopkins U. Press," $
  26.                 " 1957), p. 271.";
  27.  
  28.       Log( szSource);
  29.       return 0;
  30. }
  31.  
  32. function int showLines(){
  33.       local string szSetA, szSetB, szSetC, szSpace;
  34.       szSpace = "   ";
  35.  
  36.       szSetA = Chr(10) $ szSpace $
  37.              "Hath this world, without me wrought," $ Chr(10)
  38.              $ szSpace $ "Other substances than my thought?";
  39.  
  40.       szSetB = Chr(10) $ szSpace $
  41.              "Lives it by my sense alone,"$ Chr(10) $ szSpace $
  42.             "Or by essence of its own?";
  43.  
  44.       szSetC = Chr(10) $ szSpace $
  45.              "Will its life, with mine begun," $ Chr(10)
  46.              $ szSpace $ "Cease to be when that is done," $ Chr(10)
  47.              $ szSpace $ "Or another consciousness" $ Chr(10)
  48.              $ szSpace $ "With the self-same forms impress?" $ Chr(10);
  49.  
  50.       Log( szSetA $ szSetB$ szSetC);
  51.       return 0;
  52. }
  53.  
  54.  
  55. function int showTitle(){
  56.  
  57.       local string szTitle, szAuthor, szSpace;
  58.       szSpace = "   ";
  59.  
  60.       szTitle   = Chr(10) $ szSpace
  61.                           $ "Questionings" $ Chr(10);
  62.       szAuthor  = Chr(10) $ szSpace
  63.                           $ "Frederic Henry Hedge  1805-1890" $ Chr(10);
  64.  
  65.       Log( szTitle $ szAuthor);
  66.  
  67.       return 0;
  68. }
  69.  
  70.  
  71.