Files @ 16044f7fdf9f
Branch filter:

Location: games/Awakening/atlantis_dlg.lua

Silverwing
0.10.5
   1
   2
   3
   4
   5
   6
   7
   8
   9
  10
  11
  12
  13
  14
  15
  16
  17
  18
  19
  20
  21
  22
  23
  24
  25
  26
  27
  28
  29
  30
  31
  32
  33
  34
  35
  36
  37
  38
  39
  40
  41
  42
  43
  44
  45
  46
  47
  48
  49
  50
  51
  52
  53
  54
  55
  56
  57
  58
  59
  60
  61
  62
  63
  64
  65
  66
  67
  68
  69
  70
  71
  72
  73
  74
  75
  76
  77
  78
  79
  80
  81
  82
  83
  84
  85
  86
  87
  88
  89
  90
  91
  92
  93
  94
  95
  96
  97
  98
  99
 100
 101
 102
 103
 104
 105
 106
 107
 108
 109
 110
 111
 112
 113
 114
 115
 116
 117
 118
 119
 120
 121
 122
 123
 124
 125
 126
 127
 128
 129
 130
 131
 132
 133
 134
 135
 136
 137
 138
 139
 140
 141
 142
 143
 144
 145
 146
 147
 148
 149
 150
 151
 152
 153
 154
 155
 156
 157
 158
 159
 160
 161
 162
 163
 164
 165
 166
 167
 168
 169
 170
 171
 172
 173
 174
 175
 176
 177
 178
 179
 180
 181
 182
 183
 184
 185
 186
 187
 188
 189
 190
 191
 192
 193
 194
 195
 196
 197
 198
 199
 200
 201
 202
 203
 204
 205
 206
 207
 208
 209
 210
 211
 212
 213
 214
 215
 216
 217
 218
 219
 220
 221
 222
 223
 224
 225
 226
 227
 228
 229
 230
 231
 232
 233
 234
 235
 236
 237
 238
 239
 240
 241
 242
 243
 244
 245
 246
 247
 248
 249
 250
 251
 252
 253
 254
 255
 256
 257
 258
 259
 260
 261
 262
 263
 264
 265
 266
 267
 268
 269
 270
 271
 272
 273
 274
 275
 276
 277
 278
 279
 280
 281
 282
 283
 284
 285
 286
 287
 288
 289
 290
 291
 292
 293
 294
 295
 296
 297
 298
 299
 300
 301
 302
 303
 304
 305
 306
 307
 308
 309
 310
 311
 312
 313
 314
 315
 316
 317
 318
 319
 320
 321
 322
 323
 324
 325
 326
 327
 328
 329
 330
 331
 332
 333
 334
 335
 336
 337
 338
 339
 340
 341
 342
 343
 344
 345
 346
 347
 348
 349
 350
 351
 352
 353
 354
 355
 356
 357
 358
 359
 360
 361
 362
 363
 364
 365
 366
 367
 368
 369
 370
 371
 372
 373
 374
 375
 376
 377
 378
 379
 380
 381
 382
 383
 384
 385
 386
 387
 388
 389
 390
 391
 392
 393
 394
 395
 396
 397
 398
 399
 400
 401
 402
 403
 404
 405
 406
 407
 408
 409
 410
 411
 412
 413
 414
 415
 416
 417
 418
 419
 420
 421
 422
 423
 424
 425
 426
 427
 428
 429
 430
 431
 432
 433
 434
 435
 436
 437
 438
 439
 440
 441
 442
 443
 444
 445
 446
 447
 448
 449
 450
 451
 452
 453
 454
 455
 456
 457
 458
 459
 460
 461
 462
 463
 464
 465
 466
 467
 468
 469
 470
 471
 472
 473
 474
 475
 476
 477
 478
 479
 480
 481
 482
 483
 484
 485
 486
 487
 488
 489
 490
 491
 492
 493
 494
 495
 496
 497
 498
 499
 500
 501
 502
 503
 504
 505
 506
 507
 508
 509
 510
 511
 512
 513
 514
 515
 516
 517
 518
 519
 520
 521
 522
 523
 524
 525
 526
 527
 528
 529
 530
 531
 532
 533
 534
 535
 536
 537
 538
 539
 540
 541
 542
 543
 544
 545
 546
 547
 548
 549
 550
 551
 552
 553
 554
 555
 556
 557
 558
 559
 560
 561
 562
 563
 564
 565
 566
 567
 568
 569
 570
 571
 572
 573
 574
 575
 576
 577
 578
 579
 580
 581
 582
 583
 584
 585
 586
 587
 588
 589
 590
 591
 592
 593
 594
 595
 596
 597
 598
 599
 600
 601
 602
 603
 604
 605
 606
 607
 608
 609
 610
 611
 612
 613
 614
 615
 616
 617
 618
 619
 620
 621
 622
 623
 624
 625
 626
 627
 628
 629
 630
 631
 632
 633
 634
 635
 636
 637
 638
 639
 640
 641
 642
 643
 644
 645
 646
 647
 648
 649
 650
 651
 652
 653
 654
 655
 656
 657
 658
 659
 660
 661
 662
 663
 664
 665
 666
 667
 668
 669
 670
 671
 672
 673
 674
 675
 676
 677
 678
 679
 680
 681
 682
 683
 684
 685
 686
 687
 688
 689
 690
 691
 692
 693
 694
 695
 696
 697
 698
 699
 700
 701
 702
 703
 704
 705
 706
 707
 708
 709
 710
 711
 712
 713
 714
 715
 716
 717
 718
 719
 720
 721
 722
 723
 724
 725
 726
 727
 728
 729
 730
 731
 732
 733
 734
 735
 736
 737
 738
 739
 740
 741
 742
 743
 744
 745
 746
 747
 748
 749
 750
 751
 752
 753
 754
 755
 756
 757
 758
 759
 760
 761
 762
 763
 764
 765
 766
 767
 768
 769
 770
 771
 772
 773
 774
 775
 776
 777
 778
 779
 780
 781
 782
 783
 784
 785
 786
 787
 788
 789
 790
 791
 792
 793
 794
 795
 796
 797
 798
 799
 800
 801
 802
 803
 804
 805
 806
 807
 808
 809
 810
 811
 812
 813
 814
 815
 816
 817
 818
 819
 820
 821
 822
 823
 824
 825
 826
 827
 828
 829
 830
 831
 832
 833
 834
 835
 836
 837
 838
 839
 840
 841
 842
 843
 844
 845
 846
 847
 848
 849
 850
 851
 852
 853
 854
 855
 856
 857
 858
 859
 860
 861
 862
 863
 864
 865
 866
 867
 868
 869
 870
 871
 872
 873
 874
 875
 876
 877
 878
 879
 880
 881
 882
 883
 884
 885
 886
 887
 888
 889
 890
 891
 892
 893
 894
 895
 896
 897
 898
 899
 900
 901
 902
 903
 904
 905
 906
 907
 908
 909
 910
 911
 912
 913
 914
 915
 916
 917
 918
 919
 920
 921
 922
 923
 924
 925
 926
 927
 928
 929
 930
 931
 932
 933
 934
 935
 936
 937
 938
 939
 940
 941
 942
 943
 944
 945
 946
 947
 948
 949
 950
 951
 952
 953
 954
 955
 956
 957
 958
 959
 960
 961
 962
 963
 964
 965
 966
 967
 968
 969
 970
 971
 972
 973
 974
 975
 976
 977
 978
 979
 980
 981
 982
 983
 984
 985
 986
 987
 988
 989
 990
 991
 992
 993
 994
 995
 996
 997
 998
 999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113
1114
1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137
1138
1139
1140
1141
1142
1143
1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183
1184
1185
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283
1284
1285
1286
1287
1288
1289
1290
1291
1292
1293
1294
1295
1296
1297
1298
1299
1300
1301
1302
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
1337
1338
1339
1340
1341
1342
1343
1344
1345
1346
1347
1348
1349
1350
1351
1352
1353
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
1372
1373
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
1394
1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
1414
1415
1416
1417
1418
1419
1420
1421
1422
1423
1424
1425
1426
1427
1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
1439
1440
1441
1442
1443
1444
1445
1446
1447
1448
1449
1450
1451
1452
1453
1454
1455
1456
1457
1458
1459
1460
1461
1462
1463
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473
1474
1475
1476
1477
1478
1479
1480
1481
1482
1483
1484
1485
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504
1505
1506
1507
1508
1509
1510
1511
1512
1513
1514
1515
1516
1517
1518
1519
1520
1521
1522
1523
1524
1525
1526
1527
1528
1529
1530
1531
1532
1533
1534
1535
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1547
1548
1549
1550
1551
1552
1553
1554
1555
1556
1557
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587
1588
1589
1590
1591
1592
1593
1594
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662
1663
1664
1665
1666
1667
1668
1669
1670
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796
char_darkstar_dlg = dlg {
	var {
		state = 0;
        fta = 0;

        mtr_accuse = 0;
	};
	nam = "Винсент Даркстар";
	disp = "Винсент Даркстар";

    reset_more = function(s)
        poff("on_drake", "on_black", "on_darkstar", "on_svetlova", "on_moreau", "on_wright", "on_atlantis", "on_navjiarr", "on_learr", "on_ryveerr", "more_questions");
        if (char_darkstar.drake_asked < 2) then pon("on_drake"); pon("more_questions"); end;
        if (char_darkstar.black_asked < 2) then pon("on_black"); pon("more_questions"); end;
        if (char_darkstar.darkstar_asked < 2) then pon("on_darkstar"); pon("more_questions"); end;
        if (char_darkstar.svetlova_asked < 2) then pon("on_svetlova"); pon("more_questions"); end;
        if (char_darkstar.moreau_asked < 2) then pon("on_moreau"); pon("more_questions"); end;
        if (char_darkstar.wright_asked < 2) then pon("on_wright"); pon("more_questions"); end;
        if (char_darkstar.atlantis_asked < 2) then pon("on_atlantis"); pon("more_questions"); end;

        if (char_darkstar.navjiarr_asked < 2) then pon("on_navjiarr"); pon("more_questions"); end;
        if (char_darkstar.learr_asked < 2) then pon("on_learr"); pon("more_questions"); end;
        if (char_darkstar.ryveerr_asked < 2) then pon("on_ryveerr"); pon("more_questions"); end;
        if (starlight_darkstar_status == 1 and char_darkstar.starlight_asked < 2) then pon("on_starlight"); pon("more_questions"); end;

        if atl_mtr_started and not atl_mtr_finished then
            pon("mtr_accuse_phr");

            local leroy_proof = 0;
            local jones_proof = 0;

            pon('gclock');
            if atl_mtr_know_goldman_lost_clock then
                if atl_mtr_leroy_asked_on_clock and atl_mtr_jones_asked_on_clock then
                    pon('jclock', 'lclock');
                    leroy_proof = leroy_proof + 1;
                    jones_proof = jones_proof + 1;
                end;
            end;

            if atl_mtr_know_goldman_views then
                pon('gclosing');
            end;

            if atl_mtr_know_jones_in_solis then
                pon('jsolis');
                jones_proof = jones_proof + 1;
            end;

            if atl_mtr_know_jones_views then
                pon('jclosing');
                jones_proof = jones_proof + 1;
            end;

            if atl_mtr_know_leroy_replaced_jones then
                pon('lsolis');
                leroy_proof = leroy_proof + 1;
            end;

            if atl_mtr_know_leroy_views then
                pon('lclosing');
                leroy_proof = leroy_proof + 1;
            end;

            if leroy_proof > 0 then
                pon('mtr_leroy');
            else
                poff('mtr_leroy');
            end;

            if jones_proof > 0 then
                pon('mtr_jones');
            else
                poff('mtr_jones');
            end;
        else
            poff("mtr_accuse_phr");
        end;
    end;

	enter = function(s)
        s:reset_more();

        if (s.state == 0) then
			psub("first_meeting");
            s.state = 1;
			return [[За столом сидит средних лет мужчина с короткими черными волосами. Он одет в строгий деловой костюм черного цвета. Лицо его гладко выбрито. Холодный взгляд его черных глаз устремлен на вас. Сложив руки на столе, он приветствует вас: "Добро пожаловать на Атлантиду, господин Дрейк. Я Винсент Даркстар, мы уже общались по радио. Я занимаю на Атлантиде пост начальника службы безопаности". ]];
        else
			psub("generic");
			return [[Винсент Даркстар сообщает: "Я слушаю". ]];
		end;
	end;
    phr = {
        {tag="first_meeting"};
		{"Что мне нужно сделать, чтобы мне вернули Левиафан?", [[Винсент Даркстар хлопает ладонями о стол и уверенно сообщает: "Вести себя хорошо и не делать глупостей". ]]};
		{"Когда мне вернут Левиафан?", [[Винсент Даркстар отвечает: "Всему свое время. Используйте это время с пользой. Если хотите найти Уильяма, сначала стоит выяснить где и как его искать. И вам не помешает узнать кое-что помимо этого". ]]};
		{"Я пришел кое-что спросить. ", [[Винсент Даркстар сообщает: "Я слушаю". ]], code [[psub("generic");]]};
        {tag="ask_more"};
        {tag="on_starlight", false, "Вы знаете Джозефа Старлайта?", function(s)
            char_darkstar.starlight_asked = 2;
            return [[Винсент Даркстар отвечает: "Мой старый добрый друг. Судя по тому, что вы упомянули его имя, он сделал все, как должно".]];
        end};
        {tag="on_drake", false, "Расскажите об Уильяме. ", function()
            char_darkstar.drake_asked = 2;
            return [[Винсент Даркстар отвечает: "Что вы ожидаете услышать? Дрейк -- основатель Вестхейвен Трансоушен. Он -- мой непосредственный руководитель, однако у нас, на Атлантиде, принято решать важные вопросы совместно. Не так давно он отправился в научную экспедицию вместе с Адрианом Блэком и еще несколькими сотрудниками. Дрейк неосторожен и склонен к опрометчивым решениям. Это может сыграть с ним злую шутку".]];
        end};
        {tag="on_black", false, "Расскажите об Адриане Блэке. ", function()
            char_darkstar.black_asked = 2;
            return [[Винсент Даркстар отвечает: "Блэк -- главный помощник Дрейка по управлению компанией. Ни одно важное решение в Вестхейвен Трансоушен не принимается без его участия. Не так давно он отправился в научную экспедицию вместе с Уильямом Дрейком и еще несколькими сотрудниками. С одной стороны -- он хороший руководитель и Дрейку повезло иметь такого помощника, с другой -- Блэк, несомненно, принесет в жертву и станцию и всех нас, если это послужит его интересам. Будьте осторожны при общении с ним". ]];
        end};
        {tag="on_darkstar", false, "Расскажите о себе. ", function()
            char_darkstar.darkstar_asked = 2;
            return [[Винсент Даркстар отвечает: "Мне нечего рассказывать, кроме того, что я уже сказал. Мое имя Винсент Даркстар и я занимаю пост начальника службы безопасности Атлантиды". ]];
        end};
        {tag="on_svetlova", false, "Расскажите о Екатерине Светловой. ", function()
            char_darkstar.svetlova_asked = 2;
            return [[Винсент Даркстар отвечает: "Екатерина Светлова -- руководитель исследовательского отдела на Атлантиде. Секция Окулус находится в ее ведении. Атлантида для нее -- неисчерпаемый источник материала для исследований, поэтому она заинтересована в продолжении работы станции". ]];
        end};
        {tag="on_moreau", false, "Расскажите о Фредерике Моро. ", function()
            char_darkstar.moreau_asked = 2;
            return [[Винсент Даркстар отвечает: "Фредерик Моро руководит станцией в отсутствие Дрейка и Блэка. Должен сказать, справляется он неплохо. Ему можно доверять безоговорочно -- он с полной ответственностью подходит к управлению станцией. Хотя он склонен делегировать многие решения, он отдает их правильным людям". ]];
        end};
        {tag="on_wright", false, "Расскажите о Майлке Райте. ", function()
            char_darkstar.wright_asked = 2;
            return [[Винсент Даркстар отвечает: "Майкл Райт -- руководитель инженерного отдела на Атлантиде. В его задачи входит поддержание работоспособности станции и ее техническое развитие. Станция -- дело всей его жизни. Когда поднимался вопрос, он не колеблясь оставил семью на поверхности ради возможности развивать Атлантиду". ]];
        end};
        {tag="on_atlantis", false, "Расскажите об Атлантиде. ", function()
            char_darkstar.atlantis_asked = 2;
            return [[Винсент Даркстар отвечает: "Атлантида построена на средства Вестхейвен Трансоушен -- компании вашего отца. Майкл Райт -- создатель станции, многое продумал, существенно облегчив мне работу. Конечно, периодически, мне приходится иметь дело с нарушениями правил -- я неоднократно просил не загромождать коридоры; всегда закрывать за собой шлюзы, двери, щитки, панели; не перекрывать посторонними предметами доступ к важным узлам станции. Думаю, вы сами заметили, как исполняются эти указания". ]];
        end};
        {tag="on_navjiarr", false, "Что вы думаете о навьярах? ", function()
            char_darkstar.navjiarr_asked = 2;
            return [[Винсент Даркстар отвечает: "Они -- причина существования Атлантиды, так что в какой-то мере мы все обязаны им тем, что оказались здесь. Не все на станции довольны этим -- и это создает определенную угрозу. Но, надо признать, они не пытались навредить нам последнее время, однако, я все еще советую Моро и Светловой быть настороже при общении с ними. Они не так просты, как кажутся". ]];
        end};
        {tag="on_learr", false, "Что вы думаете о Леарр? ", function()
            char_darkstar.learr_asked = 2;
            return [[Винсент Даркстар отвечает: "Леарр -- представительница одного из навьярских племен на станции. Она любопытна, молода и умна. Она искренне заинтересована нами и нашими технологиями и это не может не радовать". ]];
        end};
        {tag="on_ryveerr", false, "Что вы думаете о Ривеерре? ", function()
            char_darkstar.ryveerr_asked = 2;
            return [[Винсент Даркстар отвечает: "Ривеерр -- представитель одного из навьярских племен на станции. Я мало что могу о нем сказать, и, в данном случае, это говорит в его пользу". ]];
        end};
        {always=true, "Вернемся к делу.", [[Даркстар кивает: "Слушаю".]], code [[ char_darkstar_dlg:reset_more(); pret(); ]]};
		{tag="generic"};
        {tag="more_questions", "У меня есть несколько вопросов.", [[Даркстар кивает: "Слушаю".]], code [[ psub('ask_more'); ]]};
        {tag="mtr_accuse_phr", false, "Я знаю, кто устроил аварию в Солисе. ", [[Даркстар бросает: "Рассказывайте".]], code [[ psub('mtr_accuse'); ]]};
		{always=true, "Я пойду.", [[Даркстар прощается: "До встречи". ]], code [[ back(); ]]};
        {tag="mtr_accuse"};
        {tag="mtr_goldman", always=true, "Аварию устроил Голдман.", [[Даркстар спрашивает: "Почему вы так решили?"]], code [[
            char_darkstar_dlg.mtr_accuse = 0;
            psub("mtr_accuse_goldman");
        ]]};
        {tag="mtr_leroy", always=true, "Аварию устроил Леруа.", [[Даркстар спрашивает: "Почему вы так решили?"]], code [[
            char_darkstar_dlg.mtr_accuse = 0;
            psub("mtr_accuse_leroy");
        ]]};
        {tag="mtr_jones", always=true, "Аварию устроил Джонс.", [[Даркстар спрашивает: "Почему вы так решили?"]], code [[
            char_darkstar_dlg.mtr_accuse = 0;
            psub("mtr_accuse_jones");
        ]]};
        {tag="mtr_no_one", always=true, "Мне нужно время еще подумать.", [[Даркстар кивает: "Хорошо. Не спешите". ]], function(s)
            pret();
        end};
        {tag="mtr_accuse_goldman"};
        {tag="gclock", false, "Его часы были найдены в Солисе.", [[Даркстар спрашивает: "Что еще вы можете добавить?"]]};
        {tag="gclosing", false, "Голдман -- сторонник закрытия станции и часто говорит о ее ненадежности. Авария -- отличное подтверждение его слов.", [[Даркстар спрашивает: "Что еще вы можете добавить?"]]};
        {tag="gall", always=true, "У меня нет других доказательств.", [[Даркстар качает головой: "Боюсь, ваши доказательства неубедительны". ]], code [[psub("generic");]]};
        {tag="mtr_accuse_jones"};
        {tag="jclock", false, "Голдман часто оставляет часы по своей рассеянности. Джонс имел возможность украсть их неделю назад, во время обеда, когда Голдман потерял их в очередной раз.", function()
            char_darkstar_dlg.mtr_accuse = char_darkstar_dlg.mtr_accuse + 1;
            if char_darkstar_dlg.mtr_accuse == 3 then
                remove(char_jones, where(char_jones));
                walk('atl_mtr_outro_jones');
                return [[Даркстар достает из ящика стола лист бумаги и начинает что-то писать. Вам он говорит: "Вы хорошо поработали, господин Дрейк. Благодарю вас за работу". ]];
            else
                return [[Даркстар спрашивает: "Что еще вы можете добавить?"]];
            end;
        end};
        {tag="jsolis", false, "Согласно записям, Джонс обслуживал Солис вчера и имел возможность повредить оборудование.", function()
            char_darkstar_dlg.mtr_accuse = char_darkstar_dlg.mtr_accuse + 1;
            if char_darkstar_dlg.mtr_accuse == 3 then
                remove(char_jones, where(char_jones));
                walk('atl_mtr_outro_jones');
                return [[Даркстар достает из ящика стола лист бумаги и начинает что-то писать. Вам он говорит: "Вы хорошо поработали, господин Дрейк. Благодарю вас за работу". ]];
            else
                return [[Даркстар спрашивает: "Что еще вы можете добавить?"]];
            end;
        end};
        {tag="jclosing", false, "Джонс -- сторонник закрытия станции и часто говорит о ее ненадежности. Авария -- отличное подтверждение его слов.", function()
            char_darkstar_dlg.mtr_accuse = char_darkstar_dlg.mtr_accuse + 1;
            if char_darkstar_dlg.mtr_accuse == 3 then
                remove(char_jones, where(char_jones));
                walk('atl_mtr_outro_jones');
                return [[Даркстар достает из ящика стола лист бумаги и начинает что-то писать. Вам он говорит: "Вы хорошо поработали, господин Дрейк. Благодарю вас за работу". ]];
            else
                return [[Даркстар спрашивает: "Что еще вы можете добавить?"]];
            end;
        end};
        {tag="jall", always=true, "У меня нет других доказательств.", [[Даркстар качает головой: "Боюсь, ваши доказательства неубедительны". ]], code [[psub("generic");]]};
        {tag="mtr_accuse_leroy"};
        {tag="lclock", false, "Голдман часто оставляет часы по своей рассеянности. Леруа имел возможность украсть их неделю назад, во время обеда, когда Голдман потерял их в очередной раз.", function()
            char_darkstar_dlg.mtr_accuse = char_darkstar_dlg.mtr_accuse + 1;
            if char_darkstar_dlg.mtr_accuse == 3 then
                remove(char_leroy, where(char_leroy));
                walk('atl_mtr_outro_leroy');
                return [[Даркстар достает из ящика стола лист бумаги и начинает что-то писать. Вам он говорит: "Вы хорошо поработали, господин Дрейк. Благодарю вас за работу". ]];
            else
                return [[Даркстар спрашивает: "Что еще вы можете добавить?"]];
            end;
        end};
        {tag="lsolis", false, "По словам Джонса, Солис вчера обслуживал Леруа. Также, Рэдклифф видел Леруа покидающим Терру -- единственную секцию с выходом к Солису.", function()
            char_darkstar_dlg.mtr_accuse = char_darkstar_dlg.mtr_accuse + 1;
            if char_darkstar_dlg.mtr_accuse == 3 then
                remove(char_leroy, where(char_leroy));
                walk('atl_mtr_outro_leroy');
                return [[Даркстар достает из ящика стола лист бумаги и начинает что-то писать. Вам он говорит: "Вы хорошо поработали, господин Дрейк. Благодарю вас за работу". ]];
            else
                return [[Даркстар спрашивает: "Что еще вы можете добавить?"]];
            end;
        end};
        {tag="lclosing", false, "Леруа -- сторонник закрытия станции и часто говорит о ее ненадежности. Авария -- отличное подтверждение его слов.", function()
            char_darkstar_dlg.mtr_accuse = char_darkstar_dlg.mtr_accuse + 1;
            if char_darkstar_dlg.mtr_accuse == 3 then
                remove(char_leroy, where(char_leroy));
                walk('atl_mtr_outro_leroy');
                return [[Даркстар достает из ящика стола лист бумаги и начинает что-то писать. Вам он говорит: "Вы хорошо поработали, господин Дрейк. Благодарю вас за работу". ]];
            else
                return [[Даркстар спрашивает: "Что еще вы можете добавить?"]];
            end;
        end};
        {tag="lall", always=true, "У меня нет других доказательств.", [[Даркстар качает головой: "Боюсь, ваши доказательства неубедительны". ]], code [[psub("generic");]]};
	};
};

char_moreau_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Фредерик Моро";
	disp = "Фредерик Моро";
    reset_more = function(s)
        poff("on_drake", "on_black", "on_darkstar", "on_svetlova", "on_moreau", "on_wright", "on_atlantis", "on_navjiarr", "on_learr", "on_ryveerr", "more_questions");
        if char_moreau.drake_asked < 2 then pon("on_drake"); pon("more_questions"); end;
        if char_moreau.black_asked < 2 then pon("on_black"); pon("more_questions"); end;
        if char_moreau.darkstar_asked < 2 then pon("on_darkstar"); pon("more_questions"); end;
        if char_moreau.svetlova_asked < 2 then pon("on_svetlova"); pon("more_questions"); end;
        if char_moreau.moreau_asked < 2 then pon("on_moreau"); pon("more_questions"); end;
        if char_moreau.wright_asked < 2 then pon("on_wright"); pon("more_questions"); end;

        if (char_moreau.atlantis_asked < 2) then pon("on_atlantis"); pon("more_questions"); end;

        if (char_moreau.navjiarr_asked < 2) then pon("on_navjiarr"); pon("more_questions"); end;
        if (char_moreau.learr_asked < 2) then pon("on_learr"); pon("more_questions"); end;
        if (char_moreau.ryveerr_asked < 2) then pon("on_ryveerr"); pon("more_questions"); end;
        if (starlight_darkstar_status == 1 and char_moreau.starlight_asked < 2) then pon("on_starlight"); pon("more_questions"); end;
    end;
	enter = function(s)
        s:reset_more();

		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[За столом перед вами сидит немолодой мужчина. Кудрявые седые волосы обрамляют его лицо. Он носит длинные седые усы. Одет человек в строгий деловой костюм бежевого цвета. Его серые глаза, скрытые очками, внимательно рассматривают вас. Вертя в руках перо он приветствует вас: "Добро пожаловать на Атлантиду, месье Дрейк. Мое имя -- Фредерик Моро, и я исполняю обязанности начальника станции в отсутствие Уильяма и Адриана. Ваше прибытие крайне удивило нас -- мы думали, с поверхности найти нашу станцию невозможно. Пока мы думаем, что делать с вами дальше, вы можете воспользоваться ресурсами станции, чтобы узнать побольше о вашем отце и, быть может, понять, куда в точности он направился. Для начала, стоит немного ввести вас в курс дела". ]];
            -- Моро подходит к книжной полке и берет какую-то книгу. Вернувшись за стол, он раскрывает ее и приступает к рассказу: "Когда мы строили Надежду, нашей целью было создать быстрый и безопасный способ путешествий через Атлантику. Однако, все с самого начала пошло не так, как планировалось. Мы встретили племя подводных существ, именующих себя навьярами -- они похожи на рыб и людей одновременно -- ходят на двух ногах, используют две руки, но покрыты чешуей и имеют жабры. Тогда мы приняли решение исследовать их тщательнее. Были построены Энтерпрайз, Наутилус и сама Атлантида. Потом мы переселились сюда. Дрейк был захвачен одной из легенд этих рыбней и не так давно, наконец, решился отправиться в экспедицию".
        else
            if atl_mtr_finished and atl_lev_state == 0 then
                atl_lev_state = 1;

                psub("gratitude");
                return [[Фредерик Моро приветствует вас: _"Месье Дрейк, добрый день. Вы помогли нам с поимкой саботажника и мы приняли решение дать вам доступ к Левиафану. Он по-прежнему ждет вас в гостевом доке ,,A'' секции Аква. Мы предоставм вам все необходимое, чтобы помочь в поисках отца. В настоящий момент Левиафан должен быть готов к отплытию"_. ]];
            end;
			psub("generic");
			return [[Фредерик Моро приветствует вас: "Месье Дрейк, добрый день. Чем могу помочь?" ]];
		end;
	end;
	phr = {
        {tag="gratitude"};
        {"Благодарю.", [[Моро говорит: "Вы хотите обсудить какие-то вопросы?"]], code [[psub("generic");]]};
		{tag="first_meeting", empty = code[[ psub("generic"); ]]};
		{"Я не имею намерения раскрывать существование Атлантиды.", [[Фредерик Моро кивает: "Рад это слышать, но нам нужно больше чем ваши слова". ]]};
		{"Что за навьяры?", [[Фредерик Моро отвечает: _"Na'vji'a'rr -- с их языка это переводится, как ,,Живущие в глубинах''. Как я сказал, они чем-то похожи на людей, но по сути своей они -- рыбы. Подробнее о них вам смогут нассказать наши ученые в секции Окулус. Там же вы можете встретить Ривеерра и Леарр -- наших гостей из двух ближайших поселений навьяров"_. ]]};
		{"Как получилось, что Левиафан остался на поверхности?", [[Фредерик Моро задумчиво чешет подбородок. Через некоторое время он отвечает: _"Сложно сказать. Это было в ведении Майкла Райта. Скорее всего, они с Дрейком сознательно спрятали его"_. ]]};
        {"Куда конкретно направился Уильям?", [[Фредерик Моро вздыхает: "У нас нет точных данных. И, похоже, их не было и у Блэка с Дрейком. Мы знаем, что их цель -- древний навьярский город". ]]};
        {tag="ask_more"};
        {tag="on_starlight", false, "Вы знаете Джозефа Старлайта?", function(s)
            char_moreau.starlight_asked = 2;
            return [[Фредерик Моро пожимает плечами: "Понятия не имею, о ком вы".]];
        end};
        {tag="on_drake", false, "Расскажите об Уильяме. ", function()
            char_moreau.drake_asked = 2;
            return [[Фредерик Моро отвечает: "Уильям Дрейк, безусловно, гениальный предприниматель и грамотный руководитель, однако он не достиг бы таких успехов, если бы работал один. Адриан Блэк всегда помогал ему управлять компанией. Майкл Райт придумал и построил многие суда компании. Уильям всегда понимал важность сотрудников Вестхейвен Трансоушен и оказывал и продолжает оказывать должное уважение всем нам". ]];
        end};
        {tag="on_black", false, "Расскажите об Адриане Блэке. ", function()
            char_moreau.black_asked = 2;
            return [[Фредерик Моро отвечает: "Адриан Блэк -- один из основателей Вестхейвен Трансоушен. Он совсем не похож на Уильяма -- осторожный и рассчетливый, он часто вступал в спор с Дрейком по поводу особенно рискованных предприятий. Ему мы тоже многим обязаны, но, если говорить честно, Уильям гораздо популярнее среди сотрудников". ]];
        end};
        {tag="on_darkstar", false, "Расскажите о Винсенте Даркстаре. ", function()
            char_moreau.darkstar_asked = 2;
            return [[Фредерик Моро отвечает: "О нем мало что известно, да он и неразговорчив. Впрочем, он справляется со своими обязанностями, и Дрейк доверяет ему". ]];
        end};
        {tag="on_svetlova", false, "Расскажите о Екатерине Светловой. ", function()
            char_moreau.svetlova_asked = 2;
            return [[Фредерик Моро отвечает: "Екатерина здесь только из-за навьяров. Ваш отец пригласил ее в Вестхейвен Трансоушен сразу после первой экспедиции Надежды. Сейчас она руководит исследованиями на Атлантиде и отлично справляется благодаря личной заинтересованности в этом". ]];
        end};
        {tag="on_moreau", false, "Расскажите о себе. ", function()
            char_moreau.moreau_asked = 2;
            return [[Фредерик Моро отвечает: "Я мало что могу рассказать. Мы с вашим отцом, Адрианом и Майклом вместе учились. Когда мы основали Вестхейвен Трансоушен, я остался в тени моих более талантливых друзей. Впрочем, меня, если честно, вполне устраивало такое положение. Сейчас, когда Уильям и Адриан отправились в свою экспедицию, мне пришлось занять пост руководителя станции, но я с радостью вернусь на свою прежнюю должность, как только они вернутся". ]];
        end};
        {tag="on_wright", false, "Расскажите о Майкле Райте. ", function()
            char_moreau.wright_asked = 2;
            return [[Фредерик Моро отвечает: "Майкл Райт в компании с самого основания. Он гениальный инженер и изобретатель. Атлантиду тоже спроектировал он и для него она стала смыслом существования. Майкл даже оставил жену и сына на поверхности в пользу возможности развивать станцию". ]];
        end};
        {tag="on_atlantis", false, "Расскажите об Атлантиде. ", function()
            char_moreau.atlantis_asked = 2;
            return [[Фредерик Моро отвечает: "Мы построили Атлантиду чтобы изучать навьяров. Для этого же мы собрали команду ученых, которую возглавила Екатерина Светлова. Станция постепенно росла, благодаря усилиям инженерной команды под руководством Майкла Райта. Мы пригласили сюда навьяров из ближайших поселений -- Леарр из Ираафаанотра и Ривеерра из Дипатреанотра. Можете поговорить с ними, если хотите -- они сейчас на станции". ]];
        end};
        {tag="on_navjiarr", false, "Что вы думаете о навьярах?", function()
            char_moreau.navjiarr_asked = 2;
            return [[Фредерик Моро отвечает: "Интересные существа. Наши ученые говорят, что они ближе к рыбам, чем к нам. Однако, они ходят на двух ногах, имеют руки, способны дышать воздухом и мыслить! Более подробно вам расскажут ученые, -- он делает небольшую паузу, -- Атлантида обязана им своим существованием. Если бы мы не встретили их при первой экспедиции, вряд ли кто-то стал бы строить эту станцию, тем более здесь. Первое время они создавали нам проблемы, но, к счастью, нам удалось их разрешить и наладить отношения с ними. Сейчас на станции проживают двое навьяров: Леарр и Ривеерр. Думаю, они не откажутся от разговора с вами". ]];
        end};
        {tag="on_learr", false, "Что вы думаете о Леарр?", function()
            char_moreau.learr_asked = 2;
            return [[Фредерик Моро отвечает: "Милая девушка, хоть и рыба. Она, конечно, порой бывает надоедлива ввиду своей излишней, на мой взгляд, любознательности, но вы себя на ее месте представьте -- она родилась и росла в своей примитивной деревне, а тут мы -- неспособные дышать в воде, зато способные строить поразительные машины. Нет ничего удивительного, что она только и делает, что носится между Окулусом и Террой, расспрашивая всех обо всем". ]];
        end};
        {tag="on_ryveerr", false, "Что вы думаете о Ривеерре?", function()
            char_moreau.ryveerr_asked = 2;
            return [[Фредерик Моро отвечает: "Я мало что могу о нем сказать. Он почти не покидает Окулус, общаясь только с учеными. Возможно их вам и стоит спросить о нем". ]];
        end};
        {always=true, "Вернемся к делу.", [[Фредерик Моро спрашивает: "Вы что-то хотели?"]], code [[ char_moreau_dlg:reset_more(); pret(); ]]};
		{tag="generic"};
        {tag="more_questions", "У меня есть несколько вопросов.", [[Моро кивает: "Да, конечно. Я слушаю".]], code [[ psub('ask_more'); ]]};
		{always = true, "Я пойду.", [[Моро прощается с вами: "До встречи, месье Дрейк". ]], code [[ back(); ]]};
	};
};

char_svetlova_dlg = dlg {
	var {
		state = 0;
		flag_help = false;
		flag_explain = false;
        dyp_quest = false;
	};
	nam = "Екатерина Светлова";
	disp = "Екатерина Светлова";
    reset_more = function(s)
        poff("on_drake", "on_black", "on_darkstar", "on_svetlova", "on_moreau", "on_wright", "on_atlantis", "on_navjiarr", "on_learr", "on_ryveerr", "more_questions");
        if (char_svetlova.drake_asked < 2) then pon("on_drake"); pon("more_questions"); end;
        if (char_svetlova.black_asked < 2) then pon("on_black"); pon("more_questions"); end;
        if (char_svetlova.darkstar_asked < 2) then pon("on_darkstar"); pon("more_questions"); end;
        if (char_svetlova.svetlova_asked < 2) then pon("on_svetlova"); pon("more_questions"); end;
        if (char_svetlova.moreau_asked < 2) then pon("on_moreau"); pon("more_questions"); end;
        if (char_svetlova.wright_asked < 2) then pon("on_wright"); pon("more_questions"); end;

        if (char_svetlova.atlantis_asked < 2) then pon("on_atlantis"); pon("more_questions"); end;

        if (char_svetlova.navjiarr_asked < 2) then pon("on_navjiarr"); pon("more_questions"); end;
        if (char_svetlova.learr_asked < 2) then pon("on_learr"); pon("more_questions"); end;
        if (char_svetlova.ryveerr_asked < 2) then pon("on_ryveerr"); pon("more_questions"); end;
        if (starlight_darkstar_status == 1 and char_svetlova.starlight_asked < 2) then pon("on_starlight"); pon("more_questions"); end;
    end;
	enter = function(s)
        s:reset_more();

        if atl_iyh_artifacts_on_atlantis and (
            atl_legend_of_temple_taken and not atl_legend_of_temple_commented or
            atl_legend_of_dark_source_taken and not atl_legend_of_dark_source_commented or
            atl_legend_of_first_city_taken and not atl_legend_of_first_city_commented or
            atl_legend_of_hunter_taken and not atl_legend_of_hunter_commented
        ) then
            pon("get_legends_with_comments_art");
        else
            poff("get_legends_with_comments_art");
        end;

        if not atl_iyh_artifacts_on_atlantis and (
            atl_legend_of_temple_read and not atl_legend_of_temple_commented or
            atl_legend_of_dark_source_read and not atl_legend_of_dark_source_commented or
            atl_legend_of_first_city_read and not atl_legend_of_first_city_commented or
            atl_legend_of_hunter_read and not atl_legend_of_hunter_commented
        ) then
            pon("get_legends_with_comments_copy");
        else
            poff("get_legends_with_comments_copy");
        end;

        if have(dyp_item_star_map) and not atl_star_map_comment_asked then
            pon("copy_star_map");
        end;

        if atl_star_map_comment_asked and not atl_star_map_commented then
            pon("copy_star_map_2");
        end;

        if dyp_quest_state == 1 and not s.dyp_quest then
            s.dyp_quest = true;
            pon('dyp_quest');
        end;

        poff("iyh1_learr", 'iyh1_repeat');
        if atl_iyh_state == 1 then
            if atl_iyh_learr_spoken and atl_iyh_ryveerr_spoken then
                pon('iyh1_learr');
            else
                pon('iyh1_repeat');
            end;
        end;

        if atl_iyh_state == 2 then
            pon('iyh2_repeat');
        else
            poff('iyh2_repeat');
        end;

        if atl_iyh_state == 10 then
            pon('ctt_repeat');
        else
            poff('ctt_repeat');
        end;

		if (s.state == 0) then
			psub('first_meeting');
            s.state = 1;
			return [[За столом сидит женщина лет сорока пяти. Золотистые волосы собраны в пучок на затылке. Она одета в простое синее платье. В правой руке она держит карандаш, которым периодически делает пометки в бумагах, лежащих на столе. ^Она отрывает взгляд от бумаг и приветствует вас: _"Добрый день, господин Дрейк. Мое имя -- Екатерина Светлова, я управляю исследованиями на Атлантиде. Даркстар сказал, что вы зайдете. ^Должна признать, вы нас всех изрядно напугали, появившись вот так внезапно. Однако, вы будете полезны нам. ^Я знаю, что вы ищете своего отца. Уходя в экспедицию, он не оставил нам почти никаких материалов -- они забрали с собой все: карты, схемы, переводы. Я прошу вас помочь нам решить некоторые проблемы. Взамен мы предоставим вам имеющиеся у нас ресурсы для поисков Уильяма"_.]];
        elseif (s.state == 2) then
			psub('ryveerr_on_steal');
			return [[Светлова отрывает взгляд от бумаг, лежащих перед ней и смотрит на вас: "Ну как? Поговорили с Ривеерром?" ]];
        else
            if (atl_iyh_state == 9) then
				atl_iyh_state = 10;
                conflict_resolved = true;
                if atl_iyh_shockfish_dead then
                    psub('iyh_more');
                    if (atl_iyh_artifacts_on_atlantis) then
                        -- навьяры не знают про гибель ската. Светловой пофиг
                        return [[Светлова отрывает взгляд от бумаг, лежащих перед ней, и смотрит на вас: "Добрый день, Дрейк. Благодаря вам отношения между Дипатреанотром и Ираафаанотром восстановлены. Мы изучили артефакты, найденные вами в храме, но, к сожалению для вас, не обнаружили ничего, что могло бы помочь найти Уильяма. Вы говорили, что нашли фрагмент карты. Можете показать его?" ]];
                    else
                        -- навьяры в ярости, Светлова тоже
                        return [[Светлова отрывает взгляд от бумаг, лежащих перед ней, и смотрит на вас: "Дрейк! Вы понимаете, что вы сделали?! Одним маленьким взрывом вы погубили годы работы по налаживанию отношений с навьярами! Конечно, вы решили проблему, но разве не было другого способа?!"^Чуть подождав, она сообщает: "К делу. Покажите фрагмент карты, который вы нашли". ]];
                    end;
                elseif atl_iyh_entrance_destroyed then
                    if (atl_iyh_artifacts_on_atlantis) then
                        -- навьяры не знают про разрушение храма. Светловой пофиг
                        psub('iyh_more');
                        return [[Светлова отрывает взгляд от бумаг, лежащих перед ней, и смотрит на вас: "Добрый день, Дрейк. Благодаря вам отношения между Дипатреанотром и Ираафаанотром восстановлены. Мы изучили артефакты, найденные вами в храме, но, к сожалению для вас, не обнаружили ничего, что могло бы помочь найти Уильяма. Вы говорили, что нашли фрагмент карты. Можете показать его?" ]];
                    else
                        -- Леарр все-таки вняла голосу разума и решила вернуться к вам
                        psub('learr_back');
                        return [[Светлова отрывает взгляд от бумаг, лежащих перед ней, и смотрит на вас: "Добрый день, Дрейк. Мы еще раз обсудили все с Леарр, она хотела бы вернуться в экипаж Левиафана. Вы возьмете ее?" ]];
                    end;
                else
                    psub('iyh_more');
                    if (atl_iyh_artifacts_on_atlantis) then
                        --Храм в целости, навьяры пляшут, Светлова довольна :)
                        return [[Светлова отрывает взгляд от бумаг, лежащих перед ней, и смотрит на вас: "Добрый день, Дрейк. Благодаря вам отношения между Дипатреанотром и Ираафаанотром восстановлены. Ваши действия в храме были воистину потрясающи. Мы не зря отправили туда именно вас. Мы изучили артефакты, найденные вами в храме, но, к сожалению для вас, не обнаружили ничего, что могло бы помочь найти Уильяма. Вы говорили, что нашли фрагмент карты. Можете показать его?" ]];
                    else
                        --Храм в целости, навьяры пляшут, Светлова довольна, но без артефактов :(
                        return [[Светлова отрывает взгляд от бумаг, лежащих перед ней, и смотрит на вас: "Добрый день, Дрейк. Благодаря вам отношения между Дипатреанотром и Ираафаанотром восстановлены. К сожалению, мы не смогли получить доступ к артефактам, добытым вами в храме. Вы говорили, что нашли фрагмент карты. Можете показать его?" ]];
                    end;
                end;
			else
				psub('generic');

				return [[Светлова отрывает взгляд от бумаг, лежащих перед ней и смотрит на вас: "Добрый день". ]];
			end;
		end;
	end;
	phr = {
        {tag = "first_meeting"};
		{"Как так получилось, что не осталось никакой информации?", [[Екатерина Светлова поясняет: "Блэк сильно торопил Уильяма и, едва закончив минимальные исследования, они отправились в Венаэданотр -- отдаленный навьярский город где-то к югу от Атлантиды. К сожалению, его точное местоположение нам неизвестно". ]], code [[ pon('venaedanotrr'); ]]};
        {"В чем заключается цель экспедиции?", [[Екатерина Светлова отвечает: "Дрейк и Блэк ищут Лсэрианотр -- легендарный навьярский город". ]], code [[pon('lseryanotrr')]]};
        {tag = "venaedanotrr", false, "Венаэданотр?", [[Екатерина Светлова отвечает: "Поселения навьяров раскинулись по всему океанскому дну. Мы точно знаем, что Венаэданотр расположен далеко к югу отсюда и точно знаем, что он значительно больше, нежели Ираафаанотр или Дипатреанотр. Дрейк и Блэк смогут многое рассказать о нем, когда вернутся из своей экспедиции". ]], code [[ pon("dypatreanotrr", "iraaphaanotrr");]]};
		{tag = "lseryanotrr", false, "Лсэрианотр?", [[Екатерина Светлова отвечает: "По легенде Лсэрианотр -- древний навьярский город, хранящий какие-то тайные знания их народа. Описания разнятся. В одних источниках говорится о страшном монстре, по имени Наэтвьирр, охраняющем город. В других этот же Наэтвьирр предстает как хранитель города и его тайн, призванный самими навьярами. Однако, во всех вариантах легенды именно Наэтвьирр выступает причиной того, что навьяры покидают Лсэрианотр. Мы предполагаем, что Наэтвьирр это какое-то морское чудовище, с которым древние навьяры просто не могли справиться и вынуждены были оставить город". ]]};
        {tag = "dypatreanotrr", false, "Дипатреанотр?", [[Екатерина Светлова отвечает: "Дипатреанотр расположен к востоку от Ираафаанотра. Как и Ираафаанотр, городом в полной мере он не является. В поселении нет даже улиц -- дома просто нагромождены вокруг центра. Впрочем, как вы понимаете, улицы навьярам и ни к чему". ]]};
        {tag = "iraaphaanotrr", false, "Ираафаанотр?", [[Екатерина Светлова отвечает: "Ираафаанотр -- самое близкое к Атлантиде поселение навьяров. Мы называем его городом, хотя по нашим меркам это даже не деревня. Полтора десятка домов, да несколько полей вокруг. И все же, навьяры Ираафаанотра сильно помогают нам, обменивая ресурсы, которые они добывают здесь, на более сложные вещи, производить которые самостоятельно они не способны". ]]};
		{"В чем заключается ваше предложение?", [[Екатерина Светлова откладывает бумаги в сторону, достает из ящика стола карту и раскладывает ее на столе. После чего продолжает: _"На самом деле, вы прибыли как нельзя вовремя. Наши отношения с навьярами несколько натянулись в последнее время, и, боюсь, разрешить разногласия поможете только вы. Я попробую кратко изложить ситуацию, задавайте вопросы по ходу рассказа, если вам потребуется дополнительная информация, -- Светлова делает небольшую паузу, -- Неподалеку от Атлантиды находятся два навьярских поселения: Ираафаанотр и Дипатреанотр. Первая встреча с жителями Дипатреанотра прошла не совсем гладко и в результате ее погибло несколько человек. К счастью, в дальнейшем отношения удалось наладить. Недавно, между Ираафаанотром и Дипатреанотром произошел конфликт, который может негативно повлиять на нас и наши отношения с этими городами. Мы пытались вмешаться, но это лишь обострило разногласия и в дальнейшем может поставить под угрозу само существование станции"_. ]], code [[ psub('help')]]};
		{tag = 'help'};
		{"И как я смогу помочь?", [[Екатерина Светлова поясняет: _"Навьяры не знают вас, никогда не видели на станции. Мы сможем представить вас как нейтральную сторону. Сейчас вам стоит поговорить с Леарр и Ривеерром и узнать их взгляд на ситуацию. Потом приходите ко мне и решим, что делать"_. ]], code [[
			char_svetlova_dlg.flag_help = true;
			if (char_svetlova_dlg.flag_explain) then
				psub("first_meeting_end");
			end;
		]]};
		{"И в чем суть этого конфликта?", [[Екатерина Светлова отвечает: "Все одновременно очень просто и очень сложно. Из Ираафаанотра и Дипатреанотра не так давно пропали ценные реликвии. Города обвиняют друг друга и непонятно, к чему это приведет. Мы не понимаем, что могло быть причиной этому -- никаких предпосылок к такому у навьяров не было. С самого основания станции города жили в мире и согласии. К несчастью, ни Дипатреанотр, ни Ираафаанотр не дают нам доступа в храмы, где хранились реликвии". ]], code [[
			char_svetlova_dlg.flag_explain = true;
			if (char_svetlova_dlg.flag_help) then
				psub("first_meeting_end");
			end;
		]]};
		{tag = "first_meeting_end"};
		{"Хорошо, я помогу вам. ", function(s)
                return [[Екатерина Светлова кивает: _"Поговорите с Леарр и Ривеерром, разберитесь, узнайте больше. Ривеерр большую часть времени находится здесь, в Окулусе. Леарр вы, скорее всего, найдете в Луне"_. ]];
        end, code [[
			char_svetlova_dlg.state = 1;
			atl_iyh_state = 1;
			psub("generic");
		]]};
		{"Я прибыл сюда искать своего отца, а не решать проблемы полуразумных рыбней.", [[Екатерина Светлова недовольно отвечает: "Если вы не станете помогать нам, мы не станем помогать вам. Можете сидеть и ждать возвращения Надежды". ]]};
        {tag = "ask_more"};
        {tag="on_starlight", false, "Вы знаете Джозефа Старлайта?", function(s)
            char_svetlova.starlight_asked = 2;
            return [[Екатерина Светлова отрицательно качает головой: "Определенно нет. Это имя мне незнакомо".]];
        end};
        {tag = "on_drake", false, "Расскажите об Уильяме. ", function()
            char_svetlova.drake_asked = 2;
            return [[Екатерина Светлова отвечает: "Дрейк смог многого достигнуть и, хотя он работал не один, именно благодаря его таланту Вестхейвен Трансоушен просуществовала многие годы. Меня всегда удивляло его чутье -- он часто принимает странные, но, в конечном итоге, выгодные решения. Боюсь, когда-нибудь это чутье подведет его". ]];
        end};
        {tag = "on_black", false, "Расскажите об Адриане Блэке. ", function()
            char_svetlova.black_asked = 2;
            return [[Екатерина Светлова отвечает: "Блэк и Дрейк всегда работали вместе. Там где Дрейк готов пойти на риск, Блэк предлагает поступить осторожно. Зачастую Дрейк полностью передает управление в руки Блэка и Блэк всегда хорошо справляется. В свою очередь, Дрейк всегда умел собирать вокруг себя правильных людей, чего Блэк никогда бы не смог". ]];
        end};
        {tag="on_darkstar", false, "Расскажите о Винсенте Даркстаре. ", function()
            char_svetlova.darkstar_asked = 2;
            return [[Екатерина Светлова отвечает: "Если вы уже говорили с ним, то вы и так все знаете. Вы можете посчитать его чрезмерно осторожным, но для его должности это скорее достоинство, чем недостаток. Не знаю, что творится у него в голове и почему он вообще занимается этим здесь, но пока у нас нет причин не доверять ему". ]];
        end};
        {tag="on_svetlova", false, "Расскажите о себе. ", function()
            char_svetlova.svetlova_asked = 2;
            return [[Екатерина Светлова отвечает: "Не знаю, что вам рассказать. Я родилась в России, но образование получала уже в Европе, во Франции. После завершения обучения, я занималась некоторыми исследованиями в своей области, отправлялась с несколькими экспедициями в различные уголки света. А потом на меня вышел Фредерик Моро -- я тогда как раз искала возможности для новой экспедиции, Атлантиды тогда еще не было, но уже была Надежда и в Вестхейвен Трансоушен уже знали про навьяров. Потом была построена Атлантида и вот я здесь, занимаюсь делом всей моей жизни". ]];
        end};
        {tag="on_moreau", false, "Расскажите о Фредерике Моро. ", function()
            char_svetlova.moreau_asked = 2;
            return [[Екатерина Светлова отвечает: "С Фредериком Моро я познакомилась раньше, чем с другими руководителями Вестхейвен Трансоушен. Хотя он и работает в компании с самого ее основания, его имя звучит гораздо реже, чем имена Блэка и Дрейка, однако, вклад Моро в развитие Вестхейвен Трансоушен трудно переоценить. Со всей своей скрупулезностью и точностью, он умело управлял ресурсами компании и продолжает это делать на Атлантиде. Что меня в нем удивляет, так это то, что он, при всех своих способностях, предпочитает оставаться в тени Дрейка и Блэка". ]];
        end};
        {tag="on_wright", false, "Расскажите о Майкле Райте. ", function()
            char_svetlova.wright_asked = 2;
            return [[Екатерина Светлова отвечает: "Без Майкла Райта Вестхейвен Трансоушен никогда не достигла бы вершин. Сперва все более и более быстроходные и комфортабельные суда, а затем и Надежда с Атлантидой -- все было придумано им. Он напоминает мне безумного изобретателя из фантастической книжки, за исключением того, что не пытается захватить мир". ]];
        end};
        {tag="on_atlantis", false, "Расскажите об Атлантиде. ", function()
            char_svetlova.atlantis_asked = 2;
            return [[Екатерина Светлова отвечает: "Атлантида была построена с единственной целью -- быть ближе к навьярам, получить возможность изучать их. Майкл Райт, конечно, скажет вам другое и будет по-своему прав -- в конце концов, станцию придумал именно он". ]];
        end};
        {tag="on_navjiarr", false, "Что вы думаете о навьярах? ", function()
            char_svetlova.navjiarr_asked = 2;
            return [[Екатерина Светлова отвечает: "Удивительные создания. Я никогда не поверила бы в их существование, если бы не видела их собственными глазами. Хотя они кажутся крайне примитивными на первый взгляд, у них богатая и интересная культура. К сожалению, сейчас они пребывают в некотором упадке. На многие вопросы, которые мы им задаем -- как они строят свои храмы, откуда достают материалы, кем созданы их реликвии, они отвечают туманными легендами о древних временах и дальних местах. К сожалению, их картографическая система настолько запутана, что многие из них путаются в ней". ]];
        end};
        {tag="on_learr", false, "Что вы думаете о Леарр? ", function()
            char_svetlova.learr_asked = 2;
            return [[Екатерина Светлова отвечает: "Леарр -- просто находка для нас всех. Она гораздо меньше скована догмами, чем другие, более старые, представители ее племени. Приятно наблюдать, как она с легкостью впитывает наши знания и с готовностью делится своими". ]];
        end};
        {tag="on_ryveerr", false, "Что вы думаете о Ривеерре? ", function()
            char_svetlova.ryveerr_asked = 2;
            return [[Екатерина Светлова отвечает: "Ривеерр -- достаточно дружелюбный и приятный навьяр. Его интеллект позволяет нам общаться с ним практически на равных, с поправкой на отсутствие некоторых знаний и понимания многих известных нам вещей". ]];
        end};
        {always=true, "Вернемся к делу.", [[Светлова кивает: "Говорите".]], code [[ char_svetlova_dlg:reset_more(); pret(); ]]};
        {tag="generic"};
        {tag="copy_star_map", false, "[Показать карту небесных огней] Что вы думаете об этом предмете? Это карта небесных огней -- одна из реликвий Ираафаанотра. ", [[Екатерина Светлова берет карту из ваших рук и долго и внимательно осматривает. Наконец, она говорит: "Очень интересно. Мне понадобится время, чтобы изучить ее. Я сообшу вам, когда все будет готово". ]], code [[ atl_star_map_comment_asked = true; remove(dyp_item_star_map, me()); walk("cutscene_wait_for_copy"); ]]};
        {tag="copy_star_map_2", false, "Я пришел за картой небесных огней. ", [[Екатерина Светлова возвращает вам карту небесных огней и небольшой лист бумаги. Она сообщает: "Вам стоит изучить это повнимательнее. Мне удалось извлечь эти числа из карты и понять, что они служат ключом. Но от чего этот ключ, я не имею ни малейшего понятия. Вы говорили, что нашли еще записи навьяра, который отправился искать что-то с помозью этой карты. Думаю, ответ стоит искать в них". ]], code [[ atl_star_map_commented = true; take(dyp_item_star_map);take(dyp_item_star_map_hint);]]};
        {tag="dyp_quest", false, "Вождь Дипатреанотра просил меня принести \"светяющуюся капсулу\". Что мы можем ему предложить?", [[Екатерина Светлова отвечает: "Поговорите с Райтом, он найдет что-нибудь, что можно отдать навьярам". ]]};
        {tag="iyh1_learr", false, "Я поговорил с навьярами. Леарр отрицает причастность Ираафаанотра к краже реликвии из Дипатреанотра. Ривеерр же открыто признает, что навьяры Дипатреанотра забрали ценности из Ираафаанотра.", [[Светлова разводит руками: "Теперь вы в курсе ситуации. Однако, у нас есть зацепка -- записи Уильяма. Он мало что оставил нам, но среди найденного есть следующее сообщение", -- Екатерина достает из ящика блокнот и передает вам.^ Вы читаете следующее: "...карты давно утеряны, но отшельник в старом храме обещал помочь. Понятия не имею, что и как он сделает, но если это поможет найти Лсэрианотр -- пусть делает, что считает нужным". ]], code [[ psub('iyh1_sub'); ]]};
        {tag="iyh1_repeat", false, "Что я должен сделать?", [[Светлова отвечает: "Нам нужно разрешить конфликт между Ираафаанотром и Дипатреанотром. Поговорите с Леарр и Ривеерром здесь, на Атлантиде, чтобы узнать суть конфликта. Потом возвращайтесь ко мне". ]]};
        {tag="iyh2_repeat", false, "Что я могу еще сделать?", [[Светлова отвечает: "Вы хотели осмотреть храм Дипатреанотра на предмет следов кражи. Перед отправлением, я советую вам поговорить с навьярами на станции". ]]};
        {tag="ctt_repeat", false, "Что я могу еще сделать?", [[Светлова отвечает: "Больше я вам ничем помочь не могу. Если вы хотите найти Лсэрианотр, я советую начать с Ираафаанотра и Дипатреанотра". ]]};
        {tag="get_legends_with_comments_art", "Вы можете что-то сказать об артефактах, найденных в храме?", function(s)
            atl_legend_of_temple_read = atl_legend_of_temple_taken;
            atl_legend_of_temple_commented = atl_legend_of_temple_taken;

            atl_legend_of_dark_source_read = atl_legend_of_temple_taken;
            atl_legend_of_dark_source_commented = atl_legend_of_temple_taken;

            atl_legend_of_first_city_read = atl_legend_of_temple_taken;
            atl_legend_of_first_city_commented = atl_legend_of_temple_taken;

            atl_legend_of_hunter_read = atl_legend_of_temple_taken;
            atl_legend_of_hunter_commented = atl_legend_of_temple_taken;
            return [[Екатерина Светлова передает вам несколько листов бумаги, которые вы вкладываете в книгу: "Здесь вы найдете все, что мне пока удалось узнать". ]];
        end};
        {tag="get_legends_with_comments_copy", "В старом храме я нашел несколько текстов. [Передать записи]", function(s)
            atl_legend_of_temple_commented = atl_legend_of_temple_read;
            atl_legend_of_dark_source_commented = atl_legend_of_dark_source_read;
            atl_legend_of_first_city_commented = atl_legend_of_first_city_read;
            atl_legend_of_hunter_commented = atl_legend_of_hunter_read;

            pr [[Екатерина Светлова берет ваши записи и просматривает их. Потом она достает карандаш и начинает записывать свои комментарии. Закончив, она возвращает вам бумаги со словами: "Думаю, это будет вам полезно. Я записала все, что думаю по поводу этих текстов". ]];
        end};
        {tag="more_questions", "У меня есть несколько вопросов.", [[Светлова кивает: "Спрашивайте".]], code [[ psub('ask_more'); ]]};
		{always = true, "Я пойду.", [[Светлова возвращается ко своим бумагам: "До встречи". ]], code [[ back(); ]]};
        {tag= "iyh1_sub"};
        {"Старый храм?", [[Светлова пожимает плечами: "К сожалению, у меня нет ничего кроме намеков. Предполагаю, что где-то здесь может быть еще один храм навьяров, возможно стоит расспросить их?" ]]};
        {"Я хотел бы посетить храм Дипатреанотра.", [[Светлова отвечает: "Не думаю, что это хорошая идея. Навьяры не пускают никого внутрь". ]], code [[ pon('outside');]]};
        {tag = "outside", false, "Возможно, самое интересное находится снаружи храма.", [[Светлова соглашается: "Возможно. В любом случае прошло уже слишком много времени, и вряд ли хоть какие-то следы сохранились. Я даю вам разрешение отправиться туда. Но перед этим, вам лучше поговорить с навьярами на станции". Екатерина достает из ящика стола свернутую карту и передает вам со словами: "Это поможет вам найти храм". ]], code [[ dypatreanotrr_temple_found = true; dypatreanotrr_found = true; atl_iyh_state = 2; pret(); ]]};
		{tag="secret_op"};
		{"Хорошо, я ничего не скажу навьярам. ", [[Екатерина Светлова отвечает: "Отлично. Осталось дождаться, когда вам позволят покидать станцию". ]], code [[ back(); ]]};
		{"Мне кажется, нам стоит поставить их в известность. Как они отреагируют, если мы просто принесем им реликвию? ", [[Екатерина Светлова отвечает: "Они будут благодарить нас. А теперь представьте, что вы сообщаете им, что отправляетесь в их священное место охотиться на их священную рыбу. Что будет?" ]], code [[ psub("so_answer"); ]]};
		{tag="so_answer"};
		{"Да, пожалуй вы правы", [[Екатерина Светлова отвечает: "Отлично. Осталось дождаться, когда вам позволят покидать станцию". ]]};
		{"А что будет, если мы принесем им реликвию, которая должна по их мнению быть в Ираафаанотре? Разве они не посчитают, что мы украли ее оттуда? ", [[Екатерина Светлова недовольно отвечает: "Поступайте как знаете. Если ваши действия повредят станции, то Левиафана вам не видать". ]], code [[ back(); ]]};
        {tag="learr_back"};
        {"Конечно, Леарр будет крайне полезна в нашей экспедиции.", [[Леарр, все это время молча стоявшая рядом, отвечает: "Я благодарю тебя-Дрейк. Ты помог нам-Ираафаанотру-и-Дипатреанотру. Я разрушение-храма-понимаю. Другого-пути не-было". ^Светлова кивает: "Этот вопрос решен. Переходим к следующему. Вы говорили, что нашли фрагмент карты. Можете показать его?"]], code [[
            table.insert(pl.party, 'learr');
            move(char_learr, char_learr.home);
            remove("char_learr_atlantis", where("char_learr_atlantis"));
            psub("iyh_more");
        ]]};
        {"Нет, мы справимся без ее помощи.", [[Леарр, все это время молча стоявшая рядом, кивает: "Я предпочла-бы-участвовать-в-экспедиции".]], code [[
            psub("learr_back2");
        ]]};
        {tag="learr_back2"};
        {"Хорошо, возвращайся на Левиафан.", [[Леарр отвечает: "Я благодарю тебя-Дрейк. Ты помог нам-Ираафаанотру-и-Дипатреанотру. Я разрушение-храма-понимаю. Другого-пути не-было". ^Светлова кивает: "Этот вопрос решен. Переходим к следующему. Вы говорили, что нашли фрагмент карты. Можете показать его?" ]], code [[
            table.insert(pl.party, 'learr');
            move(char_learr, char_learr.home);
            remove("char_learr_atlantis", where("char_learr_atlantis"));
            psub("iyh_more");
        ]]};
        {"Нет, оставайся на Атлантиде.", [[Леарр разочарованно отвечает: "Я на-Атлантиде-останусь", -- и выходит из комнаты. ^Светлова качает головой: "Вы зря отказались от ее помощи, Дрейк. Навьяр на борту мог бы оказаться очень полезен. Но, к делу. Вы говорили, что нашли фрагмент карты. Можете показать его?" ]], [[
            move("char_learr_atlantis", "atl_oculus_library");
            psub("iyh_more");
        ]]};
        {tag="iyh_more"};
        {"[Передать фрагмент карты] Да, конечно. Мы нашли это в скрытом помещении в храме.", [[Екатерина Светлова с интересом рассматривает табличку: "Удивительно, эта карта сильно отличается от других навьярских карт, которые мы видели. Обратите внимание, на количество деталей -- здесь не только отмечены условными символами три-четыре ориентира. Здесь их сотни, если не тысячи. Попробуйте разузнать побольше в Ираафаанотре и Дипатреанотре". Екатерина Светлова сообщает вам местонахождение Ираафаанотра. ]], code [[
            iraaphaanotrr_found = true;
            dypatreanotrr_found = true;
            psub("generic");
        ]]};
	};
};

char_michael_wright_dlg = dlg {
    var {
        state = 0;
        dyp_quest = false;
        goldman_asked = false;
        leroy_asked = false;
        jones_asked = false;
    };
    nam = "Майкл Райт";
    disp = "Майкл Райт";

    reset_more = function(s)
        poff("on_drake", "on_black", "on_darkstar", "on_svetlova", "on_moreau", "on_wright", "on_leroy", "on_jones", "on_goldman", "on_atlantis", "on_navjiarr", "on_learr", "on_ryveerr", "more_questions", "mtr_on_replace", "mtr_solis_last", "mtr_on_jones", "mtr_on_leroy", "mtr_on_goldman");
        if atl_mtr_started and not atl_mtr_finished then
            if not atl_mtr_ask_radcliffe then
                if atl_mtr_know_jones_replaced_goldman then
                    pon("mtr_on_replace");
                end;

                pon("mtr_solis_last");
            else
                if not s.jones_asked then
                    pon("mtr_on_jones");
                end;
            end;

            if atl_mtr_know_goldman_lost_clock and not s.leroy_asked then
                pon("mtr_on_leroy");
            end;

            if atl_mtr_know_goldman_lost_clock and not s.goldman_asked then
                pon("mtr_on_goldman");
            end;
        end;

        if (char_michael_wright.drake_asked < 2) then pon("on_drake"); pon("more_questions"); end;
        if (char_michael_wright.black_asked < 2) then pon("on_black"); pon("more_questions"); end;
        if (char_michael_wright.darkstar_asked < 2) then pon("on_darkstar"); pon("more_questions"); end;
        if (char_michael_wright.svetlova_asked < 2) then pon("on_svetlova"); pon("more_questions"); end;
        if (char_michael_wright.moreau_asked < 2) then pon("on_moreau"); pon("more_questions"); end;
        if (char_michael_wright.wright_asked < 2) then pon("on_wright"); pon("more_questions"); end;

        if (char_michael_wright.atlantis_asked < 2) then pon("on_atlantis"); pon("more_questions"); end;
        if (char_michael_wright.navjiarr_asked < 2) then pon("on_navjiarr"); pon("more_questions"); end;
        if (char_michael_wright.learr_asked < 2) then pon("on_learr"); pon("more_questions"); end;
        if (char_michael_wright.ryveerr_asked < 2) then pon("on_ryveerr"); pon("more_questions"); end;
        if (starlight_darkstar_status == 1 and char_michael_wright.starlight_asked < 2) then pon("on_starlight"); pon("more_questions"); end;
    end;

    enter = function(s)
        if (atl_nih_state == 0 and atl_jack_in_party) then
            atl_nih_state = 3;
        end;

        if have(dyp_item_star_map) and not atl_star_map_copied then
            pon("copy_star_map");
        end;

        if dyp_quest_state == 1 and not s.dyp_quest then
            s.dyp_quest = true;
            pon('dyp_quest');
        end;
        poff('nih_fixed');
        if atl_nih_state == 2 or atl_nih_state == 1 then
            pon('nih_fixed');
        end;

        s:reset_more();

        if (atl_nih_state == 3 and atl_fta_state == 0) then
            atl_fta_state = 1;
            psub("fta_agree");
            return [[Майкл Райт просматривает какие-то чертежи. Как только вы подходите, он отвлекается и приветствует вас: "Добрый день. У меня есть для вас работа. Сейчас все наши бригады заняты, поэтому я прошу вас помочь с обслуживанием Солиса. Отправляйтесь туда и свяжитесь со мной по телефону, я дам вам инструкции". ]];
        elseif (atl_fta_state == 2) then
            atl_fta_state = 3;
            psub("fta_deb");
            return [[Майкл Райт протягивает вам руку: "Только благодаря вам, мы все еще здесь. Я с радостью сообщу Моро, что я за возвращение вам Левиафана". ]];
        else
            if atl_fta_state == 1 then
                pon('fta_repeat');
            else
                poff('fta_repeat');
            end;

            psub("generic");
            return [[Майкл Райт просматривает какие-то чертежи. Как только вы подходите, он отвлекается и приветствует вас: "Добрый день. Чем могу быть полезен?" ]];
        end;
    end;
    phr = {
        {tag="fta_agree"};
        {"Хорошо, я сделаю, что смогу. ", [[Майкл Райт спрашивает: "Вы что-то еще хотели?" ]], code [[psub("generic"); ]]};
        {tag="fta_deb"};
        {"[Пожать руку] Надеюсь, что и вы сможете помочь мне.", function(s)
            if atl_iyh_state == 0 then
                return [[Майкл Райт кивает: "Мы сделаем все возможное. Светлова попросила меня направить вас к ней. У нее есть для вас дело, которое может помочь вам в поисках Уильяма". ]]
            else
                return [[Майкл Райт кивает: "Мы сделаем все возможное. Светлова сказала мне, что вы помогаете ей в решении каких-то проблем с навьярами. По ее мнению, это может помочь вам в поисках". ]]
            end;
        end, code [[ psub('generic'); ]]};
        {"Отлично, мне не терпится убраться отсюда.", [[Майкл Райт с сожалением произносит: "Не все так просто. Нужно, чтобы согласие дали еще Моро, Даркстар и Светлова". ]], code [[ psub('generic'); ]]};
        {tag="ask_more"};
        {tag="on_starlight", false, "Вы знаете Джозефа Старлайта?", function(s)
            char_michael_wright.starlight_asked = 2;
            return [[Майкл Райт задумывается на некоторое время: "Кажется я слышал это имя, но лично с ним не знаком". ]];
        end};
        {tag="on_drake", false, "Расскажите об Уильяме. ", function()
            char_michael_wright.drake_asked = 2;
            return [[Майкл Райт отвечает: "Я познакомился с вашим отцом во время нашей учебы в университете. Он никогда не относился серьезно к учебе, но уже тогда он умел собирать вокруг себя людей. Создание Вестхейвен Трансоушен было его идеей. Я помню, как мы с Моро первое время очень сомневались, стоит ли ввязываться в подобную авантюру. Дрейк активно развивал компанию, пока она существовала. Наверное, любой другой на месте Дрейка отправил бы меня лечиться, услышав мое предложение создать подводный корабль. Уильям тогда внимательно выслушал меня, задал пару вопросов и выделил деньги на проект". ]];
        end};
        {tag="on_jack", false, "Расскажите о своем сыне. ", function()
            char_michael_wright.jack_asked = 2;
            if (atl_jack_in_party) then
                return [[Майкл Райт отвечает: "Мой сын, Джек, остался на поверхности вместе с моей женой, Элис. Я оставил им дом и немаленькое состояние, в надежде, что они справятся сами. Жаль, что все так получилось. Элис умерла, а Джек потратил лучшие годы на безуспешные попытки найти меня. Спасибо, что взяли моего сына с собой". ]];
            else
                psub("son");
                return [[Майкл Райт отвечает: "Мой сын, Джек, остался на поверхности вместе с моей женой, Элис. Я оставил им дом и немаленькое состояние, так что надеюсь, что у них все хорошо". ]];
            end;
        end};
        {tag="on_black", false, "Расскажите об Адриане Блэке. ", function()
            char_michael_wright.black_asked = 2;
            return [[Майкл райт отвечает: "Адриан -- университетский друг вашего отца. Он всегда уравновешивал Дрейка во многих отношениях. Там где Дрейк готов был пойти на риск, Блэк призывал к осторожности. Там где Дрейк соглашался на уступки, Блэк стоял до последнего. К слову, мою идею с субмариной Адриан не одобрил. К счастью, ваш отец все же позволил мне этим заняться". ]];
        end};
        {tag="on_darkstar", false, "Расскажите о Винсенте Даркстаре ", function()
            char_michael_wright.darkstar_asked = 2;
            return [[Майкл Райт отвечает: "Я почти ничего о нем не знаю. Впрочем, не думаю, что кто-то на станции может сказать о нем что-то. Параноидальный тип. Я вообще не понимаю, как он согласился сюда пеерехать. Тогда он мне целый допрос устроил -- чуть ли не в каждую линию на чертеже тыкал и спрашивал для чего это нужно. Думаю, мне стоит гордиться, что Атлантида прошла его проверку". ]];
        end};
        {tag="on_svetlova", false, "Расскажите о Екатерине Светловой. ", function()
            char_michael_wright.svetlova_asked = 2;
            return [[Майкл Райт отвечает: "Екатерина присоединилась к нам достаточно поздно -- уже после испытаний Надежды. Странно, что ей не пришла в голову идея построить Атлантиду. Впрочем, ее мало интересует техническая сторона вопроса -- она здесь чтобы изучать навьяров и не скрывает это". ]];
        end};
        {tag="on_moreau", false, "Расскажите о Фредерике Моро. ", function()
            char_michael_wright.moreau_asked = 2;
            return [[Майкл Райт отвечает: "Фредерик с нами с самого начала. Хотя его влияние может показаться незначительным -- многие на станции даже не слышали о нем, пока он не занял пост управляющего -- он все же делал важное дело. Благодаря ему мы смогли завершить многие проекты вовремя, ведь за все поставки материалов отвечал именно он. С управлением станцией он так же справляется неплохо, хотя здесь все гораздо проще, чем было на поверхности". ]];
        end};
        {tag="on_wright", false, "Расскажите о себе. ", function()
            char_michael_wright.wright_asked = 2;
            if (atl_jack_in_party) then
                return [[Майкл Райт отвечает: "Родился я в Лондоне. Окончил один из местных университетов, получив специальность инженера-кораблестроителя. Вместе с вашим отцом, Фредериком Моро и Адрианом Блэком мы основали Вестхейвен Трансоушен. Поначалу моя работа была далеко не идеальной -- мы купили несколько старых кораблей и привели их в порядок. Мы довольно быстро заработали хорошую репутацию. Дела шли на подъем и, наконец, у нас появились собственные верфи. К этому времени я уже имел глупость жениться. Я спроектировал несколько судов для компании. Лучшим была Огненная Стрела -- быстроходный комфортабельный пароход, вмещающий больше двух сотен пассажиров. Ну и наконец мы построили Надежду. Сказать, что мы удивилсь, когда встретили навьяров -- ничего не сказать. К сожалению, встреча не прошла бескровно -- наши люди просто вышли поговорить, показать себя. А эти рыбни закидали несчастных супругов Барнз копьями! Блэк тогда не дал мне пустить торпеду в этих уродов, и я до сих пор зол на него за это, хотя умом понимаю, что он был прав. Да и не было бы никакой Атлантиды, убей я тогда тех навьяров. Несколько месяцев мы обсуждали, что делать дальше. Потом мы с Сильвией придумали Атлантиду и переселились сюда, -- Райт вздыхает, -- В своем увлечении я позабыл обо всем. Я оставил свою жену, Элис, и сына, Джека, на поверхности. Если честно, я скорее жалею, о том что женился, чем о том, что оставил их там. Это не делает мою ошибку меньше". ]];
            else
                return [[Майкл Райт отвечает: "Родился я в Лондоне. Окончил один из местных университетов, получив специальность инженера-кораблестроителя. Вместе с вашим отцом, Фредериком Моро и Адрианом Блэком мы основали Вестхейвен Трансоушен. Поначалу моя работа была далеко не идеальной -- мы купили несколько старых кораблей и привели их в порядок. Мы довольно быстро заработали хорошую репутацию. Дела шли на подъем и, наконец, у нас появились собственные верфи. К этому времени я уже имел глупость жениться. Я спроектировал несколько судов для компании. Лучшим была Огненная Стрела -- быстроходный комфортабельный пароход, вмещающий больше двух сотен пассажиров. Ну и наконец мы построили Надежду. Сказать, что мы удивилсь, когда встретили навьяров -- ничего не сказать. К сожалению, встреча не прошла бескровно -- наши люди просто вышли поговорить, показать себя. А эти рыбни закидали несчастных супругов Барнз копьями! Блэк тогда не дал мне пустить торпеду в этих уродов, и я до сих пор зол на него за это, хотя умом понимаю, что он был прав. Да и не было бы никакой Атлантиды, убей я тогда тех навьяров. Несколько месяцев мы обсуждали, что делать дальше. Потом мы с Сильвией придумали Атлантиду и переселились сюда". ]];
            end;
        end};
        {tag="on_atlantis", false, "Расскажите об Атлантиде. ", function()
            char_michael_wright.atlantis_asked = 2;
            return [[Майкл Райт отвечает: "Идея построить постоянную подводную станцию пришла мне в голову через некоторое время после завершения Надежды. Думаю, что не встреть мы тогда навьяров, Дрейк не позволил бы мне заниматься этим. Но его явно заинтересовала возможность постоянного пребывания вблизи этих рыбней. Конечно, если бы не Сильвия, я никогда не смог бы сделать станцию автономной -- я долго думал, как обеспечить нас всем необходимым здесь: едой, электричеством, воздухом, инструментами. Еду и воздух мы получаем в секции Аэрис. Электричество получаем, сжигая топливо нескольких видов: растения, выращиваемые в Аэрисе и уголь, выменянный у навьяров. С инструментами дела обстоят сложнее всего. Но тут нас снова выручают навьяры, с готовностью предлагающие нам металл, который они не умеют обрабатывать". ]];
        end};
        {tag="on_navjiarr", false, "Что вы думаете о навьярах? ", function()
            char_michael_wright.navjiarr_asked = 2;
            return [[Майкл Райт отвечает: "Они меня мало волнуют. Хотя станция существует во многом благодаря сотрудничеству с ними, я предпочитаю поменьше общаться с ними. У меня все еще стоят перед глазами проткнутые коралловыми копьями тела Ребекки и Нила". ]];
        end};
        {tag="on_learr", false, "Что вы думаете о Леарр? ", function()
            char_michael_wright.learr_asked = 2;
            return [[Майкл Райт отвечает: "Она часто бывает здесь. Рассматривает все, изучает. Это не может меня не радовать". ]];
        end};
        {tag="on_ryveerr", false, "Что вы думаете о Ривеерре? ", function()
            char_michael_wright.ryveerr_asked = 2;
            return [[Майкл Райт отвечает: "Не думаю, что смогу много о нем сказать. Большую часть времени он проводит в Окулусе. Если вы хотите узнать о Ривеерре больше, советую поспрашивать там". ]];
        end};
        {always=true, "Вернемся к делу.", [[Майкл Райт кивает: "Хорошо".]], code [[ char_michael_wright_dlg:reset_more(); pret(); ]]};
        {tag="generic"};
        {tag="mtr_solis_last", false, "Кто был в Солисе последним?", [[Райт достает записную книжку, пролистывает ее и сообщает: "Вчера обслуживанием Солиса должен был заниматься Чарли Джонс. Меня здесь не было, но вы можете уточнить у Уолтера Рэдклиффа".]], code [[ poff("mtr_on_replace"); pon("mtr_on_jones"); atl_mtr_ask_radcliffe = true; atl_mtr_know_jones_in_solis = true;  ]]};
        {tag="mtr_on_replace", false, "Голдман говорит, что вчера его заменял Джонс. Вы можете это проверить?", [[Райт кивает и достает записную книжку. Пролистав ее он сообщает: "Да, действительно. Вчера обсулуживанием Солиса должен был заниматься Чарли Джонс. Меня здесь на было, но вы можете уточнить у Уолтера Рэдклиффа". ]], code [[ poff("mtr_solis_last"); atl_mtr_ask_radcliffe = true; atl_mtr_know_jones_in_solis = true; ]]};
        {tag="mtr_on_leroy", false, "Что вы думаете о Мишеле Леруа? ", [[Майкл рассказывает: "Мишель -- хороший специалист. Он столь же сосредоточен и уверен в работе, сколь и в повседневной жизни. Он всегда выступал против переселения на Атлантиду и постоянно напоминает нам о том, что пора бы вернуться на поверхность". ]], function(s)
            char_michael_wright_dlg.leroy_asked = true;
            atl_mtr_know_leroy_views = true;
        end};
        {tag="mtr_on_jones", false, "Что вы думаете о Чарли Джонсе? ", [[Майкл рассказывает: "Чарли уже староват. Зачастую приходится искать ему менее тяжелую работу, но это компенсируется его незаурядным умом и отличным знанием устройства Атлантиды. Он может сказать вам, что считает станцию ненадежной и устаревшей, но, я думаю, он преувеличивает". ]], function(s)
            char_michael_wright_dlg.jones_asked = true;
            atl_mtr_know_jones_views = true;
        end};
        {tag="mtr_on_goldman", false, "Что вы думаете о Леонарде Голдмане? ", [[Майкл рассказывает: "Вас, наверное, удивляет, что такой неаккуратный и забывчивый человек как Леонард делает на станции, однако, смею вас заверить -- как специалист господин Голдман соврешенно незаменим. Когда дело касается обслуживания станции он ни разу не позволял себе оплошностей. Последнее время он много говорит о том, что ему надоело это все и он хочет на поверхность". ]], function(s)
            char_michael_wright_dlg.goldman_asked = true;
            atl_mtr_know_goldman_views = true;
        end};
        {tag="dyp_quest", false, "Вождь Дипатреанотра просил меня принести \"светящуюся капсулу\". Что мы можем ему предложить?", [[ Майкл Райт говорит: "Можете взять один из фонарей из того шкафа", -- Майкл показывает рукой на шкаф в другом конце мастерской, -- "Наверное, надо будет что-нибудь придумать, чтобы она светила подольше -- батареи хватит максимум на час". ]], code [[ item_electric_lamp:enable(); ]]};
        {tag="fta_repeat", false, "Напомните, что мне нужно сделать?", [[Майкл Райт отвечает: "Я прошу вас помочь с обслуживанием Солиса. Отправляйтесь туда и свяжитесь со мной по телефону, я дам вам инструкции". ]]};
        {tag="nih_fixed", false, "Я нашел утечку.", function(s)
            if atl_nih_state == 2 then
                atl_nih_state = 3;
                disable_nih();
                return [[Майкл Райт кивает: "Спасибо, Дрейк. Приборы показывают, что утечка устранена". ]]
            else
                return [[Майкл Райт отрицательно качает головой: "Что-то не так. Приборы показывают, что утечка все еще присутствует. Возможно, были повреждены несколько труб. Перепроверьте, пожалуйста". ]]
            end;
        end};
        {tag="copy_star_map", false, "[Показать карту небесных огней] Что вы думаете об этом предмете? Это карта небесных огней -- одна из реликвий Ираафаанотра. Вы сможете сделать ее копию?", function(s)
            atl_star_map_copied = true;
            take(dyp_item_star_map_copy);
            return [[Майкл Райт берет у вас карту и некоторое время ее тщательно осматривает. Затем он сообщает: "Да, мы сделаем копию. Подождите немного".^Майкл выходит из цеха. Несколько часов спустя он возвращается с двумя идентичными табличками. ^"Держите", -- произносит он и протягивает вам их. Лишь приглядевшись, вы замечаете отличия -- линии на копии менее ровные, зато лист металла выглядит менее старым и имеет гораздо меньше царапин. ]];
        end};
        {tag="more_questions", "У меня есть несколько вопросов.", [[Майкл Райт отвечает: "Задавайте, посмотрим чем смогу помочь".]], code [[ psub('ask_more'); ]]};
        {always=true, "Мне пора.", function(s)
            if (atl_nih_state == 0 and not atl_jack_in_party) then
                atl_nih_init();
                pr([["Кстати, у меня есть для вас небольшое задание. У нас где-то утечка воздуха. Ничего критичного, но у нас некому заняться этим. Вы могли бы прогуляться по станции и найти и исправить поломку. Проще всего будет просто заменить трубы на такие же. В случае возникновения проблем -- попросите у Мари в библиотеке документацию по воздуховодам, она даст вам все необходимое. Запасные вы найдете здесь или на складе в Акве. До встречи", -- Майкл Райт возвращается к своим делам. ]]);
                psub("bq");
            else
                pr([["До встречи", -- Майкл Райт возвращается к своим делам. ]]);
                back();
            end;
        end};
        {tag="bq"};
        {"Хорошо, я сделаю что смогу.", [["До встречи", -- Майкл Райт возвращается к своим делам. ]], code [[ back(); ]]};
        {tag="son"};
        {"Мать Джека умерла, а сам он прозябает в своем доме ничего не делая. ", [[Майкл Райт вздыхает: "Жаль, что все так вышло. Спасибо, что честно сказали мне. Наверное..."]], code[[pret();]]};
        {"Мать Джека умерла, но с ним все в порядке. Он все еще живет в вашем доме. ", [[Майкл Райт вздыхает: "Элис...". ]], code[[pret();]]};
        {"У них все хорошо. ", [[Майкл Райт кивает: "Рад это слышать". ]], code[[pret();]]}
    };
};


char_anna_atlantis_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Анна Рэдклифф";
	disp = "Анна Рэдклифф";

    reset_more = function(s)
        poff("on_anna", "on_walter", "on_atlantis", "on_drake", "more_questions");
        if (rel_anna  < 0) then
            if (char_anna.anna_asked == 0) then
                pon("on_anna");
                pon("more_questions");
            end;
            if (char_anna.walter_asked == 0) then
                pon("on_walter");
                pon("more_questions");
            end;
            if (char_anna.atlantis_asked == 0) then
                pon("on_atlantis");
                pon("more_questions");
            end;
            if (char_anna.drake_asked == 0) then
                pon("on_drake");
                pon("more_questions");
            end;
        else
            if (char_anna.anna_asked < 2) then
                pon("on_anna");
                pon("more_questions");
            end;
            if (char_anna.walter_asked < 2) then
                pon("on_walter");
                pon("more_questions");
            end;
            if (char_anna.atlantis_asked < 2) then
                pon("on_atlantis");
                pon("more_questions");
            end;
            if (char_anna.drake_asked < 2) then
                pon("on_drake");
                pon("more_questions");
            end;
        end;
    end;

	enter = function(s)
		s:reset_more();

        if (ArrayUtils.indexOf(pl.party, 'radcliffe') ~= 0 and ArrayUtils.indexOf(pl.party, 'anna') == 0) then
            pon('join');
        else
            poff('join');
        end;

		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[Перед вами стоит девушка лет двадцати пяти -- тридцати. Каштановые волосы ниспадают на плечи. Зеленые глаза внимательно следят за движениями навьяра, с которым она разговаривает. Заметив вас, она просит навьяра подождать и обращается к вам: "Приветствую. Вы, должно быть, господин Дрейк? Мое имя Анна Рэдклифф". ]];
		else
			psub("generic");
			return [[Анна Рэдклифф разговаривает с навьяром, стоящим рядом. Заметив вас, она просит его подождать и обращается к вам: "Приветствую, вы что-то хотели?" ]];
		end;
	end;
	phr = {
		{tag="first_meeting"};
		{"Да, я Дэвид Дрейк. Рад знакомству. ", [[Анна Рэдклифф улыбается и спрашивает: "Вы что-то хотели?" ]], code = [[ psub('generic'); ]]};
        {tag="ask_more"};
        {tag="on_anna", "Расскажите о себе. ", function(s)
            if (rel_anna < 0) then
                char_anna.anna_asked = 1;
                return [[Анна Рэдклифф отвечает: "Я не хочу об этом с вами говорить". ]];
            else
                char_anna.anna_asked = 2;
                return [[Анна Рэдклифф грустно вздыхает: "Мне почти нечего рассказывать. Я с молодости живу здесь, на Атлантиде. Когда Уолтер сказал, что мы будем жить здесь, я сперва расстроилась -- тогда это казалось мне невероятно скучным -- жить вдалеке от цивилизации, среди людей, которые старше меня на двадцать с лишним лет. На самом деле все оказалось не столь плохо -- помимо навьяров, с которыми всегда интересно, я помогаю Екатерине и Сильвии с расшифровкой текстов или Мари в библиотеке". ]];
            end;
        end};
        {tag="on_walter", "Расскажите об Уолтере. ", function(s)
            if (rel_anna < 0) then
                char_anna.walter_asked = 1;
                return [[Анна Рэдклифф отвечает: "Я не хочу об этом с вами говорить". ]];
            else
                char_anna.walter_asked = 2;
                return [[Анна Рэдклифф отвечает: "Уолтер -- мой старший брат. Он заботится обо мне с тех пор, как мама с папой покинули нас. Хотя моя жизнь сильно изменилась, когда Уолтер забрал меня с собой на Атлантиду, я не жалею об этом". ]];
            end;
        end};
        {tag="on_atlantis", "Что вы думаете об Атлантиде?", function(s)
            if (rel_anna < 0) then
                char_anna.atlantis_asked = 1;
                return [[Анна Рэдклифф отвечает: "Я не хочу об этом с вами говорить". ]];
            else
                char_anna.atlantis_asked = 2;
                return [[Анна Рэдклифф отвечает: "Последние десять лет я живу здесь, на Атлантиде. Я хорошо помню, как расстроена я была, приехав сюда. Конечно, я не думала, что мы все проведем здесь столько времени. Первое время мне казалось, что мы вот-вот закончим и вернемся на поверхность, но намерения вашего отца сильно отличались от этого. Почти сразу после прибытия Екатерина и Сильвия познакомили меня с Телнеарром и Хетеарром -- двумя навьярами, которые первыми жили на станции. Потом Хетеарр вернулся домой, а вместо него на станцию прибыл Ривеерр. А затем покинул станцию и Телнеарр. Его заменила Леарр". ]];
            end;
        end};
        {tag="on_drake", "Расскажите об Уильяме Дрейке. ", function(s)
            if (rel_anna < 0) then
                char_anna.drake_asked = 1;
                return [[Анна Рэдклифф отвечает: "Я не хочу об этом с вами говорить". ]];
            else
                char_anna.drake_asked = 2;
                return [[Анна Рэдклифф отвечает: "Хотя Дрейк -- руководитель Атлантиды, он проводит больше времени здесь, в Окулусе, чем в своем кабинете в Доминусе. Сейчас он в экспедиции -- они с Блэком отправились на поиски отдаленных навьярских поселений". ]];
            end;
        end};
        {tag="on_black", "Расскажите об Адриане Блэке. ", function(s)
            if rel_anna < 0 then
                char_anna.black_asked = 1;
                return [[Анна Рэдклифф отвечает: "Я не хочу об этом с вами говорить". ]];
            else
                char_anna.black_asked = 2;
                return [[Анна Рэдклифф пожимает плечами: "Все вокруг говорят, что он хороший друг вашего отца, но мне почти не доводилось с ним общаться".]];
            end;
        end};
        {always=true, "Вернемся к делу.", [[Анна Рэдклифф кивает: "Хорошо".]], code [[ char_anna_atlantis_dlg:reset_more(); pret(); ]]};
		{tag="generic"};
        {tag="join", "Я хочу, чтобы вы присоединились к моей экспедиции.", [[Анна отвечает: "Хорошо. Я буду на Левиафане. До встречи на борту".^Она выходит из лаборатории. ]], function(s)
            remove(char_anna_atlantis, atl_oculus_lab_c);
            table.insert(pl.party, 'anna');
            move(char_anna, char_anna.home);
            back();
        end};
        {tag="more_questions", "У меня есть несколько вопросов.", [[Анна отвечает: "Да, я слушаю".]], code [[ psub('ask_more'); ]]};
		{always=true, "Я пойду.", [[Анна прощается с вами: "До встречи". ]], code [[ back(); ]]};
	};
};

--[[
    Learr
]]
atlantis_learr_intro = cutscene('atlantis_learr_intro', 'Атлантида, Окулус, Главный коридор', [[Вы выходите из межсекционного коридора в главный коридор секции Окулус и сталкиваетесь лицом к лицу с неведомым существом. Стройное, покрытое блестящей серо-зеленой чешуей тело слегка покачивается. Рыбья голова, тонкие ноги и руки с широкими перепонками между длинными пальцами покрыты такой же чешуей. Ярко-оранжевые глаза существа с интересом разглядывают вас. На его голове присутствуют отростки, напоминающие плавники, расположенные примерно там, где у людей уши. Они принимают слабо уловимый сине-зеленый оттенок. Во рту существа сверкают острые треугольные зубы. Одето оно в белую рубашку и ярко-синюю юбку до колен. На шее вы замечаете жабры. ]], 'atlantis_learr_first_dlg');

atlantis_learr_first_dlg = dlg {
    nam = "Леарр";
    entered = [[Существо начинает говорить: "Я здесь-раньше-не-видела вас". Голос звучит непривычно для вашего слуха -- гласные произносятся очень коротко, между некоторыми словами делаются резкие паузы, другие же сливаются практически в одно. ]];
    phr = {
        {"Кто ты?", [[Существо отвечает: "I'yhe'lea'yhe'na'vji'a'rr", -- вы отчетливо различаете короткие паузы между слогами. ]], code [[ pon('who_are_you'); ]]};
        {tag="who_are_you", false, "Я не понимаю, что ты говоришь.", [[Существо ненадолго застывает в замешательстве. Затем отвечает: "Я Lea'rr. Ты так-понимаешь?". ]], code [[psub('learr'); ]]};
        {"Аааа, монстр, помогите!!!", [[Существо скалит зубы. Плавники меняют цвет на ярко-фиолетовый. Оно рычит на вас: "Пропусти. Нет-времени". ^Щелкнув зубами, _"Чудовище"_ уходит. ]], code [[
            put(char_learr_atlantis, atl_luna_common_room);
            if where(char_jack_wright_atlantis) == atl_luna_common_room then
                remove('char_jack_wright_atlantis', 'atl_luna_common_room');
                put('char_jack_wright_atlantis', 'atl_luna_common_room');
            end;
            char_learr_atlantis.offended = true;
            walk("atl_oculus_main_corridor");
        ]]};
        {tag="learr"};
        {"Рад знакомству. Я Дэвид Дрейк. ", [[Леарр переспрашивает: "Ты знаешь Уильяма-Дрейка?" -- Вам кажется, вы чувствуете удивление, хотя интонации в словах существа вам совершенно чужды. ]], code [[ psub('drake') ]]};
        {"Что ты такое?", [[Леарр ненадолго задумывается и отвечает: "Мы себя-навьярами-называем. Мы недалеко-живем-в-нескольких-кругах-отсюда".]], code [[ pon('under_water'); ]]};
        {tag="under_water", false, "Под водой?", [[Леарр кивает. Через некоторое время отвечает: "Ты с-поверхности? Никогда-нас-не-видел, похоже". ]]};
        {tag="drake"};
        {"Да, я его сын. Ты знакома с ним?", [[Оттенок головных плавников Леарр становится более ярким и смещается ближе к зеленому. Она отвечает: _"Да, я его-знаю. Уильям-Дррейк нашу-историю-изучал. Он сейчас-искать-уехал Lse'ry'anot'rr. Я что-вы-здесь рада"_. ]], code [[ psub('follow_drake') ]]};
        {tag="follow_drake"};
        {"Я здесь из-за него. " , [[Леарр кивает: _"Я вам-как-смогу-помогу. Я в-Луне-буду, если вы говорить-хотите"_. ^Леарр уходит, а вы остаетесь в одиночестве. ]], code [[ put(char_learr_atlantis, atl_luna_common_room);
            if where(char_jack_wright_atlantis) == atl_luna_common_room then
                remove('char_jack_wright_atlantis', 'atl_luna_common_room');
                put('char_jack_wright_atlantis', 'atl_luna_common_room');
            end; walk("atl_oculus_main_corridor"); ]]};
    };
};

char_learr_atlantis_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Леарр";
	disp = "Леарр";
	enter = function(s)
        poff('iyh1', 'iyh2');
        if (atl_iyh_state == 1 and not atl_iyh_learr_spoken) then
            pon('iyh1');
        elseif (atl_iyh_state == 2 and ArrayUtils.indexOf(pl.party, 'learr') == 0) then
            pon('iyh2');
        end;

        if atl_iyh_state == 10 and rel_learr >= -5 and ArrayUtils.indexOf(pl.party, 'learr') == 0 then
            pon('join');
        else
            poff('join');
        end;

		if (s.state == 0) then
            if ArrayUtils.indexOf(pl.party, 'wright') ~= 0 and where(char_jack_wright_atlantis) == atl_luna_common_room then
                pr [[Джек Райт прощается с Леарр и покидает комнату. ]];
                remove('char_jack_wright_atlantis', 'atl_luna_common_room');
                put('char_jack_wright_atlantis', 'atl_luna_jack_room');
            end;
			if (char_learr_atlantis.offended) then
				psub("offended");
				pr [[Леарр поворачивается к вам, плавники ее становятся ярко-фиолетовыми. Она рычит: "Приветствую, монстр. Мы говорить-будем?" ]];
			else
				psub("friendly");
				pr [[Леарр поворачивается к вам, плавники ее принимают едва заметный сине-зеленый оттенок, а она говорит: "Я приветствую тебя-he'vji'a'rr". ]];
			end;
		else
            if (rel_learr < 0) then
                if (char_learr.on_books == 0) then pon("on_books") end;
            else
                if (char_learr.on_books < 2) then pon("on_books") end;
            end;

			psub("generic");
			if (rel_learr > 0) then
				return [[Леарр поворачивается к вам, плавники ее принимают сине-зеленый оттенок, а она говорит: "Я рада-видеть тебя-Дрейк-he-jji'a'rr". ]];
			else
				return [[Леарр поворачивается к вам, плавники ее принимают едва заметный сине-зеленый оттенок, а она говорит: "Я приветствую тебя-he'vji'a'rr". ]];
			end;
		end;
	end;
	phr = {
		{tag='offended'};
		{"Монстр?", [[Леарр молча кивает. Оттенок головных плавников на мгновение сменяется на желтый, но затем снова становится фиолетовым: "Ты так-назвал меня. Мы будем-дальше-монстрами-называть друг-друга?" ]], function(s)
            psub('offended_yes_no');
        end};
		{tag='offended_yes_no'};
		{"Не думаю.", [[Леарр кивает, ее плавники медленно теряют цвет. Она говорит: "Я слушаю тебя. Ты говори". ]], function(s)
            char_learr_atlantis_dlg.state = 1;
            psub('generic');
        end};
		{"От этого суть не изменится, чудище.", [[Леарр скалится, показывая блестящие острые зубки: "Ты убирайся, пока я тебя не съела". ]], function(s)
			char_learr_atlantis_dlg.state = 1;
			psub('generic');
        end};
		{tag='friendly'};
		{"He'vji'a'rr?", [[Леарр кивает: "Мы так-называем пришедших-с-поверхности-вас". ]]};
		{"Я хотел кое-что спросить.", [["Ты говори", -- просит Леарр. ]], function(s)
			char_learr_atlantis_dlg.state = 1;
			psub('generic');
        end};
		{tag="generic"};
        {tag="join", false, "Я хочу, чтобы ты присоединилась к нашей экспедиции.", [[Леарр отвечает: "Я готова". ]], function(s)
            remove("char_learr_atlantis", where("char_learr_atlantis"));
            table.insert(pl.party, 'learr');
            move(char_learr, char_learr.home);
            back();
        end};
		{tag="iyh1", false, "Расскажи о вашем конфликте с Дипатреанотром.", [[Леарр начинает рассказывать, активно жестикулируя: "Na'vji'a'yhe'dyp'atre'anot'rr взяли из-нашего-храма-реликвию! Они потом-в-наш-город-пришли и требовали-вернуть их-реликвию! Мы не-брали ее и это-сказали им!" -- Леарр недовольно топает ногой и сжимает кулаки, -- "Они нам-не-верят! Они украли нашу-вещь и не-верят нам!" ]], function(s)
             atl_iyh_learr_spoken = true;
        end};
        {tag="iyh2", false, "Я отправляюсь в храм Дипатреанотра. Мне не помешает твоя помощь.", [[Плавники Леарр принимают фиолетовый оттенок: "He'vji'a'rr нельзя туда!"]], function(s)
            psub("join_me");
        end};
        {tag="books", false, "[Показать на книгу] Ты читаешь наши книги?", function(s)
            if (rel_learr < 0) then
                char_learr.on_books = 1;
                return [[Леарр неохотно отвечает: "Я иногда-читаю". Она явно не хочет говорить с вами об этом сейчас. ]];
            else
                char_learr.on_books = 2;
                psub("more_on_books");
                return [[Леарр отвечает: "Я иногда-читаю". Она опускает глаза на книгу, потом смотрит на вас. Немного подумав, она отвечает, как-бы нехотя: "Я не-умею-ваш-язык-читать. Я пытаюсь-учусь. Мари помогает". ]];
            end;
        end};
		{always=true, "Я пойду.", [[Плавники Леарр медленно теряют цвет и она прощается с вами: "Ты возвращайся". ]], code [[back();]]};
        {tag="join_me"};
        {"Я не собираюсь входить внутрь, но мне нужно осмотреть его окрестности.", [[Цвет плавников Леарр меняется на оранжевый и затем на желтый. Она соглашается: "Я с-тобой-пойду". ]], function(s)
            remove("char_learr_atlantis", where("char_learr_atlantis"));
            table.insert(pl.party, 'learr');
            move(char_learr, char_learr.home);
            pret();
            back();
        end};
        {"Для этого ты мне и нужна.", [[Цвет плавников Леарр меняет цвет на синий. Она соглашается: "Я согласна. Я с-тобой-пойду". ]], function(s)
            remove("char_learr_atlantis", where("char_learr_atlantis"));
            table.insert(pl.party, 'learr');
            move(char_learr, char_learr.home);
            pret();
            back();
        end};
        {tag="more_on_books"};
        {"Я могу помочь?", [[Леарр кивает: "Я думаю-ты-другим-делом-занят. Я не-хочу-мешать". ]], code[[ char_learr.on_books = 3; pret(); ]]};
        {"Давно ты этим занимаешься?", [[Леарр кивает: "Я с-самого-прибытия-ваши-книги-учусь-читать. Я надеюсь-все-пойму со-временем". ]]};
        {"Как у тебя успехи?", [[Леарр смущенно отвечает: "Я еще-многое-не-понимаю. Но я со-временем-пойму-надеюсь". ]]};
        {"Давай поговорим о другом.", [[Леарр кивает: "Ты говори". ]], code [[pret();]]};
    }
};

char_ryveerr_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Ривеерр";
	disp = "Ривеерр";

    reset_more = function(s)
        poff("on_atlantis", "on_learr", "on_ryveerr", "more_questions");
        if (atl_rep_dyp < 0) then
            if (char_ryveerr.atlantis_asked == 0) then pon("on_atlantis", "more_questions"); end;
            if (char_ryveerr.learr_asked == 0) then pon("on_learr", "more_questions"); end;
            if (char_ryveerr.ryveerr_asked == 0) then pon("on_ryveerr", "more_questions"); end;
        else
            if (char_ryveerr.atlantis_asked < 2) then pon("on_atlantis", "more_questions"); end;
            if (char_ryveerr.learr_asked < 2) then pon("on_learr", "more_questions"); end;
            if (char_ryveerr.ryveerr_asked < 2) then pon("on_ryveerr", "more_questions"); end;
        end;
    end;

	enter = function(s)
        s:reset_more();

        poff('iyh1', 'iyh2', 'learr_comes');
        if (atl_iyh_state == 1 and not atl_iyh_ryveerr_spoken) then
            pon('iyh1');
        elseif (atl_iyh_state == 2 and not atl_iyh2_ryveerr_spoken) then
            pon('iyh2');
        end;
        if (ArrayUtils.indexOf(pl.party, 'learr') ~= 0) then
            pon('learr_comes');
        end;

        if (s.state == 0) then
            s.state = 1;
            psub("first_meeting");
            return [[Перед вами стоит навьяр. Серо-зеленая чешуя, несколько более темная, чем у Леарр блестит в свете электрических ламп. Красно-оранжевые глаза внимательно смотрят на вас. Он одет в темно-зеленые облегающие шорты и куртку из водорослей. Навьяр приветствует вас: "Ривеерр-из-Дипатреанотра рад-видеть тебя". ]];
        else
            psub("generic");
            return [[Ривеерр оборачивается к вам: "Ты говори, Дрейк-хевьяр". ]];
        end;
	end;
	phr = {
        {tag="first_meeting"};
        {"Мое имя Дэвид Дрейк. Рад знакомству.", [[Плавники Ривеерра окрашиваются в зеленый: "Ты-Уильяма-сын". ]], code[[psub("first_meeting_2");]]};
        {"Мое имя Дэвид Дрейк.", [[Плавники Ривеерра окрашиваются в зеленый: "Ты-Уильяма-сын". ]], code[[psub("first_meeting_2");]]};
        {tag="first_meeting_2"};
        {"Да, все верно.", [[Ривеерр: "Я рад-помочь тебе. Ты говори". ]], code [[psub("generic");]]};
        {"Я хотел кое-что спросить. ", [[Ривеерр: "Ты говори". ]], code [[psub("generic");]]};
		{tag="generic"};
		{tag="iyh1", false, "Расскажи о конфликте Ираафаанотра с Дипатреанотром.", [[Ривеерр рассказывает вам: "Na'vji'a'yhe'iraa'pha’anot’rr нашу-реликвию-украли. Мы тем-же-ответили им". ]], code [[ atl_iyh_ryveerr_spoken = true; psub("more_on_relic"); ]]};
        {tag="iyh2", false, "Я собираюсь в храм Дипатреанотра.", [[Плавники на голове Ривеерра меняют цвет на сине-фиолетовый: "Ты туда-не-идешь". ]], code [[ atl_iyh2_ryveerr_spoken = true; psub("on_iyh2"); ]]};
        {tag="more_questions", always=true, "Я хочу кое-что спросить.", [[Ривеерр кивает: "Ты спрашивай". ]], code [[ psub("ask_more"); ]]};
        {always=true, "Я пойду.", [[Ривеерр прощается с вами: "Мы позже-поговорим". ]], code [[ back(); ]]};
        {tag="ask_more"};
        {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function(s)
            if (atl_rep_dyp < 0) then
                char_ryveerr.atlantis_asked = 1;
                return [[Ривеерр отвечает: "Хевьяры-с-Атлантиды уже-помогли-нам-немало. Я надеюсь-на-продолжение-плодотворного-сотрудничества". ]];
            else
                char_ryveerr.atlantis_asked = 2;
                return [[Ривеерр отвечает: "Хевьяры-с-Атлантиды уже-помогли-нам-немало. Я надеюсь-на-продолжение-плодотворного-сотрудничества. Я продолжаю-доказывать-пользу-нашего-с-вами-хевьярами-общения и многие-в-Дипатреанотре уже-согласны-со-мной. Если план-Дрейка успешен-будет, то наша-благодарность будет-неизмерима. Хевьяры наследие-древних-ищут, как легенды гласят". ]];
            end;
        end};
        {tag="on_ryveerr", "Расскажи о себе.", function(s)
            if (atl_rep_dyp < 0) then
                char_ryveerr.ryveerr_asked = 1;
                return [[Ривеерр отказывается отвечать:"Я не-говорю-с-тобой-об-этом". ]];
            else
                char_ryveerr.ryveerr_asked = 2;
                return [[Плавники Ривеерра окрашиваются синим и он отвечает: "Я-Дипатреанотра-посол. Я желаю-с-хевьярами-долгого-и-плодотворного-сотрудничества. Мое-мнение большинство-в-Дипатреанотре-разделяет, поэтому я здесь". ]];
            end;
        end};
        {tag="on_learr", "Что ты думаешь о Леарр?", function(s)
            if (atl_rep_dyp < 0) then
                char_ryveerr.learr_asked = 1;
                return [[Ривеерр отказывается отвечать:"Я не-говорю-с-тобой-об-этом". ]];
            else
                char_ryveerr.learr_asked = 2;
                return [[Плавники Ривеерра окрашиваются зеленым и он отвечает: "Леарр из Ираафаанотра. Мы часто-разногласия с-ними, но с-Леарр всегда-понимание-находим. Это с-Ираафаанотр-отношениям-помогает и хорошо-есть. Я что-она-на-Атлантиде-рад и друг-с-другом-и-с-вами-что-мы-можем общаться-постоянно. Это с-вами-нашим-отношениям-помогает и тоже-хорошо-есть". ]];
            end;
        end};
        {always=true, "Давай поговорим о другом.", [[Ривеерр кивает: "Ты говори". ]], code [[ char_ryveerr_dlg:reset_more(); pret(); ]]};
		{tag="more_on_relic"};
		{"Тем же?", [[Ривеерр щелкает зубами: "Мы светодиск-из-их-храма-забрали. Мы вернем его, ysl они вернут нашу-реликвию". ]]};
		{"Вы уверены, что кража -- их рук дело?", [[Ривеерр уверенно кивает: "Только-они могли сделать. Я расскажу", -- Ривеерр на небольшое время замолкает, собираясь с мыслями, после чего продолжает: "Na'vji'a'yhe'iraa'pha’anot’rr ночью-в-наш-храм-пришли и охранников-убили. Они реликвию-украли и в-свой-город-унесли". ]], code [[ psub("why"); ]]};
		{tag="why", empty=code [[ atl_iyh_ryveerr_spoken = true; psub("generic"); ]]};
		{"Вы уверены, что это они?", [[Ривеерр отвечает: "Другой-никто не-мог-сделать". ]]};
		{"Как выглядит ваша реликвия?", [[Ривеерр отвечает: "Небольшая-металлическая-со-стеклами-трубка-наша-реликвия". ]]};
        {"Как убили охранников?", [[Ривеерр отвечает: "Их копьями-проткнули. Мы раны-видели". ]]};
		{always=true, "Я вернусь позже.", [[Ривеерр прощается с вами: "Мы позже-поговоррим". ]], code [[ back(); ]]};
        {tag="on_iyh2"};
        {"Я не собираюсь внутрь храма, мне нужно лишь осмотреть окрестности.", [[Ривеерр кивает: "Я это-разрешу. Ты иди". ]], code [[ pret(); ]]};
        {tag="learr_comes", "Со мной отправится Леарр.", [[Ривеерр отвечает: "Ты туда-не-идешь. He'vji'a'rr нельзя-в-храм". ]]};
	};
};

char_evans_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Кристиан Эванс";
	disp = "Кристиан Эванс";
	enter = function(s)
		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[Немолодой мужчина внимательно смотрит на вас через стекла старых очков. Он приветствует вас: "Добро пожаловать на нашу станцию. Я Кристиан Эванс, занимаюсь языком навьяров". ]];
		else
			psub("generic");
			return [[Кристиан Эванс приветствует вас: "Добрый день". ]];
		end;
	end;
	phr = {
		{tag="first_meeting"};
		{"Я Дэвид Дрейк, очень приятно.", [[Кристиан улыбается и отвечает: "Очень рад вас видеть. У вас есть вопросы? Я слушаю". ]], code [[ psub("generic"); ]]};
		{tag="generic"};
        {"Что вы можете рассказать о Леарр?", function(s)
            return [[Кристиан отвечает: "С ней приятно иметь дело. Мы многое узнали о навьярах только благодаря ее открытости и желанию общаться с нами. Хотя Ривеерр тоже довольно дружелюбен, он чрезмерно осторожен при общении с нами. Леарр и сама интересуется нами и нашими достижениями -- большую часть времени она проводит в библиотеке, читая наши книги и газеты и просматривая наши фото- и видеоархивы". ]];
        end};
        {"Что вы можете сказать об Ривеерре?", [[Кристиан задумчиво: "Из жителей Дипатреанотра, Ривеерр, наверное, лучше всех относится к нам. При том, что он достаточно отстранен, чувствуется, что он готов вкладывать силы в улучшение отношений между нами всеми -- Дипатреанотром, Атлантидой и Ираафаанотром". ]]};
        {"Что вы можете сказать о навьярах?", [[Кристиан отвечает: "Поразительные существа. Конечно, мы первый раз сталкиваемся с подобным и толком не знаем как себя вести и как стоит их изучать, но, как мне кажется, мы многого достигли -- мы знаем их язык, имеем доступ к их текстам и общаемся с их представителями практически на равных. Вообще, мы поразительно легко наладили с ними контакт -- они не стали воспринимать нас ни как богов, ни как дьяволов, как это случается с племенами людей в далеких от цивилизации местах. Однозначно, они не так просты, как кажется, но мы пока не знаем что за этим скрывается".]]};
		{always=true, "Я пойду.", [[Кристиан прощается с вами: "До встречи". ]], code [[ back(); ]]};
	};
};

char_winterlight_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Сильвия Уинтерлайт";
	disp = "Сильвия Уинтерлайт";
	enter = function(s)
		if (s.state == 0) then
			psub("first_meeting");
            s.state = 1;
			return [[Женщина лет тридцати пяти -- сорока с длинными темными волосами стоит, склонившись над картой и внимательно изучает ее. Увидев вас, она отвлекается от карты и проницательный взгляд ее серых глаз устремляется на вас. Она спрашивает: "Господин Дрейк? Я уже осведомлена о вашем прибытии, как видите. Мое имя Сильвия Уинтерлайт. Я химик и биолог на станции. По-крайней мере официально. На самом деле занимаюсь чем придется". ]];
		else
			psub("generic");
			return [[Сильвия отрывает взгляд от карты: "Приветствую, что вы хотели?" ]];
		end;
	end;
	phr = {
		{tag="first_meeting"};
        {"Рад знакомству. Я хотел бы кое-что спросить.", [[Сильвия улыбается и кивает: "Конечно, господин Дрейк, я слушаю". ]], code [[ psub("generic"); ]]};
		{"Рад знакомству. Я чем-то могу быть полезен?", [[Сильвия улыбается и отвечает: "Вам лучше поговорить с госпожой Светловой, у нее наверняка найдется поручение для вас". ]], code [[ psub("generic"); ]]};
		{tag="generic"};
        {"Расскажите об Атлантиде,", [[Сильвия отвечает: "Об этом я могу долго рассказывать -- мы с господином Райтом многое придумывали вместе -- в частности, системы подачи кислорода, я же помогала в разработке Аэриса. Аэрис, если говорить открыто, крайне значительное достижение -- мы сумели адаптировать некоторые виды растений с поверхности к условиям станции. Конечно, пришлось потрудиться -- очень много энергии уходит на освещение и обогрев секции, но и результат себя оправдывает -- думаю, нам быстро надоело бы питаться одними морепродуктами, а так у нас есть практически все, что может предложить поверхность. Ну, кроме мяса", -- она улыбается, -- "Также мы выращиваем там несколько видов водорослей -- некоторые производят кислород, другие идут в пищу, третьи отправляются прямиком в печь".]]};
        {"Расскажите о себе.", [[Сильвия усмехается: "Не думаю, что тут есть что-то интересное, но слушайте -- я едва закончила университет и была в поисках работы, когда встретилась с госпожой Светловой. Уж не знаю, что привлекло ее во мне, но она предложила мне работу. Я сперва удивилась -- с чего транспортной компании нанимать таких видных ученых, как она? Да и зачем там такие, как я? Когда господин Дрейк рассказал о своем открытии, я загорелась идеей обустроить автономную подводную станцию -- чтобы иметь возможность находиться ближе к навьярам и изучать их. Изначально планы не были столь грандиозны, но благодаря нашим с господином Райтом успехам мы смогли построить Атлантиду такой, какой вы ее видите. Тогда же я впервые встретила живого навьяра. Нет, госпожа Светлова рассказывала мне про них и даже показывала фотографии и рисунки, но увидеть их вживую ни с чем не сравнимо. И еще более странно, когда такое существо тебя приветствует на твоем языке". ]]};
		{always=true, "Я пойду.", [[Сильвия молча кивает и возвращается к своим делам. ]], code [[ back(); ]]};
	};
};

char_jack_wright_atlantis_dlg = dlg {
	var {
		state = 0;
	};
	nam = 'char_jack_wright_atlantis_dlg';
	disp = "Джек Райт";
	enter = function(s)
        if (rel_jack < 0) then
            if (char_wright.on_learr == 0) then pon("on_learr"); end;
            if (char_wright.on_leviathan == 0) then pon("on_leviathan"); end;
            if (char_wright.on_jack == 0) then pon("on_jack"); end;
        else
            if (char_wright.on_learr < 2) then pon("on_learr"); end;
            if (char_wright.on_leviathan < 2) then pon("on_leviathan"); end;
            if (char_wright.on_jack < 2) then pon("on_jack"); end;
        end;

        if where(char_jack_wright_atlantis) == atl_luna_common_room then
            if (where(char_learr_atlantis) == atl_luna_common_room) then
                psub("business_or_no");
                return [[Джек отворачивается от Леарр, и обращается к вам: "Привет, ты по делу или просто так?" ]];
            else
                psub("generic");
                return [[Джек откладывает книгу и обращается к вам: "Добрый день. Тебе что-то нужно?"]];
            end;
        else
            psub("generic");
            return [[Джек откладывает книгу и встает с койки и обращается к вам: "Добрый день. Тебе что-то нужно?"]];
        end;
	end;
	phr = {
        {tag = "business_or_no"};
		{tag="station1", "Как тебе станция?", [[Джек не скрывая восхищения восклицает: "Невероятно! Трудно поверить в возможность такого -- полностью автономное подводное поселение. Я никогда на сомневался в таланте отца, но это выше всех моих ожиданий". ]], code [[ poff("station2"); ]]};
		{always = "true", "Я пришел поговорить с Леарр. ", function(s)
			if (char_learr_atlantis.offended) then
				return [[Джек ухмыльнулся: "Удачи, я пойду к себе", -- с этими словами, Джек выходит из зала. ]];
			else
				return [["Надеюсь, я вам не помешаю? В любом случае мне уже пора уходить", -- с этими словами, Джек выходит из зала. ]];
			end;
		end, code [[
            remove('char_jack_wright_atlantis', 'atl_luna_common_room');
			put('char_jack_wright_atlantis', 'atl_luna_jack_room');
			back();
		]]};
        {always = "true", "Мне нужно поговорить с тобой. ", [[Джек сообщает: "Я слушаю". ]], code [[psub("generic");]]};
        {tag="generic"};
        {tag="station2", "Как тебе станция?", [[Джек не скрывая восхищения восклицает: "Невероятно! Трудно поверить в возможность такого -- полностью автономное подводное поселение. Я никогда на сомневался в таланте отца, но это выше всех моих ожиданий". ]], code [[ poff("station1"); ]]};
        {always=true, "Я хочу кое-что спросить.", [[Джек вопросительно смотрит на вас: "Я слушаю". ]], code [[ psub("more_questions"); ]]};
        {always=true, "Я пойду.", [[Джек прощается с вами: "До встречи", -- после  чего возвращается к своему занятию. ]], code [[ back(); ]]};
        {tag = "more_questions"};
        {tag="on_learr", "Что ты думаешь о Леарр?", function()
            if (rel_jack < 0) then
                char_wright.on_learr = 1;
                return [[Джек отказывается отвечать: "Не хочу это обсуждать".]];
            else
                char_wright.on_learr = 2;
                return [[Джек отвечает: "Я не так много с ней общался, однако, она производит приятное впечатление. Там в Луне она спрашивала меня про Атлантиду и Левиафан. Мне кажется, из нее бы получится неплохой инженер, нужно только дать ей время со всем ознакомиться".]];
            end;
        end};
        {tag="on_leviathan", "Как впечатления от Левиафана?", function()
            if (rel_jack < 0) then
                char_wright.on_leviathan = 1;
                return [[Джек отвечает: "Левиафан, без сомнения, превосходный корабль. Жаль, что ему не нашлось лучшего капитана". ]];
            else
                char_wright.on_leviathan = 2;
                return [[Джек не скрывает своего восхищения: "Никогда не видел ничего подобного. Неудивительно, что отец оставил жизнь на поверхности в пользу возможности создавать подобное здесь. Пока мы были в пути, я подробно изучил субмарину. Многие решения до сих пор кажутся мне невероятными, например, использование электричества в качестве движущей силы или звуковая пушка. Я уже успел обсудить с отцом детали диагностических цепей. Это совершенно непостижимо, чтобы машина сама сообщала, что с ней что-то не так. И все это в одном месте". ]];
            end;
        end};
        {tag="on_jack", "Чем ты занимался все это время?", function()
            if (rel_jack < 0) then
                return [[Джек отказывается отвечать: "Не хочу это обсуждать".]];
            else
                return [[Джек отвечает: "Да, в общем-то, ничем. Отец оставил нам с матерью достаточно денег, чтобы мы могли ни в чем не нуждаться. Мать оплатила мое образование в том же университете, где учился отец. Получив диплом с отличием, я просто поставил его на полку. Не нашел дела по душе, да и необходимости не было. Позже, когда мать умерла, я вообще практически прекратил связи с внешним миром. Думаю, что хоть я и бросил идею найти отца, я все-таки продолжал надеяться -- практически все время я посвящал чтению газет со всех уголков света, в поисках известий о случившемся с Вестхейвен Трансоушен. Впрочем, как только первоначальный ажиотаж спал, никто толком и не писал о случившемся". ]];
            end;
        end};
        {"Вернемся к делу", [[Джек молча кивает. ]], code [[ pret(); ]]};
	};
};

char_legrand_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Мари Легран";
	disp = "Мари Легран";
	enter = function(s)
        poff("tube_spec");
        if (atl_nih_state == 1 and not have(atl_item_tube_spec)) then
            pon("tube_spec");
        end;

		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[Перед вами, склонившись над какой-то книгой, сидит женщина лет сорока -- сорока пяти. Длинные темные волосы убраны в хвост. На носу очки в тяжелой оправе. Не обращая внимания на вас, она продолжает водить пальцем по строчкам, периодически делая какие-то пометки. ]];
		else
			psub("generic");
			return [[Не обращая внимания на вас, Мари Легран продолжает водить пальцем по строчкам, периодически делая какие-то пометки. ]];
		end;
	end;
	phr = {
		{tag="first_meeting"};
		{"Извините?", [[Женщина поднимает голову и отрывается от работы. Она выпрямляется и улыбаясь приветствует вас: "Добро пожаловать в библиотеку Атлантиды. Я Мари Легран". ]], code [[psub("first_meeting_2"); ]]};
		{tag="first_meeting_2"};
		{"Я Дэвид Дрейк, рад знакомству.", [[Она кивает и спрашивает вас: "Как вы нашли Левиафан?"]], code [[psub("first_meeting_3"); ]]};
		{tag="first_meeting_3"};
		{"Это долгая история.", [[Мари Легран кивает: "Хорошо, тогда в другой раз".]], [[ psub("generic") ]]};
		{"Я нашел тайник отца со старыми схемами. Пришлось побегать, чтобы восстановить субмарину. Я чудом собрал все необходимое.", [[Мари Легран удивленно смотрит на вас: "Поразительно. Скорее всего, Уильям хотел, чтобы вы нашли Левиафан. Жаль, что вы прибыли слишком поздно. Когда он узнал про этот древний город, он собрал несколько помощников и отправился на Надежде на его поиски". ]], code [[ pon("father_more", "ancient_city");psub("generic"); ]]};
		{tag="generic"};
        {tag="tube_spec", false, "Мне нужна документация по системам воздуховодов.", [[Мари Легран удивленно спрашивает: "Райт просил? Удачи в изучении", -- и кладет на стол перед вами толстую книжицу. ]], code [[ take(atl_item_tube_spec); ]]};
		{tag="father_more", false, "Кто отправился вместе с моим отцом?", [[Мари Легран отвечает: "Немногие. Они вообще хотели отправиться вдвоем с Блэком, но Блэк уговорил Уильяма взять Джона Брауна и Антонио Гарсия". ]], code [[psub("more_people");]]};
        {tag="ancient_city", false, "Какой еще город?", [[Мари Легран отвечает: "Да, вы же не в курсе. Лсэрианотр, или как-то так. Древний навьярский город по легенде скрывает какое-то древнее знание, которое, как и всегда в легендах, сторожит непобедимое чудовище. Дрейк и Блэк, вроде как, сумели найти какие-то карты, якобы указывающие путь к этому городу". ]]};
		{always=true, "Я пойду.", [[Мари Легран возвращается к книге, прощаясь с вами: "Приходите еще".]], code [[ back(); ]]};
		{tag="more_people"};
		{"Расскажите больше об Адриане Блэке.", [[Мари Легран рассказывает: "Блэк -- заместитель Дрейка. По-крайней мере, официально он занимал именно эту должность. По факту, он был близким другом вашего отца и компанией они управляли вместе". ]]};
		{"Расскажите больше о Джоне Брауне.", [[Мари Легран рассказывает: "У Джона золотые руки, наверное, именно поэтому Дрейк взял в экспедицию именно его". ]]};
		{"Расскажите больше о Антонио Гарсии.", [[Мари Легран рассказывает: "Талантливый молодой человек. Он хорошо знает язык навьяров и много с ними общался". ]]};
		{"Поговорим в другой раз.", [[Мари Легран кивает: "Хорошо".]], code [[pret();]]};
	};
};

char_radcliffe_atlantis_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Уолтер Рэдклифф";
	disp = "Уолтер Рэдклифф";

    reset_more = function(s)
        poff("on_anna", "on_walter", "on_atlantis", "on_drake", "on_black", "on_join", "talk");
        if (rel_walter < 0) then
            pon("talk");
        else
            if (char_radcliffe.on_anna < 2) then
                pon("on_anna");
                pon("talk");
            end;
            if (char_radcliffe.on_black < 2) then
                pon("on_black");
                pon("talk");
            end;
            if (char_radcliffe.on_walter < 2) then
                pon("on_walter");
                pon("talk");
            end;
            if (char_radcliffe.on_atlantis < 2) then
                pon("on_atlantis");
                pon("talk");
            end;
            if (char_radcliffe.on_drake < 2) then
                pon("on_drake");
                pon("talk");
            end;
            if (char_radcliffe.on_join < 2) then
                pon("on_join");
                pon("talk");
            end;
        end;
    end;

	enter = function(s)
        s:reset_more();

        poff("on_leroy_in_terra");
        if atl_mtr_ask_radcliffe and not atl_mtr_know_leroy_in_terra then
            pon("on_leroy_in_terra");
        end;

		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[Перед вами стоит человек лет сорока -- сорока пяти, одетый в рабочий халат. Как только вы входите, он протягивает вам руку: "Добро пожаловать, господин Дрейк. Уолтер Рэдклифф, инженер". ]];
		else
			psub("generic");
			return [[Уолтер Рэдклифф приветствует вас: "Добрый день". ]];
		end;
	end;
	phr = {
        {tag="questions"};
        {tag="on_black", "Что ты можешь сказать о Блэке?", function(s)
            char_radcliffe.on_black = 2;
            return [[Уолтер пожимает плечами: "Что я могу сказать про него? Он хороший друг Дрейка и вполне искренне радеет за благополучие нашей миссии. Однако, я думаю, его истинные цели могут отличаться от наших". ]];
        end};
        {tag="on_walter", "Расскажи о себе.", function(s)
            char_radcliffe.on_walter = 2;
            return [[Уолтер пожимает плечами: "Да мне нечего рассказать. Мы с сестрой жили в Лондоне, я уже работал в Вестхейвен Трансоушен, когда наши родители погибли -- пароход, на котором они отправились в США просто не прибыл в порт назначения. Мы с Анной остались одни. Она еще даже школу не закончила тогда. А потом мы построили Надежду, Атлантиду и далее по списку. Потом мне предложили работать внизу, на станции. Я, конечно, мог тогда отказаться, уйти в другую компанию, но направление, избранное Дрейком слишком меня привлекало. Я согласился". ]];
        end};
        {tag="on_anna", "Расскажи о своей сестре, Анне.", function(s)
            char_radcliffe.on_anna = 2;
            return [[Уолтер вздыхает: "Будь у меня выбор тогда, я ни за что не взял бы ее на Атлантиду. И жалел бы сейчас об этом. Не думаю, что на поверхности она стала бы той, кто она сейчас. Все-таки общество поглощенных своей работой людей накладывает определенный отпечаток, я думаю". ]];
        end};
        {tag="on_drake", "Что ты можешь сказать о Дрейке?", function(s)
            char_radcliffe.on_drake = 2;
            return [[Уолтер отвечает: "Не думаю, что скажу про него больше чем кто-то еще. Послушайте Райта, Моро, быть может Даркстара, хотя черт знает, что у этого типа на уме. Они скажут вам все и даже больше". ]];
        end};
        {tag="on_atlantis", "Что ты думаешь об Атлантиде?", function(s)
            char_radcliffe.on_atlantis = 2;
            return [[Уолтер отвечает: "Думаю, только Райт и Уинтерлайт в полной мере осознают, насколько большим достижением для нас, для всего человечества, является постройка этой станции. Тем не менее, они, отчего-то, не спешат поделиться своими знаниями с другими. Не думаю, что сегодняшнее общество сможет по достоинству оценить новые возможности, даруемые этими технологиями. Да и что станет с навьярами? Вспомните Новый Свет, посмотрите на наши колонии -- хотите ли вы этого для Леарр и других?"]];
        end};
        {tag="quit", always=true, "Поговорим в другой раз. ", [[Уолтер кивает: "Хорошо".]], code [[ char_radcliffe_atlantis_dlg:reset_more(); pret();]]};
		{tag = "first_meeting"};
		{"[Пожать руку] Рад знакомству.", [[
			"Мы с Майклом вместе работали над Левиафаном. Многие решения в вашей субмарине -- мои. Если вы не против, я хотел бы продолжить путешествие вместе с вами. Во-первых, вам пригодится мой опыт, а во-вторых, я хочу увидеть Левиафан в деле".
		]], code [[
			rel_walter = rel_walter + 1;
			psub("leviathan");
		]]};
		{"Рад знакомству.", [[
			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".
		]], code [[
			psub("generic");
		]]};
		{"[Промолчать]", [[
			Уолтер убирает руку и продолжает: "Я думаю, вы не просто так пришли. Спрашивайте".
		]], code [[
			rel_walter = rel_walter - 1;
			psub("generic");
		]]};
		{tag = "leviathan"};
		{"Интересно, и что вы можете рассказать о Левиафане?", [[Уолтер снимает очки, убирая их в нагрудный карман: "Левиафан строился как Надежда -- для дальних путешествий и максимальной автономности. После успеха предыдущих субмарин, Райт решил сделать Левиафан заметно крупнее этих кораблей. Сверхмощная батарея обеспечивает субмарину энергией более месяца при максимальных оборотах двигателей. Также есть паровой двигатель -- он используется не только для движения, но и генерирует электричество. До Левиафана мы не экспериментировали с этим". ]]};
		{"Вы знаете, куда отправился мой отец отсюда?", [[Уолтер отрицательно качает головой: "Не больше, чем остальные на станции". ]]};
		{"Буду рад, если вы присоединитесь к нам. ", [[Уолтер улыбается: "Отлично. Но вы ведь, еще поговорить хотите?" ]], code [[ psub("generic");]]};
		{"Я не думаю, что вы поможете. ", [[Уолтер разводит руками: "Очень жаль. Впрочем, у вас есть время подумать. Насколько я знаю, Даркстар и Моро собираются держать вас здесь какое-то время". ]], code [[ psub("generic");]]};
		{tag = "generic"};
        {tag="on_leroy_in_terra", false, "Райт сказал, что вы были в Терре во время обслуживания Солиса. Вы не видели, кто входил в секцию?", [[Уолтер пожимает плечами: "Я думал, что я один в Терре, но мне попался Мишель. Он сказал, что пришел за инструментами для ремонта скафандров. Правда в Доминус он ушел почему-то с пустыми руками". ]], code [[atl_mtr_know_leroy_in_terra=true;]]};
        {tag="questions", "У меня есть несколько вопросов. ", function(s)
            if (rel_anna < 0) then
                return [[Уолтер отрицательно качает головой: "Не сейчас, я занят". ]];
            else
                psub("questions");
                return [[Уолтер кивает: "Слушаю". ]];
            end;
        end};
		{always=true, "Я пойду.", [["До встречи", -- Уолтер отворачивается от вас и возвращается к своим делам. ]], code [[ back();]]};
	};
};

char_page_dlg = dlg {
	var {
		state = 0;
	};
	nam = "Фрэнсис Пейдж";
	disp = "Фрэнсис Пейдж";
	enter = function(s)
		if (s.state == 0 ) then
			s.state = 1;
			psub("first_meeting");
			return [[Перед вами стоит мужчина лет пятидесяти с густой седой бородой. Он бросает на вас быстрый взгляд и здоровается, продолжая осмотр Наутилуса: "Добро пожаловать на Атлантиду. Я Фрэнсис Пейдж. Я занимаюсь обслуживанием субмарин". ]];
		else
			psub("generic");
			return [[Перед вами стоит Фрэнсис Пейдж. не отрываясь от осмотра Наутилуса он говорит: "Вы вернулись". ]];
		end;
	end;
	phr = {
		{tag="first_meeting"};
		{"Дэвид Дрейк, рад знакомству.", [[Фрэнсис на секунду отвлекается и внимательно смотрит на вас: "Да, я замечаю сходство с Уильямом". ]], code [[ psub("first_meeting_2"); ]]};
		{tag="first_meeting_2"};
		{"Вы хорошо знали отца?", [[Фрэнсис кивает: "Я уважаю его, как, думаю, все на этой станции. Пожертвовать всем ради призрачной мечты -- только великий человек мог пойти на такое. Он отправился на поиски легендарного города древних навьяров. К сожалению, я не смог отправиться с ним -- я нужен на станции. Я знаю, что вы здесь из-за него и я надеюсь, что вы не оставите вашу идею найти Уильяма и доведете свое дело до конца". ]], code [[ psub("generic"); ]]};
		{"У меня к вам несколько вопросов.", [["Слушаю". ]], code [[ psub("generic"); ]]};
		{tag="generic"};
        {"Что вы можете рассказать об Атлантиде?", [[Фрэнсис пожимает плечами: "Если честно, вам лучше расспросить кого-нибудь из управляющих, а лучше всего -- Майкла Райта. Все что я могу сказать -- я до сих пор поражаюсь успеху этого невероятного проекта". ]]};
        {"Что вы можете рассказать о Наутилусе?", [[Френсис кивает: "Когда мы создавали Наутилус, я уже работал в Вестхейвен Трансоушен. Атлантида тогда существовала, но была далеко от того, что вы видите. Мы тогда просто строили вторую Надежду. Нам не нужна была высокая автономность, но мы хотели большую маневренность и мощность -- собственно на этом мы и сконцентрировались. Получилось то, что получилось -- рабочая лошадка, которой мы пользуемся по сей день". ]]};
        {"Что вы можете рассказать об Энтерпрайзе?", [[Френсис кивает: "Энтерпрайз мы начали, когда захотели судно побольше. Опыта и знаний нам хватило только на пропорциональное увеличение размеров и немного более мощный двигатель. Райт наверное сказал бы, что получилось из рук вон плохо, но, на мой взгляд, Энтерпрайз вполне неплох, да и с честью служит нам до сих пор". ]]};
        {"Что вы можете рассказать о Надежде?", [[Фрэнсис кивает: "Надежда была первой субмариной, построенной нами. Я в этом участия не принимал, так что многие конструктивные решения меня удивляют. Впрочем, более поздние субмарины спроектированы гораздо грамотнее, да и после переоборудования многое удалось решить". ]]};
        {"Что вы можете рассказать о Левиафане?", [[Френсис отвечает: "С первого взгляда ясно, что Левиафан не имеет практически ничего общего с Надеждой, Наутилусом и даже Энтерпрайзом. Отмечу, что Левиафан изначально строился с оглядкой на высокую автономность -- так же, как и Надежда. За это, конечно, пришлось многим поплатиться -- Левиафан большой и неповоротливый в сравнении с другими кораблями". ]]};
		{always=true, "Я пойду.", [[Фрэнсис Пейдж прощается с вами: "Увидимся позже". ]], code [[ back(); ]]};
	};
};

char_leroy_dlg = dlg {
	var {
		state = 0;
        closing = false;
	};
	nam = "Мишель Леруа";
	disp = "Мишель Леруа";
	enter = function(s)
        poff("mtr_on_clock", "mtr_on_replace", "mtr_on_terra");
        if atl_mtr_started and not atl_mtr_finished then
            if atl_mtr_know_goldman_lost_clock and not atl_mtr_leroy_asked_on_clock  then
                pon("mtr_on_clock");
            end;

            if atl_mtr_know_leroy_replaced_jones and not atl_mtr_leroy_denies_replace then
                pon("mtr_on_replace");
            end;

            if atl_mtr_know_leroy_in_terra and not atl_mtr_know_leroy_in_terra_asked then
                pon("mtr_on_terra");
            end;
        end;

        if atl_mtr_know_leroy_views and not s.closing then
            s.closing = true;
            pon('closing')
        end;

		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[Перед вами стоит склонившийся над чертежом мужчина лет пятидесяти, одетый в старый коричневый костюм. Кудрявые рыжие волосы торчат во все стороны, недлинная рыжая бородка, напротив, аккуратно острижена. В кармане его пиджака лежат очки. Темные глаза сосредоточенно уставились на лежащий перед ним чертеж. ]];
		else
			psub("generic");
			return [[Мишель Леруа стоит перед вами, склонившись над чертежом. ]];
		end;
	end;
	phr = {
		{tag="first_meeting"};
		{"Добрый день. Я Дэвид Дрейк.", [[Человек отрывается от чертежа, чтобы поздороваться с вами. Он протягивает вам руку и произносит: "Мишель Леруа. Инженер". ]], code [[ psub('first_meeting_2'); ]]};
		{tag="first_meeting_2"};
		{"[Пожать руку] Рад знакомству.", [[Вы пожимаете руку Мишеля, и он спрашивает вас: "Что вы хотели?" ]], code [[ psub('generic'); ]]};
		{"Рад знакомству.", [[Мишель кладет руку обратно на стол и спрашивает: "Что вы хотели?" ]], code [[ psub('generic'); ]]};
		{tag="generic"};
        {tag="mtr_on_clock", false, "Что вы можете сказать о часах Леонарда Голдмана?", [[Тон Мишеля становится очень недружелюбным: "Я уже говорил ему, что не трогал его часы. Да, он оставил их в общем зале, как и всегда -- когда я ушел, они так там и лежали. Наверное кто-то смахнул их со стола и они завалились куда-нибудь в угол". ]], code [[ atl_mtr_leroy_asked_on_clock = true; psub("mtr_clock_more"); ]]};
        {tag="mtr_on_replace", false, "Джонс сказал, что вы вместо него вчера работали в Солисе. Это правда?", [[Мишель отрицательно качает головой: "Понятия не имею о чем вы. Слушайте, вы не Даркстар, чтобы задавать мне такие вопросы". ]], code [[atl_mtr_leroy_denies_replace = true;]]};
        {tag="mtr_on_terra", false, "Рэдклифф сказал, что видел вас вчера в Терре, что вы здесь делали?", [[Леруа начинает выходить из себя: "Работал, что же еще. Хотел забрать инструменты для ремонта скафандров на Энтерпрайзе, да вот беда -- кто-то уже уволок последний комплект. Пришлось плестись обратно". ]], code [[atl_mtr_know_leroy_in_terra_asked = true; ]]};
        {tag="closing", false, "Почему вы считаете, что станцию необходимо закрыть?", [[Мишель начинает объяснять, активно жестикулируя: "Вы недавно здесь, и для вас это должно быть гораздо более очевидно, чем для многих из нас. Легко представить, к чему здесь может привести самая мелкая поломка. А эти самонадеянные люди, в лице Дрейка, Блэка, Светловой, Моро, Райта и даже Даркстара не видят дальше собственного носа! Что произойдет, если Доминус даст течь? Мы просто останемся погребенными под тоннами соленой воды и никакие меры предосторожности не помогут. Одно дело -- кратковременные экспедиции и совсем другое -- полное переселение сюда". ]]};
		{always=true, "Я пойду.", [[Мишель возвращается к чертежу. ]], code [[ back(); ]]};
        {tag="mtr_clock_more"};
        {"Кто был в общем зале, когда вы выходили?", [[Мишель недовольно отвечает: "Вы донимать меня пришли? Я работаю, вообще-то. Джонс был, донимайте лучше его". ]], code [[ psub("generic");]]};
	};
};

char_goldman_dlg = dlg {
	var {
		state = 0;
        closing = false;
	};
	nam = "Леонард Голдман";
	disp = "Леонард Голдман";
	enter = function(s)
		poff('show_clock');
		if (have(item_goldmans_clock)) then
			pon('show_clock');
		end;

        if atl_mtr_know_goldman_views and not s.closing then
            s.closing = true;
            pon('closing')
        end;

		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[Перед вами на койке лежит человек лет пятидесяти с густыми светлыми волосами. Пышные золотистые усы украшают его слегка печальное лицо. Взгляд его голубых глаз устремлен на вас. Он приветствует вас: "Добро пожаловать на Атлантиду. Я Леонард Голдман. Занимаюсь электросистемами станции". ]];
		else
			psub("generic");
			return [[Леонард Голдман печально смотрит на вас: "Что вы хотели?" ]];
		end;
	end;
	phr = {
		{tag="first_meeting"};
        {"Вас что-то тревожит?", [[Леонард сперва отрицательно мотает головой, но затем, видимо подумав спрашивает: "Вы не видели мои часы?"]], code [[ poff("clock0"); pon("clock1"); ]]};
		{"Я Дэвид Дрейк. Рад знакомству.", [[Леонард кивает, но ничего не говорит. ]], code [[ psub("generic"); ]]};
		{tag="generic"};
        {tag="clock0", "Вас что-то тревожит?", [[Леонард сперва отрицательно мотает головой, но затем, видимо подумав спрашивает: "Вы не видели мои часы?"]], code [[ pon("clock1"); ]]};
        {tag="clock1", false, "Расскажите больше про ваши часы.", function(s)
            return [[Леонард рассказывает: "Это часы моего отца, Франсуа Голдмана. Я уже несколько дней ищу их по всей станции и не могу найти. Я оставил их в общем зале, кажется. Мы обедали там с Мишелем и Чарльзом, но никто из них часы не трогал. Куда они могли деться?" -- Леонард пожимает плечами, после чего дополняет -- "Если увидите их -- дайте знать". ]]
        end, code [[atl_mtr_know_goldman_lost_clock=true; ]]};
        {tag="solis", false, "Когда вы были в Солисе последний раз?", [[Леонард заметно нервничает, отвечая на ваш вопрос: "Около месяца назад. Я вчера должен был там работать, но мы с Чарли договорились, чтобы он поработал в Солисе вместо меня, так что меня там не было. Спросите у Райта, он в курсе". ]], code [[ atl_mtr_know_jones_replaced_goldman = true; ]]};
		{tag="show_clock", false, "[Отдать часы] Я нашел ваши часы.", [[Голдман прячет часы в нагрудный карман и удивленно спрашивает: "Где вы их нашли?" ]], code [[ remove(item_goldmans_clock, pl); psub("give_clock"); atl_mtr_know_goldman_lost_clock=true; ]]};
        {tag="closing", false, "Почему вы считаете, что станцию необходимо закрыть?", [[Голдман объясняет: "Мы уже десять лет здесь. Не видели ни солнца, ни неба, ни травы. Только металлический потолок и километры воды над головой. Мне кажется, что пора бы уже закончить этот эксперимент. В чем-то я согласен с Джонсом -- станция стареет, оборудование выходит из строя. Долго ли до того, как мы потеряем наши субмарины, а вместе с ними и вообще всякую возможность вернуться наверх?"]]};
		{always=true, "Я пойду.", [[Голдман кивает: "Поговорим позже". ]], code [[ back(); ]]};
		{tag="give_clock"};
		{"Часы были в Солисе.", [[Голдман испуганно вскакивает с койки: "Но как они там оказались?!"]], code [[ psub("give_clock_2"); ]]};
		{"Нашел их в Терре.", [[Голдман пожимает плечами: "Как они там оказались? Неважно, главное, что нашлись". ]], code [[ pret(); ]]};
        {"Нашел их в общем зале.", [[Голдман пожимает плечами: "Удивительно, наверное завалились куда-нибудь". ]], code [[ pret(); ]]};
        {tag="give_clock_2"};
        {"Вы точно не могли их там оставить?", [[Голдман делает глубокий вдох и дрожащим голосом отвечает: "Я не был в Солисе почти месяц. Часы же я потерял дней пять назад. Я не мог их там оставить". Он ложится обратно на койку. ]], code [[ poff("clock0"); pon("solis"); psub("generic"); ]]};
        {"Что вы знаете о взрыве?", [[Голдман с трудом собирается с мыслями: "Я к этому не причастен!" Он садится на койку и достает из кармана карандаш, начинает вертеть его в своих дрожащих руках. ]]};
	};
};

char_jones_dlg = dlg {
	var {
		state = 0;
        closing = false;
	};
	nam = "Чарльз Джонс";
	disp = "Чарльз Джонс";
	enter = function(s)
        if atl_mtr_know_jones_views and not s.closing then
            s.closing = true;
            pon('closing');
        end;

        poff("mtr_on_clock", "mtr_on_replace");
        if atl_mtr_started then
            if atl_mtr_know_goldman_lost_clock and not atl_mtr_jones_asked_on_clock then
                pon("mtr_on_clock");
            end;

            if (atl_mtr_know_jones_replaced_goldman or atl_mtr_ask_radcliffe) and not atl_mtr_know_leroy_replaced_jones then
                pon("mtr_on_replace");
            end;
        end;

		if (s.state == 0) then
			s.state = 1;
			psub("first_meeting");
			return [[На койке перед вами сидит немолодой человек, одетый в простой серый костюм. Его седые волосы коротко острижены. Подбородок гладко выбрит. Лицо изрыто глубокими морщинами. В руках он вертит карандаш, задумчиво разглядывая его. ^При виде вас он встает и приветствует вас: "Добрый день, меня зовут Чарли. Чарли Джонс". ]];
		else
			psub("generic");
			return [[Чарльз Джонс приветствует вас, отвлекаясь от своего занятия: "Добрый день". ]];
		end;
	end;
	phr = {
        {tag="first_meeting"};
		{"Я Дэвид Дрейк. Рад знакомству.", [[Чарльз тяжело вздыхает: "Взаимно". ]], code [[ psub("generic"); ]]};
		{tag="generic"};
        {tag="closing", false, "Почему вы считаете, что станцию необходимо закрыть?", [[Чарльз кивает: "Станция старая, разваливается на глазах. Нас слишком мало, чтобы своевременно устранять возрастающее число неполадок". ]]};
        {tag="mtr_on_clock", false, "Что вы можете сказать о часах Леонарда Голдмана?", [[Чарльз удивленно спрашивает: "Леонард уже и вас к их поискам подключил?" ]], code [[
            atl_mtr_jones_asked_on_clock = true;
            psub("mtr_clock_more")
        ]]};
        {tag="mtr_on_replace", false, "Вы были вчера в Солисе?", [[Чарльз отрицательно качает головой: "Вы думаете, взрыв произошел по моей вине? Нет, я не был в Солисе уже недели две. Да, мы договорились с Голдманом, что я подменю его, но я нехорошо себя чувствовал -- возраст сказывается. Поэтому вместо меня в Солис пошел Мишель. Не знаю, в курсе ли Райт -- у нас обычное дело так меняться местами. Единственный кто возражает -- Даркстар, но к счастью, он далеко". ]], code [[
            atl_mtr_know_leroy_replaced_jones = true;
            pon("mtr_comment_replace_a", "mtr_comment_replace_b");
        ]]};
        {tag="mtr_comment_replace_a", false, "Я согласен с Даркстаром. Сейчас мы бы знали, кто виноват в аварии в Солисе. ", [[Чарльз нехотя соглашается с вами: "Наверное, вы все же правы". ]], code [[poff("mtr_comment_replace_b");]]};
        {tag="mtr_comment_replace_b", false, "Я согласен с вами, это лишняя бюрократия. ", [[Чарльз молча кивает. ]], code [[poff("mtr_comment_replace_a");]]};
		{always=true, "Я пойду.", [[
			"До встречи".
		]], code [[ poff("mtr_comment_replace_a", "mtr_comment_replace_b"); back(); ]]};
        {tag="on_leaving"};
        {"Да. соглашусь с вами. ", [[Чарли понимающе кивает. ]], code [[ pret(); ]]};
        {"Но ведь станция в отличном состоянии. ", [[Чарли вздыхает: "Просто, вы еще не пробыли здесь достаточно и многого не видели". ]], code [[ pret(); ]]};
        {tag="mtr_clock_more"};
        {"Расскажите, где вы их видели в последний раз.", [[Чарльз задумчиво чешет голову: "Около недели назад, в общем зале Арктоса. Мы как раз обедали, ну и Леонард, быстро проглотив все, как всегда, убежал, оставив часы на столе. Потом я ушел работать, Мишель, кажется, еще оставался там". ]], code [[psub("generic");]] }
	};
};

atl_lev_radcliffe_dlg = dlg {
	nam = "Уолтер Рэдклифф";
	entered = function(s)
        char_radcliffe.rel_on_join = rel_walter;
        char_anna.rel_on_join = rel_anna;
        atl_lev_state = 2;
        psub("step1");
        remove(char_radcliffe_atlantis, where("char_radcliffe_atlantis"));
        if char_radcliffe_atlantis_dlg.state == 0 then
            char_radcliffe_atlantis_dlg.state = 1;
            return [[В доке Левиафана вы встречаете человека лет сорока -- сорока пяти, одетого в рабочий халат. При виде вас, он представляется: "Добрый день, господин Дрейк. Мое имя -- Уолтер Рэдклифф, я инженер. Мы только что перенесли на Левиафан припасы и оборудование, которые вам выделили Моро с Райтом. Хорошо, что я вас встретил. Нужно вас проинструктировать. Вы уже знаете, что скафандры снабжены радиопередатчиком и фонарем, но вы не знаете об еще одном важном устройстве. Мы называем его кодировщиком", -- Рэдклифф показывает вам устройство, которое все это время держал в руке. Аппарат представляет из себя клавиатуру, как у печатной машинки и набор лампочек, расположенных в ряд. Само устройство помещено в водонепроницаемый корпус, чтобы его можно было использовать под водой. Рэдклифф поясняет: "Каждый скафандр снабжен таким устройством. Оно позволяет нам общаться с навьярами. Как вы уже знаете, навьяры общаются посредством последовательностей цветовых сигналов. При нажатии на клавишу кодировщика, зажигается соответствующая лампочка. Лампы горят строго определенное время, которое регулируется ручкой, вот здесь. Вы можете набирать так быстро, как хотите. Кодировщик выведет последовательность целиком с заданной скоростью. Клавиши промаркированы буквами нашего алфавита, сопоставленными буквам навьярского. Если вы прочитаете учебник, что мы оставили в вашей каюте на Левиафане, вы разберетесь". ]];
        else
            return [[В доке Левиафана вы встречаете Уолтера Рэдклиффа. Завидев вас он говорит: "Дрейк, какая встреча. Мы только что перенесли на Левиафан припасы и оборудование, которые вам выделили Моро с Райтом. Хорошо, что я вас встретил. Нужно вас проинструктировать. Вы уже знаете, что скафандры снабжены радиопередатчиком и фонарем, но вы не знаете об еще одном важном устройстве. Мы называем его кодировщиком", -- Рэдклифф показывает вам устройство, которое все это время держал в руке. Аппарат представляет из себя клавиатуру, как у печатной машинки и набор лампочек, расположенных в ряд. Само устройство помещено в водонепроницаемый корпус, чтобы его можно было использовать под водой. Рэдклифф поясняет: "Каждый скафандр снабжен таким устройством. Оно позволяет нам общаться с навьярами. Как вы уже знаете, навьяры общаются посредством последовательностей цветовых сигналов. При нажатии на клавишу кодировщика, зажигается соответствующая лампочка. Лампы горят строго определенное время, которое регулируется ручкой, вот здесь. Вы можете набирать так быстро, как хотите. Кодировщик выведет последовательность целиком с заданной скоростью. Клавиши промаркированы буквами нашего алфавита, сопоставленными буквам навьярского. Если вы прочитаете учебник, что мы оставили в вашей каюте на Левиафане, вы разберетесь". ]];
        end;
    end;
	phr = {
        {tag="step1"};
        {"Благодарю.", [[Уолтер кивает и продолжает: "Я хотел бы присоединиться к экипажу Левиафана и предложить вам свою помощь в поисках Уильяма". ]], code [[psub("step2");]]};
        {tag="step2"};
		{"Как к этому отнесутся на Атлантиде?", [[Уолтер отвечает: "Я уже обговорил это с Моро и Райтом. Они не против моего решения, тем более, что они не меньше вас заинтересованы в успехе вашей экспедиции". ]]};
		{"Добро пожаловать на борт.", [[Уолтер улыбается: "Отлично, благодарю. У меня есть еще одна просьба. Я хотел бы, чтобы моя сестра отправилась вместе с нами. Она знает язык навьяров и может оказаться крайне полезна во множестве ситуаций, кроме того -- так она остается под моим присмотром". ]], code [[
			table.insert(pl.party, 'radcliffe');
            move(char_radcliffe, char_radcliffe.home);
			psub("sister");
		]]};
		{tag="sister"};
		{"Я не думаю, что ей место на Левиафане -- экспедиция может быть опасна.", function(s)
            walk(atl_lev_first_sail);
            return [["Вы правы, Анне будет безопаснее остаться на Атлантиде. Надеюсь, что мы справимся без нее. Я скоро вернусь", -- с этими словами он выходит из дока. ]];
		end};
		{"Хорошо, ее помощь нам не помешает.", [["Отлично, мы скоро будем готовы", -- с этим словами он выходит из дока. ]], function(s)
		    remove(char_anna_atlantis, atl_oculus_lab_c);
			table.insert(pl.party, 'anna');
            move(char_anna, char_anna.home);
			walk(atl_lev_first_sail);
		end};
	};
};

atl_lev_anna_dlg = dlg {
    var {
        state = 0;
    };
    nam = 'Анна Рэдклифф';
    entered = function(s)
        if char_anna_atlantis_dlg.state == 0 then
            return [[В доке Левиафана вас встречает девушка лет двадцати пяти -- тридцати. Каштановые волосы ниспадают на плечи. Зеленые глаза пристально смотрят на вас. Она подходит к вам и вежливо просит: "Господин Дрейк, вы меня не знаете, но знаете моего брата Уолтера. Мое имя Анна и я хотела бы присоединиться к вашей экспедиции. Я очень надеюсь, что мой опыт общения с навьярами окажется полезным". ]];
        else
            return [[В доке Левиафана вас встречает Анна Рэдклифф. Она подходит к вам и вежливо просит: "Господин Дрейк, позвольте мне присоединиться к вашей экспедиции. Я очень надеюсь, что мой опыт общения с навьярами окажется полезным". ]];
        end;
    end;
    phr = {
        {"Добро пожаловать на борт Левиафана.", function(s)
            remove(char_anna_atlantis, atl_oculus_lab_c);
            table.insert(pl.party, 'anna');
            move(char_anna, char_anna.home);
            pr [[Анна поднимается вместе с вами на борт субмарины. ]];
            walk(leviathan_wardroom);
        end};
        {"Вам лучше остаться на Атлантиде. Экспедиция может оказаться опасной. ", function(s)
            if ArrayUtils.indexOf(pl.party, 'learr') ~= 0 then
                pr [[Анна разочаровано произносит: "Да, я понимаю. Удачи вам в вашем путешествии". ]];
                walk(leviathan_wardroom);
            else
                return [[Анна отвечает: "Вам на борту нужен кто-то кто разбирается в культуре и языке навьяров". ]];
            end;
        end};
        {"Вам лучше остаться на Атлантиде. Нам не нужны еще люди. ", function(s)
            rel_anna = rel_anna - 1;
            if ArrayUtils.indexOf(pl.party, 'learr') ~= 0 then
                pr [[Анна молча уходит. ]];
                walk(leviathan_wardroom);
            else
                return [[Анна отвечает: "Вам на борту нужен кто-то кто разбирается в культуре и языке навьяров". ]];
            end;
        end};
    }
}

atl_lev_anna_learr_dlg = dlg {
    nam = "Атлантида, Аква, гостевой док A";
    entered = [[В доке Левиафана вас встречает Уолтер Рэдклифф: "Добрый день, Дэвид. Нам в экспедиции нужен кто-то с хорошим знанием навьярского языка и культуры. Насколько я знаю, Леарр хотела бы отправиться с нами. Так же, я хотел бы предложить нам принять в экипаж мою сестру, Анну". ]];
    phr = {
        {"Мы возьмем обеих.", 'Уолтер говорит: "Отлично, мы будем ждать вас на борту".', function(s)
            table.insert(pl.party, 'learr');
            remove("char_learr_atlantis", where("char_learr_atlantis"));
            move(char_learr, char_learr.home);
            table.insert(pl.party, 'anna');
            remove(char_anna_atlantis, atl_oculus_lab_c);
            move(char_anna, char_anna.home);
            back();
        end};
        {"Мы возьмем Леарр.", "Уолтер молча кивает и поднимается на борт Левиафана.", function(s)
            table.insert(pl.party, 'learr');
            move(char_learr, char_learr.home);
            remove("char_learr_atlantis", where("char_learr_atlantis"));
            back();
        end};
        {"Мы возьмем Анну.", "Уолтер молча кивает и поднимается на борт Левиафана.", function(s)
            remove(char_anna_atlantis, atl_oculus_lab_c);
            table.insert(pl.party, 'anna');
            move(char_anna, char_anna.home);
            back();
        end};
        {"Нам не нужны еще люди.", [[Уолтер отрицательно качает головой: "Без их помощи нам будет гораздо труднее, поэтому я вынужден настоять на своем". ]], function(s)
            rel_walter = rel_walter - 1;
        end};
    };
}