// [RCD] Yasu software - Machine "OTL" for RigidChips
// http://www.usay.jp/
//
// [Usage]
// ����: ENGINE
// ����: HANDLE?
// Z: BEHEAD
//
Val
{
	BEHEAD(default=0, max=2000, step=1)
	ENGINE(default=0, min=-20000, max=50000, step=2000)
	HANDE(default=90, max=1000, step=5)
	HANDW(default=90, max=100, step=5)
	POWER(default=0, max=100000, step=5000, disp=0)
}
Key
{
	0:ENGINE(step=2000), BALLA(step=2000), BALLB(step=2000)
	1:ENGINE(step=-2000)
	2:HANDW(step=-5)
	3:HANDE(step=-5)
	4:BEHEAD(step=1)
}
Body
{
	Core(color=#FF0000) {
		N:Chip(angle=30, name=HEAD) {
			S:Jet(angle=150, power=-POWER) { }
			N:Jet(angle=-120, power=2000, option=1) { }
		}
		E:Chip(color=#FF0000) {
			N:Chip(angle=HANDE, color=#000000) {
				N:Chip() { }
				S:Jet(power=1000, option=1) { }
			}
		}
		W:Chip(color=#FF0000) {
			N:Chip(angle=HANDW, color=#000000) {
				N:Chip() { }
				S:Jet(power=1000, option=1) { }
			}
		}
		S:Chip(color=#FF0000) {
			E:Chip(color=#FF0000) {
				S:Chip(angle=HANDW, color=#FF0000) {
					W:Jet(angle=45, option=1, color=#FFFF80) { }
					S:Chip(power=-HANDW, color=#000000) {
						S:Chip(angle=-HANDW, color=#000000) {
							S:Chip(color=#000000) { }
						}
					}
				}
			}
			W:Chip(color=#FF0000) {
				S:Chip(angle=HANDE, color=#FF0000) {
					E:Jet(angle=45, option=1, color=#FFFF80) { }
					S:Chip(power=-HANDE, color=#000000) {
						S:Chip(angle=-HANDE, color=#000000) {
							S:Chip(color=#000000) { }
						}
					}
				}
			}
			S:Jet(angle=90, power=-ENGINE, color=#000000) {
				W:Jet(angle=150, option=1, color=#FFFF80) { }
				E:Jet(angle=150, option=1, color=#FFFF80) { }
				S:Arm(angle=120, color=#000000) { }
			}
			S:Arm(angle=150, color=#FF0000) { }
		}
	}
}
Lua
{
	oldbh = 0

	function main()
		if BEHEAD == 1 and oldbh == 0 then
			POWER = 30000
			_SPLIT(HEAD)
		end
		oldbh = BEHEAD
	end
}