Jump to content

Question

6 answers to this question

Recommended Posts

  • 0
Posted

@Questune09 I think you want the lure to be consumed per fishing attempt?

Try this one

prt_fild00,262,225,0	script	Fishing Hole	723,{
	
//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)) && (countitem(.@Lure)){
		specialeffect EF_BUBBLE,"Fishing Hole";
		soundeffect "_attack_axe.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;
			}
			if (isequipped(2764)) { //Fishing Pole
				set .@fcast,.@fcast - 3;
			}
			if (countitem(2775)) { //Fishing Lure
				set .@fcast,.@fcast - 1;
			}
		progressbar "ffffff",.@fcast;
		delitem 2775,1;
		if (rand(1,20) == 2){
		getitem 6096,1; //Fish with Blue Back
		specialeffect2 EF_TEMP_OK;
		soundeffectall "see_otter_damage.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,989,714,619,7720,731,730,732,970,1036,7047,704,719,1054,1053,702,919,7003,720,7210,7169,1068,948,939,925,952,7013,7870,979,1047,957,6035,1055,7220,1011,7043,11601,6096;// 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,100) == 3){
		setarray .@Rare[0],644,603,617,5317,12211,12208,12103,4049;
		set .@RareCatch, .@Rare[rand(getarraysize(.@Rare))];
		getitem .@RareCatch,1; //Reward
		mapannounce strcharinfo(3),strcharinfo(0)+" has caught a "+getitemname(.@RareCatch)+"!",bc_map,"0x33CC00";
		}
		if(.@Auto == 1){
		goto Fish;} else{
		end;}
		}
	else {
	dispbottom "[Fishing] You need a Rod and Lure.";
	end;
	}
}

// Duplicate --------------------------------
prt_fild08,329,301,0	duplicate(Fishing Hole)	Fishing Hole	723
izlude,143,222,0	duplicate(Fishing Hole)	Fishing Hole	723
hugel,150,135,0	duplicate(Fishing Hole)	Fishing Hole	723
niflheim,59,232,0	duplicate(Fishing Hole)	Fishing Hole	723
hugel,119,182,0	duplicate(Fishing Hole)	Fishing Hole#1	723

 

  • Upvote 1
  • 0
Posted
15 hours ago, Technoken said:

@Questune09 I think you want the lure to be consumed per fishing attempt?

Try this one


prt_fild00,262,225,0	script	Fishing Hole	723,{
	
//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)) && (countitem(.@Lure)){
		specialeffect EF_BUBBLE,"Fishing Hole";
		soundeffect "_attack_axe.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;
			}
			if (isequipped(2764)) { //Fishing Pole
				set .@fcast,.@fcast - 3;
			}
			if (countitem(2775)) { //Fishing Lure
				set .@fcast,.@fcast - 1;
			}
		progressbar "ffffff",.@fcast;
		delitem 2775,1;
		if (rand(1,20) == 2){
		getitem 6096,1; //Fish with Blue Back
		specialeffect2 EF_TEMP_OK;
		soundeffectall "see_otter_damage.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,989,714,619,7720,731,730,732,970,1036,7047,704,719,1054,1053,702,919,7003,720,7210,7169,1068,948,939,925,952,7013,7870,979,1047,957,6035,1055,7220,1011,7043,11601,6096;// 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,100) == 3){
		setarray .@Rare[0],644,603,617,5317,12211,12208,12103,4049;
		set .@RareCatch, .@Rare[rand(getarraysize(.@Rare))];
		getitem .@RareCatch,1; //Reward
		mapannounce strcharinfo(3),strcharinfo(0)+" has caught a "+getitemname(.@RareCatch)+"!",bc_map,"0x33CC00";
		}
		if(.@Auto == 1){
		goto Fish;} else{
		end;}
		}
	else {
	dispbottom "[Fishing] You need a Rod and Lure.";
	end;
	}
}

// Duplicate --------------------------------
prt_fild08,329,301,0	duplicate(Fishing Hole)	Fishing Hole	723
izlude,143,222,0	duplicate(Fishing Hole)	Fishing Hole	723
hugel,150,135,0	duplicate(Fishing Hole)	Fishing Hole	723
niflheim,59,232,0	duplicate(Fishing Hole)	Fishing Hole	723
hugel,119,182,0	duplicate(Fishing Hole)	Fishing Hole#1	723

working now sir thank you so much how about to change the item description?? in the image show?

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...