100 Plus Great Games 2/100PLUSV2.BIN/games/GoMoku.dxr/00034_gameMovie4.ls

Text File | 2002-01-25 | 6.7 KB | 276 lines

global gGameBoard, gKounterH, gKounterV, gPosH, gPosV, gPuppeter, singleUndo, gPlaying, gSingleMove, gCompsTurn, gEKountH, gEKountV, gEPuppet, gEMoves, gEWinX, gEWinY, gETrys, gEholdX, gEholdY, gELineH, gELineV, gELineHolder, gELineDirection, gGo4WinV, gGo4WinH, gCheckPLines, gNuLine, gEBalls, gNuMapPosX, gNuMapPosY, gKountY, gKountX, gESaveLength, gLineDot, gAdd5Xs, gKount2, gFullBoard, gSpecial

on Direction_Right
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineH = gELineH + 1
      gELineHolder[2] = 1
    else
      if gELineHolder[3] = 0 then
        gELineH = gELineH + 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineH = gELineH + 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineH = gELineH + 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end

on Direction_Left
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineH = gELineH - 1
      gELineHolder[2] = 1
    else
      if gELineHolder[3] = 0 then
        gELineH = gELineH - 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineH = gELineH - 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineH = gELineH - 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end

on Direction_Up
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineV = gELineV - 1
      gELineHolder[2] = 1
    else
      if gELineHolder[3] = 0 then
        gELineV = gELineV - 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineV = gELineV - 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineV = gELineV - 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end

on Direction_Down
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineV = gELineV + 1
      gELineHolder[2] = 1
    else
      if gELineHolder[3] = 0 then
        gELineV = gELineV + 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineV = gELineV + 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineV = gELineV + 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end

on Direction_Down_Right
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineV = gELineV + 1
      gELineH = gELineH + 1
      gELineHolder[2] = 1
      if gGameBoard[gELineV][gELineV] <> 0 then
      end if
    else
      if gELineHolder[3] = 0 then
        gELineV = gELineV + 1
        gELineH = gELineH + 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineV = gELineV + 1
          gELineH = gELineH + 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineV = gELineV + 1
            gELineH = gELineH + 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end

on Direction_Up_Left
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineV = gELineV - 1
      gELineH = gELineH - 1
      gELineHolder[2] = 1
    else
      if gELineHolder[3] = 0 then
        gELineV = gELineV - 1
        gELineH = gELineH - 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineV = gELineV - 1
          gELineH = gELineH - 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineV = gELineV - 1
            gELineH = gELineH - 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end

on Direction_Down_Left
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineV = gELineV + 1
      gELineH = gELineH - 1
      gELineHolder[2] = 1
    else
      if gELineHolder[3] = 0 then
        gELineV = gELineV + 1
        gELineH = gELineH - 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineV = gELineV + 1
          gELineH = gELineH - 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineV = gELineV + 1
            gELineH = gELineH - 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end

on Direction_Up_Right
  if gELineHolder[1] = 0 then
    selectLine()
    gELineDirection = random(9)
    gELineHolder[1] = 1
  else
    if gELineHolder[2] = 0 then
      gELineV = gELineV - 1
      gELineH = gELineH + 1
      gELineHolder[2] = 1
    else
      if gELineHolder[3] = 0 then
        gELineV = gELineV - 1
        gELineH = gELineH + 1
        gELineHolder[3] = 1
      else
        if gELineHolder[4] = 0 then
          gELineV = gELineV - 1
          gELineH = gELineH + 1
          gELineHolder[4] = 1
        else
          if gELineHolder[5] = 0 then
            gELineV = gELineV - 1
            gELineH = gELineH + 1
            gELineHolder[1] = 0
            gELineHolder[2] = 0
            gELineHolder[3] = 0
            gELineHolder[4] = 0
            gELineHolder[5] = 0
          end if
        end if
      end if
    end if
  end if
end