/*******************************************************/
/*                                                     */
/*  상점관련 소스입니다.                               */
/*  편의상 파일을 하나 만들어서 관리하는게 편하실듯..  */
/*  아무튼 유용하게 쓰세요 ^^&                         */
/*  기타 문의는 msn tkeo@grayrese.com 로 해주세요 -ㅅ- */
/*                                                     */
/*                         http://www.grayrese.com     */
/*                               tkeo@dreamwiz.com     */
/*                                        GrayRese     */
/*                                                     */
/*******************************************************/
//참고로 비리아이템 체크하는 프로그램 응용했습니다.
//방 만들고 어쩌고 하는 방법도 있는데
//이 방법은 자신의 소지품에 플레그를 걸어서
//직접 판매하는 방법입니다.
#include "mstruct.h"
#include "mextern.h"


/*************/
/* 상점-개설 */
/*************/
int shop_list(ply_ptr, cmnd)
creature        *ply_ptr;
cmd             *cmnd;
{
        char                str[2048];
        int                        fd;
        room                *rom_ptr;
        creature        *crt_ptr;
        otag                *op;

        rom_ptr = ply_ptr->parent_rom;
        fd = ply_ptr->fd;

        if(F_ISSET(ply_ptr, PBLIND)) {
                ANSI(fd, BLUE);
                print(fd, "당신은 눈이 멀어서 아무것도 볼 수가 없습니다!");
                ANSI(fd, WHITE);
                return(0);
        }

        crt_ptr = find_crt(ply_ptr, rom_ptr->first_mon, cmnd->str[1], cmnd->val[1]);

        if(!crt_ptr) {
                lowercize(cmnd->str[1], 1);
                crt_ptr = find_crt(ply_ptr, rom_ptr->first_ply, cmnd->str[1], cmnd->val[1]);
                if(!crt_ptr) {
                        print(fd, "그런 사람 없어요!");
                        return(0);
                }
        }  

        if(!F_ISSET(crt_ptr, PGSHOP)) {
                print(fd, "그 사람은 상점을 차리지 않았습니다.");
                return(0);
        }

        op = crt_ptr->first_obj;

        if(!op) {
                print(fd,"그가 팔고 있는 물건은 없습니다.");
                return(0);
        }
        else {
                print(fd, "%s님이 팔고 있는 물건", crt_ptr);
                while(op) {
                        if(F_ISSET(op->obj, OSEITE))
                                print(fd, "\n   %-30s   가격: %ld", obj_str(op->obj, 1, CAP), op->obj->gold);
                        op = op->next_tag;
                }
        }

        return(0);
}


/*************/
/* 상점-구입 */
/*************/
int shop_buy(creature* ply_ptr, cmd* cmnd)
{
        int                        i, cnt, fd;
        creature        *crt_ptr;
        room                *rom_ptr;
        object                *obj_ptr;

        rom_ptr = ply_ptr->parent_rom;
        fd = ply_ptr->fd;

        if( cmnd->num < 2 ) {
                print(fd, "\n무엇을 구입하시려구요?");
                return(0);
        }

        if( cmnd->num < 3 ) {
                print(fd, "\n사용법: <괴물이름> <물건> 구입");
                return(0);
        }
                
        cmnd->str[1][0] = up(cmnd->str[1][0]);
        crt_ptr = find_crt(ply_ptr, rom_ptr->first_ply, cmnd->str[1], cmnd->val[1]);

        if(!crt_ptr) {
                cmnd->str[1][0] = low(cmnd->str[1][0]);
                crt_ptr = find_crt(ply_ptr, rom_ptr->first_mon, cmnd->str[1], cmnd->val[1]);
                if(!crt_ptr) {
                        print(fd, "그런 사람은 여기 없어요!\n");
                        return(0);
                }
        }
        
        if(!F_ISSET(crt_ptr, PGSHOP)) {
                print(fd,"그 사람은 상점을 차리지 않았습니다.");
                return(0);
        }

        for(i = 0, cnt = 0; i < MAXWEAR; i++)
                if( ply_ptr->ready[i] ) cnt++;

        cnt += count_inv(ply_ptr, -1);

        obj_ptr = find_obj(ply_ptr, crt_ptr->first_obj, cmnd->str[2], cmnd->val[2]);

        if( !obj_ptr ) {
                print(fd, "\n그런 물건은 팔지 않습니다.");
                return(0);
        }

        if( ply_ptr->gold < obj_ptr->gold ) {
                print(fd, "\n돈이 모자랍니다.");
                return(0);
        }

        if( weight_ply(ply_ptr) + weight_obj(obj_ptr) > max_weight(ply_ptr) || cnt >= 150 )
        {
                print(fd, "\n당신은 더이상 가질 수 없습니다.");
                return(0);
        }

        ply_ptr->gold -= obj_ptr->gold;
        crt_ptr->gold += obj_ptr->gold;
        del_obj_crt(obj_ptr, crt_ptr);
        add_obj_crt(obj_ptr, ply_ptr);
        F_CLR(obj_ptr, OSEITE);
        F_CLR(ply_ptr, PHIDDN);

        print(fd, "\n당신은 %I%j 샀습니다.", obj_ptr, "3");
        broadcast_rom(fd, ply_ptr->rom_num, "\n%M%j %I%j 샀습니다.", ply_ptr, "1", obj_ptr, "3");

        savegame_nomsg(ply_ptr);

        return(0);
}                        
                

/*************/
/* 상점-닫기 */
/*************/
int shop_close(ply_ptr)
creature        *ply_ptr;
{
        int                fd;
        otag        *op;
        
        fd = ply_ptr->fd;
        op = ply_ptr->first_obj;

        if(!F_ISSET(ply_ptr, PGSHOP)) {
                print(fd, "당신은 상점을 차리지 않았습니다.");
                return(0);
        }

        F_CLR(ply_ptr, PGSHOP);
        
        while(op) {
                if(F_ISSET(op->obj, OSEITE))
                F_CLR(op->obj, OSEITE);
                op = op->next_tag;
        }
        
        print(fd, "당신은 자리를 자리를 접고 일어납니다.");
        broadcast_rom(fd, ply_ptr->rom_num, "\n%M님이 자리를 접고 일어납니다.", ply_ptr, "1");

        return(0);
}


/************/
/* 상점-개설 */
/************/
int shop_open(ply_ptr)
creature    *ply_ptr;
{
        int fd;

        fd = ply_ptr->fd;

        if(F_ISSET(ply_ptr, PGSHOP)) {
                print(fd, "당신은 벌써 상점을 차리고 있습니다.");
                return(0);
        }
                                
        F_SET(ply_ptr, PGSHOP);
        print(fd, "당신은 자리를 깔고 장사할 준비를 합니다.");
        broadcast_rom(fd, ply_ptr->rom_num, "\n%M님이 자리를 깔고 장사할 준비를 합니다.", ply_ptr, "1");
        return(0);
}


/*****************/
/* 상점-물건등록 */
/*****************/
int shop_setting(ply_ptr, cmnd)
creature        *ply_ptr;
cmd                        *cmnd;
{
        int                        fd;
        creature        *crt_ptr;
        object                *obj_ptr;

        fd = ply_ptr->fd;
        obj_ptr = find_obj(ply_ptr, ply_ptr->first_obj, cmnd->str[1], cmnd->val[1]);

        if(!F_ISSET(ply_ptr, PGSHOP)) {
                print(fd, "당신은 상점을 차리지 않았습니다.");
                return(0);
        }

        if(F_ISSET(obj_ptr, OSEITE)) {
                print(fd, "그 상품은 이미 진열되어 있습니다.");
                return(0);
        }

        if(!obj_ptr) {
                print(fd, "그런 물건은 없습니다.");
                return(0);
        }

        F_SET(obj_ptr, OSEITE);
        print(fd, "\n당신은 %I%j 진열대에 올렸습니다.",obj_ptr, "3");
        broadcast_rom(fd, ply_ptr->rom_num, "\n%M님이 %I%j 진열대에 올려놨습니다.", ply_ptr, obj_ptr, "3");

        return(0);
}


/*********************/
/* 상점-물건등록해제 */
/*********************/
int shop_unsetting(ply_ptr, cmnd)
creature        *ply_ptr;
cmd                        *cmnd
{
        int                        fd;
        creature        *crt_ptr;
        object                *obj_ptr;

        fd = ply_ptr->fd;
        obj_ptr = find_obj(ply_ptr, ply_ptr->first_obj, cmnd->str[1], cmnd->val[1]);
                
        if(!obj_ptr) {
                print(fd, "그런 물건은 없습니다.");
                return(0);
        }

        if(!F_ISSET(ply_ptr, PGSHOP)) {
                print(fd, "당신은 상점을 차리지 않았습니다.");
                return(0);
        }
                                
        F_CLR(obj_ptr, OSEITE);
        print(fd, "\n당신은 %I%j 진열대에 내렸습니다.",obj_ptr, "3");
        broadcast_rom(fd, ply_ptr->rom_num, "\n%M님이 %I%j 진열대에서 내려놨습니다.", ply_ptr, obj_ptr, "3");

        return(0);
}


/*****************/
/* 상점-물건가격 */
/*****************/
int shop_value(ply_ptr, cmnd)
creature        *ply_ptr;
cmd                        *cmnd;
{
        int                        fd, len;
        long                amt;        
        creature        *crt_ptr;
        object                *obj_ptr;

        fd = ply_ptr->fd;
        amt = atol(cmnd->str[2]);

        obj_ptr = find_obj(ply_ptr, ply_ptr->first_obj, cmnd->str[1], cmnd->val[1]);

        if(!obj_ptr) {
                print(fd, "그런 물건은 없습니다.");
                return(0);
        }

        if(!F_ISSET(ply_ptr, PGSHOP)) {
                print(fd, "당신은 상점을 차리지 않았습니다.");
                return(0);
        }

        len = strlen(cmnd->str[2]);

        if(len>2 && strcmp(&cmnd->str[2][len-2],"엘")) {
                print(fd, "금액 뒤에는 '엘'을 붙여야 합니다.");
                return(0);
        }

        if(amt < 1) {
                print(fd, "돈의 단위는 음수가 될수 없습니다.\n");
                return(0);
        }

        obj_ptr->gold= amt;
        print(fd, "\n당신은 %I의 가격을 %d엘로 책정합니다.",obj_ptr, obj_ptr->gold);
        broadcast_rom(fd, ply_ptr->rom_num, "\n%M님이 %I의 가격을 %d엘로 책정했습니다.", ply_ptr, obj_ptr, obj_ptr->gold);

        return(0);
}