summaryrefslogtreecommitdiff
path: root/npc/quests/newgears/2010_headgears.txt
blob: 34d1e8b2b01f9a2a5d9067d4368b03c3ec60ec9b (plain) (blame)
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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
1042
1043
1044
1045
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056
1057
1058
1059
1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
//===== Hercules Script ======================================
//= 2010 Headgear Quest
//===== By: ==================================================
//= Dastgir
//===== Current Version: =====================================
//= 1.0
//===== Description: =========================================
//= Quests For Headgears:
//=     Flower Of Fairy, NeckTie, Hair Brush
//=     Status Of Baby Angel, Frog Cap, Solo Play Box
//===== Additional Comments: =================================
//= 1.0 Converted from the official Aegis script. [Dastgir]
//============================================================

gonryun,149,189,0	script	Yotang#Flower_Of_Fairy	1_M_04,{
	mes "[Yotang]";
	mes "There lives a fairy on the 3rd floor of Gonryun.";
	mes "She is so famous for her beauty";
	mes "that she even got a fan club.";
	next;
	mes "[Yotang]";
	mes "Of course, I am the master of the fan club.";
	mes "How about joining the fairy fan club?";
	next;
	if (select("I'm not that interested!!:I'll join it right away!!") == 1) {
		mes "[Yotang]";
		mes "What! I'm going to tell on you!";
		close;
	}
	if ((countitem(Limpid_Celestial_Robe) > 99) && (countitem(Soft_Silk_Cloth) > 99) && countitem(Wedding_Bouquet) && countitem(Violet_Dyestuffs) && countitem(Bandana)) {
		mes "[Yotang]";
		mes "Oh, aren't those....!";
		mes "the materials for the Flower of Fairy?";
		mes "Have we met before? You already know everything...";
		next;
		mes "[Yotang]";
		mes "Anyway, do you want me to make the Flower of Fairy?";
		next;
		mes "[Yotang]";
		mes "^FF0000Please be aware that^000000";
		mes "^FF0000the refinement on the matereials will all disapper^000000";
		mes "^FF0000if you once combine those.^000000";
		next;
		if (select("No, next time.:Make it right now!!") == 1) {
			mes "[Yotang]";
			mes "You'll regret it!";
			close;
		}
		mes "[Yotang]";
		mes "You're speedy!";
		mes "You deserve to be a master of the fanclub for the next term.";
		next;
		emotion e_swt;
		mes "Combining... ... ...";
		next;
		//Double-check the materials
		if ((countitem(Limpid_Celestial_Robe) < 100) || (countitem(Soft_Silk_Cloth) < 100) || !countitem(Wedding_Bouquet) || !countitem(Violet_Dyestuffs) || !countitem(Bandana)) {
			mes "[Yotang]";
			mes "Huh? You don't have enough";
			mes "materials for it..";
			mes "Aren't you wearing Bandana?";
			mes "Check it out!";
			next;
			mes "[Yotang]";
			mes "Bring me all the materials,";
			mes "If you want to get the Flower of Fairy.";
			next;
			mes "[Yotang]";
			mes "If you bring me ^0000FF100 Limpid Celestial Robes, 100 Soft Silk Cloth,";
			mes "1 Wedding Bouquet, 1 Violet Dyestuffs";
			mes "and ^0000FF1 Bandana^000000 which you can find at a store,";
			mes "I will make you a ^0000FFFlower of Fairy^000000.";
			close;
		}
		// Checking weight
		if ((MaxWeight-Weight) < 200) {
			mes "[Yotang]";
			mes "Your bag is too heavy, isn't it?";
			mes "Come to me again";
			mes "after emptying your bag.";
			close;
		}
		else if (checkweight(Flower_Of_Fairy,1) == 0) {
			mes "- Wait !! -";
			mes "- You have too many items, so it's -";
			mes "- impossible to have more. -";
			mes "- Come to me again -";
			mes "- after emptying some of it. -";
			close;
		}
		mes "[Yotang]";
		mes "Here, the Flower of Fairy.";
		delitem Limpid_Celestial_Robe,100; //Limpid_Celestial_Robe
		delitem Soft_Silk_Cloth,100; //Soft_Silk_Cloth
		delitem Wedding_Bouquet,1; //Wedding_Bouquet
		delitem Violet_Dyestuffs,1; //Violet_Dyestuffs
		delitem Bandana,1; //Bandana
		getitem Flower_Of_Fairy,1; //Flower_Of_Fairy
		emotion e_no1;
		next;
		mes "[Yotang]";
		mes "See you on the fan meeting!";
		close;
	}
	mes "[Yotang]";
	mes "You can meet the fairy soon";
	mes "for there will be a fan meeting";
	mes "in the near future.";
	mes "The Flower of Fairy is necessary";
	mes "for joining the fan meeting. Everyone wears it.";
	next;
	mes "[Yotang]";
	mes "If you bring me some materials";
	mes "I'll make it for you.";
	next;
	mes "[Yotang]";
	mes "I need ^0000FF100 Limpid Celestial Robes, 100 Soft Silk Cloth,";
	mes "1 Wedding Bouquet, 1 Violet Dyestuffs";
	mes "and ^0000FF1 Bandana^000000 which you can find at a store,";
	next;
	mes "[Yotang]";
	mes "If you bring me ^0000FF100 Limpid Celestial Robes, 100 Soft Silk Cloth,";
	mes "1 Wedding Bouquet, 1 Violet Dyestuffs";
	mes "and ^0000FF1 Bandana^000000 which you can find at a store,";
	mes "I will make you a ^0000FFFlower of Fairy^000000.";
	next;
	mes "[Yotang]";
	mes "^FF0000Please be aware that^000000";
	mes "^FF0000the refinement on the matereials will all disapper^000000";
	mes "^FF0000if you once combine those.^000000";
	next;
	if (select("I won't do it.:Here, I have the materials!")==1) {
		mes "[Yotang]";
		mes "You'll regret it!";
		close;
	}
	mes "[Yotang]";
	mes "Huh? Are you kidding me?";
	next;
	mes "[Yotang]";
	mes "I need ^0000FF100 Limpid Celestial Robes, 100 Soft Silk Cloth,";
	mes "1 Wedding Bouquet, 1 Violet Dyestuffs";
	mes "and ^0000FF1 Bandana^000000 which you can find at a store";
	mes "to make a ^0000FFFlower of Fairy^000000.";
	close;
}

// 2. Making the new headgear Necktie(5442)

lhz_in02,276,281,1	script	Drunken Man#Necktie	4_M_ALCHE_A,{
	mes "[Drunken Man]";
	mes "Hey.. you wanna fight?!";
	next;
	mes "He seems to be drunken badly. What should I do?";
	next;
	if (select("Just ignore him.:Fight!") == 1) {
		mes "[Drunken Man]";
		mes "Why are you ignoring me?";
		mes "Are you afraid of me?";
		close;
	}
	// Checking player's level
	if (BaseLevel < 65) {
		mes "[Drunken Man]";
		mes "What... you're weaker than me.";
		mes "Go and reach the higher level!";
		emotion e_go;
		close;
	}
	mes "[Drunken Man]";
	mes "Hold! I need some armor to wear.";
	mes "That's it, Necktie, Necktie...";
	next;
	mes "[Drunken Man]";
	mes "Once I wear the Necktie on my head,";
	mes "I will be no match for you!";
	mes "You must be nervous��";
	mes "Hmm�� where is the Necktie?";
	next;
	// If having the materials
	if ((countitem(Cobaltblue_Dyestuffs) > 0) && (countitem(Oil_Paper) > 29) && (countitem(Transparent_Cloth) > 99) && (countitem(Spool) > 19)) {
		mes "[Drunken Man]";
		mes "Oh, you're having the materials for Necktie! give them to me!!";
		next;
		if (select("No way!:Here you are.")==1) {
			mes "[Drunken Man]";
			mes "Ohh, you are scared!";
			mes "I won again!!";
			close;
		}
		mes "[Drunken Man]";
		mes "Great, wait for a moment!";
		next;
		mes "Combining... ch...ch... ...";
		emotion e_swt;
		next;
		mes "[Drunken Man]";
		mes "Drunk...drunk.... Zzzzz...";
		emotion e_what,1;
		next;
		//Double-check the materials
		if ((countitem(Cobaltblue_Dyestuffs) > 0) && (countitem(Oil_Paper) > 29) && (countitem(Transparent_Cloth) > 99) && (countitem(Spool) > 19)) {
			// Checking weight
			if ((MaxWeight - Weight) < 100) {
				mes "Necktie is heavier than I thought.";
				mes "Seems like the very legendary Necktie.";
				close;
			}
			else if (checkweight(Necktie,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "He zonked out as soon as";
			mes "he finished it.";
			mes "Let's just take the Necktie.";
			delitem Cobaltblue_Dyestuffs,1; //Cobaltblue_Dyestuffs
			delitem Oil_Paper,30; //Oil_Paper
			delitem Transparent_Cloth,100; //Transparent_Cloth
			delitem Spool,20; //Spool
			getitem Necktie,1; //Necktie
			close;
		}
		mes "[Drunken Man]";
		mes "Huh? Where are all the materials gone?";
		mes "Did you take it back that you're so afraid of me?";
		close;
	}
	mes "[Drunken Man]";
	mes "Hey, go and get";
	mes "^FF00001 Cobaltblue Dyestuff, 30 Oil Papers, 100 Transparent Cloth, 20 Spools^000000!";
	next;
	mes "[Drunken Man]";
	mes "I will beat you off wearing the legendary Necktie!";
	next;
	if (select("I won't.:Let's go and get them.") == 1) {
		mes "[Drunken Man]";
		mes "Are you dropping out?";
		mes "Did I win again?";
		close;
	}
	mes "[Drunken Man]";
	mes "I'm telling you once more";
	mes "for you might forget it, dumbhead!";
	next;
	mes "[Drunken Man]";
	mes "^FF00001 Cobaltblue Dyestuff, 30 Oil Papers, 100 Transparent Cloth, 20 Spools^000000!";
	mes "Hurry! I'll be futzing around with others.";
	emotion e_go;
	close;
}

// 3. Making the new headgear Hair Brush(5444)
comodo,236,164,0	script	Hat Girl#Hair_Brush	1_F_04,{
	mes "[Hat Girl]";
	mes "Isn't the unique hat much better";
	mes "than the common hairbands?";
	next;
	if (select("I still prefer hairbands!:Hat is the best!") == 1) {
		mes "[Hat Girl]";
		mes "Wear your boring hairband for the whole lifetime!";
		emotion e_pif;
		close;
	}
	mes "[Hat Girl]";
	mes "You have a good sense!";
	mes "I thought I would make";
	mes "a trendy hat.";
	next;
	mes "[Hat Girl]";
	mes "I will give you an honor,";
	mes "to be a fashion superstar,";
	mes "if you bring me the materials for it.";
	next;
	if ((countitem(Mixture) > 0) && (countitem(Scarlet_Dyestuffs) > 0) && (countitem(Solid_Shell) > 49) && (countitem(Elunium) > 4) && (countitem(Axe_) > 0)) {
		mes "[Hat Girl]";
		mes "Oh! you're bringing ^0000FFthe materials for Hair Brush^000000.";
		mes "Do you want me to make it now?";
		next;
		if (select("I think the hairband is better...:Yes, please make it!") == 1) {
			mes "[Hat Girl]";
			mes "Wear your boring hairband for the whole lifetime!";
			emotion e_pif;
			close;
		}
		mes "[Hat Girl]";
		mes "Okay, I'll do it right away!";
		next;
		mes "Ch ch ch... combining...ch ch��";
		emotion e_swt2,1;
		next;
		mes "[Hat Girl]";
		mes "Here, it's done!";
		mes "Now you're the fashionista!";
		next;
		//Double-check the materials
		if ((countitem(Mixture) > 0) && (countitem(Scarlet_Dyestuffs) > 0) && (countitem(Solid_Shell) > 49) && (countitem(Elunium) > 4) && (countitem(Axe_) > 0)) {
			// Checking weight
			if ((MaxWeight - Weight) < 100) {
				mes "[Hat Girl]";
				mes "You're carrying too much stuff.";
				mes "Come again after emptying your bag.";
				close;
			}
			else if (checkweight(Status_Of_Baby_Angel,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "[" + strcharinfo(0) + "]";
			mes "I got the Hair Brush.";
			mes "...but it makes me sad.";
			delitem Mixture,1; //Mixture
			delitem Scarlet_Dyestuffs,1; //Scarlet_Dyestuffs
			delitem Solid_Shell,50; //Solid_Shell
			delitem Elunium,5; //Elunium
			delitem Axe_,1; //Axe_
			getitem Hair_Brush,1; //Hair_Brush
			close;
		}
		mes "[Hat Girl]";
		mes "Huh? Don't you want to be";
		mes "the best fashionista?";
		mes "You don't have enough materials?";
		close;
	}
	mes "[Hat Girl]";
	mes "To make the latest style ^0000FFHair_Brush^000000,";
	mes "I need ^0000FF1 Mixture, 1 Scarlet Dyestuffs,";
	mes "50 Solid Shells, 5 Eluniums,^000000";
	mes "also 1 ^0000FFAxe^000000 with 4 sockets on it.";
	next;
	mes "[Hat Girl]";
	mes "What are you doing? Hurry!";
	next;
	mes "[Hat Girl]";
	mes "Here is one tip for you.";
	mes "You can easily get Solid Shells and Elunium from the monsters.";
	close;
}

// 4. Making the new headgear Statue Of Baby Angel(5443)
alberta,151,78,0	script	Bebete#Baby_Angel_Status	4W_KID,{
	// Check if wearing Ear_Of_Angel's_Wing, Angelic_Chain, Flying_Angel
	if (!isequipped(Ear_Of_Angel's_Wing) && !isequipped(Angelic_Chain) && !isequipped(Flying_Angel)) {
		mes "[Bebete]";
		mes "A fake angel? Go away!!";
		next;
		mes "[Bebete]";
		mes "The real angel has";
		mes "the wings on the head!";
		close;
	}
	if (BaseLevel < 65) {
		mes "[Bebete]";
		mes "A fake angel? Go away!";
		next;
		mes "[Bebete]";
		mes "The real angel";
		mes "is not as weak as you.";
		close;
	}
	// If wearing Status_Of_Baby_Angel
	if (isequipped(Status_Of_Baby_Angel) > 0) {
		mes "[Bebete]";
		mes "Oh, the angel came again.";
		mes "Are you quite satisfied with ^FF0000Statue Of Baby Angel^000000, aren't you?";
		close;
	}
	if ((countitem(Holy_Water) > 0) && (countitem(Feather_Of_Birds) > 499) && (countitem(Muscovite) > 9) && (countitem(Spirit_Chain) > 0) && (countitem(Shining_Stone) > 0)) {
		mes "[Bebete]";
		mes "Ah! Hey, angel~ angel~";
		next;
		mes "[Bebete]";
		mes "Please show me the Statue of Baby Angel!";
		mes "I heard every angel has it!";
		next;
		select("Statue of Baby Angel?");
		mes "[Bebete]";
		mes "Did you lose it?";
		mes "Do you want me to make it for you?";
		next;
		if (select("No, thanks.:Yes, I want it now.") == 1) {
			mes "[Bebete]";
			mes "Oh... it's not easy to make a living!";
			close;
		}
		// Check weight
		mes "[Bebete]";
		mes "Wow, you already know all the materials, angel.";
		emotion e_lv2;
		next;
		mes "[Bebete]";
		mes "You're lucky. I have one statue on going.";
		mes "So you don't need to wait for long.";
		next;
		if ((countitem(Holy_Water) > 0) && (countitem(Feather_Of_Birds) > 499) && (countitem(Muscovite) > 9) && (countitem(Spirit_Chain) > 0) && (countitem(Shining_Stone) > 0)) {
			// Check weight
			if ((MaxWeight - Weight) < 600) {
				mes "[Bebete]";
				mes "What are you carrying that much, angel?";
				mes "I can't give you the item";
				mes "because your bag is too full.";
				close;
			}
			else if (checkweight(Status_Of_Baby_Angel,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "I got the ^FF0000Statue of Baby Angel^000000.";
			delitem Feather_Of_Birds,500; //Feather_Of_Birds
			delitem Holy_Water,1; //Holy_Water
			delitem Muscovite,10; //Muscovite
			delitem Spirit_Chain,1; //Spirit_Chain
			delitem Shining_Stone,1; //Shining_Stone
			getitem Status_Of_Baby_Angel,1; //Status_Of_Baby_Angel
			next;
			mes "[Bebete]";
			mes "See you again, my angel~!";
			emotion e_thx;
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "... ...";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "Hmm... I guess I was fooled by that little	kid.";
			close;
		}
		mes "[Bebete]";
		mes "Hey, I don't see";
		mes "any materials in your bag..";
		emotion e_sob;
		close;
	}
	mes "[Bebete]";
	mes "Hey, angel...";
	next;
	mes "[Bebete]";
	mes "Wow, the angel!";
	emotion e_omg;
	next;
	mes "[Bebete]";
	mes "Are you a real angel? Have you been to heaven?";
	next;
	if (select("What a bullshit!:Let's keep the childhood innocence!") == 1) {
		mes "[" + strcharinfo(0) + "]";
		mes "Angel and heaven? It's all made up! ";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "There's nothing. Everything is lie!";
		emotion e_gg,1;
		next;
		mes "[Bebete]";
		mes "You're a devil! a monster! an idiot!";
		emotion e_sigh;
		close;
	}
	mes "[" + strcharinfo(0) + "]";
	mes "Of course. I used to dance with the dragon and zebra";
	mes "on the vanilla-taste clouds.";
	next;
	mes "[Bebete]";
	mes "That's just what I've been imagining!";
	next;
	mes "[Bebete]";
	mes "Please show me the Statue of Baby Angel!";
	mes "I heard every angel has it!";
	next;
	mes "[Bebete]";
	mes "Oops, did you lose it?";
	mes "Do you want me to make one for you?";
	next;
	mes "[Bebete]";
	mes "I made it several times before";
	mes "for the angels like you.";
	next;
	mes "[Bebete]";
	mes "I can make it with ^FF0000 500 Feather Of Birds, 1 Holy Water, 10 Muscovite, 1 Spirit Chain and 1 Shining Stone^000000.";
	next;
	mes "[Bebete]";
	mes "Okay, hurry!";
	close;
	end;
}

// 5. Making the new headgear Frog_Cap(5447)

gef_fild07,108,161,4	script	Roda Frog#Frog_Cap	RODA_FROG,1,1,{
	if (2009_hat == 0) {
		mes "[???]";
		mes "Hmm..Hm..";
		mes "It seems my transformation into the child's appearance is succeessful.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "... ... ... ...";
		next;
		mes "[???]";
		mes "Human! I am here to ask you some help.";
		next;
		if (BaseLevel < 65) {
			mes "[???]";
			mes "... ... ...";
			next;
			mes "[???]";
			mes "I am the great king Froggie Vll!";
			next;
			mes "[King Froggie Vll]";
			mes "but I think you're not strong enough to help us.";
			mes "Go and train more!";
			next;
			mes "[King Froggie Vll]";
			mes "Over lvl 65 human will be fine for us.";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		mes "[???]";
		mes "I am the great king, Froggie Vll..";
		mes "I need your help!";
		next;
		if (select("Just ignore it.:Let's help him.") == 1) {
			mes "[" + strcharinfo(0) + "]";
			mes "Talking frog...";
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "Now I've seen everything.";
			next;
			mes "[King Froggie Vll]";
			mes "Croaking...Croaking...";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		mes "[" + strcharinfo(0) + "]";
		mes "What can I help you?";
		next;
		mes "[King Froggie Vll]";
		mes "Our great frog race is now endangered because many travellers came here and take our eggs as a kind of souvenirs. I even heard there are many left on the ground here and there, so I need your help. Please bring back ^FF0000100 Frogspawn^000000.";
		setquest 5000;
		2009_hat = 1;
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Sure, I will.";
		next;
		mes "[King Froggie Vll]";
		mes "I will be waiting for you!";
		close2;
		donpcevent "Roda Frog#Frog_Cap::OnDisable";
		end;
	}
	else if (2009_hat == 1) {
		if (countitem(Spawn) < 100) {
			mes "[King Froggie Vll]";
			mes "What are you doing here?";
			mes "Go and get ^FF0000100 Frogspawn^000000!";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		mes "[King Froggie Vll]";
		mes "Oh, you brought all of them!";
		next;
		mes "[King Froggie Vll]";
		mes "Thank you so much, " + strcharinfo(0) + ".";
		emotion e_thx;
		next;
		mes "[King Froggie Vll]";
		mes "By the way, we have another urgent matter. So I would ask you one more help.";
		next;
		mes "[King Froggie Vll]";
		mes "Frogs are healthy food to the snakes.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "I know well.";
		next;
		mes "[King Froggie Vll]";
		mes "Well, that's good. Aren't you feel sorry for our race?";
		next;
		mes "[King Froggie Vll]";
		mes "So, I hereby ask you to take revenge on them. Kill ^FF000050 Side Winder^000000 for us.";
		delitem Spawn,100; //Spawn
		changequest 5000,5001;
		2009_hat = 2;
		next;
		mes "[King Froggie Vll]";
		mes "I'll be waiting for your news!";
		close2;
		donpcevent "Roda Frog#Frog_Cap::OnDisable";
		end;
	}
	else if (2009_hat == 2) {
		if (questprogress(5001,HUNTING) == 1) {
			mes "[King Froggie Vll]";
			mes "I'm waiting for your good news.";
			mes "It would be a piece of cake for you";
			mes "to kill ^FF000050 Side Winders^000000. Keep it up!";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		else if (questprogress(5001,HUNTING) == 2) {
			mes "[" + strcharinfo(0) + "]";
			mes "I'm back.";
			next;
			mes "[King Froggie Vll]";
			mes "You seemingly killed all the Side Winders!";
			next;
			mes "[King Froggie Vll]";
			mes "You became an example for the young frogs. Thank you again.";
			emotion e_thx;
			next;
			mes "[King Froggie Vll]";
			mes "Therefore, I'm considering adding your outstanding exploit to our frog's history book. But I need your evidence for your work.";
			next;
			mes "[King Froggie Vll]";
			mes "Please bring me ^FF0000 100 ^000000 ^FF0000Poisonous Canines^000000 from the snakes.";
			changequest 5001,5002;
			2009_hat = 3;
			next;
			mes "[" + strcharinfo(0) + "]";
			mes "I'm happy to be added in the history book. I'll go and get them.";
			next;
			mes "[King Froggie Vll]";
			mes "Obedient, hard-working... I hope I have a loyal frog like you.";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		close;
	}
	else if (2009_hat == 3) {
		if (countitem(Posionous_Canine) < 100) {
			mes "[King Froggie Vll]";
			mes "How about ^FF0000100 Poisonous Canines^000000?";
			mes "Hurry, it's a rare opportunity to be added in the frog histroy book!";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		mes "[King Froggie Vll]";
		mes "Oh, you brought Poisonous Canines! Now, I'm able to put you in the frog history book officially.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "That's good for me.";
		next;
		mes "[King Froggie Vll]";
		mes "I have a better news!";
		next;
		mes "[King Froggie Vll]";
		mes "I found a great method to keep our race while I was looking up the history book!";
		next;
		mes "[King Froggie Vll]";
		mes "The answer was in the frog history book. In the old days, the great King Froggie lll made a secret medicine enabling us to use a hiding skill from the snakes.";
		next;
		mes "[King Froggie Vll]";
		mes "I should have known this earlier...";
		mes "Please get me ^FF000050 Scaled Skins^000000.";
		delitem Posionous_Canine,100; //Posionous_Canine
		changequest 5002,5003;
		2009_hat = 4;
		next;
		mes "[King Froggie Vll]";
		mes "It's not easy to get, but I'm sure you can do it.";
		close2;
		donpcevent "Roda Frog#Frog_Cap::OnDisable";
		end;
	}
	else if (2009_hat == 4) {
		if (countitem(Scales_Shell) < 50) {
			mes "[King Froggie Vll]";
			mes "Still here? Go and get ^FF000050 Scaled Skins^000000! Please hurry!";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		mes "[King Froggie Vll]";
		mes "Excellent!";
		mes "You're like the great King Froggie lll in his young days!";
		next;
		mes "[King Froggie Vll]";
		mes "You are already the hero for our frogs! If I have a child, I would marry you up with my child.";
		next;
		mes "[" + strcharinfo(0) + "]";
		mes "Ah.. No, thanks.";
		mes "^FF0000(Are you telling me to marry with A Frog???)^000000";
		next;
		mes "[King Froggie Vll]";
		mes "Thanks to you, the population of frog has increased but we're short of food.";
		next;
		mes "[King Froggie Vll]";
		mes "The best food for us is ^FF0000Argiope^000000.";
		next;
		mes "[King Froggie Vll]";
		mes "Now, what are you doing, our hero?";
		mes "Go and get ^FF000050 Argiopes^000000!";
		delitem Scales_Shell,50; //Scales_Shell
		2009_hat = 5;
		changequest 5003,5004;
		close2;
		donpcevent "Roda Frog#Frog_Cap::OnDisable";
		end;
	}
	else if (2009_hat == 5) {
		if (questprogress(5004,HUNTING) == 1) {
			mes "[King Froggie Vll]";
			mes "My hero, are you going to starve us to death?";
			mes "Go and bring us ^FF000050 Argiopes^000000!";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
		else if (questprogress(5004,HUNTING) == 2) {
			mes "[King Froggie Vll]";
			mes "I think I saw you a while ago, but now you became the hero for the frogs...";
			next;
			mes "[King Froggie Vll]";
			mes "It was really lucky for me to ask you a favor.";
			next;
			// checking weight
			if ((MaxWeight - Weight) < 500) {
				mes "[King Froggie Vll]";
				mes "I'd like to give you a reward, our hero. But your bag is now too heavy.";
				close2;
				donpcevent "Roda Frog#Frog_Cap::OnDisable";
				end;
			}
			else if (checkweight(Frog_Cap,1) == 0) {
				mes "- Wait !! -";
				mes "- You have too many items, so it's -";
				mes "- impossible to have more. -";
				mes "- Come to me again -";
				mes "- after emptying some of it. -";
				close;
			}
			mes "[King Froggie Vll]";
			mes "Frogs, do you have any objection";
			mes "to give our hero, " + strcharinfo(0) + "";
			mes "a Frog Hat which is one of our precious treasures?";
			next;
			mes "[Sounds from somewhere]";
			mes "Croak...croak...";
			mes "croooooaaaaak~~~";
			mes "Croak croak";
			next;
			mes "[King Froggie Vll]";
			mes "Hmm, there is no objection.";
			next;
			mes "[King Froggie Vll]";
			mes "I hearby give " + strcharinfo(0) + ", our hero, this Frog Hat.";
			specialeffect2 EF_MAPPILLAR2;
			specialeffect2 EF_BLESSING;
			erasequest 5004;
			2009_hat = 6;
			getitem Frog_Cap,1; //Frog_Cap
			next;
			mes "[King Froggie Vll]";
			mes "You are always welcome.";
			mes "Visit here at any time.";
			close2;
			donpcevent "Roda Frog#Frog_Cap::OnDisable";
			end;
		}
	}
	else if (2009_hat == 6) {
		mes "[King Froggie Vll]";
		mes "All the frogs in the world, praise " + strcharinfo(0) + ", our eternal hero!";
		emotion e_thx;
		close2;
		donpcevent "Roda Frog#Frog_Cap::OnDisable";
		end;
	}
	end;

OnInit:
	setnpcdisplay "Roda Frog#Frog_Cap",RODA_FROG;
end;

OnEnable:
	setnpcdisplay "Roda Frog#Frog_Cap",4_M_KID2;
	end;

OnDisable:
	hideonnpc "Roda Frog#Frog_Cap";
	initnpctimer;
	end;

OnReset:
	setnpcdisplay "Roda Frog#Frog_Cap",RODA_FROG;
	hideoffnpc "Roda Frog#Frog_Cap";
	end;

OnTimer2000:
	donpcevent "Roda Frog#Frog_Cap::OnReset";
	stopnpctimer;
	end;

OnTouch:
	mes "There is a frog. What should I do?";
	next;
	if (select("Throw it a stone.:Have a conversation.") == 1) {
		donpcevent "Roda Frog#Frog_Cap::OnDisable";
		mes "Ouch~";
		close;
	}
	donpcevent "Roda Frog#Frog_Cap::OnEnable";
	if (2009_hat > 0) {
		emotion e_dots,1;
		mes "[" + strcharinfo(0) + "]";
		mes "It's so amazing to see";
		mes "the frog which transforms itself.";
		close;
	}
	emotion e_omg,1;
	mes "[" + strcharinfo(0) + "]";
	mes "Oh my.. the frog transformed into a child...";
	close;
}

// 6. Making the new headgear Solo Playing Box 1,2 ()5448,5449)
alberta,120,206,3	script	Alonie#Solo_Play_Box	4_M_UMKID,{
	if (2009_1_hat == 0) {
		mes "[Alonie]";
		mes "I am an expert at playing alone.";
		mes "I'm trying my best to play alone!";
		next;
		mes "[Alonie]";
		mes "HuHu, Yapyap!";
		mes "I can feel your admiration for me.";
		mes "Wanna be my student?";
		next;
		if (select("You're out of your mind!:Please let me be your disciple!") == 1) {
			mes "[Alonie]";
			mes "Yes, I'm out of my mind.";
			mes "Huhu, Yapyap!";
			close;
		}
		mes "[Alonie]";
		mes "I can feel you are lack of affection. Okay!";
		mes "Now, let's start the training!";
		next;
		mes "[Alonie]";
		mes "The special training, to play alone in Sphinx Dungeon!";
		mes "For make it";
		mes "the fruitful training,";
		mes "Get around and kill";
		mes "^FF000020 Zeroms, 20 Requiems^000000!";
		mes "Hurry!";
		next;
		if (select("What a bullshit!:Let's go!") == 1) {
			mes "[Alonie]";
			mes "Of course, I don't care.";
			mes "Huhu, Yapyap!";
			close;
		}
		mes "[Alonie]";
		mes "Hurry up, my student.";
		mes "I am so capricious";
		mes "so I don't know what I will";
		mes "give you as a reward!";
		setquest 1100;
		setquest 1101;
		2009_1_hat = 1;
		close;
	}
	else if (2009_1_hat == 1) {
		if ((questprogress(1100,HUNTING) == 2) && (questprogress(1101,HUNTING) == 2)) {
			mes "[Alonie]";
			mes "Already finished?";
			mes "Good, here is the next training";
			mes "to be a playing-alone expert!";
			next;
			mes "[Alonie]";
			mes "The special training, to play alone at Clock Tower!";
			mes "For make it";
			mes "the fruitful training,";
			mes "Get around and kill";
			mes "^FF000040 Arclouses and 30 High Orcs^000000";
			next;
			if (select("What a bullshit!:Let's go!") == 1) {
				mes "[Alonie]";
				mes "Of course, I don't care.";
				mes "Huhu, Yapyap!";
				close;
			}
			mes "[Alonie]";
			mes "Hurry up, my student.";
			mes "I am so capricious";
			mes "so I don't know what I will";
			mes "give you as a reward!";
			changequest 1100,1102;
			changequest 1101,1103;
			2009_1_hat = 2;
			close;
		}
		mes "[Alonie]";
		mes "Hmm, it's not enough.";
		mes "Playing alone is not that easy!";
		mes "Go and kill";
		mes "^FF000020 Zeroms, 20 Requiems^000000!";
		close;
	}
	else if (2009_1_hat == 2) {
		if ((questprogress(1102,HUNTING) == 2) && (questprogress(1103,HUNTING) == 2)) {
			mes "[Alonie]";
			mes "You're really good at playing alone...!";
			mes "Are you lonely?";
			mes "Well, here is the next training";
			mes "to be a playing-alone expert!";
			next;
			mes "[Alonie]";
			mes "The special training, to play alone in Louyang!";
			mes "For make it";
			mes "the fruitful training,";
			mes "Get around and kill";
			mes "^FF000020 Chung E and 50	Civil Servant^000000!";
			next;
			if (select("What a bullshit!:Let's go!") == 1) {
					mes "[Alonie]";
					mes "Of course, I don't care.";
					mes "Huhu, Yapyap!";
					close;
			}
			mes "[Alonie]";
			mes "Hurry up, my student.";
			mes "I am so capricious";
			mes "so I don't know what I will";
			mes "give you as a reward!";
			changequest 1102,1108;
			changequest 1103,1105;
			2009_1_hat = 3;
			close;
		}
		mes "[Alonie]";
		mes "Hmm, It's not enough.";
		mes "Playing alone is not that easy!";
		mes "Go and kill";
		mes "^FF000040 Arclouses and 30 High Orcs^000000!";
		close;
	}
	else if (2009_1_hat == 3) {
		if ((questprogress(1108,HUNTING) == 2) && (questprogress(1105,HUNTING) == 2)) {
			mes "[Alonie]";
			mes "Great job.";
			mes "How lonely you are!";
			mes "Okay, here is the last training";
			mes "to be a real playing-alone expert!";
			next;
			mes "[Alonie]";
			mes "The special training, to play alone in Amatsu Dungeon!";
			mes "For make it";
			mes "the fruitful training,";
			mes "Get around and kill";
			mes "^FF000020 The Papers and 40 Antique Firelocks^000000!";
			next;
			if (select("What a bullshit!:Let's go!") == 1) {
				mes "[Alonie]";
				mes "Of course, I don't care.";
				mes "huhu, Yapyap!";
				close;
			}
			mes "[Alonie]";
			mes "Hurry up, my student!";
			mes "I am so capricious";
			mes "so I don't know what I will";
			mes "give you as a reward!";
			changequest 1108,1106;
			changequest 1105,1107;
			2009_1_hat = 4;
			close;
		}
		else if ((questprogress(1104,HUNTING) == 2) && (questprogress(1105,HUNTING) == 2)) {
			mes "[Alonie]";
			mes "Great job.";
			mes "How lonely you are!";
			mes "Okay, here is the last training";
			mes "to be a real playing-alone expert!";
			next;
			mes "[Alonie]";
			mes "The special training, to play alone in Amatsu Dungeon!";
			mes "For make it";
			mes "the fruitful training,";
			mes "Get around and kill";
			mes "^FF000020 The Papers and 40 Antique Firelocks^000000!";
			next;
			if (select("What a bullshit!:Let's go!") == 1) {
				mes "[Alonie]";
				mes "Of course, I don't care.";
				mes "huhu, Yapyap!";
				close;
			}
			mes "[Alonie]";
			mes "Hurry up, my student!";
			mes "I am so capricious";
			mes "so I don't know what I will";
			mes "give you as a reward!";
			changequest 1104,1106;
			changequest 1105,1107;
			2009_1_hat = 4;
			close;
		}
		mes "[Alonie]";
		mes "Hmm, It's not enough.";
		mes "Playing alone is not that easy!";
		mes "Go and kill";
		mes "^FF000020 Chung E and 50	Civil Servant^000000!";
		if (questprogress(1104,HUNTING) == 1) {
			erasequest 1104;
			setquest 1108;
		}
		close;
	}
	else if (2009_1_hat == 4) {
		if ((MaxWeight - Weight) < 300) {
			 mes "[Alonie]";
			 mes "Playing outside with this heavy bag?";
			 mes "You are the real";
			 mes "expert to play alone!";
			 next;
			 mes "[Alonie]";
			 mes "If you want the reward, empty your bag, first!";
			 close;
		}
		if ((questprogress(1106,HUNTING) == 2) && (questprogress(1107,HUNTING) == 2)) {
			mes "[Alonie]";
			mes "Finally you did it.";
			mes "My affection-lacked student!";
			mes "This is the end of your training!";
			next;
			if (gettime(GETTIME_HOUR) < 12) {
				if (checkweight(Solo_Play_Box1,1) == 0) {
					 mes "[Alonie]";
					 mes "Playing outside with this heavy bag?";
					 mes "You are the real";
					 mes "expert to play alone!";
					 next;
					 mes "[Alonie]";
					 mes "If you want the reward, empty your bag, first!";
					 close;
				}
				mes "[Alonie]";
				mes "Here! The solo play box";
				mes "the most effective at AM!";
				mes "After putting on this box,";
				mes "you're the best lonely being!";
				next;
				mes "[Alonie]";
				emotion e_no1;
				mes "Fight back your tears!";
				mes "Huhu, Yapyap!";
				completequest 1106;
				completequest 1107;
				2009_1_hat = 5;
				getitem Solo_Play_Box1,1; //Solo_Play_Box1
				close;
			}
			if (checkweight(Solo_Play_Box2,1) == 0) {
				 mes "[Alonie]";
				 mes "Playing outside with this heavy bag?";
				 mes "You are the real";
				 mes "expert to play alone!";
				 next;
				 mes "[Alonie]";
				 mes "If you want the reward, empty your bag, first!";
				 close;
			}
			mes "[Alonie]";
			mes "Here! The solo play box";
			mes "the most effective at PM!";
			mes "After putting on this box,";
			mes "you're the best lonely being!";
			next;
			mes "[Alonie]";
			emotion e_no1;
			mes "Fight back your tears!";
			mes "Huhu, Yapyap!";
			completequest 1106;
			completequest 1107;
			2009_1_hat = 5;
			getitem Solo_Play_Box2,1; //Solo_Play_Box2
			close;
		}
		mes "[Alonie]";
		mes "Hmmm, It's not enough.";
		mes "Playing alone is not that easy thing!";
		mes "Go and kill";
		mes "^FF000020 The Papers and 40 Antique Firelocks^000000!";
		close;
	}
	else if (2009_1_hat == 5) {
		mes "[Alonie]";
		mes "I am the playing-alone expert.";
		mes "Always trying my best to play alone!";
		next;
		mes "[Alonie]";
		mes "Huhu, Yapyap!";
		close;
	}
	end;
}