Brightsign BrightScript 3.0 Reference Manual Uživatelský manuál stáhnout pdf (Strana 70)

End Sub

Function gbGameOver() As Boolean

msg$= " G A M E O V E R "

msg0$=" "

width = m.text_field.GetWidth()

height = m.text_field.GetHeight()

while true

print #m.text_field,@width*(height/2-1)+(width-len(msg$))/2,msg$;

sleep(300)

print #m.text_field,@width*(height/2-1)+(width-len(msg$))/2,msg0$;

sleep(150)

REM GetMessage returns the message object, or an int 0 if no message available

If m.buttons.GetMessage() <> invalid Then Return False

endwhile

End Function

REM *******************************************************

REM ****************** ***********************

REM ****************** SNAKE OBJECT ***********************

REM ****************** ***********************

REM *******************************************************

1 2 ... 65 66 67 68 69 70 71 72 73 74 75

Žádné komentáře

Brightsign BrightScript 3.0 Reference Manual Uživatelský manuál Strana 70