viewing paste Unknown #6303 | C

Posted on the
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
//===== Hercules Script ======================================= 
//= Hall of Abyss - Al De Baran
//===== By: ================================================== 
//= Masao
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= Hercules
//===== Description: ========================================= 
//= NPC's needed to invest into Al De Baran Castles for the
//= Hall of Abyss entrance and warp.
//===== Additional Comments: ================================= 
//= 1.0 First Version.
//============================================================ 
 
aldeg_cas01,85,105,4    script  Gate Manager#aldeg_cas01::aldeg_hoa 421,{
 
    set .@GID,GetCastleData(""+strnpcinfo(2)+"",1);
    if (.@GID == getcharid(2)) {
        mes "[Gate Manager]";
        mes "Hello, I am the Gate Manager from Cat Paw Merchant Guild warp department.";
        mes "How may I help you today?";
        next;
        switch (select("Invest for gate connection:Deepest Layer Dungeon Access:Abyss Gate Access:Cancel")) {
        case 1:
            if (checkweight(1301,3) == 2 || checkweight(1301,3) == 3) {
                mes "[Gate Manager]";
                mes "You have too many items to receive the Thank You Ticket as a small gift for your investment.";
                mes "Please come back after making room in your inventory.";
                close;
            }
            if (countitem(6488) > 4799) {
                mes "[Gate Manager]";
                mes "You have too many Thank You Tickets to receive any more.";
                mes "Cannot give you any more tickets. Please use your ticket and come back.";
                mes "The ticket can be exchanged with various items in Malangdo.";
                close;
            }
            if ($alde_invest_result == 0) {
                if (.@GID == getcharid(2)) {
                    mes "[Gate Manager]";
                    mes "Proceed investing under your guild name.";
                    mes "There are 2 ways to invest, by Zeny or the Investment Certificate given out by the Cat Paw Merchant Guild.";
                    mes "Which way would you like to make your investment?";
                    next;
                    switch (select("Invest with Zeny.:Invest with Investment Certificates.:Cancel")) {
                    case 1:
                        mes "[Gate Manager]";
                        mes "So you've decided to invest in Zeny.";
                        mes "Minimum investment unit is ^4d4dff10,000 Zeny^000000.";
                        mes "You can invest a maximum of 50 units which is ^4d4dff 500,000 Zeny^000000.";
                        next;
                        switch (select("1 unit 10,000 Zeny:10 units 100,000 Zeny:50 units 500,000 Zeny:Another amount:Cancel")) {
                        case 1:
                            if (Zeny > 9999) {
                                mes "[Gate Manager]";
                                mes "You've invested 1 unit 10,000 Zeny.";
                                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                                set Zeny, Zeny - 10000;
                                setcastledata ""+strnpcinfo(2)+"",18,1;
                                getitem 6488,1;
                                close;
                            }
                            mes "[Gate Manager]";
                            mes "You do not have enough money.";
                            close;
                        case 2:
                            if (Zeny > 99999) {
                                mes "[Gate Manager]";
                                mes "You've invested 10 units 100,000 Zeny.";
                                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                                set Zeny, Zeny - 100000;
                                setcastledata ""+strnpcinfo(2)+"",18,10;
                                getitem 6488,10;
                                close;
                            }
                            mes "[Gate Manager]";
                            mes "You do not have enough money.";
                            close;
                        case 3:
                            if (Zeny > 499999) {
                                mes "[Gate Manager]";
                                mes "You've invested 50 units 500,000 Zeny.";
                                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                                set Zeny, Zeny - 500000;
                                setcastledata ""+strnpcinfo(2)+"",18,50;
                                getitem 6488,50;
                                close;
                            }
                            mes "[Gate Manager]";
                            mes "You do not have enough money.";
                            close;
                        case 4:
                            mes "[Gate Manager]";
                            mes "Please enter the amount you want to invest.";
                            mes "Please choose between 1 to 200.";
                            mes "Please enter 0 to cancel.";
                            next;
                            input .@input;
                            if (.@input < 0 || .@input > 200) {
                                mes "[Gate Manager]";
                                mes "You've exceeded the amount per investment.";
                                mes "Please try again.";
                                close;
                            } else if (.@input == 0) {
                                mes "[Gate Manager]";
                                mes "Canceled.";
                                close;
                            }
                            set .@don, .@input * 10000;
                            if (Zeny < .@don) {
                                mes "[Gate Manager]";
                                mes "You do not have enough money.";
                                close;
                            }
                            mes "[Gate Manager]";
                            mes " " + .@input + " unit " + .@don + "z Zeny invested.";
                            mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                            set Zeny, Zeny - .@don;
                            setcastledata ""+strnpcinfo(2)+"",18,.@input;
                            getitem 6488,.@input;
                            close;
                        case 5:
                            mes "[Gate Manager]";
                            mes "Canceled.";
                            close;
                        }
                    case 2:
                        mes "[Gate Manager]";
                        mes "Wow, you've brought Investment Certificates.";
                        mes "How many certificates will you submit?";
                        next;
                        switch (select("1 Investment Certificate:5 Investment Certificates:Another amount:Cancel")) {
                        case 1:
                            if (countitem(6489) > 0) {
                                mes "[Gate Manager]";
                                mes "1 Investment Certificate is the same as an investment of 10 units (100,000z).";
                                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                                setcastledata ""+strnpcinfo(2)+"",18,10;
                                delitem 6489,1;
                                getitem 6488,10;
                                close;
                            }
                            mes "[Gate Manager]";
                            mes "Looks like you have fewer Investment Certificates than you want to submit.";
                            close;
                        case 2:
                            if (countitem(6489) > 4) {
                                mes "[Gate Manager]";
                                mes "5 Investment Certificates are the same as an investment of 50 units (500,000z).";
                                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                                setcastledata ""+strnpcinfo(2)+"",18,50;
                                delitem 6489,5;
                                getitem 6488,50;
                                close;
                            }
                            mes "[Gate Manager]";
                            mes "Looks like you have fewer Investment Certificates than you want to submit.";
                            close;
                        case 3:
                            mes "[Gate Manager]";
                            mes "Please enter the number of Investment Certificates you want to submit.";
                            mes "Please choose between 1 to 20.";
                            mes "Please enter 0 to cancel.";
                            next;
                            input .@input;
                            if (.@input < 0 || .@input > 20) {
                                mes "[Gate Manager]";
                                mes "You've exceeded the amount per investment.";
                                mes "Please try again.";
                                close;
                            } else if (.@input == 0) {
                                mes "[Gate Manager]";
                                mes "Canceled.";
                                close;
                            }
                            if (countitem(6489) < .@input) {
                                mes "[Gate Manager]";
                                mes "Looks like you have fewer Investment Certificates than you want to submit.";
                                close;
                            }
                            set .@don, .@input * 10;
                            mes "[Gate Manager]";
                            mes "Investment Certificate" + .@input + "is the same as" + .@don + "unit(s) (" + .@don + "00,000z).";
                            mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                            setcastledata ""+strnpcinfo(2)+"",18,.@don;
                            delitem 6489,.@input;
                            getitem 6488,.@don;
                            close;
                        case 5:
                            mes "[Gate Manager]";
                            mes "Canceled.";
                            close;
                        }
                    case 3:
                        mes "[Gate Manager]";
                        mes "Canceled.";
                        close;
                    }
                }
                mes "[Gate Manager]";
                mes "You don't seem to be the member of guild owning this castle.";
                mes "Please use normal investigate from the Agit square.";
                close;
            }
            mes "[Gate Manager]";
            mes "We do not receive investments now.";
            mes "Please come back during the investment duration.";
            close;
        case 2:
            if (GetAgitInvestMsg == 3) {
                set .@inv_result_alde, $alde_invest_result;
                if ((.@inv_result_alde == 2) || (.@inv_result_alde == 3)) {
                    mes "[Gate Manager]";
                    mes "You are interested in exploring the Luina Guild Dungeon Deepest Layer (2F).";
                    mes "Let me guide you. Good luck.";
                    close2;
                    if(strnpcinfo(2) == "aldeg_cas01"){
                        warp "gld_dun02_2",32,122;
                    } else if(strnpcinfo(2) == "aldeg_cas02"){
                        warp "gld_dun02_2",79,30;
                    } else if(strnpcinfo(2) == "aldeg_cas03"){
                        warp "gld_dun02_2",165,38;
                    } else if(strnpcinfo(2) == "aldeg_cas04"){
                        warp "gld_dun02_2",160,148;
                    } else {
                        warp "gld_dun02_2",103,169;
                    }
                    end;
                }
                mes "[Gate Manager]";
                mes "Luina was not chosen to be connected with a gate this time.";
                mes "Please wait for the next investment duration.";
                close;
            } else if (GetAgitInvestMsg < 3) {
                mes "[Gate Manager]";
                mes "There are currently no connected dungeon gates.";
                mes "A gate will be connected as soon as the investment results are available.";
                mes "Please wait.";
                close;
            }
            mes "[Gate Manager]";
            mes "The gate will disappear soon.";
            mes "The dungeon is no longer accessible.";
            mes "Please try again next time.";
            close;
        case 3:
            if (GetAgitInvestMsg == 3) {
                set .@inv_result_alde, $alde_invest_result;
                if (.@inv_result_alde == 3) {
                    mes "[Gate Manager]";
                    mes "Let me guide you to the Abyss Gap connected with Luina, the Abyss Gate 'Way of the Warrior'.";
                    close2;
                    if(strnpcinfo(2) == "aldeg_cas01"){
                        warp "gld2_ald",175,41;
                    } else if(strnpcinfo(2) == "aldeg_cas02"){
                        warp "gld2_ald",77,64;
                    } else if(strnpcinfo(2) == "aldeg_cas03"){
                        warp "gld2_ald",46,127;
                    } else if(strnpcinfo(2) == "aldeg_cas04"){
                        warp "gld2_ald",104,246;
                    } else {
                        warp "gld2_ald",241,156;
                    }
                    end;
                }
                mes "[Gate Manager]";
                mes "Luina was not chosen to be connected with a gate this time.";
                mes "Please wait for the next investment duration.";
                close;
            } else if (GetAgitInvestMsg < 3) {
                mes "[Gate Manager]";
                mes "There are currently no connected dungeon gates.";
                mes "A gate will be connected as soon as the investment results are available.";
                mes "Please wait.";
                close;
            }
            mes "[Gate Manager]";
            mes "The gate will disappear soon.";
            mes "The dungeon is no longer accessible.";
            mes "Please try again next time.";
            close;
        case 4:
            mes "[Gate Manager]";
            mes "Canceled.";
            close;
        }
    }
    mes "[Gate Manager]";
    mes "You don't seem to be the member of the guild owning this castle.";
    mes "If you need any help, please visit any of our guild members at Luina Square.";
    close;
}
 
alde_gld,186,157,3  script  Cat Paw Merchant Guild Megrez   549,{
 
    mes "[Megrez]";
    mes "I'm Mergrez, the Luina Branch Manager in Al De Baran of the Cat Paw Merchant Guild.";
    mes "I consult about investments for the Abyss Gate development.";
    mes "How may I help you?";
    next;
    switch (select("What is the Abyss Gate?:What do you mean by investing in the gate development?:I want to invest in this area.:Cancel")) {
    case 1:
        mes "[Megrez]";
        mes "It is only called the Abyss Gate for convenience but it's simply a ^4d4dffgap to another dimension^000000.";
        next;
        mes "[Megrez]";
        mes "More of these gaps are found here and there after Morocc created the Crack of Dimension.";
        mes "I personally think that the Abyss Gate found recently is part of the past or even from the future.";
        next;
        mes "[Megrez]";
        mes "It is said that the Abyss Gate forcefully connects to another dimension beyond our world.";
        mes "Probably because there are those that follow the Emperium's power.";
        next;
        mes "[Megrez]";
        mes "There are a total of 4 Abyss Gates found so far. They all connect to the Agit region overflowing with the Emperium's force.";
        next;
        mes "[Megrez]";
        mes "We named each by dimension beyond the gap.";
        mes "^4d4dffWay of the Warrior, Hill of the Dead, Winds of the Ancient, and the Hero's Tears.^000000";
        mes "And all these four gaps are called the ^4d4dffAbyss Gate^000000.";
        next;
        mes "[Megrez]";
        mes "The gap may lead to the past, future or even an unknown world.";
        mes "The power the Abyss Gate holds is both fearful but sweet";
        next;
        mes "[Megrez]";
        mes "Are you also interested in exploring the Abyss Gate?";
        mes "Ha ha. You'll need to go through several steps before exploring.";
        next;
        mes "[Megrez]";
        mes "If you are interested";
        mes "will you take the time to sit down and talk about investing in maintaining the Abyss Gate?";
        close;
    case 2:
        mes "[Megrez]";
        mes "Are you curious about investing in the Gate development?";
        mes "What do you want to know about?";
        next;
        switch (select("About the Gate?:About investments?:How to invest?:Benefits from investing?")) {
        case 1:
            mes "[Megrez]";
            mes "The Gate is what it is named after, a door.";
            mes "A dimensional passageway that connects here to there.";
            next;
            mes "[Megrez]";
            mes "The Abyss Gate was created as a very unstable path from beyond the dimensional gap,";
            mes "therefore traveling through the Gate will need an artificial dimension connection.";
            next;
            mes "[Megrez]";
            mes "Humans are far from having the advanced technology that's needed";
            mes "but our Cat Paw Merchant Guild holds the high technology to use the Crack of Dimension.";
            next;
            mes "[Megrez]";
            mes "So we made a proposal.";
            mes "With the promise of support the Cat Paw Merchant Guild and paying for the immense expense for maintaining the connection with the Gate,";
            mes "we will make the connection to the Crack of Dimension.";
            next;
            mes "[Megrez]";
            mes "Of course working on the Crack of Dimension is no easy job and it does come with risks.";
            mes "There are cases where people go missing from traveling between.";
            next;
            mes "[Megrez]";
            mes "The best maintaining duration is about 4 days";
            mes "You invest in us and we create the door that connects to the dimensional gap.";
            next;
            mes "[Megrez]";
            mes "Doesn't this sound like the perfect win-win proposal?";
            close;
        case 2:
            mes "[Megrez]";
            mes "Forcing through the unstable dimensional gap and creating a passageway is very dangerous.";
            mes "Not to mention the huge resources needed.";
            next;
            mes "[Megrez]";
            mes "If you take care of the charges and also the danger pay by investing in the Cat Paw Merchant Guild,";
            mes "we'll create and maintain the gate regardless of the risks.";
            next;
            mes "[Megrez]";
            mes "But then of course the money involved for the gate costs will be extreme.";
            mes "It will be easy if you can find investors to share the amount.";
            next;
            mes "[Megrez]";
            mes "There is a basic charge to start connecting the gate.";
            mes "Results depend on the how much investment money is collected.";
            next;
            mes "[Megrez]";
            mes "The Abyss Gate exists in each Agit region.";
            mes "Can you imagine how much money and sacrifice our guild will have to go through to develop in all areas?";
            next;
            mes "[Megrez]";
            mes "This explains the regional competition in investments.";
            mes "If not enough gate maintenance costs are collected then it is obvious the region with the most investments will receive the benefits";
            next;
            mes "[Megrez]";
            mes "If ^4d4dffthe Abyss Gate is successfully connected then the dungeon of the hideout area";
            mes "will be open to others instead of being guild exclusive^000000 which will be very attractive for investment.";
            next;
            mes "[Megrez]";
            mes "But then again, this is only for when the gate is connected.";
            close;
        case 3:
            mes "[Megrez]";
            mes "It's simple.";
            mes "Visit the branch manager of the ^4d4dffregion you want to invest in during the investment duration^000000 and make your investment.";
            next;
            mes "[Megrez]";
            mes "We usually receive ^4d4dffthe common currency here, Zeny^000000.";
            mes "But since we're talking about supporting our Cat Paw Merchant Guild, you can also invest with items in demand in Malangdo.";
            next;
            mes "[Megrez]";
            mes "Provide the items in need to Namis in Malangdo who is in charge of general affairs in our guild.";
            mes "Bring back your Investment Certificate to add it to the investment tribute.";
            next;
            mes "[Megrez]";
            mes "You must visit and invest at the region you want in order for your investment to be counted as a tribute.";
            close;
        case 4:
            mes "[Megrez]";
            mes "The Abyss Gate is basically contracting and connecting with the castle that owns the Agit;";
            mes "therefore, we will provide all we have once the costs for connecting and maintaining the gate are sufficient.";
            next;
            mes "[Megrez]";
            mes "In terms of the minimum and maximum costs for the whole work,";
            mes "if the collected investment ^4d4dffexceeds the minimum costs^000000, we can connect you to the ^4d4dffdeepest layer of an unknown guild dungeon^000000.";
            next;
            mes "[Megrez]";
            mes "If investments exceed the maximum costs, that region will be connected to the";
            mes "^4d4dffAbyss Gate^000000 regardless of the investment rank which includes the deepest layer of the guild dungeon.";
            next;
            mes "[Megrez]";
            mes "^ff0000If there is no Agit region that reached the maximum investment, then the region with the";
            mes "highest investment participation will get the Abyss Gate connected with the investment collected from all regions.^000000";
            next;
            mes "[Megrez]";
            mes "Once the Abyss Gate is connected, the deepest layer (2F) of the guild dungeon";
            mes "will be open to all adventurers that participated in the regional investment.";
            next;
            mes "[Megrez]";
            mes "Visits to the dungeon will be counted for the next investment for the Agit region";
            mes "so being in good terms with the guild that claims the Agit castle will be a bonus.";
            next;
            mes "[Megrez]";
            mes "By the way, it isn't easy to maintain the connection with the Abyss Gate and investments and reconnection is needed weekly";
            mes "so please continue your support and investment if you want the power of the unknown.";
            close;
        }
    case 3:
        if (checkweight(1301,3) == 2 || checkweight(1301,3) == 3) {
            mes "- Cannot proceed with the quest because you have too many items. -";
            close;
        }
        if (countitem(6488) > 4799) {
            mes "[Megrez]";
            mes "You have too many [Thank You Tickets] to receive any more.";
            mes "Cannot give you any more tickets. Please use your ticket and come back.";
            mes "The ticket can be exchanged with various items in Malangdo.";
            close;
        }
        set .@castle01$,"Neuschwanstein Castle : [" + getguildname(GetCastleData("aldeg_cas01",1)) + "] Guild";
        if(getguildname(GetCastleData("aldeg_cas01",1)) == ""){
            set .@castle01$,"Free.";
        }set .@castle02$,"Hohenschwangau Castle : [" + getguildname(GetCastleData("aldeg_cas02",1)) + "] Guild";
        if(getguildname(GetCastleData("aldeg_cas02",1)) == ""){
            set .@castle02$,"Free.";
        }set .@castle03$,"Nuernberg Castle : [" + getguildname(GetCastleData("aldeg_cas03",1)) + "] Guild";
        if(getguildname(GetCastleData("aldeg_cas03",1)) == ""){
            set .@castle03$,"Free.";
        }set .@castle04$,"Wuerzburg Castle : [" + getguildname(GetCastleData("aldeg_cas04",1)) + "] Guild";
        if(getguildname(GetCastleData("aldeg_cas04",1)) == ""){
            set .@castle04$,"Free.";
        }set .@castle05$,"Rothenburg Castle : [" + getguildname(GetCastleData("aldeg_cas05",1)) + "] Guild";
        if(getguildname(GetCastleData("aldeg_cas05",1)) == ""){
            set .@castle05$,"Free.";
        }if (GetAgitInvestMsg == 1) {
            mes "[Megrez]";
            mes "Would you like to invest in the ^4d4dffLuina^000000 region?";
            mes "If there is a castle occupied already, you will invest in the castle and the guild that is currently occupying it.";
            next;
            switch (select(""+.@castle01$+":"+.@castle02$+":"+.@castle03$+":"+.@castle04$+":"+.@castle05$+"")) {
            case 1:
                callsub S_Invest,"aldeg_cas01","Neuschwanstein";
                end;
            case 2:
                callsub S_Invest,"aldeg_cas02","Hohenschwangau";
                end;
            case 3:
                callsub S_Invest,"aldeg_cas03","Nuernberg";
                end;
            case 4:
                callsub S_Invest,"aldeg_cas04","Wuerzburg";
                end;
            case 5:
                callsub S_Invest,"aldeg_cas05","Rothenburg";
                end
            }
        }
    case 4:
        mes "[Megrez]";
        mes "Is that so?";
        mes "Please come back whenever you are interested in investing in the Abyss Gate development.";
        close;
    }
 
S_Invest:
    if(getguildname(GetCastleData(""+getarg(0)+"",1)) == ""){
        mes "[Megrez]";
        mes "You can't invest into an Castle which currently isn't occupied by any Guild.",
        close;
    }
    mes "[Megrez]";
    mes "Invest under "+getarg(1)+"'s "+ getguildname(GetCastleData(""+getarg(0)+"",1)) + "guild name.";
    mes "There are 2 ways to invest, either by Zeny or the Investment Certificate given out by the Cat Paw Merchant Guild.";
    mes "Which way would you like to make your investment?";
    next;
    switch (select("Invest with Zeny.:Invest with Investment Certificates.:Cancel")) {
    case 1:
        mes "[Megrez]";
        mes "So you've decided to invest in Zeny.";
        mes "Minimum investment unit is ^4d4dff10,000 Zeny^000000.";
        mes "You can invest a maximum of 50 units which is ^4d4dff 500,000 Zeny^000000.";
        next;
        switch (select("1 unit 10,000 Zeny:10 units 100,000 Zeny:50 units 500,000 Zeny:Another amount:Cancel")) {
        case 1:
            if (Zeny > 9999) {
                if(getcastledata("alde_gld",19) >= 2000){
                    set $alde_invest_result,2;
                }
                if(getcastledata("alde_gld",19) >= 7000){
                    set $alde_invest_result,3;
                    callsub S_Fundextra "alde_gld",10000,1;
                    end;
                }
                mes "[Megrez]";
                mes "You've invested 1 unit 10,000 Zeny.";
                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                set Zeny, Zeny - 10000;
                setcastledata ""+getarg(0)+"",18,1;
                getitem 6488,1;
                close;
            }
            mes "[Megrez]";
            mes "You do not have enough money.";
            close;
        case 2:
            if (Zeny > 99999) {
                if(getcastledata("alde_gld",19) >= 2000){
                    set $alde_invest_result,2;
                }
                if(getcastledata("alde_gld",19) >= 7000){
                    set $alde_invest_result,3;
                    callsub S_Fundextra "alde_gld",100000,10;
                    end;
                }
                mes "[Megrez]";
                mes "You've invested 10 units 100,000 Zeny.";
                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                set Zeny, Zeny - 100000;
                setcastledata ""+getarg(0)+"",18,10;
                getitem 6488,10;
                close;
            }
            mes "[Megrez]";
            mes "You do not have enough money.";
            close;
        case 3:
            if (Zeny > 499999) {
                if(getcastledata("alde_gld",19) >= 2000){
                    set $alde_invest_result,2;
                }
                if(getcastledata("alde_gld",19) >= 7000){
                    set $alde_invest_result,3;
                    callsub S_Fundextra "alde_gld",500000,50;
                    end;
                }
                mes "[Megrez]";
                mes "You've invested 50 units 500,000 Zeny.";
                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                set Zeny, Zeny - 500000;
                setcastledata ""+getarg(0)+"",18,50;
                getitem 6488,50;
                close;
            }
            mes "[Megrez]";
            mes "You do not have enough money.";
            close;
        case 4:
            mes "[Megrez]";
            mes "Please enter the amount you want to invest.";
            mes "Please choose between 1 to 200.";
            mes "Please enter 0 to cancel.";
            next;
            input .@input;
            if (.@input < 0 || .@input > 200) {
                mes "[Megrez]";
                mes "You've exceeded the amount per investment.";
                mes "Please try again.";
                close;
            } else if (.@input == 0) {
                mes "[Megrez]";
                mes "Canceled.";
                close;
            }
            set .@don, .@input * 10000;
            if (Zeny < .@don) {
                mes "[Megrez]";
                mes "You do not have enough money.";
                close;
            }
            if(getcastledata("alde_gld",19) >= 2000){
                set $alde_invest_result,2;
            }
            if(getcastledata("alde_gld",19) >= 7000){
                set $alde_invest_result,3;
                callsub S_Fundextra "alde_gld",.@don,.@input;
                end;
            }
            mes "[Megrez]";
            mes " " + .@input + " unit " + .@don + "z Zeny invested.";
            mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
            set Zeny, Zeny - .@don;
            setcastledata ""+getarg(0)+"",18,.@input;
            getitem 6488,.@input;
            close;
        case 5:
            mes "[Megrez]";
            mes "Canceled.";
            close;
        }
    case 2:
        mes "[Megrez]";
        mes "Wow, you've brought Investment Certificates.";
        mes "How many certificates will you submit?";
        next;
        switch (select("1 Investment Certificate:5 Investment Certificates:Another amount:Cancel")) {
        case 1:
            if (countitem(6489) > 0) {
                if(getcastledata("alde_gld",19) >= 2000){
                    set $alde_invest_result,2;
                }
                if(getcastledata("alde_gld",19) >= 7000){
                    set $alde_invest_result,3;
                    callsub S_Fundextra "alde_gld",6489,10,1;
                    end;
                }
                mes "[Megrez]";
                mes "1 Investment Certificate is the same as an investment of 10 units (100,000z).";
                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                setcastledata ""+getarg(0)+"",18,10;
                delitem 6489,1;
                getitem 6488,10;
                close;
            }
            mes "[Megrez]";
            mes "Looks like you have fewer Investment Certificates than you want to submit.";
            close;
        case 2:
            if (countitem(6489) > 4) {
                if(getcastledata("alde_gld",19) >= 2000){
                    set $alde_invest_result,2;
                }
                if(getcastledata("alde_gld",19) >= 7000){
                    set $alde_invest_result,3;
                    callsub S_Fundextra "alde_gld",6489,50,5;
                    end;
                }
                mes "[Megrez]";
                mes "5 Investment Certificates are the same as an investment of 50 units (500,000z).";
                mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
                setcastledata ""+getarg(0)+"",18,50;
                delitem 6489,5;
                getitem 6488,50;
                close;
            }
            mes "[Megrez]";
            mes "Looks like you have fewer Investment Certificates than you want to submit.";
            close;
        case 3:
            mes "[Megrez]";
            mes "Please enter the number of Investment Certificates you want to submit.";
            mes "Please choose between 1 to 20.";
            mes "Please enter 0 to cancel.";
            next;
            input .@input;
            if (.@input < 0 || .@input > 20) {
                mes "[Megrez]";
                mes "You've exceeded the amount per investment.";
                mes "Please try again.";
                close;
            } else if (.@input == 0) {
                mes "[Megrez]";
                mes "Canceled.";
                close;
            }
            if (countitem(6489) < .@input) {
                mes "[Megrez]";
                mes "Looks like you have fewer Investment Certificates than you want to submit.";
                close;
            }
            set .@don, .@input * 10;
            if(getcastledata("alde_gld",19) >= 2000){
            set $alde_invest_result,2;
                }
            if(getcastledata("alde_gld",19) >= 7000){
                set $alde_invest_result,3;
                callsub S_Fundextra "alde_gld",6489,.@don,.@input;
                end;
            }
            mes "[Megrez]";
            mes "Investment Certificate" + .@input + "is the same as" + .@don + "unit(s) (" + .@don + "00,000z).";
            mes "Not much but this is a small gift. You can exchange it with items in Malangdo.";
            setcastledata ""+getarg(0)+"",18,.@don;
            delitem 6489,.@input;
            getitem 6488,.@don;
            close;
        case 4:
            mes "[Megrez]";
            mes "Canceled.";
            close;
        }
    case 3:
        mes "[Megrez]";
        mes "Canceled.";
        close;
    }
 
S_Fundextra:
    mes "[Megrez]";
    mes "The maximum needed investment for this realm has been reached,";
    mes "currently everyone can connect to the Guild Dungeon, Guild Dungeon Layer F2 and Hall of Abyss.";
    next;
    mes "[Megrez]";
    mes "If you still wish to invest into this realm, your investment will be stored up until the next time an fee is needed for this realm";
    mes "to be connected to the Guild Dungeon. Guild Dungeon Layer F2 and Hall of Abyss.";
    next;
    if(select("Don't invest:Invest") == 1){
        mes "[Megrez]";
        mes "Canceled.";
        close;
    }
    mes "[Megrez]";
    mes "Your investment has been saved for upcoming connection fees with the Guild Dungeon Layer F2 and Hall of Abyss.";
    mes "It's not much but this is a small gift. You can exchange it with items in Malangdo.";
    set $alde_extra,$alde_extra+getarg(2);
    if((getarg(1) == 6489){
        delitem 6489,getarg(3);
    } else {
        set Zeny,Zeny - getarg(1);
    }
    getitem 6488,getarg(2);
    close;
}
 
alde_gld,191,164,3  script  Megrez#alde_f00 421,{
 
    if (GetAgitInvestMsg == 3) {
        set .@inv_result_alde, $alde_invest_result; // 1 = Closed to everyone. 2 = 20Mio. have been reached, Layer F2 is open for guilds owning a castle. 3 = 70Mio. have been reached, Hall of Abyss & F2 is open for everyone.
        if (.@inv_result_alde == 3) {
            mes "[Alkor]";
            mes "We've successfully connected the Abyss Gate [Hero's Tears] with the help from your investment.";
            mes "The Agit dungeon will be open to everyone with a small entrance fee in Luina.";
            next;
            mes "[Alkor]";
            mes "Please visit as often as possible since the entrance fee is saved as an investment for the region.";
            mes "Do you want to enter the Agit dungeon?";
            next;
            switch (select("Luina Dungeon 1F - 10000z:Luina Dungeon 2F - 10000z:Cancel")) {
            case 1:
                if (Zeny > 9999) {
                    mes "[Alkor]";
                    mes "I'm sending you to the Luina Agit Dungeon 1F.";
                    set Zeny, Zeny - 10000;
                    set $alde_extra,$alde_extra+1;
                    close2;
                    warp "gld_dun02",32,122;
                    end;
                }
                mes "[Alkor]";
                mes "I'm collecting a small entrance fee.";
                mes "Your contribution will be saved for the next investment.";
                mes "Entrance fee is 10000z.";
                close;
            case 2:
                if (Zeny > 9999) {
                    mes "[Alkor]";
                    mes "I'm sending you to the Luina Agit Dungeon 2F.";
                    set Zeny, Zeny - 10000;
                    set $alde_extra,$alde_extra+1;
                    close2;
                    warp "gld_dun02_2",32,122;
                    end;
                }
                mes "[Alkor]";
                mes "I'm collecting a small entrance fee.";
                mes "Your contribution will be saved for the next investment.";
                mes "Entrance fee is 10000z.";
                close;
            case 3:
                mes "[Alkor]";
                mes "Canceled.";
                close;
            }
        } else if (.@inv_result_alde == 2) {
            mes "[Alkor]";
            mes "The Luina Agit Dungeon 2F is now available but since it is not connected with the Abyss Gate,";
            mes "the Agit dungeon is only accessible to the Agit guild.";
            close;
        }
        mes "[Alkor]";
        mes "Luina was not chosen to be connected with a gate this time.";
        mes "Please wait for the next investment duration.";
        close;
    }
    mes "[Alkor]";
    mes "There are currently no connected dungeon gates.";
    close;
}
 
alde_gld,188,158,3  script  Investment Status Board#fund04  857,{
 
    if (GetAgitInvestMsg == 1) {
        set .@notice_time, $agit_result_notice;
        if (.@notice_time == 1) {
            set .@resultnotice$, "1st total (unit in 10,000z)";
        }
        else if (.@notice_time == 2) {
            set .@resultnotice$, "2nd total (unit in 10,000z)";
        }
        else if (.@notice_time == 3) {
            set .@resultnotice$, "3rd total (unit in 10,000z)";
        }
        else if (.@notice_time == 4) {
            set .@resultnotice$, "4th total (unit in 10,000z)";
        }
        else if (.@notice_time == 5) {
            set .@resultnotice$, "5th total (unit in 10,000z)";
        }
        else if (.@notice_time == 6) {
            set .@resultnotice$, "6th total (unit in 10,000z)";
        }
        else if (.@notice_time == 7) {
            set .@resultnotice$, "7th total (unit in 10,000z)";
        }
        else if (.@notice_time == 8) {
            set .@resultnotice$, "8th total (unit in 10,000z)";
        }
        else if (.@notice_time == 9) {
            set .@resultnotice$, "9th total (unit in 10,000z)";
        }
        else if (.@notice_time == 10) {
            set .@resultnotice$, "10th total (unit in 10,000z)";
        }
        else if (.@notice_time == 11) {
            set .@resultnotice$, "11th total (unit in 10,000z)";
        }
        else if (.@notice_time == 12) {
            set .@resultnotice$, "12th total (unit in 10,000z)";
        }
        else {
            set .@resultnotice$, "There are currently no investment sums available.";
        }
        if ((.@notice_time > 0) && (.@notice_time < 13)) {
            mes .@resultnotice$;
            mes "Neuschwanstein" + getguildname(GetCastleData("aldeg_cas01",1)) + "Guild:" + getcastledata("aldeg_cas01",18) + "";
            mes "Hohenschwangau" + getguildname(GetCastleData("aldeg_cas02",1)) + "Guild:" + getcastledata("aldeg_cas02",18) + "";
            mes "Nuremberg" + getguildname(GetCastleData("aldeg_cas03",1)) + "Guild:" + getcastledata("aldeg_cas03",18) + "";
            mes "Wuerzburg" + getguildname(GetCastleData("aldeg_cas04",1)) + "Guild:" + getcastledata("aldeg_cas04",18) + "";
            mes "Rothenburg" + getguildname(GetCastleData("aldeg_cas05",1)) + "Guild:" + getcastledata("aldeg_cas05",18) + "";
            mes "Luina:" + ($alde_extra) + "";
            mes "Luina Investment Grand Total:" + (getcastledata("aldeg_gld",19) + $alde_extra)  + "";
            close;
        }
        mes .@resultnotice$;
        close;
    }
    else if (GetAgitInvestMsg == 2) {
        mes "!- Notice -!";
        mes "No sums are available because the total investment amount is currently being calculated.";
        mes "Please wait for the announcement of the results.";
        close;
    }
    else if (GetAgitInvestMsg == 3) {
        set .@inv_result_prt, $prt_invest_result;
        set .@inv_result_pay, $pay_invest_result;
        set .@inv_result_gef, $gef_invest_result;
        set .@inv_result_alde, $alde_invest_result;
        mes "!-Investment Results of All Agit Regions-!";
        if (.@inv_result_prt == 1) {
            mes "^aaaaaa[Valkyrie Realm] below minimum^000000";
        } else if (.@inv_result_prt == 2) {
            mes "[Valkyrie Realm] minimum achieved";
            mes "-> Guild Dungeon Deepest Layer (2F) available";
        } else if (.@inv_result_prt == 3) {
            mes "^4d4dff[Valkyrie Realm] maximum achieved^000000";
            mes "-> Abyss Gate available";
        } else {
            mes "No data for [Valkyrie Realm].";
        } if (.@inv_result_pay == 1) {
            mes "^aaaaaa[Greenwood Lake] below minimum^000000";
        } else if (.@inv_result_pay == 2) {
            mes "[Greenwood Lake] minimum achieved";
            mes "-> Guild Dungeon Deepest Layer (2F) available";
        } else if (.@inv_result_pay == 3) {
            mes "^4d4dff[Greenwood Lake] maximum achieved^000000";
            mes "-> Abyss Gate available";
        } else {
            mes "No data for [Greenwood Lake].";
        } if (.@inv_result_gef == 1) {
            mes "^aaaaaa[Britoniah] below minimum^000000";
        } else if (.@inv_result_gef == 2) {
            mes "[Britoniah] minimum achieved";
            mes "-> Guild Dungeon Deepest Layer (2F) available";
        } else if (.@inv_result_gef == 3) {
            mes "^4d4dff[Britoniah] maximum achieved^000000";
            mes "-> Abyss Gate available";
        } else {
            mes "No data for [Britoniah].";
        } if (.@inv_result_alde == 1) {
            mes "^aaaaaa[Luina] below minimum^000000";
        } else if (.@inv_result_alde == 2) {
            mes "[Luina] minimum achieved";
            mes "-> Guild Dungeon Deepest Layer (2F) available";
        } else if (.@inv_result_alde == 3) {
            mes "^4d4dff[Lunia] maximum achieved^000000";
            mes "-> Abyss Gate available";
        } else {
            mes "No data for [Lunia].";
        }
        close;
    }
    mes "!- Notice -!";
    mes "No investment information will be announced now.";
    close;
}
 
aldeg_cas02,124,49,3    duplicate(aldeg_hoa)    Gate Manager#aldeg_cas02    421
aldeg_cas03,121,75,3    duplicate(aldeg_hoa)    Gate Manager#aldeg_cas03    421
aldeg_cas04,25,67,7 duplicate(aldeg_hoa)    Gate Manager#aldeg_cas04    421
aldeg_cas05,54,200,3    duplicate(aldeg_hoa)    Gate Manager#aldeg_cas05    421
Viewed 710 times, submitted by Guest.