CR 소소스크립트입니다

Script    소명엔피씨    {
    set @id, myid();
    set @sd, mysd();
    if(get_name(@sd) != "곰도리푸") { dialog 0,0,0,"어서오세요. 저는 곰도리푸님의 외모를 관리하고 있는 소명입니다. "; end; }
a:
    set @pv, list2(@m,0,0,"어서오세요. 어떻게 오셨나요?","얼굴모양을 바꾸고 싶어요","머리모양을 바꾸고 싶어요","머리염색","얼굴장식사기","얼굴장식팔기");
    switch(@m)
    {
    case 1:
        dialog 0,0,1,"얼굴을 성형 하시려구요? 성형 비용은 받지않고 있습니다. 마음껏 얼굴을 대양온라인에서 바꿔보세요~!";
        set @pv, list2(@s,0,1,"성형을 하기전에, 얼굴을 미리 보실수 있습니다. 어떤 얼굴이 마음에 들지 직접 확인하세요.","얼굴성형","얼굴모양 보기");
        if(@pv == 0) { end; } else if(@pv == -1) { goto a; }
        if(@s == 1)
        {
            input1 @code, "어떤 얼굴로 하실지 벌써 결정하셨어요? 자~ 이제 선택의 시간이네요!\n<b>( 얼굴번호는 200~260번이 있습니다. )";
            if(@code < 200 || @code > 260) 
            {
                dialog 0,0,0,"잘못 입력하셨어요. 얼굴번호는 200번부터 260번까지 있습니다.";
                end;
            }
            set_face @sd, @code;
            dialog 0,0,0,"얼굴이 멋지고 이쁘게 성형 되었어요. 한번 확인해보세요.";
            end;
        }
        else if(@s == 2)
        {
            web @sd, 0, "http://112.165.51.163/face.php", "...";
            end;
        }
        else
        {
            end;
        }
    case 2:
        dialog 0,0,1,"어떤 머리스타일을 원하시나요? "+get_name(@sd)+"님이 원하시는 머리를 직접 선택하실수 있을거에요. 자 그럼 시작해볼까요?";
        set @pv, list2(@s,0,1,"머리스타일을 바꾸시기전에, 미리 머리스타일을 보실수 있어요. 어떤걸 원하시나요?","머리변경","머리모양 보기");
        if(@pv == 0) { end; } else if(@pv == -1) { goto a; }
        if(@s == 1)
        {
            input1 @code, "어떤 머리로 하실지 벌써 결정하셨어요? 자~ 이제 선택의 시간이네요!\n<b>( 머리번호는 0~142번이 있습니다. )";
            if(@code < 0 || @code > 151 || @code == 143 || @code == 144) 
            {
                dialog 0,0,0,"잘못 입력하셨어요. 초과입력 또는 운영자 머리는 할 수 없습니다.";
                end;
            }
            set_hair @sd, @code;
            dialog 0,0,0,"머리가 멋지고 이쁘게 변경 되었어요. 한번 확인해보세요.";
            end;
        }
        else if(@s == 2)
        {
            web @sd, 0, "http://112.165.51.163/hair.php", "...";
            end;
        }
        else
        {
            end;
        }
    case 3:
        dialog 0,0,1,"염색을 하시려구요? 염색 비용은 10전 입니다. 금전은 몬스터를 처치하면 얻을수 있을거에요.";
        input1 @color, "어떤 색으로 하시겠어요?\n원래 머리색은 0번 입니다.\n<b>( 번호입력 0~32 )";
        if(@color > 32)
        {
            dialog 0,0,0,"잘못 입력하셨어요. 염색번호는 0번부터 32번까지 있습니다.";
            end;
        }
        if(get_money(@sd) < 10)
        {
            dialog 0,0,0,"금전이 모자라네요.";
            end;
        }
        set_money @sd, get_money(@sd) - 10;
        set_haircolor @sd, @color;
b:
        input1 @color, "정말 이쁘게 염색됫네요!\n다른 염색도 한번 해보세요~!\n원래 머리색은 0번 입니다.\n<b>( 번호입력 0~32 )";
        if(@color > 32)
        {
            dialog 0,0,0,"잘못 입력하셨어요. 염색번호는 0번부터 32번까지 있습니다.";
            end;
        }
        if(get_money(@sd) < 10)
        {
            dialog 0,0,0,"금전이 모자라네요.";
            end;
        }
        set_money @sd, get_money(@sd) - 10;
        set_haircolor @sd, @color;
        goto b;
    case 4:
        call_shop 0, 43;
    case 5:
        call_shop 1, 43;
    }
}