close_btn
로그인, 회원가입후 더 많은 혜택을 누리세요 로그인 회원가입 닫기

CR 결혼소스

2018.09.19 14:08

솔직이 조회 수:65

script    결혼시스템    {
    set @mysd, mysd();
    set @myid, myid();
    set @list, list1("안녕하세요?\n결혼도우미 입니다.\n결혼을 하실려면 결혼을 눌러주시기 바랍니다.", "결혼","이혼할래요..");
    if(@list == 1) {
        set #rufghsrjwjf, 0;
        if ($dbqn == 1) { set @pos, dialog(0,0,0, "이미 배우자가 있습니다."); end; }
        if(get_equipitem(@mysd, 1) != 2194 && get_equipitem(@mysd, 1) != 2161) {
             set @pos, dialog(0,0,0, "결혼할 준비가 안되신분이네요.\n예복을 입고 다시 말을 걸어주세요.");
            end;
        }
        set @pos, dialog(0, 0, 1, "결혼을 하시기 원하시면    신랑\n신부가 함께 오셔야 합니다.");
        if (@pos == 0) end;
        if (get_gender(@mysd) == 0){
            set @pos, dialog(0, 1, 1, "이제 신랑분께 결혼할 준비가\n되셨는지 묻겠습니다.");
            if (@pos == 0) end;
            set @list, list1("당신은 신부와 함께 왔습니까?", "예. 제 옆에 서있습니다.","이런.. 어디갔지? 제 신부 못보셨나요?");
            if(@list == 1) {
                set @pos, dialog(0, 1, 1, "결혼이란 정말 신중하게 결정\n을 하여야 한답니다.");
                if (@pos == 0) end;
                set @list, list1("당신은 진심으로 신부를 사랑하시고, 결혼하길 원하십니까?", "예. 전 이 여자 없인 못 삽니다.","전 아직 자유롭고 싶습니다.");
                if(@list == 1) {
                    set @pos, dialog(0, 1, 1, "두분의 사랑이 그처럼 확고하\n시다니, 그럼 정식으로 결혼\n신청을 받겠습니다.");
                    if (@pos == 0) end;
a01:
                    set @pos, input2(@id$, 0, 20, "당신이 결혼하길 원하는 신부의 이름을 말씀하세요.", "예. 신부의 이름은", "입니다.");
                    if (@pos == 0) end;
                    set @target_id, name2id(@id$);
                    set @target_sd, id2sd(@target_id);
                    if (@id$ == "") {
                        set @pos, dialog(0,0,1, "아이디를 입력해주세요.");
                        goto a01; end;
                    }
                    if (@target_sd == 0 ) {
                        set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
                        goto a01; end;
                    }
                    if (get_gender(@target_sd) == get_gender(@mysd) ) {
                        set @pos, dialog(0, 1, 1, "결혼할 배우자와 성별이 같습니다.");
                        goto a01; end;
                    }
                    if (get_mapid(@target_sd) != get_mapid(@mysd) ) {
                        set @pos, dialog(0, 0, 1, "상대방이 이 자리에 없습니다.");
                        goto a01; end;
                    }
                    else{
                        set @pos, dialog(0, 1, 1, "신부되시는분께 확인을 받겠습니다.");
                        if (@pos == 0) end;
                        effect @myid, 386;
                        sound @myid, 0, 131;
                        set #honey1, @mysd;
                        set #honey2, @target_sd;
                        sleep 5000;
                        if (@target_sd == 0 ) {
                            set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
                            end;
                        }
                        runscript @target_sd, "결혼시스템2";
                        end;
                    }
                }else{end;}
            }else{end;}
    }else{
            set @pos, dialog(0, 1, 1, "이제 신부분께 결혼할 준비가\n되셨는지 묻겠습니다.");
            if (@pos == 0) end;
            set @list, list1("당신은 신랑과 함께 왔습니까?", "예. 제 옆에 서있습니다.","어머나. 어딜 갔지? 제 신랑 못보셨나요?");
                if(@list == 1) {
                    set @pos, dialog(0, 1, 1, "결혼이란 정말 신중하게 결정\n을 하여야 한답니다.");
                    if (@pos == 0) end;
                    set @list, list1("당신은 진심으로 신랑을 사랑하시고, 결혼하길 원하십니까?", "예. 전 저 남자 없인 못 살아요.","흑흑. 전 아직 자유롭고 싶어요.");
                    if(@list == 1) {
                        set @pos, dialog(0, 1, 1, "두분의 사랑이 그처럼 확고하\n시다니, 그럼 정식으로 결혼\n신청을 받겠습니다.");
                        if (@pos == 0) end;
a02:
                        set @pos, input2(@id$, 0, 20, "당신이 결혼하길 원하는 신랑의 이름을 말씀하세요.", "네. 신랑의 이름은", "입니다.");
                        if (@pos == 0) end;
                        set @target_id, name2id(@id$);
                        set @target_sd, id2sd(@target_id);
                        if (@id$ == "") {
                            set @pos, dialog(0,0,1, "아이디를 입력해주세요.");
                            goto a02; end;
                        }
                        if (@target_sd == 0 ) {
                            set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
                            goto a02; end;
                        }
                        if (get_gender(@target_sd) == get_gender(@mysd) ) {
                            set @pos, dialog(0, 1, 1, "결혼할 배우자와 성별이 같습니다.");
                            goto a02; end;
                        }
                        if (get_mapid(@target_sd) != get_mapid(@mysd) ) {
                            set @pos, dialog(0, 0, 1, "상대방이 이 자리에 없습니다.");
                            goto a02; end;
                        }
                        else{
                            set @pos, dialog(0, 1, 1, "신랑되시는분께 확인을 받겠습니다.");
                            if (@pos == 0) end;
                            effect @myid, 386;
                            sound @myid, 0, 131;
                            set #honey2, @mysd;
                            set #honey1, @target_sd;
                            sleep 5000;
                            if (@target_sd == 0 ) {
                                set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
                                end;
                            }
                            runscript @target_sd, "결혼시스템2";
                        }
                    }else{end;}
                }
            else{end;}
        }
    }
    if(@list == 2) {
        if ($dbqn == 0) { set @pos, dialog(0,0,0, "결혼도 안하신분이 어떻게 이혼을 하실려고 하죠?."); end; }
        set @list, list1("정말 이혼하시겠습니까?", "네 이 사람하곤 못살아요..","아니오 다시 한번 생각해보겠습니다.");
        if(@list == 1) {
            set $dbqn, 0;
            set @pos, dialog(0, 0, 1, "이혼해드렸습니다.");
            end;
        }
        if(@list == 2) {
            set @pos, dialog(0, 0, 1, "성급하게 생각하지마세요.");
            end;
        }
    }
}
script    결혼시스템2    {
    set @mysd, mysd();
    set @myid, myid();
    if (get_gender(@mysd) == 0){
        set @target_sd, #honey2;
    }
    else{
        set @target_sd, #honey1;
    }
    if(get_equipitem(@mysd, 1) != 2194 && get_equipitem(@mysd, 1) != 2161) {
        if (@target_sd == 0 ) {
            set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
            end;
        }
        runscript @target_sd, "결혼시스템4";
        end;
    }
    set @pos, dialog(0, 0, 1, get_name(@target_sd) + "님께서 " + get_name(@mysd) + "님과 결혼을 원하십니다.");
    if (! @pos) end;
    set @list, list1("결혼 하시겠습니까?","네", "아니오"); 
    if(@list == 1) {
        set @pos, dialog (1, 0, 0, "결혼을 축하드립니다!");
        additem @mysd, name2itemid("사랑호출기"), 1;
        addlegend @mysd, 8, 1, 1, get_name(@target_sd) +"와(과) 결혼하다!";
        if (@target_sd == 0 ) {
            set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
            end;
        }
        runscript @target_sd, "결혼시스템3";
        message @mysd, 3, get_name(@target_sd) +"와(과) 결혼하다!!";
        broadcast 0, 11, get_name(@mysd) +"님이 " + get_name(@target_sd) +"님과 결혼하셨습니다. 축하드립니다!", 0;
        set $ghcnf, @target_sd;
        set $dbqn, 1;
        end;
    }
    if(@list == 2 ) {
        set @pos, dialog(1, 0, 0, "상대방에게 거절메세지를 보냈습니다.");
        set #rufghsrjwjf, 1;
        if (@target_sd == 0 ) {
            set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
            end;
        }
        runscript @target_sd, "결혼시스템3";
    }
}
script    결혼시스템3    {
    set @mysd, mysd();
    set @myid, myid();
    if(#rufghsrjwjf == 1){
        set @pos, dialog(1, 0, 0, "상대방이 결혼하기를 거부했습니다.");
        end;
    }
    if (get_gender(@mysd) == 0){
        set @target_sd, #honey2;
    }
    else{
        set @target_sd, #honey1;
    }
    additem @mysd, name2itemid("사랑호출기"), 1;
    addlegend @mysd, 8, 1, 1, get_name(@target_sd) +"와(과) 결혼하다!";
    message @mysd, 3, get_name(@target_sd) +"와(과) 결혼하다!!";
    set $ghcnf, @target_sd;
    set $dbqn, 1;
    end;
}
script    결혼시스템4    {
    set @mysd, mysd();
    set @myid, myid();
    if(get_gender(@mysd) == 0){
        set @pos, dialog(1, 0, 0, "결혼할 상대가 웨딩드레스를 입고 있지 않습니다.");
        end;
    }
    else{
        set @pos, dialog(1, 0, 0, "결혼할 상대가 망또를 입고 있지 않습니다.");
        end;
    }
}
script    결혼상인되라고    {
    set @mysd, mysd();
    set @list, list1("결혼도우미 입니다.\n혼례용품을 구입해보세요!", "물건 사기");
    if(@list == 1) {
        set @pos, list2(@list_2,0,0, "망또와 드레스를 사실려면 망또와 드레스를 클릭해주세요!", "망또와 드레스","사랑호출기","관복과 활옷");
        if(@list_2 == 1) {
            call_shop 0,78;
        }
        if(@list_2 == 2) {
            call_shop 0,6;
        }
        if(@list_2 == 3) {
            call_shop 0,109;
        }
    }
}

번호 제목 글쓴이 날짜 조회 수
공지 소스자료실 안내입니다. 게임존 2017.06.06 567
411 CR 막대사탕엔피씨 토렐리리 2018.12.24 58
410 CR 용무기스크립트 토렐리리 2018.12.24 184
409 cr 얼음칼npc 토렐리리 2018.12.24 63
408 cr 야바위스크립트 토렐리리 2018.12.24 105
407 CR 소소스크립트입니다 토렐리리 2018.12.24 130
406 [DR] 이기어검 [흑룡의분노 발동] 조심히 2018.12.01 219
405 동의소출비령 스크립트 akahsi 2018.11.20 71
404 CR 원격기능[물건 맡기기, 수리 등] 파도풀 2018.11.16 106
403 CR 상자아이템 소스 파도풀 2018.11.16 99
402 [CR]환생복구 file 이잉ㅇ 2018.10.20 90
401 CR 문파 만들기 소스 [1] 솔직이 2018.09.19 186
400 CR 왕퀘스트 소스 솔직이 2018.09.19 67
399 CR 생산소스 솔직이 2018.09.19 83
» CR 결혼소스 솔직이 2018.09.19 65
397 감전상태 소스 달퐁 2018.07.13 106
396 스킬 딜줄이기 소스 달퐁 2018.07.13 257
395 매크로 방지 소스 [1] 달퐁 2018.07.13 289
394 스킬)사슬벼락 달퐁 2018.07.13 162
393 명인의목걸이(체템) 달퐁 2018.07.13 142
392 몹 드랍 함수 file 구가의섬 2018.06.24 159
391 펫 함수 [1] file 구가의섬 2018.06.24 109
390 [CR]F1 거래 수정 file 가가가가 2018.06.21 62
389 환수 뻥션 file 가가가가 2018.06.21 63
388 cr천명 스크립트 file 백금 2018.06.13 96
387 직접 짜본 환생시스템 입니다. file 백금 2018.06.13 164
386 함수팁 만수무강 2018.06.08 804
385 접속기 메이커 소스 file 만수무강 2018.05.29 184
384 로즈서버 구동기 소스 file troutking 2018.05.08 346
383 추억의 봉클 개조도구 [1] troutking 2018.05.08 191
382 [아이유기반][CR] 교환의책 기능 (간편 교환기능) file Sondia 2018.04.19 104
381 [CR] 직업변경 펑션 file Petal 2018.04.06 94
380 [DR] 자동체마사기 스크립트 [1] file Petal 2018.04.06 237
379 [CR] 보석아이템 스크립트 file Petal 2018.04.06 43
378 [CR] 인던스크립트 고대지하 file Petal 2018.04.06 68
377 [CR] 각인 스크립트 file Petal 2018.04.06 82
376 [CR] 천마전기 스크립트 file Petal 2018.04.06 26
375 [CR] 생산스크립트 file Petal 2018.04.06 48
374 간편퀘스트 [1] file Petal 2018.03.30 96
373 환전소 김희수띠 2018.03.27 76
372 서버배율에따른 경험치 (@apply_exp) 값 확인 엑셀 file 인연서버 2018.02.08 256
371 저주의목걸이 스크립트 file 황이 2018.01.27 132
370 조합안내 스크립트 [1] file 황이 2018.01.27 169
369 자동기원 스크립트 file 황이 2018.01.27 464
368 과거 GM세계후 file 황이 2018.01.27 133
367 [CR]자동저장기 [3] file 도됴 2017.12.04 165
366 [sun] 경험치 배율 설정 [1] 케이지김 2017.11.30 909
365 sun 용무기 수리 추억 2017.11.27 177
364 sun 자동공성화 추억 2017.11.27 254
363 [CR]로또 file 로버트 2017.10.15 153
362 [ip탐색기] file skfj5612 2017.10.15 88