viewing paste Unknown #51100 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
prontera,160,172,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;
Fish:
    if (isequipped(.@Rod)) && (isequipped(.@Lure)){
        specialeffect EF_BUBBLE,"Fishing Hole";
        soundeffect "fishingrod.wav",0;
        dispbottom "[Fishing] Casting...";
        set .@fcast,15;
        if (isequipped(2550)) { //Fisher's Muffler
            set .@fcast,.@fcast - 2;
        }
        if (isequipped(2443)) { //Fisher's Boots
            set .@fcast,.@fcast - 2;
        }
        progressbar "ffffff",.@fcast;
            if (rand(1,20) == 2) {
                getitem 6096,1; //Fish with Blue Back
                specialeffect2 EF_TEMP_OK;
                soundeffectall "success.wav",0,strcharinfo(3);
                mapannounce strcharinfo(3),strcharinfo(0)+" has caught a Blue Fish!!!",bc_map,"0xff77ff";
                if(.@Auto==1){
                goto Fish;}else{
                end;}
            }
        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;
        }
        else {
        dispbottom "[Fishing] Nothing was caught...";
        if(.@AutoFail == 1){
        goto Fish;} else{
        end;}
        }
        if (rand(1,200) == 3) {
            getitem 644,1; //Gift_Box
            mapannounce strcharinfo(3),strcharinfo(0)+" has caught a Gift Box!",bc_map,"0x00ffff";
        }
        if (rand(1,500) == 3) {
            getitem 603,1; //Old_Blue_Box
            mapannounce strcharinfo(3),strcharinfo(0)+" has caught an Old Blue Box!",bc_map,"0x00ffff";
        }
        if (rand(1,3000) == 3) {
            getitem 617,1; //Old_Violet_Box
            mapannounce strcharinfo(3),strcharinfo(0)+" has caught an Old Purple Box!",bc_map,"0x44ff44";
        }
        if(.@Auto == 1){
        goto Fish;} else{
        end;}
    }
    else {
        dispbottom "[Fishing] You need a Rod and Lure.";
        end;
    }
}
Viewed 1540 times, submitted by Pneuma.