efl

1

2
#define DEBUG_ENABLE 0
3
#define FPS 30
4
#define COLOR_BG 50 50 50 255
5
#define COLOR_FG 222 222 222 255
6
#define PAD_SIZE 60
7
#define PAD_DISTANCE 20
8
#define BALL_SPEED 5.0
9
#define BALL_SPEEDUP 0.1
10
#define BALL_SIZE 10
11

12

13
collections {
14
   group { name: "main";
15
      min: 500 300;
16
      script {
17
         public ballx, bally;
18
         public ballspeedx, ballspeedy;
19
         public player_score, ai_score;
20

21
         public game_reset() {
22
            set_int(ai_score, 0);
23
            set_int(player_score, 0);
24
            set_text(PART:"score1", "0");
25
            set_text(PART:"score2", "0");
26
            game_init();
27
         }
28
         
29
         public game_init() {
30
            set_float(ballspeedx, 0.0);
31
            set_float(ballspeedy, 0.0);
32
            set_float(ballx, 100);
33
            set_float(bally, 100);
34
         }
35
         
36
         public start_game() {
37
            set_float(ballspeedx, BALL_SPEED);
38
            set_float(ballspeedy, BALL_SPEED * randf());
39
         }
40

41
         public player_wins() {
42
            new buf[16]
43
            set_int(player_score, get_int(player_score) + 1);
44
            snprintf(buf, sizeof(buf), "%d", get_int(player_score));
45
            set_text(PART:"score1", buf);
46
            game_init();
47
         }
48

49
         public ai_wins() {
50
            new buf[16]
51
            set_int(ai_score, get_int(ai_score) + 1);
52
            snprintf(buf, sizeof(buf), "%d", get_int(ai_score));
53
            set_text(PART:"score2", buf);
54
            game_init();
55
         }
56

57
         public game_loop(count) {
58
            count++;
59

60
            /* get field geometry */
61
            new fx, fy, fw, fh;
62
            get_geometry(PART:"bg", fx, fy, fw, fh);
63

64
            /* get mouse coords */
65
            new mx, my;
66
            get_mouse(mx, my);
67

68
            /* get the ball info */
69
            new Float:bx = get_float(ballx);
70
            new Float:by = get_float(bally);
71
            new Float:speedx = get_float(ballspeedx);
72
            new Float:speedy = get_float(ballspeedy);
73

74
            /* move the player pad */
75
            new pady = my - PAD_SIZE / 2;
76
            if (pady < 0) pady = 0;
77
            else if (pady + PAD_SIZE > fh) pady = fh - PAD_SIZE;
78
            custom_state(PART:"pad1", "default", 0.0);
79
            set_state_val(PART:"pad1", STATE_REL1_OFFSET, 20, pady);
80
            set_state(PART:"pad1", "custom", 0.0);
81

82
            /* move the AI pad */
83
            new pad2y = round(by) - PAD_SIZE / 2 - BALL_SIZE / 2;
84
            if (pad2y < 0) pad2y = 0;
85
            else if (pad2y + PAD_SIZE > fh) pad2y = fh - PAD_SIZE;
86
            custom_state(PART:"pad2", "default", 0.0);
87
            set_state_val(PART:"pad2", STATE_REL1_OFFSET, 20, pad2y);
88
            set_state(PART:"pad2", "custom", 0.0);
89
         
90
            /* calc new ball position */
91
            bx += speedx;
92
            by += speedy;
93

94
            /* check walls collision */
95
            if (by < 0)
96
            {
97
               speedy = -speedy;
98
               by = 0;
99
            }
100
            else if (by + BALL_SIZE > fh)
101
            {
102
               speedy = -speedy;
103
               by = fh - BALL_SIZE - 1;
104
            }
105

106
            /* check player pad collision */
107
            if ((speedx < 0) &&
108
                (bx < PAD_DISTANCE + 10) && (bx > 0) &&
109
                (by + BALL_SIZE > pady) && (by < pady + PAD_SIZE))
110
            {
111
               new Float:dy = by - pady - PAD_SIZE / 2;
112
               speedy += dy / 10;
113
               speedx = -speedx + BALL_SPEEDUP;
114
            }
115

116
            /* check AI pad collision */
117
            else if ((bx + BALL_SIZE > fw - PAD_DISTANCE - 10) &&
118
                     (bx + BALL_SIZE < fw) &&
119
                     (by + BALL_SIZE > pad2y) && (by < pad2y + PAD_SIZE))
120
            {
121
               new Float:dy = by - pad2y - PAD_SIZE / 2;
122
               speedy += dy / 10;
123
               speedx = -speedx - BALL_SPEEDUP;
124
            }
125
            
126
            /* apply the new ball position */
127
            custom_state(PART:"ball", "default", 0.0);
128
            set_state_val(PART:"ball", STATE_REL1_OFFSET, round(bx), round(by));
129
            set_state(PART:"ball", "custom", 0.0);
130

131
            /* update global vars */
132
            set_float(ballx, bx);
133
            set_float(bally, by);
134
            set_float(ballspeedx, speedx);
135
            set_float(ballspeedy, speedy);
136

137
            /* AI score a point */
138
            if (bx < 0) ai_wins();
139
            /* player score a point */
140
            if (bx + BALL_SIZE > fw) player_wins();
141

142
            /* show debug info (if debug enabled) */
143
#if DEBUG_ENABLE
144
            new _buf[128];
145
            snprintf(_buf, sizeof(_buf),
146
                     "loop:%d  [speed %f  %f] [mouse: %d %d] [ball: %f %f]",
147
                     count, speedx, speedy, mx, my, bx, by);
148
            set_text(PART:"dbg", _buf);
149
#endif
150

151
            /* recall the loop in n seconds */
152
            timer(1.0 / FPS, "game_loop", count);
153
         }
154
      }
155
      parts {
156
         part { name: "bg";
157
            type: RECT;
158
            description { state: "default" 0.0;
159
               color: COLOR_BG;
160
            }
161
         }
162
         part { name: "net";
163
            type: RECT;
164
            description { state: "default" 0.0;
165
               color: COLOR_FG;
166
               max: 10 9999;
167
            }
168
         }
169
         part { name: "score1";
170
            type: TEXT;
171
            description { state: "default" 0.0;
172
               color: COLOR_FG;
173
               rel2.relative: 0.5 0.5;
174
               rel2.offset: -20 0;
175
               text {
176
                  text: "0";
177
                  font: "Sans";
178
                  size: 50;
179
                  align: 1.0 0.0;
180
               } 
181
            }
182
         }
183
         part { name: "score2";
184
            type: TEXT;
185
            description { state: "default" 0.0;
186
               color: COLOR_FG;
187
               rel1.relative: 0.5 0.0;
188
               rel1.offset: 20 0;
189
               text {
190
                  text: "0";
191
                  font: "Sans";
192
                  size: 50;
193
                  align: 0.0 0.0;
194
               } 
195
            }
196
         }
197
         part { name: "pad1";
198
            type: RECT;
199
            description { state: "default" 0.0;
200
               color: COLOR_FG;
201
               max: 10 PAD_SIZE;
202
               fixed: 1 1;
203
               align: 0.0 0.0;
204
               rel1.offset: PAD_DISTANCE 0;
205
            }
206
         }
207
         part { name: "pad2";
208
            type: RECT;
209
            description { state: "default" 0.0;
210
               color: COLOR_FG;
211
               max: 10 PAD_SIZE;
212
               fixed: 1 1;
213
               align: 1.0 0.0;
214
               rel2.offset: -PAD_DISTANCE 0;
215
            }
216
         }
217
         part { name: "ball";
218
            type: RECT;
219
            description { state: "default" 0.0;
220
               color: COLOR_FG;
221
               max: BALL_SIZE BALL_SIZE;
222
               fixed: 1 1;
223
               align: 0.0 0.0;
224
               rel1.offset: 100 100;
225
            }
226
         }
227
         #if DEBUG_ENABLE
228
         part { name: "dbg";
229
            type: TEXT;
230
            description { state: "default" 0.0;
231
               color: 255 255 255 200;
232
               text {
233
                  font: "Sans";
234
                  size: 12;
235
                  align: 1.0 1.0;
236
               }
237
            }
238
         }
239
         #endif
240
      }
241
      programs {
242
         /* on load: reset the game and start the game loop */
243
         program {
244
            signal: "load";
245
            source: "";
246
            script {
247
               game_reset();
248
               timer(0.1 , "game_loop", 0);
249
            }
250
         }
251
         /* mouse left click: start the game, if not yet started */
252
         program {
253
            signal: "mouse,down,1";
254
            source: "bg";
255
            script {
256
               if (get_float(ballspeedx) == 0.0)
257
                  start_game();
258
            }
259
         }
260
         /* mouse right click: restart the game*/
261
         program {
262
            signal: "mouse,down,3";
263
            source: "bg";
264
            script {
265
               game_reset();
266
            }
267
         }
268
      }
269
   }
270
}
271