1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
// The ferry system
017-9,27,28,0|script|#FerryConfig|32767
{
end;
OnInit:
disablenpc "Hurnscald South Koga";
disablenpc "Candor Koga";
disablenpc "Nivalis Koga";
disablenpc "Hurnscald North Koga";
disablenpc "Tulimshar Koga";
set $@MainCurrentDock, 0;
set $@CandorCurrentDock, 0;
set $@DockTickCount, 0;
set $@DockLeaveCount, 1;
setarray $@MainDocks$, "Hurnscald North", "Nivalis", "Tulimshar";
setarray $@CandorDocks$, "Candor", "Hurnscald South";
donpcevent "#"+$@MainDocks$[$@MainCurrentDock]+"Dock::OnCommandArrive";
donpcevent "#"+$@CandorDocks$[$@CandorCurrentDock]+"Dock::OnCommandArrive";
if (debug >= 2) end;
initnpctimer;
end;
L_NextDock:
set $@MainLastDock, $@MainCurrentDock;
set $@CandorLastDock, $@CandorCurrentDock;
set $@MainCurrentDock, $@MainCurrentDock + 1;
set $@CandorCurrentDock, $@CandorCurrentDock + 1;
if($@MainCurrentDock == getarraysize($@MainDocks$))
set $@MainCurrentDock, 0;
if($@CandorCurrentDock == getarraysize($@CandorDocks$))
set $@CandorCurrentDock, 0;
set $@DockTickCount, 0;
donpcevent "#"+$@MainDocks$[$@MainLastDock]+"Dock::OnCommandWarp";
donpcevent "#"+$@MainDocks$[$@MainCurrentDock]+"Dock::OnCommandArrive";
donpcevent "#"+$@CandorDocks$[$@CandorLastDock]+"Dock::OnCommandWarp";
donpcevent "#"+$@CandorDocks$[$@CandorCurrentDock]+"Dock::OnCommandArrive";
donpcevent "#k1sound::OnCommandDing";
donpcevent "#k2sound::OnCommandDing";
initnpctimer;
if($@MainCurrentDock == 2) goto L_k1city1;
if($@MainCurrentDock == 0) goto L_k1city2;
if($@MainCurrentDock == 1) goto L_k1city3;
end;
OnTimer8000:
if ($@DockTickCount > $@DockLeaveCount)
goto L_NextDock;
set $@DockTickCount, $@DockTickCount + 1;
initnpctimer;
end;
L_k1city1:
enablenpc "#k1city1e"; disablenpc "#k1city2e"; disablenpc "#k1city3e";
disablenpc "#k1city1d"; enablenpc "#k1city2d"; enablenpc "#k1city3d";
if($@CandorCurrentDock == 1) goto L_k2city1;
if($@CandorCurrentDock == 0) goto L_k2city2;
end;
L_k1city2:
disablenpc "#k1city1e"; enablenpc "#k1city2e"; disablenpc "#k1city3e";
enablenpc "#k1city1d"; disablenpc "#k1city2d"; enablenpc "#k1city3d";
if($@CandorCurrentDock == 1) goto L_k2city1;
if($@CandorCurrentDock == 0) goto L_k2city2;
end;
L_k1city3:
disablenpc "#k1city1e"; disablenpc "#k1city2e"; enablenpc "#k1city3e";
enablenpc "#k1city1d"; enablenpc "#k1city2d"; disablenpc "#k1city3d";
if($@CandorCurrentDock == 1) goto L_k2city1;
if($@CandorCurrentDock == 0) goto L_k2city2;
end;
L_k2city1:
enablenpc "#k2city1e"; disablenpc "#k2city2e";
disablenpc "#k2city1d"; enablenpc "#k2city2d";
end;
L_k2city2:
disablenpc "#k2city1e"; enablenpc "#k2city2e";
enablenpc "#k2city1d"; disablenpc "#k2city2d";
end;
}
function|script|FerryHelp
{
mes "\"You wait on the dock for the ship to come in. You'll be given a chance to board the boat when it comes into port.\"";
mes "\"It lingers in port to allow you some time to board in case you are running behind.\"";
mes "\"Once on the ship, it will sail to different ports and annouce where it is docking.\"";
mes "\"There are 2 Ferrys, both ferrys are free to ride.\"";
mes "\"The Main ferry travels from Argeas, Kaizei and Tonori. It docks in the major ports Hurnscald North, Nivalis and the Tulimshar Dock.\"";
mes "\"The Candor Ferry only travels betwen Candor and the Hurnscald South Dock.\"";
mes "\"Refreshments and supplies are offered aboard both ships during the voyage.\"";
mes "\"We also have some slot machines in case you get bored.\"";
return;
}
function|script|FerryManifest
{
mes "Which Ferry do you want to check the schedule for?";
menu
"World Ferry.", L_WorldFerry,
"Candor Ferry.", L_CandorFerry;
L_CandorFerry:
mes "The ferry is currently at "+$@CandorDocks$[$@CandorCurrentDock];
set @NextDock, ($@CandorCurrentDock + 1);
if(@NextDock == getarraysize($@CandorDocks$))
set @NextDock, 0;
mes "The ferry will be arriving at "+$@CandorDocks$[@NextDock]+" next";
goto L_Close;
L_WorldFerry:
mes "The ferry is currently at "+$@MainDocks$[$@MainCurrentDock];
set @NextDock, ($@MainCurrentDock + 1);
if(@NextDock == getarraysize($@MainDocks$))
set @NextDock, 0;
mes "The ferry will be arriving at "+$@MainDocks$[@NextDock]+" next";
goto L_Close;
L_Close:
close;
}
function|script|BoardFerry
{
mes "Board the ferry?";
menu
"Yes.", L_Board,
"No.", L_Return;
L_Board:
warp "035-2",39,29;
goto L_Return;
L_Return:
return;
}
function|script|BoardCandorFerry
{
mes "Board the ferry?";
menu
"Yes.", L_Board,
"No.", L_Return;
L_Board:
warp "036-2",39,29;
goto L_Return;
L_Return:
return;
}
|
