Brightsign BrightScript 2 Reference Guide Manual do Utilizador descarregar pdf (Página 55)

Function gbInit() As Void

REM

REM button presses go to this message port

REM

m.buttons = CreateObject("roMessagePort")

m.gpio = CreateObject("roGpioControlPort")

m.gpio.SetPort(m.buttons)

REM

REM determine optimal size and position for the snake gameboard

REM

CELLWID=16 ' each cell on game in pixels width

CELLHI=16 ' each cell in pix height

MAXWIDE=30 ' max width (in cells) of game board

MAXHI=30 ' max height (in cells) of game board

vidmode=CreateObject("roVideoMode")

w=cint(vidmode.GetResX()/CELLWID)

if w>MAXWIDE then w = MAXWIDE

h=cint(vidmode.GetResY()/CELLHI)

if h>MAXHI then h=MAXHI

xpix = cint((vidmode.GetResX() - w*CELLWID)/2) ' center game board on screen

ypix = cint((vidmode.GetResY() - h*CELLHI)/2) ' center game board on screen

REM

REM Create Text Field with square char cell size

REM

meta=CreateObject("roAssociativeArray")

meta.AddReplace("CharWidth",CELLWID)

meta.AddReplace("CharHeight",CELLHI)

meta.AddReplace("BackgroundColor",&H202020) 'very dark grey

meta.AddReplace("TextColor",&H00FF00) ' Green

m.text_field=CreateObject("roTextField",xpix,ypix,w,h,meta)

if type(m.text_field)<>"roTextField" then

print "unable to create roTextField 1"

stop

endif

End Function

REM

REM As Object refers to type Roku Object

REM m the "this" pointer

REM

Sub gbSetSnake(snake As Object)

m.snake=snake

End Sub

Function gbStartX() As Integer

return cint(m.text_field.GetWidth()/2)

End Function

Function gbStartY() As Integer

return cint(m.text_field.GetHeight()/2)

End Function

Function gbEventLoop() As Void

tick_count=0

while true

msg=wait(250, m.buttons) ' wait for a button, or 250ms (1/4 a second) timeout

if type(msg)="roGpioButton" then

if msg.GetInt()=1 m.snake.TurnNorth()

if msg.GetInt()=2 m.snake.TurnSouth()

if msg.GetInt()=3 m.snake.TurnEast()

if msg.GetInt()=4 m.snake.TurnWest()

else 'here if time out happened, move snake forward

tick_count=tick_count+1

1 2 ... 50 51 52 53 54 55 56 57 58 59

Comentários a estes Manuais

Sem comentários

Brightsign BrightScript 2 Reference Guide Manual do Utilizador Página 55

Comentários a estes Manuais

Manuais e produtos relacionados com Software Brightsign BrightScript 2 Reference Guide