#export stdBerryPlant

stdBerryPlant:
	special (0x2B);
	0x8000 = 0x8004;
	if (0x8000 == 0xFF) goto (WhatTheShit);
	if (0x8000 == 0x00) goto (SoftLoamySoil);
	if (0x8000 == 0x01) goto (FreshlyPlanted);
	if (0x8000 == 0x02) goto (Sprouted);
	if (0x8000 == 0x03) goto (GrowingTaller);
	if (0x8000 == 0x04) goto (Blooming);
	if (0x8000 == 0x05) goto (PickableBerries);
	end ();

WhatTheShit:
	lockall ();
	msgbox2 ("!");
	waitmsgbox ();
	waitkeypress ();
	releaseall ();
	end ();

SoftLoamySoil:
	lock ();
	faceplayer ();
	special2 (LastResult, 0x31);
	if (LastResult == 1) goto (AskToPlant);
	msgbox2 ("It's soft, loamy soil.");
	waitmsgbox ();
	waitkeypress ();
	release ();
	end ();

AskToPlant:
	say ("It's soft, loamy soil.\nWant to plant a Berry?", 5);
	if (LastResult == 1) goto (WantToPlant);
	release ();
	end ();

WantToPlant:
	fade (1);
	closeonkeypress ();
	special (0x2C);
	waitstate ();
	if (0x800E == 0) goto (Release);
	takeitem (0x800E, 1);
	special (0x2D);
	//Unknown command C3, parameter 3
	msgbox2 ("{name} planted one {var:2} Berry in\nthe soft, loamy soil.");
	waitmsgbox ();
	waitkeypress ();
	release ();
	end ();

FreshlyPlanted:
	lockall ();
	msgbox2 ("One {var:2} Berry was planted here.");
	waitmsgbox ();
	waitkeypress ();
	jump (AskToWater);	
	
Sprouted:
	lockall ();
	msgbox2 ("{var:2} has sprouted.");
	waitmsgbox ();
	waitkeypress ();
	jump (AskToWater);	

GrowingTaller:
	lockall ();
	msgbox2 ("This {var:2} plant is growing taller.");
	waitmsgbox ();
	waitkeypress ();
	jump (AskToWater);

Blooming:
	call (DescribeBlooming);
	lockall ();
	msgbox2 ("These {var:2} flowers are blooming\n{var:3}.");
	waitmsgbox ();
	waitkeypress ();
	jump (AskToWater);

DescribeBlooming:
	if (0x8005 == 0) goto (DescribeCutely);
	if (0x8005 == 4) goto (DescribeBeautifully);
	getstring (1, "prettily");
	return ();

DescribeCutely:
	getstring (1, "cutely");
	return ();

DescribeBeautifully:
	getstring (1, "very beautifully");
	return ();

AskToWater:
	checkitem (0x10C, 1);
	if (LastResult == 0) goto (Release);
	say ("Want to water the {var:2} with the\nWailmer Pail?", 5);
	if (LastResult == 1) goto (WaterPlant);
	releaseall ();
	end ();

WaterPlant:
	msgbox2 ("{name} watered the {var:2}.");
	waitmsgbox ();
	special (0x30);
	special (0x5E);
	waitstate ();
	msgbox2 ("The plant seems to be delighted.");
	waitmsgbox ();
	waitkeypress ();
	releaseall ();
	end ();

PickableBerries:
	getnumber (1, 0x8006);
	lock ();
	faceplayer ();
	say ("There are {var:3} {var:2} Berries!\rDo you want to pick the\n{var:2} Berries?", 5);
	if (LastResult == 1) goto (PickTheBerries);
	msgbox2 ("{name} left the {var:2} Berries\nunpicked.");
	waitmsgbox ();
	waitkeypress ();
	release ();
	end ();

PickTheBerries:
	special (0x2E);
	if (0x8004 == 0) goto (BagIsFull);
	special (0x2F);
	msgbox2 ("{name} picked the {var:3} {var:2} Berries.");
	jingle (0x183);
	waitmsgbox ();
	waitforjingle ();
	waitforkeypress ();
	msgbox2 ("{name} put away the {var:2} Berries\in the Bag's Berries Pocket.\rThe soil returned to its soft and\nloamy state.");
	waitmsgbox ();
	waitkeypress ();
	release ();
	end ();

BagIsFull:
	msgbox2 ("The Bag's Berries Pocket is full.\rThe {var:2} Berries couldn't be taken.");
	waitmsgbox ();
	waitkeypress ();
	release ();
	end ();

Release:
	releaseall();
	end();