npc/events/gdevent_aru.txt

   1 //===== rAthena Script =======================================
   2 //= Guild dungeon event, Arunafeltz.
   3 //===== By: ==================================================
   4 //= L0ne_W0lf
   5 //===== Current Version: =====================================
   6 //= 1.2
   7 //===== Compatible With: =====================================
   8 //= rAthena Project
   9 //===== Description: =========================================
  10 //= Guild dungeon event, Arunafeltz. Retrieve Morestone's
  11 //= pickaxe from Kublin.
  12 //===== Additional Comments: =================================
  13 //= 1.0 First version
  14 //= 1.1 Changed spawn timer to 1 hour. [L0ne_w0lf]
  15 //= 1.2 Added GM management function. [Euphy]
  16 //============================================================
  17
  18 arug_dun01,1,1,1        script  Monster Controler#aru_gd        81,{
  19 OnInit:
  20         donpcevent "Monster Controler1#aru::OnKill";
  21         initnpctimer;
  22         end;
  23
  24 OnTimer3600000:
  25         donpcevent "Monster Controler1#aru::OnEnable";
  26         mapannounce "arug_dun01", "Kublin: Aargh!",bc_map,"0x99CC00";
  27         mapannounce "arug_dun01", "Morestone: Stop righ there! You thief!",bc_map,"0x99CC00";
  28         stopnpctimer;
  29         end;
  30 }
  31
  32 arug_dun01,1,2,1        script  Monster Controler1#aru  81,{
  33 OnEnable:
  34         set .@callwhere,rand(1,4);
  35         if (.@callwhere == 1) {
  36                 monster "arug_dun01",150,340,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
  37         }
  38         else if (.@callwhere == 2) {
  39                 monster "arug_dun01",232,293,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
  40         }
  41         else if (.@callwhere == 3) {
  42                 monster "arug_dun01",156,167,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
  43         }
  44         else {
  45                 monster "arug_dun01",243,56,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
  46         }
  47         end;
  48
  49 OnKill:
  50         killmonster "arug_dun01","Monster Controler1#aru::OnMyMObDead";
  51         end;
  52
  53 OnMyMobDead:
  54         if (mobcount("arug_dun01","Monster Controler1#aru::OnMyMObDead") == 0) {
  55                 mapannounce "arug_dun01", "Kublin: Aargh!",bc_map,"0x99CC00";
  56                 mapannounce "arug_dun01", "Morestone: I thought I heard Kublin screaming!! Who is there? What happened to Kublin? Hey you!",bc_map,"0x99CC00";
  57                 donpcevent "Dwarf#aru_gd::OnEnable";
  58         }
  59         end;
  60 }
  61
  62 arug_dun01,199,195,5    script  Dwarf#aru_gd    826,{
  63         if (getcharid(2) == 0) {
  64                 mes "[Dwarf]";
  65                 mes "Hey did you see an ugly Goblin come by? He stole something from me!";
  66                 close;
  67         }
  68         set .@chk_urquest,checkquest(2143,PLAYTIME);
  69         set .@chk_yourgdname$,getguildname(getcharid(2));
  70         if ($@gdeventv_a1 == 0) {
  71                 if ($@gdevents_a$ == "") {
  72                         set $@gdeventv_a1,1;
  73                         set $@gdevents_a$,.@chk_yourgdname$;
  74                         mes "[Dwarf]";
  75                         mes "Help me!";
  76                         mes "Please, help me!";
  77                         next;
  78                         switch(select("What happened?:Nevermind.")) {
  79                         case 1:
  80                                 mes "[Dwarf]";
  81                                 mes "I am Morestone and I collect rare gems.";
  82                                 next;
  83                                 mes "[Morestone]";
  84                                 mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
  85                                 mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
  86                                 next;
  87                                 select("Pickaxe!");
  88                                 mes "[Morestone]";
  89                                 mes "Yes, my beloved pickaxe!";
  90                                 mes "I always carry it with me, you know?";
  91                                 next;
  92                                 mes "[Morestone]";
  93                                 mes "We started working here together.";
  94                                 mes "After a few days, we finally found something!";
  95                                 next;
  96                                 select("Something strange??");
  97                                 mes "[Morestone]";
  98                                 mes "No, but it was worth quite alot.";
  99                                 mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
 100                                 mes "His name was^3131FFKublin^000000!";
 101                                 next;
 102                                 mes "[Morestone]";
 103                                 mes "He stole my Pickaxe!";
 104                                 mes "I can't live without it...";
 105                                 next;
 106                                 if (countitem(6010) > 0) {
 107                                         mes "[" + strcharinfo(0) + "]";
 108                                         mes "Is this the pickaxe that you've been looking for?";
 109                                         next;
 110                                         mes "[Morestone]";
 111                                         mes "You found my Pickaxe?";
 112                                         mes "Show me, please!";
 113                                         next;
 114                                         mes "[Morestone]";
 115                                         mes "Oh, my! You've returned it to me!";
 116                                         mes "My precious pickaxe, I thought I lost you forever.";
 117                                         next;
 118                                         mes "[Morestone]";
 119                                         mes "You are great! What guild are you from?";
 120                                         mes "Could it be Gravity or Mercury?";
 121                                         next;
 122                                         mes "[" + strcharinfo(0) + "]";
 123                                         mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
 124                                         next;
 125                                         mes "[Morestone]";
 126                                         mes "Oh... That guild will receive my greatest respect.";
 127                                         next;
 128                                         mes "[Morestone]";
 129                                         mes "Oh! My friend, I am very grateful for your help.";
 130                                         mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
 131                                         next;
 132                                         select("A mysterious area?");
 133                                         mes "[Morestone]";
 134                                         mes "That's right. I found it when I was digging around here.";
 135                                         mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
 136                                         next;
 137                                         mes "[Morestone]";
 138                                         mes "Instead of going there alone, I think it would be more fun to go with your friends...";
 139                                         next;
 140                                         mes "[Morestone]";
 141                                         mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
 142                                         mes "Do you want to go there now?";
 143                                         next;
 144                                         switch(select("Wait! I'm not ready yet.:Let's go!")) {
 145                                         case 1:
 146                                                 set $@gdeventv_a1,0;
 147                                                 set $@gdevents_a$,"";
 148                                                 mes "[Morestone]";
 149                                                 mes "Take your time, and find a place to gather your friends.";
 150                                                 close;
 151                                         case 2:
 152                                                 mes "[Morestone]";
 153                                                 mes "Alright! Let's go.";
 154                                                 mes "If your friends visit me again later, I will guide them to that area again.";
 155                                                 mes "Don't forget, dwarves are grateful beings! Hahaha!";
 156                                                 delitem 6010,1; //Pickaxe
 157                                                 set $@gdeventv_a1,1;
 158                                                 set $@gdevents_a$,.@chk_yourgdname$;
 159                                                 close2;
 160                                                 setquest 2144;
 161                                                 warp "arug_que01",103,133;
 162                                                 end;
 163                                         }
 164                                 }
 165                                 else {
 166                                         set $@gdeventv_a1,0;
 167                                         set $@gdevents_a$,"";
 168                                         mes "[Morestone]";
 169                                         mes "I will tell you how to find him.";
 170                                         mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
 171                                         close;
 172                                 }
 173                         case 2:
 174                                 set $@gdeventv_a1,0;
 175                                 set $@gdevents_a$,"";
 176                                 emotion e_sob;
 177                                 mes "[Dwarf]";
 178                                 mes "Ahhh...";
 179                                 close;
 180                         }
 181                 }
 182                 else if ($@gdevents_a$ == .@chk_yourgdname$) {
 183                         set .@chk_urquest1,checkquest(2144);
 184                         if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) {
 185                                 mes "[Morestone]";
 186                                 mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
 187                                 mes "Oh, you are a member.";
 188                                 mes "Would you like to go to the mysterious area?";
 189                                 next;
 190                                 switch(select("Let's go.:No, thanks.")) {
 191                                 case 1:
 192                                         mes "[Morestone]";
 193                                         mes "I hope you enjoy yourself, my friend.";
 194                                         close2;
 195                                         warp "arug_que01",103,133;
 196                                         end;
 197                                 case 2:
 198                                         mes "[Morestone]";
 199                                         mes "If you need my assistance, just ask.";
 200                                         mes "Ah! Dont forget, I hate monsters! So I don't want to see them. It will be better if you ask for another favour.";
 201                                         close;
 202                                 }
 203                         }
 204                         else {
 205                                 set $@gdeventv_a1,1;
 206                                 set $@gdevents_a$,.@chk_yourgdname$;
 207                                 mes "[Dwarf]";
 208                                 mes "Help me!";
 209                                 mes "Please, help me!";
 210                                 next;
 211                                 switch(select("What happened?:Nevermind.")) {
 212                                 case 1:
 213                                         mes "[Dwarf]";
 214                                         mes "I am Morestone and I collect rare gems.";
 215                                         next;
 216                                         mes "[Morestone]";
 217                                         mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
 218                                         mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
 219                                         next;
 220                                         select("Pickaxe!");
 221                                         mes "[Morestone]";
 222                                         mes "Yes, my beloved pickaxe!";
 223                                         mes "I always carry it with me, you know?";
 224                                         next;
 225                                         mes "[Morestone]";
 226                                         mes "We started working here together.";
 227                                         mes "After a few days, we finally found something!";
 228                                         next;
 229                                         select("Something strange??");
 230                                         mes "[Morestone]";
 231                                         mes "No, but it was worth quite alot.";
 232                                         mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
 233                                         mes "His name was^3131FFKublin^000000!";
 234                                         next;
 235                                         mes "[Morestone]";
 236                                         mes "He stole my Pickaxe!";
 237                                         mes "I can't live without it...";
 238                                         next;
 239                                         if (countitem(6010) > 0) {
 240                                                 mes "[" + strcharinfo(0) + "]";
 241                                                 mes "Is this the pickaxe that you've been looking for?";
 242                                                 next;
 243                                                 mes "[Morestone]";
 244                                                 mes "You found my Pickaxe?";
 245                                                 mes "Show me, please!";
 246                                                 next;
 247                                                 mes "[Morestone]";
 248                                                 mes "Oh, my! You've returned it to me!";
 249                                                 mes "My precious pickaxe, I thought I lost you forever.";
 250                                                 next;
 251                                                 mes "[Morestone]";
 252                                                 mes "You are great! What guild are you from?";
 253                                                 mes "Could it be Gravity or Mercury?";
 254                                                 next;
 255                                                 mes "[" + strcharinfo(0) + "]";
 256                                                 mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
 257                                                 next;
 258                                                 mes "[Morestone]";
 259                                                 mes "Oh... That guild will receive my greatest respect.";
 260                                                 next;
 261                                                 mes "[Morestone]";
 262                                                 mes "Oh! My friend, I am very grateful for your help.";
 263                                                 mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
 264                                                 next;
 265                                                 select("A mysterious area?");
 266                                                 mes "[Morestone]";
 267                                                 mes "That's right. I found it when I was digging around here.";
 268                                                 mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
 269                                                 next;
 270                                                 mes "[Morestone]";
 271                                                 mes "Instead of going there alone, I think it would be more fun to go with your friends...";
 272                                                 next;
 273                                                 mes "[Morestone]";
 274                                                 mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
 275                                                 mes "Do you want to go there now?";
 276                                                 next;
 277                                                 switch(select("Wait! I'm not ready yet.:Let's go!")) {
 278                                                 case 1:
 279                                                         set $@gdeventv_a1,0;
 280                                                         set $@gdevents_a$,"";
 281                                                         mes "[Morestone]";
 282                                                         mes "Take your time, and find a place to gather your friends.";
 283                                                         close;
 284                                                 case 2:
 285                                                         mes "[Morestone]";
 286                                                         mes "Alright! Let's go.";
 287                                                         mes "If your friends visit me again later, I will guide them to that area again.";
 288                                                         mes "Don't forget, dwarves are grateful beings! Hahaha!";
 289                                                         delitem 6010,1; //Pickaxe
 290                                                         set $@gdeventv_a1,1;
 291                                                         set $@gdevents_a$,.@chk_yourgdname$;
 292                                                         close2;
 293                                                         setquest 2144;
 294                                                         warp "arug_que01",103,133;
 295                                                         end;
 296                                                 }
 297                                         }
 298                                         else {
 299                                                 set $@gdeventv_a1,0;
 300                                                 set $@gdevents_a$,"";
 301                                                 mes "[Morestone]";
 302                                                 mes "I will tell you how to find him.";
 303                                                 mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
 304                                                 close;
 305                                         }
 306                                 case 2:
 307                                         set $@gdeventv_a1,0;
 308                                         set $@gdevents_a$,"";
 309                                         emotion e_sob;
 310                                         mes "[Dwarf]";
 311                                         mes "Ah....";
 312                                         close;
 313                                 }
 314                         }
 315                 }
 316                 else {
 317                         mes "[Morestone]";
 318                         mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
 319                         mes "Hm, you're not a member.";
 320                         mes "Could you please give them my greetings?";
 321                         close;
 322                 }
 323         }
 324         else {
 325                 if ($@gdevents_a$ == .@chk_yourgdname$) {
 326                         set .@chk_urquest1,checkquest(2144);
 327                         if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) {
 328                                 mes "[Morestone]";
 329                                 mes "[Morestone]";
 330                                 mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
 331                                 mes "Oh, you are a member.";
 332                                 mes "Would you like to go to the mysterious area?";
 333                                 next;
 334                                 switch(select("Let's go.:No, thanks.")) {
 335                                 case 1:
 336                                         mes "[Morestone]";
 337                                         mes "I hope you enjoy yourself, my friend.";
 338                                         close2;
 339                                         warp "arug_que01",103,133;
 340                                         end;
 341                                 case 2:
 342                                         mes "[Morestone]";
 343                                         mes "If you need my assistance, just ask.";
 344                                         mes "Ah! Dont forget, I hate monsters! So I don't want to see them. It will be better if you ask for another favour.";
 345                                         close;
 346                                 }
 347                         }
 348                         else {
 349                                 set $@gdeventv_a1,1;
 350                                 set $@gdevents_a$,.@chk_yourgdname$;
 351                                 mes "[Dwarf]";
 352                                 mes "Help me!";
 353                                 mes "Please, help me!";
 354                                 next;
 355                                 switch(select("What happened?:Nevermind.")) {
 356                                 case 1:
 357                                         mes "[Dwarf]";
 358                                         mes "I am Morestone and I collect rare gems.";
 359                                         next;
 360                                         mes "[Morestone]";
 361                                         mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
 362                                         mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
 363                                         next;
 364                                         select("Pickaxe!");
 365                                         mes "[Morestone]";
 366                                         mes "Yes, my beloved pickaxe!";
 367                                         mes "I always carry it with me, you know?";
 368                                         next;
 369                                         mes "[Morestone]";
 370                                         mes "We started working here together.";
 371                                         mes "After a few days, we finally found something!";
 372                                         next;
 373                                         select("Something strange??");
 374                                         mes "[Morestone]";
 375                                         mes "No, but it was worth quite alot.";
 376                                         mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
 377                                         mes "His name was^3131FFKublin^000000!";
 378                                         next;
 379                                         mes "[Morestone]";
 380                                         mes "He stole my Pickaxe!";
 381                                         mes "I can't live without it...";
 382                                         next;
 383                                         if (countitem(6010) > 0) {
 384                                                 mes "[" + strcharinfo(0) + "]";
 385                                                 mes "Is this the pickaxe that you've been looking for?";
 386                                                 next;
 387                                                 mes "[Morestone]";
 388                                                 mes "You found my Pickaxe?";
 389                                                 mes "Show me, please!";
 390                                                 next;
 391                                                 mes "[Morestone]";
 392                                                 mes "Oh, my! You've returned it to me!";
 393                                                 mes "My precious pickaxe, I thought I lost you forever.";
 394                                                 next;
 395                                                 mes "[Morestone]";
 396                                                 mes "You are great! What guild are you from?";
 397                                                 mes "Could it be Gravity or Mercury?";
 398                                                 next;
 399                                                 mes "[" + strcharinfo(0) + "]";
 400                                                 mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
 401                                                 next;
 402                                                 mes "[Morestone]";
 403                                                 mes "Oh... That guild will receive my greatest respect.";
 404                                                 next;
 405                                                 mes "[Morestone]";
 406                                                 mes "Oh! My friend, I am very grateful for your help.";
 407                                                 mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
 408                                                 next;
 409                                                 select("A mysterious area?");
 410                                                 mes "[Morestone]";
 411                                                 mes "That's right. I found it when I was digging around here.";
 412                                                 mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
 413                                                 next;
 414                                                 mes "[Morestone]";
 415                                                 mes "Instead of going there alone, I think it would be more fun to go with your friends...";
 416                                                 next;
 417                                                 mes "[Morestone]";
 418                                                 mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
 419                                                 mes "Do you want to go there now?";
 420                                                 next;
 421                                                 switch(select("Wait! I'm not ready yet.:Let's go!")) {
 422                                                 case 1:
 423                                                         set $@gdeventv_a1,0;
 424                                                         set $@gdevents_a$,"";
 425                                                         mes "[Morestone]";
 426                                                         mes "Take your time, and find a place to gather you friends.";
 427                                                         close;
 428                                                 case 2:
 429                                                         mes "[Morestone]";
 430                                                         mes "Alright! Let's go.";
 431                                                         mes "If your friends visit me again later, I will guide them to that area again.";
 432                                                         mes "Don't forget, dwarves are grateful beings! Hahaha!";
 433                                                         delitem 6010,1; //Pickaxe
 434                                                         set $@gdeventv_a1,1;
 435                                                         set $@gdevents_a$,.@chk_yourgdname$;
 436                                                         close2;
 437                                                         setquest 2144;
 438                                                         warp "arug_que01",103,133;
 439                                                         end;
 440                                                 }
 441                                         }
 442                                         else {
 443                                                 set $@gdeventv_a1,0;
 444                                                 set $@gdevents_a$,"";
 445                                                 mes "[Morestone]";
 446                                                 mes "I will tell you how to find him.";
 447                                                 mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
 448                                                 close;
 449                                         }
 450                                 case 2:
 451                                         set $@gdeventv_a1,0;
 452                                         set $@gdevents_a$,"";
 453                                         emotion e_sob;
 454                                         mes "[Dwarf]";
 455                                         mes "Ah....";
 456                                         close;
 457                                 }
 458                         }
 459                 }
 460                 else {
 461                         mes "[Morestone]";
 462                         mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
 463                         mes "Hm, you're not a member.";
 464                         mes "Could you please give them my greetings?";
 465                         close;
 466                 }
 467         }
 468         end;
 469
 470 OnInit:
 471         disablenpc "Dwarf#aru_gd";
 472         set $@gdeventv_a1,0;
 473         set $@gdevents_a$,"";
 474         end;
 475
 476 OnEnable:
 477         enablenpc "Dwarf#aru_gd";
 478         end;
 479 }
 480
 481 arug_que01,100,81,3     script  Pierrot Pier#aru_gd     715,{
 482         specialeffect EF_POISONHIT;
 483         set .@sprchg_gd,rand(1,5);
 484         if (.@sprchg_gd == 1) {
 485                 setnpcdisplay "Pierrot Pier#aru_gd",950;
 486         }
 487         else if (.@sprchg_gd == 2) {
 488                 setnpcdisplay "Pierrot Pier#aru_gd",715;
 489         }
 490         else if (.@sprchg_gd == 3) {
 491                 setnpcdisplay "Pierrot Pier#aru_gd",714;
 492         }
 493         else if (.@sprchg_gd == 4) {
 494                 setnpcdisplay "Pierrot Pier#aru_gd",785;
 495         }
 496         else {
 497                 setnpcdisplay "Pierrot Pier#aru_gd",876;
 498         }
 499         if (checkweight(1201,1) == 0) {
 500                 mes "- Wait!! -";
 501                 mes "- You're carrying too many items, -";
 502                 mes "- you can't receive the materials. -";
 503                 mes "- Please use the Kafra Services, -";
 504                 mes "- and come back later. -";
 505                 close;
 506         }
 507         if (strcharinfo(0) == getguildmaster(getcharid(2))) {
 508                 if ($@gdeventv_a2 == 0) {
 509                         set .@que_2143,checkquest(2143,PLAYTIME);
 510                         if (.@que_2143 == -1) {
 511                                 setnpcdisplay "Pierrot Pier#aru_gd",715;
 512                                 mes "A lonely clown is juggling.";
 513                                 next;
 514                                 mes "When looked at closely, the clown is just a puppet that looks like a human.";
 515                                 next;
 516                                 mes "The clown stops, then starts moving in accordance to your movements, noises start to emit from it's mouth.";
 517                                 next;
 518                                 mes "[Pierrot Pier]";
 519                                 mes "Beep beep beep.";
 520                                 mes "Hello, my friends!";
 521                                 mapannounce "arug_que01", "Pierrot Pier: Beep beep beep! Hello, my friends!",bc_map,"0x99CC00";
 522                                 next;
 523                                 mes "[Pierrot Pier]";
 524                                 mes "I am the loyal servant of Gergath, and I have finally received my orders.";
 525                                 mes "I am happy to hear all the laughter, but without my master's permission, I can't do anything.";
 526                                 mapannounce "arug_que01", "Pierrot Pier: I am happy to hear all the laughter, but without my master's permission, I can't do anything.",bc_map,"0x99CC00";
 527                                 next;
 528                                 mes "[Pierrot Pier]";
 529                                 mes "Did you get permission from Gergath?";
 530                                 mapannounce "arug_que01", "Pierrot Pier: Did you get permission from Gergath?",bc_map,"0x99CC00";
 531                                 next;
 532                                 switch(select("I need to check that.:No.")) {
 533                                 case 1:
 534                                         mes "[Pierrot Pier]";
 535                                         mes "Please give me the palm of your hand.";
 536                                         mapannounce "arug_que01", "Pierrot Pier: Please give me the palm of your hand.",bc_map,"0x99CC00";
 537                                         next;
 538                                         mes "[Pierrot Pier]";
 539                                         mes "Let me see...";
 540                                         mapannounce "arug_que01", "Pierrot Pier: Let me see...",bc_map,"0x99CC00";
 541                                         next;
 542                                         emotion e_dots;
 543                                         mes "[Pierrot Pier]";
 544                                         mes "Hm...";
 545                                         mapannounce "arug_que01", "Pierrot Pier: Hm...",bc_map,"0x99CC00";
 546                                         next;
 547                                         emotion e_dots;
 548                                         mes "[Pierrot Pier]";
 549                                         mes "Okay, I see...";
 550                                         mapannounce "arug_que01", "Pierrot Pier: Okay, I see...",bc_map,"0x99CC00";
 551                                         next;
 552                                         emotion e_dots;
 553                                         mes "[Pierrot Pier]";
 554                                         mes "Indeed...";
 555                                         mapannounce "arug_que01", "Pierrot Pier: Indeed...",bc_map,"0x99CC00";
 556                                         next;
 557                                         emotion e_bzz;
 558                                         mes "[Pierrot Pier]";
 559                                         mes "Verification completed!";
 560                                         mapannounce "arug_que01", "Pierrot Pier: Verification completed!",bc_map,"0x99CC00";
 561                                         next;
 562                                         break;
 563                                 case 2:
 564                                         mes "[Pierrot Pier]";
 565                                         mes "Hm? that's right.";
 566                                         mes "When is that person coming? I am very bored~!";
 567                                         close;
 568                                 }
 569                                 mes "[Pierrot Pier]";
 570                                 mes "^3131FF<You're someone who can only think about nonsense everyday, you have no focus at all.>^000000";
 571                                 mapannounce "arug_que01", "Pierrot Pier: <You're someone who can only think about nonsense everyday, you have no focus at all.>",bc_map,"0x99CC00";
 572                                 next;
 573                                 emotion e_ho;
 574                                 mes "[Pierrot Pier]";
 575                                 mes "Hm? You don't think so?";
 576                                 mapannounce "arug_que01", "Pierrot Pier: Hm? You don't think so?",bc_map,"0x99CC00";
 577                                 next;
 578                                 emotion e_heh;
 579                                 mes "[Pierrot Pier]";
 580                                 mes "Haha, I'm just kidding. Beep beep.";
 581                                 mes "Ah, you are the one my master speaks of.";
 582                                 mapannounce "arug_que01", "Pierrot Pier: Haha, I'm just kidding. Beep beep. You are the one my master speaks of.",bc_map,"0x99CC00";
 583                                 next;
 584                                 mes "[Pierrot Pier]";
 585                                 mes "Come, the Gergath has left a message for you.";
 586                                 mes "It's a bit old, but it should still be legible.";
 587                                 next;
 588                                 mes "[Pierrot Pier]";
 589                                 mes "Alright, let's begin!";
 590                                 setquest 2143;
 591                                 donpcevent "Gergath#aru_gd::OnEnable";
 592                                 close;
 593                         }
 594                         else if ((.@que_2143 == 0) || (.@que_2143 == 1)) {
 595                                 mes "[Pierrot Pier]";
 596                                 mes "Let's talk after I finished reading my master's message. Beep beep.";
 597                                 close;
 598                         }
 599                         else {
 600                                 mes "[Pierrot Pier]";
 601                                 mes "My master Gergath sincerely wishes you joy for you and your family everyday.";
 602                                 next;
 603                                 mes "[Pierrot Pier]";
 604                                 mes "Alright, would you like to play the game Gergath has prepared for you?";
 605                                 next;
 606                                 switch(select("Game instructions.:Skip instructions.:Refuse game.")) {
 607                                 case 1:
 608                                         mes "[Pierrot Pier]";
 609                                         mes "The game prepared by my master is very unique, yet simple and fun!";
 610                                         mapannounce "arug_que01", "Pierrot Pier: The game prepared by my lord is very unique, yet simple and fun!",bc_map,"0x99CC00";
 611                                         next;
 612                                         mes "[Pierrot Pier]";
 613                                         mes "It's called \"Find the Treasure Map\"!!";
 614                                         mapannounce "arug_que01", "Pierrot Pier: It's called \"Find the Treasure Map\"!!",bc_map,"0x99CC00";
 615                                         next;
 616                                         mes "[Pierrot Pier]";
 617                                         mes "Do you see this large and green field? Beep, beep?";
 618                                         mes "I will show you the most incredible magic here.";
 619                                         mes "I will turn this place very white. Veeery white!";
 620                                         mapannounce "arug_que01", "Pierrot Pier: I will turn this place very white. Veeery white!",bc_map,"0x99CC00";
 621                                         next;
 622                                         mes "[Pierrot Pier]";
 623                                         mes "The game instruction is just to find the treasure map within the time limit.";
 624                                         mes "Sounds easy, right?";
 625                                         mapannounce "arug_que01", "Pierrot Pier: The game instruction is just to find the treasure map within the time limit. ounds easy, right?",bc_map,"0x99CC00";
 626                                         next;
 627                                         break;
 628                                 case 2:
 629                                         break;
 630                                 case 3:
 631                                         emotion e_sob;
 632                                         mes "[Pierrot Pier]";
 633                                         mes "Oh, you don't want to play?";
 634                                         close;
 635                                 }
 636                                 mes "[Pierrot Pier]";
 637                                 mes "Okay, I'm ready to begin.";
 638                                 mes "Shall we start? Beep, beep?";
 639                                 next;
 640                                 switch(select("No.:Start.")) {
 641                                 case 1:
 642                                         mes "[Pierrot Pier]";
 643                                         mes "Let me know when you are ready.";
 644                                         close;
 645                                 case 2:
 646                                         mes "[Pierrot Pier]";
 647                                         mes "Alright! Let us begin!";
 648                                         next;
 649                                         mes "[Pierrot Pier]";
 650                                         mes "Ladies, and gentlemen.";
 651                                         mapannounce "arug_que01", "Pierrot Pier: Ladies, and gentlemen.",bc_map,"0x99CC00";
 652                                         next;
 653                                         mes "[Pierrot Pier]";
 654                                         mes "Who will find the treasure map in this white world?";
 655                                         mapannounce "arug_que01", "Pierrot Pier: Who will find the treasure map in this white world?",bc_map,"0x99CC00";
 656                                         next;
 657                                         mes "[Pierrot Pier]";
 658                                         mes "Amongst all of you, who shall be the lucky one?";
 659                                         mapannounce "arug_que01", "Pierrot Pier: Amongst all of you, who shall be the lucky one?",bc_map,"0x99CC00";
 660                                         next;
 661                                         mes "[Pierrot Pier]";
 662                                         mes "Let the game.. Begin!";
 663                                         mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00";
 664                                         set $@gdeventv_a2,1;
 665                                         donpcevent "Controller#gdevent_a::Ongame_start";
 666                                         erasequest 2143;
 667                                         close;
 668                                 }
 669                         }
 670                 }
 671                 else if ($@gdeventv_a2 == 1) {
 672                         mes "[Pierrot Pier]";
 673                         mes "Did you find the treasure map?";
 674                         mes "Show me what you have in your hands! Beep, beep!";
 675                         next;
 676                         mes "[Pierrot Pier]";
 677                         mes "Let me see...";
 678                         next;
 679                         if (countitem(6031) > 0) {
 680                                 donpcevent "Controller#gdevent_a::OnStop";
 681                                 set $@gdeventv_a2,3;
 682                                 donpcevent "eff_mvp#aru_gd::Onmvp";
 683                                 mes "[Pierrot Pier]";
 684                                 mes "Wow~~!!";
 685                                 mes "Success~!!";
 686                                 mes "What a success~!!";
 687                                 mapannounce "arug_que01", "Pierrot Pier: Wow~~!! Success~!! What a success~!!",bc_map,"0x99CC00";
 688                                 delitem 6031,1; //Glitering_PaperB
 689                                 close;
 690                         }
 691                         else {
 692                                 if (countitem(6030) > 0) {
 693                                         mes "[Pierrot Pier]";
 694                                         mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
 695                                         mes "Quickly! Your time is running out! Hurry up!";
 696                                         close;
 697                                 }
 698                                 else {
 699                                         mes "[Pierrot Pier]";
 700                                         mes "I don't see anything. Have you even started yet? Beep?";
 701                                         mes "Hehe, while you're talking to me, the time is slowly ticking away~";
 702                                         close;
 703                                 }
 704                         }
 705                 }
 706                 else if ($@gdeventv_a2 == 2) {
 707                         mes "[Pierrot Pier]";
 708                         mes "Wah, why is it like this~!!";
 709                         mes "Not enough? But this makes the game fun, no? Hahaha!";
 710                         next;
 711                         mes "[Pierrot Pier]";
 712                         mes "What did you think?";
 713                         next;
 714                         switch(select("It was pretty hard.:I should've been successful...")) {
 715                         case 1:
 716                                 mes "[Pierrot Pier]";
 717                                 mes "It's like trying to find a needle in a haystack!";
 718                                 mes "It's hard, but if you find it, it's worth ten times the effort. Beep, beep.";
 719                                 next;
 720                                 break;
 721                         case 2:
 722                                 mes "[Pierrot Pier]";
 723                                 mes "Aaah~! Time is gold.";
 724                                 mes "Precious time goes by so fast.";
 725                                 next;
 726                                 break;
 727                         }
 728                         mes "[Pierrot Pier]";
 729                         mes "I, Pierrot Piere, am not a heartless clown! Beep beep.";
 730                         mapannounce "arug_que01", "Pierrot Pier: I, Pierrot Piere, am not a heartless clown! Beep beep.",bc_map,"0x99CC00";
 731                         next;
 732                         mes "[Pierrot Pier]";
 733                         mes "Your success is my happiness!";
 734                         mes "I'll give you one more chance. How's that? Beep?";
 735                         mapannounce "arug_que01", "Pierrot Pier: I'll give you one more chance. How's that? Beep?",bc_map,"0x99CC00";
 736                         next;
 737                         mes "[Pierrot Pier]";
 738                         mes "Okay, I'm ready to begin.";
 739                         mes "Shall we start? Beep, beep?";
 740                         mapannounce "arug_que01", "Pierrot Pier: Okay, I'm ready to begin. Shall we start? Beep, beep?",bc_map,"0x99CC00";
 741                         next;
 742                         switch(select("No.:Start.")) {
 743                         case 1:
 744                                 mes "[Pierrot Pier]";
 745                                 mes "Let me know when you are ready.";
 746                                 close;
 747                         case 2:
 748                                 mes "[Pierrot Pier]";
 749                                 mes "Alright! Let us begin!";
 750                                 next;
 751                                 mes "[Pierrot Pier]";
 752                                 mes "Ladies, and gentlemen.";
 753                                 mapannounce "arug_que01", "Pierrot Pier: Ladies, and gentlemen.",bc_map,"0x99CC00";
 754                                 next;
 755                                 mes "[Pierrot Pier]";
 756                                 mes "Who will find the treasure map in this white world?";
 757                                 mapannounce "arug_que01", "Pierrot Pier: Who will find the treasure map in this white world?",bc_map,"0x99CC00";
 758                                 next;
 759                                 mes "[Pierrot Pier]";
 760                                 mes "Amongst all of you, who shall be the lucky one?";
 761                                 mapannounce "arug_que01", "Pierrot Pier: Amongst all of you, who shall be the lucky one?",bc_map,"0x99CC00";
 762                                 next;
 763                                 mes "[Pierrot Pier]";
 764                                 mes "Let the game.. Begin!";
 765                                 mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00";
 766                                 set $@gdeventv_a2,10;
 767                                 donpcevent "Controller#gdevent_a::Ongame_start";
 768                                 close;
 769                         }
 770                 }
 771                 else if ($@gdeventv_a2 == 3) {
 772                         set .@que_2143,checkquest(2143);
 773                         if (.@que_2143 == 3) {
 774                                 erasequest 2143;
 775                         }
 776                         mes "[Pierrot Pier]";
 777                         mes "How did you do it?";
 778                         mapannounce "arug_que01", "Pierrot Pier: How did you do it?",bc_map,"0x99CC00";
 779                         next;
 780                         mes "[Pierrot Pier]";
 781                         mes "You managed to find a needle in a haystack!";
 782                         mes "Amazing!";
 783                         mapannounce "arug_que01", "Pierrot Pier: You managed to find a needle in a haystack! Amazing!!",bc_map,"0x99CC00";
 784                         next;
 785                         mes "[Pierrot Pier]";
 786                         mes "You've completeled an unbelievable task, I will give you the wonderful gift master has prepared!! Ha!";
 787                         mapannounce "arug_que01", "Pierrot Pier: You've completeled an unbelievable task, I will give you the wonderful gift my master has prepared!! Ha!",bc_map,"0x99CC00";
 788                         mapannounce "arug_que01", "Pierrot Pier: Here, take Pierre's Treasure Boxes.",bc_map,"0x99CC00";
 789                         donpcevent "eff_mvp#aru_gd::Onmvp";
 790                         set $@gdeventv_a2,5;
 791                         getitem 14596,10; //Pierre_Treasurebox
 792                         close;
 793                 }
 794                 else if ($@gdeventv_a2 == 4) {
 795                         mes "[Pierrot Pier]";
 796                         mes "Incredible! Unbelievable! Beep beep!";
 797                         close;
 798                 }
 799                 else if ($@gdeventv_a2 == 5) {
 800                         mapannounce "arug_que01", "Pierrot Pier: Seeing your smiles, makes Pierrot feel very happy~ See you next time!",bc_map,"0x99CC00";
 801                         mes "[Pierrot Pier]";
 802                         mes "Did you have fun?";
 803                         next;
 804                         mes "[Pierrot Pier]";
 805                         mes "Seeing your smiles, makes Pierrot feel very happy~";
 806                         next;
 807                         mes "[Pierrot Pier]";
 808                         mes "I hope to see you again very soon, I must go back to being a doll now.";
 809                         mes "See you next time!";
 810                         erasequest 2144;
 811                         close;
 812                 }
 813                 else {
 814                         mes "[Pierrot Pier]";
 815                         mes "Did you find the treasure map?";
 816                         mes "Show me what you have in your hands! Beep, beep!";
 817                         next;
 818                         mes "[Pierrot Pier]";
 819                         mes "Let me see.";
 820                         next;
 821                         if (countitem(6031) > 0) {
 822                                 donpcevent "Controller#gdevent_a::OnStop";
 823                                 set $@gdeventv_a2,3;
 824                                 donpcevent "eff_mvp#aru_gd::Onmvp";
 825                                 mes "[Pierrot Pier]";
 826                                 mes "Wow~~!!";
 827                                 mes "Success~!!";
 828                                 mes "What a success~!!";
 829                                 delitem 6031,1; //Glitering_PaperB
 830                                 close;
 831                         }
 832                         else {
 833                                 if (countitem(6030) > 0) {
 834                                         mes "[Pierrot Pier]";
 835                                         mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
 836                                         mes "Quickly! Your time is running out! Hurry up!";
 837                                         close;
 838                                 }
 839                                 else {
 840                                         mes "[Pierrot Pier]";
 841                                         mes "I don't see anything. Have you even started yet? Beep?";
 842                                         mes "Hehe, while you're talking to me, the time is slowly ticking away~";
 843                                         close;
 844                                 }
 845                         }
 846                 }
 847         }
 848         else {
 849                 if ($@gdeventv_a2 == 0) {
 850                         setnpcdisplay "Pierrot Pier#aru_gd",715;
 851                         mes "A lonely clown is juggling.";
 852                         next;
 853                         mes "When looked at closely, the clown is just a puppet that looks like a human.";
 854                         next;
 855                         mes "The clown stops, then starts moving in accordance to your movements, noises start to emit from it's mouth.";
 856                         next;
 857                         mes "[Pierrot Pier]";
 858                         mes "Beep beep beep.";
 859                         mes "Hello, my friends!";
 860                         mapannounce "arug_que01", "Pierrot Pier: Beep beep beep! Hello, my friends!",bc_map,"0x99CC00";
 861                         next;
 862                         mes "[Pierrot Pier]";
 863                         mes "I am the loyal servant of Gergath, and I have finally received my orders.";
 864                         mes "I am happy to hear all the laughter, but without my master's permission, I can't do anything.";
 865                         mapannounce "arug_que01", "Pierrot Pier: I am happy to hear all the laughter, but without my master's permission, I can't do anything.",bc_map,"0x99CC00";
 866                         next;
 867                         mes "[Pierrot Pier]";
 868                         mes "Did you get permission from the Gergath?";
 869                         mapannounce "arug_que01", "Pierrot Pier: Did you get permission from Gergath?",bc_map,"0x99CC00";
 870                         next;
 871                         switch(select("I need to check that.:No.")) {
 872                         case 1:
 873                                 mes "[Pierrot Pier]";
 874                                 mes "Please give me the palm of your hand.";
 875                                 mapannounce "arug_que01", "Pierrot Pier: Please give me the palm of your hand.",bc_map,"0x99CC00";
 876                                 next;
 877                                 mes "[Pierrot Pier]";
 878                                 mes "Let me see...";
 879                                 mapannounce "arug_que01", "Pierrot Pier: Let me see...",bc_map,"0x99CC00";
 880                                 next;
 881                                 emotion e_dots;
 882                                 mes "[Pierrot Pier]";
 883                                 mes "Hm...";
 884                                 mapannounce "arug_que01", "Pierrot Pier: Hm...",bc_map,"0x99CC00";
 885                                 next;
 886                                 emotion e_dots;
 887                                 mes "[Pierrot Pier]";
 888                                 mes "Okay, I see...";
 889                                 mapannounce "arug_que01", "Pierrot Pier: Okay, I see...",bc_map,"0x99CC00";
 890                                 next;
 891                                 emotion e_dots;
 892                                 mes "[Pierrot Pier]";
 893                                 mes "Indeed...";
 894                                 mapannounce "arug_que01", "Pierrot Pier: Indeed...",bc_map,"0x99CC00";
 895                                 next;
 896                                 emotion e_bzz;
 897                                 mes "[Pierrot Pier]";
 898                                 mes "Verification completed!";
 899                                 mapannounce "arug_que01", "Pierrot Pier: Verification completed!",bc_map,"0x99CC00";
 900                                 next;
 901                                 break;
 902                         case 2:
 903                                 mes "[Pierrot Pier]";
 904                                 mes "Hm? that's right.";
 905                                 mes "When is that person coming? I am very bored~!";
 906                                 close;
 907                         }
 908                         emotion e_heh;
 909                         mes "[Pierrot Pier]";
 910                         mes "^3131FF<Although you're a weirdo, you seem to be very dedicated>^000000. Beep beep.";
 911                         next;
 912                         emotion e_swt2;
 913                         mes "[Pierrot Pier]";
 914                         mes "Hm? You don't think so?";
 915                         next;
 916                         mes "[Pierrot Pier]";
 917                         mes "The one my lord appointed is ^3131FF< someone who leads many people >^000000. Beep.";
 918                         next;
 919                         mes "[Pierrot Pier]";
 920                         mes "Pierrot wants to be someone like that, too. Beep.";
 921                         close;
 922                 }
 923                 else if ($@gdeventv_a2 == 1) {
 924                         mes "[Pierrot Pier]";
 925                         mes "Did you find the treasure map?";
 926                         mes "Show me what you have in your hands! Beep, beep!";
 927                         next;
 928                         mes "[Pierrot Pier]";
 929                         mes "Let me see...";
 930                         next;
 931                         if (countitem(6031) > 0) {
 932                                 donpcevent "Controller#gdevent_a::OnStop";
 933                                 set $@gdeventv_a2,3;
 934                                 donpcevent "eff_mvp#aru_gd::Onmvp";
 935                                 mes "[Pierrot Pier]";
 936                                 mes "Wow~~!!";
 937                                 mes "Success~!!";
 938                                 mes "What a success~!!";
 939                                 mapannounce "arug_que01", "Pierrot Pier: Wow~~!! Success~!! What a success~!!",bc_map,"0x99CC00";
 940                                 delitem 6031,1; //Glitering_PaperB
 941                                 close;
 942                         }
 943                         else {
 944                                 if (countitem(6030) > 0) {
 945                                         mes "[Pierrot Pier]";
 946                                         mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
 947                                         mes "Quickly! Your time is running out! Hurry up!";
 948                                         close;
 949                                 }
 950                                 else {
 951                                         mes "[Pierrot Pier]";
 952                                         mes "I don't see anything. Have you even started yet? Beep?";
 953                                         mes "Hehe, while you're talking to me, the time is slowly ticking away~";
 954                                         close;
 955                                 }
 956                         }
 957                 }
 958                 else if ($@gdeventv_a2 == 2) {
 959                         mes "[Pierrot Pier]";
 960                         mes "Wah, why is it like this~!!";
 961                         mes "Not enough? But this makes the game fun, no? Hahaha!";
 962                         close;
 963                 }
 964                 else if ($@gdeventv_a2 == 3) {
 965                         mes "[Pierrot Pier]";
 966                         mes "Congratulations, you have succeeded!";
 967                         mes "I will talk to your leader about other details.";
 968                         close;
 969                 }
 970                 else if ($@gdeventv_a2 == 4) {
 971                         mes "[Pierrot Pier]";
 972                         mes "Incredible! Unbelievable! Beep beep!";
 973                         close;
 974                 }
 975                 else if ($@gdeventv_a2 == 5) {
 976                         mes "[Pierrot Pier]";
 977                         mes "Did you have fun?";
 978                         next;
 979                         mes "[Pierrot Pier]";
 980                         mes "Seeing your smiles, makes Pierrot feel very happy~";
 981                         next;
 982                         mes "[Pierrot Pier]";
 983                         mes "I hope to see you again very soon, I must go back to being a doll now.";
 984                         mes "See you next time!";
 985                         close;
 986                 }
 987                 else {
 988                         mes "[Pierrot Pier]";
 989                         mes "Did you find the treasure?";
 990                         mes "Show me that thing you are holding, now!";
 991                         next;
 992                         mes "[Pierrot Pier]";
 993                         mes "Let me see...";
 994                         next;
 995                         if (countitem(6031) > 0) {
 996                                 donpcevent "Controller#gdevent_a::OnStop";
 997                                 set $@gdeventv_a2,3;
 998                                 donpcevent "eff_mvp#aru_gd::Onmvp";
 999                                 mes "[Pierrot Pier]";
1000                                 mes "Wow~~!!";
1001                                 mes "Success~!!";
1002                                 mes "What a success~!!";
1003                                 delitem 6031,1; //Glitering_PaperB
1004                                 close;
1005                         }
1006                         else {
1007                                 if (countitem(6030) > 0) {
1008                                         mes "[Pierrot Pier]";
1009                                         mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
1010                                         mes "Quickly! Your time is running out! Hurry up!";
1011                                         close;
1012                                 }
1013                                 else {
1014                                         mes "[Pierrot Pier]";
1015                                         mes "I don't see anything. Have you even started yet? Beep?";
1016                                         mes "Hehe, while you're talking to me, the time is slowly ticking away~";
1017                                         close;
1018                                 }
1019                         }
1020                 }
1021         }
1022 }
1023
1024 arug_que01,10,10,3      script  Controller#gdevent_a    81,{
1025 OnInit:
1026         set $@gdeventv_a2,0;
1027         end;
1028
1029 Onwin:
1030         donpcevent "treg#aru_gd::OnEnable";
1031         end;
1032
1033 Ongame_start:
1034         initnpctimer;
1035         donpcevent "paper_sp_1_a::OnEnable";
1036         donpcevent "paper_sp_2_a::OnEnable";
1037         donpcevent "paper_sp_3_a::OnEnable";
1038         donpcevent "paper_sp_4_a::OnEnable";
1039         donpcevent "paper_sp_5_a::OnEnable";
1040         donpcevent "paper_sp_6_a::OnEnable";
1041         donpcevent "paper_sp_7_a::OnEnable";
1042         donpcevent "paper_sp_8_a::OnEnable";
1043         donpcevent "paper_sp_9_a::OnEnable";
1044         set .@roulette_where,rand(1,9);
1045         if (.@roulette_where == 1) {
1046                 donpcevent "paper_sp_1_a::OnBingo";
1047         }
1048         else if (.@roulette_where == 2) {
1049                 donpcevent "paper_sp_2_a::OnBingo";
1050         }
1051         else if (.@roulette_where == 3) {
1052                 donpcevent "paper_sp_3_a::OnBingo";
1053         }
1054         else if (.@roulette_where == 4) {
1055                 donpcevent "paper_sp_4_a::OnBingo";
1056         }
1057         else if (.@roulette_where == 5) {
1058                 donpcevent "paper_sp_5_a::OnBingo";
1059         }
1060         else if (.@roulette_where == 6) {
1061                 donpcevent "paper_sp_6_a::OnBingo";
1062         }
1063         else if (.@roulette_where == 7) {
1064                 donpcevent "paper_sp_7_a::OnBingo";
1065         }
1066         else if (.@roulette_where == 8) {
1067                 donpcevent "paper_sp_8_a::OnBingo";
1068         }
1069         else {
1070                 donpcevent "paper_sp_9_a::OnBingo";
1071         }
1072         end;
1073
1074 OnStop:
1075         stopnpctimer;
1076         end;
1077
1078 OnTimer40000:
1079         mapannounce "arug_que01", "Pierrot Pier: Time is running out, hurry up!",bc_map,"0x99CC00";
1080         end;
1081
1082 OnTimer60000:
1083         mapannounce "arug_que01", "Pierrot Pier: Time is up!",bc_map,"0x99CC00";
1084         mapwarp "arug_que01","arug_que01",100,79;
1085         enablenpc "removepp_aru_gd";
1086         set $@gdeventv_a2,2;
1087         end;
1088
1089 OnTimer63000:
1090         stopnpctimer;
1091         end;
1092 }
1093
1094 arug_que01,87,93,0      script  paper_sp_1_a    139,{
1095         end;
1096
1097 OnEnable:
1098         set .@paper_while1,0;
1099         while(1) {
1100                 if (.@paper_while1 == 100) {
1101                         break;
1102                 }
1103                 else {
1104                         set .@paper_while1,.@paper_while1+1;
1105                         set .@paper_x1,rand(81,95);
1106                         set .@paper_y1,rand(87,100);
1107                         makeitem 6030,1,"arug_que01",.@paper_x1,.@paper_y1; //Glitering_PaperA
1108                 }
1109         }
1110         end;
1111
1112 OnBingo:
1113         set .@paper_x1,rand(81,95);
1114         set .@paper_y1,rand(87,100);
1115         makeitem 6031,1,"arug_que01",.@paper_x1,.@paper_y1; //Glitering_PaperB
1116         end;
1117 }
1118
1119 arug_que01,102,93,0     script  paper_sp_2_a    139,{
1120         end;
1121
1122 OnEnable:
1123         set .@paper_while2,0;
1124         while(1) {
1125                 if (.@paper_while2 == 100) {
1126                         break;
1127                 }
1128                 else {
1129                         set .@paper_while2,.@paper_while2+1;
1130                         set .@paper_x2,rand(96,110);
1131                         set .@paper_y2,rand(87,100);
1132                         makeitem 6030,1,"arug_que01",.@paper_x2,.@paper_y2; //Glitering_PaperA
1133                 }
1134         }
1135         end;
1136
1137 OnBingo:
1138         set .@paper_x2,rand(96,110);
1139         set .@paper_y2,rand(87,100);
1140         makeitem 6031,1,"arug_que01",.@paper_x2,.@paper_y2; //Glitering_PaperB
1141         end;
1142 }
1143
1144 arug_que01,117,93,0     script  paper_sp_3_a    139,{
1145         end;
1146
1147 OnEnable:
1148         set .@paper_while3,0;
1149         while(1) {
1150                 if (.@paper_while3 == 100) {
1151                         break;
1152                 }
1153                 else {
1154                         set .@paper_while3,.@paper_while3+1;
1155                         set .@paper_x3,rand(111,124);
1156                         set .@paper_y3,rand(87,100);
1157                         makeitem 6030,1,"arug_que01",.@paper_x3,.@paper_y3; //Glitering_PaperA
1158                 }
1159         }
1160         end;
1161
1162 OnBingo:
1163         set .@paper_x3,rand(111,124);
1164         set .@paper_y3,rand(87,100);
1165         makeitem 6031,1,"arug_que01",.@paper_x3,.@paper_y3; //Glitering_PaperB
1166         end;
1167 }
1168
1169 arug_que01,87,80,0      script  paper_sp_4_a    139,{
1170         end;
1171
1172 OnEnable:
1173         set .@paper_while4,0;
1174         while(1) {
1175                 if (.@paper_while4 == 100) {
1176                         break;
1177                 }
1178                 else {
1179                         set .@paper_while4,.@paper_while4+1;
1180                         set .@paper_x4,rand(81,95);
1181                         set .@paper_y4,rand(73,86);
1182                         makeitem 6030,1,"arug_que01",.@paper_x4,.@paper_y4; //Glitering_PaperA
1183                 }
1184         }
1185         end;
1186
1187 OnBingo:
1188         set .@paper_x4,rand(81,95);
1189         set .@paper_y4,rand(73,86);
1190         makeitem 6031,1,"arug_que01",.@paper_x4,.@paper_y4; //Glitering_PaperB
1191         end;
1192 }
1193
1194 arug_que01,102,80,0     script  paper_sp_5_a    139,{
1195         end;
1196
1197 OnEnable:
1198         set .@paper_while5,0;
1199         while(1) {
1200                 if (.@paper_while5 == 100) {
1201                         break;
1202                 }
1203                 else {
1204                         set .@paper_while5,.@paper_while5+1;
1205                         set .@paper_x5,rand(96,110);
1206                         set .@paper_y5,rand(73,86);
1207                         makeitem 6030,1,"arug_que01",.@paper_x5,.@paper_y5; //Glitering_PaperA
1208                 }
1209         }
1210         end;
1211
1212 OnBingo:
1213         set .@paper_x5,rand(96,110);
1214         set .@paper_y5,rand(73,86);
1215         makeitem 6031,1,"arug_que01",.@paper_x5,.@paper_y5; //Glitering_PaperB
1216         end;
1217 }
1218
1219 arug_que01,117,80,0     script  paper_sp_6_a    139,{
1220         end;
1221
1222 OnEnable:
1223         set .@paper_while6,0;
1224         while(1) {
1225                 if (.@paper_while6 == 100) {
1226                         break;
1227                 }
1228                 else {
1229                         set .@paper_while6,.@paper_while6+1;
1230                         set .@paper_x6,rand(111,124);
1231                         set .@paper_y6,rand(73,86);
1232                         makeitem 6030,1,"arug_que01",.@paper_x6,.@paper_y6; //Glitering_PaperA
1233                 }
1234         }
1235         end;
1236
1237 OnBingo:
1238         set .@paper_x6,rand(111,124);
1239         set .@paper_y6,rand(73,86);
1240         makeitem 6031,1,"arug_que01",.@paper_x6,.@paper_y6; //Glitering_PaperB
1241         end;
1242 }
1243
1244 arug_que01,87,65,0      script  paper_sp_7_a    139,{
1245         end;
1246
1247 OnEnable:
1248         set .@paper_while7,0;
1249         while(1) {
1250                 if (.@paper_while7 == 100) {
1251                         break;
1252                 }
1253                 else {
1254                         set .@paper_while7,.@paper_while7+1;
1255                         set .@paper_x7,rand(81,95);
1256                         set .@paper_y7,rand(59,72);
1257                         makeitem 6030,1,"arug_que01",.@paper_x7,.@paper_y7; //Glitering_PaperA
1258                 }
1259         }
1260         end;
1261
1262 OnBingo:
1263         set .@paper_x7,rand(81,95);
1264         set .@paper_y7,rand(59,72);
1265         makeitem 6031,1,"arug_que01",.@paper_x7,.@paper_y7; //Glitering_PaperB
1266         end;
1267 }
1268
1269 arug_que01,102,65,0     script  paper_sp_8_a    139,{
1270         end;
1271
1272 OnEnable:
1273         set .@paper_while8,0;
1274         while(1) {
1275                 if (.@paper_while8 == 100) {
1276                         break;
1277                 }
1278                 else {
1279                         set .@paper_while8,.@paper_while8+1;
1280                         set .@paper_x8,rand(96,110);
1281                         set .@paper_y8,rand(59,72);
1282                         makeitem 6030,1,"arug_que01",.@paper_x8,.@paper_y8; //Glitering_PaperA
1283                 }
1284         }
1285         end;
1286
1287 OnBingo:
1288         set .@paper_x8,rand(96,110);
1289         set .@paper_y8,rand(59,72);
1290         makeitem 6031,1,"arug_que01",.@paper_x8,.@paper_y8; //Glitering_PaperB
1291         end;
1292 }
1293
1294 arug_que01,117,65,0     script  paper_sp_9_a    139,{
1295         end;
1296
1297 OnEnable:
1298         set .@paper_while9,0;
1299         while(1) {
1300                 if (.@paper_while9 == 100) {
1301                         break;
1302                 }
1303                 else {
1304                         set .@paper_while9,.@paper_while9+1;
1305                         set .@paper_x9,rand(111,124);
1306                         set .@paper_y9,rand(59,72);
1307                         makeitem 6030,1,"arug_que01",.@paper_x9,.@paper_y9; //Glitering_PaperA
1308                 }
1309         }
1310         end;
1311
1312 OnBingo:
1313         set .@paper_x9,rand(111,124);
1314         set .@paper_y9,rand(59,72);
1315         makeitem 6031,1,"arug_que01",.@paper_x9,.@paper_y9; //Glitering_PaperB
1316         end;
1317 }
1318
1319 arug_que01,100,80,0     script  removepp_aru_gd -1,5,5,{
1320         end;
1321
1322 OnInit:
1323         disablenpc "removepp_aru_gd";
1324         end;
1325
1326 OnTouch:
1327         set .@paper_aru_gd,countitem(6030);
1328         set .@spaper_aru_gd,countitem(6031);
1329         if ((.@paper_aru_gd > 0) || (.@spaper_aru_gd > 0)) {
1330                 delitem 6030,.@paper_aru_gd; //Glitering_PaperA
1331                 delitem 6031,.@spaper_aru_gd; //Glitering_PaperB
1332         }
1333         end;
1334 }
1335
1336 arug_que01,6,6,1        script  eff_mvp#aru_gd  844,{
1337         end;
1338
1339 Onmvp:
1340         initnpctimer;
1341         end;
1342
1343 OnTimer1000:
1344         specialeffect EF_MVP,AREA,"paper_sp_1_a";
1345         specialeffect EF_MVP,AREA,"paper_sp_3_a";
1346         specialeffect EF_MVP,AREA,"paper_sp_5_a";
1347         specialeffect EF_MVP,AREA,"paper_sp_7_a";
1348         specialeffect EF_MVP,AREA,"paper_sp_9_a";
1349         end;
1350
1351 OnTimer2000:
1352         specialeffect EF_MVP,AREA,"paper_sp_2_a";
1353         specialeffect EF_MVP,AREA,"paper_sp_4_a";
1354         specialeffect EF_MVP,AREA,"paper_sp_6_a";
1355         specialeffect EF_MVP,AREA,"paper_sp_8_a";
1356         end;
1357
1358 OnTimer3000:
1359         specialeffect EF_MVP,AREA,"paper_sp_1_a";
1360         specialeffect EF_MVP,AREA,"paper_sp_3_a";
1361         specialeffect EF_MVP,AREA,"paper_sp_5_a";
1362         specialeffect EF_MVP,AREA,"paper_sp_7_a";
1363         specialeffect EF_MVP,AREA,"paper_sp_9_a";
1364         end;
1365
1366 OnTimer4000:
1367         specialeffect EF_MVP,AREA,"paper_sp_2_a";
1368         specialeffect EF_MVP,AREA,"paper_sp_4_a";
1369         specialeffect EF_MVP,AREA,"paper_sp_6_a";
1370         specialeffect EF_MVP,AREA,"paper_sp_8_a";
1371         stopnpctimer;
1372         end;
1373 }
1374
1375 arug_que01,100,75,5     script  Gergath#aru_gd  412,{
1376         end;
1377
1378 OnInit:
1379         disablenpc "Gergath#aru_gd";
1380         end;
1381
1382 OnEnable:
1383         enablenpc "Gergath#aru_gd";
1384         specialeffect EF_FORESTLIGHT;
1385         initnpctimer;
1386         end;
1387
1388 OnTimer5000:
1389         mapannounce "arug_que01", "Gergath : My dear friend, how have you been? This is something I prepared for you.",bc_map,"0xFFFF00";
1390         end;
1391
1392 OnTimer10000:
1393         mapannounce "arug_que01", "Gergath : Do you still remember when we were young? We fought everyday like we were sworn enemies.",bc_map,"0xFFFF00";
1394         end;
1395
1396 OnTimer15000:
1397         mapannounce "arug_que01", "Gergath : No matter how hard the adults tried, we had no intentions to change. Haha.",bc_map,"0xFFFF00";
1398         end;
1399
1400 OnTimer20000:
1401         mapannounce "arug_que01", "Gergath : But I believe that deep inside, we valued our friendship with each other.",bc_map,"0xFFFF00";
1402         end;
1403
1404 OnTimer25000:
1405         mapannounce "arug_que01", "Gergath : After I lost my mother's remnants in Mt. Mjolnir, you came to find me.",bc_map,"0xFFFF00";
1406         end;
1407
1408 OnTimer30000:
1409         mapannounce "arug_que01", "Gergath : When you, handed me my mother's remnants, I couldn't even say thank you.",bc_map,"0xFFFF00";
1410         end;
1411
1412 OnTimer35000:
1413         mapannounce "arug_que01", "Gergath : I couldn't say it even as I became an old man.",bc_map,"0xFFFF00";
1414         end;
1415
1416 OnTimer40000:
1417         mapannounce "arug_que01", "Gergath : I found out about your whereabouts not long ago. I heard you were taking care of orphaned children?",bc_map,"0xFFFF00";
1418         end;
1419
1420 OnTimer45000:
1421         mapannounce "arug_que01", "Gergath : Please accept this as a gift from a useless friend to you and your beloved children. I hope you will like it, haha.",bc_map,"0xFFFF00";
1422         end;
1423
1424 OnTimer50000:
1425         mapannounce "arug_que01", "Gergath : Pierrot Pier will help you. I hope you can use this chance to return to the past and enjoy yourself with your children.",bc_map,"0xFFFF00";
1426         disablenpc "Gergath#aru_gd";
1427         stopnpctimer;
1428         end;
1429 }
1430
1431 arug_que01,104,140,0    warp    back#aru_gd     1,1,arug_dun01,199,192
1432
1433 /*
1434 arug_que01,104,140,1    script  treg#aru_gd     844,{
1435         end;
1436
1437 OnEnable:
1438         monster "arug_que01",87,93,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1439         monster "arug_que01",102,93,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1440         monster "arug_que01",117,93,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1441         monster "arug_que01",87,80,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1442         monster "arug_que01",102,80,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1443         monster "arug_que01",117,80,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1444         monster "arug_que01",87,65,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1445         monster "arug_que01",102,65,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1446         monster "arug_que01",117,65,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
1447         end;
1448
1449 OnMyMobDead:
1450         if (mobcount("arug_que01","treg#aru_gd::OnMyMobDead") == 0) {
1451                 mapannounce "arug_que01", "Pierrot Pier: Beep! Oh, you already opened the gift? You sure are fast now, beep!",bc_map,"0x99CC00";
1452                 set $@gdeventv_a2,5;
1453         }
1454         end;
1455 }
1456 */
1457
1458 arug_que01,98,105,3     script  #aru_flower_01::GD_Ev_Flower    978,{
1459         end;
1460 }
1461
1462 arug_que01,94,105,3     duplicate(GD_Ev_Flower) #aru_flower_02  977
1463 arug_que01,90,105,3     duplicate(GD_Ev_Flower) #aru_flower_03  978
1464 arug_que01,86,105,3     duplicate(GD_Ev_Flower) #aru_flower_04  977
1465 arug_que01,82,105,3     duplicate(GD_Ev_Flower) #aru_flower_05  978
1466 arug_que01,79,103,3     duplicate(GD_Ev_Flower) #aru_flower_06  977
1467 arug_que01,79,100,3     duplicate(GD_Ev_Flower) #aru_flower_07  978
1468 arug_que01,79,97,3      duplicate(GD_Ev_Flower) #aru_flower_08  977
1469 arug_que01,79,97,3      duplicate(GD_Ev_Flower) #aru_flower_09  978
1470 arug_que01,79,94,3      duplicate(GD_Ev_Flower) #aru_flower_10  977
1471 arug_que01,79,91,3      duplicate(GD_Ev_Flower) #aru_flower_11  978
1472 arug_que01,79,88,3      duplicate(GD_Ev_Flower) #aru_flower_12  977
1473 arug_que01,79,85,3      duplicate(GD_Ev_Flower) #aru_flower_13  978
1474 arug_que01,79,82,3      duplicate(GD_Ev_Flower) #aru_flower_14  977
1475 arug_que01,79,79,3      duplicate(GD_Ev_Flower) #aru_flower_15  978
1476 arug_que01,79,76,3      duplicate(GD_Ev_Flower) #aru_flower_16  977
1477 arug_que01,79,73,3      duplicate(GD_Ev_Flower) #aru_flower_17  978
1478 arug_que01,79,70,3      duplicate(GD_Ev_Flower) #aru_flower_18  977
1479 arug_que01,79,67,3      duplicate(GD_Ev_Flower) #aru_flower_19  978
1480 arug_que01,79,64,3      duplicate(GD_Ev_Flower) #aru_flower_20  977
1481 arug_que01,79,61,3      duplicate(GD_Ev_Flower) #aru_flower_21  978
1482 arug_que01,79,58,3      duplicate(GD_Ev_Flower) #aru_flower_22  977
1483 arug_que01,84,58,3      duplicate(GD_Ev_Flower) #aru_flower_23  978
1484 arug_que01,89,58,3      duplicate(GD_Ev_Flower) #aru_flower_24  977
1485 arug_que01,94,58,3      duplicate(GD_Ev_Flower) #aru_flower_25  978
1486 arug_que01,99,58,3      duplicate(GD_Ev_Flower) #aru_flower_26  977
1487 arug_que01,104,58,3     duplicate(GD_Ev_Flower) #aru_flower_27  978
1488 arug_que01,109,58,3     duplicate(GD_Ev_Flower) #aru_flower_28  977
1489 arug_que01,114,58,3     duplicate(GD_Ev_Flower) #aru_flower_29  978
1490 arug_que01,119,58,3     duplicate(GD_Ev_Flower) #aru_flower_30  977
1491 arug_que01,124,58,3     duplicate(GD_Ev_Flower) #aru_flower_31  978
1492 arug_que01,129,58,3     duplicate(GD_Ev_Flower) #aru_flower_32  977
1493 arug_que01,129,105,3    duplicate(GD_Ev_Flower) #aru_flower_33  978
1494 arug_que01,129,103,3    duplicate(GD_Ev_Flower) #aru_flower_34  977
1495 arug_que01,129,100,3    duplicate(GD_Ev_Flower) #aru_flower_35  978
1496 arug_que01,129,97,3     duplicate(GD_Ev_Flower) #aru_flower_36  977
1497 arug_que01,129,97,3     duplicate(GD_Ev_Flower) #aru_flower_37  978
1498 arug_que01,129,94,3     duplicate(GD_Ev_Flower) #aru_flower_38  977
1499 arug_que01,129,91,3     duplicate(GD_Ev_Flower) #aru_flower_39  978
1500 arug_que01,129,88,3     duplicate(GD_Ev_Flower) #aru_flower_40  977
1501 arug_que01,129,85,3     duplicate(GD_Ev_Flower) #aru_flower_41  978
1502 arug_que01,129,82,3     duplicate(GD_Ev_Flower) #aru_flower_42  977
1503 arug_que01,129,79,3     duplicate(GD_Ev_Flower) #aru_flower_43  978
1504 arug_que01,129,76,3     duplicate(GD_Ev_Flower) #aru_flower_44  977
1505 arug_que01,129,73,3     duplicate(GD_Ev_Flower) #aru_flower_45  978
1506 arug_que01,129,70,3     duplicate(GD_Ev_Flower) #aru_flower_46  977
1507 arug_que01,129,67,3     duplicate(GD_Ev_Flower) #aru_flower_47  978
1508 arug_que01,129,64,3     duplicate(GD_Ev_Flower) #aru_flower_48  977
1509 arug_que01,129,61,3     duplicate(GD_Ev_Flower) #aru_flower_49  978
1510 arug_que01,129,58,3     duplicate(GD_Ev_Flower) #aru_flower_50  977
1511 arug_que01,124,105,3    duplicate(GD_Ev_Flower) #aru_flower_51  978
1512 arug_que01,119,105,3    duplicate(GD_Ev_Flower) #aru_flower_52  977
1513 arug_que01,114,105,3    duplicate(GD_Ev_Flower) #aru_flower_53  978
1514 arug_que01,109,105,3    duplicate(GD_Ev_Flower) #aru_flower_54  977
1515 arug_que01,104,105,3    duplicate(GD_Ev_Flower) #aru_flower_55  976
1516
1517 arug_dun01,5,5,1        script  Event controller#aru_gd 81,{
1518         if (callfunc("F_GM_NPC",1854,0) < 1) {
1519                 mes "Incorrect password.";
1520                 close;
1521         } else {
1522                 mes "How can I help you?";
1523                 next;
1524                 switch(select("Reset.:No, thanks.")) {
1525                 case 1:
1526                         mes "Completed.";
1527                         donpcevent "Monster Controler1#aru::OnControler1#aru_gd";
1528                         donpcevent "Monster Controler1#aru::OnControler1#aru_gd";
1529                         disablenpc "Dwarf#aru_gd";
1530                         set $@gdeventv_a1,0;
1531                         set $@gdeventv_a2,0;
1532                         set $@gdevents_a$,"";
1533                         close;
1534                 case 2:
1535                         mes "Good bye~";
1536                         close;
1537                 }
1538         }
1539 }