home *** CD-ROM | disk | FTP | other *** search
/ UnrealScript Game Programming All in One / UnrealScriptGameProgrammingAllInOne.iso / UGPAIOListings / UGPAIOListingsCh10 / CH10LIST / Classes / CH10_06LIST.uc < prev    next >
Encoding:
Text File  |  2006-01-31  |  1.7 KB  |  68 lines
  1. // %PARAMETERS = "CH10LIST C:\UT2004"
  2. //Identifies the package
  3. //CH10_06LIST
  4.  
  5. class CH10_06LIST extends Commandlet;
  6. function int Main(string Args)
  7. {
  8.   //#1
  9.   local int iInteger;
  10.   local float rReal;
  11.   local byte fByte;
  12.   local string szStringNumber;
  13.   local string szStringWord;
  14.   local bool bBoolean;
  15.  
  16.   fByte = 23;
  17.   iInteger = 1001;
  18.   rReal = 123.45;
  19.   szStringNumber = "1001";
  20.   szStringWord = "Word";
  21.   bBoolean = true;
  22.  
  23.   log("*************");
  24.   log("CH10_06LIST Casting numbers and strings to integers ");
  25.   log(Chr(13) );
  26.  
  27.   //#2
  28.   //Casting numbers integers
  29.   // integer value of Boolean true
  30.   iInteger = int(bBoolean);
  31.   log("1. Integer value of bool true: " @ iInteger );
  32.  
  33.   bBoolean = false;
  34.   iInteger = int(bBoolean);
  35.   // integer value of Boolean true
  36.   log("2. Integer value of bool false: " @ iInteger );
  37.  
  38.   //Integer value of a byte
  39.   iInteger = int(fByte);
  40.   log("3. Byte value (23) cast to an integer:" @ iInteger );
  41.  
  42.    //Integer value of a rReal
  43.   iInteger = int(rReal);
  44.   log("4. Float value (123.45) cast to an integer:" @ iInteger );
  45.  
  46.   //#3
  47.    //Integer value of a rReal string "1001"
  48.   iInteger = int(szStringNumber);
  49.   log("5. String number (1001)  cast to an  integer :"  @ iInteger );
  50.  
  51.    //Integer value of letter b
  52.   iInteger = int("b");
  53.   log("6. String as letter cast to an  integer "
  54.                       $ Chr(34) $ "b" $ Chr(34)  @ iInteger );
  55.   //#4
  56.   //Results in zero--
  57.   iInteger = int(szStringWord);
  58.   log("7. Value of string - Hello:  cast to an  integer "
  59.                                                 @ iInteger );
  60.   // Generates error
  61.   //iInteger = int('b');
  62.   log("8. Character  cast to an  integer "
  63.                                    @ iInteger );
  64.   return 0;
  65. }
  66.  
  67.  
  68.