Infinite Fuel

on load:
	loop {InfiCoal::Fueled::*}:
		broadcast "%loop-value%"
		broadcast "%block at location at loop-value%"
		set burning time of block at loop-value to 1600 second
	clear {InfiCoal::Fueled::*}

on fuel burn:
	fuel slot of event-block is coal
	broadcast name of fuel slot of event-block
	the name of fuel slot of event-block contains "&f無限炭"
	cancel event
	set burning time of event-block to 20 second
	set {InfiCoal::Fueled::*} to location of event-block
	broadcast inventory name of event-block
	inventory name of event-block contains "超高速かまど"
	create a fake explosion at event-block
	set event-block to air

on combust:
	broadcast "%event-entity%"
	item of event-entity is coal named "&f無限炭"
	create explosion of power 5 at event-entity