// TMW2 Scripts
// A barbarian in 56,87 offers to rent a rowboat. Maximum rent time is one day.
// Allows to use the dock

011-3,56,87,0	script	Barbarian#Sv1	NPC_SAVANNAH_BLUE,{
    mesn;
    if (@rowboat_rented) {
        mesq l("My rowboat is on the pier west of the soccer field. I've also marked with a white line where you shouldn't go further to prevent the rowboat from being taken by the current.");
        close;
    }
    mesq l("Hey pal, I can rent you my rowboat for a small amount of money and some mushrooms. If you sail at the small pier near the soccer field, you can reach both the Graveyard Island as Elli's Tower.");
    next;
    mesn;
    mesq l("However I'll mark in a white line where you shouldn't row to, or the current will catch you. Also, I'll rent you only until you leave the vicinity; this is not a boat rent shop if you haven't noticed yet.");
    next;
    .@price = 600*$GAME_STORYLINE;
    .@shrom = 1+REBIRTH;
    if (BaseLevel >= 100)
        .@shrom += 1;
    mesc l("Rent the board for %s GP and %d %s?", fnum(.@price), .@shrom, getitemlink(SmallMushroom)), 1;
    mesc l("Logging out, doing other quests, taking too long to use etc. will cause the rent to expire.");
    if (Zeny < .@price || countitem(SmallMushroom) < .@shrom) close;
    if (askyesno() == ASK_NO) close;
    Zeny -= .@price;
    delitem SmallMushroom, .@shrom;
    @rowboat_rented = true;
    mesn;
    mesq l("Deal, I'll leave my rowboat at the pier, don't take long before using it, though.");
    close;

OnInit:
    .sex=G_OTHER;
    .distance=5;
    end;
}