Update to last rAthena npc.

Fix some typos
change sc_bleeding to -> sc_blooding
Updated RE EXP for quests_brasilis.txt

1 files changed, 243 insertions, 149 deletions

diff --git a/npc/other/turbo_track.txt b/npc/other/turbo_track.txt
index 329d9b3f0..fed2efd4c 100644
--- a/npc/other/turbo_track.txt
+++ b/npc/other/turbo_track.txt
@@ -3,8 +3,9 @@
 //===== By: ==================================================
 //= Joseph
 //===== Current Version: =====================================
-//= 1.0
-//===== Description: ========================================= 
+//= 1.2
+//===== Description: =========================================
+//= [Official Conversion]
 //= Turbo Track Course: 
 //= - Solo Mode/Time Attack
 //= - Normal (Non-PVP) - 4/8/16 Person
@@ -12,6 +13,8 @@
 //===== Additional Comments: =================================
 //= 0.x Previous authors: L0ne_W0lf, Kisuka, Elias
 //= 1.0 Merged Turbo Track. [Joseph]
+//= 1.1 Updated RE/Pre-RE EXP. [Euphy]
+//= 1.2 Added Renewal features. [Euphy]
 //============================================================
 
 function	script	F_tt	{
@@ -376,8 +379,8 @@ OnTimer927000:
 	}
 	enablenpc "No_Unfair_Start#"+.@w$+"-1";
 	enablenpc "No_Unfair_Start#"+.@w$+"-2";
-	donpcevent "snake#"+.@w$+"::Onreset";
-	donpcevent "hunting#"+.@w$+"::Onreset";
+	donpcevent "snake#"+.@w$+"::OnReset";
+	donpcevent "hunting#"+.@w$+"::OnReset";
 	disablenpc "bing2#"+.@w$;
 	disablenpc "Winner Helper#TBT_"+.@w$;
 	enablenpc "#cos_"+.@w$+"_end";
@@ -431,9 +434,9 @@ turbo_n_1,68,379,5	duplicate(NoUnfair#tt_main)	No_Unfair_Start#n1-2	-1,5,31
 -	script	LogTrap#tt_main	-1,{
 OnTouch:
 	switch (rand(1,3)) {
-		Case 1: warp strnpcinfo(4),72,372; end;
-		Case 2: warp strnpcinfo(4),72,365; end;
-		Case 3: warp strnpcinfo(4),72,357; end;
+		case 1: warp strnpcinfo(4),72,372; end;
+		case 2: warp strnpcinfo(4),72,365; end;
+		case 3: warp strnpcinfo(4),72,357; end;
 	}
 }
 turbo_e_4,118,377,0	duplicate(LogTrap#tt_main)	trap_a#e4-1	-1,44,1
@@ -986,25 +989,25 @@ turbo_n_1,148,357,0	duplicate(LogTrap#tt_main)	trap_d#n1-15	-1,1,2
 -	script	SandTrap#tt_main	-1,{
 OnTouch:
 	switch(rand(1,10)) {
-		Case 1:
-		Case 9:
+		case 1:
+		case 9:
 			sc_start SC_CONFUSION,8000,0;
 			emotion e_swt2,1;
 			end;
-		Case 2:
+		case 2:
 			sc_start SC_STONE,4000,0;
 			end;
-		Case 4:
+		case 4:
 			sc_start SC_SLEEP,4000,0;
 			end;
-		Case 6:
+		case 6:
 			sc_start SC_FREEZE,4000,0;
 			emotion e_swt2,1;
 			end;
-		Case 8:
+		case 8:
 			sc_start SC_STUN,4000,0;
 			end;
-		Case 10:
+		case 10:
 			sc_start SC_CURSE,80000,0;
 			end;
 	}
@@ -1677,7 +1680,7 @@ turbo_n_1,332,270,0	duplicate(snake04#tt_main)	snake04#n1	45,1,1
 -	script	SnakeHunt#tt_main	-1,{
 	end;
 	
-Onreset:
+OnReset:
 	killmonsterall strnpcinfo(4);
 	end;
 
@@ -1717,39 +1720,39 @@ turbo_n_1,90,46,0	duplicate(SnakeHunt#tt_main)	hunting#n1	111
 OnTouch:
 	set .@n, charat(strnpcinfo(2),getstrlen(strnpcinfo(2))-1);
 	switch (.@n) {
-		Case 1:
+		case 1:
 			mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Log Bridge course!",bc_map,"0x70DBDB";
 			switch (rand(1,3)) {
-				Case 1: warp strnpcinfo(4),210,369; end;
-				Case 2: warp strnpcinfo(4),210,361; end;
-				Case 3: warp strnpcinfo(4),210,354; end;
+				case 1: warp strnpcinfo(4),210,369; end;
+				case 2: warp strnpcinfo(4),210,361; end;
+				case 3: warp strnpcinfo(4),210,354; end;
 			}
-		Case 2:
+		case 2:
 			mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Cube Hills course!",bc_map,"0x70DBDB";
 			warp strnpcinfo(4),316,365;
 			end;		
-		Case 3:
+		case 3:
 			mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Cursed Desert!",bc_map,"0x70DBDB";
 			switch (rand(1,4)) {
-				Case 1: warp strnpcinfo(4),46,254; end;
-				Case 2: warp strnpcinfo(4),76,227; end;
-				Case 3: warp strnpcinfo(4),42,197; end;
-				Case 4: warp strnpcinfo(4),86,220; end;
+				case 1: warp strnpcinfo(4),46,254; end;
+				case 2: warp strnpcinfo(4),76,227; end;
+				case 3: warp strnpcinfo(4),42,197; end;
+				case 4: warp strnpcinfo(4),86,220; end;
 			}
-		Case 5:
+		case 5:
 			mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Single Snail course!",bc_map,"0x70DBDB";
 			warp strnpcinfo(4),268,275;
 			end;
-		Case 6:
+		case 6:
 			mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Snake Dice course!",bc_map,"0x70DBDB";
 			warp strnpcinfo(4),5,91;
 			end;
-		Case 7:
+		case 7:
 			mapannounce strnpcinfo(4),strcharinfo(0) +" has just passed the Small Cave course! Hurry, you're almost at the finish!",bc_map,"0x70DBDB";
 			switch(rand(1,3)) {
-				Case 1: warp strnpcinfo(4),307,52; end;
-				Case 2: warp strnpcinfo(4),307,46; end;
-				Case 3: warp strnpcinfo(4),307,40; end;
+				case 1: warp strnpcinfo(4),307,52; end;
+				case 2: warp strnpcinfo(4),307,46; end;
+				case 3: warp strnpcinfo(4),307,40; end;
 			}
 	}
 }
@@ -1921,8 +1924,10 @@ OnTouch:
 	set .@w$,callfunc("F_tt");
 	if (.@w$ == "n1") set $@end_time,gettimetick(0);
 	mapannounce strnpcinfo(4),strcharinfo(0) +" has just arrived at the Finish Line! Congratulations!",bc_map,"0xFFFF00";
-	if (.@w$ != "n1") setd "$ttnames$["+GetNumber(.@w$)+"]",strcharinfo(0);
-	donpcevent "TBT_Guide#Broadcast::Onwin_"+.@w$;
+	if (.@w$ != "n1") {
+		setd "$ttnames$["+GetNumber(.@w$)+"]",strcharinfo(0);
+		donpcevent "Turbo Track Guide::OnWin_"+.@w$;
+	}
 	warp strnpcinfo(4),384,161;
 	if (.@w$ == "e4" || .@w$ == "n4" || .@w$ == "n1") {
 		if (.@w$ == "e4") {
@@ -2095,7 +2100,7 @@ turbo_n_1,114,190,0	duplicate(Flasher#tt_main)	Flasher_Exit_2#n1	45,1,1
 			mes "You are ranked as";
 			mes "the top player for";
 			mes "winning the most games!";
-			donpcevent "TBT_Guide#Broadcast::Onnew_top1";
+			donpcevent "Turbo Track Guide::OnNew_Top1";
 			if (tt_rank == 29999) {
 				if ($ttnames$[7] == "Breezy Havana") {
 					set $ttnames$[7],strcharinfo(0);
@@ -2119,7 +2124,7 @@ turbo_n_1,114,190,0	duplicate(Flasher#tt_main)	Flasher_Exit_2#n1	45,1,1
 			mes "You've ranked Second";
 			mes "among the Top Five Players";
 			mes "who've won the most games!";
-			donpcevent "TBT_Guide#Broadcast::Onnew_top2";
+			donpcevent "Turbo Track Guide::OnNew_Top2";
 			if (tt_rank == 29999) {
 				if ($ttnames$[7] == "Breezy Havana") {
 					set $ttnames$[7],strcharinfo(0);
@@ -2143,7 +2148,7 @@ turbo_n_1,114,190,0	duplicate(Flasher#tt_main)	Flasher_Exit_2#n1	45,1,1
 			mes "You've ranked Third";
 			mes "among the Top Five Players";
 			mes "who've won the most games!";
-			donpcevent "TBT_Guide#Broadcast::Onnew_top3";
+			donpcevent "Turbo Track Guide::OnNew_Top3";
 			if (tt_rank == 29999) {
 				if ($ttnames$[7] == "Breezy Havana") {
 					set $ttnames$[7],strcharinfo(0);
@@ -2167,7 +2172,7 @@ turbo_n_1,114,190,0	duplicate(Flasher#tt_main)	Flasher_Exit_2#n1	45,1,1
 			mes "You've ranked Fourth";
 			mes "among the Top Five Players";
 			mes "who've won the most games!";
-			donpcevent "TBT_Guide#Broadcast::Onnew_top4";
+			donpcevent "Turbo Track Guide::OnNew_Top4";
 			if (tt_rank == 29999) {
 				if ($ttnames$[7] == "Breezy Havana") {
 					set $ttnames$[7],strcharinfo(0);
@@ -2191,7 +2196,7 @@ turbo_n_1,114,190,0	duplicate(Flasher#tt_main)	Flasher_Exit_2#n1	45,1,1
 			mes "You've ranked Fifth";
 			mes "among the Top Five Players";
 			mes "who've won the most games!";
-			donpcevent "TBT_Guide#Broadcast::Onnew_top5";
+			donpcevent "Turbo Track Guide::OnNew_Top5";
 			if (tt_rank == 29999) {
 				if ($ttnames$[7] == "Breezy Havana") {
 					set $ttnames$[7],strcharinfo(0);
@@ -2477,8 +2482,8 @@ OnTimer60000:
 		disablenpc "Flasher_Exit_2#"+.@w$;
 		enablenpc "No_Unfair_Start#"+.@w$+"-1";
 		enablenpc "No_Unfair_Start#"+.@w$+"-2";
-		donpcevent "snake#"+.@w$+"::Onreset";
-		donpcevent "hunting#"+.@w$+"::Onreset";
+		donpcevent "snake#"+.@w$+"::OnReset";
+		donpcevent "hunting#"+.@w$+"::OnReset";
 		donpcevent RName(.@w$)+"::OnEnable";
 		disablenpc "bing2#"+.@w$;
 		enablenpc "#cos_"+.@w$+"_end";
@@ -2513,8 +2518,8 @@ OnTimer71000:
 		enablenpc "Flasher_Exit_2#"+.@w$;
 		enablenpc "No_Unfair_Start#"+.@w$+"-1";
 		enablenpc "No_Unfair_Start#"+.@w$+"-2";
-		donpcevent "snake#"+.@w$+"::Onreset";
-		donpcevent "hunting#"+.@w$+"::Onreset";
+		donpcevent "snake#"+.@w$+"::OnReset";
+		donpcevent "hunting#"+.@w$+"::OnReset";
 		donpcevent RName(.@w$)+"::OnEnable";
 		disablenpc "bing2#"+.@w$;
 		stopnpctimer;
@@ -2742,8 +2747,8 @@ OnTimer60000:
 	disablenpc "Flasher_Exit_2#"+.@w$;
 	enablenpc "No_Unfair_Start#"+.@w$+"-1";
 	enablenpc "No_Unfair_Start#"+.@w$+"-2";
-	donpcevent "snake#"+.@w$+"::Onreset";
-	donpcevent "hunting#"+.@w$+"::Onreset";
+	donpcevent "snake#"+.@w$+"::OnReset";
+	donpcevent "hunting#"+.@w$+"::OnReset";
 	donpcevent "Solo Mode#"+.@w$+"::OnEnable";
 	stopnpctimer;
 	end;
@@ -2758,7 +2763,7 @@ OnInit:
 OnTouch:
 	set .@w$,callfunc("F_tt");
 	mapannounce strnpcinfo(4),strcharinfo(0) +" is now entering the Small Cave! " + strcharinfo(0) +" is now in the lead!",bc_map,"0xFFFF00";
-	donpcevent "TBT_Guide#Broadcast::Onend_"+.@w$;
+	donpcevent "Turbo Track Guide::OnEnd_"+.@w$;
 	disablenpc "Notice_Maker1#TBT_"+.@w$;
 	end;
 	
@@ -2819,12 +2824,12 @@ turbo_n_1,226,15,0	duplicate(NMaker4#tt_main)	Notice_Maker4#TBT_n1	-1,3,3
 -	script	warp#tt_main	-1,{
 OnTouch:
 	switch (rand(1,20)) {
-		Case 1: warp strnpcinfo(4),216,378; break;
-		Case 2: warp strnpcinfo(4),218,360; break;
-		Case 3: warp strnpcinfo(4),223,361; break;
-		Case 4: warp strnpcinfo(4),243,342; break;
-		Case 5: warp strnpcinfo(4),247,364; break;
-		Default: break;
+		case 1: warp strnpcinfo(4),216,378; break;
+		case 2: warp strnpcinfo(4),218,360; break;
+		case 3: warp strnpcinfo(4),223,361; break;
+		case 4: warp strnpcinfo(4),243,342; break;
+		case 5: warp strnpcinfo(4),247,364; break;
+		default: break;
 	}
 	end;
 }
@@ -3611,13 +3616,13 @@ turbo_n_16,217,214,0	duplicate(bing_1#tt_main)	bing#n16	45,3,3
 	end;
 OnTouch:
 	switch (rand(1,10)) {
-		Case 1: warp strnpcinfo(4),217,232; break;
-		Case 2: warp strnpcinfo(4),233,207; break;
-		Case 3: warp strnpcinfo(4),208,219; break;
-		Case 4: warp strnpcinfo(4),219,202; break;
-		Case 5: warp strnpcinfo(4),218,228; break;
-		Case 6: warp strnpcinfo(4),220,195; break;
-		Default: break;
+		case 1: warp strnpcinfo(4),217,232; break;
+		case 2: warp strnpcinfo(4),233,207; break;
+		case 3: warp strnpcinfo(4),208,219; break;
+		case 4: warp strnpcinfo(4),219,202; break;
+		case 5: warp strnpcinfo(4),218,228; break;
+		case 6: warp strnpcinfo(4),220,195; break;
+		default: break;
 	}
 	end;
 	
@@ -3652,7 +3657,8 @@ turbo_room,130,92,3	script	Kafra Staff#tt	115,{
 
 turbo_room,124,86,0	shop	Turbo Track Merchant	90,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,1065:-1,1750:-1
 
-turbo_room,99,120,4	script	TBT_Guide#Broadcast	124,{
+// Official name: "TBT_Guide#Broadcast"
+turbo_room,99,120,4	script	Turbo Track Guide	124,{
 	mes "[Turbo Track Guide]";
 	mes "Good day~";
 	mes "Is there anything that";
@@ -3712,7 +3718,7 @@ turbo_room,99,120,4	script	TBT_Guide#Broadcast	124,{
 			mes "class or level requirements";
 			mes "to participate in the Turbo";
 			mes "Track. However, there is a";
-			mes "participation fee of 1,000 zeny. ^FFFFFFcobo^000000";
+			mes "participation fee of 1,000 zeny.";
 			next;
 			break;
 		case 2:
@@ -3727,7 +3733,7 @@ turbo_room,99,120,4	script	TBT_Guide#Broadcast	124,{
 			mes "The availability of specific";
 			mes "courses is determined by the";
 			mes "game mode. Would you like to";
-			mes "learn more about a certain course? ^FFFFFFcobo^000000";
+			mes "learn more about a certain course?";
 			next;
 			set .@exitloop,1;
 			while (.@exitloop) {
@@ -3894,75 +3900,75 @@ OnInit:
 	}
 	end;
 
-Onend_n1:
+OnEnd_n1:
 	mapannounce "turbo_room","A [Normal Mode - Solo] game will end shortly.",bc_map,"0xadff2f";
 	end;
 
-Onend_n4:
+OnEnd_n4:
 	mapannounce "turbo_room","A [Normal Mode - 4 Person] game will end shortly.",bc_map,"0xadff2f";
 	end;
 
-Onend_n8:
+OnEnd_n8:
 	mapannounce "turbo_room","A [Normal Mode - 8 Person] game will end shortly.",bc_map,"0xadff2f";
 	end;
 
-Onend_n16:
+OnEnd_n16:
 	mapannounce "turbo_room","A [Normal Mode - 16 Person] game will end shortly.",bc_map,"0xadff2f";
 	end;
 
-Onend_e4:
+OnEnd_e4:
 	mapannounce "turbo_room","A [Expert Mode - 4 Person] game will end shortly.",bc_map,"0xadff2f";
 	end;
 
-Onend_e8:
+OnEnd_e8:
 	mapannounce "turbo_room","A [Expert Mode - 8 Person] game will end shortly.",bc_map,"0xadff2f";
 	end;
 
-Onend_e16:
+OnEnd_e16:
 	mapannounce "turbo_room","A [Expert Mode - 16 Person] game will end shortly.",bc_map,"0xadff2f";
 	end;
 
-Onnew_top1:
+OnNew_Top1:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[9] + " has ranked Number One in the Turbo Track Hall of Honor!",bc_map,"0x00ff00";
 	end;
 
-Onnew_top2:
+OnNew_Top2:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[10] + " has ranked Second in the Turbo Track Hall of Honor!",bc_map,"0x00ff00";
 	end;
 
-Onnew_top3:
+OnNew_Top3:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[11] + " has ranked Third in the Turbo Track Hall of Honor!",bc_map,"0x00ff00";
 	end;
 
-Onnew_top4:
+OnNew_Top4:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[12] + " has ranked Fourth in the Turbo Track Hall of Honor!",bc_map,"0x00ff00";
 	end;
 
-Onnew_top5:
+OnNew_Top5:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[13] + " has ranked Fifth in the Turbo Track Hall of Honor!",bc_map,"0x00ff00";
 	end;
 
-Onwin_n4:
+OnWin_n4:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[1] + " just won a [Normal Mode - 4 Person] game!",bc_map,"0x70DBDB";
 	end;
 
-Onwin_n8:
+OnWin_n8:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[2] + " just won a [Normal Mode - 8 Person] game!",bc_map,"0x70DBDB";
 	end;
 
-Onwin_n16:
+OnWin_n16:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[3] + " just won a [Normal Mode - 16 Person] game!",bc_map,"0x70DBDB";
 	end;
 
-Onwin_e4:
+OnWin_e4:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[4] + " just won an [Expert Mode - 4 Person] game!",bc_map,"0x70DBDB";
 	end;
 
-Onwin_e8:
+OnWin_e8:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[5] + " just won an [Expert Mode - 8 Person] game!",bc_map,"0x70DBDB";
 	end;
 
-Onwin_e16:
+OnWin_e16:
 	mapannounce "turbo_room","Congratulations! " + $ttnames$[6] + " just won an [Expert Mode - 16 Person] game!",bc_map,"0x70DBDB";
 	end;
 }
@@ -4201,7 +4207,7 @@ turbo_room,93,117,5	script	Point Exchange Helper	125,{
 					mes "I'm sorry, but your";
 					mes "request has exceeded the";
 					mes "maximum limit. You can only";
-					mes "request up to 50 scrolls at once. ^FFFFFFcobo^000000";
+					mes "request up to 50 scrolls at once.";
 					close;
 				}
 				else {
@@ -4248,14 +4254,10 @@ turbo_room,93,117,5	script	Point Exchange Helper	125,{
 	
 					}
 					set tt_point,tt_point-40;
-					if (BaseLevel < 70)
-						getexp 300,0;
-					else if (BaseLevel < 80)
-						getexp 900,0;
-					else if (BaseLevel < 90)
-						getexp 1000,0;
-					else if (BaseLevel < 151)
-						getexp 3000,0;
+					if (BaseLevel < 70) getexp 3000,0;
+					else if (BaseLevel < 80) getexp 9000,0;
+					else if (BaseLevel < 90) getexp 10000,0;
+					else if (BaseLevel < 100) getexp 30000,0;
 					mes "[Item Exchange Helper]";
 					mes "Thank you, your";
 					mes "Turbo Track Points";
@@ -4598,27 +4600,70 @@ OnTouch:
 		mes "things using the Kafra Service.^000000";
 		close;
 	}
-	set .@now_weight,MaxWeight-Weight;
 	if ((BaseJob == Job_Knight || BaseJob == Job_Crusader) && checkriding()) {
-		if (.@now_weight < 20000) {
+		if (MaxWeight-Weight < 20000) {
+			if (!(eaclass()&EAJL_THIRD)) {
+				set .@mount$,(BaseJob == Job_Knight)?"Peco Peco":"Grand Peco";
+				mes "[Helper]";
+				mes .@mount$+"s are prohibited";
+				mes "in the Turbo Track Arena.";
+				mes "Please dismount from your";
+				mes .@mount$+" and you will receive";
+				mes "a Free Ticket for Peco Ride";
+				mes "for retrieving your "+.@mount$+".";
+			} else {
+				set .@mount$,(BaseJob == Job_Knight)?"Dragon":"Gryphon";
+				mes "[Helper]";
+				mes .@mount$+"s are prohibited";
+				mes "in the Turbo Track Arena.";
+				mes "Please dismount from your";
+				mes .@mount$+". You can retrieve";
+				mes "it for free outside.";
+			}
+			close2;
+			warp "alde_gld",183,199;
+			end;
+		} else {
+			if (!(eaclass()&EAJL_THIRD)) {
+				setriding 0;
+				getitem 7310,1; //Free_Peco_Ticket
+			} else {
+				if (BaseJob == Job_Knight)
+					setdragon 0;
+				else
+					setriding 0;
+			}
+			warp "turbo_room",100,65;
+		}
+	} else if ((Class == Job_Ranger || Class == Job_Ranger_T || Class == Job_Baby_Ranger) && checkoption(Option_Wugrider)) {
+		if (MaxWeight-Weight < 20000) {
 			mes "[Helper]";
-			mes "Peco Pecos are prohibited";
+			mes "Wargs are prohibited";
 			mes "in the Turbo Track Arena.";
-			mes "Please dismount from your";
-			mes "Peco Peco and you will receive";
-			mes "a Free Ticket for Peco Ride";
-			mes "for retrieving your Peco Peco.";
+			mes "Please dismount from your Warg.";
 			close2;
 			warp "alde_gld",183,199;
 			end;
+		} else {
+			setoption Option_Wugrider,0;
+			warp "turbo_room",100,65;
 		}
-		else {
-			setriding 0;
-			getitem 7310,1; //Free_Peco_Ticket
+	} else if ((Class == Job_Mechanic || Class == Job_Mechanic_T || Class == Job_Baby_Mechanic) && checkmadogear()) {
+		if (MaxWeight-Weight < 20000) {
+			mes "[Helper]";
+			mes "Magic Gears are prohibited";
+			mes "in the Turbo Track Arena.";
+			mes "Please dismount from your";
+			mes "Magic Gear. You can retrieve";
+			mes "it for free outside.";
+			close2;
+			warp "alde_gld",183,199;
+			end;
+		} else {
+			setmadogear 0;
 			warp "turbo_room",100,65;
 		}
-	}
-	else
+	} else
 		warp "turbo_room",100,65;
 	end;
 }
@@ -4630,7 +4675,11 @@ alde_gld,186,199,3	script	Turbo Track Guide#Entran	845,{
 	mes "Turbo Track~";
 	next;
 	mes "[Guide]";
-	mes "Peco Pecos are prohibited inside the Turbo Track Arena. But anyone riding on a Peco Peco will receive a Free Peco Peco Mount Ticket at the Turbo Track Entrance and automatically dismount.";
+	if (checkre(0))
+		mes "Peco Pecos, Grand Pecos, Dragons, Gryphons, Wargs and Magic Gears are prohibited inside the Turbo Track Arena.";
+	else
+		mes "Peco Pecos are prohibited inside the Turbo Track Arena.";
+	mes "But anyone riding on a Peco Peco will receive a Free Peco Peco Mount Ticket at the Turbo Track Entrance and automatically dismount.";
 	next;
 	mes "[Guide]";
 	mes "Well then,";
@@ -4639,70 +4688,115 @@ alde_gld,186,199,3	script	Turbo Track Guide#Entran	845,{
 	close;
 }
 
-alde_gld,181,199,5	script	Peco Peco Manager	845,{
-	mes "[Peco Peco Manager]";
+-	script	::MountManager_turbo	-1,{
+	set .@n$, "["+strnpcinfo(1)+"]";
+	mes .@n$;
+	if (ismounting()) {
+		mes "Please get off of that creature you're riding on.";
+		mes "Then talk to me again.";
+		close;
+	}
 	if (BaseJob == Job_Knight || BaseJob == Job_Crusader) {
-		mes "Welcome, would you like";
-		mes "to retrieve your Peco Peco?";
+		if (!(eaclass()&EAJL_THIRD)) {
+			if (BaseJob == Job_Knight) {
+				set .@zeny,2500;
+				set .@zeny$,"2,500";
+				set .@mount$,"Peco Peco";
+			} else {
+				set .@zeny,3500;
+				set .@zeny$,"3,500";
+				set .@mount$,"Grand Peco";
+			}
+			set .@skill,63;
+			set .@skill$,"Peco Peco Ride";
+			set .@riding, checkriding();
+			set .@i,1;
+		} else {
+			if (BaseJob == Job_Knight) {
+				set .@mount$,"Dragon";
+				set .@skill,63;
+				set .@skill$,"Dragon Training";
+				set .@riding, checkdragon();
+				set .@i,2;
+			} else {
+				set .@mount$,"Gryphon";
+				set .@skill,63;
+				set .@skill$,"Peco Peco Ride";
+				set .@riding, checkriding();
+				set .@i,1;
+			}
+		}
+	} else if (Class == Job_Mechanic || Class == Job_Mechanic_T || Class == Job_Baby_Mechanic) {
+		set .@mount$,"Magic Gear";
+		set .@skill,2255;
+		set .@skill$,"Magic Gear License";
+		set .@riding, checkmadogear();
+		set .@i,3;
+	} else {
+		mes "Thank you for";
+		mes "visiting Al De Baran's";
+		mes "Turbo Track~";
+		close;
+	}
+	mes "Welcome, would you like";
+	mes "to retrieve your "+.@mount$+"?";
+	if (.@zeny) {
 		mes "Please show me your Free";
 		mes "Ticket for Peco Ride. You";
 		mes "may also pay a rental fee";
-		mes "of 2,500 zeny.";
-		next;
-		switch(select("Use:Cancel")) {
-		case 1:
-			if (getskilllv(63) == 0) {
-				mes "[Peco Peco Manager]";
-				mes "I'm sorry, but you're";
-				mes "not eligible for this";
-				mes "service. Please go learn";
-				mes "the Peco Peco Ride skill first.";
+		mes "of "+.@zeny$+" zeny.";
+	}
+	next;
+	switch(select("Yes:Cancel")) {
+	case 1:
+		if (getskilllv(.@skill) == 0) {
+			mes .@n$;
+			mes "I'm sorry, but you're";
+			mes "not eligible for this";
+			mes "service. Please go learn";
+			mes "the "+.@skill$+" skill first.";
+			close;
+		} else {
+			if (.@riding) {
+				mes .@n$;
+				mes "You're already";
+				mes "mounted on a";
+				mes .@mount$+".";
+				mes "Thank you~";
 				close;
-			}
-			else {
-				if (checkriding()) {
-					mes "[Peco Peco Manager]";
-					mes "You're already";
-					mes "mounted on a";
-					mes "Peco Peco.";
-					mes "Thank you~";
-					close;
-				}
-				else {
-					if (countitem(7310) < 1 && Zeny < 2500) {
-						mes "[Peco Peco Manager]";
+			} else {
+				if (.@zeny) {
+					if (countitem(7310) < 1 && Zeny < .@zeny) {
+						mes .@n$;
 						mes "I'm sorry, but you";
 						mes "don't have a Free Ticket";
-						mes "for Peco Ride or 2,500 zeny.";
+						mes "for Peco Ride or "+.@zeny$+" zeny.";
 						mes "to use the Peco rental service.";
 						close;
-					}
-					else {
+					} else {
 						if (countitem(7310) > 0)
 							delitem 7310,1; //Free_Peco_Ticket
 						else
-							set zeny,zeny-2500;
-						setriding;
-						mes "[Peco Peco Manager]";
-						mes "Thank you for";
-						mes "your patronage~";
-						close;
+							set Zeny, Zeny-.@zeny;
 					}
 				}
+				switch(.@i) {
+					case 1: setriding; break;
+					case 2: setdragon; break;
+					case 3: setmadogear; break;
+				}
+				mes .@n$;
+				mes "Thank you for";
+				mes "your patronage~";
+				close;
 			}
-		case 2:
-			mes "[Peco Peco Manager]";
-			mes "Are you going";
-			mes "back to race in";
-			mes "the Turbo Track?";
-			mes "Good luck!";
-			close;
 		}
-	}
-	else {
-		mes "Thank you for";
-		mes "visiting Al De Baran's";
-		mes "Turbo Track~";
+	case 2:
+		mes .@n$;
+		mes "Are you going";
+		mes "back to race in";
+		mes "the Turbo Track?";
+		mes "Good luck!";
 		close;
 	}
 }