home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2000 #2 / K-Games_2_2000.iso / aztec / Data / Game / Aztec.scp < prev    next >
Encoding:
Text File  |  1999-08-31  |  27.5 KB  |  1,396 lines
  1. // Script DΘmo jouable "complΦte"
  2.  
  3. // Modifications ok
  4.  
  5. [Ma0001]
  6.     // description warp: warp d'arrivΘe
  7.     :init
  8.     begin
  9.         // envoie HNM intro //     
  10.         // acte
  11.         set acte = 1
  12.  
  13.  
  14.         // Mettre objets dans inventaire ???? //
  15.         If not "sacacao1" in invent then
  16.             Set Invent = Invent + "Sacacao1"
  17.             // METTRE BOURSE CACAO α 25 //
  18.             set BourseCacao = 25
  19.             Set Hand = ""
  20.         Endif
  21.  
  22.         If not "sarbacane" in invent then
  23.             Set Invent = Invent + "Sarbacane"
  24.             Set Hand = ""
  25.         Endif
  26.  
  27.         If not "collier1" in invent then
  28.             Set Invent = Invent + "collier1"
  29.             Set Hand = ""
  30.         Endif
  31.  
  32.         minute 1
  33.  
  34.         // prΘsence garde 1
  35.         ShowSpw "garde1"
  36.         Disableclick "garde1"
  37.         // * Retour sur la carte INTERDIT* //
  38.         Disableclick "ZONE_CARTE" 
  39.     end            
  40.  
  41.     :loop
  42.     begin
  43.     end
  44.  
  45. [Ma0002]
  46.     // description warp: prΦs du pont, c⌠tΘ arrivΘe
  47.     :init
  48.     begin
  49.         // prΘsence garde 1
  50.         ShowSpw "garde1"
  51.         // Disableclick "garde1"
  52.     End
  53.  
  54.     :loop
  55.     begin
  56.         // Le joueur veut parler au garde
  57.         if acte = 1 and mouse_click = "garde1" then
  58.             // Il est peut-Ωtre dangereux de parler au garde
  59.             dialog "HRVO_112" off
  60.         endif
  61.  
  62.         // le joueur veut passer le pont Dial auto garde1 qui est soupconneux
  63.         if acte = 1 and warp_to = 7 then
  64.             if not SeqDial14 then
  65.                 // SeqDial 14
  66.                 dialog "G1014_01" 2 1
  67.                 Set SeqDial14 = 1
  68.                 Set Warp_to = 0
  69.  
  70.             ; Si le joueur insiste, Game Over Garde
  71.             else
  72.                 // Game Over "Garde"
  73.                 FMV "GoMa_1"
  74.                 Set Warp_to = 0
  75.                 FMV "Aztecfin"
  76.                 GameOver 
  77.             endif
  78.         endif
  79.     end
  80.  
  81.  
  82. [Ma0003]
  83.     // description warp: devant Calmecac
  84.     :init
  85.     begin
  86.         // prΘsence garde 1
  87.         ShowSpw "garde1"
  88.         Disableclick "garde1"
  89.     end
  90.     
  91.     :loop
  92.     begin
  93.     end
  94.  
  95. [Ma0004]
  96.     // description warp: devant maison poΦte
  97.     :init
  98.     begin
  99.         // spw d'ambiance
  100.         ShowSpw "MarchBoisMar"
  101.     end
  102.  
  103.     :loop
  104.     begin
  105.         ; le joueur a le collier et quitte le warp "disparition mangeur"
  106.         if "Collier2" in Invent then
  107.  
  108.             if warp_to = 31 or warp_to = 6 then
  109.                 Set HideMangeur = 1
  110.             Endif
  111.         Endif
  112.     end
  113.  
  114.  
  115. [Ma0005]
  116.     // description warp: devant entrΘe du marchΘ
  117.     :init
  118.     begin
  119.         music "Marche01" loop
  120.  
  121.         // spw d'ambiance
  122.         ShowSpw "MarchBoisMar"
  123.  
  124.         set Question_Marchand = 0
  125.         if acte = 1 and Dial7 = 0 then
  126.             set Question_Marchand = 1
  127.  
  128.         elif acte = 1 and IndiceTurquoise = 1 and not IndiceTurquoise2 then
  129.             set Question_Marchand = 1
  130.         endif
  131.     end
  132.  
  133.     :loop
  134.     begin
  135.         if Warp_To = 3 or Warp_To = 6 then
  136.             music Stop
  137.         endif
  138.     end
  139.  
  140.  
  141. [Ma0006]
  142.     // description warp: entre entrΘe marchΘ et entrΘe poΦte
  143.     :init
  144.     begin
  145.         set Question_Marchand = 0
  146.         if acte = 1 and Dial7 = 0 then
  147.             set Question_Marchand = 1
  148.  
  149.         elif acte = 1 and IndiceTurquoise = 1 and not IndiceTurquoise2 then
  150.             set Question_Marchand = 1
  151.         endif
  152.  
  153.         // PrΘsence globale marchand de bois
  154.         ShowSpw "MarchBoisMar" 2
  155.  
  156.         // Modulo pour rΘponse joueur dans dial achat
  157.         Set HRVO_achat = random % 4
  158.         set HasBuy = 0
  159.         set HasSold = 0
  160.         set LastRep = 0
  161.  
  162.         if EsclaveIndiceBijou then
  163.             set OizoSeCasse = 1
  164.         endif
  165.     end
  166.  
  167.     :loop
  168.     begin
  169.  
  170.         if not HrAchat and Hand = "" then
  171.             if Mouse_Click = "Zone_Bois" then
  172.                 set Mouse_Click = "MarchBoisMar"
  173.             endif
  174.         endif
  175.  
  176.         if HrAchat or HrVente then
  177.             if Time1 > 10 then
  178.                 Set hand = ""
  179.                 set Mouse_Click = "MarchBoisMar"
  180.             endif
  181.         endif
  182.  
  183.         if HrVente and Mouse_Click = "MarchBoisMar" and not Hand = "" then
  184.             Set Time1 = 0
  185.             if Hand = "Bois" then
  186.                 set invent = invent - "Bois"
  187.                 set HasSold = 1
  188.                 money BourseCacao 2
  189.                 set BourseCacao = BourseCacao + 2
  190.             endif
  191.  
  192.         elif Mouse_Click = "MarchBoisMar" then
  193.             Set HrAchat = 0
  194.             Set HrVente = 0
  195.             Set SayGoodbye = 0
  196.             set CantGetEnough = 0
  197.  
  198.             if LastRep then
  199.                 set LastRep = 0
  200.                 dialog "MM115_12" 2 1
  201.             else
  202.                 dialog "MM115_01" 2 1
  203.             endif
  204.  
  205.             if CantGetEnough = 1 then
  206.                 set CantGetEnough = 0
  207.                 Wait 1
  208.                 dialog "MM115_12" 2 1
  209.             endif
  210.  
  211.             if SayGoodbye then
  212.                 Dialog "MM115_11" 2 1
  213.             endif
  214.  
  215.             if HrAchat then
  216.                 //AutoMove "Zone_AutoZoomW2"
  217.                 Lock
  218.  
  219.                 DisableClick 4
  220.                 DisableClick 5
  221.  
  222.             elif HrVente then
  223.  
  224.                 //AutoMove "Zone_AutoZoomW2"
  225.                 Lock
  226.                 DisableClick 4
  227.                 DisableClick 5
  228.  
  229.             else
  230.                 EnableClick 4
  231.                 EnableClick 5
  232.                 Unlock
  233.             endif
  234.  
  235.             Set Time1 = 0
  236.  
  237.         elif HrAchat and hand = "" then
  238.             if Mouse_Click = "Zone_Bois" then
  239.                 Set Time1 = 0
  240.                 Set HRVO_achat = random % 4
  241.                 if "Bois" in invent then
  242.  
  243.                     // dialog "jen ai dΘja"
  244.                     if HRVO_achat < 2 then
  245.                         dialog "HRVO_125" off
  246.  
  247.                     else
  248.                         dialog "HRVO_126" off
  249.                     endif
  250.  
  251.                 elif BourseCacao < 2 then
  252.                     // dialog "j'ai pas assez de pognon"
  253.                     
  254.                     if HRVO_achat < 2 then
  255.                         dialog "HRVO_127" off 
  256.                     
  257.                     else
  258.                         dialog "HRVO_128" off 
  259.                     endif
  260.                 
  261.                 else
  262.                     // bourse
  263.                     money BourseCacao -2
  264.                     set BourseCacao = BourseCacao - 2
  265.                     set invent = invent + "Bois"
  266.                     set HasBuy = 1
  267.                 endif
  268.             endif
  269.         endif
  270.     end
  271.  
  272. [Ma0021]
  273. // description warp: premier warp chez poΦte
  274. :init
  275. begin
  276.     // music
  277.         if HideMangeur = 0 and dial7 then
  278.             music "confessi" loop
  279.         endif
  280.     
  281.         if IndiceTurquoise = 1 and "Bijou" in Invent and not BarquePoeteOk then
  282.             set VuTDMetGarde = 1
  283.             ShowSpw "GG"
  284.             DisableClick "GG"
  285.         endif
  286. end
  287.  
  288. :loop
  289. begin
  290.     ; si le joueur veut sortir directement "voix off" 
  291.  
  292.         if acte = 1 and IndiceTurquoise = 1 and "Bijou" in Invent and Voixoff6 = 0 and warp_to = 4 and not BarquePoeteOk then
  293.             // voix off  6 "je ferais mieux pas de sortir"
  294.             dialog "HRVO_006" off
  295.             Set VoixOff6 = 1
  296.             Set Warp_to = 0
  297.         endif
  298.  
  299.         ; Si le joueur sort si "TΩte de montagne" est devant la maison G.O.
  300.         if acte = 1 and VoixOff6 = 1 and warp_to = 4 then
  301.             // Game Over "TΩte de montagne"
  302.             FMV "GoPo_3"
  303.             FMV "Aztecfin"
  304.             GameOver 
  305.         endif
  306.  
  307.         // music
  308.         if warp_to = 4 then
  309.            music stop
  310.         endif
  311.     end
  312.  
  313.  
  314. [Ma0022]    
  315.     // description warp: deuxiΦme warp chez poΦte
  316.     :init
  317.     begin
  318.         if IndiceTurquoise = 1 and "Bijou" in Invent and not BarquePoeteOk then
  319.             ShowSpw "GG"
  320.             set VuTDMetGarde = 1
  321.         endif
  322.  
  323.         ; La natte est dΘplacΘ si le joueur l'a dΘplacΘe
  324.         If not PousseNatte then
  325.             ShowSpw "NattePoete"                
  326.         Else
  327.             ShowSpw "NattePoete2"
  328.  
  329.             ; On voit le bijou tant que le joueur ne l'a pas pris
  330.             If not HaveBijou then
  331.                 ShowSpw "Bijou"
  332.             Endif
  333.         Endif
  334.  
  335.         ; Mise en place Omni expert sur BarquePoeteOk
  336.         If not BarquePoeteOk and VoixOff6 then
  337.             Set AideBarquePoete = AideBarquePoete + 1
  338.         Endif
  339.  
  340.         ; Omni expert Barque poete niveau 1
  341.         If not BarquePoeteOk and AideBarquePoete >= 2 then
  342.             if AideBarquePoete = 2 then
  343.                 // Voix Off 8 "il doit y avoir un moyen de sortir"
  344.                 dialog "HRVO_008" off
  345.  
  346.             elif AideBarquePoete = 4 then
  347.                 set AideBarquePoete = 1
  348.             endif
  349.         endif
  350.     end
  351.  
  352.     :loop
  353.     begin
  354.         ; envoi cinΘmatique prΩtre mangeur d'ordure
  355.         if acte = 1 and not FMVConfess and Pretremangeur = 0 and warp_to = 23 then
  356.             //envoi cinΘmatique 4
  357.             automove 23
  358.             fmv "confess"
  359.             set FMVConfess = 1
  360.             // Set Pretremangeur = 1
  361.             // jump 23 -19 -50
  362.             jump 23 -19 0
  363.         endif
  364.  
  365.     end
  366.  
  367.  
  368. [Ma0023]    
  369.     // description warp: devant natte poΦte mort
  370.     :init
  371.     begin
  372.         // music
  373.         if HideMangeur = 0 then
  374.             music "confessi" loop
  375.         endif
  376.         
  377.         ; le prΩtre mangeur est lα tant que le joueur n'a pas le collier2
  378. //        if not "Collier2" in Invent and not HideMangeur then
  379.         if not HideMangeur then
  380.             ShowSpw "Mangeur" 2
  381.         endif
  382.  
  383.         ; Le poΦte mort est lα pendant l'acte 1 plus aprΦs
  384.         If acte = 1 then
  385.             ShowSpw "PoeteMort" back
  386.             Disableclick "PoeteMort"
  387.             if not Dial7 then
  388.                 DisableInfo "PoeteMort"
  389.             endif
  390.         endif
  391.  
  392.         ; La natte est dΘplacΘ si le joueur l'a dΘplacΘe
  393.         If not PousseNatte then
  394.             ShowSpw "NattePoete"
  395.         Else
  396.             ShowSpw "NattePoete2"
  397.             Disableclick "NattePoete2"
  398.  
  399.             ; On voit le bijou tant que le joueur ne l'a pas pris
  400.             If not HaveBijou then
  401.                 ShowSpw "Bijou"
  402.             Endif
  403.         endif
  404.  
  405.         ; le parchemin ensanglantΘ est visible tant que le joueur ne l'a pas pris
  406.         If not HaveParcheEnsang then
  407.             ShowSpw "ParcheminSang"
  408.         endif
  409.  
  410.         ; Omni expert sur Barquepoete niveau 2
  411.         If BarquePoeteOk = 0 and AideBarquePoete >= 4 then
  412.             // Voix Off 9
  413.             dialog "HRVO_009" off
  414.         endif    
  415.  
  416.         if EsclaveIndiceBijou then
  417.             set OizoSeCasse = 1
  418.         endif
  419.  
  420.         // if fmvconfess and not HideMangeur then
  421.         //    automove "Mangeur"
  422.         //    set fmvconfess = 0
  423.         // endif
  424.     end
  425.  
  426.     :loop
  427.     begin
  428.         ; seqdial 7 aprΦs Hnm prΩtre mangeur d'ordure
  429.         if mouse_click = "Mangeur" and acte = 1 and not HideMangeur then
  430.             If not "Collier2" in Invent then
  431.                 If not Dial7 then
  432.                     Dialog "P1007_01" "Mangeur" 2 1
  433.  
  434.                     EnableInfo "PoeteMort"
  435.  
  436.                     if not payemangeur and boursecacao < 5 then
  437.                         dialog "HRVO_116" off
  438.                     endif
  439.                 
  440.                 Elif not PayeMangeur then
  441.                     Dialog "P1008_01" "Mangeur" 2 1
  442.                 endif
  443.  
  444.                 if PayeMangeur then
  445.                     Money BourseCacao -5
  446.                     set BourseCacao = BourseCacao - 5
  447.                 endif
  448.             
  449.             else
  450.                 If not dial36 then
  451.                     Dialog "P1036_01" "Mangeur" 2 1
  452.                 
  453.                 else
  454.                     // Voix off 33
  455.                     dialog "HRVO_033" off
  456.                 Endif
  457.             Endif
  458.         Endif
  459.  
  460.         ; le joueur clique sur la natte la natte se dΘplace
  461.         if mouse_click = "nattePoete" then
  462.             // Bruitage 11
  463.             Sound "11_natte"
  464.             set PousseNatte = 1
  465.             ShowSpw "NattePoete2"
  466.             Disableclick "NattePoete2"
  467.             HideSpw  "NattePoete"
  468.             ShowSpw "Bijou"
  469.         Endif
  470.  
  471.  
  472.         ; le joueur prend le bijou
  473.         If mouse_click = "Bijou" then
  474.             Set HaveBijou = 1
  475.             HideSpw "Bijou"
  476.             Set Invent =Invent + "Bijou"
  477.         Endif
  478.  
  479.         ; Si le joueur n'a pas payΘ le Mangeur et qu'il prend le Bijou Game over "TΩte de montagne"
  480.         If not PayeMangeur and "Bijou" in Invent then
  481.             // Game Over "TΩte de Montagne"
  482.             FMV "GoPo_3"
  483.             FMV "Aztecfin"
  484.             GameOver 
  485.         endif
  486.  
  487.         ; le joueur a le collier et quitte le warp "disparition mangeur"
  488.         if "Collier2" in Invent then
  489.             if warp_to = 24 then
  490.                 Set HideMangeur = 1
  491.             Endif
  492.         Endif
  493.     end
  494.  
  495.  
  496. [Ma0024]    
  497.     // description warp: PoΦte entre maison et cour 
  498.     :init
  499.     begin
  500.         ; PrΘsence du prΩtre
  501.         if not HideMangeur then
  502.             ShowSpw "Mangeur"
  503.         endif
  504.  
  505.         ; La natte est dΘplacΘ si le joueur l'a dΘplacΘe
  506.         If not PousseNatte then
  507.             ShowSpw "NattePoete"
  508.         Else
  509.             ShowSpw "NattePoete2"
  510.         Endif
  511.  
  512.         ; Le poΦte mort est lα pendant l'acte 1 plus aprΦs
  513.         If acte = 1 then
  514.             ShowSpw "PoeteMort" back
  515.         endif
  516.  
  517.         ; On voit le bijou tant que le joueur ne l'a pas pris
  518.         If PousseNatte and not HaveBijou then
  519.             ShowSpw "Bijou"
  520.         Endif
  521.  
  522.         ; le parchemin ensanglantΘ est visible tant que le joueur ne l'a pas pris
  523.         If not HaveParcheEnsang then
  524.             ShowSpw "ParcheminSang"
  525.         endif
  526.  
  527.         ; Sprite de barque passent si bijou et indice turquoise
  528.         if IndiceTurquoise and "Bijou" in Invent and not BarquePoeteOk then
  529.             // ShowSpw "BarquePoete"
  530.             // animation des barques??
  531.             set Time2= 0
  532.             set BarquePoeteTime= RANDOM % 5 + 3
  533.             set BarquePoeteShow= 1
  534.         else
  535.             set BarquePoeteShow= 0
  536.         endif
  537.     end
  538.  
  539.     :loop
  540.     begin
  541.         ; anim barque
  542.         if BarquePoeteShow and Time2 > BarquePoeteTime then
  543.             ShowSpw "BarquePoete" once
  544.             sound "35_passa"
  545.             set Time2= 0
  546.             set BarquePoeteTime= RANDOM % 5 + 10
  547.         endif
  548.  
  549.         ; le joueur prend le parchemin ensanglantΘ
  550.         if mouse_click = "ParcheminSang" then
  551.             // Bruitage 12
  552.             Sound "12_Parch"
  553.             minute 4
  554.             Set Invent = Invent + "ParcheminSang"
  555.             Set HaveParcheEnsang =1
  556.             HideSpw "ParcheminSang"
  557.         endif
  558.  
  559.         ; Si pas payΘ le Mangeur et prend le ParcheminSang, Game over "TΩte de montagne"
  560.         
  561.         If not PayeMangeur and "ParcheminSang" in Invent then
  562.             // Game Over "TΩte de Montagne"
  563.             FMV "GoPo_3"
  564.             FMV "Aztecfin"
  565.             GameOver
  566.         endif
  567.  
  568.         // music
  569.         if warp_to = 25 then
  570.            music stop
  571.         endif
  572.     end
  573.  
  574.  
  575. [Ma0025]
  576. // description warp: cour poΦte devant canal
  577. :init
  578. begin
  579.         DisableClick "12"
  580.  
  581.     // Sprite de barque passent si bijou et indice turquoise
  582.         if IndiceTurquoise and "Bijou" in Invent and not BarquePoeteOk then
  583.             // ShowSpw "BarquePoete"
  584.             // Bruitage α chaque fois qu'une barque passe Bruitage 35
  585.             // animation des barques??
  586.             set Time2= 0
  587.             set BarquePoeteTime= RANDOM % 5 + 3
  588.             set BarquePoeteShow= 1
  589.         else
  590.             set BarquePoeteShow= 0
  591.         endif
  592.  
  593.     // le parchemin ensanglantΘ est visible tant que le joueur ne l'a pas pris
  594.         If not HaveParcheEnsang then
  595.             ShowSpw "ParcheminSang"
  596.         endif
  597. end
  598.  
  599. :loop
  600. begin
  601.         ; anim barque
  602.         if BarquePoeteShow and Time2 > BarquePoeteTime then
  603.             ShowSpw "BarquePoete" once
  604.             sound "35_passa"
  605.             set Time2= 0
  606.             set BarquePoeteTime= RANDOM % 5 + 10
  607.         endif
  608.  
  609.     ; sΘquence des barques qui passent
  610.         if acte = 1 and mouse_click = "BarquePoete" then
  611.             set VoixOff6 = 0
  612.             Set BarquePoeteOk = 1
  613.             // envoi Hnm 5 :passage saut sur la barque
  614.             FMV "Trans1"
  615.             FMV "Aztecfin"
  616.             Gameover 1
  617.         endif
  618.             // **** Fin de la dΘmo ****///
  619.             
  620.         if "Collier2" in Invent then
  621.             Set HideMangeur = 1
  622.         endif
  623. end
  624.  
  625.  
  626. [Ma0026]
  627.     // description warp: Cour poΦte vers auvent esclave
  628.     :init
  629.     begin
  630.         // prΘsence Globale esclavePoete
  631.         if acte = 1  and not BarquePoeteOk then
  632.             ShowSpw "esclavePoete" 2
  633.         endif
  634.     end
  635.  
  636.     :loop
  637.     begin
  638.         ; SΘquences dial avec esclave
  639.         If mouse_click = "esclavePoete" then
  640.             If not IndiceTurquoise then
  641.                 // Seq dial 9
  642.                 Dialog "H4009_99" 2 1
  643.                 Dialog "H4009_03" 2 1
  644.                 Set IndiceTurquoise = 1
  645.                 Set acces_quartier = 1
  646.                 minute 5
  647.             
  648.             else
  649.                 If not VuTDMetGarde then
  650.                     // Voix off 26
  651.                     dialog "HRVO_026" off    
  652.                 else
  653.                     if not Dial10 then
  654.                         // SeqDial 10
  655.                         dialog "HR010_01" 2 1
  656.                         Set dial10 = 1
  657.                     
  658.                     else
  659.                         // voix off 23
  660.                         dialog "HRVO_023" off
  661.                     endif
  662.                 Endif
  663.             Endif
  664.         Endif
  665.     end
  666.  
  667.  
  668. [MA0027]
  669.     // description warp: marchΘ
  670.     :init
  671.     begin
  672.         showspw "EsclavePoete"
  673.         DisableClick "EsclavePoete"
  674.         ShowSpw "Mere"
  675.         ShowSpw "Noble_PM"
  676.         ShowSpw "Pecheur"
  677.         ShowSpw "W2" 2
  678.         ShowSpw "W3"
  679.         ShowSpw "W4"
  680.         ShowSpw "W5"
  681.         DisableClick "Zone_AutoZoomW2"
  682.  
  683.         // Modulo pour rΘponse joueur dans dial achat
  684.         Set HRVO_achat = random % 4
  685.         set HasBuy = 0
  686.         set HasSold = 0
  687.         set LastRep = 0
  688.     end
  689.  
  690.     :loop
  691.     begin
  692.         if not HrAchat and Hand = "" then
  693.             if Mouse_Click = "Zone_Bleu_Clair" or Mouse_Click = "Zone_Jaune" then
  694.                 set Mouse_Click = "W2"
  695.             endif
  696.         endif
  697.  
  698.         if HrAchat or HrVente then
  699.             if Time1 > 10 then
  700.                 Set hand = ""
  701.                 set Mouse_Click = "W2"
  702.             endif
  703.         endif
  704.  
  705.         if HrVente and Mouse_Click = "W2" and not Hand = "" then
  706.             Set Time1 = 0
  707.             if Hand = "Colo_Bleu_Clair" then
  708.                 set invent = invent - "colo_bleu_clair"
  709.                 set HasSold = 1
  710.                 money BourseCacao 3
  711.                 set BourseCacao = BourseCacao + 3
  712.             
  713.             elif Hand = "colo_jaune" then
  714.                 set invent = invent - "colo_jaune"
  715.                 set HasSold = 1
  716.                 money BourseCacao 3
  717.                 set BourseCacao = BourseCacao + 3
  718.             endif
  719.  
  720.         elif Mouse_Click = "W2" then
  721.             Set HrAchat = 0
  722.             Set HrVente = 0
  723.             Set SayGoodbye = 0
  724.             Set CantGetEnough = 0
  725.  
  726.             if LastRep then
  727.                 set LastRep = 0
  728.                 dialog "W2192_12" 2 1
  729.             else
  730.                 dialog "W2192_01" 2 1
  731.             endif
  732.  
  733.             if CantGetEnough = 1 then
  734.                 set CantGetEnough = 0
  735.                 Wait 1
  736.                 dialog "W2192_12" 2 1
  737.             endif
  738.  
  739.             if SayGoodbye then
  740.                 Dialog "W2192_11" 2 1
  741.             endif
  742.  
  743.             if HrAchat then
  744.                 AutoMove "Zone_AutoZoomW2"
  745.                 Lock
  746.  
  747.                 DisableClick 5
  748.                 DisableClick 28
  749.                 DisableClick 29
  750.                 DisableClick 30
  751.  
  752.             elif HrVente then
  753.  
  754.                 AutoMove "Zone_AutoZoomW2"
  755.                 Lock
  756.                 DisableClick 5
  757.                 DisableClick 28
  758.                 DisableClick 29
  759.                 DisableClick 30
  760.  
  761.             else
  762.                 EnableClick 5
  763.                 EnableClick 28
  764.                 EnableClick 29
  765.                 EnableClick 30
  766.                 Unlock
  767.             endif
  768.  
  769.             Set Time1 = 0
  770.  
  771.         elif HrAchat and hand = "" then
  772.             if Mouse_Click = "Zone_Bleu_Clair" then
  773.                 Set Time1 = 0
  774.                 Set HRVO_achat = random % 4
  775.                 if "Colo_Bleu_Clair" in invent then
  776.  
  777.                     // dialog "jen ai dΘja"
  778.                     if HRVO_achat < 2 then
  779.                         dialog "HRVO_125" off
  780.  
  781.                     else
  782.                         dialog "HRVO_126" off
  783.                     endif
  784.  
  785.                 elif BourseCacao < 3 then
  786.                     // dialog "j'ai pas assez de pognon"
  787.                     
  788.                     if HRVO_achat < 2 then
  789.                         dialog "HRVO_127" off 
  790.                     
  791.                     else
  792.                         dialog "HRVO_128" off 
  793.                     endif
  794.                 
  795.                 else
  796.                     // bourse
  797.                     money BourseCacao -3
  798.                     set BourseCacao = BourseCacao - 3
  799.                     set invent = invent + "colo_bleu_clair"
  800.                     set HasBuy = 1
  801.                 endif
  802.             
  803.             elif Mouse_Click = "Zone_Jaune" then
  804.                 Set Time1 = 0
  805.                 Set HRVO_achat = random % 4
  806.                 if "Colo_Jaune" in invent then
  807.  
  808.                     // dialog "jen ai dΘja"
  809.                     if HRVO_achat < 2 then
  810.                         dialog "HRVO_125" off
  811.  
  812.                     else
  813.                         dialog "HRVO_126" off
  814.                     endif
  815.  
  816.                 elif BourseCacao < 3 then
  817.                     // dialog "j'ai pas assez de pognon"
  818.                     
  819.                     if HRVO_achat <2 then
  820.                         dialog "HRVO_127" off 
  821.                     
  822.                     else
  823.                         dialog "HRVO_128" off 
  824.                     endif
  825.                 
  826.                 else
  827.                     // bourse
  828.                     money BourseCacao -3
  829.                     set BourseCacao = BourseCacao - 3
  830.                     set invent = invent + "colo_jaune"
  831.                     set HasBuy = 1
  832.                 endif
  833.             endif
  834.         endif
  835.     end
  836.  
  837.  
  838. [Ma0028]    
  839.     // description warp: marchΘ devant Θtal au nord
  840.     :init
  841.     begin
  842.         ShowSpw "EsclavePoete"
  843.         ShowSpw "W2"
  844.         ShowSpw "Mere"
  845.         ShowSpw "Noble_PM"
  846.         ShowSpw "Pecheur"
  847.         ShowSpw "W3" 2
  848.         ShowSpw "W4"
  849.         ShowSpw "W5"
  850.         DisableClick "Mere"
  851.         DisableClick "Noble_PM"
  852.         DisableClick "Zone_AutoZoomW3"
  853.  
  854.         // Modulo pour rΘponse joueur dans dial achat
  855.         Set HRVO_achat = random % 4
  856.         set HasBuy = 0
  857.         set HasSold = 0
  858.         set LastRep = 0
  859.     end
  860.  
  861.     :loop
  862.     begin
  863.         if not HrAchat and Hand = "" then
  864.             if Mouse_Click = "Zone_Coton" or Mouse_Click = "Zone_Corn" then
  865.                 set Mouse_Click = "W3"
  866.             endif
  867.         endif
  868.  
  869.         if HrAchat or HrVente then
  870.             if Time1 > 10 then
  871.                 Set hand = ""
  872.                 set Mouse_Click = "W3"
  873.             endif
  874.         endif
  875.  
  876.         if HrVente and Mouse_Click = "W3" and not Hand = "" then
  877.             Set Time1 = 0
  878.             if Hand = "Coton" then
  879.                 set invent = invent - "Coton"
  880.                 set HasSold = 1
  881.                 money BourseCacao 5
  882.                 set BourseCacao = BourseCacao + 5
  883.             
  884.             elif Hand = "Corn" then
  885.                 set invent = invent - "Corn"
  886.                 set HasSold = 1
  887.                 money BourseCacao 2
  888.                 set BourseCacao = BourseCacao + 2
  889.             endif
  890.  
  891.         elif Mouse_Click = "W3" then
  892.             Set HrAchat = 0
  893.             Set HrVente = 0
  894.             Set SayGoodbye = 0
  895.             Set CantGetEnough = 0
  896.  
  897.             if LastRep then
  898.                 set LastRep = 0
  899.                 dialog "W3193_12" 2 1
  900.             else
  901.                 dialog "W3193_01" 2 1
  902.             endif
  903.  
  904.             if CantGetEnough = 1 then
  905.                 set CantGetEnough = 0
  906.                 Wait 1
  907.                 dialog "W3193_12" 2 1
  908.             endif
  909.  
  910.             if SayGoodbye then
  911.                 Dialog "W3193_11" 2 1
  912.             endif
  913.  
  914.             if HrAchat then
  915.                 AutoMove "Zone_AutoZoomW3"
  916.                 Lock
  917.  
  918.                 DisableClick 5
  919.                 DisableClick 27
  920.                 DisableClick 29
  921.                 DisableClick 30
  922.  
  923.             elif HrVente then
  924.  
  925.                 AutoMove "Zone_AutoZoomW3"
  926.                 Lock
  927.                 DisableClick 5
  928.                 DisableClick 27
  929.                 DisableClick 29
  930.                 DisableClick 30
  931.  
  932.             else
  933.                 EnableClick 5
  934.                 EnableClick 27
  935.                 EnableClick 29
  936.                 EnableClick 30
  937.                 Unlock
  938.             endif
  939.  
  940.             Set Time1 = 0
  941.  
  942.         elif HrAchat and hand = "" then
  943.             if Mouse_Click = "Zone_Coton" then
  944.                 Set Time1 = 0
  945.                 Set HRVO_achat = random % 4
  946.                 if "Coton" in invent then
  947.  
  948.                     // dialog "jen ai dΘja"
  949.                     if HRVO_achat < 2 then
  950.                         dialog "HRVO_125" off
  951.  
  952.                     else
  953.                         dialog "HRVO_126" off
  954.                     endif
  955.  
  956.                 elif BourseCacao < 5 then
  957.                     // dialog "j'ai pas assez de pognon"
  958.                     
  959.                     if HRVO_achat < 2 then
  960.                         dialog "HRVO_127" off 
  961.                     
  962.                     else
  963.                         dialog "HRVO_128" off 
  964.                     endif
  965.                 
  966.                 else
  967.                     // bourse
  968.                     money BourseCacao -5
  969.                     set BourseCacao = BourseCacao - 5
  970.                     set invent = invent + "Coton"
  971.                     set HasBuy = 1
  972.                 endif
  973.             
  974.             elif Mouse_Click = "Zone_Corn" then
  975.                 Set Time1 = 0
  976.                 Set HRVO_achat = random % 4
  977.                 if "Corn" in invent then
  978.  
  979.                     // dialog "jen ai dΘja"
  980.                     if HRVO_achat < 2 then
  981.                         dialog "HRVO_125" off
  982.  
  983.                     else
  984.                         dialog "HRVO_126" off
  985.                     endif
  986.  
  987.                 elif BourseCacao < 2 then
  988.                     // dialog "j'ai pas assez de pognon"
  989.                     
  990.                     if HRVO_achat < 2 then
  991.                         dialog "HRVO_127" off 
  992.                     
  993.                     else
  994.                         dialog "HRVO_128" off 
  995.                     endif
  996.                 
  997.                 else
  998.                     // bourse
  999.                     money BourseCacao -2
  1000.                     set BourseCacao = BourseCacao - 2
  1001.                     set invent = invent + "Corn"
  1002.                     set HasBuy = 1
  1003.                 endif
  1004.             endif
  1005.         endif
  1006.     end
  1007.  
  1008. [Ma0029]    
  1009.     // description warp: marchΘ devant Θtal au sud
  1010.     :init
  1011.     begin
  1012.         ShowSpw "EsclavePoete"
  1013.         ShowSpw "W2"
  1014.         ShowSpw "Mere"
  1015.         DisableClick "Mere"
  1016.         ShowSpw "Noble_PM"
  1017.         ShowSpw "W3"
  1018.         ShowSpw "W5" 2
  1019.         ShowSpw "Pecheur"
  1020.  
  1021.         // Modulo pour rΘponse joueur dans dial achat
  1022.         Set HRVO_achat = random % 4
  1023.         set HasBuy = 0
  1024.         set HasSold = 0
  1025.         set LastRep = 0
  1026.     end
  1027.  
  1028.     :loop
  1029.     begin
  1030.         if not HrAchat and Hand = "" then
  1031.             if Mouse_Click = "Zone_Perle" or Mouse_Click = "Zone_Octli" then
  1032.                 set Mouse_Click = "W5"
  1033.             endif
  1034.         endif
  1035.  
  1036.         if HrAchat or HrVente then
  1037.             if Time1 > 10 then
  1038.                 Set hand = ""
  1039.                 set Mouse_Click = "W5"
  1040.             endif
  1041.         endif
  1042.  
  1043.         if HrVente and Mouse_Click = "W5" and not Hand = "" then
  1044.             Set Time1 = 0
  1045.             if Hand = "Perle_Jade" then
  1046.                 set invent = invent - "Perle_Jade"
  1047.                 set HasSold = 1
  1048.                 money BourseCacao 10
  1049.                 set BourseCacao = BourseCacao + 10
  1050.             
  1051.             elif Hand = "Octli" then
  1052.                 set invent = invent - "Octli"
  1053.                 set HasSold = 1
  1054.                 money BourseCacao 5
  1055.                 set BourseCacao = BourseCacao + 5
  1056.             endif
  1057.  
  1058.         elif Mouse_Click = "W5" then
  1059.             Set HrAchat = 0
  1060.             Set HrVente = 0
  1061.             Set SayGoodbye = 0
  1062.             Set CantGetEnough = 0
  1063.  
  1064.             if LastRep then
  1065.                 set LastRep = 0
  1066.                 dialog "W5195_12" 2 1
  1067.             else
  1068.                 dialog "W5195_01" 2 1
  1069.             endif
  1070.  
  1071.             if CantGetEnough = 1 then
  1072.                 set CantGetEnough = 0
  1073.                 Wait 1
  1074.                 dialog "W5195_12" 2 1
  1075.             endif
  1076.  
  1077.             if SayGoodbye then
  1078.                 Dialog "W5195_11" 2 1
  1079.             endif
  1080.  
  1081.             if HrAchat then
  1082.                 AutoMove "Zone_Perle"
  1083.  
  1084.                 DisableClick 27
  1085.                 DisableClick 28
  1086.                 DisableClick 30
  1087.  
  1088.             elif HrVente then
  1089.  
  1090.                 DisableClick 27
  1091.                 DisableClick 28
  1092.                 DisableClick 30
  1093.  
  1094.             else
  1095.                 EnableClick 27
  1096.                 EnableClick 28
  1097.                 EnableClick 30
  1098.             endif
  1099.  
  1100.             Set Time1 = 0
  1101.  
  1102.         elif HrAchat and hand = "" then
  1103.             if Mouse_Click = "Zone_Perle" then
  1104.                 Set Time1 = 0
  1105.                 Set HRVO_achat = random % 4
  1106.                 if "Perle_Jade" in invent then
  1107.  
  1108.                     // dialog "jen ai dΘja"
  1109.                     if HRVO_achat < 2 then
  1110.                         dialog "HRVO_125" off
  1111.  
  1112.                     else
  1113.                         dialog "HRVO_126" off
  1114.                     endif
  1115.  
  1116.                 elif BourseCacao < 10 then
  1117.                     // dialog "j'ai pas assez de pognon"
  1118.                     
  1119.                     if HRVO_achat < 2 then
  1120.                         dialog "HRVO_127" off 
  1121.                     
  1122.                     else
  1123.                         dialog "HRVO_128" off 
  1124.                     endif
  1125.                 
  1126.                 else
  1127.                     // bourse
  1128.                     money BourseCacao -10
  1129.                     set BourseCacao = BourseCacao - 10
  1130.                     set invent = invent + "Perle_Jade"
  1131.                     set HasBuy = 1
  1132.                 endif
  1133.             
  1134.             elif Mouse_Click = "Zone_Octli" then
  1135.                 Set Time1 = 0
  1136.                 Set HRVO_achat = random % 4
  1137.                 if "Octli" in invent then
  1138.  
  1139.                     // dialog "jen ai dΘja"
  1140.                     if HRVO_achat < 2 then
  1141.                         dialog "HRVO_125" off
  1142.  
  1143.                     else
  1144.                         dialog "HRVO_126" off
  1145.                     endif
  1146.  
  1147.                 elif BourseCacao < 3 then
  1148.                     // dialog "j'ai pas assez de pognon"
  1149.                     
  1150.                     if HRVO_achat <2 then
  1151.                         dialog "HRVO_127" off 
  1152.                     
  1153.                     else
  1154.                         dialog "HRVO_128" off 
  1155.                     endif
  1156.                 
  1157.                 else
  1158.                     // bourse
  1159.                     money BourseCacao -5
  1160.                     set BourseCacao = BourseCacao - 5
  1161.                     set invent = invent + "Octli"
  1162.                     set HasBuy = 1
  1163.                 endif
  1164.             endif
  1165.         endif
  1166.     end
  1167.  
  1168. [Ma0030]    
  1169.     // description warp: marchΘ devant Θtal au fond
  1170.     :init
  1171.     begin
  1172.         ShowSpw "Mere"
  1173.         ShowSpw "Noble_PM"
  1174.         ShowSpw "Pecheur"
  1175.         ShowSpw "W2"
  1176.         ShowSpw "W3"
  1177.         ShowSpw "W4" 2
  1178.         DisableClick "Pecheur"
  1179.         DisableClick "Zone_AutoZoomW4"
  1180.  
  1181.         // Modulo pour rΘponse joueur dans dial achat
  1182.         Set HRVO_achat = random % 4
  1183.         set HasBuy = 0
  1184.         set HasSold = 0
  1185.         set LastRep = 0
  1186.     end
  1187.  
  1188.     :loop
  1189.     begin
  1190.         if not HrAchat and Hand = "" then
  1191.             if Mouse_Click = "Zone_Bleu_Fonce" or Mouse_Click = "Zone_Noir" or Mouse_Click = "Zone_Rouge" then
  1192.                 set Mouse_Click = "W4"
  1193.             endif
  1194.         endif
  1195.  
  1196.         if HrAchat or HrVente then
  1197.             if Time1 > 10 then
  1198.                 Set hand = ""
  1199.                 set Mouse_Click = "W4"
  1200.             endif
  1201.         endif
  1202.  
  1203.         if HrVente and Mouse_Click = "W4" and not Hand = "" then
  1204.             Set Time1 = 0
  1205.             if Hand = "Colo_Bleu_Fonce" then
  1206.                 set invent = invent - "colo_bleu_fonce"
  1207.                 set HasSold = 1
  1208.                 money BourseCacao 3
  1209.                 set BourseCacao = BourseCacao + 3
  1210.  
  1211.             elif Hand = "colo_noir" then
  1212.                 set invent = invent - "colo_noir"
  1213.                 set HasSold = 1
  1214.                 money BourseCacao 3
  1215.                 set BourseCacao = BourseCacao + 3
  1216.  
  1217.             elif Hand = "colo_rouge" then
  1218.                 set invent = invent - "colo_rouge"
  1219.                 set HasSold = 1
  1220.                 money BourseCacao 3
  1221.                 set BourseCacao = BourseCacao + 3
  1222.             endif
  1223.  
  1224.         elif Mouse_Click = "W4" then
  1225.             Set HrAchat = 0
  1226.             Set HrVente = 0
  1227.             Set SayGoodbye = 0
  1228.             Set CantGetEnough = 0
  1229.  
  1230.             if LastRep then
  1231.                 set LastRep = 0
  1232.                 dialog "W4194_12" 2 1
  1233.             else
  1234.                 dialog "W4194_01" 2 1
  1235.             endif
  1236.  
  1237.             if CantGetEnough = 1 then
  1238.                 set CantGetEnough = 0
  1239.                 Wait 1
  1240.                 dialog "W4194_12" 2 1
  1241.             endif
  1242.  
  1243.             if SayGoodbye then
  1244.                 Dialog "W4194_11" 2 1
  1245.             endif
  1246.  
  1247.             if HrAchat then
  1248.                 AutoMove "Zone_AutoZoomW4"
  1249.                 Lock
  1250.  
  1251.                 DisableClick 27
  1252.                 DisableClick 28
  1253.                 DisableClick 29
  1254.  
  1255.             elif HrVente then
  1256.  
  1257.                 AutoMove "Zone_AutoZoomW4"
  1258.                 Lock
  1259.                 DisableClick 27
  1260.                 DisableClick 28
  1261.                 DisableClick 29
  1262.  
  1263.             else
  1264.                 EnableClick 27
  1265.                 EnableClick 28
  1266.                 EnableClick 29
  1267.                 Unlock
  1268.             endif
  1269.  
  1270.             Set Time1 = 0
  1271.  
  1272.         elif HrAchat and hand = "" then
  1273.             if Mouse_Click = "Zone_Bleu_Fonce" then
  1274.                 Set Time1 = 0
  1275.                 Set HRVO_achat = random % 4
  1276.                 if "Colo_Bleu_Fonce" in invent then
  1277.  
  1278.                     // dialog "jen ai dΘja"
  1279.                     if HRVO_achat < 2 then
  1280.                         dialog "HRVO_125" off
  1281.  
  1282.                     else
  1283.                         dialog "HRVO_126" off
  1284.                     endif
  1285.  
  1286.                 elif BourseCacao < 3 then
  1287.                     // dialog "j'ai pas assez de pognon"
  1288.                     
  1289.                     if HRVO_achat < 2 then
  1290.                         dialog "HRVO_127" off 
  1291.                     
  1292.                     else
  1293.                         dialog "HRVO_128" off 
  1294.                     endif
  1295.                 
  1296.                 else
  1297.                     // bourse
  1298.                     money BourseCacao -3
  1299.                     set BourseCacao = BourseCacao - 3
  1300.                     set invent = invent + "colo_bleu_fonce"
  1301.                     set HasBuy = 1
  1302.                 endif
  1303.  
  1304.             elif Mouse_Click = "Zone_Noir" then
  1305.                 Set Time1 = 0
  1306.                 Set HRVO_achat = random % 4
  1307.                 if "Colo_Noir" in invent then
  1308.  
  1309.                     // dialog "jen ai dΘja"
  1310.                     if HRVO_achat < 2 then
  1311.                         dialog "HRVO_125" off
  1312.  
  1313.                     else
  1314.                         dialog "HRVO_126" off
  1315.                     endif
  1316.  
  1317.                 elif BourseCacao < 3 then
  1318.                     // dialog "j'ai pas assez de pognon"
  1319.                     
  1320.                     if HRVO_achat < 2 then
  1321.                         dialog "HRVO_127" off 
  1322.                     
  1323.                     else
  1324.                         dialog "HRVO_128" off 
  1325.                     endif
  1326.                 
  1327.                 else
  1328.                     // bourse
  1329.                     money BourseCacao -3
  1330.                     set BourseCacao = BourseCacao - 3
  1331.                     set invent = invent + "colo_noir"
  1332.                     set HasBuy = 1
  1333.                 endif
  1334.  
  1335.             elif Mouse_Click = "Zone_Rouge" then
  1336.                 Set Time1 = 0
  1337.                 Set HRVO_achat = random % 4
  1338.                 if "Colo_Rouge" in invent then
  1339.  
  1340.                     // dialog "jen ai dΘja"
  1341.                     if HRVO_achat < 2 then
  1342.                         dialog "HRVO_125" off
  1343.  
  1344.                     else
  1345.                         dialog "HRVO_126" off
  1346.                     endif
  1347.  
  1348.                 elif BourseCacao < 3 then
  1349.                     // dialog "j'ai pas assez de pognon"
  1350.                     
  1351.                     if HRVO_achat < 2 then
  1352.                         dialog "HRVO_127" off 
  1353.                     
  1354.                     else
  1355.                         dialog "HRVO_128" off 
  1356.                     endif
  1357.                 
  1358.                 else
  1359.                     // bourse
  1360.                     money BourseCacao -3
  1361.                     set BourseCacao = BourseCacao - 3
  1362.                     set invent = invent + "colo_Rouge"
  1363.                     set HasBuy = 1
  1364.                 endif
  1365.             endif
  1366.         endif
  1367. end
  1368.  
  1369. [Ma0031]    
  1370. // description warp: centre de la petite place
  1371. :init
  1372. begin
  1373.  
  1374. // Voir si on met turquoise (Oh!)
  1375.         // si le joueur a eu l'info, Turquoise est lα. Sinon non
  1376.         if acte = 5 and Dial113 = 1 then
  1377.             ShowSpw "Tur"
  1378.         Endif
  1379.  
  1380.         // prΘsence "garde1"
  1381.         if acte = 1 then
  1382.             ShowSpw "garde1"
  1383.             Disableclick "garde1"
  1384.         endif
  1385.  
  1386.         if EsclaveIndiceBijou then
  1387.             set OizoSeCasse = 1
  1388.         endif
  1389. end
  1390.  
  1391. :loop
  1392. begin
  1393. end
  1394.  
  1395. // FIN du script
  1396.