Adamg1996

Ale mi wlasnie o nazwy procedur itp chodzi... Ze musze od nowa sie ich uczyc.. ;/ A wlasnie gdzie znajde jakis dobry kurs delphi bo niemoge takiego znalesc ?

Duzo rzeczy sie dowiaduje.. xD w delphi dziala pascal xD tylko szkoda ze niemozna jakos polaczyc pascala i obiektow... :/

Ooo.. tego nie wiedzialem... Napewno sie przyda.. :) A da sie zrobic zeby w delphi mozna bylo uzywac pascala ( write , read , itp. ) tzn zeby mozna budowac obiektowo cos jak konsole xD ?

Co do tego to przeciez chyba GM jest w delphi czyz nie ?

Thx wielkie... ^^

Cześć, Zna ktoś może jakąś stronę z przykładami gier zrobionych w delphi ? Nie chodzi mi o kółko i krzyżyk itp.. tylko o jakieś platformówki i coś takiego... ( Szukałem w google ) Z góry dzieki...

Cześć, Mam pytanie w związku z odczytywaniem grafik w formacie *.bmp, Jak odczytać obrazek o dowolnych rozmiarach ( 256 kolory ) ? I jak go umieścić w dowolnym miejscu ekranu ? I czy moglibyście przerobić kodzik ? xD Oczywiście tryb VGA 13h... Kod który prosiłbym przekształcić ( ponieważ jest to jedyny działający na moim TMTPascalu kod odczytujący bmp) i wolałbym jak najmniej assemblera(ponieważ mam z nim same problemy)... procedure BMP(Sciezka : string); var Paleta : array [0..255,0..3] of Byte; { Tu zapiszemy nasze kolorki } Plik : file; { Zmienna plikowa } i : Byte; { Zmienna pomocnicza } begin Assign(Plik,Sciezka); { Kojazymy zmienna z plikiem } Reset(Plik,1); { Otwieramy plik } Seek(Plik,54); { Pomijamy naglowek pliku } BlockRead(Plik,Paleta,SizeOf(Paleta)); { Wczytujemy palete kolorow } for i:=0 to 255 do begin port[$3c8]:=i; port[$3c9]:=Paleta[i,2] div 4; { Ustawiamy skladowa Red } port[$3c9]:=Paleta[i,1] div 4; { Ustawiamy skladowa Green } port[$3c9]:=Paleta[i,0] div 4; { Ustawiamy skladowa Blue } end; for i:=199 downto 0 do { Wczytujemy linie na ekran } BlockRead(Plik,Mem[$A000:i*320],320); { blokami po 320 pixeli } Close(Plik); { Zamykamy plik } end;

Dzieki..

A moglbys link podac bo znalesc nie moge...

Witam... Gdy w oknie edycjii obiektu klikam na add event i mouse na samym dole mam joystick... Moje pytanie brzmi : Jak zrobic aby po puszczeniu przycisku na PADzie obiekt sie zatrzymal (wczesniej poruszal sie w xx kierunku i xx predkosci ) ?

Ściągnąłem... Niestety nie posiadam Pro GM ale po przeczytaniu kodu stwierdzam że dałoby się zyskać z taką samą ilością kodu taki sam efekt... Jak na silnik do gry top-down to za mało ale dobre dla zupełnych początkujących jako przykład jak zacząć z grami w widoku top-down. To wg. mnie... E1]: 2/5

To nie ja... :D Pamiętaj że to dopiero demo... Narazie zastanawiam się jeszcze na systemem hp gracza , przeciwników itp.

Te kwadraciki to krew... :D W ruchu to lepiej wygląda... Tak mi się wydaje... Postaram się poprawić.

Tzn. ? Co dokładnie mam zmienić ?

Tytuł: GG Emotikon Invasion Gatunek: platformówka Opis: Chodzimy czarodziejem (emotikonem) po GG World. Narazie więcej nie mogę wymyśleć. Autorzy: Programowanie: Adamg1996 Fabuła: Adamg1996 Grafika: Adamg1996 , GG Muzyka: narazie brak Screeny: http://img180.imageshack.us/i/demow.png/ E]: Link do okrojonego demka (tego ze screena + trzeba znaleść gwiazdke żeby przejść do następnego level'a + kwadraty '?' znikają gdy ich się dotknie ) : https://gmclan.org/up6237_4_game.html

Mam moduł napisany z pomocą tzn. ściągnięty ze strony helion'u (xD) https://gmclan.org/up6237_4_Graf_fx.html I przy kompilowaniu wyskakuje mi błąd: Unexpected end of file , chociaż jest ' end. ' Why ?

Poszukuję jakiegoś rozbudowanego kursu Pascal'a na temat grafiki 3D... Zna ktoś jakiś kurs lub forum z takowym tematem ?

A jak tej biblioteki Socket(?) użyć ?

A mógłbyś ściąnąć ten moduł? {Mi coś wyskakuje że tego pliku nie ma...} Chodzi mi o wyświetlanie strony w oknie pascala... To chyba by trzeba było napisać coś co ściąga plik np. index.html , otwiera go i wykonuje komendy(?) zawarte w tagach , tak? Np. To twoje tylko w warunkach i tych podobnych... xD (Tu powiązanie do mojego tematu https://forum.gmclan.org/index.php?showtopic=22283) odczytanie fragmentu (niewiem jak tylko fragment odzczytać) kodu i : if zmienna='<br />' then writeln(''); To tak powinno być? E1]: A w tej komendzie 'exec' , ta 2 wartość co przedstawia? Coś jak assign('plik.txt',plik)?

Dzięki... :thumbsup:

FIZYKA.pas(13,10) Error: Incompatible types: got "Extended" expected "LongInt" FIZYKA.pas(17) Fatal: There were 1 errors compiling module, stopping FIZYKA.pas(0) Fatal: Compilation aborted

USES crt; VAR Ek,m,v:longint; BEGIN clrscr; writeln('Podaj mase (m) ciala'); readln(m); clrscr; writeln('Podaj predkosc (v) ciala'); readln(v); clrscr; Ek:=m*v*v/2; writeln('Energia kinetyczna danego ciala wynosi :',Ek,'J'); readln; END. Nie chce mi tego uruchomić/skompilować... dlaczego?

Tylko jak zrobić z read że czyta x razy po y bajtów?

Mam taki program który ma odczytywać 3 razy po 2 bajty (oznaczające x,y,kolor pixela którego później wyświetla ale najpierw pokazuje w trybie tekstowym jego współrzędne oraz kolor[w cyfrach]), USES graph; VAR a,b:integer; plik:file; licz,wyn:word; odda:array[0..99] of word; BEGIN assign(plik,'abc.mgf'); reset(plik,2); licz:=3; wyn:=0; a:=0; b:=0; blockread(plik,odda,licz,wyn); writeln(odda[0]); writeln(odda[1]); writeln(odda[2]); readln; initgraph(a,b,''); putpixel(odda[0],odda[1],odda[2]); readln; END. w pliku abc.mgf mam zapisane"223311", niestety gdy uruchamiam program pokazuje mi się 12850 13107 12593 Why ?

Tytuł:Gwiazdy-animacja xD, Gatunek: Program w języku Pascal z użyciem modułu graph, Opis: Program w którym mamy za zadanie wcisnąć enter :thumbsup: po czym pokaże się nam animacja (wygląda (wg. mnie) jak niebo w nocy i gwiazdy które się pokazują z nikąd... xD), to mój pierwszy program w tym języku i miałem za zamiar przetestować tryb graficzny (którego nie umiałem włączyć)... Download: TU ,