Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. include "celltype.inc"
  2.  
  3. macro Header name, game_type, x, y
  4. {
  5.     db game_type,x,y
  6.   local ..label
  7.     db ..label-$-1
  8.     db name
  9.   ..label:
  10. }
  11.  
  12. macro C cell,cnt
  13. {
  14.     if cnt eq
  15.         db (cell shl 4)
  16.     else
  17.         db (cell shl 4)+cnt-1
  18.     end if
  19. }
  20.  
  21.  
  22. Header 'Sokonex test', sSokonex, 6, 6
  23.  
  24. ; # Wall; + Connector; * Player; B Block
  25.  
  26. ; ######
  27. ; #  + #
  28. ; #    #
  29. ; # ++ #
  30. ; #*   #
  31. ; ######
  32.  
  33. C tWall,7
  34.  
  35. C tEmpty,2
  36. C tConnect
  37. C tEmpty
  38.  
  39. C tWall,2
  40. C tEmpty,4
  41. C tWall,2
  42. C tEmpty
  43.  
  44. C tConnect,2
  45. C tEmpty
  46. C tWall,2
  47. C tPlayer
  48.  
  49. C tEmpty,3
  50. C tWall,7
  51.  
  52. EndConf
  53.  
  54. Header 'Just push!', sSokoban, 9, 8
  55.  
  56. ;   #####  
  57. ; ###   ###
  58. ; #  @@@  #
  59. ; #  # #  #
  60. ; ## #B# ##
  61. ; # B * B #
  62. ; #   #   #
  63. ; #########
  64.  
  65. C tEmpty,2
  66. C tWall,5
  67. C tEmpty,2
  68.  
  69. C tWall,3
  70. C tEmpty,3
  71. C tWall,4
  72. C tEmpty,2
  73. C tPlace,3
  74. C tEmpty,2
  75. C tWall,2
  76. C tEmpty,2
  77.  
  78. C tWall
  79. C tEmpty
  80. C tWall
  81. C tEmpty,2
  82. C tWall,3
  83. C tEmpty
  84. C tWall
  85. C tBlock
  86. C tWall
  87. C tEmpty
  88. C tWall,3
  89. C tEmpty
  90. C tBlock
  91. C tEmpty
  92. C tPlayer
  93. C tEmpty
  94. C tBlock
  95. C tEmpty
  96. C tWall,2
  97. C tEmpty,3
  98. C tWall
  99. C tEmpty,3
  100. C tWall,10
  101.  
  102. EndConf
  103.