Brightsign BrightScript 3.0 Reference Manual User Manual download pdf (Page 74)

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()

1 2 ... 69 70 71 72 73 74 75

No comments

Brightsign BrightScript 3.0 Reference Manual User Manual Page 74