Page 1 of 1

### Big wheel

Posted: Wed Dec 10, 2008 3:24 pm
The big wheel

Code: Select all

``````//
//	Big wheel by intre
//

SCREEN_WIDTH = 240
SCREEN_HEIGHT = 320
resize_pixi(0, SCREEN_WIDTH, SCREEN_HEIGHT)

cabins_num = 10
angle = 0

Y=#00FF80  t=#80FFFF
cabin_img = "
.......00000........
......00YYY00.......
.....00YYYYY00......
.....00YYYYY00......
......00YYY00.......
.......00000........
......0000000.......
......00...00.......
.....00.....00......
.....00.....00......
....00.......00.....
....00.......00.....
...00.........00....
.000000000000000000.
00000000000000000000
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00ttttttt00ttttttt00
00000000000000000000
00YYYYYYY00YYYYYYY00
00YYY00YY00YY00YYY00
00YYY00YY00YY00YYY00
00YYYYYYY00YYYYYYY00
00YYYYYYY00YYYYYYY00
00000000000000000000
.000000000000000000.
"
make_pixi(cabin_img)
wheel_img = new_pixi(SCREEN_WIDTH, SCREEN_HEIGHT, 1)

COLOR = BLUE
FALL_SPEED = 2
ROT_SPEED = 1
W_THICK = 4

X=0 Y=1 FALL=2 SIZE=3
cabins = new_array(cabins_num*SIZE)
n = 0
while(n < cabins_num){
cabins[n*SIZE+FALL] = 0
n+1
}

// calculate wheel
x = 0
while(x < SCREEN_WIDTH){
y = 0
while(y < SCREEN_HEIGHT){
L = (x-SCREEN_WIDTH/2)*(x-SCREEN_WIDTH/2) + (y-SCREEN_HEIGHT/2)*(y-SCREEN_HEIGHT/2)
sqrt
if (radius-W_THICK/2 < rslt) & (rslt < radius+W_THICK/2) { col = COLOR }
else { col = SNEG }

wheel_img[y*SCREEN_WIDTH+x] = col
y+1
}
x+1
}

while(1){
clear(SNEG)

// draw wheel
pixi(wheel_img, 0, 0)

// draw cabins
n = 0
while(n < cabins_num){
if cabins[n*SIZE+FALL] = 0 {
} else {
cabins[n*SIZE+Y] = cabins[n*SIZE+Y]+FALL_SPEED
}
pixi(cabin_img, cabins[n*SIZE+X], cabins[n*SIZE+Y])
n+1
}

// check user clicked
handle_pen_keys({
n = cabins_num-1
while(n >= 0){
if gpr(-get_pixi_xsize(cabin_img)/2+cabins[n*SIZE+X], -get_pixi_ysize(cabin_img)/2+cabins[n*SIZE+Y], get_pixi_xsize(cabin_img), get_pixi_ysize(cabin_img)){
cabins[n*SIZE+FALL] = 1
n = -1	// break
}
n-1
}
}, {}, {})

// draw text
print("Click on the cabins", -SCREEN_WIDTH/2+5, -SCREEN_HEIGHT/2+5, #808080)

angle+ROT_SPEED
frame(50)
}

sqrt:
rslt = L
div = L
if L <= 0 { ret }
while (1){
div = (L / div + div) / 2
if rslt > div { rslt = div }
else { ret }
}
ret
``````