viewing paste Unknown #49363 | 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 65 66 67 68 69 70
prontera,160,172,0      script  Fishing Hole    844,{
       
//Fishing rod
set .@Rod,2764;
//Fishing Lure
set .@Lure,2775;
//Consumable Lure
set .@cLure,6781;
//Auto-Fish
set .@Auto,1;
//Auto-Fish on Fail
set .@AutoFail,1;
//Consume Lures
set .@UseLures,1;
 
Fish:
        if(isequipped(.@Rod) && (isequipped(.@Lure) || countitem(.@cLure)>1)){
                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
                                if(.@UseLures==1){delitem .@cLure,1;}
                                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 325 times, submitted by Pneuma.