사이트 로그인
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 | 579 |
460 | 통파일 구축법! [1] | 루마 | 2017.02.27 | 3410 |
459 | [sun] 경험치 배율 설정 [1] | 케이지김 | 2017.11.30 | 920 |
458 | 함수팁 | 만수무강 | 2018.06.08 | 807 |
457 | 자동기원 [1] | 츠찌 | 2019.10.15 | 647 |
456 | 후면공격 측면공격 스크립트!!(디스구동기) [8] | 깜상 | 2019.09.25 | 645 |
455 | 연아 통파일 구합니다! [7] | 세류 | 2017.09.14 | 621 |
454 | 함수값 종합 TIP | 바람회장 | 2016.12.09 | 586 |
453 | DR 구동기 - /이동 명령어 추가 | 우지냥 | 2017.04.02 | 581 |
452 | 바람의나라 구버전 아이템 이미지 [1] | 게임존 | 2016.02.16 | 559 |
451 | DR 함수모음 | 고래상어 | 2019.04.02 | 527 |
450 | 6.51 경험치 배율 수정 방법입니다.(mapreg로 안될 시) [1] | wnehddbs | 2019.11.12 | 515 |
449 | 마법 배우는 검색기 스크립트 | 게임존 | 2016.02.16 | 491 |
448 | cr 함수모음 [1] | 포로롱 | 2019.01.09 | 474 |
447 | 자동기원 스크립트 | 황이 | 2018.01.27 | 467 |
446 | 도사 버프 스크립트 | 피카츄배구 | 2020.03.10 | 463 |
445 | [DR] /리로드 명령어 모르시는분들 필독! [1] | 나무s | 2017.09.03 | 462 |
444 | 결투장 스크립트 | 피카츄배구 | 2020.03.10 | 456 |
443 | 그룹경험치 스크립트 | 피카츄배구 | 2020.03.10 | 443 |
442 | 템이미지코드 | 디르고633 | 2020.03.08 | 388 |
441 | DR환수 | 가시거기 | 2019.03.31 | 376 |
440 | CR 천인마법 스크립트 입니다. | 닼으닉스 | 2021.06.08 | 366 |
439 | 아이템 판매가격 설정법?? (SUN구동기) [1] | 데뮤니즈 | 2019.12.26 | 361 |
438 | 바람의나라 구버전 몬스터 이미지 [1] | 게임존 | 2016.02.16 | 352 |
437 | 로즈서버 구동기 소스 | troutking | 2018.05.08 | 347 |
436 | 경마장 시스템 [구버전/디스구동기] | 인연서버 | 2019.02.14 | 344 |
435 | DR자동체마사기 | 가시거기 | 2019.03.31 | 340 |
434 | 승급기준 아이템지급 | 피카츄배구 | 2020.03.10 | 339 |
433 | DR 구축방법 | 꿀밤12 | 2021.03.16 | 305 |
432 | 매크로 방지 소스 [1] | 달퐁 | 2018.07.13 | 293 |
431 | 바람의나라 이펙트 | 게임존 | 2016.02.16 | 287 |
430 | 낚시 스크립트 | 피카츄배구 | 2020.03.10 | 283 |
429 | 폭탄피하기(수정판) [4] | 에바참치 | 2017.10.10 | 281 |
428 | 잠수컨텐츠 (수련) | 20009 | 2019.03.31 | 275 |
427 | 스킬 딜줄이기 소스 | 달퐁 | 2018.07.13 | 262 |
426 | 출석체크 스크립트 | 민걍자마 | 2017.04.25 | 262 |
425 | 인던 - 구양성 [1] | 가가가가 | 2017.04.16 | 262 |
424 | 서버배율에따른 경험치 (@apply_exp) 값 확인 엑셀 | 인연서버 | 2018.02.08 | 258 |
423 | sun 자동공성화 | 추억 | 2017.11.27 | 257 |
422 | 부여성 리뉴얼맵이라네요 [1] | 화이트M | 2016.03.19 | 252 |
421 | DR황제암살 | 가시거기 | 2019.03.31 | 240 |
420 | [DR] 자동체마사기 스크립트 [1] | Petal | 2018.04.06 | 237 |
419 | [SUN] 서버 랭킹 스크립트 [5] | JSO | 2017.04.04 | 229 |
418 | 바람의나라 랭킹보여주는 PHP 파일 [5] | webpro | 2016.02.23 | 228 |
417 | DR 천명 | 가시거기 | 2019.03.31 | 227 |
416 | [DR] 이기어검 [흑룡의분노 발동] | 화이트M | 2018.12.01 | 219 |
415 | 아이템 이미지(2000~3929) [1] | 게임존 | 2016.02.16 | 215 |
414 | 조합안내 NPC | 게임존 | 2016.02.16 | 212 |
413 | [DR] 염색약 스크립트 [2] | 나무s | 2017.09.02 | 199 |
412 | 추억의 봉클 개조도구 [1] | troutking | 2018.05.08 | 196 |