![](images/chestnut/misc/left.gif) |
Android Разработка игр на платформе Android |
13.08.2015, 11:10
|
#16
|
Нуждающийся
Регистрация: 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
|
Нуждающийся
Регистрация: 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
|
Нуждающийся
Регистрация: 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
|
Нуждающийся
Регистрация: 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
|
Нуждающийся
Регистрация: 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
|
Нуждающийся
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
|
Ответ: RFO BASIC
RFO-Basic v.1.88 на сайте разработчика !
|
(Offline)
|
|
18.08.2015, 14:58
|
#22
|
Нуждающийся
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
|
Ответ: RFO BASIC
|
(Offline)
|
|
24.08.2015, 12:18
|
#23
|
Нуждающийся
Регистрация: 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
|
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
|
Нуждающийся
Регистрация: 28.07.2015
Сообщений: 55
Написано одно полезное сообщение
|
Ответ: RFO BASIC
|
(Offline)
|
|
Сообщение было полезно следующим пользователям:
|
|
27.08.2015, 18:01
|
#26
|
Легенда
Регистрация: 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/
|
![](https://forum.boolean.name/attachment.php?attachmentid=21856&stc=1&d=1440683948)
|
(Offline)
|
|
28.08.2015, 00:12
|
#27
|
Быдлокодер
Регистрация: 05.07.2009
Адрес: Проспит
Сообщений: 5,021
Написано 2,312 полезных сообщений (для 5,349 пользователей)
|
Ответ: RFO BASIC
Сообщение от Gector
|
Где файл?
|
(Offline)
|
|
28.08.2015, 01:34
|
#28
|
Социал-сычевист
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений (для 1,359 пользователей)
|
Ответ: RFO BASIC
Какой кошмарный язык - чем он вам так понравился? Я бы сказал что это больше обёртка над каким-то ассемблером, чем бейсик...
|
(Offline)
|
|
28.08.2015, 07:32
|
#29
|
Легенда
Регистрация: 14.10.2007
Сообщений: 3,878
Написано 2,012 полезных сообщений (для 5,072 пользователей)
|
Ответ: RFO BASIC
Сообщение от Arton
Где файл?
|
Не знаю. Целую фотожабу запил(.
|
(Offline)
|
|
28.08.2015, 10:49
|
#30
|
AnyKey`щик
Регистрация: 27.08.2015
Сообщений: 12
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: RFO BASIC
Сообщение от Кирпи4
Какой кошмарный язык - чем он вам так понравился? Я бы сказал что это больше обёртка над каким-то ассемблером, чем бейсик...
|
Это как раз таки диалект бейсика, который с минимальным порогом вхождения позволяет сразу делать программы. В отличие от Джавы. Интерпретируемый Джава-апплетом, как минус в скорости.
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 13:27.
|