26.04.2012 / 21:24 | |
PhRaNkEnShTeIn Пользователь Сейчас: Offline
Имя: Павел Откуда: Астрахань Регистрация: 04.10.2011
| TAPAHbl4, Ну да, но вообщем смысл понятен, так то я знаю как сделать, а вот чтобы ракета сама летела до экрана при нажатии на 5
|
26.04.2012 / 21:31 | |
FlyMove Пользователь Сейчас: Offline
Регистрация: 06.01.2011
| PhRaNkEnShTeIn, if fire() then f=1 if f=1 x=x+1 if x>=240 then f=0
|
26.04.2012 / 22:12 | |
PhRaNkEnShTeIn Пользователь Сейчас: Offline
Имя: Павел Откуда: Астрахань Регистрация: 04.10.2011
| FlyMove, Спасибо выручил))
|
27.04.2012 / 06:42 | |
PhRaNkEnShTeIn Пользователь Сейчас: Offline
Имя: Павел Откуда: Астрахань Регистрация: 04.10.2011
| Ан нет, при нажатии и удержании на 5 ракета летит, а когда отпускаю останавливается |
27.04.2012 / 09:23 | |
limil Пользователь Сейчас: Offline
Имя: limil Откуда: Белая Церковь Регистрация: 01.02.2011
| 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 |
27.04.2012 / 11:08 | |
PhRaNkEnShTeIn Пользователь Сейчас: Offline
Имя: Павел Откуда: Астрахань Регистрация: 04.10.2011
| limil, Ок спасибо, щас попробую
|
27.04.2012 / 11:49 | |
FlyMove Пользователь Сейчас: Offline
Регистрация: 06.01.2011
| PhRaNkEnShTeIn, Я тебе идею дал, доделывай ее.
|
28.04.2012 / 12:29 | |
LonelyWolf Пользователь Сейчас: Offline
Имя: Волк Откуда: Иркутск Регистрация: 28.04.2012
| У меня с гелграб проблемы. Вот код: 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 Какая здесь ошибка?
|
28.04.2012 / 12:46 | |
Dimonik Пользователь Сейчас: Offline
Имя: Димон Откуда: Украина Регистрация: 20.02.2010
| 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" в начало проги . Имя,что в кавычках написано,можешь любое написать.
|
28.04.2012 / 13:05 | |
LonelyWolf Пользователь Сейчас: Offline
Имя: Волк Откуда: Иркутск Регистрация: 28.04.2012
| Dimonik, Спасибо, сейчас попробую. |