Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. Sub Setup()
    
  2. For X As Uinteger = 1 To 8
    
  3.     G_CurrentField(X, 2) = SKI_F_pawns
    
  4.     G_CurrentField(X, 7) = SKI_F_pawns Or SKI_P_Black
    
  5. Next
    
  6. For X As Uinteger = 0 To 1
    
  7.     G_CurrentField(1 + 7 * X, 1) = SKI_F_rook
    
  8.     G_CurrentField(1 + 7 * X, 8) = SKI_F_rook Or SKI_P_Black
    
  9.     G_CurrentField(2 + 5 * X, 1) = SKI_F_knight
    
  10.     G_CurrentField(2 + 5 * X, 8) = SKI_F_knight Or SKI_P_Black
    
  11.     G_CurrentField(3 + 3 * X, 1) = SKI_F_bishop
    
  12.     G_CurrentField(3 + 3 * X, 8) = SKI_F_bishop Or SKI_P_Black
    
  13.     G_CurrentField(4, 1 + X * 7) = SKI_F_King Or Iif(X = 0, 0, SKI_P_Black)
    
  14.     G_CurrentField(5, 1 + X * 7) = SKI_F_Queen Or Iif(X = 0, 0, SKI_P_Black)
    
  15. Next
    
  16. End Sub