27.08.2015 13:17
[#67]
Re: programowanie amos
@QUAD, post #66
Panowie programiści mam problem
w wolnych chwilach znowu dziobię z moimi kulkami, problem jest taki że jak już zrobiłem wszystko z tablicą i ładnie się kolorki zapisują itp, nie mam teraz pomysłu jak zrobić żeby animacja była płynniejsza, kulki przeskakują o 15px czyli o swoją szerokość, ale chcę żeby się przesuwały płynnie o 1px, poniżej mój kod do wglądu, znowu pewnie wcięcia się rozjadą i będzie mniej czytelny :P
Screen Open 1,320,256,32,Lowres
Double Buffer
Get Bob Palette
Flash Off : Curs Off : Hide On : Cls 0
Dim QPA(7,18)
Rem // ograniczenie lewo
For L=0 To 18
QPA(0,L)=9
Next L
Rem // ograniczenie prawo
For P=0 To 18
QPA(7,P)=9
Next P
Rem // ograniczenie dol
For D=0 To 7
QPA(D,18)=8
Next D
POCZATEK:
Y=0
X=3
Rem // losowanie koloru
KOL1=Rnd(1)+1
KOL2=Rnd(1)+1
KOL3=Rnd(1)+1
Do
Inc Y
Rem // rysowanie bobow
Bob 1,X*15,-60+(Y*15),KOL1
Bob 2,X*15,-45+(Y*15),KOL2
Bob 3,X*15,-30+(Y*15),KOL3
Rem // wklejanie bobow po zatrzymaniu sie na koncu tablicy (lub natrafieniu na inny klocek)
Rem // zapisanie wartosci do tablicy
If QPA(X,Y)<>0 and QPA(X,Y)<>9
Paste Bob X*15,-60+(Y*15),KOL1
Paste Bob X*15,-45+(Y*15),KOL2
Paste Bob X*15,-30+(Y*15),KOL3
QPA(X,Y-1)=KOL3
QPA(X,Y-2)=KOL2
QPA(X,Y-3)=KOL1
Gosub POCZATEK
End If
Wait Vbl
Wait 7
Rem // sprawdzanie przycisniecia odpowiedniego klawisza
If Key State(78)=True and QPA(X,Y)=0 Then Gosub PRAWO
If Key State(79)=True and QPA(X,Y)=0 Then Gosub LEWO
If Key State(77)=True and QPA(X,Y)=0 Then Gosub WDOL
If Key State(76)=True Then Gosub ZMIANA_KOLORU
Loop
WDOL:
Inc Y
If QPA(X,Y)<>0
Dec Y
End If
Return
LEWO:
Dec X
If QPA(X,Y)<>0
Inc X
End If
Return
PRAWO:
Inc X
If QPA(X,Y)<>0
Dec X
End If
Return
ZMIANA_KOLORU:
Swap KOL1,KOL2 : Swap KOL2,KOL3
Return
w wolnych chwilach znowu dziobię z moimi kulkami, problem jest taki że jak już zrobiłem wszystko z tablicą i ładnie się kolorki zapisują itp, nie mam teraz pomysłu jak zrobić żeby animacja była płynniejsza, kulki przeskakują o 15px czyli o swoją szerokość, ale chcę żeby się przesuwały płynnie o 1px, poniżej mój kod do wglądu, znowu pewnie wcięcia się rozjadą i będzie mniej czytelny :P
Screen Open 1,320,256,32,Lowres
Double Buffer
Get Bob Palette
Flash Off : Curs Off : Hide On : Cls 0
Dim QPA(7,18)
Rem // ograniczenie lewo
For L=0 To 18
QPA(0,L)=9
Next L
Rem // ograniczenie prawo
For P=0 To 18
QPA(7,P)=9
Next P
Rem // ograniczenie dol
For D=0 To 7
QPA(D,18)=8
Next D
POCZATEK:
Y=0
X=3
Rem // losowanie koloru
KOL1=Rnd(1)+1
KOL2=Rnd(1)+1
KOL3=Rnd(1)+1
Do
Inc Y
Rem // rysowanie bobow
Bob 1,X*15,-60+(Y*15),KOL1
Bob 2,X*15,-45+(Y*15),KOL2
Bob 3,X*15,-30+(Y*15),KOL3
Rem // wklejanie bobow po zatrzymaniu sie na koncu tablicy (lub natrafieniu na inny klocek)
Rem // zapisanie wartosci do tablicy
If QPA(X,Y)<>0 and QPA(X,Y)<>9
Paste Bob X*15,-60+(Y*15),KOL1
Paste Bob X*15,-45+(Y*15),KOL2
Paste Bob X*15,-30+(Y*15),KOL3
QPA(X,Y-1)=KOL3
QPA(X,Y-2)=KOL2
QPA(X,Y-3)=KOL1
Gosub POCZATEK
End If
Wait Vbl
Wait 7
Rem // sprawdzanie przycisniecia odpowiedniego klawisza
If Key State(78)=True and QPA(X,Y)=0 Then Gosub PRAWO
If Key State(79)=True and QPA(X,Y)=0 Then Gosub LEWO
If Key State(77)=True and QPA(X,Y)=0 Then Gosub WDOL
If Key State(76)=True Then Gosub ZMIANA_KOLORU
Loop
WDOL:
Inc Y
If QPA(X,Y)<>0
Dec Y
End If
Return
LEWO:
Dec X
If QPA(X,Y)<>0
Inc X
End If
Return
PRAWO:
Inc X
If QPA(X,Y)<>0
Dec X
End If
Return
ZMIANA_KOLORU:
Swap KOL1,KOL2 : Swap KOL2,KOL3
Return
28.08.2015 10:12
[#71]
Re: programowanie amos
@RAL, post #70
Właściwie to wywaliłem wait 1 no i muszę się w końcu zainteresować amalem.
teraz i tak mnie czeka najgorsze, czyli muszę zrobić jakieś wykrywanie 3 lub więcej kulek tego samego koloru w poziomie, pionie i po skosie a jak sobie pomyślę że jak jakieś kulki się ułożą i się skasują to cały blok kulek, który jest nad nim będzie musiał opadać to mam mętlik w głowie, ale do tego jeszcze daleko bo mam ograniczony czas i mam nadzieje że powoli jakoś dam radę to ogarnąć :)
teraz i tak mnie czeka najgorsze, czyli muszę zrobić jakieś wykrywanie 3 lub więcej kulek tego samego koloru w poziomie, pionie i po skosie a jak sobie pomyślę że jak jakieś kulki się ułożą i się skasują to cały blok kulek, który jest nad nim będzie musiał opadać to mam mętlik w głowie, ale do tego jeszcze daleko bo mam ograniczony czas i mam nadzieje że powoli jakoś dam radę to ogarnąć :)
03.11.2016 11:08
[#79]
Re: programowanie amos
@QUAD, post #76
Tak ostatnio mam kapkę więcej czasu i se dłubie, skill też odrobinę wyższy, może mi się uda w końcu coś zrobić do końca. Żeby nie było niejasności, grafika zapożyczona z gierki na iphona, ordynarnie przerysowałem pixel po pixelu, fajnie wygląda :P
na teraz musze stworzyć jakieś proste AI do widocznego Bloba, levele się dorobi jak już reszta będzie ready.
LINK
na teraz musze stworzyć jakieś proste AI do widocznego Bloba, levele się dorobi jak już reszta będzie ready.
LINK
03.11.2016 13:09
[#84]
Re: programowanie amos
@sordan, post #83
rusza się jak ta lala, jeszcze nie wiem, w którym kierunku pójdę, czy będę robił to na tury tak jak jest oryginał czy wszystko zupełnie pozmieniam :)
czas pokaże
A co do selura to fakt szkoda że ma bana bo na 100% będę potrzebował pomocy
Ostatnia aktualizacja: 03.11.2016 13:10:35 przez QUAD
czas pokaże
A co do selura to fakt szkoda że ma bana bo na 100% będę potrzebował pomocy
Ostatnia aktualizacja: 03.11.2016 13:10:35 przez QUAD
03.11.2016 18:01
[#87]
Re: programowanie amos
@WojT_GL, post #85
Dzięki chłopaki za wsparcie duchowe
Nie przejmuj się ja też mam niewiele czasu, jedynie wieczorami jak już wszyscy pójdą spać, a to też jest problem bo ciężej skupić myśli i coś zdziałać, gra, z której zerżnąłem grafe to 1-bit rogue na ios i chyba na androida też jest, można zapłacić tam jakieś drobniaki to wtedy jest 3 bit i jest ładniej :) ale na razie się tym totalnie nie przejmuję, to jest grafika robocza :)
Na SACpa się wybieram więc jak bedziesz to pogadamy
Renton Ciebie też zapraszamy bo zawsze coś wypadnie cholera :P
mam nadzieje że tym razem się uda, rezerwuj wolne i choć by się waliło to tym razem musisz być :)
Nie przejmuj się ja też mam niewiele czasu, jedynie wieczorami jak już wszyscy pójdą spać, a to też jest problem bo ciężej skupić myśli i coś zdziałać, gra, z której zerżnąłem grafe to 1-bit rogue na ios i chyba na androida też jest, można zapłacić tam jakieś drobniaki to wtedy jest 3 bit i jest ładniej :) ale na razie się tym totalnie nie przejmuję, to jest grafika robocza :)
Na SACpa się wybieram więc jak bedziesz to pogadamy
Renton Ciebie też zapraszamy bo zawsze coś wypadnie cholera :P
mam nadzieje że tym razem się uda, rezerwuj wolne i choć by się waliło to tym razem musisz być :)
04.11.2016 21:26
[#89]
Re: programowanie amos
@asman, post #88
Jest mały postęp, na razie nie mam jak zademonstrować bo oddałem telefon na serwis a więc...
dokończyłem walkę z blobem, kilka rzeczy jeszcze będę musiał dopracować i zrobić bardziej fachowo, chodzi głównie o obliczanie damage :)
w zależności od poziomu (narazie jest tylko jeden, ale jest zmienna level hehe) ze skrzyni wylatują różne przedmioty, na razie same bronie, też będę musiał popracować nad jakimś randomem i dodać przedmioty, dodałem animację wyskakującego przedmiotu :)
przedmioty na razie są tylko trzy:
patyk
kozik
gladius
jak sił starczy to dzisiaj dokończę zejście schodami niżej, bo musi się wyświetlać okienko z wyborem czy zejść niżej czy nie
dokończyłem walkę z blobem, kilka rzeczy jeszcze będę musiał dopracować i zrobić bardziej fachowo, chodzi głównie o obliczanie damage :)
w zależności od poziomu (narazie jest tylko jeden, ale jest zmienna level hehe) ze skrzyni wylatują różne przedmioty, na razie same bronie, też będę musiał popracować nad jakimś randomem i dodać przedmioty, dodałem animację wyskakującego przedmiotu :)
przedmioty na razie są tylko trzy:
patyk
kozik
gladius
jak sił starczy to dzisiaj dokończę zejście schodami niżej, bo musi się wyświetlać okienko z wyborem czy zejść niżej czy nie