kbUnitQuery查询单位

kbUnitQuery系列函数可用于地图触发程序、剧情编辑器触发程序、AI文件

首先用kbUnitQueryCreate创建查询，然后kbUnitQueryResetResults清除之前的查询数据；kbUnitQuerySet系列函数 设定各种查询条件，但似乎必须含有kbUnitQuerySetPlayerID函数，否则查询失败。
除此之外，必须用xsSetContextPlayer指定对象玩家，不然连queryID都不存在；还有一点xsSetContextPlayer与kbUnitQuerySetPlayerID的对象玩家必须一致（意义不明，多此一举），否则查询结果为空。

以下是一个地图注入式触发程序查询例子
aoebbs("rule _Debug71 minInterval 2 active runImmediately {");
aoebbs("if((trTime()-cActivationTime) >= 5.00000000){");
aoebbs("int UnitTypeID = 0;");
aoebbs("while(kbGetUnitTypeName(UnitTypeID)!=\"unit\"){");
aoebbs("UnitTypeID = UnitTypeID+1;");
aoebbs("}");
aoebbs("xsSetContextPlayer(1);");
aoebbs("trChatSend(0,\"UnitTypeID:\"+UnitTypeID+\":\"+kbGetUnitTypeName(UnitTypeID));");
aoebbs("int queryID = kbUnitQueryCreate(\"QueryAliveUnit\");");
aoebbs("trChatSend(0,\"queryID:\"+queryID);");
aoebbs("kbUnitQueryResetData(queryID);");
aoebbs("kbUnitQueryResetResults(queryID);");
aoebbs("kbUnitQuerySetUnitType(queryID,UnitTypeID);");
aoebbs("kbUnitQuerySetState(queryID, cUnitStateAlive);");
aoebbs("kbUnitQuerySetAscendingSort(queryID,true);");
aoebbs("kbUnitQuerySetPlayerID(queryID, 1,false);");
aoebbs("int resultCount = kbUnitQueryExecute(queryID);");
aoebbs("resultCount = kbUnitQueryNumberResults(queryID);");
aoebbs("trChatSend(0,\"resultCount:\"+resultCount);");
aoebbs("int unitID = 0;");
aoebbs("for(i=0;<resultCount) {");
aoebbs("unitID = kbUnitQueryGetResult(queryID,i);");
aoebbs("trChatSend(0,\"unitID[\"+unitID+\"]:\"+kbGetProtoUnitName(kbUnitGetProtoUnitID(unitID)));");
aoebbs("}");
aoebbs("xsDisableSelf();");
aoebbs("}");
aoebbs("}");
aoebbsE("");

用于剧情编辑器，将某个玩家或全部玩家的某种单位全部转换成指定玩家控制
	<Effect name="*Advanced Convert by Unittype">
		<Param name="Unittype" dispName="Unittype" VarType="unittype"></Param>
		<Param name="ToPlayer" dispName="Convert To" VarType="player">1</Param>
		<Param name="AllPlayer" dispName="Is all Player?" VarType="bool">false</Param>
		<Param name="FormPlayer" dispName="Form Player" VarType="player">2</Param>
		<command>xsSetContextPlayer(0);</command>
		<Command>int UnitTypeID = 0;</Command>
		<Command>while(kbGetUnitTypeName(UnitTypeID)!="all")</Command>
		<Command>{</Command>
		<Command>	UnitTypeID = UnitTypeID+1;</Command>
		<Command>}</Command>
		<Command>int SetUnitType = 0;</Command>
		<Command>while(kbGetUnitTypeName(SetUnitType)!="%Unittype%")</Command>
		<Command>{</Command>
		<Command>	SetUnitType = SetUnitType+1;</Command>
		<Command>}</Command>
		<command>bool allplayer = %AllPlayer%;</command>
		<command>int playerID = %FormPlayer%;</command>
		<command>int unitID = 0;</command>
		<command>int maxplayerID = cNumberPlayers;</command>
		<command>int queryID = 0;</command>
		<command>int resultCount = 0;</command>
		<command>if(allplayer == true)</command>
		<command>{</command>
		<command>	playerID = 0;</command>
		<command>}</command>
		<command>else</command>
		<command>{</command>
		<command>	maxplayerID = playerID;</command>
		<command>}</command>
		<command>for(p=playerID;<=maxplayerID)</command>
		<command>{</command>
		<command>	xsSetContextPlayer(p);</command>
		<command>	queryID = kbUnitQueryCreate("QueryAliveUnit"+p);</command>
		<command>	kbUnitQueryResetData(queryID);</command>
		<command>	kbUnitQueryResetResults(queryID);</command>
		<command>	kbUnitQuerySetUnitType(queryID,UnitTypeID);</command>
		<command>	kbUnitQuerySetState(queryID, cUnitStateAlive);</command>
		<command>	kbUnitQuerySetAscendingSort(queryID,true);</command>
		<command>	kbUnitQuerySetPlayerID(queryID, p,false);</command>
		<command>	resultCount = kbUnitQueryExecute(queryID);</command>
		<command>	for(i=0;<resultCount) </command>
		<command>	{</command>
		<command>		unitID = kbUnitQueryGetResult(queryID,i);</command>
		<command>		if(kbUnitIsType(unitID,SetUnitType) == true)</command>
		<command>		{</command>
		<command>			trUnitSelectClear();</command>
		<command>			trUnitSelectByID(unitID);</command>
		<command>			trUnitConvert(%ToPlayer%);</command>
		<command>		}</command>
		<command>	}</command>
		<command>}</command>
	</Effect>