Теннис

'Для начала нажмите пробел

'Управление с помощью стрелок <- и ->



переменная шх

переменная шу

картинка шар

картинка бита1

картинка бита2

шар=BALL.BMP

бита1=ZTACK.BMP

бита2=ZTACK.BMP

фон= stage2.gif



спрятать черепаху

шар.место 375, 515

бита1.место 325, 565

бита2.место 325, 0


нач:



если шар.х>740 то шх=-шх

если шар.х<10 то шх=-шх

если шар.у<20 то

если шар.x-бита2.x>-5 то

если шар.x.-бита2.x<145 то шу=-шу

конец условия

конец условия



если шар.у>520 то

если шар.х-бита1.х>-5 то

если шар.х-бита1.х<145 то шу=-шу

конец условия

конец условия

если шар.у>545 то спрятать шар



шар.место шар.х+шх,шар.у+шу



перейти к нач





событие нажата клавиша 37

если бита1.х>15 то бита1.х=бита1.х-15
если бита2.x>15 то бита2.x=бита2.x-15

конец события



событие нажата клавиша 39

если бита1.х<650 то бита1.х=бита1.х+15
если бита2.х<650 то бита2.х=бита2.х+15

конец события



событие нажата клавиша 32

шх=7

шу=-7

шар.место 375, 515

показать шар

конец события