BrightSign BrightScript 3.0 Reference Manual - Manual (Page 74)

69
return m.MakeLonger(text_field)
End Function
Function snkMakeLonger(text_field As Object ) As Boolean
m.snake_X=m.snake_X+m.dx
m.snake_Y=m.snake_Y+m.dy
text_field.SetCursorPos(m.snake_X, m.snake_Y)
if text_field.GetValue()=m.body then return true
text_field.SendByte(m.body)
head = m.seg_list.GetHead()
head.Len=head.Len+1
return false
End Function
Sub snkAddSegment(dx As Integer , dy As Integer , len as Integer )
aa=CreateObject( "roAssociativeArray" )
aa.AddReplace( "xDelta" ,-dx) ' line segments draw from head to tail
aa.AddReplace( "yDelta" ,-dy)
aa.AddReplace( "Len" ,len)
m.seg_list.AddHead(aa)
End Sub
Sub snkTurnNorth()