낚시 스크립트

@그물    {
    set @sd, mysd();
    set @id, myid();
    set @target_id, obj_getfront();
    if(@target_id > 0 && istype(@target_id) == 2)
    {
        if(get_mobname(@target_id) == "물고기")
        {
            if(gettime(2, 0) == 1 || gettime(2, 0) == 2 || gettime(2, 0) == 3 || gettime(2, 0) == 4 || gettime(2, 0) == 5 || gettime(2, 0) == 6 || gettime(2, 0) == 7 || gettime(2, 0) == 8 || gettime(2, 0) == 9 || gettime(2, 0) == 10 || gettime(2, 0) == 11 || gettime(2, 0) == 12 || gettime(2, 0) == 13 || gettime(2, 0) == 14 || gettime(2, 0) == 15 || gettime(2, 0) == 16 || gettime(2, 0) == 17 || gettime(2, 0) == 18 || gettime(2, 0) == 19 || gettime(2, 0) == 20 || gettime(2, 0) == 21 || gettime(2, 0) == 22 || gettime(2, 0) == 23 || gettime(2, 0) == 0 || gettime(2, 0) == 24)
            {
                if(rand(1, 150) >= 10 && rand(1, 150) <= 40)
                {
                    if(rand(1, 30) <= 4)
                    {
                        say @id, 0, get_name(@sd) + ": 갈치다!";

                        additem @sd, name2itemid("갈치"), 1;
                        end;
                    }
                }
                else if(rand(1, 150) >= 75 && rand(1, 150) <= 90)
                {
                    if(rand(1, 30) <= 3)
                    {
                        say @id, 0, get_name(@sd) + ": 아싸~! 고등어다!";

                        additem @sd, name2itemid("고등어"), 1;
                        end;
                    }
                }
                else if(rand(1, 150) >= 120 && rand(1, 150) <= 125)
                {
                    if(rand(1, 30) <= 2)
                    {
                        say @id, 0, get_name(@sd) + ": 대박! 황금잉어다!!";

                        additem @sd, name2itemid("황금잉어"), 1;
                        end;
                    }
                }
                else if(rand(1, 150) == 150)
                {
                    if(rand(1, 40) <= 1)
                    {
                        say @id, 0, get_name(@sd) + ": 이게 뭐지..? 불길해 보이는데..";

                        additem @sd, name2itemid("저주받은인형"), 1;
                        end;
                    }
                }
            }
            else
            {
                set @pos, dialog(0, 0, 0, "매시간 엽니다^^지금은 불가능 좀더기다리세요.");
                end;
            }
        }
    }
}
물고기구매    {
    set @sd, mysd();
    set @id, myid();
COS001:
    set @pos, list2(@list, 0, 0, "어떤 물고기를 파실건가요?", "갈치", "고등어", "황금잉어", "그물구매");
    if(@pos == 1 && @list > 0)
    {
        if(@list == 4) { goto information; }

        setarray @stone$[1], "갈치", "고등어", "황금잉어";
        setarray @money[1], 10000, 50000, 100000;

        set @input, input1(@number, "몇 마리를 파시겠습니까?");
        if(@number <= 0) { set @number, 1; }

        if(countitem(name2itemid(@stone$[@list])) < @number)
        {
            deletearray @stone$[1], getarraysize(@stone$);
            deletearray @money[1], getarraysize(@money);

            set @pos, dialog(0, 0, 0, "판매하실 물고기가 부족한 것 같은데?");
            end;
        }
        else
        {
            delitem @sd, name2itemid(@stone$[@list]), @number;
            message @sd, 3, @stone$[@list] + " " + @number + "개 주었습니다";

            set @money, @money[@list]*@number;

            set_money @sd, get_money(@sd)+@money;
            updatestatus @sd, 2;

            deletearray @stone$[1], getarraysize(@stone$);
            deletearray @money[1], getarraysize(@money);

            set @pos, dialog(0, 0, 1, "판매가로 " + @money + "전을 주었네.");
            end;
        }

    }
    deletearray @stone$[1], getarraysize(@stone$);
    deletearray @money[1], getarraysize(@money);
    end;
information:
        callshop 0, 79;
}

//Game Zone(게임존)

//여러가지 응용이 가능합니다

출처(윈바람)