SLIC-Reference : : StringCompare  

SFN_ERROR Slic_StringCompare::Call(SlicArgList *args)
{
	if(args->Count() != 2)
		return SFN_ERROR_NUM_ARGS;

	//Added by Martin Ghmann to allow string comparision, between string IDs and plain strings
	char *string1 = 0;
	char *string2 = 0;

	const char *cstring1, *cstring2;
	StringId stringId1, stringId2;

	if(!args->GetString(0, string1)){
		if(args->GetStringId(0, stringId1)){
			cstring1 = g_theStringDB->GetNameStr(stringId1);
		}
		else if(args->m_argValue[0].m_type == SA_TYPE_INT_VAR){
			cstring1 = g_theStringDB->GetNameStr(args->m_argValue[0].m_symbol->GetStringId());
		}
		else{
			return SFN_ERROR_TYPE_ARGS;
		}
		string1 = const_cast(cstring1);
	}
	
	if(!args->GetString(1, string2)){
		if(args->GetStringId(1, stringId2)){
			cstring2 = g_theStringDB->GetNameStr(stringId2);
		}
		else if(args->m_argValue[1].m_type == SA_TYPE_INT_VAR){
			cstring2 = g_theStringDB->GetNameStr(args->m_argValue[1].m_symbol->GetStringId());
		}
		else{
			return SFN_ERROR_TYPE_ARGS;
		}
		string2 = const_cast(cstring2);
	}


	if ( !stricmp(string1, string2) )
	{
		m_result.m_int = 1;
	}
	else {
		m_result.m_int = 0;
	}

	return SFN_ERROR_OK;
}