Forever Ragnarok

Forums of FRO
 
HomeHome  CalendarCalendar  FAQFAQ  SearchSearch  MemberlistMemberlist  UsergroupsUsergroups  RegisterRegister  Log in  

Share | 
 

 Fishing Game? LOL

Go down 
AuthorMessage
GM Noob Killer
Admin
avatar

Posts : 872
Join date : 2009-05-16
Age : 22
Location : Behind you

PostSubject: Fishing Game? LOL   Fri May 29, 2009 9:55 pm

=======================================
//= 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
Back to top Go down
View user profile
 
Fishing Game? LOL
Back to top 
Page 1 of 1

Permissions in this forum:You cannot reply to topics in this forum
Forever Ragnarok :: Scripts-
Jump to: