사이트 로그인
2018.09.19 14:08
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]환생복구 | 이잉ㅇ | 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 | 몹 드랍 함수 | 구가의섬 | 2018.06.24 | 159 |
391 | 펫 함수 [1] | 구가의섬 | 2018.06.24 | 109 |
390 | [CR]F1 거래 수정 | 가가가가 | 2018.06.21 | 62 |
389 | 환수 뻥션 | 가가가가 | 2018.06.21 | 63 |
388 | cr천명 스크립트 | 백금 | 2018.06.13 | 96 |
387 | 직접 짜본 환생시스템 입니다. | 백금 | 2018.06.13 | 164 |
386 | 함수팁 | 만수무강 | 2018.06.08 | 804 |
385 | 접속기 메이커 소스 | 만수무강 | 2018.05.29 | 184 |
384 | 로즈서버 구동기 소스 | troutking | 2018.05.08 | 346 |
383 | 추억의 봉클 개조도구 [1] | troutking | 2018.05.08 | 191 |
382 | [아이유기반][CR] 교환의책 기능 (간편 교환기능) | Sondia | 2018.04.19 | 104 |
381 | [CR] 직업변경 펑션 | Petal | 2018.04.06 | 94 |
380 | [DR] 자동체마사기 스크립트 [1] | Petal | 2018.04.06 | 237 |
379 | [CR] 보석아이템 스크립트 | Petal | 2018.04.06 | 43 |
378 | [CR] 인던스크립트 고대지하 | Petal | 2018.04.06 | 68 |
377 | [CR] 각인 스크립트 | Petal | 2018.04.06 | 82 |
376 | [CR] 천마전기 스크립트 | Petal | 2018.04.06 | 26 |
375 | [CR] 생산스크립트 | Petal | 2018.04.06 | 48 |
374 | 간편퀘스트 [1] | Petal | 2018.03.30 | 96 |
373 | 환전소 | 김희수띠 | 2018.03.27 | 76 |
372 | 서버배율에따른 경험치 (@apply_exp) 값 확인 엑셀 | 인연서버 | 2018.02.08 | 256 |
371 | 저주의목걸이 스크립트 | 황이 | 2018.01.27 | 132 |
370 | 조합안내 스크립트 [1] | 황이 | 2018.01.27 | 169 |
369 | 자동기원 스크립트 | 황이 | 2018.01.27 | 464 |
368 | 과거 GM세계후 | 황이 | 2018.01.27 | 133 |
367 | [CR]자동저장기 [3] | 도됴 | 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]로또 | 로버트 | 2017.10.15 | 153 |
362 | [ip탐색기] | skfj5612 | 2017.10.15 | 88 |