3 interface
4 const
45 var
54 //function get_key_clicked:integer;
55 //function get_key_pressed:integer;
67 implementation
69 var
80 var
83 begin
87 bytecode
92 bytecode
97 bytecode
102 bytecode
112 begin
117 begin
124 begin
129 var
131 begin
134 begin
136 exit;
141 var
143 begin
146 begin
148 exit;
153 begin
157 drawfonttext('or touch the screen.', getWidth/2-(length('or touch the screen.')*8)/2, getHeight-8);
158 repaint;
160 repeat
161 updateKeys;
163 begin
165 exit;
168 begin
170 exit;
172 forever;
176 begin
181 begin
183 if (pointer_pressed_x>ix*scrMulX) and (pointer_pressed_y>iy*scrMulY) and (pointer_pressed_x<(ix+xx)*scrMulX) and (pointer_pressed_y<(iy+yy)*scrMulY) then
184 begin
191 begin
193 if (pointer_pressed_x>ix*scrMulX) and (pointer_pressed_y>iy*scrMulY) and (pointer_pressed_x<(ix+xx)*scrMulX) and (pointer_pressed_y<(iy+yy)*scrMulY) then
198 var
200 begin
208 begin
209 if senClicked(v_keyx[i], v_keyy[i], getImageWidth(v_keyimg[i]), getImageHeight(v_keyimg[i])) then
211 if senPressed(v_keyx[i], v_keyy[i], getImageWidth(v_keyimg[i]), getImageHeight(v_keyimg[i])) then
217 var
219 begin
225 initialization