From e3afdc2af4c5e50c79237ee092e25f39b7428e47 Mon Sep 17 00:00:00 2001 From: Michieru Date: Thu, 24 Oct 2013 12:10:43 +0200 Subject: Update to last rAthena npc. Fix some typos change sc_bleeding to -> sc_blooding Updated RE EXP for quests_brasilis.txt --- npc/other/turbo_track.txt | 392 ++++++++++++++++++++++++++++------------------ 1 file changed, 243 insertions(+), 149 deletions(-) (limited to 'npc/other/turbo_track.txt') 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; } } -- cgit v1.2.3-60-g2f50