none
Pieces for Chessgames RRS feed

  • General discussion

  • The only working chess program in Small Basic is from chessforeva.
    It can be downloaded with the Program-ID   SJQ481  , -0 , -1 , -2, -4(all the same?).

    However, the program can no longer load the game pieces over web. 
    Tryhest has fixed this with Chess fonts:   Program-ID   SJQ481-3

    The function LoadImage() fails, but the chesspieces can be downloaded manually.

    I would like to provide the game pieces and a customized copy of the program in the forum.

    Have fun with it. You have a real chance to win.

    MS Chessforeva with pieces from Small Basic-Forum:    TKM405

     Experimental version of MS Chessforeva:            KBG448  
     (Info-Outputs on GraphicsWindow)                               

    Monday, October 29, 2018 11:00 PM

All replies

  • Black Chess Pieces:

    Monday, October 29, 2018 11:31 PM
  • White Chess Pieces:

    Monday, October 29, 2018 11:34 PM
  • Originale im Archiv

    oder Chess symbols in Unicode  (das sind    chr = Text.GetCharacter(9812)    ' bis 9823)

    eg.

    GraphicsWindow.FontSize = 36
    For n = 1 To 12
      fig[n] = Shapes.AddText(Text.GetCharacter(9811+n))
      Shapes.Move(fig[n], (n-1)*40, 10)
    EndFor


    Monday, October 29, 2018 11:38 PM
    Answerer
  • Danke for the info about archive and Unicode.

    I have enlarged the representation to better recognize the differences between the fonts.

    GraphicsWindow.Width = 1280
    GraphicsWindow.Height = 640
    GraphicsWindow.FontSize = 128
    GraphicsWindow.BrushColor = "Black"
    
    f1 = Shapes.AddText(GraphicsWindow.FontName)
    Shapes.Move(f1, 55, 5)
    
    For n = 1 To 12
      fig[n] = Shapes.AddText(Text.GetCharacter(9811+n))
      Shapes.Move(fig[n], (n-1)*100+(n-1)*5, 130)
    EndFor
    
    GraphicsWindow.FontName = "Arial Unicode MS"
    
    f2 = Shapes.AddText(GraphicsWindow.FontName)
    Shapes.Move(f2, 55, 300)
    
    For n = 1 To 12
      fig[n] = Shapes.AddText(Text.GetCharacter(9811+n))
      Shapes.Move(fig[n], (n-1)*100+(n-1)*5, 420)
    EndFor

    Tuesday, October 30, 2018 10:48 AM
  • Ivory: #FFFFF0 vs.  Ebony: #555D50

    Found that "Arial Unicode MS" was not installed and had to DL it. Puuh, 22MB for a ttf is heftig.

    Wednesday, October 31, 2018 10:43 PM
    Answerer
  • White Chess Pieces 64x64:

    Sunday, April 19, 2020 4:43 PM
  • Black Chess Pieces 64x64:


    Sunday, April 19, 2020 4:48 PM
  • White Fields

    Sunday, April 19, 2020 5:08 PM
  • Black Fields

    Sunday, April 19, 2020 5:12 PM
  •  Control Panel
    Sunday, April 19, 2020 5:14 PM
  • New Version of MS Small Basic Chess with 64x64 fields for better overview 

    and Rosewood Background  

    ID:  SQC882

    Have fun

    Sunday, April 19, 2020 5:35 PM
  • New Version of MS Small Basic Chess with 64x64 fields for better overview 

    and Rosewood Background  

    ID:  SQC882

    Have fun

    Hi backtothestart, nice chess game!

    Nonki Takahashi

    Tuesday, April 21, 2020 1:03 PM
    Moderator