xref: /dports/games/dungeon/dungeon-3.2_1/dungeon-gdt/commons.c

#include "glk.h"
#include "miscfort.h"
#include "commons.h"

strid_t datafile = 0;
glsi32 datafile_strings = 0;
glsi32 datafile_strindex[DATAFILE_LEN2];

struct prsvec_1_ prsvec_1;
struct prssta_1_ prssta_1;
struct play_1_ play_1;
struct rmsg_1_ rmsg_1;
struct input_1_ input_1;
struct rooms_1_ rooms_1;
struct exits_1_ exits_1;
struct objcts_1_ objcts_1;
struct oroom2_1_ oroom2_1;
struct cevent_1_ cevent_1;
struct hack_1_ hack_1;
struct vill_1_ vill_1;
struct advs_1_ advs_1;
struct findex_1_ findex_1;

/* Table of constant values */

logical c_false = FALSE_;
logical c_true = TRUE_;

integer c__0 = 0;
integer c__1 = 1;
integer c__2 = 2;
integer c__3 = 3;
integer c__4 = 4;
integer c__5 = 5;
integer c__6 = 6;
integer c__7 = 7;
integer c__8 = 8;
integer c__9 = 9;
integer c__10 = 10;
integer c__11 = 11;
integer c__12 = 12;
integer c__14 = 14;
integer c__15 = 15;
integer c__16 = 16;
integer c__18 = 18;
integer c__19 = 19;
integer c__20 = 20;
integer c__21 = 21;
integer c__22 = 22;
integer c__23 = 23;
integer c__24 = 24;
integer c__25 = 25;
integer c__27 = 27;
integer c__30 = 30;
integer c__31 = 31;
integer c__33 = 33;
integer c__34 = 34;
integer c__35 = 35;
integer c__36 = 36;
integer c__38 = 38;
integer c__39 = 39;
integer c__40 = 40;
integer c__42 = 42;
integer c__43 = 43;
integer c__44 = 44;
integer c__45 = 45;
integer c__46 = 46;
integer c__47 = 47;
integer c__48 = 48;
integer c__49 = 49;
integer c__50 = 50;
integer c__51 = 51;
integer c__52 = 52;
integer c__53 = 53;
integer c__54 = 54;
integer c__55 = 55;
integer c__56 = 56;
integer c__57 = 57;
integer c__58 = 58;
integer c__59 = 59;
integer c__60 = 60;
integer c__61 = 61;
integer c__62 = 62;
integer c__63 = 63;
integer c__64 = 64;
integer c__65 = 65;
integer c__66 = 66;
integer c__67 = 67;
integer c__69 = 69;
integer c__70 = 70;
integer c__71 = 71;
integer c__75 = 75;
integer c__76 = 76;
integer c__79 = 79;
integer c__80 = 80;
integer c__81 = 81;
integer c__82 = 82;
integer c__84 = 84;
integer c__85 = 85;
integer c__87 = 87;
integer c__88 = 88;
integer c__89 = 89;
integer c__90 = 90;
integer c__93 = 93;
integer c__94 = 94;
integer c__96 = 96;
integer c__98 = 98;
integer c__99 = 99;
integer c__100 = 100;
integer c__103 = 103;
integer c__104 = 104;
integer c__107 = 107;
integer c__108 = 108;
integer c__109 = 109;
integer c__110 = 110;
integer c__111 = 111;
integer c__112 = 112;
integer c__113 = 113;
integer c__115 = 115;
integer c__118 = 118;
integer c__119 = 119;
integer c__121 = 121;
integer c__122 = 122;
integer c__123 = 123;
integer c__124 = 124;
integer c__126 = 126;
integer c__128 = 128;
integer c__129 = 129;
integer c__130 = 130;
integer c__131 = 131;
integer c__132 = 132;
integer c__133 = 133;
integer c__134 = 134;
integer c__135 = 135;
integer c__136 = 136;
integer c__137 = 137;
integer c__138 = 138;
integer c__139 = 139;
integer c__140 = 140;
integer c__141 = 141;
integer c__142 = 142;
integer c__143 = 143;
integer c__144 = 144;
integer c__145 = 145;
integer c__148 = 148;
integer c__149 = 149;
integer c__150 = 150;
integer c__151 = 151;
integer c__152 = 152;
integer c__153 = 153;
integer c__154 = 154;
integer c__155 = 155;
integer c__156 = 156;
integer c__158 = 158;
integer c__159 = 159;
integer c__160 = 160;
integer c__161 = 161;
integer c__162 = 162;
integer c__163 = 163;
integer c__164 = 164;
integer c__165 = 165;
integer c__166 = 166;
integer c__169 = 169;
integer c__170 = 170;
integer c__171 = 171;
integer c__172 = 172;
integer c__173 = 173;
integer c__175 = 175;
integer c__176 = 176;
integer c__177 = 177;
integer c__178 = 178;
integer c__179 = 179;
integer c__180 = 180;
integer c__181 = 181;
integer c__182 = 182;
integer c__183 = 183;
integer c__184 = 184;
integer c__185 = 185;
integer c__186 = 186;
integer c__187 = 187;
integer c__188 = 188;
integer c__189 = 189;
integer c__190 = 190;
integer c__191 = 191;
integer c__195 = 195;
integer c__197 = 197;
integer c__200 = 200;
integer c__201 = 201;
integer c__202 = 202;
integer c__203 = 203;
integer c__204 = 204;
integer c__205 = 205;
integer c__207 = 207;
integer c__208 = 208;
integer c__209 = 209;
integer c__210 = 210;
integer c__211 = 211;
integer c__212 = 212;
integer c__213 = 213;
integer c__214 = 214;
integer c__217 = 217;
integer c__218 = 218;
integer c__219 = 219;
integer c__220 = 220;
integer c__226 = 226;
integer c__227 = 227;
integer c__228 = 228;
integer c__229 = 229;
integer c__232 = 232;
integer c__233 = 233;
integer c__234 = 234;
integer c__235 = 235;
integer c__236 = 236;
integer c__238 = 238;
integer c__239 = 239;
integer c__240 = 240;
integer c__241 = 241;
integer c__242 = 242;
integer c__243 = 243;
integer c__244 = 244;
integer c__247 = 247;
integer c__248 = 248;
integer c__249 = 249;
integer c__250 = 250;
integer c__256 = 256;
integer c__257 = 257;
integer c__258 = 258;
integer c__259 = 259;
integer c__260 = 260;
integer c__261 = 261;
integer c__262 = 262;
integer c__263 = 263;
integer c__264 = 264;
integer c__265 = 265;
integer c__269 = 269;
integer c__270 = 270;
integer c__272 = 272;
integer c__273 = 273;
integer c__279 = 279;
integer c__280 = 280;
integer c__282 = 282;
integer c__283 = 283;
integer c__284 = 284;
integer c__285 = 285;
integer c__286 = 286;
integer c__287 = 287;
integer c__288 = 288;
integer c__289 = 289;
integer c__290 = 290;
integer c__291 = 291;
integer c__292 = 292;
integer c__293 = 293;
integer c__294 = 294;
integer c__295 = 295;
integer c__296 = 296;
integer c__297 = 297;
integer c__298 = 298;
integer c__299 = 299;
integer c__300 = 300;
integer c__301 = 301;
integer c__302 = 302;
integer c__310 = 310;
integer c__326 = 326;
integer c__327 = 327;
integer c__328 = 328;
integer c__334 = 334;
integer c__335 = 335;
integer c__336 = 336;
integer c__337 = 337;
integer c__338 = 338;
integer c__339 = 339;
integer c__340 = 340;
integer c__341 = 341;
integer c__343 = 343;
integer c__344 = 344;
integer c__345 = 345;
integer c__350 = 350;
integer c__356 = 356;
integer c__357 = 357;
integer c__358 = 358;
integer c__361 = 361;
integer c__362 = 362;
integer c__363 = 363;
integer c__364 = 364;
integer c__365 = 365;
integer c__366 = 366;
integer c__367 = 367;
integer c__368 = 368;
integer c__369 = 369;
integer c__370 = 370;
integer c__371 = 371;
integer c__378 = 378;
integer c__379 = 379;
integer c__380 = 380;
integer c__381 = 381;
integer c__382 = 382;
integer c__385 = 385;
integer c__386 = 386;
integer c__387 = 387;
integer c__390 = 390;
integer c__391 = 391;
integer c__396 = 396;
integer c__397 = 397;
integer c__398 = 398;
integer c__400 = 400;
integer c__401 = 401;
integer c__402 = 402;
integer c__403 = 403;
integer c__404 = 404;
integer c__405 = 405;
integer c__406 = 406;
integer c__407 = 407;
integer c__408 = 408;
integer c__409 = 409;
integer c__410 = 410;
integer c__411 = 411;
integer c__412 = 412;
integer c__413 = 413;
integer c__414 = 414;
integer c__419 = 419;
integer c__420 = 420;
integer c__421 = 421;
integer c__422 = 422;
integer c__423 = 423;
integer c__424 = 424;
integer c__425 = 425;
integer c__426 = 426;
integer c__427 = 427;
integer c__428 = 428;
integer c__429 = 429;
integer c__430 = 430;
integer c__431 = 431;
integer c__432 = 432;
integer c__437 = 437;
integer c__438 = 438;
integer c__439 = 439;
integer c__442 = 442;
integer c__443 = 443;
integer c__445 = 445;
integer c__447 = 447;
integer c__448 = 448;
integer c__452 = 452;
integer c__453 = 453;
integer c__454 = 454;
integer c__455 = 455;
integer c__456 = 456;
integer c__457 = 457;
integer c__458 = 458;
integer c__459 = 459;
integer c__460 = 460;
integer c__461 = 461;
integer c__462 = 462;
integer c__463 = 463;
integer c__464 = 464;
integer c__465 = 465;
integer c__466 = 466;
integer c__469 = 469;
integer c__470 = 470;
integer c__498 = 498;
integer c__499 = 499;
integer c__502 = 502;
integer c__505 = 505;
integer c__506 = 506;
integer c__507 = 507;
integer c__510 = 510;
integer c__511 = 511;
integer c__512 = 512;
integer c__515 = 515;
integer c__516 = 516;
integer c__519 = 519;
integer c__520 = 520;
integer c__521 = 521;
integer c__522 = 522;
integer c__523 = 523;
integer c__525 = 525;
integer c__527 = 527;
integer c__528 = 528;
integer c__529 = 529;
integer c__530 = 530;
integer c__531 = 531;
integer c__532 = 532;
integer c__533 = 533;
integer c__534 = 534;
integer c__535 = 535;
integer c__536 = 536;
integer c__537 = 537;
integer c__538 = 538;
integer c__539 = 539;
integer c__540 = 540;
integer c__541 = 541;
integer c__542 = 542;
integer c__543 = 543;
integer c__544 = 544;
integer c__545 = 545;
integer c__546 = 546;
integer c__547 = 547;
integer c__548 = 548;
integer c__549 = 549;
integer c__550 = 550;
integer c__551 = 551;
integer c__559 = 559;
integer c__560 = 560;
integer c__561 = 561;
integer c__562 = 562;
integer c__563 = 563;
integer c__564 = 564;
integer c__565 = 565;
integer c__566 = 566;
integer c__567 = 567;
integer c__568 = 568;
integer c__569 = 569;
integer c__570 = 570;
integer c__571 = 571;
integer c__572 = 572;
integer c__573 = 573;
integer c__577 = 577;
integer c__578 = 578;
integer c__579 = 579;
integer c__580 = 580;
integer c__583 = 583;
integer c__584 = 584;
integer c__585 = 585;
integer c__590 = 590;
integer c__591 = 591;
integer c__592 = 592;
integer c__593 = 593;
integer c__594 = 594;
integer c__595 = 595;
integer c__596 = 596;
integer c__597 = 597;
integer c__598 = 598;
integer c__599 = 599;
integer c__600 = 600;
integer c__601 = 601;
integer c__603 = 603;
integer c__604 = 604;
integer c__605 = 605;
integer c__606 = 606;
integer c__612 = 612;
integer c__613 = 613;
integer c__614 = 614;
integer c__615 = 615;
integer c__616 = 616;
integer c__617 = 617;
integer c__618 = 618;
integer c__619 = 619;
integer c__620 = 620;
integer c__621 = 621;
integer c__622 = 622;
integer c__623 = 623;
integer c__625 = 625;
integer c__626 = 626;
integer c__627 = 627;
integer c__628 = 628;
integer c__629 = 629;
integer c__630 = 630;
integer c__631 = 631;
integer c__632 = 632;
integer c__633 = 633;
integer c__634 = 634;
integer c__635 = 635;
integer c__636 = 636;
integer c__637 = 637;
integer c__638 = 638;
integer c__639 = 639;
integer c__640 = 640;
integer c__641 = 641;
integer c__642 = 642;
integer c__643 = 643;
integer c__644 = 644;
integer c__645 = 645;
integer c__646 = 646;
integer c__647 = 647;
integer c__648 = 648;
integer c__649 = 649;
integer c__650 = 650;
integer c__651 = 651;
integer c__658 = 658;
integer c__659 = 659;
integer c__660 = 660;
integer c__662 = 662;
integer c__663 = 663;
integer c__664 = 664;
integer c__666 = 666;
integer c__667 = 667;
integer c__668 = 668;
integer c__672 = 672;
integer c__673 = 673;
integer c__674 = 674;
integer c__675 = 675;
integer c__676 = 676;
integer c__681 = 681;
integer c__682 = 682;
integer c__683 = 683;
integer c__684 = 684;
integer c__685 = 685;
integer c__686 = 686;
integer c__687 = 687;
integer c__688 = 688;
integer c__694 = 694;
integer c__705 = 705;
integer c__706 = 706;
integer c__707 = 707;
integer c__708 = 708;
integer c__709 = 709;
integer c__710 = 710;
integer c__711 = 711;
integer c__712 = 712;
integer c__723 = 723;
integer c__724 = 724;
integer c__725 = 725;
integer c__726 = 726;
integer c__727 = 727;
integer c__728 = 728;
integer c__729 = 729;
integer c__730 = 730;
integer c__733 = 733;
integer c__734 = 734;
integer c__735 = 735;
integer c__736 = 736;
integer c__737 = 737;
integer c__738 = 738;
integer c__741 = 741;
integer c__742 = 742;
integer c__743 = 743;
integer c__744 = 744;
integer c__745 = 745;
integer c__746 = 746;
integer c__747 = 747;
integer c__748 = 748;
integer c__751 = 751;
integer c__752 = 752;
integer c__753 = 753;
integer c__756 = 756;
integer c__757 = 757;
integer c__758 = 758;
integer c__759 = 759;
integer c__760 = 760;
integer c__763 = 763;
integer c__764 = 764;
integer c__765 = 765;
integer c__766 = 766;
integer c__767 = 767;
integer c__768 = 768;
integer c__769 = 769;
integer c__778 = 778;
integer c__779 = 779;
integer c__780 = 780;
integer c__781 = 781;
integer c__782 = 782;
integer c__783 = 783;
integer c__786 = 786;
integer c__792 = 792;
integer c__797 = 797;
integer c__798 = 798;
integer c__799 = 799;
integer c__800 = 800;
integer c__806 = 806;
integer c__807 = 807;
integer c__808 = 808;
integer c__809 = 809;
integer c__810 = 810;
integer c__811 = 811;
integer c__818 = 818;
integer c__825 = 825;
integer c__826 = 826;
integer c__827 = 827;
integer c__828 = 828;
integer c__829 = 829;
integer c__832 = 832;
integer c__838 = 838;
integer c__843 = 843;
integer c__846 = 846;
integer c__847 = 847;
integer c__848 = 848;
integer c__851 = 851;
integer c__855 = 855;
integer c__856 = 856;
integer c__857 = 857;
integer c__858 = 858;
integer c__859 = 859;
integer c__860 = 860;
integer c__863 = 863;
integer c__864 = 864;
integer c__865 = 865;
integer c__866 = 866;
integer c__867 = 867;
integer c__868 = 868;
integer c__869 = 869;
integer c__870 = 870;
integer c__871 = 871;
integer c__874 = 874;
integer c__875 = 875;
integer c__876 = 876;
integer c__877 = 877;
integer c__880 = 880;
integer c__882 = 882;
integer c__885 = 885;
integer c__886 = 886;
integer c__889 = 889;
integer c__891 = 891;
integer c__894 = 894;
integer c__895 = 895;
integer c__896 = 896;
integer c__897 = 897;
integer c__898 = 898;
integer c__899 = 899;
integer c__900 = 900;
integer c__903 = 903;
integer c__904 = 904;
integer c__905 = 905;
integer c__906 = 906;
integer c__907 = 907;
integer c__908 = 908;
integer c__909 = 909;
integer c__910 = 910;
integer c__911 = 911;
integer c__913 = 913;
integer c__914 = 914;
integer c__915 = 915;
integer c__923 = 923;
integer c__924 = 924;
integer c__925 = 925;
integer c__926 = 926;
integer c__927 = 927;
integer c__928 = 928;
integer c__929 = 929;
integer c__930 = 930;
integer c__931 = 931;
integer c__933 = 933;
integer c__934 = 934;
integer c__935 = 935;
integer c__936 = 936;
integer c__937 = 937;
integer c__938 = 938;
integer c__939 = 939;
integer c__942 = 942;
integer c__943 = 943;
integer c__944 = 944;
integer c__945 = 945;
integer c__946 = 946;
integer c__947 = 947;
integer c__948 = 948;
integer c__949 = 949;
integer c__950 = 950;
integer c__951 = 951;
integer c__952 = 952;
integer c__953 = 953;
integer c__954 = 954;
integer c__955 = 955;
integer c__956 = 956;
integer c__959 = 959;
integer c__960 = 960;
integer c__961 = 961;
integer c__962 = 962;
integer c__963 = 963;
integer c__967 = 967;
integer c__968 = 968;
integer c__969 = 969;
integer c__970 = 970;
integer c__971 = 971;
integer c__972 = 972;
integer c__973 = 973;
integer c__974 = 974;
integer c__976 = 976;
integer c__977 = 977;
integer c__978 = 978;
integer c__979 = 979;
integer c__980 = 980;
integer c__981 = 981;
integer c__983 = 983;
integer c__984 = 984;
integer c__985 = 985;
integer c__986 = 986;
integer c__987 = 987;
integer c__990 = 990;
integer c__991 = 991;
integer c__992 = 992;
integer c__993 = 993;
integer c__994 = 994;
integer c__995 = 995;
integer c__996 = 996;
integer c__999 = 999;
integer c__1000 = 1000;
integer c__1001 = 1001;
integer c__1002 = 1002;
integer c__1003 = 1003;
integer c__1004 = 1004;
integer c__1005 = 1005;
integer c__1006 = 1006;
integer c__1007 = 1007;
integer c__1008 = 1008;
integer c__1009 = 1009;
integer c__1010 = 1010;
integer c__1011 = 1011;
integer c__1012 = 1012;
integer c__1013 = 1013;
integer c__1014 = 1014;
integer c__1015 = 1015;
integer c__1016 = 1016;
integer c__1017 = 1017;
integer c__1020 = 1020;
integer c__1021 = 1021;
integer c__1022 = 1022;
integer c__1023 = 1023;
integer c__1024 = 1024;
integer c__1025 = 1025;
integer c__1026 = 1026;
integer c__1028 = 1028;
integer c__1029 = 1029;
integer c__1034 = 1034;
integer c__1036 = 1036;
integer c__1038 = 1038;
integer c__1039 = 1039;
integer c__1040 = 1040;
integer c__1042 = 1042;
integer c__1043 = 1043;
integer c__1044 = 1044;
integer c__1046 = 1046;
integer c__1047 = 1047;
integer c__1048 = 1048;
integer c__1049 = 1049;
integer c__1050 = 1050;
integer c__1051 = 1051;
integer c__1052 = 1052;
integer c__1053 = 1053;
integer c__1054 = 1054;
integer c__1056 = 1056;
integer c__1057 = 1057;
integer c__1063 = 1063;
integer c__1064 = 1064;
integer c__1065 = 1065;
integer c__1066 = 1066;
integer c__1067 = 1067;
integer c__1070 = 1070;
integer c__1071 = 1071;
integer c__1075 = 1075;
integer c__1076 = 1076;
integer c__1077 = 1077;
integer c__1081 = 1081;
integer c__1500 = 1500;
integer c__10240 = 10240;
integer c_n1 = -1;
integer c_n10 = -10;
integer c_n61 = -61;
integer c_n5555 = -5555;