
Board: All That's Left

Sometimes it gives one a more interesting look, showing experience and so on.

;---------------------------------------------------------------------------
; Bézier control points helper
[Statedef 3510]
type = S
movetype= A
physics = N
velset = 0,0
ctrl = 0
anim = 9999
SprPriority = 2
[State 3510, Generate Point 0]
Type = Null
trigger1 = fvar(2) := 0
persistent = 0
[State 3510, Generate Point 0]
Type = Null
trigger1 = fvar(3) := pos y
persistent = 0
[State 3510, Generate Control points]
Type = Null
trigger1 = (1) || fvar(4) := 160 * random/1000.0 * facing; * ifelse(random < 500, 1, -1)
trigger1 = (1) || fvar(5) := -15 -60 * random/1000.0
trigger1 = (1) || fvar(6) := 320 * random/1000.0 * facing; * ifelse(random < 500, 1, -1)
trigger1 = (1) || fvar(7) := -10 -60 * random/1000.0 + 120 * ifelse(random < 500, 0, 1)
trigger1 = (1) || fvar(8) := 320 * random/1000.0 * facing; * ifelse(random < 500, 1, -1)
trigger1 = (1) || fvar(9) := -10 -60 * random/1000.0
trigger1 = (1) || fvar(10) := 320 * random/1000.0 * facing; * ifelse(random < 500, 1, -1)
trigger1 = (1) || fvar(11) := -10 -60 * random/1000.0
trigger1 = (1) || fvar(12) := 320 * random/1000.0 * facing; * ifelse(random < 500, 1, -1)
trigger1 = (1) || fvar(13) := -15 -60 * random/1000.0 + 120 * ifelse(random < 500, 0, 1)
trigger1 = (1) || fvar(14) := (320 + 80 * random/1000.0) * facing; * ifelse(random < 500, 1, -1)
trigger1 = (1) || fvar(15) := -240 * random/1000.0
persistent = 0
;Spawn the helpers
[State 3510, Helpers]
Type = Helper
trigger1 = time = 0
stateno = 3512
ownpal = 1
id = 3510
pos = 0,0
[State 3510, DestroySelf]
Type = DestroySelf
trigger1 = numhelper(3510) = 0
;---------------------------------------------------------------------------
; Bézier points
[Statedef 3512]
type = S
movetype= A
physics = N
velset = 0,0
ctrl = 0
anim = 3310
SprPriority = 2
[State 3512, NoShadow]
Type = AssertSpecial
trigger1 = 1
flag = noShadow
[State 3512, VarSet]
Type = VarSet
trigger1 = var(1) = 0
var(1) = parent, var(0)
[State 3512, Control how many steps I had taken]
Type = VarAdd
trigger1= fvar(11) >= 1.0
v = 4
value = 1
[State 3512, A]
Type = VarSet
trigger1 = var(0) = 0
trigger2 = fvar(11) >= 1.0
fvar(10) = 1.0
ignorehitpause = 1
[State 3512, A]
Type = VarSet
trigger1 = var(0) = 0
trigger2 = fvar(11) >= 1.0
fvar(11) = 0.0
ignorehitpause = 1
[State 3512, Generate Control points]
Type = Null
trigger1 = fvar(11) = 0.0
trigger1 = (1) || fvar(2) := ifelse(var(4) = 0, parent, fvar(2), fvar(8))
trigger1 = (1) || fvar(3) := ifelse(var(4) = 0, parent, fvar(3), fvar(9))
trigger1 = (1) || fvar(4) := parent, fvar(4 + var(4) * 6)
trigger1 = (1) || fvar(5) := parent, fvar(5 + var(4) * 6)
trigger1 = (1) || fvar(6) := parent, fvar(6 + var(4) * 6)
trigger1 = (1) || fvar(7) := parent, fvar(7 + var(4) * 6)
trigger1 = (1) || fvar(8) := parent, fvar(8 + var(4) * 6)
trigger1 = (1) || fvar(9) := parent, fvar(9 + var(4) * 6)
[State 3512, Generate X my offset]
Type = varset
trigger1 = 1
fvar(0)= fvar(2)*fvar(10)*fvar(10)*fvar(10)+ 3 * fvar(4)*fvar(10)*fvar(10)*fvar(11)
ignorehitpause = 1
[State 3512, Generate X my offset]
Type = varset
trigger1 = 1
fvar(0) = fvar(0)+ 3 * fvar(6)*fvar(10)*fvar(11)*fvar(11) + fvar(8)*fvar(11)*fvar(11)*fvar(11)
ignorehitpause = 1
[State 3512, Generate Y my offset]
Type = varset
trigger1 = 1
fvar(1)=fvar(3)*fvar(10)*fvar(10)*fvar(10)+ 3 * fvar(5)*fvar(10)*fvar(10)*fvar(11)
ignorehitpause = 1
[State 3512, Generate Y my offset]
Type = varset
trigger1 = 1
fvar(1) = fvar(1)+ 3 * fvar(7)*fvar(10)*fvar(11)*fvar(11)+fvar(9)*fvar(11)*fvar(11)*fvar(11)
ignorehitpause = 1
[State -3, M]
Type = VarSet
trigger1 = Pos X - (fvar(0) + (parent, pos x)) != 0
fvar(12) = -((Pos Y - fvar(1))/(Pos X - (fvar(0) + (parent, pos x)))* facing)
[State -3, M] ;There can be no triangle if both points share the same X cord
Type = VarSet
trigger1 = Pos X - (fvar(0) + (parent, pos x)) = 0
fvar(12) = 0
[State -3, Angle]
Type = AngleDraw
trigger1 = 1
value = Atan(fvar(12)) * (180.0/Pi) + 180 * ifelse(facing=1,(Pos X - (fvar(0) + (parent, pos x)) > 0),(Pos X - (fvar(0) + (parent, pos x)) < 0))
[State 3512, PosSet]
Type = PosSet
trigger1 = 1
x = fvar(0) + (parent, pos x)
y = fvar(1)
ignorehitpause = 1
[State 3512, A]
Type = VarAdd
trigger1 = 1
fv = 10
value = -0.02
ignorehitpause = 1
[State 3512, A]
Type = VarAdd
trigger1 = 1
fv = 11
value = 0.02
ignorehitpause = 1
[State 3512, Pause]
Type = Trans
trigger1 = 1
trans = add
ignorehitpause = 1
[State 3512, DestroySelf]
Type = DestroySelf
trigger1 = var(4) = 2
ignorehitpause = 1