결혼(예식장)

결혼 스크립트 사용 전에, 다음과 같은 마법을 추가해야합니다.

 

마법인, "기혼체크"가 필요합니다. 마법 자체만 필요하며 마법의 스펠/언스펠/리캐스트는 필요없습니다.

 

 

/*
    $marry_check;
    $marry_name;

    set #marry_boy$, "";
    set #marry_girl$, "";
    set #marry_check, 1;
*/

FUNC_marry_start    {
    set @sd, mysd();
    set @id, myid();

    if(getarg(0) == 0)
    {
        if($marry_check != 1) { set $marry_check, 0; }

        set @pos, dialog(0, 0, 1, "결혼을 하시기 원하시면 신랑 신부가 함께 오셔야 합니다.");
        if(@pos == 0) end;

        set @pos, dialog(0, 0, 1, "이제 신부분께 결혼할 준비가 되셨는지 묻겠습니다.");
        if(@pos == 0) end;

        set @pos, list2(@list, 0, 0, "당신은 신랑과 함께 왔습니까?", "예. 제 옆에 서 있습니다.", "어머나. 어딜 갔지? 제 신랑 못보셨나요?");
        if(@pos == 0) end;
        else if(@list == 1)
        {
            set @pos, dialog(0, 0, 1, "결혼이란 정말 신중하게 결정을 하여야 한답니다.");
            if(@pos == 0) end;

            set @pos, list2(@list, 0, 0, "당신은 진심으로 신랑을 사랑하시고, 결혼하길 원하십니까?", "예. 전 저 남자 없인 못 살아요.", "흑흑. 전 아직 자유롭고 싶어요.");
            if(@pos == 0) end;
            else if(@list == 1)
            {
                set @pos, dialog(0, 0, 1, "두분의 사랑이 그처럼 확고하시다니, 그럼 정식으로 결혼 신청을 받겠습니다.");
                if(@pos == 0) end;

                set @pos, input2(@name$, 0, 16, "당신이 결혼하길 원하는 신랑의 이름을 말씀하세요.", "예. 신랑의 이름은", "입니다.");
                if(@pos == 0) end;
                else
                {
                    set @target_sd, name2sd(@name$);
                    if(@target_sd > 0)
                    {
                        if(get_mapid(@sd) == get_mapid(@target_sd))
                        {
                            set #marry_boy$, get_name(@target_sd);
                            set #marry_girl$, get_name(@sd);

                            if(get_gender(@target_sd) == 0)
                            {
                                runscript @target_sd, "결혼상대확인";

                                set @pos, dialog(0, 0, 1, "신랑되시는 분께 확인을 받겠습니다.");
                                end;
                            }
                            else
                            {
                                set @pos, dialog(0, 0, 1, "신랑이 아닌 것 같은데요?");
                                end;
                            }
                        }
                        else
                        {
                            set @pos, dialog(0, 0, 1, "신랑 되시는 분이 같이 있지 않은 것 같네요.");
                            end;
                        }
                    }
                    else
                    {
                        set @pos, dialog(0, 0, 1, "신랑되시는 분이 바람의나라에 접속중이지 않은 것 같네요.");
                        end;
                    }
                }
            }
            else end;
        }
        else if(@list == 2)
        {
            set @pos, dialog(0, 0, 1, "저는 당신의 신랑이 누구인지 모른답니다.");
            end;
        }
        else end;
    }
    else
    {
        set @npc_id, obj_getxy(9, 4);

        say @npc_id, 0, "결혼주례사: 장내에 계신 분들은 잠시 조용해 주시고,";
        set @pos, dialog(0, 0, 1, "장내에 계신 분들은 잠시 조용해 주시고,");
        if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

        say @npc_id, 0, "결혼주례사: 두 영혼의 아름다운 약속을 지켜봐주시기 바랍니다.";
        set @pos, dialog(0, 0, 1, "두 영혼의 아름다운 약속을 지켜봐주시기 바랍니다.");
        if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

        set @target_sd, name2sd(#marry_boy$);
        runscript @target_sd, "결혼의사확인";
    }
}

결혼상대확인    {
    set @sd, mysd();
    set @id, myid();
    set @target_sd, name2sd(#marry_girl$);

    if($marry_check != 1) { set $marry_check, 0; }

    set @pos, dialog(0, 0, 1, "당신께 묻겠습니다. 신중하게 대답해 주세요.");
    if(@pos == 0) end;

    set @pos, list2(@list, 0, 0, #marry_girl$ + "님이 당신의 신부가 맞습니까?", "예. 제 신부가 맞습니다.", "아니오. 저여자가 누구인지 당신은 아나요?");
    if(@pos == 0) end;
    else if(@list == 1)
    {
        runscript @target_sd, "결혼의복확인";
        end;
    }
    else
    {
        set #marry_boy$, "";
        set #marry_girl$, "";
        runscript @target_sd, "결혼의복확인";
        end;
    }
}

결혼의복확인    {
    set @sd, mysd();
    set @id, myid();

    if(#marry_boy$ == "")
    {
        set @pos, dialog(0, 0, 1, "당신이 신랑분이라고 말씀했던 사람이 당신이 신부가 아니라고 하는군요..");
        end;
    }
    else
    {
        set @target_sd, name2sd(#marry_boy$);

        set @pos, dialog(0, 0, 1, "신랑분도 당신과 결혼하는게 맞다고 하시는군요. 자... 그럼...");
        if(@pos == 0) end;

        set @pos, dialog(0, 0, 1, "결혼을 하시기 위해선 신랑 신부 두분다 예복을 입으셔야 합니다.");
        if(@pos == 0) end;

        set @pos, dialog(0, 0, 1, "먼저 신부분이 예복을 입고 계신지 확인해보겠습니다.");
        if(@pos == 0) end;

        if(get_equipitem_name(@sd, 1) != "웨딩드레스")
        {
            set #marry_boy$, "";
            set #marry_girl$, "";

            set @pos, dialog(0, 0, 1, "신부분의 예복이 준비되지 않았군요.");
            end;
        }
        else
        {
            set @pos, dialog(0, 0, 1, "신부분은 아주 이쁜 웨딩드레스를 입고 오셨군요.");
            if(@pos == 0) end;

            set @pos, dialog(0, 0, 1, "이번엔 신랑분이 예복을 입고 계신지 보겠습니다.");
            if(@pos == 0) end;

            if(get_equipitem_name(@target_sd, 1) != "망또")
            {
                set #marry_boy$, "";
                set #marry_girl$, "";

                set @pos, dialog(0, 0, 1, "신랑분의 예복이 준비되지 않았군요.");
                end;
            }
            else
            {
                set @pos, dialog(0, 0, 1, "신랑분도 멋있는 망또로 정장을 하셨네요.");
                if(@pos == 0) end;

                set @pos, dialog(0, 0, 1, "자... 그럼 두분이 결혼하실 수 있는지 알아보겠습니다.");
                if(@pos == 0) end;

                spellcast @sd, name2spellid("기혼체크");
                spellcast @target_sd, name2spellid("기혼체크");

                Sleep 500;

                if(spellaethered(@sd, name2spellid("기혼체크")) == 1 || spellaethered(@target_sd, name2spellid("기혼체크")) == 1)
                {
                    set #marry_boy$, "";
                    set #marry_girl$, "";

                    set @pos, dialog(0, 0, 1, "두분 중 한분이 기혼이거나, 이혼을 한 상태시군요.");
                    end;
                }
                else
                {
                    set @pos, dialog(0, 0, 1, "두분 다 순결한 영혼이시군요. 그럼 이제 결혼을 시작하도록 하겠습니다.");
                    if(@pos == 0) end;

                    set @pos, dialog(0, 0, 1, "이제 신부분은 마음의 준비가 되셨으면..");
                    if(@pos == 0) end;

                    set @pos, dialog(0, 0, 1, "제게 다시 '결혼준비가 되었습니다'라고 말씀하세요.");
                    if(@pos == 0) end;

                    set @pos, dialog(0, 0, 1, "잊지 마세요. '결혼준비가 되었습니다'라고 말씀하셔야 합니다.");
                    if(@pos == 0) end;

                    set #marry_check, 1;
                    end;
                }
            }
        }
    }
}

결혼의사확인    {
    set @sd, mysd();
    set @id, myid();
    set @target_sd, name2sd(#marry_girl$);
    set @npc_id, obj_getxy(9, 4);

    say @npc_id, 0, "결혼주례사: 먼저 신랑에게 묻겠습니다.";
    set @pos, dialog(0, 0, 1, "먼저 신랑에게 묻겠습니다.");
    if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

    say @npc_id, 0, "결혼주례사: 신랑은 신부 " + #marry_girl$ + "님을 법적인 아내로 맞아 기쁠때나 슬플때나";
    set @pos, dialog(0, 0, 1, "신랑은 신부 " + #marry_girl$ + "님을 법적인 아내로 맞아 기쁠때나 슬플때나");
    if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

    say @npc_id, 0, "결혼주례사: 한결같이 신부를 사랑하며 한 평생을 같이 할것을 맹세합니까?";
    set @pos, list2(@list, 0, 0, "한결같이 신부를 사랑하며 한 평생을 같이 할것을 맹세합니까?", "예. 맹세합니다.", "아니오. 제가 잠시 뭐에 홀렸었나 봅니다.");
    if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }
    else if(@list == 1)
    {
        say @id, 0, get_name(@sd) + ": 예. 맹세합니다!";
        runscript @target_sd, "결혼의사확인2";
    }
    else
    {
        say @id, 0, get_name(@sd) + ": 아니오. 제가 잠시 뭐에 홀렸었나 봅니다.";
        set #marry_check, 0;
        set #marry_boy$, "";
        set #marry_girl$, "";
        end;
    }
}

결혼의사확인2    {
    set @sd, mysd();
    set @id, myid();
    set @target_sd, name2sd(#marry_boy$);
    set @npc_id, obj_getxy(9, 4);

    say @npc_id, 0, "결혼주례사: 신랑이 그러겠다고 대답하였습니다.";
    set @pos, dialog(0, 0, 1, "신랑이 그러겠다고 대답하였습니다.");
    if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

    say @npc_id, 0, "결혼주례사: 이제 신부에게 묻겠습니다.";
    set @pos, dialog(0, 0, 1, "이제 신부에게 묻겠습니다.");
    if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

    say @npc_id, 0, "결혼주례사: 신부는 신랑 " + #marry_boy$ + "님을 법적인 남편으로 맞아 즐거울때나 괴로울때나";
    set @pos, dialog(0, 0, 1, "신부는 신랑 " + #marry_boy$ + "님을 법적인 남편으로 맞아 즐거울때나 괴로울때나");
    if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

    say @npc_id, 0, "결혼주례사: 한결같이 신랑을 사랑하며 한 평생을 같이 할것을 맹세합니까?";
    set @pos, list2(@list, 0, 0, "한결같이 신랑을 사랑하며 한 평생을 같이 할것을 맹세합니까?", "예. 맹새합니다.", "아니오. 제가 잠시 뭐에 홀렸었나 봅니다.");
    if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }
    else if(@list == 1)
    {
        say @id, 0, get_name(@sd) + ": 예. 맹세합니다!";

        say @npc_id, 0, "결혼주례사: 신부가 그러겠다고 대답하였습니다.";
        set @pos, dialog(0, 0, 1, "신부가 그러겠다고 대답하였습니다.");
        if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

        say @npc_id, 0, "결혼주례사: 이제 신의 이름으로 두 영혼의 결혼이 성사되었음을 엄숙히 선언합니다.";
        set @pos, dialog(0, 0, 1, "이제 신의 이름으로 두 영혼의 결혼이 성사되었음을 엄숙히 선언합니다.");
        if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

        say @npc_id, 0, "결혼주례사: 자...두사람에게 행복이 가득하기를 기도합니다.";
        set @pos, dialog(0, 0, 1, "자...두사람에게 행복이 가득하기를 기도합니다.");
        if(@pos == 0) { set #marry_check, 0; set #marry_boy$, ""; set #marry_girl$, ""; end; }

        runscript @sd, "결혼신랑등록";
        runscript @target_sd, "결혼신부등록";

         set #marry_check, 0;
         set #marry_boy$, "";
         set #marry_girl$, "";

        say @npc_id, 0, "결혼주례사: 장내에 계신 하객 여러분들도 두 영혼의 결혼을 축하해 주시기 바랍니다.";
        set @pos, dialog(0, 0, 1, "장내에 계신 하객 여러분들도 두 영혼의 결혼을 축하해 주시기 바랍니다.");
        end;
    }
    else
    {
        say @id, 0, get_name(@sd) + ": 아니오. 제가 잠시 뭐에 홀렸었나 봅니다.";
        set #marry_check, 0;
        set #marry_boy$, "";
        set #marry_girl$, "";
        end;
    }
}

결혼신랑등록    {
    set @sd, mysd();
    set $marry_check, 1;
    set $marry_wife$, #marry_boy$;
    set $marry_gender, get_gender(@sd);
    addlegend @sd, 58, 7, 0, 16, "배우자: " + $marry_wife$;
}

결혼신부등록    {
    set @sd, mysd();
    set $marry_check, 1;
    set $marry_wife$, #marry_girl$;
    set $marry_gender, get_gender(@sd);
    addlegend @sd, 58, 7, 0, 16, "배우자: " + $marry_wife$;
}

@기혼체크    {
    set @sd, mysd();
    if($marry_check == 1)
    {
        spellaether @sd, name2spellid("기혼체크"), 3;
    }
}

 

-게임존-

출처(윈바람)