-
Notifications
You must be signed in to change notification settings - Fork 0
/
constants.rkt
45 lines (35 loc) · 1.21 KB
/
constants.rkt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
; Constante pentru joc
; Nu modificați imaginile de referință sunt create pentru aceste valori.
#lang racket
(require lang/posn)
(provide (all-defined-out))
(define fps 28.0)
(define scene-height 960)
(define scene-width 640)
(define ground-height (quotient scene-height 6))
(define ground-y (- scene-height ground-height))
(define initial-gravity 1.3)
(define initial-momentum 15.0)
(define bird-width 81)
(define bird-height 57)
(define bird-x (quotient scene-width 3))
(define bird-initial-y (quotient scene-height 2))
(define pipe-width 104)
(define pipe-height scene-height)
(define pipe-gap 232.75)
(define pipe-self-gap 280)
(define initial-scroll-speed 7.0)
(define added-number (quotient scene-height 8))
(define random-threshold (- (- scene-height (* 2 added-number)) pipe-self-gap))
(define no-pipes 6)
(define text-height 50)
(define text-x (- scene-width 50))
(define text-y 50)
(define text-posn (make-posn (- scene-width 50) 50))
(define abilities-posn (make-posn (- scene-width 50) 80))
(define DISPLAYED_ABILITIES 4)
(define SHOW_SCORE #t)
; checker stuff
(define (disable-score) (set! SHOW_SCORE #f))
(define (disable-bonus) (set! DISPLAYED_ABILITIES 0))
(define (enable-bonus) (set! DISPLAYED_ABILITIES 4))