path: root/npc/functions/fishing.txt

// TMW2 Script
// Evol functions.
// Authors:
//    gumi
//    omatt
//    Travolta
//    Jesusalva
// Description:
//    Fishing functions.
// Variable
//    .dir
//         DOWN    Never try or pulled too late
//         UP      Bait dropped
//         LEFT    Fish bite bait
//
// player log on .dir is DOWN, start by choose bait menu
// player chooses bait, script addtimer in npc .dir is UP
// if player pulls before signal npc, bait is lost, set .bait to DOWN goto choose bait
// if player pulls after pull delay max, bait is lost, set .bait to DOWN goto choose bait
// npc signal .dir is LEFT
// player pulls between npc signal and pulls delay max, got the fish, set .dir to DOWN goto choose bait

function	script	fishing_cleanup	{
    .@npc$ = getarg(0, "");
    if (.@npc$ == "") end;

    set getvariableofnpc(.char_id, .@npc$), 0; // clean acc id
    set getvariableofnpc(.account_id, .@npc$), 0; // clean char id
    set getvariableofnpc(.last_used, .@npc$), gettimetick(2); // set last used time
    setnpcdir .@npc$, DOWN; // reset direction
    return;
}

-	script	global fishing handler	32767,{
    end;

OnBite:
    if (ispcdead()) end;
    if (getnpcdir(@fishing_spot$) != UP)
        end;

    setnpcdir @fishing_spot$, LEFT;
    @fishing_tick = gettimetick(0);
    .@bite_fx=getvariableofnpc(.bite_fx, @fishing_spot$);
    specialeffect(.@bite_fx ? .@bite_fx : 30, SELF, playerattached());
    end;

OnCleanUp:
    dispbottom l("You waited too long and lost the bait...");
    specialeffect(getvariableofnpc(.failure_fx, @fishing_spot$), SELF, playerattached()); // event fail
OnPCLogoutEvent:
    fishing_cleanup @fishing_spot$;
    @fishing_spot$ = ""; // unbind fishing npc
    end;
}

// Syntax: fishing()
// Syntax: fishing ( OFFSET, COMMON FISHES, RARE FISHES )
//          OFFSET: How many fishes are common
function	script	fishing	{

///////////////////////////////////////////
// Var initialization
    if (getarg(0, 0) == 0) {
        setarray .@common_fish,
            CommonCarp;
        setarray .@rare_fish,
            GrassCarp;
    } else {
        .@i=0;
        freeloop(true);
        for (.@i=1; .@i < getargcount(); .@i++) {
            if (.@i <= getarg(0)) {
                .@common_fish[.@i-1]=getarg(.@i);
            } else {
                .@rare_fish[.@i-1-getarg(0)]=getarg(.@i);
            }
        };
        freeloop(false);
    }
    //debugmes("[FISH] Initialized with %d common and %d rare fishes", getarraysize(.@common_fish), getarraysize(.@rare_fish));

    .@npc$ = strnpcinfo(0); // the full name of the fishing spot

    .@account_id = getvariableofnpc(.account_id, .@npc$); // the account id of the player using the fishing spot
    .@char_id = getvariableofnpc(.char_id, .@npc$); // the char id of the player using the fishing spot
    .@dir = getnpcdir(.@npc$); // direction of the fishing spot
    .@last_used = getvariableofnpc(.last_used, .@npc$); // when this fishing spot was last used
    .@baits = getvariableofnpc(.baits, .@npc$); // bait count

    .@rod = getvariableofnpc(.fishing_rod, .@npc$); // the fishing rod required for this spot
    .@rod = (.@rod ? .@rod : FishingRod);

    .@net_ratio = getvariableofnpc(.net_ratio, .@npc$); // How many fishes and baits are required?
    .@net_ratio = max(1, (.@net_ratio ? .@net_ratio : 1));

    .@regen_time = getvariableofnpc(.cooldown, .@npc$); // cooldown for the fishing spot
    .@regen_time = (.@regen_time ? .@regen_time : 20);

    .@bp_chance = getvariableofnpc(.bp_chance, .@npc$); // Blueprint chance
    .@bp_chance = (.@bp_chance ? .@bp_chance : 1);

    .@success_fx = getvariableofnpc(.success_fx, .@npc$); // effect to show on success
    .@success_fx = (.@success_fx ? .@success_fx : FX_SUCCESS);

    .@failure_fx = getvariableofnpc(.failure_fx, .@npc$); // effect to show on failure
    if (.@failure_fx < 1)
    {
        .@failure_fx = FX_FAILURE;
        set getvariableofnpc(.failure_fx, .@npc$), .@failure_fx; // needed by global handler
    }

    .@initial_fx = getvariableofnpc(.initial_fx, .@npc$); // effect to show when throwing the bait
    .@initial_fx = (.@initial_fx ? .@initial_fx : 29);

    .@bite_fx = getvariableofnpc(.bite_fx, .@npc$); // effect to show when something bites
    if (.@bite_fx < 1)
    {
        .@bite_fx = 30;
        set getvariableofnpc(.bite_fx, .@npc$), .@bite_fx; // needed by global handler
    }

    .@wait_time_min = getvariableofnpc(.wait_time_min, .@npc$); // min amount of time to wait for the line to sink
    .@wait_time_min = (.@wait_time_min ? .@wait_time_min : 4000);

    .@wait_time_max = getvariableofnpc(.wait_time_max, .@npc$); // max amount of time to wait for the line to sink
    .@wait_time_max = (.@wait_time_max ? .@wait_time_max : 18000);

    // During night time there are more fishes, and therefore, it is easier to fish
    // This will make they reply at most 30% faster. Default is a 6 second max delay gain
    if (is_night())
        .@wait_time_max = min(.@wait_time_min, .@wait_time_max*7/10);

    .@catch_time = getvariableofnpc(.catch_time, .@npc$); // the player must catch the fish within X ms after the line sinks
    .@catch_time = (.@catch_time ? .@catch_time : 5000);

    .@pull_rand_max = getvariableofnpc(.pull_rand_max, .@npc$);
    .@pull_rand_max = (.@pull_rand_max ? .@pull_rand_max : 1100);

    .@fish_id = CommonCarp; // failsafe


    if (getvariableofnpc(.bait_ids[0], .@npc$) < 1)
    {
        // default baits (bait, chance booster) rand(0, 100)
        setarray getvariableofnpc(.bait_ids[0], .@npc$),
            SmallTentacles, 4,
            Bread, 4,
            Aquada, 8,
            Tentacles, 10,
            BugLeg, 2,
            CaveSnakeTongue, 6,
            LettuceLeaf, 1,
            Cheese, 3,
            RoastedMaggot, 6;

    }

    if (.@baits < 1)
    {
        // only count it once
        .@baits = getarraysize(getvariableofnpc(.bait_ids[0], .@npc$));
        set getvariableofnpc(.baits, .@npc$), .@baits;
    }


///////////////////////////////////////////
// Logic below

    if (countitem(.@rod) < 1)
    {
        dispbottom l("You don't have any @@.", getitemlink(.@rod));
        return -1;
    }

    if (.@account_id > 0 && !isloggedin(.@account_id, .@char_id))
    {
        fishing_cleanup .@npc$; // reset
        .@dir = DOWN;
    }

    if (.@char_id != getcharid(CHAR_ID_CHAR) && .@dir != DOWN)
    {
        dispbottom l("This fishing spot is already being used!");
        return -2;
    }


    // pull too soon
    if (.@dir == UP)
    {
        deltimer "global fishing handler::OnCleanUp"; // cancel auto cleanup
        deltimer "global fishing handler::OnBite";
        specialeffect(.@failure_fx, SELF, playerattached());  // event fail
        fishing_cleanup .@npc$; // do it manually instead
        dispbottom l("You pulled too soon and lost the bait.");
        return -3;
    }

    // pull maybe on time
    else if (.@dir == LEFT)
    {
        deltimer "global fishing handler::OnCleanUp"; // cancel auto cleanup
        fishing_cleanup .@npc$; // do it manually instead

        getmapxy .@mapbis$, .@xbis, .@ybis, UNITTYPE_PC; // get current char location

        // Leave spot, lost the bait
        if (.@mapbis$ != @fishing_loc$[0] || .@xbis != @fishing_loc[0] || .@ybis != @fishing_loc[1] || @fishing_spot$ != .@npc$)
        {
            dispbottom l("You left your fishing spot!");
            return -4;
        }


        // RNG to obtain a fish
        if (rand2(gettimetick(0) - @fishing_tick) <= .@pull_rand_max)
        {
            for (.@i=0 ; .@i < .@net_ratio ; .@i++) {
                // RNG to obtain a rare fish or common fish
                // Luck can increase up to 5% when it is at 100.
                // Level can increase up to 10% when it is at 100.
                .@boost=(readparam2(bLuk)/20)+(BaseLevel/10);
                .@bai=getvariableofnpc(.bait_ids[@bait_d+1], .@npc$);
                // Ancient Blueprint: 0.05% per bait bonus (no luck)
                if (rand2(2000) < .@bp_chance*.@bai) {
                    .@fish_id = AncientBlueprint;
                } else if (rand2(0, 100) < .@bai+.@boost) {
                    .@fish_id = any_of(.@rare_fish);
                } else {
                    .@fish_id = any_of(.@common_fish);
                }
                specialeffect(.@success_fx, SELF, playerattached());
                getexp getvariableofnpc(.bait_ids[@bait_d+1], .@npc$)+(BaseLevel/10), 4+getvariableofnpc(.bait_ids[@bait_d+1], .@npc$); // xp gain is equivalent to bait rarity + BaseLevel boost

                // MobPt gain is equivalent to bait rarity.
                if (MPQUEST)
                    Mobpt+=.@bai*limit(1, BaseLevel/10, 10);

                if (checkweight(.@fish_id, 1)) {
                    getitem .@fish_id, 1;
                } else {
                    dispbottom l("You caught a @@ but had no room in your inventory to carry it.", getitemlink(.@fish_id));
                    makeitem .@fish_id, 1, .@mapbis$, .@xbis, .@ybis; // drop on the ground
                }

                // Catch the Golden Fish Event
                if ($EVENT$ == "Fishing")
                    FYE_Fishing();
            }
        }
        else
        {
            dispbottom l("You pulled too late and lost the bait...");
            specialeffect(.@failure_fx, SELF, playerattached());  // event fail
            .@fish_id = 0;
            getexp 0, 5;
        }

        @fishing_spot$="";
        return .@fish_id;
    }



    if (gettimetick(2) - .@last_used < .@regen_time)
    {
        dispbottom l("This fishing spot has just been used, give it a rest.");
        return -5;
    }

    // This "hack" will prevent you from fishing at two spots (buggy)
    // It'll cancel the previous fishing too, per logical rule.
    if (@fishing_spot$ != "") {
            deltimer "global fishing handler::OnCleanUp"; // cancel auto cleanup
            deltimer "global fishing handler::OnBite";
            fishing_cleanup(@fishing_spot$); // clean up manually
            @fishing_spot$="";
            dispbottom l("You left your fishing spot!");
            return -4;
    }

    // begin fishing
    narrator S_LAST_NEXT,
        l("You see some fish reflecting the sun on the surface of the water."),
        (.@net_ratio == 1 ? l("What will be the bait for the fish?") : l("You need @@ units of bait for this fishing spot. What will you use?", .@net_ratio));

    if (GSET_FISHING_BAIT > 1) {
        .@bait = GSET_FISHING_BAIT;
        mesc l("Maybe a %s?", getitemlink(GSET_FISHING_BAIT));
    } else {
        mes "##B" + l("Drag and drop an item from your inventory.") + "##b";

        .@bait = requestitem();
        if (.@bait > 1 && GSET_FISHING_BAIT)
            GSET_FISHING_BAIT = .@bait;
    }

    if (.@bait < .@net_ratio) {
        narrator S_FIRST_BLANK_LINE,
            l("You take your @@ and leave.", getitemlink(.@rod));

        return -6;
    }

    if (countitem(.@bait) < .@net_ratio) {
        mesc l("You do not have enough bait for fishing here.");
        return -6;
    }

    .@bait_c = false;
    for (.@i = 0; .@i < .@baits; .@i += 2) {
        if (getvariableofnpc(.bait_ids[.@i], .@npc$) == .@bait)
        {
            .@bait_c = true;
            @bait_d = .@i;
            break;
        }
    }

    if (.@bait_c != true)
    {
        narrator S_FIRST_BLANK_LINE,
            l("This item cannot be used as bait here.");

        return -6;
    }

    if (getvariableofnpc(.char_id, .@npc$) > 0)
    {
        narrator S_FIRST_BLANK_LINE,
            l("Somebody took your place on this spot!"),
            l("You take your fishing rod and leave.");
        return -8;
    }

    @fishing_spot$ = .@npc$; // bind player to fishing spot
    set getvariableofnpc(.account_id, .@npc$), getcharid(CHAR_ID_ACCOUNT); // record account id
    set getvariableofnpc(.char_id, .@npc$), getcharid(CHAR_ID_CHAR); // record char id
    set getvariableofnpc(.last_used, .@npc$), gettimetick(2);
    getmapxy(@fishing_loc$[0], @fishing_loc[0], @fishing_loc[1], 0); // record char pos
    delitem .@bait, .@net_ratio;

    // The player uses this spot, his bait is ready, he just has to wait for the signal.
    closedialog;

    specialeffect(.@initial_fx, SELF); // throw the bait
    sleep2 800;    // wait 0.8s for synchronize the sound of "plop" in water with the npc dir UP.
    setnpcdir .@npc$, UP;

    dispbottom l("Wait for the bait to sink underwater.");

    .@delay = rand(.@wait_time_min, .@wait_time_max);

    addtimer .@delay, "global fishing handler::OnBite"; // bite logic
    addtimer (.@delay + .@catch_time), "global fishing handler::OnCleanUp"; // auto clean up

    return 0;
}