global $

 

on startMovie

 

  -- libs

  $.import("console").show()

  $.import("luadirector")

 

  -- load lua script

  $.luadirector.dofile($.PATH&"tcp_server.lua")

 

  -- window settings

  _movie.stage.title = "QTcpServer Demo"

  _movie.stage.titlebarOptions.visible = TRUE

  _movie.stage.rect = rect(0,0,320,240)

  _movie.stage.bgColor = rgb(212,208,200)

  _movie.centerStage = 1

 

  -- create a button

  m = new(#button)

  m.rect = rect(0,0,160,240)

  m.alignment = "center"

  m.fontsize = 12

  m.fontStyle = "bold"

  m.text = "Start TCP-Server"

  m.scripttext = "on mouseDown"&RETURN&"startTcpServer()"&RETURN&"end"

 

  -- create sprite, assign button

  _movie.puppetSprite(1, TRUE)

  sprite(1).member = m

  sprite(1).loc = point(80, 80)

 

  -- create a button

  m = new(#button)

  m.rect = rect(0,0,160,240)

  m.alignment = "center"

  m.fontsize = 12

  m.fontStyle = "bold"

  m.text = "Stop TCP-Server"

  m.scripttext = "on mouseDown"&RETURN&"stopTcpServer()"&RETURN&"end"

 

  -- create sprite, assign button

  _movie.puppetSprite(2, TRUE)

  sprite(2).member = m

  sprite(2).loc = point(80, 120)

 

  -- force immediate update

  _movie.updateStage()

 

  -- show the window

  _movie.stage.visible = 1