SLIC-Reference : : UnitType  

SFN_ERROR Slic_UnitType::Call(SlicArgList *args)
{
	if(args->Count() != 1)
		return SFN_ERROR_NUM_ARGS;
	if(args->m_argValue[0].m_type != SA_TYPE_HARD_STRING)
		return SFN_ERROR_TYPE_ARGS;

	const char *name = args->m_argValue[0].m_symbol->GetName();
	StringId sname;
	if(!g_theStringDB->GetStringID(name, sname)) {
		return SFN_ERROR_UNKNOWN_UNIT_TYPE;
	}

	sint32 i;
	for(i = 0; i < g_theUnitDB->NumRecords(); i++) {
		if(g_theUnitDB->Get(i)->m_name == sname) {
			m_result.m_int = i;
			return SFN_ERROR_OK;
		}
	}
	return SFN_ERROR_UNKNOWN_UNIT_TYPE;
}