"Игра" - потестите

← →
PARUS © (2007-03-03 15:43) [0]

http://webfile.ru/1333474
для начала нажать ENTER
Управление- стрелки
Стрельнуть - CTRL

← →
Greenchel © (2007-03-03 19:00) [1]

Мда, фуфло ещё то, нажимаю Enter, не успеваю повернуться, а он мне уже пишет You Lose! Всё очень быстро!!!

← →
Creative (2007-03-05 10:05) [2]

Да, ощущение бредовое несколько - то You win!, то You Lose! Может я что то не поняла, чего надо добиться? Убить гуся?

← →
Rial © (2007-03-05 13:13) [3]

Ну, по существу сложно что то сказать, т.к. игры собственно не увидел.
Стена с курсором. Но все же:

1. Размер исполняемого файла ужасен. 5 МБ !!!
Для игры без VCL и прочих тяжеловесностей 500КБ - это уже достаточно много.
Я имею ввиду любительский разряд :)

2. Видимо рабочий код выглядит примерно так:
Sleep(Random(1000) + 500);
If(Random(4) = 0)then EndGame("You win !")
else EndGame("You lose !");
Не стоит дальше развивать эту идею.

← →
PARUS © (2007-03-05 17:00) [4]

Обновил, "птиц" не скачет, покачайте плиз
http://webfile.ru/1335774

> 2. Видимо рабочий код выглядит примерно так:
set cube mapping on 1,2,2,2,2,2,2
make object cube 2,1
make object SPHERE 22,1

make object plain 3,100,100
make object plain 4,100,50
make object plain 5,100,50
make object plain 6,100,50
make object plain 7,100,50
make object plain 8,100,100
make light 1;

xrotate object 3,90
xrotate object 8,90
yrotate object 6,90
yrotate object 7,90

position light 1,20,10,20
position camera 1,20,1,20
position object 1,0,1,0
rem
position object 3,0,-5,0
position object 4,0,20,-50
position object 5,0,20,50
position object 6,50,20,0
position object 7,-50,20,0
position object 8,0,40,0
hide object 22

texture object 3,2

texture object 4,3
texture object 5,3
texture object 6,3
texture object 7,3
color object 22,rgb(255,0,0)
color light 1,100,100,255
G$="Press SPACE to start"
repeat
text 0,0,G$
sleep 100
until 1=spacekey()
do

a=camera position X(1);
b=camera position Y(1);
c=camera position z(1);
CONTROL CAMERA USING ARROWKEYS 1,1 , 5
position object 2,camera position X(1),camera position Y(1),camera position z(1);
if (OBJECT COLLISION(1,2) or OBJECT COLLISION(2,4) or OBJECT COLLISION(2,5) or OBJECT COLLISION(2,6) or OBJECT COLLISION(2,7)) and e=1

position camera 1,a,b,c
position object 2,a,b,c
endif

if controlkey()
yrotate object 22,camera angle y (1)
position object 22,camera position x (1),camera position y (1),camera position z (1);
show object 22
move object 22,5;
endif;
if object visible (22)
move object 22,5
endif;

if OBJECT COLLISION(22,1) and object visible (22)

hide object 22;
set object diffuse 1,black
position sound 1,object position x (1),object position y (1),object position z(1);
play sound 1;
stroka$="You Win!"
endif
if Shiftkey()=1
input "gh",e
endif

text 50,50,stroka$
if stroka$<>""
l=l+1
if l=50
exit
endif

endif

SYNC

loop

← →
PARUS © (2007-03-05 17:01) [5]

> чего надо добиться? Убить гуся?
>
OUI,YES,ДА,TRUE

← →
Belorus © (2007-03-05 17:02) [6]

Это простите какой язык ?

← →
Kobik. (2007-03-05 17:35) [7]

сто пудов ТемныйБарсик или что-то из той же оперы)

Говорят 5 метров - сразу расхотелось качать.

← →
ANTPro © (2007-03-05 17:40) [8]

1,5 мб смотреть не на чего

← →
@!!ex © (2007-03-05 19:03) [9]

Да.... Для кого делают Дакр Бейсик??
Нахрен он нужен?? Чтобы тварили ТАКОЕ???

> Говорят 5 метров - сразу расхотелось качать.

В разорхив. виде.
а так 1.3

> [9] @!!ex © (05.03.07 19:03)

На нем я как-то гамесу видел, даже платная игруха была :)
Офигел. Как на нем можно написать такое.
Так что все дело в кривизне рук :)

Ваще нечитаемый код.. Никакой структуры... Где объекты, где методы... Каша.. Где разделители ... Неужто рпобелы ? Как можно на таком писать...

← →
Novice (2007-03-06 09:28) [13]

Belorus, не стоит так удивляться - это действительно DarkBASIC. В DarkBASIC нет таких понятий, как объекты, структуры и тому подобное. Это не объектно-ориентированный язык программирования. Прошу прощения, но я сам так и не понял, что это :-) Возможно, подвид конструкторов игр... Еще раз извиняюсь.

"Игра" - потестите Найти похожие ветки