Вид для печати
Подскажите, плиз, кто знает как реализовать такой алгоритм "земли" как в Moonsweeper.
Т.е. чтоб как-бы вдаль уходила.
Можно на бейсике.
Нарисовать - получается, а вот чтоб двигалось (вперёд-назад) да ещё и рекурсивно (без "прыжков") - не могу сообразить как.
jerri пытался мне втолковать (даже пример давал, но не наглядный), и я всё равно не въехал.
P.S. Во вложении примеры игр (снапшоты) с такой поверхностью.
(два архива, rar и zip, оба с одинаковым содержимым, кому какой нравится)
Так игры разные.Цитата:
Сообщение от Destr
Накодить полоски и шахматку, не одно и тоже, не говоря уже о текстурах.
А полноценную текстуру с поворотами натянуть не хочешь?
Ну принцип "движемся к горизонту" один и тот-же.Цитата:
Сообщение от newart
Вообще-то полоски в шахматку совсем не трудно превратить.Цитата:
Сообщение от newart
(рисовать сплошняки через одну, а потом полоски поперек тоже через одну и по XOR - вот тебе и шахматка)
Не, это пока без надобности.Цитата:
Сообщение от newart
Если приспичит - буду читать твой трёп с AloneCoder`ом :)
---------- Post added at 02:57 ---------- Previous post was at 02:55 ----------
Кое-что по сабжу кстати начало получатся, но по моему до совершенства далеко.
Пример на purebasic:
Скрытый текст
Код:Procedure Ris(arg.f)
StartDrawing(CanvasOutput(0))
Box(0,0,256*3,192*3,0)
horiz = 192/2
Box(0, horiz*3, 256*3, 3, RGB(255,255,255))
y.f = 0: ystp.f = arg
Repeat
Box(0, horiz*3+y*3, 256*3, 3, RGB(255,255,255))
y = y + ystp
ystp = ystp + 2
Until y>191
StopDrawing()
ProcedureReturn
EndProcedure
If OpenWindow(0, 0, 0, 256*3, 192*3, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CanvasGadget(0, 0, 0, 256*3, 192*3)
quit.a = 0
yp.f = 0.5
Repeat
Event = WaitWindowEvent(10)
Ris(yp)
yp = yp + 0.3
If yp>2
yp = 0
EndIf
If Event = #PB_Event_CloseWindow
quit = 1
EndIf
quit = quit | GetAsyncKeyState_(#VK_ESCAPE)
Until quit
EndIf
EndIf
End
[свернуть]
Destr, log x
Так и что с ним делать?Цитата:
Сообщение от Hacker VBI
Пока что получается вот так:
Но в moonsweeper`е всё равно красивше :(Код:ORG #8000
DI:LD SP,#8000
CALL INIT ; инициализируем табличку координат
START
HALT
LD BC,#0000
CALL RIS ; затираем старые линии
LD HL,(STP) ; смещаемся
LD DE,(SPD)
ADD HL,DE
RES 2,H
LD (STP),HL
LD BC,#FFFF
CALL RIS ; рисуем новую позицию
JR START
STP DW 0 ; текущий шаг
SPD DW #0040; скорость "полёта"
RIS EXX
LD (RIS0+1),SP
LD HL,0
LD DE,(STP)
RIS1
LD A,H
EXX
CP #60
JR NC,RIS0
ADD A,A
LD L,A
LD H,high TAB_COOR
LD A,(HL)
INC L
LD H,(HL)
LD L,A
LD SP,HL
REPT 16
PUSH BC
ENDR
EXX
ADD HL,DE
INC D
INC D
INC D
INC D
JR RIS1
RIS0 LD SP,0
RET
TAB_COOR EQU #C000
INIT LD DE,#489F
LD HL,TAB_COOR
LD B,#60
INI1 INC DE
LD (HL),E
INC HL
LD (HL),D
INC HL
DEC DE
CALL DINC
DJNZ INI1
RET
DINC
INC D
LD A,D
AND 7
RET NZ
LD A,E
SUB #E0
LD E,A
SBC A,A
AND #F8
ADD A,D
LD D,A
RET
(во вложении два снапшота для сравнения)
Destr, вот статейка по этому поводу.
спасибо передавай Гоблину.
Наверное статья неплохая, но по английски малопонятна, а уж если перевести на русский (сказав "Перевести" в ответ на предложение браузера) - то вообще ей дорога в камеди-клаб.Цитата:
Сообщение от Hacker VBI
Одни только "Лешие и данных" (Sprites and Data) чего стоят :)