trackballs-data 1.2.4-1 / usr / share / games / trackballs / levels / sl1.scm

This file is indexed.

/usr/share/games/trackballs/levels/sl1.scm is in trackballs-data 1.2.4-1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  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
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
;; SIX LEVELS
;; No jumping!

;;  This level is filled with different sorts of obstacles, for example the cannon which shoots spiky marbles at you.



(day)
(set-track-name (_ "No jumping!"))
(set-author "Ulrik Enstad")
(cond
 ((= (difficulty) *easy*)
         (start-time 180)
 )
 ((= (difficulty) *normal*)
         (start-time 150)
 )
 ((= (difficulty) *hard*)
         (start-time 100)
 )
)
(set-start-position 250 250)
(jump 0.0)
(restart-time 0)

;; sign
(sign (_ "No jumping!") 1 20.0 -1 249 249)

;; the cannon
(set-wind (pipe 251.2 243 4.8 248.5 243 4.8 0.3) 16.0 0.0)

;; when you roll over these spots, the cannon will get ammo! Be careful!
(smart-trigger 248 248 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

(smart-trigger 248 243 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

(smart-trigger 245 244 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

(smart-trigger 245 241 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

(smart-trigger 245 248 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

(smart-trigger 245 245 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

(smart-trigger 242 243 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

(smart-trigger 243 242 0.5 (lambda ()
(set-primary-color (set-modtime (set-modtime (new-mr-black 252 243) *mod-small* -1.) *mod-spike* -1.) 1.0 0.0 0.0))
(lambda () (day)))

;; some delicious flags
(add-flag 243 248 50 #t 0.1)
(set-primary-color (add-flag 233 202 500 #t 0.1) 1.0 1.0 0.0)
(set-primary-color (add-flag 246 222 500 #t 0.1) 1.0 1.0 0.0)
(add-flag 245 233 50 #t 0.1)
(define timeflag1 (add-flag 229 215 0 #t 0.1))
(time-on-death timeflag1 30)
(set-primary-color timeflag1 0.0 1.0 0.0)
(add-modpill 231 202 *mod-extra-life* 10 0)

;; spikes on the four-colored field
(define spike1 (add-spike 234 216 .2 0.00))
(define spike2 (add-spike 234 215 .2 0.00))
(define spike3 (add-spike 234 218 .2 0.20))
(define spike4 (add-spike 234 217 .2 0.20))

(define spike5 (add-spike 233 216 .2 0.00))
(define spike6 (add-spike 233 215 .2 0.00))
(define spike7 (add-spike 233 218 .2 0.20))
(define spike8 (add-spike 233 217 .2 0.20))

(define spike9  (add-spike 232 218 .2 0.40))
(define spike10 (add-spike 232 217 .2 0.40))
(define spike11 (add-spike 232 216 .2 0.60))
(define spike12 (add-spike 232 215 .2 0.60))

(define spike13 (add-spike 231 218 .2 0.40))
(define spike14 (add-spike 231 217 .2 0.40))
(define spike15 (add-spike 231 216 .2 0.60))
(define spike16 (add-spike 231 215 .2 0.60))

(cond
 ((= (difficulty) *normal*)
(set-speed spike1 0.2)
(set-speed spike2 0.2)
(set-speed spike3 0.2)
(set-speed spike4 0.2)

(set-speed spike5 0.2)
(set-speed spike6 0.2)
(set-speed spike7 0.2)
(set-speed spike8 0.2)

(set-speed spike9 0.2)
(set-speed spike10 0.2)
(set-speed spike11 0.2)
(set-speed spike12 0.2)

(set-speed spike13 0.2)
(set-speed spike14 0.2)
(set-speed spike15 0.2)
(set-speed spike16 0.2)
 )
 ((= (difficulty) *easy*)
(set-speed spike1 0.1)
(set-speed spike2 0.1)
(set-speed spike3 0.1)
(set-speed spike4 0.1)

(set-speed spike5 0.1)
(set-speed spike6 0.1)
(set-speed spike7 0.1)
(set-speed spike8 0.1)

(set-speed spike9 0.1)
(set-speed spike10 0.1)
(set-speed spike11 0.1)
(set-speed spike12 0.1)

(set-speed spike13 0.1)
(set-speed spike14 0.1)
(set-speed spike15 0.1)
(set-speed spike16 0.1)
 )
 ((= (difficulty) *hard*)
(set-speed spike1 0.5)
(set-speed spike2 0.5)
(set-speed spike3 0.5)
(set-speed spike4 0.5)

(set-speed spike5 0.5)
(set-speed spike6 0.5)
(set-speed spike7 0.5)
(set-speed spike8 0.5)

(set-speed spike9 0.5)
(set-speed spike10 0.5)
(set-speed spike11 0.5)
(set-speed spike12 0.5)

(set-speed spike13 0.5)
(set-speed spike14 0.5)
(set-speed spike15 0.5)
(set-speed spike16 0.5)
 )
)

;; roll over this spot to higher the four-colored field
(define blinker (add-colormodifier 3 226 221 0.5 1.0 0.5 1.0))
(trigger-once 226 221 0.5 (lambda ()
(set-cell-heights 231 215 234 218 -0.8 -0.8 -0.8 -0.8)
(set-onoff blinker #f)
))

(smart-trigger 226 221 0.5 (lambda () (play-effect "click.wav")) (lambda () (day)))

;; hmmm
(diamond 235.5 217.5)

;; goal
(add-goal 226 225 #t "sl2")


;; hints to win level:
;; in the cannon maze, choose the way farest from the cannon.
;; move between the spikes where it's impossible to be hit.

APT Browse - Built by Thomas Orozco.