Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > Android

Android Разработка игр на платформе Android

Ответ
 
Опции темы
Старый 13.08.2015, 11:10   #16
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

Пример:
REM Start of BASIC! Program
gr.open 255,255,255,255
gr.color 255,25,0,255,0
gr.rect rct1,50,40,60,15
gr.render
for i=50 to 100 step 1
gr.modify rct1, "left", i
gr.modify rct1, "right", (i+10)
gr.render
pause 1
next
pause 1
gr.close
END
(Offline)
 
Ответить с цитированием
Старый 13.08.2015, 11:13   #17
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

Пример:
REM Start of BASIC! Program
gr.open 255,255,255,255
gr.color 255,250,0,255,0
gr.orientation 1
gr.text.draw txt1, 1, 60, "My current 'x' position is 1"
for i=1 to 100 step 1
gr.modify txt1, "x", i
gr.modify txt1, "text", "My current 'x' position is " + str$(i)
gr.render
pause 1
next
pause 1000
gr.close
END
(Offline)
 
Ответить с цитированием
Старый 13.08.2015, 11:14   #18
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

ПРИМЕР :
score = 0
speed = 4.0
gr.open 255, 255, 255, 255
gr.orientation 1
gr.color 255, 30, 30, 30, 1 % play area
gr.rect area, 0, 300, 0, 300 % play area
gr.color 255, 255, 0, 0, 1
gr.circle ball, round(rnd() * 300), 0, 10
gr.color 255, 0, 0, 255, 1
gr.rect player, 150, 280, 200, 300
gr.text.draw scoreboard, 0, 350, "Score: " + str$(score)
gr.render
do
do
gr.touch touched, x, y
until touched
gr.get.position ball, x1, y1
gr.get.position player, x2, y2
if x < (x2 + 15)
let direction = -10
elseif x > (x2 + 35)
let direction = 10
else
let direction = 0
endif
gr.modify ball, "y", y1 + round(speed)
gr.modify player, "left", x2 + direction
gr.modify player, "right", x2 + 50 + direction
gr.render
if gr_collision(ball, player)
score = score + 1
speed = speed + 0.2
gosub positionBall
endif
if y1 > 300
score = score - 1
gosub positionBall
endif
gr.render
pause 5
until 1 = 2
positionBall:
gr.modify scoreboard, "text", "Score: " + str$(score)
gr.modify ball, "y", 0
gr.modify ball, "x", round(rnd() * 300)
return
OnBackKey:
popup "Score: " + str$(score),0,0,1
end
(Offline)
 
Ответить с цитированием
Старый 13.08.2015, 11:16   #19
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

Rem Blink
Rem Built with RFO Basic!
Rem June 2015
Rem Version 1.00
Rem By Roy

di_height = 1230 % set to my Device
di_width = 800

gr.open
gr.set.AntiAlias 1
gr.orientation 1
pause 1000

gr.screen screenWidth,screenHeight
scale_x=screenWidth/di_width
scale_y=screenHeight/di_height
gr.scale scale_x,scale_y

gr.render
gr.set.stroke 1
gr.text.size 80
xx = 800 : xxx = - 30
dim wink[15]

gosub SetColours
gosub BlinkEyeLeft
gosub BlinkEyeRight
gosub BlinkText
gosub Blink

end

Blink:
do
for x = 2 to 10
pause 100
if x = 6 then pause 200
!Eye Left
if x = 2 then gr.modify wink[2], "paint", black
if x = 3 then gr.modify wink[3], "paint", black
if x = 4 then gr.modify wink[4], "paint", black
if x = 5 then gr.modify wink[5], "paint", black

if x = 6 then gr.modify wink[5], "paint", magenta
if x = 7 then gr.modify wink[4], "paint", white
if x = 8 then gr.modify wink[3], "paint", white
if x = 9 then gr.modify wink[2], "paint", white
!Eye Right
if x = 2 then gr.modify wink[7], "paint", black
if x = 3 then gr.modify wink[8], "paint", black
if x = 4 then gr.modify wink[9], "paint", black
if x = 5 then gr.modify wink[10], "paint", black

if x = 6 then gr.modify wink[10], "paint", magenta
if x = 7 then gr.modify wink[9], "paint", white
if x = 8 then gr.modify wink[8], "paint", white
if x = 9 then gr.modify wink[7], "paint", white
gosub ChangeTextColour
gr.render
next
until 0
return

BlinkEyeLeft:
Gr.oval wink[1], 200, 200, 400, 400
gr.modify wink[1], "paint", black

Gr.oval wink[2], 200,220, 400, 380
gr.modify wink[2], "paint", white

Gr.oval wink[3], 200,240, 400, 360
gr.modify wink[3], "paint", white

Gr.oval wink[4], 200, 260, 400, 340
gr.modify wink[4], "paint", white

Gr.oval wink[5], 250, 280, 350, 320
gr.modify wink[5], "paint", magenta
gr.render
return

BlinkEyeRight:
Gr.oval wink[6], 400, 200, 600, 400
gr.modify wink[6], "paint", black

Gr.oval wink[7], 400,220, 600, 380
gr.modify wink[7], "paint", white

Gr.oval wink[8], 400,240, 600, 360
gr.modify wink[8], "paint", white

Gr.oval wink[9], 400, 260, 600, 340
gr.modify wink[9], "paint", white

Gr.oval wink[10], 450, 280, 550, 320
gr.modify wink[10], "paint", magenta
gr.render
return

BlinkText:
t$ = "Blinking Eyes"
t2$ = "Demo using gr.paint.get <colour> and gr.modify <pointer>, 'paint', <colour>"
gr.text.width w , t$
tab = di_width/2 : tab = tab - (w / 2)

gr.text.bold 1
gr.text.draw wink[11],tab, 100, t$
gr.modify wink[11], "paint", red
gr.text.draw wink[12],xx, 600, t2$
gr.modify wink[12], "paint", red
return

SetColours:
gr.color 255,0,0,0,1 % black
gr.paint.get black
gr.color 255,255,0,0,1 % Red
gr.paint.get red
gr.color 255,0,255,0,1 % green
gr.paint.get green
gr.color 255,0,0,255,1 % blue
gr.paint.get blue
gr.color 255,255,255,0,1 % yellow
gr.paint.get yellow
gr.color 255,0,255,255,1 % cyan
gr.paint.get cyan
gr.color 255,255,0,255,1 % magenta
gr.paint.get magenta
gr.color 255,255,255,255,1 % white
gr.paint.get white
return

ChangeTextColour:
if x = 2 then gr.modify wink[11], "paint", red
if x = 3 then gr.modify wink[11], "paint", green
if x = 4 then gr.modify wink[11], "paint", blue
if x = 5 then gr.modify wink[11], "paint", yellow
if x = 6 then gr.modify wink[11], "paint", cyan
if x = 7 then gr.modify wink[11], "paint", magenta
if x = 8 then gr.modify wink[11], "paint", white

xx += xxx : gr.modify wink[12], "x", xx
if xx < - 2500 then xxx = abs(xxx)
if xx > 800 then xxx = - xxx
gr.render
return
(Offline)
 
Ответить с цитированием
Старый 13.08.2015, 11:18   #20
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

INPUT "Введите N",N$

GR.OPEN 0, 0, 0, 0
GR.ORIENTATION 2

s=len(N$)

GR.SCREEN w,h



x=0
y=0
a=1
c=1
r=0
g=0
b=255
u=0
! Draw a Black text alignment line


! Set the text color to Red with fill = false





! Set the text size to 1/25th screen height

GR.TEXT.SIZE w/20

! Set the text align to Left = 1

GR.TEXT.ALIGN 1

x=1
y=2



skeip:
GR.CLS

GR.COLOR 255,255, 0, 0, 255

GR.RECT Paddle, w/2, h/2, w/2+40, h/2+40

m=RND()*3+1

GR.COLOR 255,r, g, b, 255

GR.TEXT.DRAW M, 30, 30,str$(s)

GR.TEXT.DRAW P, x, y, N$

x=x+a
y=y+c
IF x>w-s
a=-m
r=255
g=0
b=0
ENDIF
IF x<5
a=m
b=255
g=0
r=0
ENDIF
IF y>h-5
c=-m
g=255
b=0
r=0
ENDIF
IF y<12
c=m
r=255
b=255
g=0
ENDIF
GR.RENDER
GOTO skeip
DO
UNTIL 1
(Offline)
 
Ответить с цитированием
Старый 18.08.2015, 14:56   #21
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

RFO-Basic v.1.88 на сайте разработчика !
(Offline)
 
Ответить с цитированием
Старый 18.08.2015, 14:58   #22
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

Или здесь https://github.com/RFO-BASIC/Basic
(Offline)
 
Ответить с цитированием
Старый 24.08.2015, 12:18   #23
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

В RFO-Basic пишется программа, отлаживается и если все нормально, то сбрасывается
на ПК и в Eclipse собирается в apk .
Смотреть готовые программы на RFO-Basic и они же собраные в apk здесь:
http://laughton.com/basic/programs/games/
(Offline)
 
Ответить с цитированием
Старый 27.08.2015, 15:19   #24
ewo
AnyKey`щик
 
Регистрация: 27.08.2015
Сообщений: 12
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: RFO BASIC

Существует программа QuickAPK ( сайт mougino.free.fr ), которая позволяет без установки Eclipse собирать готовый APK из BAS, остается его только передать на устройство, напр. через WiFi File Transfer.

Приглашаю в группу, посвященную RFO/FreeBasic

http://vk.com/65watgames
(Offline)
 
Ответить с цитированием
Старый 27.08.2015, 16:28   #25
1961uvg
Нуждающийся
 
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
Ответ: RFO BASIC

EWO
Пригласи еще людей с http://annimon.com/forum/id396951
и http://4pda.ru/forum/index.php?showt...#entry41732116
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
ewo (28.08.2015)
Старый 27.08.2015, 18:01   #26
Gector
Легенда
 
Аватар для Gector
 
Регистрация: 14.10.2007
Сообщений: 3,878
Написано 2,012 полезных сообщений
(для 5,072 пользователей)
Ответ: RFO BASIC

Сообщение от 1961uvg Посмотреть сообщение
В RFO-Basic пишется программа, отлаживается и если все нормально, то сбрасывается
на ПК и в Eclipse собирается в apk .
Смотреть готовые программы на RFO-Basic и они же собраные в apk здесь:
http://laughton.com/basic/programs/games/
(Offline)
 
Ответить с цитированием
Старый 28.08.2015, 00:12   #27
Arton
Быдлокодер
 
Аватар для Arton
 
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,019
Написано 2,312 полезных сообщений
(для 5,349 пользователей)
Ответ: RFO BASIC

Сообщение от Gector Посмотреть сообщение
Где файл?
(Offline)
 
Ответить с цитированием
Старый 28.08.2015, 01:34   #28
Кирпи4
Социал-сычевист
 
Аватар для Кирпи4
 
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений
(для 1,359 пользователей)
Ответ: RFO BASIC

Какой кошмарный язык - чем он вам так понравился? Я бы сказал что это больше обёртка над каким-то ассемблером, чем бейсик...
__________________


(Offline)
 
Ответить с цитированием
Старый 28.08.2015, 07:32   #29
Gector
Легенда
 
Аватар для Gector
 
Регистрация: 14.10.2007
Сообщений: 3,878
Написано 2,012 полезных сообщений
(для 5,072 пользователей)
Ответ: RFO BASIC

Сообщение от Arton Посмотреть сообщение
Где файл?
Не знаю. Целую фотожабу запил(.
(Offline)
 
Ответить с цитированием
Старый 28.08.2015, 10:49   #30
ewo
AnyKey`щик
 
Регистрация: 27.08.2015
Сообщений: 12
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: RFO BASIC

Сообщение от Кирпи4 Посмотреть сообщение
Какой кошмарный язык - чем он вам так понравился? Я бы сказал что это больше обёртка над каким-то ассемблером, чем бейсик...
Это как раз таки диалект бейсика, который с минимальным порогом вхождения позволяет сразу делать программы. В отличие от Джавы. Интерпретируемый Джава-апплетом, как минус в скорости.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 00:10.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com