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