home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #6 / 1999 CD 6 (Red).iso / Strategy / warzone / disk1 / data1.cab / Program_Executable_Files / script / fastplay / s-demos.slo < prev    next >
Encoding:
Text File  |  1998-12-03  |  2.5 KB  |  91 lines
  1. /* Script file for s-demos (to start off world map) */
  2. /* Simply place transporter and show briefing */
  3.  
  4. /* General Values */
  5. public        int        player;
  6.  
  7. /* structure limit stuff */
  8. public    STRUCTURESTAT        factory, research, oilDerrick, powerGen;
  9. //public    STRUCTURESTAT        powerModuleHack;
  10. public    STRUCTURESTAT        command;
  11. public    INT            numPow, numExt, numFac, numRes;
  12.  
  13. /* Briefing stuff */
  14. public    INTMESSAGE        MissionBrief;
  15. public        INTMESSAGE        endMsg;
  16.  
  17. /* Win or lose */
  18. public        LEVEL        NextLev;
  19. public        TEMPLATE    transporter;
  20. public        SOUND        lostSnd;
  21. public        INT        timeLimit;
  22.  
  23. /* Landing Zone coords for Map to follow */
  24. public        INT        LZ_X1, LZ_Y1, LZ_X2, LZ_Y2;
  25. public        int        exitX, exitY;
  26.  
  27.  
  28. /* Triggers: Briefing */
  29. trigger vidEndTrig(CALL_VIDEO_QUIT);
  30. trigger gameLostTrig    (every, 20);
  31.  
  32. event nextLevEvnt;
  33.  
  34. event startEvnt(CALL_GAMEINIT)
  35. {
  36. //set scroll limits
  37.     setScrollParams(0, 0, 64, 64);            //limit scroll
  38.     centreViewPos(1088, 6592);            //centre near transport
  39.     addDroid(transporter, 704, 6976, player);        //place transporter!!!
  40.     setTransporterExit(player, exitX, exitY);
  41.  
  42. //set zoom Level 128x128
  43.     setRadarZoom(1);
  44. //stop player building on LZ
  45.     setLandingZone(4, 53, 6, 55);
  46. //set Mission time limit
  47.     setMissionTime(timeLimit);
  48. //allow to build stuff
  49.     setStructureLimits (powerGen,numPow,0);
  50.     setStructureLimits (oilDerrick,numExt,0);
  51.     setStructureLimits (research,numRes,0);
  52.     setStructureLimits (factory,numFac,0);
  53.     setStructureLimits(command, 1, player);
  54.     enableStructure(command, player);
  55.     enableStructure(powerGen,0);
  56.     enableStructure(oilDerrick,0);
  57.     enableStructure(research,0);
  58.     enableStructure(factory,0);
  59.     //enableStructure(powerModuleHack, 0);
  60. //give player briefing
  61.     //setEventTrigger(nextLevEvnt, vidEndTrig);    //flag next stuff after briefing over
  62.     addMessage(MissionBrief, MISS_MSG, 0, true);
  63.     setEventTrigger(startEvnt, inactive);
  64. }
  65.  
  66. event nextLevEvnt(CALL_LAUNCH_TRANSPORTER)        //click LAUNCH Button
  67. {
  68.     removeMessage(MissionBrief, MISS_MSG, 0);
  69.     setLandingZone(LZ_X1, LZ_Y1, LZ_X2, LZ_Y2);
  70.     startMission(OFF_KEEP, NextLev);
  71.     setEventTrigger(nextLevEvnt, inactive);
  72. }
  73.  
  74. event gameLost(inactive)
  75. {
  76.     addMessage(endMsg, MISS_MSG, 0, true);
  77.     gameOver(false);
  78.     setEventTrigger(gameLost, inactive);
  79. }
  80.  
  81. //out of time?
  82. event lostYetEvnt(CALL_MISSION_TIME)
  83. {
  84.     setEventTrigger(nextLevEvnt,inactive);
  85.     setEventTrigger(lostYetEvnt, inactive);
  86.     //playSound(lostSnd,0);
  87.     //pause(20);
  88.     //gameOver(false);
  89.     setEventTrigger(gameLost, gameLostTrig);    //waits 2 seconds before ending
  90.  
  91. }