cr 야바위스크립트

Script    야바위꾼엔피씨    {
    set @id, myid();
    set @sd, mysd();
    set @m, list1("어서오시오. 심심한데, 나랑 야바위한번 해보지 않겠소?","야바위 시작","야바위권 구매","야바위권 판매");
    switch(@m)
    {
    case 1:
    a:
        set @pv, input2(@tiket,1,3,"야바위는, 다섯개의 컵안에 숨긴돌이 어디에 있는지 간단하게 맞추시면 되오. 간단하지 않소? 이기면 걸은 권수의 3배로 받게 된다오.","저는 야바위권을","개 걸겠습니다.");
        if(@tiket < 1) { goto a; }
        if(pc_amountitem(@sd, 20001) < @tiket) { message @sd, 3, "[정보] 야바위권이 부족 하여, 이전 창으로 돌아 갑니다."; goto a; }
        set @pick, rand(1,5);
    b:
        set @pv, list2(@m,0,0,"자.. 골라보시오 과연 돌은 어디에 있겠소? 맞추면 무려 3배의 티겟을 가져갈 수 있으니 신중히 선택해보시오.","첫번째 야바위컵 열기","두번째 야바위컵 열기","세번째 야바위컵 열기","네번째 야바위컵 열기","다섯째 야바위컵 열기");
        if(@m == 0) { end; }
        if(pc_amountitem(@sd, 20001) < @tiket) { goto b; }
        delitem @sd, 20001, @tiket;
        if(@pick != @m)
        {
            dialog 0,0,0,"이런.. 야바위는 "+@pick+"번째 컵에 숨겨져 있었소. 다음에 다시 시도해보도록 하시구려 껄껄..";
            end;
        }
        additem @sd, 20001, @tiket * 3;
        dialog 0,0,0,"오.. 맞췃군! 정말 대단한 실력이야. 야바위가 어디에있는지 바로 맞추다니! 자 여기 야바위권이 있소. 팔려면 팔도록 하시구려 껄껄!";
        end;
    case 2:
        set @pv, input2(@tiket,1,3,"나와 야바위를 하려면, 야바위권을 구매해야 하오. 내가 저렴하게 한장당 1만전에 팔고있는데, 몇장 사실라우?","야바위권을","개 구매 하겠습니다.");
        if(@tiket < 1) { end; }
        set @m, list1("야바위권 "+@tiket+"개라.. 음 "+@tiket*10000+"전에 드리겠네. 구매 하시겠소?","구매 하겠습니다.","안살래요");
        if(@m != 1) { end; }
        if(get_money(@sd) < @tiket*10000)
        {
            dialog 0,0,0,"금전이 부족하오.";
            end;
        }
        set_money @sd, get_money(@sd) - @tiket*10000;
        additem @sd, 20001, @tiket;
        message @sd, 8, "구매성공!";
        end;
    case 3:
        set @pv, input2(@tiket,1,3,"야바위권~ 한장에 1만전에 사드리지. 몇개나 팔겠소?","야바위권을","개 팔겠습니다.");
        if(@tiket < 1) { end; }
        if(pc_amountitem(@sd, 20001) < @tiket)
        {
            dialog 0,0,0,"야바위권이 그정도는 없는것 같은데...";
            end;
        }
        delitem @sd, 20001, @tiket;
        set_money @sd, get_money(@sd) + @tiket*10000;
        message @sd, 8, "판매성공!";
        broadcast 0,5,"[정보] "+get_name(@sd)+"님이 야바위권을 "+@tiket+"개 팔았습니다.",0;
        end;
    default:
        end;
    }
}