prontera,153,150,4	script	Fishing Ladder Board	4_BOARD3,{

goto MainMenu;
MainMenu:
			mes "[ ^aa557fFishing Ladder Board^000000 ]";
			mes "You check the fishing ladder board.";
			next;
		menu "[ ^aa557fInformation^000000 ]",FInfo,"[ ^ff0000Ranking^000000 ]",FRank,"[ ^aaaa7fExpedition^000000 ]",FExpe; 
FInfo:

			mes "[ ^aa557fFishing Ladder Board^000000 ]";
			if($@FishingMode == 0 )
			mes "There are [ ^aa0000TWO-TYPES^000000 ] of";
			mes "^005500LADDER:^000000";
			mes "[ ^ffaa00Ranking^000000 ]";
			if($@FishingMode == 0 )
			mes "[ ^55007fExpedition^000000 ]";
			//cutin $@FishingLadderInfo$,3;
			next;
			mes "[ ^aa557fFishing Ladder Board^000000 ]";
			mes "^ffaa00RANKING^000000 will automatical list";
			mes "^ff0000[ TOP-5 Fishers ]^000000";
			mes "regarding the following.";
			mes "^ff5500Fishing Level [ FishLvl ]^000000";
			mes "^005500Fishing Experience [ FishExp ]^000000";
			mes "^00aaffTotal Fish Caught [ FishCaught ]^000000";
			//cutin $@FishingLadderRank$,3;
			mes "[ ^aa557fFishing Ladder Board^000000 ]";
			mes "^55007fEXPEDITION^000000 will automatical list";
			mes "^ff0000[ TOP-5 Fishers ]^000000";
			mes "regarding the following.";
			mes "^005500Fishing Success [ FishSuccess ]^000000";
			mes "^00aa7fFishing Fail [ FishFail ]^000000";
			
			if($@FishingMode == 0 ) {
			mes "^ff5500Fish Monster Encounters [ FishEncounter ]^000000";
			mes "^55aaffRewarding Moments [ FishRewards ]^000000";
			}

			//cutin $@FishingLadderExpe$,3; 
			next; 
			menu "^005500[ Return ]^000000",MainMenu;
			close;

// ======================================================= DONT CHANGE ANYTHING HERE UNLESS YOU KNOW HOW LADDER IS DONE...
FRank:
		set .@frank,query_sql("SELECT `name`, `flvl`, `fexp`, `fpts`, `fcot` FROM `fishing_system` ORDER BY flvl DESC LIMIT 5",.@n$,.@fl,.@fe,.@fp,.@fc); 
			mes "Hall Of Fame: Fishing Ladder";
			mes "^ff0000Name^000000:^ff5500[ FL ]^000000:^005500[ FE ]^000000:^55007f[ FP ]^000000:^55ffff[ FC ]^000000"; 
		//cutin $@FishingLadderRank$,3;
		for(set .@i,1; .@i <= .@frank; set .@i,.@i++) {
			mes .@i+". ["+.@n$[0]+"] ("+.@fl[0]+") ("+.@fe[0]+") ("+.@fp[0]+") ("+.@fc[0]+")"; 
		}
		next;
		menu "^005500[ Return ]^000000",MainMenu;
		close;

FExpe:
		set .@fexpe,query_sql("SELECT `name`, `fsuc`, `ffail`, `fenc`, `fmom` FROM `fishing_system` ORDER BY fsuc DESC LIMIT 5",.@n1$,.@fs,.@ff,.@fn,.@fm);
			mes "Hall Of Fame: Fishing Ladder";
		if($@FishingMode == 0 ) {
			mes "^ff0000Name^000000:^005500[ FS ]^000000:^55aa00[ FF ]^000000:^ff5500[ FN ]^000000:^55ffff[ FM ]^000000";
		}
		if($@FishingMode == 1 ) {
			mes "^ff0000Name^000000:^005500[ FS ]^000000:^55aa00[ FF ]^000000:^ff5500";
		}
		for(set .@i,1; .@i <= .@fexpe; set .@i,.@i++){ 
		if($@FishingMode == 0 ) {
			mes .@i+". ["+.@n1$[0]+"] ("+.@fs[0]+") ("+.@ff[0]+") ("+.@fn[0]+") ("+.@fm[0]+")";
		}
		if($@FishingMode == 1 ) {
			mes .@i+". ["+.@n1$[0]+"] ("+.@fs[0]+") ("+.@ff[0]+")";
			}
		}
		//cutin $@FishingLadderExpe$,3;
		next;
		menu "^005500[ Return ]^000000",MainMenu;
		close;
		end;
	}