CR 막대사탕엔피씨

Script    채희엔피씨    {
    set @id, myid();
    set @sd, mysd();
    if(pc_amountitem(@sd, 2298) < 1 || pc_amountitem(@sd, 2299) < 1 || pc_amountitem(@sd, 2300) < 1 || pc_amountitem(@sd, 2301) < 1 || pc_amountitem(@sd, 2302) < 1 || pc_amountitem(@sd, 2303) < 1 || pc_amountitem(@sd, 2304) < 1)
    {
        dialog 0,0,1,"아~ ... 막대사탕 먹고싶다~ 저기.. 혹시 알고 계세요? 이곳 극지방 남쪽 부근에 있는 신극지방곳이란 곳에는, 산타와 여러 루돌프들이 살고 있어요.";
        dialog 0,0,1,"근데 그들이 가지고 있는 막대사탕들이 어찌나 맛나는지!! 둘이 먹다 하나 죽어도 모르는 맛이라고 하더라구요!";
        dialog 0,0,0,"시간이 되시면 막대사탕을 구해다 주실수 없을까요..? 막대사탕은 7개의 종류가 있는데, 정말 먹고싶네요 T^T!!";
        end;
    }
    delitem @sd, 2298, 1;
    delitem @sd, 2299, 1;
    delitem @sd, 2300, 1;
    delitem @sd, 2301, 1;
    delitem @sd, 2302, 1;
    delitem @sd, 2303, 1;
    delitem @sd, 2304, 1;
    message @sd, 3, "막대사탕1 주었습니다.";
    message @sd, 3, "막대사탕2 주었습니다.";
    message @sd, 3, "막대사탕3 주었습니다.";
    message @sd, 3, "막대사탕4 주었습니다.";
    message @sd, 3, "막대사탕5 주었습니다.";
    message @sd, 3, "막대사탕6 주었습니다.";
    message @sd, 3, "막대사탕7 주었습니다.";
    set @r, rand(1,5);
    if(@r != 1)
    {
        dialog 0,0,1,"으음~ 바로 이맛이야! 쩝쩝.. 정말 맛있어!";
        set_money @sd, get_money(@sd) + 1500;
        dialog 0,0,0,"정말 고마워요, 당신덕분에 이 맛난 사탕을 다시 먹어보네요! 고생도 하셨으니, 이건 제 자그마한 사례 현금 1500전 입니다! 유용하게 쓰세요.";
        end;
    }
    additem @sd, 2306, 1;
    dialog 0,0,1,"사탕이 참 맛있네요. 여기 제가 직접 딴 홍성초랍니다.";
    end;
}