fishing RO v1.1

-   script  FishingFunctions    -1,{
function Fishing; function Calculate;
function Show; function Level;
function Bait; function CalculateExp;

OnFishing:
    Level ( cur_Level );
    Bait ( @baitselect );
    Fishing( @fishingMap, cur_Level, @level_Modifier, $@fishing_Exp, @amount, @level_Mode );
    end;

OnShowin:
    Show( cur_Level, @level_Modifier, $@fishing_Exp );
    end;

OnInit:
setarray $@FishingLevel[0], 50, 125, 175, 220, 300, 450, 525, 600;
setarray $@Drop[0], 7227, 7228, 7229;
setarray $@defaultDrop[0], 910, 911, 912, 501, 502, 503, 504, 505, 608;
setarray $@baitID[0], 915, 908, 903, 632;
$@fishing_Exp = 1; // 1 = x1 rates.
end;
function    Level   {
    if(getarg(0) >= 600) {
        if(!@level_Mode ) @level_Mode = 1;
        //dispbottom "Ваш навык рыбной ловли уже максимальный. Вы будете получать только Ваш улов, и базовую экспу (если вы не 175)";
    }
    return;
}
function    Bait    {
    @new_item = 0;

    if(@baitselect == 903) {
        dispbottom "Отлично, ты используешь крутую наживку!";
        @level_Modifier += 1;
    }
    if(countitem(5317)) {
        dispbottom "У тебя крутая шапка рыбака!";
        @level_Modifier += 1;
    }
    if(@baitselect == 632) {
        dispbottom "Отлично, ты используешь крутую наживку!";
        @level_Modifier += 2;
        @new_item = 1;
    }
    return @level_Modifier;
}
function Fishing {
    if( !getarg(0) ) end; //cheat?:D
    if( getarg(0) == 1) { //izlude fishing guild

        if( !getarg(3) ) $@fishing_Exp = 1; //default x1
        if( !getarg(2) ) @level_Modifier = $@fishing_Exp; //default

        @loop = getarg(4);
        while(@loop) {
            Level ( cur_Level );
            if(!countitem(@baitselect)) {
                dispbottom "нет наживки";
                @loop = 0;
                end;
            }
            message strcharinfo(0), "Осталось наживки : "+ @loop;
            progressbar "green", rand(6,9);
            switch(rand(1,8)) {
                case 1: // ничего
                    @loop -= 1;
                    dispbottom "Сорвалось...";
                    delitem @baitselect, 1;
                    emotion e_sob;
                    break;
                case 2: // простая добыча
                    @loop -= 1;
                    @get_item = $@defaultDrop[rand(7)];
                    delitem @baitselect, 1;
                    @defaultExp = 1;
                    dispbottom "Что-то есть! Сейчас глянем!";
                    getitem @get_item, 1;
                    Calculate ( @defaultExp, getarg(2), getarg(3), getarg(5) );
                    break;
                case 3:
                    @loop -= 1;
                    dispbottom "Сапог? САПОГ! Рваный сапог... Но увы, он утонул...";
                    emotion e_heh;
                    delitem @baitselect, 1;
                    break;
                case 4:
                    @loop -= 1;
                    dispbottom "О, мешочек с золотом!!";
                    zeny += rand(1000);
                    @defaultExp = 1;
                    Calculate ( @defaultExp, getarg(2), getarg(3), getarg(5) );
                    delitem @baitselect, 1;
                    break;
                case 5:
                    @loop -= 1;
                    @get_item = $@Drop[rand(2)];
                    delitem @baitselect, 1;
                    @defaultExp = 2;
                    dispbottom "оО! Большой куш..., мне это нравится!";
                    getitem @get_item, 1;
                    Calculate ( @defaultExp, getarg(2), getarg(3), getarg(5) );
                    break;
                case 6:
                    @loop -= 1;
                    dispbottom "Опять сорвалось, ну что за!";
                    emotion e_omg;
                    delitem @baitselect, 1;
                    break;
                case 7:
                    @loop -= 1;
                    dispbottom "На этот раз сапог от меня не убежит!!";
                    emotion e_ag;
                    @get_item = 2405;
                    delitem @baitselect, 1;
                    @defaultExp = 1;
                    getitem @get_item, 1;
                    Calculate ( @defaultExp, getarg(2), getarg(3), getarg(5) );
                    break;
                case 8:
                    @loop -= 1;
                    dispbottom "Оооочень большой улов!!";
                    emotion e_ag;
                    if(@new_item) @get_item = 678;
                    if(!@new_item) @get_item = $@Drop[rand(2)];
                    delitem @baitselect, 1;
                    @defaultExp = 3;
                    getitem @get_item, 3;
                    Calculate ( @defaultExp, getarg(2), getarg(3), getarg(5) );
                    break;
                default:
                    dispbottom "Я даже наживку насадить немогу!";
                    break;
            }

            if(@error) {
                dispbottom "ошибка. обратитесь к администрации.";
            }

        }
        message strcharinfo(0), "наживка закончилась";
        end;
    }

}

function    Calculate   {
    if(!getarg(0)) return @error = 1;
    if(!getarg(1)) return @error = 1;
    if(!getarg(2)) return @error = 1;
    if(BaseLevel != 175 && JobLevel != 70) CalculateExp ( BaseLevel, JobLevel, @level_Modifier );
    if(getarg(3) > 0) return;
    @levelMod += getarg(0) * ( getarg(1) + getarg(2) );
    @myLevel = cur_Level + @levelMod;
    if(@myLevel > 600) @levelMod = 1;
    cur_Level += @levelMod;
    dispbottom "[Рыбная Ловля] + "+@levelMod+". Всего ("+cur_Level+" / "+$@FishingLevel[7]+").";
    return;
}

function    CalculateExp    {
    if(getarg(0) > 10 && getarg(0) < 50) @bExp += rand(30,50) * (getarg(2) + getarg(1));
    if(getarg(0) > 49 && getarg(0) < 100) @bExp += rand(150,200) * (getarg(2) + getarg(1) * getarg(0));
    if(getarg(0) > 99 && getarg(0) <= 175) @bExp += rand(1500,2000) * (getarg(2) + getarg(1) * getarg(0) + 5000);
    getexp @bExp, 0;
    return;
}
function    Show    {
    mes "[Рыбная Ловля] Всего ("+cur_Level+" / "+$@FishingLevel[7]+").";
    if(cur_Level > 0 && cur_Level < 200) {
        @color$ = "^FF0000";
        @message$ = "[" + @color$ + "||||^000000|||||||||||||||||||||||||||||]";
    }
    if(cur_Level > 199 && cur_Level < 400) {
        @color$ = "^00FF00";
        @message$ = "[" + @color$ + "||||||||||||||||||^000000|||||||||||||||]";
    }
    if(cur_Level > 399 && cur_Level <= 599) {
        @color$ = "^0000FF";
        @message$ = "[" + @color$ + "|||||||||||||||||||||||||^000000||||||||]";
    }
    if(cur_Level == 600) {
        @color$ = "^66DD99";
        @message$ = "[" + @color$ + "|||||||||||||||||||||||||||||||||^000000]";
    }
    mes @message$;
    mes "Рейты : х^FF0000"+$@fishing_Exp+"^000000";
    mes "Ваши улучшения : +^FF0000"+@level_Modifier+"^000000";
    mes " ";
    mes ":::[Другие улучшения]:::";
    mes "^0000FF" + getitemname(5317) +"^000000 + x1";
    close;
}
}
izlude,134,75,6 script  Мастер Рыболов 560,{
    switch(select("Рыбная Ловля:Покажите мне мои достижения!")){
        case 1:
            mes "Выберите наживку";
            set .@menu$, "";
            for(set .@i,0; .@i < 4; set .@i, .@i +1){
                if($@baitID[.@i] != 0) {
                    set .@menu$, .@menu$ + "> ^0000FF "+getitemname($@baitID[.@i])+" ^000000 x"+countitem($@baitID[.@i])+"";
                    set .@menu$, .@menu$ + ":";
                }
            }
            set @bait,select(.@menu$)-1;
            if(!countitem($@baitID[@bait])) {
                dispbottom "нет наживки";
                end;
            }
            @baitselect = $@baitID[@bait];
            @amount = countitem($@baitID[@bait]);
            @fishingMap = 1;
            close2;
            doevent "FishingFunctions::OnFishing";
            end;
        case 2:
            doevent "FishingFunctions::OnShowin";
            end;
    }
}