C помощью программы ниже можно осуществить движение по экрану прицела с помощью мышки. Для этого нам нужна сама программа(ниже) и рисунок: #include "fbgfx.bi" ' подключаем fbgfx.bi DIM AS INTEGER x,y,x1,y1 ' координаты прицела DIM g(4 * (48 * 48) + 4) AS BYTE ' адрес для картинки bmp SCREEN 18, 32 'размер экрана CLS 'очистка экрана BLOAD "1.bmp", @g(0) 'загрузка рисунка using FB 'объявляем о FB dim e as EVENT 'переменная e do 'начало цикла   if (screenevent(@e)) then       select case e.type ' сравниваем значение e.type         case EVENT_KEY_PRESS ' если нажата ESC           if (e.scancode = SC_ESCAPE) then end ' если нажата клавиша ESC-выход         end ' конец case EVENT_KEY_PRESSED         case EVENT_MOUSE_MOVE ' если координаты мышки изменились           PUT (x1-15,y1-35),g(0) ' рисуем прицел со старыми координатами(чтобы стереть)           PUT (e.x-15,e.y-35),g(0) 'рисуем прицел с новыми координатами           x1=e.x ' запомним координату x           y1=e.y ' запомним координату y         end select 'конец select case   end if ' конец if loop 'конец цикла Результат: Так же можно скачать эту программу: скачать программу прицел (размер:3кб)

Ссылка на эту страницу: Энвольтирование любовная магия - приворот на вино. Ведьма.

Добавить сайт freebasic в избранное   Сделать Freebasic стартовой