SDL & Event

[zaero]

Swat, мне нужна помощь. Как получить событие на SDL ? Вот пример. Мне в нем надо чтоб при стыке двух обьектов например вылазила картинка... И еще как узнать координаты обьекта?

Код:

-- The question about event to Swat by zaero

function mySDL_init_video()
   SDL.SDL_BlitSurface = SDL.SDL_UpperBlit;
   --Инициализируем SDL
   SDL.SDL_Init(SDL.SDL_INIT_VIDEO);
   --Закрываем графику DreamShell
   --DS.ds_draw_shutdown();
   --Устанавливаем видеорежим в 640x480 16 bit
   flags = SDL.bit_or(SDL.SDL_HWSURFACE, SDL.SDL_DOUBLEBUF);
   screen = SDL.SDL_SetVideoMode(640,480,16,flags);
end

function myPause_and_DS_init_video()
    --Пауза в 3 секунды
    SDL.SDL_Delay(3000);
    --Инициализируем назад графику DreamShell
    --DS.ds_draw_init();
end

function myMove_general()
mySDL_init_video() --инициализируем SDL и выставляем видео режим
function myMove(n,d)
    if n<500 then
      --- движение по горизонтали
      SDL.SDL_drawCircle_TG(screen, n, 240, 10, 255, 0, SDL.SDL_TG_ANTIALIAS);
      SDL.SDL_drawCircle_TG(screen, n-30, 240, 10, 0, 0, SDL.SDL_TG_ANTIALIAS);    
      -- движение по вертикали
      SDL.SDL_drawCircle_TG(screen, 480, n-240, 10, -255, 0, SDL.SDL_TG_ANTIALIAS);
      SDL.SDL_drawCircle_TG(screen, 480, n-270, 10, 0, 0, SDL.SDL_TG_ANTIALIAS);    
      SDL.SDL_Delay(100); -- Задаем скорость перемещения
      SDL.SDL_Flip(screen);
    end
end;

function myMove_value()
   for i=1, 500, 30 do
       n=i
   myMove(n) -- Вызываем функцию и передаем ей параметры
end end;

myMove_value() -- Вызываем функцию
myPause_and_DS_init_video() -- пауза на 3 секунды
end

myMove_general()