결투장 스크립트

script    대련시스템    {
    set @mysd, mysd();
        set @myid, myid();
    set @list, list1("안녕하세요?\n결투도우미 입니다.\n1:1 결투를 하실려면 1:1결투을 눌러주시기 바랍니다.", "1:1 결투 !!");

    if(@list == 1) {
        if ($dbqn == 1) { dialog(0,0,0, "1:1결투는 상대방과 결투를 해서 유령이되면 게임이 끝나는 것입니다."); }
            set @pos, dialog(1, 0, 1, "1:1결투비용은 무료입니다.");
            if (@pos == 0) end;
POS2:
                          if(get_money(@mysd) < 0) {
    dialog 0, 0, 1, "금전이 부족하시네요";
    end;
    } 
            set @pos, input2(@id$, 0, 20, "1:1 결투할 상대방 닉네임을 입력주세요.", "상대할 사람은", "입니다.");
     set @target_id, name2id(@id$);
     set @target_sd, id2sd(@target_id);
            
                        if (@id$ == "") {
                            set @pos, dialog(0,0,1, "결투할 사람의 닉네임을 입력해주세요.");
                end;
            }
            if (@target_sd == 0 ) {
                set @pos, dialog (0, 0, 1, "상대방이 접속하지 않았습니다.");
                end;
            }
            if (get_mapid(@target_sd) != get_mapid(@mysd) ) {
                set @pos, dialog(0, 0, 1, "1:1 대결할 상대방이 같은 자리에 없습니다.");
                end;
            }
            set @pos, dialog(0, 1, 1, "1:1 결투신청을 보냈습니다.\n5초만 기다려주세요.");
            if (@pos == 0) end;
                        effect @myid, 342;
            sound @myid, 0, 131;
                        set_money @mysd, get_money(@mysd) - 0;
                        set #honey, @mysd;
                        sleep 5000;
            runscript @target_sd, "대련시스템2";
            set @pos, dialog(1, 0, 1, "정상적으로 메시지가 전달되었습니다.\n수락 될 동안 기달려주세요.");
            end;
                        }
    }
        
script    대련시스템2    {
    set @mysd, mysd();
    set @honey, #honey;
    set #mysd, @mysd;

    set @pos, dialog(0, 0, 1, get_name(@honey) + "님께서 " + get_name(@mysd) + "님과 결투하시길 원하십니다.");
    if (! @pos) end;

    
    
    set @list, list1("[1:1] 결투 하시겠습니까?","네", "아니오"); 
    if(@list == 1) {
            warp @mysd, 854, 12, 16;
                magiccast @mysd, 7106;
            magic_aether @mysd, 7108, 11;

            warp @honey, 854, 20, 16;
                magiccast @mysd, 7106;
            magic_aether @mysd, 7108, 11;

                        broadcast 0, 11, ""+get_name(@mysd) +" 과(와) "+get_name(@honey) +"님이 결xn가 시작되었습니다. ", 0;
                           set $honey, @honey;
                        set $mysd, @mysd;
                        set $dbqn, 1;
            end;
}
        if(@list == 3 ) {
            set @pos, dialog(1, 0, 0, "아쉽군요..\n다음에 다시 도전 해보세요 ~");
            if (! @pos) end;
    }
}

-게임존-

출처(윈바람)