1;;; The four seasons - Summer (lv 3)
2
3(day)
4(fog 0.01)
5(fog-color 0.8 0.8 1.0)
6(set-track-name (_ "Summer"))
7(set-author "Mathias Broxvall")
8(scale-oxygen 4.0)  ;; Let player be under water longer
9
10(start-time 300)
11(cond
12 ((= (difficulty) *easy*) (start-time 360))
13 ((= (difficulty) *normal*) (start-time 300))
14 ((= (difficulty) *hard*) (start-time 270))
15 )
16(set-start-position 199 197)
17;;(set-start-position 234.5 170.5)
18
19(define enemy1 (new-mr-black 200 201))
20(cond
21 ((= (difficulty) *easy*) (set-acceleration enemy1 3.0))
22 ((= (difficulty) *normal*) (set-acceleration enemy1 4.0))
23 ((= (difficulty) *hard*) (set-acceleration enemy1 5.0)))
24
25(add-cactus 199 194 0.3)
26
27(define pipes (multi-pipe '((200.5 199 -6.9) (207.5 199 -10.5) (229.5 199 -10.5)) 0.4 #f))
28;;(map (lambda (pipe) (set-primary-color pipe 0.5 0.5 0.5 0.5)) pipes)
29(set-primary-color (sign (_ "Remember to breathe") 1.0 15.0 0.0 212 199 -8.0) 1.0 1.0 0.4)
30(add-flag 212 199 100 #f 1.0)
31
32(diamond 234 193)
33(add-flag 234 193 100 #f 0.5)
34
35;; The bonus area
36(add-modpill 241 208 *mod-extra-life* 30 -1)
37(add-flag 241 207 100 #t 0.1)
38(add-flag 239 208 100 #t 0.1)
39
40(define speed #f)
41(cond
42 ((= (difficulty) *easy*) (set! speed 0.70))
43 ((= (difficulty) *normal*) (set! speed 0.40))
44 ((= (difficulty) *hard*) (set! speed 0.20))
45)
46(add-cyclic-platform 234 183 234 183 -11.0 -9.0 -0.0 speed)
47(add-cyclic-platform 235 182 235 182 -10.9 -8.9 -0.5 speed)
48(add-cyclic-platform 234 181 234 181 -10.8 -8.8 -1.0 speed)
49(add-cyclic-platform 235 180 235 180 -10.7 -8.7 -1.5 speed)
50(add-cyclic-platform 234 179 234 179 -10.6 -8.6 -2.0 speed)
51(add-cyclic-platform 235 178 235 178 -10.5 -8.5 -2.5 speed)
52(add-cyclic-platform 234 177 234 177 -10.4 -8.4 -3.0 speed)
53(add-cyclic-platform 235 176 235 176 -10.3 -8.3 -3.5 speed)
54(add-cyclic-platform 234 175 234 175 -10.2 -8.2 -4.0 speed)
55(add-cyclic-platform 235 174 235 174 -10.1 -8.1 -4.5 speed)
56(add-cyclic-platform 234 173 234 173 -10.0 -8.0 -5.0 speed)
57
58(add-flag 235 172 100 #t 0.1)
59(add-modpill 234 170 *mod-float* 60 60)
60
61(define enemy2 (new-mr-black 225 171))
62(cond
63 ((= (difficulty) *easy*) (set-acceleration enemy2 6.0))
64 ((= (difficulty) *normal*) (set-acceleration enemy2 8.0))
65 ((= (difficulty) *hard*) (set-acceleration enemy2 10.0)))
66(set-modtime enemy2 *mod-float* -1.)
67
68
69(add-cactus 208 167 0.3)
70
71;; Goal!
72(add-goal 205 169 #t "fourSeasons_4")
73(add-flag 203 168 100 #t 0.1)
74
75