//
function script Easter2009Object {
if (@action == 1) goto L_TryPlace;
set @result, $Easter2009 >> @object;
set @result, @result & 1;
if (@result == 1) goto L_GiveEgg;
return;
L_GiveEgg:
set $Easter2009, $Easter2009 & ~(1 << @object);
getitem "EasterEgg", 1;
return;
L_TryPlace:
set @has, QUEST_Easter09_slots >> @object;
set @has, @has & 1;
if (@has == 1) goto L_AlreadyPlaced;
set @has, $Easter2009 >> @object;
set @has, @has & 1;
if (@has == 0) goto L_DoPlace;
set @result, 0;
return;
L_DoPlace:
if (countitem("EasterEgg") > 0) goto L_DoPlace_Finish;
mes "You don't have any eggs to place!";
close;
L_DoPlace_Finish:
delitem "EasterEgg", 1;
set @has, 1 << @object;
set QUEST_Easter09_slots, QUEST_Easter09_slots | @has;
set $Easter2009, $Easter2009 | @has;
set @result, 1;
return;
L_AlreadyPlaced:
set @result, 2;
return;
}
function script Easter2009Rock {
if (QUEST_Easter09 == 1) goto L_PlaceEgg;
mes "Do you want to examine this rock?";
next;
menu
"Yes", -,
"No", close;
set @action, 0;
callfunc "Easter2009Object";
if (@result == 1) goto L_Found;
mes "There is nothing strange about this rock.";
close;
L_Found:
mes "You found an egg under the rock.";
close;
L_PlaceEgg:
mes "Do you want to put an egg under this rock?";
next;
menu
"Yes", -,
"No", close;
set @action, 1;
callfunc "Easter2009Object";
if (@result == 1) goto L_Placed;
if (@result == 2) goto L_AlreadyPlaced;
mes "Strange, there is already an egg under this rock.";
close;
L_Placed:
mes "You placed an egg under the rock.";
close;
L_AlreadyPlaced:
mes "You already placed an egg under this rock!";
close;
}
function script Easter2009Tree {
if (QUEST_Easter09 == 1) goto L_PlaceEgg;
mes "Do you want to examine this tree?";
next;
menu
"Yes", -,
"No", close;
set @action, 0;
callfunc "Easter2009Object";
if (@result == 1) goto L_Found;
mes "There is nothing strange about this tree.";
close;
L_Found:
mes "You found an egg in the tree.";
close;
L_PlaceEgg:
mes "Do you want to put an egg in this tree?";
next;
menu
"Yes", -,
"No", close;
set @action, 1;
callfunc "Easter2009Object";
if (@result == 1) goto L_Placed;
if (@result == 2) goto L_AlreadyPlaced;
mes "Strange, there is already an egg in this tree.";
close;
L_Placed:
mes "You placed an egg in the tree.";
close;
L_AlreadyPlaced:
mes "You already placed an egg in this tree!";
close;
}
function script Easter2009Flower {
if (QUEST_Easter09 == 1) goto L_PlaceEgg;
mes "Do you want to examine these flowers?";
next;
menu
"Yes", -,
"No", close;
set @action, 0;
callfunc "Easter2009Object";
if (@result == 1) goto L_Found;
mes "There is nothing strange about these flowers.";
close;
L_Found:
mes "You found an egg among the flowers.";
close;
L_PlaceEgg:
mes "Do you want to hide an egg with these flowers?";
next;
menu
"Yes", -,
"No", close;
set @action, 1;
callfunc "Easter2009Object";
if (@result == 1) goto L_Placed;
if (@result == 2) goto L_AlreadyPlaced;
mes "Strange, there is already an egg here.";
close;
L_Placed:
mes "You placed an egg with the flowers.";
close;
L_AlreadyPlaced:
mes "You already placed an egg among these flowers!";
close;
}
function script Easter2009Pot {
if (QUEST_Easter09 == 1) goto L_PlaceEgg;
mes "Do you want to examine this pot?";
next;
menu
"Yes", -,
"No", close;
set @action, 0;
callfunc "Easter2009Object";
if (@result == 1) goto L_Found;
mes "There is nothing strange about this pot.";
close;
L_Found:
mes "You found an egg in the pot.";
close;
L_PlaceEgg:
mes "Do you want to put an egg in this pot?";
next;
menu
"Yes", -,
"No", close;
set @action, 1;
callfunc "Easter2009Object";
if (@result == 1) goto L_Placed;
if (@result == 2) goto L_AlreadyPlaced;
mes "Strange, there is already an egg in this pot.";
close;
L_Placed:
mes "You placed an egg in the pot.";
close;
L_AlreadyPlaced:
mes "You already placed an egg in this pot!";
close;
}
function script Easter2009Sign {
if (QUEST_Easter09 == 1) goto L_PlaceEgg;
mes "Do you want to examine this sign?";
next;
menu
"Yes", -,
"No", close;
set @action, 0;
callfunc "Easter2009Object";
if (@result == 1) goto L_Found;
mes "There is nothing strange about this sign.";
close;
L_Found:
mes "You found an egg near the sign.";
close;
L_PlaceEgg:
mes "Do you want to put an egg near this sign?";
next;
menu
"Yes", -,
"No", close;
set @action, 1;
callfunc "Easter2009Object";
if (@result == 1) goto L_Placed;
if (@result == 2) goto L_AlreadyPlaced;
mes "Strange, there is already an egg near this sign.";
close;
L_Placed:
mes "You placed an egg near the sign.";
close;
L_AlreadyPlaced:
mes "You already placed an egg near this sign!";
close;
}
007-1.gat,126,63,0 script Rock 127,{
set @object, 0;
callfunc "Easter2009Rock";
}
009-1.gat,66,33,0 script Pot 127,{
set @object, 1;
callfunc "Easter2009Pot";
}
009-1.gat,93,52,0 script Tree 127,{
set @object, 2;
callfunc "Easter2009Tree";
}
007-1.gat,37,22,0 script Flowers 127,{
set @object, 3;
callfunc "Easter2009Flower";
}
008-1.gat,38,32,0 script Tree 127,{
set @object, 4;
callfunc "Easter2009Tree";
}
008-1.gat,43,21,0 script Flowers 127,{
set @object, 5;
callfunc "Easter2009Flower";
}
018-1.gat,121,88,0 script Tree 127,{
set @object, 6;
callfunc "Easter2009Tree";
}
010-1.gat,103,73,0 script Flowers 127,{
set @object, 7;
callfunc "Easter2009Flower";
}
010-1.gat,31,45,0 script Rock 127,{
set @object, 8;
callfunc "Easter2009Rock";
}
011-1.gat,83,39,0 script Pot 127,{
set @object, 9;
callfunc "Easter2009Pot";
}
011-1.gat,33,78,0 script Tree 127,{
set @object, 10;
callfunc "Easter2009Tree";
}
018-1.gat,64,98,0 script Rock 127,{
set @object, 11;
callfunc "Easter2009Rock";
}
012-1.gat,88,122,0 script Flowers 127,{
set @object, 12;
callfunc "Easter2009Flower";
}
012-1.gat,97,32,0 script Rock 127,{
set @object, 13;
callfunc "Easter2009Rock";
}
012-1.gat,153,101,0 script Tree 127,{
set @object, 14;
callfunc "Easter2009Tree";
}
013-1.gat,118,92,0 script Rock 127,{
set @object, 15;
callfunc "Easter2009Rock";
}
013-1.gat,104,36,0 script Flowers 127,{
set @object, 16;
callfunc "Easter2009Flower";
}
014-1.gat,100,37,0 script Flowers 127,{
set @object, 17;
callfunc "Easter2009Flower";
}
014-1.gat,38,102,0 script Tree 127,{
set @object, 18;
callfunc "Easter2009Tree";
}
014-1.gat,54,50,0 script Sign 127,{
set @object, 19;
callfunc "Easter2009Sign";
}
015-1.gat,59,97,0 script Rock 127,{
set @object, 20;
callfunc "Easter2009Rock";
}
015-1.gat,29,25,0 script Flowers 127,{
set @object, 21;
callfunc "Easter2009Flower";
}
016-1.gat,83,54,0 script Pot 127,{
set @object, 22;
callfunc "Easter2009Pot";
}
016-1.gat,62,83,0 script Sign 127,{
set @object, 23;
callfunc "Easter2009Sign";
}
016-1.gat,20,51,0 script Tree 127,{
set @object, 24;
callfunc "Easter2009Tree";
}
017-1.gat,77,32,0 script Sign 127,{
set @object, 25;
callfunc "Easter2009Sign";
}
017-1.gat,104,90,0 script Tree 127,{
set @object, 26;
callfunc "Easter2009Tree";
}
017-1.gat,37,76,0 script Flowers 127,{
set @object, 27;
callfunc "Easter2009Flower";
}
009-1.gat,29,48,0 script Flowers 127,{
set @object, 28;
callfunc "Easter2009Flower";
}
010-1.gat,127,99,0 script Tree 127,{
set @object, 29;
callfunc "Easter2009Tree";
}
011-1.gat,34,95,0 script Rock 127,{
set @object, 30;
callfunc "Easter2009Rock";
}
