home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Daventry / KQ / WORLD.CS < prev    next >
Encoding:
Text File  |  1998-12-15  |  2.8 KB  |  112 lines
  1. ##################################################
  2. #
  3. # Daventry load script
  4. #
  5. # DO NOT CHANGE THIS FILE!
  6. #
  7. # Add new objects to newWorld.cs
  8. #
  9. ##################################################
  10.  
  11.  
  12. if test $2 == Init
  13.     ##################################################
  14.     #
  15.     # Only set variables here
  16.     
  17.     set KQWorld::background 17
  18.     
  19.     # Maximum monsters awake at a time
  20.     set KQWorld::MaxMonsters 6
  21.     set KQWorld::WarnTooManyMonsters 1    
  22.  
  23.     # Terrain damage amounts
  24.     set KQWorld::FastPoisonTime 0
  25.     set KQWorld::PoisonTime 5
  26.       set KQWorld::SwampTime 5
  27.     
  28.     if test $KQGame::BitDepth == 8
  29.         set KQWorld::objectPalette daventry.ppl
  30.         set KQWorld::connorPalette daventry.ppl
  31.         set KQWorld::terrainPalette daventry.ppl
  32.         set KQWorld::interiorPalette daventry.ppl
  33.  
  34.         set KQWorld::loadingPalette daventry.ppl
  35.     else
  36.         set KQWorld::objectPalette daventry.ppl
  37.         set KQWorld::connorPalette daventry.ppl
  38.         set KQWorld::terrainPalette daventry.ppl
  39.         set KQWorld::interiorPalette daventry.ppl
  40.  
  41.         set KQWorld::loadingPalette daventry.ppl
  42.     endif
  43.     #
  44.     ##################################################
  45.         
  46.     
  47.     ##################################################
  48.     # The background:
  49.     
  50.     newSky $KQWorld::background
  51.     
  52.     # the starfield distance must be somewhere between the
  53.     # terrain's visible distance and the camera's far plane
  54.     #set SimStarField::starFieldDistance 16900
  55.     #set SimStarField::count 800
  56.     #newStars
  57.     
  58.     # no planet, yet
  59.     # the planet distance must be somewhere between the
  60.     # terrain's visible distance and the camera's far plane
  61.     # set SimSkyPlanet::planetDistance 16900
  62.     ##################################################
  63.     
  64.  
  65. else if test $2 == Load
  66.     
  67.     # load the objects
  68.     newWorld.cs
  69.  
  70.     #moved here from mask.cs [10-13 abc]. blackOut sets the display black
  71.     blackOut
  72.     KQGame::selectScreen 1
  73.  
  74.     # the loadPalette and resetHazeColor calls must appear together
  75.     loadPalette $KQWorld::loadingPalette 0
  76.     # resetHazeColor must appear AFTER the above loadPalette command
  77.     resetHazeColor 4 8 12
  78.     allowShadows 1
  79.  
  80. else if test $2 == Begin
  81.     echo "I'm LOADED!"    and Daventry::girlhut::FirstTime == $Daventry::girlhut::FirstTime
  82.    if test $Daventry::girlhut::FirstTime == 1
  83.        preloadShape c_dav1.kqs
  84.        preloadShape c_dav2.kqs
  85.        preloadShape c_dav3.kqs
  86.        preloadShape Ravnstp.kqs
  87.  
  88.        KQCamera::follow none
  89.        handsOff 1
  90.        move Connor 0 277744 199029 -1 0 0 1.57
  91.        move KQCamera 0 275026 197541 14930 -.2 0 -1.8
  92.        sendEvent 0 stngrl KQCueEvent 10 0
  93.        set Daventry::girlhut::FirstTime 0
  94.    #else
  95.    #   KQCamera::follow Connor
  96.    endif
  97.  
  98. else if test $2 == Die
  99.  
  100.     # Things should be added here if the world owns them,
  101.     # but they are not saved out by the persistManager.
  102.  
  103.     echo Unloading $KQWorld::Name
  104.  
  105.     #84 is the SimGroupId for SimSkyGroup
  106.     deleteObject 84
  107.  
  108. endif
  109. endif
  110. endif
  111. endif
  112.