home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2004 September / GSSH0904CD1.iso / MedievalLords / MedievalLordsMaps.exe / 004400650073006500720074.scn / Desert_Cata.scp < prev    next >
Text File  |  2004-09-06  |  2KB  |  73 lines
  1. //-------------------------------------------------------
  2. //-------------------------------------------------------
  3. s32 TestCataIDesert()
  4. {
  5.     CataCallNext();
  6.  
  7.     s32 NbSec;
  8.     NbSec = Random(600) + 600;        // Random(x) + y  =  se lance toutes les y sec + entre 0 et x sec
  9.     f32 NbSecf;
  10.     NbSecf = NbSec;
  11.     NbSec = NbSecf / Diff_GetCataGlobalFrequencyFactor();
  12.  
  13.     ExecInFewSecNoBattle("TestCataIlots",NbSec);
  14. }
  15.  
  16. //-------------------------------------------------------
  17. //-------------------------------------------------------
  18. s32 DeclareCataDesert()
  19. {
  20.     CataBeginList();                // ATTENTION: l'ensemble des coΘfficients doivent faire 100
  21.  
  22.     CataAddFunc("CataFish",25);        //"FonctionCata", % de chance d'Ωtre lancΘ
  23.     CataAddFunc("CataWheat",20);
  24.     CataAddFunc("CataHealth",20);
  25.     CataAddFunc("CataKitchen",15);
  26.     CataAddFunc("CataHen",10);
  27.     CataAddFunc("CataPorc",10);
  28.  
  29.     CataEndList();
  30. }
  31.  
  32.  
  33.  
  34.  
  35. //-------------------------------------------------------
  36. //------- INFOS
  37. //-------------------------------------------------------
  38.  
  39. // Ne pas oublier d'appeler les .scp de Cata dans le Gameplay_X.spj
  40. // Ne pas oublier de faire les appels des fonctions dans StartGame du Gameplay_X.scp
  41.  
  42. // Il est possible de mettre des messages particuliers (sΦcheresse dans le dΘsert, etc ...) en faisant
  43. //
  44. // s32 DeclareCataIlots()
  45. // {
  46. //     CataAddFunc("CataWheatIlots",25);
  47. // }
  48. //
  49. // -------------------------------------------------------
  50. // s32 CataWheatIlots()
  51. // {
  52. //     StartCataWheat(50,1,180,"");
  53. //     MessageUserPause("CATA_BLE_ILOTS_DEBUT");  Attention clΘ de loc inexistante = exemple
  54. // }
  55.  
  56.  
  57. // Il est possible Θgalement de regrouper plusieurs catastrophes
  58. //
  59. // s32 DeclareCataIlots()
  60. // {
  61. //     CataAddFunc("CataMultiIlots",25);
  62. // }
  63. //
  64. // -------------------------------------------------------
  65. // s32 CataMultiIlots()
  66. // {
  67. //     StartCataWheat(50,1,180,"");
  68. //    StartCataKitchen(100,30,180,"CATA_POTAGER_FIN");
  69. //    StartCataHealth(50,15,90,"CATA_EPIDEMIE_FIN");
  70. //     MessageUserPause("CATA_MULTI_ILOTS_DEBUT"); Attention clΘ de loc inexistante = exemple
  71. // }
  72.  
  73.