home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 54 / ClassicFond54.iso / games / stars.rar / ted.vol / new.cs < prev    next >
Text File  |  1999-02-19  |  1KB  |  27 lines
  1. #browseBox "New" "Select a material list for the new file" Ted::matListName "Material lists" *.dml
  2. editBox "New" "Enter a material list name for the new file" Ted::matListName
  3. if test $dlgResult == [cancel]
  4.     return
  5. endif
  6.  
  7. editBox "New" "Enter a name for the file" Ted::currFile
  8. if test $dlgResult != [cancel]
  9.     edit2Box "New" "Enter the file dimensions (in blocks)" "blocks Wide" "blocks High" Ted::bW Ted::bH
  10.  
  11.     if test $dlgResult != [cancel]
  12.        edit2Box "New" "Enter a block dimension and groundscale" "Block dim" "Ground scale" Ted::bDim Ted::groundScale
  13.  
  14.        if test $dlgResult != [cancel]
  15.           Ted::newTedFile $Ted::currFile $Ted::groundScale $Ted::bW $Ted::bH $Ted::bDim $Ted::matListName
  16.  
  17.              editBox "New" "You may load a palette for this file" Ted::paletteFile
  18.           if test $dlgResult == [ok]
  19.                 newObject tedpal SimPalette $Ted::paletteFile
  20.           endif
  21.  
  22.           Ted::focus
  23.           setDetail $Ted::terrainName 3
  24.        endif
  25.     endif
  26. endif
  27.