{
	"type": "unit",
	"displayname": "CBomb",
	"permanentinventory": true,
	"image": "body.png",
	"position": [0, 0],
	"pivot": [0.5, 0.5],
	"movable": true,
	"maxammo": 250,
	"parts": 	[
					{"part": "armed.json", "name": "armed", "position": [0, 0], "active": false},
				],
	"controllers": 	[
						{"name": "ondestroy_sandexplosion"}
					],
	"scripts": 		[
						{"name": "cbomb.irpl"}
					]
}

The associated cbomb.irpl script:

$RANGE:30

if (<-armed !)
	if (GetAmmo(self) GetMaxAmmo(self) >=)
		SetActive(<-armedPart true)
		true ->armed
	endif
endif	

:Awake
	GetChild(self "armed") ->armedPart
	false ->armed

:Destroyed
	if (GetAmmo(self) GetMaxAmmo(self) >=)
		GetAllPixelCount(self) ->pixelCounts
		<-pixelCounts[0] ->pixel_none
		<-pixelCounts[1] ->pixel_onboard
		<-pixelCounts[2] ->pixel_inroute
		<-pixelCounts[3] ->pixel_dead
		<-pixel_onboard <-pixel_dead + ->pixel_total
		
		if (<-pixel_total eq0)
			0 ->percentComplete
		else
			<-pixel_total <-pixel_inroute - <-pixel_total asfloat / ->percentComplete
		endif	
		
		#DebugAllSp("NONE:" <-pixel_none "ONBOARD:" <-pixel_onboard "INROUTE:" <-pixel_inroute "DEAD:" <-pixel_dead "TOTAL:" <-pixel_total)
		#DebugAllSp("% Complete: " <-percentComplete)
		GetPosition(self) ->pos
		ConvertCreeperToAC(<-pos.x <-pos.y <-RANGE <-percentComplete * false)
	endif