(rAthena) Fishing

prontera,108,156,0  script  Fishing Hole    844,{

    //Fishing rod
    set .@Rod, 2764;

    //Fishing Lure
    set .@Lure, 2775;

    //Auto-Fish
    set .@Auto, 1;

    //Auto-Fish on Fail
    set .@AutoFail, 1;

    if (@Fishing)
        end;

    @Fishing = 1;
    pcblockmove getcharid(3),1;
    while (1)
    {
Fish:
        if (isequipped(.@Rod)) && (isequipped(.@Lure))
        {
            specialeffect EF_BUBBLE,"Fishing Hole";
            dispbottom "[Fishing] Casting...";

            set .@fcast, 20;
            if (isequipped(2550)) //Fisher's Muffler
                set .@fcast, .@fcast - 2;
            if (isequipped(2443)) //Fisher's Boots
                set .@fcast, .@fcast - 2;
            if (isequipped(2764)) //Fishing Pole
                set .@fcast, .@fcast - 3;
            if (isequipped(2775)) //Fishing Lure
                set .@fcast, .@fcast - 1;

            .@cutin_num = 12;
            for (set .@i, 1; .@i <= .@cutin_num; set .@i, .@i + 1)
            {
                .@img_cutin$ = sprintf("fishing_%s", ((.@i < 10) ? "0"+.@i : ""+.@i));
                cutin .@img_cutin$, 1;
                sleep2 .@fcast * 1000 / .@cutin_num;
                cutin "",255;
            }

            if (rand(1,90) == 1)
            {
                getitem 7711, 1; // Event Ticket
                specialeffect2 EF_TEMP_OK;
                mapannounce strcharinfo(3), strcharinfo(0)+" has caught a Event Ticket!", bc_map, "0xff77ff";
                if (!.@Auto)
                    break;
                goto Fish;
            }

            if (rand(1,6) == 1) ||(rand(1,6) == 3) || (rand(1,6) == 6)
            {
                setarray .@Catch[0],579,908,909,963,956,6049,918,960,910,938,624;// List of Junk/Other
                set .@CatchRand,.@Catch[rand(getarraysize(.@Catch))];
                getitem .@CatchRand,1;
                emotion e_omg,1;
            }
            else {
                dispbottom "[Fishing] Nothing was caught...";
                if(!.@AutoFail)
                    break;
                goto Fish;
            }
            if (rand(1,100) == 3)
            {
                setarray .@Rare[0], 12103, 12214, 60078;
                set .@RareCatch, .@Rare[rand(getarraysize(.@Rare))];
                getitem .@RareCatch,1; //Reward
                specialeffect 236;
                mapannounce strcharinfo(3),strcharinfo(0)+" has caught a "+getitemname(.@RareCatch)+"!",bc_map,"0x33CC00";
            }
            if(!.@Auto)
                break;
            goto Fish;
        }
        else
        {
            dispbottom "[Fishing] You need a Rod and Lure.";
            break;
        }
    }
    @Fishing = 0;
    pcblockmove getcharid(3), 0;
    end;
}


prontera,174,166,0  duplicate(Fishing Hole) Fishing Hole#1  844
prontera,174,162,0  duplicate(Fishing Hole) Fishing Hole#2  844
prontera,175,158,0  duplicate(Fishing Hole) Fishing Hole#3  844
prontera,176,155,0  duplicate(Fishing Hole) Fishing Hole#4  844
prontera,177,151,0  duplicate(Fishing Hole) Fishing Hole#5  844
prontera,178,147,0  duplicate(Fishing Hole) Fishing Hole#6  844
prontera,178,140,0  duplicate(Fishing Hole) Fishing Hole#7  844
prontera,175,135,0  duplicate(Fishing Hole) Fishing Hole#8  844
prontera,174,129,0  duplicate(Fishing Hole) Fishing Hole#9  844
prontera,168,120,0  duplicate(Fishing Hole) Fishing Hole#10 844
prontera,192,119,0  duplicate(Fishing Hole) Fishing Hole#11 844
prontera,204,173,0  duplicate(Fishing Hole) Fishing Hole#12 844
prontera,110,153,0  duplicate(Fishing Hole) Fishing Hole#13 844
prontera,99,155,0   duplicate(Fishing Hole) Fishing Hole#14 844

prontera,147,162,5  shop    Alat Pancing    821,2764:100000000,2775:100000000,2550:700000000,2443:700000000