gamesspinner [BASIC 256 - Language Documentation]

# BASIC 256 - Language Documentation

gamesspinner

Spin a pointer to generate a random number. Requires 0.9.9.26 or higher.

    # spinner.kbs - spin the wheel for a random number
    # 2013-01-03 j.m.reneau
    # requires 0.9.9.26 or higher
    clg
    dim colors(1)
    colors = {red, green, yellow, blue, cyan, purple}
    fastgraphics
    n = rand
    segments = 10	# change for a different number of stops
    slice = 2 * pi / segments
    ha = 2*pi*(1+n)
    n = int(n*segments+1)
    for t = 0 to ha step pi/30
       clg
       a = 0
       for u = 0 to segments-1
          color black,colors[u%colors[?]]
          pie 0,0,300,300,a,slice
          a = a + slice
       next u
       color black
       call spinner(t)
       refresh
       pause .01
       if ha-t < 1 then pause .1
       if ha-t < .3 then pause .1
    next t
    color white
    font "arial",100,100
    text 110,70,n
    refresh
    print n
    end
    subroutine spinner(a)
       stamp 150,150,3,a,{-2,2,-2,-40,-5,-40,0,-50,5,-40,2,-40,2,2}
    end subroutine

gamesspinner.txt · Last modified: 2013/01/03 21:04 by admin