//===== Custom eAthena Script =======================================
//= Fishing Script
//===== By: =========================================================
//= Mercurial
//===== Description =================================================
//= Fishing spot with random prizes and monsters
//===== Version =====================================================
//= 1.0
//===== Description =================================================
//= $@fishitem - Fishing Prize IDs
//= $itemreq[0] - Fishing Rod ID (Currently set at Hypnotist's Staff[1])
//= $itemreq[1] - Bait ID (Currently set at Fatty Chubby Earthworm)
//= $itemreq[2] - Fishing Hat ID (Currently set at Fisherman's Hat)
//= $@emonster - Monster IDs
//= @fishch - Fishing Item Chance
//= $@fp$ - NPC Name
//===================================================================
//= If you want to add more events just add more cases in the second
//= switch()
//= Have fun!
//===================================================================


alb2trea,95,98,4	script	Fishing Spot::fishing	1228,{
	setarray $@fishitem[0], 671, 12033, 12028, 12031, 12029, 12034, 12030, 12027, 12999, 12107, 12106, 12105, 12109, 12070, 12065, 12045, 12050, 12055, 12060, 13761, 13598, 5100, 5214, 5283, 5277, 5284, 5289, 5099, 5140, 5153, 2358, 5103, 5278, 5137, 5102, 12244, 12189, 12240, 13722, 13723, 5287, 5184, 5200, 5282, 7497, 7095, 7004, 2664, 2708, 2665, 2667;
	setarray $@itemreq[0], 1621, 632, 5317;
	setarray $@emonster[0], 1031, 1045, 1070, 1044;
	set @fishch, 30;
	set $@fp$, "[Fishing Spot]";

	if(countitem($@itemreq[1]) >= 1)
	{
		mes $@fp$;
		mes "You see fish swimming at your feet.";
		mes "Do you want start fishing?";	
		switch(select("Yes", "No"))
		{
		case 1:
			next;
			switch(rand(1, 7))
			{
			delitem $@itemreq[1], 1;
			case 1:
				goto GotFish;
				break;
			case 2:
				mes $@fp$;
				mes "You were close but nothing was caught.";
				close2;
					specialeffect2 611;
					end;
				break;
			case 3:
				mes $@fp$;
				mes "You caught a poison fish and got poisoned!";
				skilleffect 52,2000;
				sc_start SC_Poison,600000,0;
				close;
				break;
			case 4:
				getmapxy $@fmap$,$@fmapx,$@fmapy,0;
				set $@rn, rand(0, getarraysize($@emonster) - 1);
				mes $@fp$;
				mes "You fished out a " + getmonsterinfo($@emonster[$@rn], 0) + " ... Run!!!";
				monster $@fmap$, $@fmapx, $@fmapy, getmonsterinfo($@emonster[$@rn], 0) + " Leader", $@emonster[$@rn], 1;
				close2;
				for(set .ctr,0; .ctr<=10; set .ctr, .ctr + 1)
				{
					if(rand(1, 10) <= 1)
					{
						npctalk "The " + getmonsterinfo($@emonster[$@rn],0) + " called for back up... RUN!";
						monster $@fmap$, $@fmapx, $@fmapy, getmonsterinfo($@emonster[$@rn], 0), $@emonster[$@rn], 1;
					}
				}
				end;
				break;
			case 5:
				mes $@fp$;
				mes "A merman pulled you into the water.";
				close2;
					sleep2 2000;
					specialeffect2 611;
					warp "iz_dun04", rand(1, 200), rand(1, 200);
					end;
				break;
			case 6:
				mes $@fp$;
				mes "You caught an Old Frying Pan... Yay?";
				getitem 7031,1;
				close;
				break;
			case 7:
				mes $@fp$;
				mes "You caught a Marine Sphere and exploded in your face";
				close2;
				atcommand "@killer ";
				atcommand "@nuke "+strcharinfo(0);
				atcommand "@killer ";
				end;
				break;
			case 8:
				mes $@fps$;
				mes "The Luck Dice rolls...";
				mes "Input the a number from 1 to 4";
				set @chance,rand(1,4);
				input @hisinput;
				if(@hisinput==@chance)
				{
					set @fishch,@fishch+10;
					goto GotFish;
					
				}
				else
					goto GotFish;
				}
			break;
			
		case 2:
			next;
			mes $@fp$;
			mes "...You walked away...";
			close;
			break;
		}
		close;
	}
	else
	{
		mes $@fp$;
		mes "You need a "+getitemname($@itemreq[1])+" to start fishing.";
		close;
	}
end;

GotFish :
		if(getequipid(1) != $@itemreq[2]) set @fishch,@fishch - 10;
		if(countitem($@itemreq[0]) == 0) set @fishch,@fishch - 15;
		if(rand(1,100) <= @fishch)
		{
			mes $@fp$;
			mes "You had to throw the fish back";
			mes "but luckily it was carrying an item.";
			getitem $@fishitem[rand(0,getarraysize($@fishitem)-1)],1;
			close2;
			specialeffect2 610;
					end;
		}
		else if(rand(1, 100) <= 15 && countitem($@itemreq[0]))
		{
			mes $@fp$;
			mes "You managed to catch something, but it was too heavy for your pole";
			mes "to endure. The Pole you were using snapped in half.";
			delitem $@itemreq[0], 1;
			close2;
			specialeffect2 611;
			end;
		}
		else
		{
			mes $@fp$;
			mes "You managed to catch something, but it managed to escape.";
			close2;
			specialeffect2 611;
			end;
		}
end;
}
hu_fild05,181,226,4	duplicate(fishing)	Fishing Spot	1228
jawaii.gat,146,105,1	duplicate(fishing)	Fishing Spot#10	111
jawaii.gat,190,112,1	duplicate(fishing)	Fishing Spot#11	111
jawaii.gat,185,137,1	duplicate(fishing)	Fishing Spot#12	111
jawaii.gat,194,136,1	duplicate(fishing)	Fishing Spot#13	111
jawaii.gat,244,117,1	duplicate(fishing)	Fishing Spot#14	111
jawaii.gat,156,182,1	duplicate(fishing)	Fishing Spot#15	111
jawaii.gat,105,181,1	duplicate(fishing)	Fishing Spot#16	111
jawaii.gat,106,199,1	duplicate(fishing)	Fishing Spot#17	111
jawaii.gat,123,219,1	duplicate(fishing)	Fishing Spot#18	111
jawaii.gat,133,271,1	duplicate(fishing)	Fishing Spot#19	111
jawaii.gat,104,235,1	duplicate(fishing)	Fishing Spot#20	111
jawaii.gat,120,247,1	duplicate(fishing)	Fishing Spot#21	111
jawaii.gat,159,185,1	duplicate(fishing)	Fishing Spot#22	111
jawaii.gat,119,164,1	duplicate(fishing)	Fishing Spot#23	111
comodo.gat,256,163,1	duplicate(fishing)	Fishing Spot#37	111
comodo.gat,223,115,1	duplicate(fishing)	Fishing Spot#38	111
comodo.gat,167,80,1	duplicate(fishing)	Fishing Spot#39	111
comodo.gat,231,77,1	duplicate(fishing)	Fishing Spot#40	111
comodo.gat,254,80,1	duplicate(fishing)	Fishing Spot#41	111
alb2trea.gat,116,88,1	duplicate(fishing)	Fishing Spot#24	1228
alb2trea.gat,102,97,1	duplicate(fishing)	Fishing Spot#25	1228
treasure01.gat,68,113,1	duplicate(fishing)	Fishing Spot#26	1228
treasure01.gat,68,148,1	duplicate(fishing)	Fishing Spot#27	111
treasure01.gat,52,154,1	duplicate(fishing)	Fishing Spot#28	1228
treasure01.gat,87,156,1	duplicate(fishing)	Fishing Spot#29	111
treasure01.gat,68,168,1	duplicate(fishing)	Fishing Spot#30	111
treasure02.gat,101,68,1	duplicate(fishing)	Fishing Spot#31	1228
hu_fild05.gat,187,186,1	duplicate(fishing)	Fishing Spot#42	1228
hu_fild05.gat,182,228,1	duplicate(fishing)	Fishing Spot#43	111
hu_fild05.gat,143,127,1	duplicate(fishing)	Fishing Spot#44	1228
hu_fild05.gat,243,123,1	duplicate(fishing)	Fishing Spot#45	1228
hu_fild05.gat,169,201,1	duplicate(fishing)	Fishing Spot#46	111