home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 5.14 / 2000-11_-_Disc_5.14.iso / Goodies / 3DGameStudio / Adeptus / dialog.wdl < prev    next >
Text File  |  2000-02-12  |  4KB  |  215 lines
  1. ////////////////////////////////////////////////////////////////////
  2. SKILL b1 {}
  3. SKILL b2 {}
  4. SKILL b3 {}
  5. SKILL exit1 {}
  6. SKILL exit2 {}
  7. SKILL exit3 {}
  8.  
  9. ACTION show_dial
  10. {
  11.     SET info2_pan.VISIBLE, TRUE;
  12.     SET dial_txt.VISIBLE, TRUE;
  13. }
  14.  
  15. /// talk to actors /////////////////////////////////////////////////
  16. ACTION make_talk
  17. {
  18.     CALL close_all;
  19.     CALL reset_keys;
  20.  
  21.     button_works = FALSE;
  22.     SET exit1, NO;
  23.     SET exit2, NO;
  24.     SET exit3, NO;
  25.     IF (PLAYER.CURRENT == 51)
  26.     {
  27.         PERSON.CURRENT = 51;
  28.     }
  29.  
  30.     IF (PERSON.ID == M_ANGEL)
  31.     {
  32.         IF (PERSON.CURRENT == 11)
  33.         {
  34.             SET dial_txt.STRING angel11_str;
  35.             SET dial1_butt_pan.VISIBLE, TRUE;
  36.             SET b1, 13;
  37.             SET b2, 12;
  38.             SET exit2, YES;
  39.         }
  40.         IF (PERSON.CURRENT == 12)
  41.         {
  42.             SET dial_txt.STRING angel12_str;
  43.             SET dial1_butt_pan.VISIBLE, TRUE;
  44.             SET b1, 14;
  45.             SET b2, 12;
  46.             SET exit2, YES;
  47.         }
  48.         IF (PERSON.CURRENT == 13)
  49.         {
  50.             SET dial_txt.STRING angel13_str;
  51.             SET dial1_butt_pan.VISIBLE, TRUE;
  52.             SET b1, 14;
  53.             SET b2, 12;
  54.             SET exit2, YES;
  55.         }
  56.         IF (PERSON.CURRENT == 14)
  57.         {
  58.             SET dial_txt.STRING angel14_str;
  59.             SET dial1_butt_pan.VISIBLE, TRUE;
  60.             SET b1, 21;
  61.             SET b2, 12;
  62.             SET exit2, YES;
  63.         }
  64.         IF (PERSON.CURRENT == 21)
  65.         {
  66.             SET dial_txt.STRING angel21_str;
  67.             SET dial1_butt_pan.VISIBLE, TRUE;
  68.             SET b1, 32;
  69.             SET b2, 12;
  70.             SET exit1, YES;
  71.             SET exit2, YES;
  72.         }
  73.         IF (PERSON.CURRENT == 32)
  74.         {
  75.             SET dial_txt.STRING angel32_str;
  76.             SET dial1_butt_pan.VISIBLE, TRUE;
  77.             SET b1, 32;
  78.             IF (has_diamond == TRUE)
  79.             {
  80.                 SET b1, 42;
  81.             }
  82.             SET b2, 41;
  83.             #    SET exit1, YES;
  84.         }
  85.  
  86.         IF (PERSON.CURRENT == 41)
  87.         {
  88.             SET dial_txt.STRING angel41_str;
  89.             SET dial2_butt_pan.VISIBLE, TRUE;
  90.             SET b3, 32;
  91.             SET exit3, YES;
  92.         }
  93.  
  94.         IF (PERSON.CURRENT == 42)
  95.         {
  96.             SET dial_txt.STRING angel42_str;
  97.             SET dial2_butt_pan.VISIBLE, TRUE;
  98.             SET give_exp, 200;
  99.             has_diamond = FALSE;
  100.             ITEM = M_GEM;
  101.             CALL delete_item;
  102.             spelldoor_open = TRUE;
  103.             CALL check_exp;
  104.             SET b3, 51;
  105.             SET exit3, YES;
  106.         }
  107.         IF (PERSON.CURRENT == 51)
  108.         {
  109.             SET dial_txt.STRING angel51_str;
  110.             SET dial2_butt_pan.VISIBLE, TRUE;
  111.             SET b3, 51;
  112.             SET exit3, YES;
  113.         }
  114.         IF (PERSON.CURRENT == 61)
  115.         {
  116.             SET dial_txt.STRING angel61_str;
  117.             SET dial2_butt_pan.VISIBLE, TRUE;
  118.             SET b3, 61;
  119.             SET exit3, YES;
  120.         }
  121.     }
  122.     IF (PERSON.ID == M_CYNTHIA)
  123.     {
  124.         IF (PERSON.CURRENT == 11)
  125.         {
  126.             SET dial_txt.STRING cynth11_str;
  127.             SET dial1_butt_pan.VISIBLE, TRUE;
  128.             SET b1, 21;
  129.             SET b2, 22;
  130.         }
  131.         IF (PERSON.CURRENT == 21)
  132.         {
  133.             SET dial_txt.STRING cynth21_str;
  134.             SET dial1_butt_pan.VISIBLE, TRUE;
  135.             SET b1, 31;
  136.             SET b2, 11;
  137.             SET exit2, YES;
  138.         }
  139.         IF (PERSON.CURRENT == 22)
  140.         {
  141.             SET dial_txt.STRING cynth22_str;
  142.             SET dial1_butt_pan.VISIBLE, TRUE;
  143.             SET b1, 31;
  144.             SET b2, 11;
  145.             SET exit2, YES;
  146.             SET give_exp, cynth_exp;
  147.             CALL check_exp;
  148.             SET cynth_exp, 0;
  149.         }
  150.         IF (PERSON.CURRENT == 31)
  151.         {
  152.             SET dial_txt.STRING cynth31_str;
  153.             SET dial2_butt_pan.VISIBLE, TRUE;
  154.             SET ITEM, M_KEY2;
  155.             CALL put_item;
  156.             SET b3, 41;
  157.             SET exit3, YES;
  158.         }
  159.         IF (PERSON.CURRENT == 41)
  160.         {
  161.             SET dial_txt.STRING cynth41_str;
  162.             SET dial2_butt_pan.VISIBLE, TRUE;
  163.             SET b3, 41;
  164.             SET exit3, YES;
  165.         }
  166.         IF (PERSON.CURRENT == 51)
  167.         {
  168.             SET dial_txt.STRING cynth51_str;
  169.             SET dial2_butt_pan.VISIBLE, TRUE;
  170.             SET b3, 51;
  171.             SET exit3, YES;
  172.             create_pos.X = -1150;
  173.             create_pos.Y = -1082;
  174.             create_pos.Z = -180;
  175.             CREATE <tp+7.pcx>, create_pos, tp_ani;
  176.         }
  177.     }
  178.     CALL show_dial;
  179. }
  180.  
  181. ACTION b1_function
  182. {
  183.     SET PERSON.CURRENT, b1;
  184.     IF (exit1 == YES)
  185.     {
  186.         CALL close_all;
  187.         PERSON._STATE = WALK;
  188.         RETURN;
  189.     }
  190.     CALL make_talk;
  191. }
  192.  
  193. ACTION b2_function
  194. {
  195.     SET PERSON.CURRENT, b2;
  196.     IF (exit2 == YES)
  197.     {
  198.         CALL close_all;
  199.         PERSON._STATE = WALK;
  200.         RETURN;
  201.     }
  202.     CALL make_talk;
  203. }
  204.  
  205. ACTION b3_function
  206. {
  207.     SET PERSON.CURRENT, b3;
  208.     IF (exit3 == YES)
  209.     {
  210.         CALL close_all;
  211.         PERSON._STATE = WALK;
  212.         RETURN;
  213.     }
  214.     CALL make_talk;
  215. }