Script Library: 1238 scripts


REBOL [ title: "Coin Flip" date: 27-Nov-2013 file: %coinflip.r author: Nick Antonaccio purpose: { A little example for a student. Click the button to randomly flip the coin image. Based on the example video at Video at } ] h: load t: load random/seed now view g: layout [ i: image h f: field btn "Flip" [ f/text: first random ["Heads" "Tails"] either f/text = "Heads" [i/image: h] [i/image: t] show g ] ]
halt ;; to terminate script if DO'ne from webpage