Мне нужна помощь с изучением синтаксиса.

[MARK99]

А кроме формата gif ,есть ещё какие-нибудь анимированные форматы?

А какие еще есть анимированные форматы?
По своему опыту скажу-у gifок плохое качество! Делай анимацию из картинок .png в многокадровом спрайте.

Ок

[Tantrixx]

Здравствуйте. Почему применяя field z$ text
Цифры не надо затерать, они не накладываются друг на друга, а у draw text надо? Я в предыдущей программе на 22 странице голову сломал, получилось только с graphics clear.
Посмотрите пожалуйста, может я много лишнего написал, а там проще можно?

Code: Select all

GRAPHICS
OPTION BASE 1
maxx=SCREEN_WIDTH()
maxy=SCREEN_HEIGHT()

DIM A$(12)

DATA "qwer","wert","erty","rtyu","tyui","dfgh","qwsa","lkjh","tgvc","nbvf","tyui","vcbv"
FOR k=1 TO 12
READ A$(k)
NEXT k

SET LISTS CUSTOM
FILL COLOR 1,1,1
DRAW COLOR 0,0,1
LIST "das" TEXT A$ AT 0,0 SIZE maxx/3, maxy




LOOP:

ls=LIST_SELECTED("das")
IF ls >= 0 AND ls <> ols THEN 
ols=ls

GOSUB 1

END IF

GOTO LOOP

1 FIELD "nomer" TEXT ls AT maxx/2,0 SIZE 40,25
FIELD "nomer" BACK COLOR 0,0,0
FIELD "nomer" FONT COLOR 1,1,1

RETURN

А в следующей программе как сделать, чтоб спрайт продолжал крутиться при его перемещении. И мозг сломал, хочу сделать, чтоб рядом нажимаешь, спрайт не реагирует, а когда на него попадаю, тогда могу перемещать по экрану.

Code: Select all

OPTION ANGLE DEGREES
OPTION SPRITE POS CENTRAL
OPTION IMAGE POS CENTRAL
OPTION TEXT POS CENTRAL
maxx=SCREEN_WIDTH()
maxy=SCREEN_HEIGHT()

SPRITE 2 BEGIN 100,100
SHADOW ON
DRAW CIRCLE 50,50 SIZE 50
DRAW TEXT "ТРОНЬ" AT 50,50
SPRITE END


SPRITE 2 AT maxx/2,maxy/2
SPRITE 2 DELAY 0.03
SPRITE 2 DA 1
SPRITE 2 LOOP
SPRITE 2 SHOW





LOOP:

GET TOUCH 0 AS x,y
IF x>-1 THEN

SPRITE 2 AT x,y

ENDIF


GOTO LOOP

[MARK99]

я могу предложить только "стертый до дыр" пример, на котором не только я ,но и все начинающие... учатся созданию спрайтов и распознания тапов :
https://www.dropbox.com/sh/bkczg4zojmaj ... 8piia?dl=0
Фант©

[Mr. Kibernetik]

как сделать, чтоб спрайт продолжал крутиться при его перемещении. И мозг сломал, хочу сделать, чтоб рядом нажимаешь, спрайт не реагирует, а когда на него попадаю, тогда могу перемещать по экрану.

Команда SPRITE 2 AT x,y не просто ставит спрайт по указанным координатам, но еще и с углом поворота 0 градусов. А поскольку вы это постоянно делаете в цикле, то и крутиться он не успевает.

[Tantrixx]

Спасибо вам, попробую ещё разобраться и с примером и с углом

[Mr. Kibernetik]

Спасибо вам, попробую ещё разобраться и с примером и с углом

Вообще то на вашем примере я обратил внимание, что работа команды SPRITE AT неочевидна, раз она еще и задает спрайту угол даже если он явным образом в команде не указан. Наверное, это нужно будет поправить чтобы команда SPRITE AT задавала только координаты.

[Tantrixx]

Спасибо вам, попробую ещё разобраться и с примером и с углом

Вообще то на вашем примере я обратил внимание, что работа команды SPRITE AT неочевидна, раз она еще и задает спрайту угол даже если он явным образом в команде не указан. Наверное, это нужно будет поправить чтобы команда SPRITE AT задавала только координаты.

Я не понял, как это поправить.
Но я смог сделать, чтоб при нажатии продолжалось вращение, а не сбрасывалось, как раньше. И у меня по прежнему осталась не решена проблема с нажатием мимо спрайта. Хочу сделать так, чтоб когда мимо спрайта нажимаешь, он остовался на прежнем месте, а двигался только тогда, когда прямо в него попадаешь. Специально подпрограмму сделал, чтоб видеть, что мимо нажимаю, но что то недоработано. посмотрите пожалуйста.

Code: Select all

GRAPHICS
OPTION ANGLE DEGREES
OPTION SPRITE POS CENTRAL
OPTION IMAGE POS CENTRAL
OPTION TEXT POS CENTRAL
maxx=SCREEN_WIDTH()
maxy=SCREEN_HEIGHT()

n$="krug"
SPRITE n$ BEGIN 100,100
SHADOW ON
DRAW CIRCLE 50,50 SIZE 50
DRAW TEXT "ТРОНЬ" AT 50,50
SPRITE END


SPRITE n$ AT maxx/2,maxy/2
SPRITE n$ DELAY 0.03
SPRITE n$ DA 1
SPRITE n$ LOOP
SPRITE n$ SHOW





LOOP:

GET SPRITE n$ ANGLE z

GET TOUCH 0 AS x,y

IF TOUCH_Y(0)<>y THEN


IF x>-1 THEN
SPRITE n$ AT x,y ANGLE z

ELSE
GOSUB 1
ENDIF
ENDIF
GOTO LOOP

1 FIELD "nomer" TEXT "Мимо" AT maxx/2,0 SIZE 70,25
FIELD "nomer" BACK COLOR 0,0,0
FIELD "nomer" FONT COLOR 1,1,1

RETURN

[Mr. Kibernetik]

Я - робот-ответчик , отвечаю только на какой-нибудь один вопрос, например "Почему не работает такая-то команда?"
Я не проверяю ничьих программ, не ищу в них ошибки и т.д.
Поэтому чтобы решить свою задачу попробуйте формулировать более простые и точные вопросы.

[Tantrixx]

Я - робот-ответчик , отвечаю только на какой-нибудь один вопрос, например "Почему не работает такая-то команда?"
Я не проверяю ничьих программ, не ищу в них ошибки и т.д.
Поэтому чтобы решить свою задачу попробуйте формулировать более простые и точные вопросы.

Сложно сформировать простой и точный вопрос.
Мне нужна команда, которая опрашивает моё касание экрана вне спрайта или внутри спрайта.
Я нашёл команду touch_y(0) или x(0) но не знаю как правильно опрос касания описать.

[Mr. Kibernetik]

Мне нужна команда, которая опрашивает моё касание экрана вне спрайта или внутри спрайта.
Я нашёл команду touch_y(0) или x(0) но не знаю как правильно опрос касания описать.

Посмотрите пример "Interactive Interface > multitouch.txt" или "Sprites > sprites position.txt". Там есть обработка касания экрана.