summaryrefslogtreecommitdiff
path: root/npc/other/turbo_track.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/other/turbo_track.txt')
-rw-r--r--npc/other/turbo_track.txt392
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;
}
}
generated by cgit v1.2.3-60-g2f50 (git 2.42.0) at 2024-07-01 00:29:45 +0000