Context Navigation

arena_room.txt

Revision 1, 36.8 kB (checked in by jinshiro, 17 years ago)

Line
1	//===== eAthena Script ========================================
2	//= Izlude Arena Room
3	//===== By: ==================================================
4	//= SinSloth
5	//===== Current Version: =====================================
6	//= 1.1
7	//===== Compatible With: =====================================
8	//= Any Athena Version
9	//===== Description: =========================================
10	//= Izlude Battle Arena Main Room
11	//===== Additional Comments: =================================
12	//= 1.0 First version.
13	//= 1.1 Fixed a small reward typo (was giving potato.) [L0ne_W0lf]
14	//============================================================
15
16	arena_room,94,93,5 script Vendigos 97,{
17
18	mes "[Vendigos]";
19	mes "Welcome to the world of Arena, the battle against a time limit.";
20	mes "My name is Vendigos, I am here to help you.";
21	next;
22	mes "[Vendigos]";
23	mes "If you have any questions, feel free to ask me.";
24	L_Menu:
25	next;
26	switch( select( "How to challenge","About Arena Points","My Current Arena Points","Cancel" ) )
27	{
28	case 1:
29	mes "[Vendigos]";
30	mes "There are two different kinds of arena mode such as ^3131FFPlayer Mode^000000 and ^3131FFParty Mode^000000.";
31	next;
32	mes "[Vendigos]";
33	mes "^3131FFPlayer Mode^000000 consists of 4 different stages based on character level from 50~80.";
34	mes "For a party with 5 members, they can participate in ^3131FFParty Mode^000000.";
35	next;
36	mes "[Vendigos]";
37	mes "For ^3131FFeach Player Mode Stage^000000, characters who are 20 levels higher than the level requirement on each stage cannot enter. This is to prevent high level characters preoccupying a low level stage.";
38	next;
39	mes "[Vendigos]";
40	mes "There are the NPCs for Player Mode Stages from 12 o'clock direction to the reversed clock direction.";
41	mes "While you're waiting in a chat room, you will be automatically guided to an arena room by the waiting order.";
42	break;
43
44	case 2:
45	mes "[Vendigos]";
46	mes "Let me explain about the ^3131FFArena Point^000000.";
47	mes "It is a reward point for players who ^3131FFsuccessfully cleared a arena stage^000000, a player can possess the maximum 30,000 points.";
48	next;
49	mes "[Vendigos]";
50	mes "Even if you did not clear a stage due to time-over or other errors, you will be given a very small amount of arena points.";
51	next;
52	mes "[Vendigos]";
53	mes "Regarding the use of Arena Points,";
54	mes "we are providing various services such as souvenir photograph services through an NPC named Givu.";
55	break;
56
57	case 3:
58	mes "[Vendigos]";
59	mes "Let me check "+strcharinfo(0)+"'s current arena points.";
60	next;
61	mes "[Vendigos]";
62	mes ""+strcharinfo(0)+" has total ^3131FF"+arena_point+"^000000 points.";
63	next;
64	mes "[Vendigos]";
65	mes "If you wish to know how to use arena points, please refer to the 2nd menu ^3131FF'About Arena Points'^000000.";
66	break;
67
68	case 4:
69	mes "[Vendigos]";
70	mes "Okay, please have a good time.";
71	close;
72	}
73	next;
74	mes "[Vendigos]";
75	mes "Is there anything I can help you more?";
76	goto L_Menu;
77
78	Onlinerec_50:
79	mapannounce "arena_room",""+$arena_50topn$+" has renewed the top record in the Arena Time Force Battle level 50. Congratulations!",0;
80	end;
81
82	Onlinerec_60:
83	mapannounce "arena_room",""+$arena_60topn$+" has renewed the top record in the Arena Time Force Battle level 60. Congratulations!",0;
84	end;
85
86	Onlinerec_70:
87	mapannounce "arena_room",""+$arena_70topn$+" has renewed the top record in the Arena Time Force Battle level 70. Congratulations!",0;
88	end;
89	Onlinerec_80:
90	mapannounce "arena_room",""+$arena_80topn$+" has renewed the top record in the Arena Time Force Battle level 80. Congratulations!",0;
91	end;
92
93	Onlinerec_pt:
94	mapannounce "arena_room","Party "+$arena_pttopn$+" has renewed the top record in the Arena Time Force Battle. Congratulations!",0;
95	end;
96
97	//OnCommand: "linerec_vs"
98	// var vs_winner = GetGlobalStr "040611_arn_vstopn"
99	// broadcastinmap "Party "+vs_winner+" has renewed the top record in the Arena Time Force Battle. Congratulations!"
100	// end;
101
102	}
103
104	arena_room,105,82,5 script Arena Record Staff 57,{
105
106	mes "[Owen Kheuv]";
107	mes "Hello, my name is Own Kheuv";
108	mes "in charge of every arena stage record of players.";
109	next;
110	mes "[Owen Kheuv]";
111	mes "Would you like to check the top record players in each stage?";
112	mes "If so, please choose a menu below.";
113	next;
114	switch( select( "lvl 50 Stage","lvl 60 Stage","lvl 70 Stage","lvl 80 Stage","Party Stage" ) )
115	{
116	case 1:
117	mes "[Owen Kheuv]";
118	mes "Currently the top player of the arena lvl 50 stage is ^3131FF "+$arena_50topn$+"^000000, the top record is ^3131FF"+$top_50min+"^000000 minutes ^3131FF"+$top_50sec+"^000000 seconds.";
119	close;
120
121	case 2:
122	mes "[Owen Kheuv]";
123	mes "Currenly the top player of the arena lvl 60 stage is ^3131FF"+$arena_60topn$+"^000000, the top record is ^3131FF"+$top_60min+"^000000 minutes ^3131FF"+$top_60sec+"^000000 seconds.";
124	close;
125
126	case 3:
127	mes "[Owen Kheuv]";
128	mes "Currenly the top player of the arena lvl 70 stage is ^3131FF"+$arena_70topn$+"^000000, the top record is ^3131FF"+$top_70min+"^000000 minutes ^3131FF"+$top_70sec+"^000000 seconds.";
129	close;
130
131	case 4:
132	mes "[Owen Kheuv]";
133	mes "Currenly the top player of the arena lvl 80 stage is ^3131FF"+$arena_80topn$+"^000000, the top record is ^3131FF"+$top_80min+"^000000 minutes ^3131FF"+$top_80sec+"^000000 seconds.";
134	close;
135
136	case 5:
137	mes "[Owen Kheuv]";
138	mes "Currenly the top party is ^3131FF"+$arena_pttopn$+"^000000, the top record is ^3131FF"+$top_ptmin+"^000000 minutes ^3131FF"+$top_ptsec+"^000000 seconds.";
139	close;
140	}
141	}
142
143	arena_room,68,135,3 script Helper Pat 726,{
144
145	mes "[Pat]";
146	mes "Welcome, welcome.";
147	mes "I am a helper of the lvl 50 arena stage.";
148	next;
149	mes "[Pat]";
150	mes "This ^3131FFlvl 50 arena stage^000000";
151	mes "is accessable to characters from ^FF0000level 50^000000 to ^FF0000level 69^000000.";
152	next;
153	mes "[Pat]";
154	mes "This level limitation is to prevent high level characters abusing low level arena stages. I hope you will understand.";
155	mes "Also we accept an entrance fee, 1,000 zeny.";
156	next;
157	mes "[Pat]";
158	mes "Let me introduce you about the play rules of arena.";
159	next;
160	mes "[Pat]";
161	mes "^3131FFWait in a chat room for your turn coming.^000000";
162	mes "When it's your turn, you will be automatically warped to an arena map.";
163	next;
164	mes "[Pat]";
165	mes "As immediately as you enter, a timer to check your play time will be activated.";
166	mes "Please follow what ^3131FFHeel and Toe^000000 guides you. ";
167	next;
168	mes "[Pat]";
169	mes "You have a ^3131FF5 minutes^000000 battle time.";
170	next;
171	mes "[Pat]";
172	mes "After you clear every room including a boss room, you will be warped again to an ^3131FFending waiting room^000000.";
173	mes "You can only allow to stay in the waiting room for ^3131FF1 minute^000000, please hurry up to receive the arena points and leave.";
174	next;
175	mes "[Pat]";
176	mes "If you stay over 1 minute inside the ending waiting room, you will be forced outside and will not receive any arena points. Please remember that.";
177	next;
178	mes "[Pat]";
179	mes "I hope you will have a good time.";
180	close;
181	}
182
183	arena_room,41,93,5 script Helper Ben 750,{
184
185	mes "[Ben]";
186	mes "Welcome, welcome.";
187	mes "I am a helper of the lvl 60 arena stage.";
188	next;
189	mes "[Ben]";
190	mes "This ^3131FFlvl 60 arena stage^000000";
191	mes "is accessable to characters from ^FF0000level 60^000000 to ^FF0000level 79^000000.";
192	next;
193	mes "[Ben]";
194	mes "This level limitation is to prevent high level characters abusing low level arena stages. I hope you will understand.";
195	mes "Also we accept an entrance fee, 1,000 zeny.";
196	next;
197	mes "[Ben]";
198	mes "Let me introduce you about the play rules of arena.";
199	next;
200	mes "[Ben]";
201	mes "^3131FFWait in a chat room for your turn coming.^000000";
202	mes "When it's your turn, you will be automatically warped to an arena map.";
203	next;
204	mes "[Ben]";
205	mes "As immediately as you enter, a timer to check your play time will be activated.";
206	mes "Please follow what ^3131FFMinilover^000000 guides you. ";
207	next;
208	mes "[Ben]";
209	mes "You have a ^3131FF6 minutes^000000 battle time.";
210	next;
211	mes "[Ben]";
212	mes "After you clear every room including a boss room, you will be warped again to an ^3131FFending waiting room^000000.";
213	mes "You can only allow to stay in the waiting room for ^3131FF1 minute^000000, please hurry up to receive the arena points and leave.";
214	next;
215	mes "[Ben]";
216	mes "If you stay over 1 minute inside the ending waiting room, you will be forced outside and will not receive any arena points. Please remember that.";
217	next;
218	mes "[Ben]";
219	mes "I hope you will have a good time.";
220	close;
221	}
222
223	arena_room,53,49,5 script Helper Vicious 730,{
224
225	mes "[Vicious]";
226	mes "Hey there.";
227	mes "My name is Vicious, I am a helper of lvl 70 arena stage.";
228	mes "(...I have no clue how the hell I put myself into this crappy work...mumble mumble...grumble grumble..)";
229	next;
230	mes "[Vicious]";
231	mes "This ^3131FFlvl 70 arena stage^000000";
232	mes "is accessable to characters from ^FF0000level 70^000000 to ^FF0000level 89^000000.";
233	next;
234	mes "[Vicious]";
235	mes "This level limitation is to prevent high level characters abusing low level arena stages. I hope you will understand.";
236	mes "Also we accept an entrance fee, 1,000 zeny.";
237	next;
238	mes "[Vicious]";
239	mes "Let me introduce you about the play rules of arena.";
240	next;
241	mes "[Vicious]";
242	mes "^3131FFWait in a chat room for your turn coming.^000000";
243	mes "When it's your turn, you will be automatically warped to an arena map.";
244	next;
245	mes "[Vicious]";
246	mes "As immediately as you enter, a timer to check your play time will be activated.";
247	mes "Please follow what ^3131FFCadilac^000000 guides you. ";
248	next;
249	mes "[Vicious]";
250	mes "You have a ^3131FF7 minutes^000000 battle time.";
251	next;
252	mes "[Vicious]";
253	mes "After you clear every room including a boss room, you will be warped again to an ^3131FFending waiting room^000000.";
254	mes "You can only allow to stay in the waiting room for ^3131FF1 minute^000000, please hurry up to receive the arena points and leave.";
255	next;
256	mes "[Vicious]";
257	mes "If you stay over 1 minute inside the ending waiting room, you will be forced outside and will not receive any arena points. Remember that.";
258	next;
259	mes "[Vicious]";
260	mes "Okay, take care now.";
261	close;
262	}
263
264	arena_room,147,49,3 script Helper Epin 727,{
265
266	mes "[Epin]";
267	mes "Good day,";
268	mes "I am a helper of lvl 80 arena stage and my name is Epin.";
269	mes "I like reading and I am 19 years old...huh...? Don't you want to hear about me...?";
270	next;
271	emotion e_cry,0;
272	mes "[Epin]";
273	mes "Okay...";
274	next;
275	mes "[Epin]";
276	mes "This ^3131FFlvl 80 arena stage^000000";
277	mes "is accessable to characters from ^FF0000level 80^000000 to ^FF0000level 99^000000.";
278	next;
279	mes "[Epin]";
280	mes "This level limitation is to prevent high level characters abusing low level arena stages. I hope you will understand.";
281	mes "Also we accept an entrance fee, 1,000 zeny.";
282	next;
283	mes "[Epin]";
284	mes "Let me introduce you about the play rules of arena.";
285	next;
286	mes "[Epin]";
287	mes "^3131FFWait in a chat room for your turn coming.^000000";
288	mes "When it's your turn, you will be automatically warped to an arena map.";
289	next;
290	mes "[Epin]";
291	mes "As immediately as you enter, a timer to check your play time will be activated.";
292	mes "Please follow what ^3131FFActus^000000 guides you. ";
293	next;
294	mes "[Epin]";
295	mes "You have a ^3131FF8 minutes^000000 battle time.";
296	next;
297	mes "[Epin]";
298	mes "After you clear every room including a boss room, you will be warped again to an ^3131FFending waiting room^000000.";
299	mes "You can only allow to stay in the waiting room for ^3131FF1 minute^000000, please hurry up to receive the arena points and leave.";
300	next;
301	mes "[Epin]";
302	mes "If you stay over 1 minute inside the ending waiting room, you will be forced outside and will not receive any arena points. Please remember that.";
303	next;
304	mes "[Epin]";
305	mes "I hope you will have a good time.";
306	close;
307	}
308
309	arena_room,158,93,5 script Helper Lunic 828,{
310
311	mes "[Lunic]";
312	mes "Welcome to party arena stage.";
313	mes "I hope you will listen carefully to my introduction";
314	mes "since this party arena stage is a little bit different from player mode stages.";
315	next;
316	mes "[Lunic]";
317	mes "^3131FFParty Arena Stage^000000";
318	mes "is accessible to players from ^FF0000level 10^000000 to ^FF0000level 99^000000.";
319	next;
320	mes "[Lunic]";
321	mes "Also, arena will be not be started until all of 5 party members enter the room. We accept an entrance fee 1,000 zeny.";
322	next;
323	mes "[Lunic]";
324	mes "Let me introduce you about the play rules of arena.";
325	next;
326	mes "[Lunic]";
327	mes "^3131FFGroup a party with your friends and wait in a chat room^000000.";
328	mes "You must form a party beforehand. If you didn't do, you could still play but you would have a lot of inconvenience.";
329	next;
330	mes "[Lunic]";
331	mes "Also please remember 5 players automatically warped to the arena room will be in order of ^FF0000entering a chat room^000000 not in order of ^FF0000party^000000. Please remember that.";
332	next;
333	mes "[Lunic]";
334	mes "And please form a party with ^3131FF5 players^000000 before you enter a chat room.";
335	next;
336	mes "[Lunic]";
337	mes "When it becomes your turn, you will be warped into a small map where a warp and a help NPC are located.";
338	mes "In case you enter with members of a different party, use the warp to escape the map. Then you will return to the waiting room.";
339	next;
340	mes "[Lunic]";
341	mes "In case you enter with your party members, please proceed speaking with the help NPC in the small map.";
342	mes "The help NPC is only accessible to talk ^FF0000 1 player ^000000at a time.";
343	next;
344	mes "[Lunic]";
345	mes "The NPC will guide you and your party members to the actual arena room.";
346	mes "However, if anyone in the party ^3131FFdoes not have enough money to pay the entrance fee, he will be warped outside^000000.";
347	next;
348	mes "[Lunic]";
349	mes "Also be aware that you can only stay inside the map for ^FF0000 1 minute^000000.";
350	next;
351	mes "[Lunic]";
352	mes "As immediately as you enter the arena map, a timer which calculates your battle time will be activated.";
353	mes "Please follow what ^3131FFSlipslowrun^000000 guides you. ";
354	next;
355	mes "[Lunic]";
356	mes "You will have ^3131FF10 minutes^000000 to clear the stage however it is not that easy to do. And you're advised to use the time wisely.";
357	next;
358	mes "[Lunic]";
359	mes "After you clear every room including a boss room, you will be warped again to an ^3131FFending waiting room^000000.";
360	mes "You can only allow to stay in the waiting room for ^3131FF1 minute^000000, please hurry up to receive the arena points and leave.";
361	next;
362	mes "[Lunic]";
363	mes "If you stay over 1 minute inside the ending waiting room, you will be forced outside and will not receive any arena points. Please remember that.";
364	next;
365	mes "[Lunic]";
366	mes "Besides, if a party make a new record on time to clear the map,";
367	mes "^3131FFthe party master^000000 can record ^3131FFthe party name^000000.";
368	next;
369	mes "[Lunic]";
370	mes "In this case, if a party has more than one master or none, it is impossible to write ^FF0000the top party record^000000.";
371	mes "Therefore, it is strongly suggested to form one party before entering the arena map.";
372	next;
373	mes "[Lunic]";
374	mes "Thank you for listening and";
375	mes "I hope you will have a good time.";
376	close;
377	}
378
379	arena_room,158,82,1 script Helper Lonik 828,{
380
381	emotion e_no1,0;
382	mes "[Lonik]";
383	mes "Tah dah! Here I am!";
384	next;
385	mes "[Lonik]";
386	mes "You are curious if there is anyone inside or not, aren't you?";
387	next;
388	mes "[Lonik]";
389	mes "My answer is...";
390	mes ".............";
391	if(getmapusers("force_1-2"))
392	{
393	emotion e_oh,0;
394	mes "Yes!";
395	mes "There is someone inside.";
396	next;
397	mes "[Lonik]";
398	mes "You'd better wait a little bit longer!";
399	}
400	else
401	{
402	emotion e_x,0;
403	mes "No!";
404	mes "Go for it, good luck!";
405	}
406	close;
407	}
408
409	sec_in02,72,180,3 script Arena Manager#arena 802,{
410
411	input .@arena;
412	if(!.@arena)
413	{
414	mes "[Arena Manager]";
415	mes "Command has been canceled.";
416	close;
417	}
418	else if(.@arena == 1357)
419	{
420	mes "[Arena Manager]";
421	mes "Select an option.";
422	next;
423	switch( select( "Restart arena","Rearrange the Ranking Time" ) )
424	{
425	case 1:
426	switch( select( "lvl 50","lvl 60","lvl 70","lvl 80","Party Mode" ) )
427	{
428	case 1:
429	set .@arena,50;
430	break;
431	case 2:
432	set .@arena,60;
433	break;
434	case 3:
435	set .@arena,70;
436	break;
437	case 4:
438	set .@arena,80;
439	break;
440	case 5:
441	mes "[Arena Manager]";
442	mes "== Caution ==";
443	mes "You have chosen to restart party arena stage.";
444	mes "Do you wish to proceed?";
445	next;
446	switch( select( "Yes","No" ) )
447	{
448	case 1:
449	donpcevent "Ponox::Onstart";
450	mes "[Arena Manager]";
451	mes "The arena stage has been successfuly reactivated.";
452	close;
453
454	case 2:
455	mes "[Arena Manager]";
456	mes "Command has been canceled.";
457	close;
458	}
459	}
460	mes "[Arena Manager]";
461	mes "== Caution ==";
462	mes "You have chosen to restart lvl "+.@arena+" arena stage.";
463	mes "Do you wish to proceed?";
464	next;
465	switch( select( "Yes","No" ) )
466	{
467	case 1:
468	donpcevent "lvl "+.@arena+"s Waiting Room::Onstart";
469	mes "[Arena Manager]";
470	mes "The arena stage has been successfuly reactivated.";
471	close;
472
473	case 2:
474	mes "[Arena Manager]";
475	mes "Command has been canceled.";
476	close;
477	}
478
479	case 2:
480	mes "[Arena Manager]";
481	mes "== Caution ==";
482	mes "^CE0000You have chosen to rearrange the ranking time. Make sure this is not a good decision unless if something serious was happened!^000000";
483	next;
484	mes "[Arena Manager]";
485	mes "Are you sure you want to rearrange the ranking time?";
486	next;
487	switch( select( "No","Yes" ) )
488	{
489	case 1:
490	mes "[Arena Manager]";
491	mes "Phew~ :)";
492	close;
493
494	case 2:
495	switch( select( "lvl 50","lvl 60","lvl 70","lvl 80","Party Mode" ) )
496	{
497	case 1:
498	mes "[Arena Manager]";
499	mes "Please enter 0 to cancel.";
500	mes "If not, please write within 400 letters.";
501	next;
502	input .@arenamin;
503	set $top_50min,.@arenamin;
504	input .@arenasec;
505	set $top_50sec,.@arenasec;
506	mes "[Arena Manager]";
507	mes "Current lvl 50 ranker's play time has been rearranged to ^FF0000"+$top_50min+"^000000 minutes and ^FF0000"+$top_50sec+"^000000 seconds.";
508	close;
509	case 2:
510	mes "[Arena Manager]";
511	mes "Please enter 0 to cancel.";
512	mes "If not, please write within 400 letters.";
513	next;
514	input .@arenamin;
515	set $top_60min,.@arenamin;
516	input .@arenasec;
517	set $top_60sec,.@arenasec;
518	mes "[Arena Manager]";
519	mes "Current lvl 60 ranker's play time has been rearranged to ^FF0000"+$top_60min+"^000000 minutes and ^FF0000"+$top_60sec+"^000000 seconds.";
520	close;
521	case 3:
522	mes "[Arena Manager]";
523	mes "Please enter 0 to cancel.";
524	mes "If not, please write within 400 letters.";
525	next;
526	input .@arenamin;
527	set $top_70min,.@arenamin;
528	input .@arenasec;
529	set $top_70sec,.@arenasec;
530	mes "[Arena Manager]";
531	mes "Current lvl 70 ranker's play time has been rearranged to ^FF0000"+$top_70min+"^000000 minutes and ^FF0000"+$top_70sec+"^000000 seconds.";
532	close;
533	case 4:
534	mes "[Arena Manager]";
535	mes "Please enter 0 to cancel.";
536	mes "If not, please write within 400 letters.";
537	next;
538	input .@arenamin;
539	set $top_80min,.@arenamin;
540	input .@arenasec;
541	set $top_80sec,.@arenasec;
542	mes "[Arena Manager]";
543	mes "Current lvl 80 ranker's play time has been rearranged to ^FF0000"+$top_80min+"^000000 minutes and ^FF0000"+$top_80sec+"^000000 seconds.";
544	close;
545	case 5:
546	mes "[Arena Manager]";
547	mes "Please enter 0 to cancel.";
548	mes "If not, please write within 400 letters.";
549	next;
550	input .@arenamin;
551	set $top_ptmin,.@arenamin;
552	input .@arenasec;
553	set $top_ptsec,.@arenasec;
554	mes "[Arena Manager]";
555	mes "Current party ranker's play time has been rearranged to ^FF0000"+$top_ptmin+"^000000 minutes and ^FF0000"+$top_ptsec+"^000000 seconds.";
556	close;
557	}
558	}
559	}
560	}
561	mes "Password is incorrect.";
562	close;
563	}
564
565	sec_in02,79,171,3 script Reward Manager#arena 802,{
566
567	input .@arena;
568	if(!.@arena)
569	{
570	mes "[Reward Manager]";
571	mes "Command has been canceled.";
572	close;
573	}
574	else if(.@arena == 1357)
575	{
576	mes "[Reward Manager]";
577	mes "You have chosen to hide the teleporter NPC.";
578	next;
579	switch( select( "Cancel","Yes","Turn on" ) )
580	{
581	case 1:
582	mes "[Reward Manager]";
583	mes "You have canceled the command.";
584	close;
585
586	case 2:
587	mes "[Reward Manager]";
588	mes "NPC has been hidden";
589	disablenpc "Teleporter#arena";
590	close;
591
592	case 3:
593	mes "[Reward Manager]";
594	mes "NPC has been enabled.";
595	enablenpc "Teleporter#arena";
596	close;
597	}
598	}
599	mes "[Reward Manager]";
600	mes "Password is incorrect.";
601	close;
602	}
603
604	arena_room,105,93,5 script Teleporter#arena 55,{
605
606	mes "[Teleporter]";
607	mes "I can move you to the reward arena!";
608	mes "Would you like to go there?";
609	next;
610	switch( select( "Yes.","No." ) )
611	{
612	case 1:
613	mes "[Teleporter]";
614	mes "Let me guide you.";
615	close2;
616	warp "prt_are_in",60,14;
617	end;
618
619	case 2:
620	mes "[Teleporter]";
621	mes "No problem, feel free to come back any time.";
622	close;
623	}
624	}
625
626	prt_are_in,98,14,3 script Givu#arena 728,{
627
628
629	if(checkweight(526,5) != 1)
630	{
631	mes "- Wait a moment! -";
632	mes "- Currently you're carrying -";
633	mes "- too many items with you. -";
634	mes "- Please enlighten your weight -";
635	mes "- and try again. -";
636	close;
637	}
638	mes "[Givu]";
639	mes "Hello, there. Welcome to the world of Arena.";
640	mes "My name is Givu, I am in charge of arena point exchange program.";
641	next;
642	mes "[Givu]";
643	mes "You can exchange your arena points with various stuffs.";
644	mes "Please choose a menu below.";
645	next;
646	switch( select( "Exchange with Consumable items","Exchange with EXP points","Take a Souvenir Picture","Check Current Arena Points" ) )
647	{
648	case 1:
649	mes "[Givu]";
650	mes "What consumable item do you wish to exchange?";
651	next;
652	switch( select( "Honey","Royal Jelly","Mastela Fruit","Condensed White Potion","Anodyne","Yggdrasil Seed","Yggdrasilberry","Old Blue Box","Old Purple Box","Old Card Album" ) )
653	{
654	case 1: callfunc "Func_Are_Rew",518,5,20;
655	case 2: callfunc "Func_Are_Rew",526,5,30;
656	case 3: callfunc "Func_Are_Rew",522,5,30;
657	case 4: callfunc "Func_Are_Rew",547,8,30;
658	case 5: callfunc "Func_Are_Rew",605,3,20;
659	case 6: callfunc "Func_Are_Rew",608,1,20;
660	case 7: callfunc "Func_Are_Rew",607,1,40;
661	case 8: callfunc "Func_Are_Rew",603,1,100;
662	case 9: callfunc "Func_Are_Rew",617,1,300;
663	case 10: callfunc "Func_Are_Rew",616,1,1000;
664	}
665
666	case 2:
667	mes "[Givu]";
668	mes "Would you like to exchange your arena points with experience points?";
669	mes "It requires 40 arena points.";
670	next;
671	switch( select( "Cancel","Yes" ) )
672	{
673	case 1:
674	mes "[Givu]";
675	mes "You have canceled your request.";
676	close;
677
678	case 2:
679	if(arena_point < 40)
680	{
681	mes "[Givu]";
682	mes "You do not have enough arena points.";
683	mes "Please check the total amount of arena points you have.";
684	close;
685	}
686	set arena_point,arena_point -40;
687	if(BaseLevel < 70) getexp 3000,0;
688	else if(BaseLevel < 80) getexp 9000,0;
689	else if(BaseLevel < 90) getexp 10000,0;
690	else if(BaseLevel < 100) getexp 30000,0;
691	mes "[Givu]";
692	mes "You have gained experience points. Thank you.";
693	close;
694	}
695
696	case 3:
697	mes "[Givu]";
698	mes "You have chosen a souvenir picture services.";
699	next;
700	switch( select( "About souvenir Picture Services","Take a picture" ) )
701	{
702	case 1:
703	mes "[Givu]";
704	mes "Do you see stairs at the right side of me?";
705	next;
706	mes "[Givu]";
707	mes "At the stairs, you can take a screenshot with an NPC or a monster.";
708	next;
709	mes "[Givu]";
710	mes "When you choose an NPC or a monster, it will show some emotion icons ^FF0000for 1 minute^000000.";
711	next;
712	mes "[Givu]";
713	mes "Don't miss the chance to take a picture with your favorite NPC!";
714	close;
715
716	case 2:
717	if($arenapic)
718	{
719	mes "[Givu]";
720	mes "A souvenir picture services is on progress. Please wait.";
721	close;
722	}
723	mes "[Givu]";
724	mes "Please choose an NPC at below.";
725	mes "The NPC will appear for 1 minute and this service requires 10 arena points.";
726	next;
727	switch( select( "Baphomet","Dark Lord","Doppelganger","Eddga","Dracula","Samurai","Stormy Knight","Phreeoni","Girl","Valkyrie" ) )
728	{
729	case 1: set $@arenapic,1039; break;
730	case 2: set $@arenapic,1272; break;
731	case 3: set $@arenapic,1046; break;
732	case 4: set $@arenapic,1115; break;
733	case 5: set $@arenapic,1389; break;
734	case 6: set $@arenapic,1492; break;
735	case 7: set $@arenapic,1251; break;
736	case 8: set $@arenapic,1159; break;
737	case 9: set $@arenapic,6969; break;
738	case 10: set $@arenapic,7777; break;
739	}
740	if(arena_point < 10)
741	{
742	mes "[Givu]";
743	mes "You do not have enough arena points.";
744	mes "Please check the total amount of arena points you have.";
745	close;
746	}
747	mes "[Givu]";
748	if($@arenapic == 6969) mes "Would you like to take a picture with pretty girls?";
749	else if($@arenapic == 7777) mes "Would you like to take a picture with a Valkyrie?";
750	else mes "Would you like to take a picture with a "+getmonsterinfo($@arenapic,0)+"?";
751	next;
752	switch( select( "Yes","No" ) )
753	{
754	case 1:
755	set arena_point,arena_point -10;
756	set $arenapic,1;
757	enablenpc "#arena_"+$@arenapic+"";
758	movenpc "#arena_"+$@arenapic+"",96,28;
759	if($@arenapic == 6969)
760	{
761	enablenpc "#arena_ss_2";
762	enablenpc "#arena_ss_3";
763	enablenpc "#arena_ss_4";
764	}
765	donpcevent "npctime#arena::OnStart";
766	mes "[Givu]";
767	mes "Thank you.";
768	close;
769
770	case 2:
771	mes "[Givu]";
772	mes "Would you like to consider a little longer?";
773	close;
774	}
775	}
776
777	case 4:
778	mes "[Givu]";
779	mes "Let me check "+strcharinfo(0)+"'s current arena points.";
780	next;
781	mes "[Givu]";
782	mes ""+strcharinfo(0)+" has total ^3131FF"+arena_point+"^000000 points.";
783	close;
784	}
785
786	OnInit:
787	set $arenapic,0;
788	end;
789	}
790
791	prt_are_in,1,1,5 script #arena_1039 1039,{
792	end;
793
794	OnInit:
795	disablenpc "#arena_6969";
796	disablenpc "#arena_ss_2";
797	disablenpc "#arena_ss_3";
798	disablenpc "#arena_ss_4";
799	disablenpc "#arena_1272";
800	disablenpc "#arena_1046";
801	disablenpc "#arena_1115";
802	disablenpc "#arena_1389";
803	disablenpc "#arena_1492";
804	disablenpc "#arena_1251";
805	disablenpc "#arena_1159";
806	disablenpc "#arena_7777";
807	disablenpc "#arena_1039";
808	end;
809
810	OnHeart:
811	emotion e_lv,0;
812	end;
813	OnSci:
814	emotion e_scissors,0;
815	end;
816	OnBest:
817	emotion e_no1,0;
818	end;
819	OnOmg:
820	emotion e_omg,0;
821	end;
822	OnKik:
823	emotion e_gg,0;
824	end;
825	OnKis:
826	emotion e_kis,0;
827	end;
828	}
829
830	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_6969 714
831	prt_are_in,94,26,5 duplicate(#arena_1039) #arena_ss_2 714
832	prt_are_in,100,28,3 duplicate(#arena_1039) #arena_ss_3 714
833	prt_are_in,102,26,3 duplicate(#arena_1039) #arena_ss_4 714
834	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1272 1272
835	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1046 1046
836	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1115 1115
837	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1389 1389
838	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1492 1492
839	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1251 1251
840	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1159 1159
841	prt_are_in,1,1,5 duplicate(#arena_1039) #arena_7777 811
842
843	prt_are_in,130,30,3 script npctime#arena 139,{
844
845	OnStop:
846	stopnpctimer;
847	end;
848
849	OnStart:
850	initnpctimer;
851	end;
852
853	OnTimer2000:
854	mapannounce "prt_are_in","Givu : You should keep time with popping emotion icons~",1,0xFFCE00;
855	end;
856
857	OnTimer5000:
858	mapannounce "prt_are_in","Emoticon : /lv",1,0xFFCE00;
859	end;
860
861	OnTimer7000:
862	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
863	end;
864
865	OnTimer8000:
866	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
867	end;
868
869	OnTimer9000:
870	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
871	end;
872
873	OnTimer10000:
874	mapannounce "prt_are_in"," ",1,0xFFCE00;
875	donpcevent "#arena_"+$@arenapic+"::OnHeart";
876	if($@arenapic == 6969)
877	{
878	donpcevent "#arena_ss_2::OnHeart";
879	donpcevent "#arena_ss_3::OnHeart";
880	donpcevent "#arena_ss_4::OnHeart";
881	}
882	end;
883
884	OnTimer15000:
885	mapannounce "prt_are_in","Emoticon : /gawi",1,0xFFCE00;
886	end;
887
888	OnTimer17000:
889	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
890	end;
891
892	OnTimer18000:
893	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
894	end;
895
896	OnTimer19000:
897	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
898	end;
899
900	OnTimer20000:
901	mapannounce "prt_are_in"," ",1,0xFFCE00;
902	donpcevent "#arena_"+$@arenapic+"::OnSci";
903	if($@arenapic == 6969)
904	{
905	donpcevent "#arena_ss_2::OnSci";
906	donpcevent "#arena_ss_3::OnSci";
907	donpcevent "#arena_ss_4::OnSci";
908	}
909	end;
910
911	OnTimer25000:
912	mapannounce "prt_are_in","Emoticon : /no1",1,0xFFCE00;
913	end;
914
915	OnTimer27000:
916	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
917	end;
918
919	OnTimer28000:
920	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
921	end;
922
923	OnTimer29000:
924	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
925	end;
926
927	OnTimer30000:
928	mapannounce "prt_are_in"," ",1,0xFFCE00;
929	donpcevent "#arena_"+$@arenapic+"::OnBest";
930	if($@arenapic == 6969)
931	{
932	donpcevent "#arena_ss_2::OnBest";
933	donpcevent "#arena_ss_3::OnBest";
934	donpcevent "#arena_ss_4::OnBest";
935	}
936	end;
937
938	OnTimer35000:
939	mapannounce "prt_are_in","Emoticon : /huk",1,0xFFCE00;
940	end;
941
942	OnTimer37000:
943	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
944	end;
945
946	OnTimer38000:
947	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
948	end;
949
950	OnTimer39000:
951	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
952	end;
953
954	OnTimer40000:
955	mapannounce "prt_are_in"," ",1,0xFFCE00;
956	donpcevent "#arena_"+$@arenapic+"::OnOmg";
957	if($@arenapic == 6969)
958	{
959	donpcevent "#arena_ss_2::OnOmg";
960	donpcevent "#arena_ss_3::OnOmg";
961	donpcevent "#arena_ss_4::OnOmg";
962	}
963	end;
964
965	OnTimer45000:
966	mapannounce "prt_are_in","Emoticon : /gg",1,0xFFCE00;
967	end;
968
969	OnTimer47000:
970	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
971	end;
972
973	OnTimer48000:
974	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
975	end;
976
977	OnTimer49000:
978	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
979	end;
980
981	OnTimer50000:
982	mapannounce "prt_are_in"," ",1,0xFFCE00;
983	donpcevent "#arena_"+$@arenapic+"::OnKik";
984	if($@arenapic == 6969)
985	{
986	donpcevent "#arena_ss_2::OnKik";
987	donpcevent "#arena_ss_3::OnKik";
988	donpcevent "#arena_ss_4::OnKik";
989	}
990	end;
991
992	OnTimer55000:
993	mapannounce "prt_are_in","Emoticon : /kis",1,0xFFCE00;
994	end;
995
996	OnTimer57000:
997	mapannounce "prt_are_in"," 3 ",1,0xFFCE00;
998	end;
999
1000	OnTimer58000:
1001	mapannounce "prt_are_in"," 2 ",1,0xFFCE00;
1002	end;
1003
1004	OnTimer59000:
1005	mapannounce "prt_are_in"," 1 ",1,0xFFCE00;
1006	end;
1007
1008	OnTimer60000:
1009	mapannounce "prt_are_in"," ",1,0xFFCE00;
1010	donpcevent "#arena_"+$@arenapic+"::OnKis";
1011	if($@arenapic == 6969)
1012	{
1013	donpcevent "#arena_ss_2::OnKis";
1014	donpcevent "#arena_ss_3::OnKis";
1015	donpcevent "#arena_ss_4::OnKis";
1016	}
1017	end;
1018
1019	OnTimer62000:
1020	mapannounce "prt_are_in","Time is over. Thank you for using my services.",1,0xFFCE00;
1021	movenpc "#arena_"+$@arenapic+"",1,1;
1022	donpcevent "#arena_1039::OnInit";
1023	set $arenapic,0;
1024	stopnpctimer;
1025	end;
1026	}
1027
1028	sec_in02,72,171,3 script Picture Manager#arena 802,{
1029
1030	input .@arena;
1031	if(!.@arena)
1032	{
1033	mes "[Picture Manager]";
1034	mes "Command has been canceled.";
1035	close;
1036	}
1037	else if(.@arena == 1357)
1038	{
1039	mes "[Picture Manager]";
1040	mes "Would you like to reset Picture Reward variable to 0?";
1041	next;
1042	switch( select( "Cancel","Yes" ) )
1043	{
1044	case 1:
1045	mes "[Picture Manager]";
1046	mes "You have canceled your request.";
1047	close;
1048
1049	case 2:
1050	mes "[Picture Manager]";
1051	mes "Picture rewarding reseted.";
1052	set $arenapic,0;
1053	close;
1054	}
1055	}
1056	mes "[Picture Manager]";
1057	mes "Password is incorrect.";
1058	close;
1059	}
1060
1061	sec_in02,76,176,5 script Live Broadcast#arena 802,{
1062
1063	mes "[Live Broadcast]";
1064	mes "Currently there are "+getmapusers("force_1-1")+" people in lvl 50s map.";
1065	mes "Currently there are "+getmapusers("force_2-1")+" people in lvl 60s map.";
1066	mes "Currently there are "+getmapusers("force_3-1")+" people in lvl 70s map.";
1067	mes "Currently there are "+getmapusers("force_4-1")+" people in lvl 80s map.";
1068	mes "Currently there are "+getmapusers("force_1-2")+" people in party map.";
1069	mes "Currently there are "+getmapusers("arena_room")+" people in the waiting room.";
1070	close;
1071	}
1072
1073	function script Func_Are_Rew {
1074
1075	mes "[Givu]";
1076	mes "Would you like to exchange your arena points with "+getitemname(getarg(0))+"?";
1077	mes "You can exchange ^3131FF"+getarg(2)+" arena points with "+getarg(1)+" "+getitemname(getarg(0))+"^000000.";
1078	mes "If you wish to cancel, please enter 0. If you don't, please enter how many ^3131FFtimes^000000 of arena points you wish to spend.";
1079	next;
1080	input .@reward;
1081	if(!.@reward)
1082	{
1083	mes "[Givu]";
1084	mes "You have canceled your request.";
1085	close;
1086
1087	}
1088	else if(.@reward > 1500)
1089	{
1090	mes "[Givu]";
1091	mes "You have exceeded the maximum capacity.";
1092	close;
1093	}
1094	if(arena_point < .@reward * getarg(2))
1095	{
1096	mes "[Givu]";
1097	mes "You do not have enough arena points.";
1098	mes "Please check the total amount of arena points you have.";
1099	close;
1100	}
1101	set arena_point,arena_point - (.@reward * getarg(2));
1102	getitem getarg(0),.@reward * getarg(1);
1103	mes "[Givu]";
1104	mes "Thank you, please come again.";
1105	close;
1106	}
1107
1108	arena_room,63,126,0 script LevelCheck#50 139,5,5,{
1109
1110	OnTouch:
1111	if(BaseLevel < 50 \|\| BaseLevel > 69)
1112	{
1113	mes "[Helper Pat]";
1114	mes "I'm sorry but that place is";
1115	mes "only available to people from";
1116	mes "level ^FF000050^000000 to ^FF000069^000000. I'm afraid you";
1117	mes "have to leave immediately.";
1118	mes "Please proceed to your proper";
1119	mes "arenas. Have fun !";
1120	close2;
1121	warp "arena_room",100,75;
1122	}
1123	else if(Zeny < 1000)
1124	{
1125	mes "[Helper Pat]";
1126	mes "Oh! That's too bad!";
1127	mes "You have the required level";
1128	mes "to attempt this arena but";
1129	mes "it costs 1000 zeny to enter.";
1130	mes "Please come back when you'll";
1131	mes "have them!";
1132	close2;
1133	warp "arena_room",100,75;
1134	}
1135	end;
1136	}
1137
1138	arena_room,49,87,0 script LevelCheck#60 139,5,5,{
1139
1140	OnTouch:
1141	if(BaseLevel < 60 \|\| BaseLevel > 79)
1142	{
1143	mes "[Helper Ben]";
1144	mes "I'm sorry but that place is";
1145	mes "only available to people from";
1146	mes "level ^FF000060^000000 to ^FF000079^000000. I'm afraid you";
1147	mes "have to leave immediately.";
1148	mes "Please proceed to your proper";
1149	mes "arenas. Have fun !";
1150	close2;
1151	warp "arena_room",100,75;
1152	}
1153	else if(Zeny < 1000)
1154	{
1155	mes "[Helper Ben]";
1156	mes "Oh! That's too bad!";
1157	mes "You have the required level";
1158	mes "to attempt this arena but";
1159	mes "it costs 1000 zeny to enter.";
1160	mes "Please come back when you'll";
1161	mes "have them!";
1162	close2;
1163	warp "arena_room",100,75;
1164	}
1165	end;
1166	}
1167
1168	arena_room,63,53,0 script LevelCheck#70 139,5,5,{
1169
1170	OnTouch:
1171	if(BaseLevel < 70 \|\| BaseLevel > 89)
1172	{
1173	mes "[Helper Vicious]";
1174	mes "I'm sorry but that place is";
1175	mes "only available to people from";
1176	mes "level ^FF000070^000000 to ^FF000089^000000. I'm afraid you";
1177	mes "have to leave immediately.";
1178	mes "Please proceed to your proper";
1179	mes "arenas. Have fun !";
1180	close2;
1181	warp "arena_room",100,75;
1182	}
1183	else if(Zeny < 1000)
1184	{
1185	mes "[Helper Vicious]";
1186	mes "Oh! That's too bad!";
1187	mes "You have the required level";
1188	mes "to attempt this arena but";
1189	mes "it costs 1000 zeny to enter.";
1190	mes "Please come back when you'll";
1191	mes "have them!";
1192	close2;
1193	warp "arena_room",100,75;
1194	}
1195	end;
1196	}
1197
1198	arena_room,136,53,0 script LevelCheck#80 139,5,5,{
1199
1200	OnTouch:
1201	if(BaseLevel < 80)
1202	{
1203	mes "[Helper Epin]";
1204	mes "I'm sorry but that place is";
1205	mes "only available to people from";
1206	mes "level ^FF000080^000000 to ^FF000099^000000. I'm afraid you";
1207	mes "have to leave immediately.";
1208	mes "Please proceed to your proper";
1209	mes "arenas. Have fun !";
1210	close2;
1211	warp "arena_room",100,75;
1212	}
1213	else if(Zeny < 1000)
1214	{
1215	mes "[Helper Epin]";
1216	mes "Oh! That's too bad!";
1217	mes "You have the required level";
1218	mes "to attempt this arena but";
1219	mes "it costs 1000 zeny to enter.";
1220	mes "Please come back when you'll";
1221	mes "have them!";
1222	close2;
1223	warp "arena_room",100,75;
1224	}
1225	end;
1226
1227	}

Note: See TracBrowser for help on using the browser.

Context Navigation

root/npc/other/arena/arena_room.txt

Download in other formats: