Class TfmEnvironment

Unit

Declaration

type TfmEnvironment = class()

Description

Fields

	Name	Description
	edWater
	imageMap
	Panel1
	Panel3
	Panel4
	panelMap
	StatusBar
	tbAddRemoveWater
	tbAppleTree
	tbBoringTree
	tbBrick
	tbCrawly
	tbFauna
	tbLandDesert
	tbLandDirt
	tbLandField
	tbLandGrass
	tbMoon
	tbOrangeTree
	tbRefresh
	tbSlime
	tbSpiritGirl
	tbSpiritGuy
	tbSun
	tbTemperature
	tbWater
	tbWateringCan
	tbWaterLake
	tbWaterPuddle
	tbWaterPuddle2
	tbWaterSea
	ToolBarSpace
	ToolButton1
	ToolButton10
	ToolButton11
	ToolButton12
	ToolButton13
	ToolButton14
	ToolButton2
	ToolButton3
	ToolButton4
	ToolButton5
	ToolButton6
	ToolButton8
	ToolButton9
	ToolTimer
	WaterUpDown

Methods

Overview

	procedure AddSpirit(aGender: integer);
	procedure ApplyTool(aTool: eTool; X: integer; Y: integer);
	procedure ClearMap;
	procedure DrawThing(aThing: AIThing);
	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
	procedure FormCreate(Sender: TObject);
	procedure FormShow(Sender: TObject);
	procedure imageMapMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure imageMapMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
	procedure imageMapMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
	procedure RefreshGridInfo;
	procedure RefreshMap;
	procedure RefreshMouseGrid(aColor: TColor);
	procedure RefreshSquare(X: integer; Y: integer);
	procedure RefreshThings;
	procedure ReportUserEvent(aEvent: string);
	procedure StartUsingTool;
	procedure StopUsingTool;
	procedure tbAddRemoveWaterClick(Sender: TObject);
	procedure tbAppleClick(Sender: TObject);
	procedure tbAppleTreeClick(Sender: TObject);
	procedure tbBirdClick(Sender: TObject);
	procedure tbBrickClick(Sender: TObject);
	procedure tbCloudClick(Sender: TObject);
	procedure tbCrawlyClick(Sender: TObject);
	procedure tbHumidityClick(Sender: TObject);
	procedure tbLandDesertClick(Sender: TObject);
	procedure tbLandDirtClick(Sender: TObject);
	procedure tbLandFieldClick(Sender: TObject);
	procedure tbLandGrassClick(Sender: TObject);
	procedure tbMoonClick(Sender: TObject);
	procedure tbOrangeClick(Sender: TObject);
	procedure tbOrangeTreeClick(Sender: TObject);
	procedure tbRefreshClick(Sender: TObject);
	procedure tbSlimeClick(Sender: TObject);
	procedure tbSpiritGirlClick(Sender: TObject);
	procedure tbSpiritGuyClick(Sender: TObject);
	procedure tbSunClick(Sender: TObject);
	procedure tbTemperatureClick(Sender: TObject);
	procedure tbWateringCanClick(Sender: TObject);
	procedure tbWaterLakeClick(Sender: TObject);
	procedure tbWaterPuddle2Click(Sender: TObject);
	procedure tbWaterPuddleClick(Sender: TObject);
	procedure tbWaterSeaClick(Sender: TObject);
	procedure ToolTimerTimer(Sender: TObject);
	procedure WaterUpDownClick(Sender: TObject; Button: TUDBtnType);

Description

procedure AddSpirit(aGender: integer);

procedure ApplyTool(aTool: eTool; X: integer; Y: integer);

procedure ClearMap;

procedure DrawThing(aThing: AIThing);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure FormCreate(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure imageMapMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure imageMapMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure imageMapMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure RefreshGridInfo;

procedure RefreshMap;

procedure RefreshMouseGrid(aColor: TColor);

procedure RefreshSquare(X: integer; Y: integer);

procedure RefreshThings;

procedure ReportUserEvent(aEvent: string);

procedure StartUsingTool;

procedure StopUsingTool;

procedure tbAddRemoveWaterClick(Sender: TObject);

procedure tbAppleClick(Sender: TObject);

procedure tbAppleTreeClick(Sender: TObject);

procedure tbBirdClick(Sender: TObject);

procedure tbBrickClick(Sender: TObject);

procedure tbCloudClick(Sender: TObject);

procedure tbCrawlyClick(Sender: TObject);

procedure tbHumidityClick(Sender: TObject);

procedure tbLandDesertClick(Sender: TObject);

procedure tbLandDirtClick(Sender: TObject);

procedure tbLandFieldClick(Sender: TObject);

procedure tbLandGrassClick(Sender: TObject);

procedure tbMoonClick(Sender: TObject);

procedure tbOrangeClick(Sender: TObject);

procedure tbOrangeTreeClick(Sender: TObject);

procedure tbRefreshClick(Sender: TObject);

procedure tbSlimeClick(Sender: TObject);

procedure tbSpiritGirlClick(Sender: TObject);

procedure tbSpiritGuyClick(Sender: TObject);

procedure tbSunClick(Sender: TObject);

procedure tbTemperatureClick(Sender: TObject);

procedure tbWateringCanClick(Sender: TObject);

procedure tbWaterLakeClick(Sender: TObject);

procedure tbWaterPuddle2Click(Sender: TObject);

procedure tbWaterPuddleClick(Sender: TObject);

procedure tbWaterSeaClick(Sender: TObject);

procedure ToolTimerTimer(Sender: TObject);

procedure WaterUpDownClick(Sender: TObject; Button: TUDBtnType);

Properties

Overview

	property Environment: AIEnvironment;
	property MouseGridX: integer;
	property MouseGridY: integer;
	property OppositeTool: boolean;
	property Tool: eTool;
	property ToolIsActive: boolean;
	property WaterLevel: integer;

Description

property Environment: AIEnvironment;

Public declarations

property MouseGridX: integer;

property MouseGridY: integer;

property OppositeTool: boolean;

property Tool: eTool;

property ToolIsActive: boolean;

property WaterLevel: integer;