<=[[4rpl:start| Index]] * [[4rpl:commands:getunitbuildware|Get]] * [[4rpl:commands:setunitbuildware|Set]] :!: Available in version 1.3 and later. ====== SetUnitBuildWare ====== SetUnitBuildWare(<-unit <-unitBuildWare) ===== Description ===== Sets the build ware type of the unit. 0 = energy, 1 = anticreeper, 2 = arg, 3 = liftic. :!: Refer to the Programming notes to understand the implications of using this command ===== Examples ===== SetUnitBuildWare(self 1) ===== Programming Notes ===== Using this API will cause an exception to occur in the calling script. The effect of this exception will be to halt all further execution of **all** other scripts for custom units during that specific frame. The code guidelines following is an attempt to minimize the impact on custom units. The game will dispatch packets at a fixed rate and will continue to dispatch packets based on the value in the unit definition, regardless of the timing of this API. The arrival of packets at the unit (and when they register as having been received) are also spaced over several frames. Packets that arrive after the API has executed, will be discarded and will not count toward unit construction. Care should also be taken to not execute the API multiple times for the same required event (Eg. in the frames interspersed between packet arrival). As such, invocation of the API should be managed either by a state machine or by placing the API in a [[Once]]/[[EndOnce]] block of code. In addition, there are at least two other side effects of using this API. * When switching from Energy packets to any Ware packet (anti-Creeper, Liftic, Arg), the [[GetUnitConstructingData]] API will return a zero value for the current amount of build resources. Switching from a ware to energy will have the same effect. * Swithing from one ware type to another will stop the count of resources as returned by [[GetUnitConstructingData]]. The unit will continue to construct, but the API count for current amount will not increase. * There may be other effects, testing has not been exhaustive. The impact of the aforementioned can be minimized by relocating the execution of the API to the very last CPACK in a map, and to a script in that CPACK that executes as a Global script in Post processing. If this is done, the current known processes that will not complete for the specific frame are: * The executing script * Game tick ([[GetGameTickCount]]) (frame counter) update * FPS counter * Raster updates * Keyup/KeyDown events * MouseUp/MouseDown events * UI stats * Some issues with 2x or 4X and frame advance. === Post-Processing Global Script to invoke this API === # This script is designed to be in the last CPACK in the list of CPACKs. It should run in the "Post" # phase of global Control. If it is invoked, it is expected that it will throw an exception. # The placement is designed to make that exception as minimally disruptive as possible. GetListCount(<-modList) ->mods If (<-mods GT0) PopList(<-modList) ->actionItem if (GetUnitBuildWare(<-actionItem[0]) <-actionItem[1] NEQ) SetUnitBuildWare(<-actionItem[0] <-actionItem[1]) endIf EndIf :Once RegisterForMSG ("WareChanger" "CallBack") PrintAllSp ("Hello WareChanger") CreateList ->modList :CallBack AppendToList(<-modList <-_DATA) === State Machine code to invoke this API === # The hypothetical unit needs 2 types of wares. # Ware types are as follows: 0 = energy; 1 = anticreeper; 2 = arg; 3 = liftic $phase0:10 # Quantity $phase1:5 # Quantity $phase0Ware:0 # Type $phase1Ware:1 # Type $$buildState:0 # Start at zero if (GetUnitConstructing(Self)) GetUnitConstructingData(self) ->uCD Once <-uCD.0 ->receiveQty <-uCD.1 ->buildQty endOnce If (<-uCD.0 EQ0) <-uCD.0 ->prevuCD endIf If (<-prevuCD <-uCD.0 NEQ) # Monitor and count packet arrivale <-ucd.0 ->prevuCD <-receiveQty 1 ADD ->receiveQty If (<-receiveQty <-buildQty EQ) # received correct # of packets. ConstructUnit(Self <-uCD.1) #Force construction Return endIf endIf Switch Case (<-buildState 0 EQ) If (<-receiveQty <-phase0 EQ) ListN (Self <-phase1Ware 2) ->buildList SendMSG( "WareChanger" <-buildList) 1 ->buildState endIf endCase Case (<-buildState 1 EQ) If (<-receiveQty <-phase0 <-phase1 ADD EQ) ListN (Self <-phase2Ware 2) ->buildList SendMSG( "WareChanger" <-buildList) 2 ->buildState endIf endCase endSwitch endIf <=[[4rpl:start| Index]]