forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)

- Алгоритмика (http://forum.boolean.name/forumdisplay.php?f=21)

- - Qbasic (http://forum.boolean.name/showthread.php?t=634)

Даааа.... Пытался я портировать на Qbasic, но так ни чего и не получил :(

Ура! Всётаки получилось! :)

Вот тут полуигра, можно так сказать ( сделал от безделия при подготовке к экзаменам ). Кому интересно можете глянуть. Чтобы всё работало:
1. При надписи Les's go нажмите Enter
2. Укажите координаты перемещения этого объекта по Х
3. Укажите координаты перемещения этого объекта по Y
4. Если в ы хотите выйти, то при надписи Let's go наберите любой текст и нажмите ENTER!

Вот на этом сайте собрано очень много игр и библиотек, показывающих возможности QB:
http://fomalhautsoft.narod.ru

Кубасику нас учили с 7 класса.
Я на нём даже первые "игры" писал (типа текст + мигающие кружочки)
А препод нас МУЛЬТИКИ заставлял на нем делать.:-)
Ностальгия...

люди, помогите вот этот код с QBasic'а перевести в блитц:
[highlight=qbasic] SCREEN 13: DEF SEG = &HA000
DIM hei%(4096 - 1), col%(4096 - 1)

'Generate palette
OUT &H3C8, 0
FOR z% = 0 TO 63: OUT &H3C9, z%: OUT &H3C9, z%: OUT &H3C9, z% \ 2: NEXT z%
FOR z% = 0 TO 63: OUT &H3C9, z% \ 2: OUT &H3C9, z%: OUT &H3C9, z%: NEXT z%

'Generate interesting height & color maps
p% = 0
FOR y% = 0 TO 63
FOR x% = 0 TO 63
d% = 15 * 15 - ((x% AND 31) - 16) ^ 2 - ((y% AND 31) - 16) ^ 2
IF d% > 0 AND ((x% XOR y%) AND 32) THEN
hei%(p%) = 64 - SQR(d%): col%(p%) = (x% + y%) * .5
ELSE
hei%(p%) = 64: col%(p%) = (COS(x% * .2) + SIN(y% * .3)) * 3 + 88
END IF
p% = p% + 1
NEXT x%
NEXT y%

'Initialize starting position
posx& = 0: posy& = 0: posz& = 40 * 65536: ang = 0: horiz& = -50

r160 = 1 / 160
dd& = 65536 * r160 'Increment size
de& = dd& * 128 'Scan out 128 units
sdz& = (100 - horiz&) * 65536 * r160
DO
cosang = COS(ang) * 65536: sinang = SIN(ang) * 65536
dx& = sinang + cosang: dxi& = -sinang * r160
dy& = sinang - cosang: dyi& = cosang * r160

'For each column in 320*200 mode...
FOR sx% = 0 TO 319

'Fast ray trace! No *'s or /'s in here (\ 65536 is a shift)
x& = posx&: y& = posy&: z& = posz&: dz& = sdz&: p& = sx% + 63680
FOR d& = 0 TO de& STEP dd&
x& = x& + dx&: y& = y& + dy&: z& = z& + dz&
i% = (((x& * 64) AND &HFC00000) + (y& AND &H3F0000)) \ 65536
h& = hei%(i%) * 65536
DO WHILE h& < z&
POKE p&, col%(i%): p& = p& - 320&
z& = z& - d&: dz& = dz& - dd&
LOOP
NEXT d&
dx& = dx& + dxi&: dy& = dy& + dyi&

'Finish off rest of line
DO WHILE p& >= 19200: POKE p&, 0: p& = p& - 320: LOOP
NEXT sx%

'Move position & angle
posx& = posx& + cosang * 4
posy& = posy& + sinang * 4
ang = ang + .02

LOOP WHILE INKEY$ = "" [/highlight]

а че он делает ? :)
..........
довольно красиво (как для qbasic)
собсно чего ты не можеж зделать ? или тебе надо "дословный" перевод ?

некоторые непоняли что етот код делает
вот для наглядности компиленая версия
запускать test.exe :)

я непойму механизм рендеринга сцены и куда генерируется палитра...

Цитата:

Сообщение от alex-mad

такого плана игры не КуБасике не рекомендуется делать! :)

Попрошу заметить, что Ричард Гэрриот(создатель серии Ultima), написал первe. игру под именем Akalabeth именно на бейсике. Причем, в те времена эта игра была супер популярна. 8)

Гм... Ну, ИМХО, если уж хочеться писать под DOS, то лучше вместо QB сразу юзать VB/DOS + PBClone. То же самое, только лучше:-).
Взять можно отсюда: http://slil.ru/23735895 (6MB!)

Припоминаю, писал на QB гамезу. Вот только она была псевдографическая. Бродилка такая по лабиринту с телепортам и монстрами. Никаких функций и субратин. Сплошь IF ... THEN ... GOTO.
На паскале потом получше вариант написал..
Но все равно.. ностальгия..
порой руки чешутся, а мозги упорно твердят "C++ OpenGL,C++ OpenGl, C++ OpenGL..."
Да и не до игр уже как-то.
На днях написал на С++ модель процесса снятия серии томографических проекций объекта с последующим восстановлением изображения объекта. Икажения ужасные.. самый простой алгоритм - сам придумал, но не я первый.