TAPAHbl4, Ну да, но вообщем смысл понятен, так то я знаю как сделать, а вот чтобы ракета сама летела до экрана при нажатии на 5

PhRaNkEnShTeIn, if fire() then f=1
if f=1 x=x+1
if x>=240 then f=0

FlyMove, Спасибо выручил))

Ан нет, при нажатии и удержании на 5 ракета летит, а когда отпускаю останавливается

PhRaNkEnShTeIn (27.04.2012/06:42)
Ан нет, при нажатии и удержании на 5 ракета летит, а когда отпускаю останавливается думай головой, поставь переключатель, balon%=0,
If balon%=1 then raketa=raketa+1,
if fire(0) then balon%=1,
if raketa za predelami ekrana then balon%=0

limil, Ок спасибо, щас попробую

PhRaNkEnShTeIn, Я тебе идею дал, доделывай ее.

У меня с гелграб проблемы. Вот код:
0 W%=SCREENWIDTH(0):H%=SCREENHEIGHT(0)
5 SETCOLOR 0,0,0:FILLRECT 0,0,W%,H%
10 SETCOLOR 0,200,200
15 A$="Помощь"
20 DRAWSTRING A$,(W%-STRINGWIDTH(A$))/2.4,0
25 DRAWLINE 0,23,W%,23
30 GELGRAB GEL$,0,0,W%,25
35 DRAWGEL GEL$,0,50
1000 SLEEP 5000
Какая здесь ошибка?

LonelyWolf (28.04.2012/12:29)
У меня с гелграб проблемы. Вот код:0 W%=SCREENWIDTH(0):H%=SCREENHEIGHT(0)5 SETCOLOR 0,0,0:FILLRECT 0,0,W%,H%10 SETCOLOR 0,200,20015 A$="Помощь"20 DRAWSTRING A$,(W%-STRINGWIDTH(A$))/2.4,025 DRAWLINE 0,Переменной gel$ ты не присвоил имя. В ставь строку gel$="gel" в начало проги . Имя,что в кавычках написано,можешь любое написать.

Dimonik, Спасибо, сейчас попробую.