Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22

Show_Mouse; repeat

Get_Mouse_State(bm,i,j); if (m old_m) or (r old_r) then begin

Get_Web_State;

Design_Mark_and_Jumps; old_m := m; old_r := r end; if bm = 1 then begin number := 6; for counter := 0 to 2 do if (i < 165) and (i > 135) and

(j < counter*150+130) and (j > counter*150+120) then number := counter; for counter := 3 to 5 do if (i < 465) and (i > 435) and

(j < (counter-3)*150+130) and (j > (counter-3)*150+120) then number := counter; if (number < 6) and (((1 shl (7-number)) and r) 0) then begin m := m and (jump[number] and $FF); m := m or (jump[number] shr 8) end; if (i < 600) and (i > 540) and (j < 170) and (j > 150) then m := m_0; if (i < 600) and (i > 540) and (j < 240) and (j > 220) then flag_of_exit := true end; until flag_of_exit;

Hide_Mouse;

CloseGraph end else begin

CloseGraph;

WriteLn('Ошибка мыши: Device or driver not found.') end
End.
--------------------
[pic]

[pic]

[pic]

Скачали данный реферат: Sijasinov, Vlasov, Evlampija, Grjaznov, Никитенко, Manannikov, Афинодор.
Последние просмотренные рефераты на тему: quality assurance design patterns системный анализ, изложение язык, шпаргалки по русскому, бесплатные тесты.



Предыдущая страница реферата | 12  13  14  15  16  17  18  19  20  21  22

Поделитесь этой записью или добавьте в закладки