Home/ Questions/Q 3312010
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-17T21:56:37+00:00

Using Rebol/View 2.7.7, I’m trying to create a card game based on Nick’s Rebol

  • 0

Using Rebol/View 2.7.7, I’m trying to create a card game based on Nick’s Rebol tutorial at: http://re-bol.com/rebol.html#section-10.18. What I want to do though is read the cards from the binary file Nick created, discard some of the data, and use it to layout a tableau of cards, 4 rows of 3 columns, with the 2 center card locations not used.

Here’s my code:

protect-system

random/seed now

do %cards.r  ;--include the binary card data

the-tableau: [
 size 320x480 backdrop 0.170.0
 style tabstyle image 80x100 teal
 style holdplace box 80x100 coal
 across
 at 30x20 tc1: tabstyle
 tc2: tabstyle 
 tc3: tabstyle return
 at 30x130 tc4: tabstyle
 tc100: holdplace
 tc5: tabstyle return
 at 30x240 tc6: tabstyle
 tc200: holdplace
 tc7: tabstyle return
 at 30x350 tc8: tabstyle
 tc9: tabstyle
 tc10: tabstyle
]

lc: copy []
lc: [tc1 tc2 tc3 tc4 tc5 tc6 tc7 tc8 tc9 tc10]
deck-cards: copy []  ; The deck holds all of the cards from the binary file
deck-cards-num: copy []
deck-cards-color: copy []
lay: layout the-tableau
foreach [card label num color pos] cards [

 dimg: load to-binary decompress (card)
 append deck-cards dimg ;feel movestyle
 throw-away-label: label
 append deck-cards-num num
 append deck-cards-color color
 throw-away-pos: pos
]

random-card: does [pick deck-cards random length? deck-cards]
foreach c lc [set-face get c deck-cards]

view lay

do-events

But this doesn’t show the cards at all. I’m not even sure it’s reading the correctly? Where is the problem?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Actually you didn’t use the random-card function in your for loop at the end… 🙂

    foreach c lc [get c set-face get c random-card ]

    You note that you are not sure if data was loaded correctly…

    here is a simple way to find out… just print/probe the TYPE? of that data

    dimg: load to-binary decompress (card)
probe type? dimg

    In this case it will print out image! in the console… so yep… that’s working. 🙂

    As an added little detail, I noticed you didn’t compensate your random for the “back face” image in the card data (which is at its end), so the random-card function should be fixed like so:

    random-card: does [pick deck-cards random (length? deck-cards) - 1] ; - 1 since we don't want the back face to be picked.
    • 0