npc/events/gdevent_sch.txt

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