{"type":"doc","content":[{"type":"paragraph"},{"type":"expand","attrs":{"title":"Version 9 and Older Versions"},"content":[{"type":"bulletList","content":[{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Version 9 (OS 9)","type":"text","marks":[{"type":"link","attrs":{"href":"https://brightsign.atlassian.net/wiki/download/attachments/370674351/BrightScriptReferenceManual_ver9.pdf?version=1&modificationDate=1681926520148&cacheVersion=1&api=v2"}}]}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Version 8 (OS 8)","type":"text","marks":[{"type":"link","attrs":{"href":"https://brightsign.atlassian.net/wiki/download/attachments/370674351/BrightScriptReferenceManual%20(ver%208).pdf?version=1&modificationDate=1681851693731&cacheVersion=1&api=v2"}}]}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Version 7.1","type":"text","marks":[{"type":"link","attrs":{"href":"https://brightsign.atlassian.net/wiki/download/attachments/370674351/BrightScript%20Reference%20Manual%20(ver%207.1).pdf?version=1&modificationDate=1681851450896&cacheVersion=1&api=v2"}}]}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Version 7.0","type":"text","marks":[{"type":"link","attrs":{"href":"https://brightsign.atlassian.net/wiki/download/attachments/370674351/BrightScript%20Reference%20Manual%20(ver%207.0).pdf?version=1&modificationDate=1681851517656&cacheVersion=1&api=v2"}}]}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Version 6.2","type":"text","marks":[{"type":"link","attrs":{"href":"https://brightsign.atlassian.net/wiki/download/attachments/370674351/BrightScript%20Reference%20Manual%20(ver%206.2).pdf?version=1&modificationDate=1681851180597&cacheVersion=1&api=v2"}}]}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Version 6.1","type":"text","marks":[{"type":"link","attrs":{"href":"https://brightsign.atlassian.net/wiki/download/attachments/370674351/BrightSignReferenceManual_V6.1.pdf?version=1&modificationDate=1681851246728&cacheVersion=1&api=v2"}}]}]}]},{"type":"listItem","content":[{"type":"paragraph","content":[{"text":"Previous Versions","type":"text","marks":[{"type":"link","attrs":{"href":"https://support.brightsign.biz/hc/en-us/articles/218067797-Legacy-Documentation-and-User-Guides"}}]},{"text":" ","type":"text"}]}]}]}]},{"type":"paragraph","content":[{"text":"The following code uses GPIO buttons 1, 2, 3, 4 for controls. It will work on any BrightSign model that has a video output and a GPIO port.","type":"text"}]},{"type":"codeBlock","content":[{"text":"REM\nREM The game of Snake\nREM demonstrates BrightScript programming concepts\nREM June 22, 2008\n \nREM\nREM Every BrightScript program must have a single Main()\nREM\n \nSub Main()\n \n game_board=newGameBoard()\n \n While true\n game_board.SetSnake(newSnake(game_board.StartX(), game_board.StartY()))\n game_board.Draw()\n game_board.EventLoop()\n if game_board.GameOver() then ExitWhile\n End While\nEnd Sub\n \n \nREM *******************************************************\nREM *******************************************************\nREM *************** *********************\nREM *************** GAME BOARD OBJECT *********************\nREM *************** *********************\nREM *******************************************************\nREM *******************************************************\n \n \nREM\nREM An example BrightScript constructor. \"newGameBoard()\" is regular Function of module scope\nREM BrightScript Objects are \"dynamic\" and created at runtime. They have no \"class\". \nREM The object container is a BrightScript Component of type roAssocitiveArray (AA). \nREM The AA is used to hold member data and member functions.\nREM\n \nFunction newGameBoard() As Object\n game_board=CreateObject(\"roAssociativeArray\") ' Create a BrightScript Component of type/class roAssociativeArray\n game_board.Init=gbInit ' Add an entry to the AA of type roFunction with value gbDraw (a sub defined in this module)\n game_board.Draw=gbDraw\n game_board.SetSnake=gbSetSnake\n game_board.EventLoop=gbEventLoop\n game_board.GameOver=gbGameOver\n game_board.StartX=gbStartX\n game_board.StartY=gbStartY\n game_board.Init() ' Call the Init member function (which is gbInit)\n \n return game_board\n \nEnd Function\n \n \nREM\nREM gbInit() is a member function of the game_board BrightScript Object.\nREM When it is called, the \"this\" pointer \"m\" is set to the appropriate instance by\nREM the BrightScript bytecode interpreter\nREM \nFunction gbInit() As Void\n REM\n REM button presses go to this message port\n REM\n m.buttons = CreateObject(\"roMessagePort\")\n m.gpio = CreateObject(\"roGpioControlPort\") \n m.gpio.SetPort(m.buttons)\n \n REM\n REM determine optimal size and position for the snake gameboard\n REM\n CELLWID=16 ' each cell on game in pixels width\n CELLHI=16 ' each cell in pix height\n MAXWIDE=30 ' max width (in cells) of game board\n MAXHI=30 ' max height (in cells) of game board\n vidmode=CreateObject(\"roVideoMode\")\n w=cint(vidmode.GetResX()/CELLWID)\n if w>MAXWIDE then w = MAXWIDE\n h=cint(vidmode.GetResY()/CELLHI)\n if h>MAXHI then h=MAXHI\n \n xpix = cint((vidmode.GetResX() - w*CELLWID)/2) ' center game board on screen\n ypix = cint((vidmode.GetResY() - h*CELLHI)/2) ' center game board on screen\n \n REM\n REM Create Text Field with square char cell size\n REM\n meta=CreateObject(\"roAssociativeArray\")\n meta.AddReplace(\"CharWidth\",CELLWID)\n meta.AddReplace(\"CharHeight\",CELLHI)\n meta.AddReplace(\"BackgroundColor\",&H202020) 'very dark grey\n meta.AddReplace(\"TextColor\",&H00FF00) ' Green\n m.text_field=CreateObject(\"roTextField\",xpix,ypix,w,h,meta)\n if type(m.text_field)<>\"roTextField\" then\n print \"unable to create roTextField 1\"\n stop\n endif\nEnd Function\n \nREM\nREM As Object refers to type BrightScript Component\nREM m the \"this\" pointer\nREM\nSub gbSetSnake(snake As Object)\n m.snake=snake\nEnd Sub\n \n \nFunction gbStartX() As Integer\n return cint(m.text_field.GetWidth()/2)\nEnd Function\n \n \nFunction gbStartY() As Integer\n return cint(m.text_field.GetHeight()/2)\nEnd Function\n \n \nFunction gbEventLoop() As Void\n \n tick_count=0\n \n while true\n msg=wait(250, m.buttons) ' wait for a button, or 250ms (1/4 a second) timeout\n if type(msg)=\"roGpioButton\" then\n if msg.GetInt()=1 m.snake.TurnNorth()\n if msg.GetInt()=2 m.snake.TurnSouth()\n if msg.GetInt()=3 m.snake.TurnEast()\n if msg.GetInt()=4 m.snake.TurnWest()\n else 'here if time out happened, move snake forward\n tick_count=tick_count+1\n if tick_count=6 then\n tick_count=0\n if m.snake.MakeLonger(m.text_field) then return\n else\n if m.snake.MoveForward(m.text_field) then return\n endif\n endif\n end while\n \nEnd Function\n \n \nSub gbDraw()\n REM\n REM given a roTextField Object in \"m.text_field\", draw a box around its edge\n REM\n \n solid=191 ' use asc(\"*\") if graphics not enabled\n m.text_field.Cls()\n \n for w=0 to m.text_field.GetWidth()-1\n print #m.text_field,@w,chr(solid);\n print #m.text_field,@m.text_field.GetWidth()*(m.text_field.GetHeight()-1)+w,chr(solid);\n end for\n \n for h=1 to m.text_field.GetHeight()-2\n print #m.text_field,@h*m.text_field.GetWidth(),chr(solid);\n print #m.text_field,@h*m.text_field.GetWidth()+m.text_field.GetWidth()-1,chr(solid);\n end for\n \n m.snake.Draw(m.text_field)\n \nEnd Sub\n \nFunction gbGameOver() As Boolean\n msg$= \" G A M E O V E R \"\n msg0$=\" \"\n width = m.text_field.GetWidth()\n height = m.text_field.GetHeight()\n \n while true\n print #m.text_field,@width*(height/2-1)+(width-len(msg$))/2,msg$;\n sleep(300)\n print #m.text_field,@width*(height/2-1)+(width-len(msg$))/2,msg0$;\n sleep(150)\n REM GetMessage returns the message object, or an int 0 if no message available\n If m.buttons.GetMessage() <> invalid Then Return False\n endwhile\n \nEnd Function\n \n \nREM *******************************************************\nREM *******************************************************\nREM ****************** ***********************\nREM ****************** SNAKE OBJECT ***********************\nREM ****************** ***********************\nREM *******************************************************\nREM *******************************************************\n \nREM\nREM construct a new snake BrightScript object\nREM\nFunction newSnake(x As Integer, y As Integer) As Object\n \n' Create AA BrightScript Component; the container for a \"BrightScript Object\"\n snake=CreateObject(\"roAssociativeArray\") \n snake.Draw=snkDraw\n snake.TurnNorth=snkTurnNorth\n snake.TurnSouth=snkTurnSouth\n snake.TurnEast=snkTurnEast\n snake.TurnWest=snkTurnWest\n snake.MoveForward=snkMoveForward\n snake.MakeLonger=snkMakeLonger\n snake.AddSegment=snkAddSegment\n snake.EraseEndBit=snkEraseEndBit\n \n REM\n REM a \"snake\" is a list of line segments\n REM a line segment is an roAssociativeArray that conains a length and direction (given by the x,y delta needed to move as it is drawn)\n REM\n \n snake.seg_list = CreateObject(\"roList\")\n snake.AddSegment(1,0,3)\n \n REM\n REM The X,Y pos is the position of the head of the snake\n REM\n snake.snake_X=x\n snake.snake_Y=y\n snake.body=191 ' use asc(\"*\") if graphics not enabled.\n snake.dx=1 ' default snake direction / move offset\n snake.dy=0 ' default snake direction / move offset\n \n return snake\n \nEnd Function\n \n \nSub snkDraw(text_field As Object)\n x=m.snake_X\n y=m.snake_Y\n for each seg in m.seg_list\n xdelta=seg.xDelta\n ydelta=seg.yDelta\n for j=1 to seg.Len\n text_field.SetCursorPos(x, y)\n text_field.SendByte(m.body)\n x=x+xdelta\n y=y+ydelta\n end for\n end for\nEnd Sub\n \n \nSub snkEraseEndBit(text_field As Object)\n x=m.snake_X\n y=m.snake_Y\n for each seg in m.seg_list\n x=x+seg.Len*seg.xDelta\n y=y+seg.Len*seg.yDelta\n end for\n \n text_field.SetCursorPos(x, y)\n text_field.SendByte(32) ' 32 is ascii space, could use asc(\" \")\n \nEnd Sub\n \n \nFunction snkMoveForward(text_field As Object)As Boolean\n m.EraseEndBit(text_field)\n tail=m.seg_list.GetTail()\n REM\n REM the following shows how you can use an AA's member functions to perform the same\n REM functions the BrightScript . operator does behind the scenes for you (when used on an AA).\n REM there is not point to this longer method other than illustration\n REM\n len=tail.Lookup(\"Len\") ' same as len = tail.Len (or tail.len, BrightScript syntax is not case sensative)\n len = len-1\n if len=0 then\n m.seg_list.RemoveTail()\n else\n tail.AddReplace(\"Len\",len) ' same as tail.Len=len\n endif\n \n return m.MakeLonger(text_field)\n \nEnd Function\n \nFunction snkMakeLonger(text_field As Object) As Boolean\n m.snake_X=m.snake_X+m.dx\n m.snake_Y=m.snake_Y+m.dy\n text_field.SetCursorPos(m.snake_X, m.snake_Y)\n if text_field.GetValue()=m.body then return true\n text_field.SendByte(m.body)\n head = m.seg_list.GetHead()\n head.Len=head.Len+1\n return false\nEnd Function\n \nSub snkAddSegment(dx As Integer, dy As Integer, len as Integer)\n \n aa=CreateObject(\"roAssociativeArray\")\n aa.AddReplace(\"xDelta\",-dx) ' line segments draw from head to tail\n aa.AddReplace(\"yDelta\",-dy)\n aa.AddReplace(\"Len\",len)\n m.seg_list.AddHead(aa)\n \nEnd Sub\n \n \nSub snkTurnNorth()\n if m.dx<>0 or m.dy<>-1 then m.dx=0:m.dy=-1:m.AddSegment(m.dx, m.dy, 0) 'north\nEnd Sub\n \nSub snkTurnSouth()\n if m.dx<>0 or m.dy<>1 then m.dx=0:m.dy=1:m.AddSegment(m.dx, m.dy, 0) 'south\nEnd Sub\n \nSub snkTurnEast()\n if m.dx<>-1 or m.dy<>0 then m.dx=-1:m.dy=0:m.AddSegment(m.dx, m.dy, 0) 'east\nEnd Sub\n \nSub snkTurnWest()\n if m.dx<>1 or m.dy<>0 then m.dx=1:m.dy=0:m.AddSegment(m.dx, m.dy, 0) 'west\nEnd Sub","type":"text"}]},{"type":"paragraph"},{"type":"paragraph"},{"type":"paragraph","content":[{"type":"hardBreak"}]}],"version":1}

Browser not supported