[Kasuha]

In order to prevent our alchemists to transcend with a homunculus alive, I have implemented this simple way of checking the homunculus state:

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GetGlobalVar]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[GetGlobalVar]
GO

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS OFF 
GO



CREATE PROCEDURE [GetGlobalVar]
@Key char(255),
@Data int output
AS

if @Key LIKE 'HOMUNTEST%'
begin
	declare @id int
	set @id = SUBSTRING(@Key, 10, 30)
	select @Data = Modified from HomunInfo where GID = @id
	if @@ROWCOUNT < 1
	begin
		set @Data = 255
	end
	return 1
end
else
begin
	select @Data = data from GlobalVar where keyname = @Key

	if @@ROWCOUNT > 0
	begin
		return 1
	end
	else
	begin
		return 0
	end
end
GO
SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO

The code to check the homunculus state looks like this:

		var gvname = v[VAR_CHARACTERID]
		gvname = "HOMUNTEST" + gvname
		var hstate = GetGlobalVar gvname

At the end, hstate may contain the following values:
0 ... unnamed alive
1 ... named alive
2 ... unnamed vaporized
3 ... named vaporized
4 ... unnamed dead
5 ... named dead
255 ... no homunculus at all