property pWindowTitle, pChessPieces, pChessWait, pOpenWindow, pBattleShipMyBoardImg, pPokerOpponentChange, pMyName, pPokerChangeCards

on construct me 
  pWindowTitle = "GAME"
  return TRUE
end

on deconstruct me 
  me.closeGame()
  return TRUE
end

on closeGame me 
  if objectExists("battleShipPlacer") then
    removeObject("battleShipPlacer")
  end if
  if objectExists("chessPlacer") then
    removeObject("chessPlacer")
  end if
  if windowExists(pWindowTitle) then
    me.getComponent().sendGameClose()
    removeWindow(pWindowTitle)
  end if
end

on openGameWindow me, tWindowName, tProps 
  if (tWindowName = "TicTacToe") then
    tWindowTitle = getText("game_TicTacToe", "TicTacToe")
    me.ChangeWindowView(tWindowTitle, "habbo_ttt_choose_side.window", #eventProcTicTacToe)
    me.chooseSideTicTacToe()
  else
    if (tWindowName = "Chess") then
      tWindowTitle = getText("game_Chess", "Chess")
      me.ChangeWindowView(tWindowTitle, "habbo_chess_choose_side.window", #eventProcChess)
      pChessWait = 0
    else
      if (tWindowName = "BattleShip") then
        tWindowTitle = getText("game_BattleShip", "BattleShip")
        me.ChangeWindowView(tWindowTitle, "habbo_battleships_start.window", #eventProcBattleShip)
      else
        if (tWindowName = "Poker") then
          tWindowTitle = getText("game_poker", "Poker")
          if not windowExists(tWindowTitle) then
            me.ChangeWindowView(tWindowTitle, "poker.window", #eventProcPoker)
          else
            me.changePokerWindow("poker.window")
          end if
        end if
      end if
    end if
  end if
end

on ChangeWindowView me, tWindowTitle, tWindowName, tEventProc, tX, tY, tWindowType 
  if voidp(tWindowType) then
    tTemp = "habbo_basic.window"
  else
    tTemp = tWindowType
  end if
  createWindow(tWindowTitle, "habbo_basic.window")
  if windowExists(tWindowTitle) then
    tWndObj = getWindow(tWindowTitle)
    tWndObj.merge(tWindowName)
    tWndObj.registerClient(me.getID())
    tWndObj.registerProcedure(tEventProc, me.getID(), #mouseUp)
    tWndObj.registerProcedure(tEventProc, me.getID(), #keyDown)
    pWindowTitle = tWindowTitle
    pOpenWindow = tWindowName
    if not voidp(tX) and not voidp(tY) then
      tWndObj.moveTo(tX, tY)
    else
      tWndObj.center()
    end if
  end if
end

on flipH me, tImg 
  tImage = image(tImg.width, tImg.height, tImg.depth)
  tQuad = [point(tImg.width, 0), point(0, 0), point(0, tImg.height), point(tImg.width, tImg.height)]
  tImage.copyPixels(tImg, tQuad, tImg.rect)
  return(tImage)
end

on flipV me, tImg 
  tImage = image(tImg.width, tImg.height, tImg.depth)
  tQuad = [point(0, tImg.height), point(tImg.width, tImg.height), point(tImg.width, 0), point(0, 0)]
  tImage.copyPixels(tImg, tQuad, tImg.rect)
  return(tImage)
end

on chooseSideTicTacToe me 
  me.drawGameBoardTicTacToe()
  getWindow(pWindowTitle).getElement("choose_side_x").setText("x")
  getWindow(pWindowTitle).getElement("choose_side_o").setText("o")
end

on StartTicTacToe me, tGameProps 
  if not windowExists(pWindowTitle) then
    return FALSE
  end if
  me.ChangeWindowView(pWindowTitle, "habbo_ttt.window", #eventProcTicTacToe)
  me.drawGameBoardTicTacToe()
  tText = tGameProps.getAt(#player1).getAt(#type) && tGameProps.getAt(#player1).getAt(#name) & "\r" & tGameProps.getAt(#player2).getAt(#type) && tGameProps.getAt(#player2).getAt(#name)
  getWindow(pWindowTitle).getElement("game_text1").setText(tText)
end

on updateTicTacToe me, tGameProps 
  if not windowExists(pWindowTitle) then
    return FALSE
  end if
  tText1 = tGameProps.getAt(#player1).getAt(#type) && tGameProps.getAt(#player1).getAt(#name) & "\r" & tGameProps.getAt(#player2).getAt(#type) && tGameProps.getAt(#player2).getAt(#name)
  if not getWindow(pWindowTitle).elementExists("game_text1") then
    return FALSE
  end if
  getWindow(pWindowTitle).getElement("game_text1").setText(tText1)
  me.drawGameBoardTicTacToe(tGameProps)
end

on drawGameBoardTicTacToe me, tGameProps 
  tWndObj = getWindow(pWindowTitle)
  tElem = tWndObj.getElement("game_area")
  tImg = member(getmemnum("game_TicTacToe.board.real")).image.duplicate()
  tElem.feedImage(tImg)
  if voidp(tGameProps) then
    return FALSE
  end if
  if voidp(tGameProps.getAt(#gameboard)) then
    return FALSE
  end if
  tW = 25
  tBuffer = tElem.getProperty(#image)
  i = 1
  repeat while i <= tGameProps.getAt(#gameboard).length
    tC = tGameProps.getAt(#gameboard).getProp(#char, i)
    if charToNum(tC) <> 32 then
      me.drawTicTacToe(((i mod tW) - 1), (i / tW), tC, tBuffer)
    end if
    i = (1 + i)
  end repeat
  tElem.render()
  return TRUE
end

on drawTicTacToe me, tX, tY, tC, tBuffer 
  if not memberExists("game_TicTacToe." & tC) then
    return(error(me, "Member not found:" && "game_TicTacToe." & tC))
  end if
  tSquareSize = 10
  tMemImg = member(getmemnum("game_TicTacToe." & tC)).image
  tdestrect = rect(((tX * tSquareSize) + 1), ((tY * tSquareSize) + 1), ((tX + 1) * tSquareSize), ((tY + 1) * tSquareSize))
  tBuffer.copyPixels(tMemImg, tdestrect, tMemImg.rect, [#ink:36])
end

on selectedTypeTicTacToe me, tPlayerProps, tGameProps 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  if (tPlayerProps.getAt(#type) = "x") then
    tElemID = "x_player"
  else
    tElemID = "o_player"
  end if
  if tWndObj.elementExists(tElemID) then
    tWndObj.getElement(tElemID).setText(tPlayerProps.getAt(#name))
  end if
  if tWndObj.elementExists("game_text1") then
    tText1 = tGameProps.getAt(#player1).getAt(#type) && tGameProps.getAt(#player1).getAt(#name) & "\r" & tGameProps.getAt(#player2).getAt(#type) && tGameProps.getAt(#player2).getAt(#name)
    tWndObj.getElement("game_text1").setText(tText1)
  end if
end

on getTicTacToeSector me, tpoint 
  return([(tpoint.getAt(1) / 10), (tpoint.getAt(2) / 10)])
end

on eventProcTicTacToe me, tEvent, tElemID, tParam 
  if (tEvent = #mouseUp) then
    if (tElemID = "close") then
      me.closeGame("TicTacToe")
    else
      if (tElemID = "choose_side_x") then
        me.getComponent().chooseSideTicTacToe("X")
      else
        if (tElemID = "choose_side_o") then
          me.getComponent().chooseSideTicTacToe("O")
        else
          if (tElemID = "game_newgame") then
            me.getComponent().restartTicTacToe()
          else
            if (tElemID = "game_area") then
              tClickArea = me.getTicTacToeSector(tParam)
              me.getComponent().makeMoveTicTacToe(tClickArea.getAt(1), tClickArea.getAt(2))
            end if
          end if
        end if
      end if
    end if
  end if
end

on startChess me, tGameProps 
  if not windowExists(pWindowTitle) then
    return FALSE
  end if
  me.ChangeWindowView(pWindowTitle, "habbo_chess.window", #eventProcChess)
end

on updateChess me, tGameProps 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_area")
  if (tElem = 0) then
    return FALSE
  end if
  tElem.clearImage()
  tElem.clearBuffer()
  me.setupChessPieces(tGameProps)
  if tWndObj.elementExists("game_players") then
    tText = tGameProps.getAt(#player1).getAt(#type) && tGameProps.getAt(#player1).getAt(#name) & "\r" & tGameProps.getAt(#player2).getAt(#type) && tGameProps.getAt(#player2).getAt(#name)
    tWndObj.getElement("game_players").setText(tText)
  end if
end

on setupChessPieces me, tGameProps 
  if voidp(tGameProps) then
    return FALSE
  end if
  if voidp(tGameProps.getAt(#gameboard)) then
    return FALSE
  end if
  tElem = getWindow(pWindowTitle).getElement("game_area")
  tBuffer = tElem.getProperty(#image)
  pChessPieces = [:]
  i = 1
  repeat while i <= tGameProps.getAt(#gameboard).count(#word)
    if (tGameProps.getAt(#gameboard).getPropRef(#word, i).length = 5) then
      tC = "game_" & tGameProps.getAt(#gameboard).getPropRef(#word, i).getProp(#char, 1, 3)
      tPieceCoordinate = tGameProps.getAt(#gameboard).getPropRef(#word, i).getProp(#char, 4, 5)
      tX = (charToNum(tPieceCoordinate.getProp(#char, 1)) - 97)
      tY = (8 - integer(tPieceCoordinate.getProp(#char, 2)))
      pChessPieces.setAt(string(tX & tY), tGameProps.getAt(#gameboard).getProp(#word, i))
      me.drawChessPieces(tX, tY, tC, tBuffer)
    end if
    i = (1 + i)
  end repeat
  tElem.render()
end

on drawChessPieces me, tX, tY, tC, tBuffer 
  tSize = 27
  tmember = member(getmemnum(tC))
  tMemImg = tmember.image
  tMemRect = tmember.rect
  tcenter = rect(((tX * tSize) + (tSize / 2)), ((tY * tSize) + (tSize / 2)), ((tX * tSize) + (tSize / 2)), ((tY * tSize) + (tSize / 2)))
  tDstRect = (tMemRect + tcenter)
  tDstRect = (tDstRect - rect((tMemRect.width / 2), (tMemRect.height / 2), (tMemRect.width / 2), (tMemRect.height / 2)))
  tBuffer.copyPixels(tMemImg, tDstRect, tMemRect, [#ink:36])
end

on getChessSector me, tpoint 
  tSquareSize = 27
  return(string((tpoint.getAt(1) / tSquareSize) & (tpoint.getAt(2) / tSquareSize)))
end

on makeChessSectorEmpty me, tX, tY 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_area")
  if (tElem = 0) then
    return FALSE
  end if
  tSquareSize = 27
  tdestrect = rect((tX * tSquareSize), (tY * tSquareSize), ((tX * tSquareSize) + tSquareSize), ((tY * tSquareSize) + tSquareSize))
  tElem.getProperty(#image).fill(tdestrect, rgb(255, 255, 255))
  tElem.render()
end

on makeMoveChess me, tpoint, tPieceData 
  tClickArea = me.getChessSector(tpoint)
  if not voidp(pChessPieces.getAt(tClickArea)) then
    tMySide = me.getComponent().getMySideChess()
    if (tMySide = pChessPieces.getAt(tClickArea).getProp(#char, 1)) and tPieceData <> pChessPieces.getAt(tClickArea) then
      return FALSE
    end if
  end if
  tMove = tPieceData.getProp(#char, 4, 5) && numToChar((97 + value(tClickArea.getProp(#char, 1)))) & (8 - value(tClickArea.getProp(#char, 2)))
  me.getComponent().makeMoveChess(tMove)
  tC = "game_" & tPieceData.getProp(#char, 1, 3)
  tX = value(tClickArea.getProp(#char, 1))
  tY = value(tClickArea.getProp(#char, 2))
  tElem = getWindow(pWindowTitle).getElement("game_area")
  me.drawChessPieces(tX, tY, tC, tElem.getProperty(#image))
  tElem.render()
  pChessWait = 1
  me.delay(500, #waitMoveChess)
  return TRUE
end

on waitMoveChess me 
  pChessWait = 0
end

on eventProcChess me, tEvent, tElemID, tParam 
  if (tEvent = #mouseUp) then
    if (tElemID = "close") then
      if objectExists("chessPlacer") then
        removeObject("chessPlacer")
      end if
      me.closeGame("Chess")
    else
      if (tElemID = "chess_white") then
        me.getComponent().chooseSideTicTacToe("w")
      else
        if (tElemID = "chess_black") then
          me.getComponent().chooseSideTicTacToe("b")
        else
          if (tElemID = "game_area") then
            if pChessWait then
              return TRUE
            end if
            tClickArea = me.getChessSector(tParam)
            if voidp(pChessPieces) then
              return TRUE
            end if
            if voidp(pChessPieces.getAt(tClickArea)) then
              return TRUE
            end if
            if objectExists("chessPlacer") then
              return TRUE
            end if
            if not voidp(pChessPieces.getAt(tClickArea)) then
              tPieceColor = pChessPieces.getAt(tClickArea).getProp(#char, 1)
            else
              tPieceColor = "Nothing"
            end if
            if me.getComponent().getMySideChess() <> tPieceColor then
              return TRUE
            end if
            me.makeChessSectorEmpty(tClickArea.getProp(#char, 1), tClickArea.getProp(#char, 2))
            tMemName = "game_" & pChessPieces.getAt(tClickArea).getProp(#char, 1, 3)
            tmember = member(getmemnum(tMemName))
            tPieceData = pChessPieces.getAt(tClickArea)
            tAreaElem = getWindow(pWindowTitle).getElement("game_area")
            tlocz = (tAreaElem.getProperty(#locZ) + 1)
            createObject("chessPlacer", "Chess Placer Class")
            getObject("chessPlacer").Init(tmember, tlocz, tPieceData, tAreaElem.getProperty(#sprite))
          else
            if (tElemID = "game_chess_newgame") then
              if not windowExists(pWindowTitle) then
                return TRUE
              end if
              if objectExists("chessPlacer") then
                removeObject("chessPlacer")
              end if
              me.ChangeWindowView(pWindowTitle, "habbo_chess_reset.window", #eventProcChess)
            else
              if (tElemID = "game_restart_yes") then
                me.getComponent().restartChess()
              else
                if (tElemID = "game_restart_cancel") then
                  me.getComponent().notRestartChess()
                else
                  if (tElemID = "game_chess_email") then
                    me.getComponent().sendChessByEmail()
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on showShipInfo me, tText 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_battleships_text1")
  if (tElem = 0) then
    return FALSE
  end if
  return(tElem.setText(tText))
end

on placeShip me, tmember, tdestrect 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_area")
  if (tElem = 0) then
    return FALSE
  end if
  tBuffer = tElem.getProperty(#image)
  tBuffer.copyPixels(tmember.image, tdestrect, tmember.rect, [#ink:36])
  tElem.render()
end

on drawShip me, tX, tY, tmember, tImage 
  tSquareSize = 19
  tMemberImg = tmember.image
  tMemRect = tmember.rect
  tcenter = rect(((tX * tSquareSize) + (tSquareSize / 2)), ((tY * tSquareSize) + (tSquareSize / 2)), ((tX * tSquareSize) + (tSquareSize / 2)), ((tY * tSquareSize) + (tSquareSize / 2)))
  tdestrect = (tMemRect + tcenter)
  tdestrect = (tdestrect - rect((tMemRect.width / 2), (tMemRect.height / 2), (tMemRect.width / 2), (tMemRect.height / 2)))
  tImage.copyPixels(tMemberImg, tdestrect, tMemRect, [#ink:36])
end

on getBattleShipSector me, tpoint 
  tSquareSize = 19
  return(string((tpoint.getAt(1) / tSquareSize) && (tpoint.getAt(2) / tSquareSize)))
end

on battleShipWaitOtherPlayer me 
  pBattleShipMyBoardImg = getWindow(pWindowTitle).getElement("game_area").getProperty(#image).duplicate()
  me.ChangeWindowView(pWindowTitle, "habbo_battleships_wait.window", #eventProcBattleShip)
end

on battleShipMyTurn me 
  if pOpenWindow <> "habbo_battleships.window" then
    me.ChangeWindowView(pWindowTitle, "habbo_battleships.window", #eventProcBattleShip)
  end if
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_area")
  if (tElem = 0) then
    return FALSE
  end if
  tElem.clearBuffer()
  tElem.clearImage()
  me.battleShipShowTurnText(1)
end

on battleShipOtherPlayersTurn me 
  if pOpenWindow <> "habbo_battleships.window" then
    me.ChangeWindowView(pWindowTitle, "habbo_battleships.window", #eventProcBattleShip)
  end if
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_area")
  if (tElem = 0) then
    return FALSE
  end if
  tElem.clearImage()
  tElem.clearBuffer()
  tBuffer = tElem.getProperty(#image)
  tBuffer.copyPixels(pBattleShipMyBoardImg, tBuffer.rect, tBuffer.rect)
  tElem.render()
  me.battleShipShowTurnText(0)
end

on battleShipShowTurnText me, tMyTurn 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  if not tWndObj.elementExists("game_battleships_text1") then
    return FALSE
  end if
  if not tWndObj.elementExists("game_battleships_text2") then
    return FALSE
  end if
  if tMyTurn then
    tText = getText("game_bs_turn1", "Your turn!")
  else
    tText = getText("game_bs_turn2", "The enemy's turn")
  end if
  tWndObj.getElement("game_battleships_text1").setText(tText)
  tWndObj.getElement("game_battleships_text2").setText("")
end

on battleShipShowStatusText me, tText 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_battleships_text2")
  if (tElem = 0) then
    return FALSE
  end if
  return(tElem.setText(tText))
end

on battleShipGameEnd me, tText 
  if not windowExists(pWindowTitle) then
    return FALSE
  end if
  me.ChangeWindowView(pWindowTitle, "habbo_battleships_end.window", #eventProcBattleShip)
  getWindow(pWindowTitle).getElement("game_winner").setText(tText)
end

on updateBattleShipBoard me, tBoardData 
  if voidp(tBoardData) then
    return FALSE
  end if
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("game_area")
  if (tElem = 0) then
    return FALSE
  end if
  tBuffer = tElem.getProperty(#image)
  tSquareSize = 19
  repeat while tBoardData <= undefined
    tShoot = getAt(undefined, tBoardData)
    tX = tShoot.getAt(1)
    tY = tShoot.getAt(2)
    ttype = tShoot.getAt(3)
    tHitImage = member(getmemnum("game_bs_" & string(ttype))).image
    if (ttype = #miss) then
      tdestrect = rect((tX * tSquareSize), (tY * tSquareSize), (((tX * tSquareSize) + tHitImage.width) - 1), (((tY * tSquareSize) + tHitImage.height) - 1))
    else
      tdestrect = rect(((tX * tSquareSize) + 1), ((tY * tSquareSize) + 1), ((tX * tSquareSize) + tHitImage.width), ((tY * tSquareSize) + tHitImage.height))
    end if
    tBuffer.copyPixels(tHitImage, tdestrect, tHitImage.rect, [#ink:36])
  end repeat
  tElem.render()
end

on eventProcBattleShip me, tEvent, tElemID, tParam 
  if (tEvent = #mouseUp) then
    if tElemID <> "close" then
      if (tElemID = "game_close") then
        if objectExists("battleShipPlacer") then
          removeObject("battleShipPlacer")
        end if
        me.closeGame("BattleShip")
      else
        if (tElemID = "setships_ok") then
          me.ChangeWindowView(pWindowTitle, "habbo_battleships_place.window", #eventProcBattleShip)
          tElem = getWindow(pWindowTitle).getElement("game_area")
          tlocz = (tElem.getProperty(#locZ) + 1)
          createObject("battleShipPlacer", "BattleShip Placer Class")
          getObject("battleShipPlacer").Init(tElem.getProperty(#sprite), tlocz)
        else
          if (tElemID = "game_battleships_turn") then
            if objectExists("battleShipPlacer") then
              getObject("battleShipPlacer").turnShip()
            end if
          else
            if (tElemID = "game_area") then
              tClickArea = me.getBattleShipSector(tParam)
              me.getComponent().sendBattleShipShoot(tClickArea.getProp(#word, 1), tClickArea.getProp(#word, 2))
            else
              if (tElemID = "game_newgame") then
                me.getComponent().restartBattleShip()
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end

on PokerShowStatusText me, tText, tElement 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement(tElement)
  if (tElem = 0) then
    return FALSE
  end if
  return(tElem.setText(tText))
end

on drawPokerCard me, tElem, tMemName 
  if not windowExists(pWindowTitle) then
    return(error(me, "Window not exists!", #drawPokerCard))
  end if
  tWndObj = getWindow(pWindowTitle)
  if not tWndObj.elementExists(tElem) then
    return(error(me, "Element not exists," && tElem, #drawPokerCard))
  end if
  if not memberExists(tMemName) then
    return(error(me, "Member not exists," && tMemName, #drawPokerCard))
  end if
  tElem = tWndObj.getElement(tElem)
  tImg = member(getmemnum(tMemName)).image.duplicate()
  tElem.feedImage(tImg)
end

on pokerMarkCards me 
  if pOpenWindow <> "poker_cards.window" then
    return FALSE
  end if
  tOppCount = me.getComponent().getPropRef(#pOpenGameProps, #opponentList).count
  tList = pPokerOpponentChange
  tCardBack = "game_small_back_0"
  if not voidp(tList) then
    i = 1
    repeat while i <= tOppCount
      e = 1
      repeat while e <= 5
        if tList.getAt(i).findPos(e) > 0 then
          me.fitOpponentCards("player_" & i & "_" & e, "game_small_back_1")
        else
          me.fitOpponentCards("player_" & i & "_" & e, tCardBack)
        end if
        e = (1 + e)
      end repeat
      i = (1 + i)
    end repeat
  end if
end

on fitOpponentCards me, tElemID, tImage 
  tWndObj = getWindow(pWindowTitle)
  if tWndObj.elementExists(tElemID) then
    tElem = tWndObj.getElement(tElemID)
    tDestImg = tElem.getProperty(#image)
    tSourceImg = member(tImage).image
    tdestrect = tDestImg.rect
    tMargins = (tDestImg.rect - tSourceImg.rect)
    tdestrect = (rect(0, 0, tSourceImg.width, tSourceImg.height) + tMargins)
    tDestImg.copyPixels(tSourceImg, tdestrect, tSourceImg.rect)
    tElem.feedImage(tDestImg)
  end if
end

on RemoveOpponentCards me, tOpponentNum 
  if pOpenWindow <> "poker_cards.window" then
    return FALSE
  end if
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  i = 1
  repeat while i <= 5
    tElem = tWndObj.getElement("player_" & tOpponentNum & "_" & i)
    if (tElem = 0) then
      return FALSE
    end if
    tElem.clearImage()
    i = (1 + i)
  end repeat
end

on drawSelectedCards me, tElemName 
  if pOpenWindow <> "poker_cards.window" then
    return FALSE
  end if
  tWndObj = getWindow(pWindowTitle)
  tElem = tWndObj.getElement(tElemName)
  tmember = "game_small_back_1"
  if tmember <> 0 then
    tDestImg = tElem.getProperty(#image)
    tSourceImg = member(tmember).image
    tdestrect = tDestImg.rect
    tDestImg.copyPixels(tSourceImg, tdestrect, tSourceImg.rect)
    tElem.feedImage(tDestImg)
  end if
end

on hideChangeCards me 
  if pOpenWindow <> "poker_cards.window" then
    return FALSE
  end if
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tElem = tWndObj.getElement("poker_ready")
  if (tElem = 0) then
    return FALSE
  end if
  tElem.setProperty(#visible, 0)
  return TRUE
end

on changePokerWindow me, tView 
  tWndObj = getWindow(pWindowTitle)
  if (tWndObj = 0) then
    return FALSE
  end if
  tPosY = tWndObj.getProperty(#locY)
  tPosX = tWndObj.getProperty(#locX)
  me.ChangeWindowView(pWindowTitle, tView, #eventProcPoker, tPosX, tPosY)
end

on PokerListMyCards me, tMsg 
  tItemD = the itemDelimiter
  the itemDelimiter = "/"
  tProps = tMsg.getProp(#item, 2)
  the itemDelimiter = ","
  me.getComponent().setProp(#pOpenGameProps, #changeDone, tProps.getProp(#item, 1))
  me.getComponent().setProp(#pOpenGameProps, #amountChanged, tProps.getProp(#item, 2))
  if (value(tProps.getProp(#item, 1)) = 0) then
    tText = getText("game_poker_change", "Choose cards to change")
    me.PokerShowStatusText(tText, "poker_message")
  end if
  the itemDelimiter = "/"
  i = 1
  repeat while i <= 5
    tCard = tMsg.getProp(#item, (i + 2))
    me.getComponent().setProp(#pOpenGameProps, #my_ & i, tCard)
    me.drawPokerCard("my_" & i, "game_" & tCard)
    i = (1 + i)
  end repeat
  the itemDelimiter = tItemD
  if not voidp(pPokerOpponentChange) then
    me.pokerMarkCards()
  end if
end

on PokerHandleOpponents me, tMsg 
  pMyName = getObject(#session).get(#userName)
  if voidp(pPokerOpponentChange) then
    pPokerOpponentChange = [[], [], []]
  end if
  tOppList = me.getComponent().getProp(#pOpenGameProps, #opponentList)
  if not voidp(tOppList) then
    tOpponents = tOppList
  end if
  tOppList = []
  i = 1
  repeat while i <= (tMsg.count(#line) - 1)
    tName = tMsg.getPropRef(#line, i).getProp(#word, 1)
    tChange = tMsg.getPropRef(#line, i).getProp(#word, 2)
    tText = getText("game_poker_changed", "changed")
    if tName <> pMyName then
      tOppList.add(tName)
      if (pOpenWindow = "poker_cards.window") then
        if value(tChange) > 0 then
          tPlayer = tName & "\r" & tText && tChange
          me.PokerShowStatusText(tPlayer, "poker_player_" & tOppList.count)
        else
          me.PokerShowStatusText(tName, "poker_player_" & tOppList.count)
        end if
      end if
      me.pokerMarkCards()
    end if
    i = (1 + i)
  end repeat
  if not voidp(tOpponents) then
    i = 1
    repeat while i <= tOpponents.count
      if (tOppList.findPos(tOpponents.getAt(i)) = 0) then
        tName = tOpponents.getAt(i)
        if tName <> pMyName then
          me.PokerOpponentLeaves(tName)
        end if
      end if
      i = (1 + i)
    end repeat
  end if
  me.getComponent().setProp(#pOpenGameProps, #opponentList, tOppList)
end

on PokerOpponentLeaves me, tName 
  tOppList = me.getComponent().getProp(#pOpenGameProps, #opponentList)
  tPlayerNum = tOppList.findPos(tName)
  me.RemoveOpponentCards(tPlayerNum)
  tOppList.deleteAt(tPlayerNum)
  tText = getText("game_poker_logoff", "Left the game")
  tPlayer = tName & "\r" & tText
  me.PokerShowStatusText(tPlayer, "poker_player_" & tPlayerNum)
  me.getComponent().setProp(#pOpenGameProps, #opponentList, tOppList)
end

on pokerChangeCards me, tMsg 
  tOppList = me.getComponent().getProp(#pOpenGameProps, #opponentList)
  tOpponents = tOppList.count
  tItemD = the itemDelimiter
  the itemDelimiter = "/"
  if tMsg.getProp(#item, 1) <> pMyName then
    tPlayerNum = tOppList.findPos(tMsg.getProp(#item, 1))
    tOpChanged = []
    if tMsg.getPropRef(#item, 2).count(#word) > 0 then
      i = 1
      repeat while i <= tMsg.getPropRef(#item, 2).count(#word)
        tOpChanged.add((integer(tMsg.getPropRef(#item, 2).getProp(#word, i)) + 1))
        i = (1 + i)
      end repeat
    end if
    pPokerOpponentChange.setAt(tPlayerNum, tOpChanged)
    if (pOpenWindow = "poker_cards.window") then
      me.pokerMarkCards()
    end if
    i = 1
    repeat while i <= (tMsg.count(#line) - 1)
      tName = tMsg.getPropRef(#line, i).getProp(#word, 1)
      if tName <> pMyName then
        tOppList.add(tName)
        me.PokerShowStatusText(tName, "poker_player_" & tOppList.count)
      end if
      i = (1 + i)
    end repeat
    if (pOpenWindow = "poker_cards.window") then
      tText = getText("game_poker_changed", "changed")
      tPlayer = tMsg.getProp(#item, 1) & "\r" & tText && tOpChanged.count
      me.PokerShowStatusText(tPlayer, "poker_player_" & tPlayerNum)
    end if
  else
    me.pokerChangeCursor()
  end if
  the itemDelimiter = tItemD
end

on PokerRevealCards me, tMsg 
  pPokerOpponentChange = [[], [], []]
  tOppChanged = me.getComponent().getProp(#pOpenGameProps, #PokerOpponentChange)
  tOppList = me.getComponent().getProp(#pOpenGameProps, #opponentList)
  tOpponents = tOppList.count
  tOppChanged = [:]
  tItemD = the itemDelimiter
  the itemDelimiter = "/"
  tPlayersCards = []
  i = 1
  repeat while i <= (tMsg.count(#line) - 1)
    if tMsg.getPropRef(#line, i).getProp(#item, 1) <> pMyName then
      tPlayersCards.add([])
      tMyList = tPlayersCards.count
      e = 1
      repeat while e <= 7
        tPlayersCards.getAt(tMyList).add(tMsg.getPropRef(#line, i).getProp(#item, e))
        e = (1 + e)
      end repeat
    end if
    i = (1 + i)
  end repeat
  me.changePokerWindow("poker_end.window")
  i = 1
  repeat while i <= 5
    me.drawPokerCard("my_" & i, "game_" & me.getComponent().getProp(#pOpenGameProps, #my_ & i))
    i = (1 + i)
  end repeat
  tText = getText("game_poker_ready", "READY")
  i = 1
  repeat while i <= tOpponents
    tPlayerNum = tOppList.findPos(tPlayersCards.getAt(i).getAt(1))
    e = 1
    repeat while e <= 5
      me.drawPokerCard("player_" & tPlayerNum & "_" & e, "game_" & tPlayersCards.getAt(tPlayerNum).getAt((e + 2)))
      e = (1 + e)
    end repeat
    tPlayer = tPlayersCards.getAt(i).getAt(1) & "\r" & tText
    me.PokerShowStatusText(tPlayer, "poker_player_" & tPlayerNum)
    i = (1 + i)
  end repeat
  the itemDelimiter = tItemD
end

on pokerChangeCursor me 
  tWinObj = getWindow(pWindowTitle)
  tElem = tWinObj.getElement("my_1")
  if tElem.getProperty(#cursor) <> 0 then
    i = 1
    repeat while i <= 5
      tWinObj.getElement("my_" & i).setProperty(#cursor, 0)
      i = (1 + i)
    end repeat
  end if
end

on eventProcPoker me, tEvent, tElemID, tParam 
  if (tEvent = #mouseUp) then
    if (tElemID = "close") then
      me.closeGame("Poker")
    else
      if (tElemID = "game_newgame") then
        pPokerChangeCards = []
        me.changePokerWindow("poker_cards.window")
        me.getComponent().startPoker()
        tText = getText("game_poker", "POKER")
        me.PokerShowStatusText(tText, "poker_text1")
        tText = getText("game_newgame", "Start a new game")
        me.PokerShowStatusText(tText, "poker_start")
      else
        if tElemID <> "my_1" then
          if tElemID <> "my_2" then
            if tElemID <> "my_3" then
              if tElemID <> "my_4" then
                if (tElemID = "my_5") then
                  if (value(me.getComponent().getProp(#pOpenGameProps, #changeDone)) = 0) then
                    tMyCard = integer((tElemID.getProp(#char, length(tElemID)) - 1))
                    tCardSearch = pPokerChangeCards.findPos(tMyCard)
                    if tCardSearch <> 0 then
                      pPokerChangeCards.deleteAt(tCardSearch)
                      me.drawPokerCard(tElemID, "game_" & me.getComponent().getProp(#pOpenGameProps, tElemID))
                    else
                      pPokerChangeCards.add(tMyCard)
                      me.drawPokerCard(tElemID, "game_BACKSIDE")
                    end if
                  end if
                else
                  if (tElemID = "poker_ready") then
                    if (value(me.getComponent().getProp(#pOpenGameProps, #changeDone)) = 0) then
                      me.hideChangeCards()
                      tCardCount = pPokerChangeCards.count
                      tCardList = ""
                      if tCardCount > 0 then
                        i = 1
                        repeat while i <= pPokerChangeCards.count
                          tCardList = tCardList && pPokerChangeCards.getAt(i)
                          i = (1 + i)
                        end repeat
                      end if
                      me.getComponent().pokerChangeCards(tCardList)
                      pPokerChangeCards = []
                      if me.getComponent().getPropRef(#pOpenGameProps, #opponentList).count > 0 then
                        tText = getText("game_poker_waiting", "Waiting for opponents")
                        me.PokerShowStatusText(tText, "poker_message")
                      else
                        tText = getText("game_poker_changed", "Cards changed")
                        me.PokerShowStatusText(tText, "poker_message")
                      end if
                    end if
                  end if
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end