Skocz do zawartości

Davka

Użytkownicy
  • Postów

    130
  • Dołączył

  • Ostatnia wizyta

Treść opublikowana przez Davka

  1. Poucz sie troche GML i tak jak powiedzial Driger daj plik projektu
  2. No super XD Tez robie w BLITZ3D :thumbsup:
  3. Super 5/5 tylo popraw bo czasami czolg sie zacina na drzewach :D
  4. Zrob se 2 zmienne np. GML //Create 1 istnienia zycie=100; GML //Create 2 istnienia zycie2=100; itp. UWAGA!! Pisane z pamieci
  5. Davka

    Duch.

    Popierem Harvaster"a ale ze "Jedna z pierwszych" to 2/5 :P Edit: Wrzuc na UPLOAD bo nie moge sciagnac <_< Edit2: Ludzie tak ciezko wrzucic na UPLOAD?? Edit3: Ej wiesz jest cos takiego jak SNAP w gm "Siatka"
  6. Davka

    Azuners 3D RPG

    Co za sciama WARNA mu :P
  7. Davka

    Problem z pongiem

    Ja pisze w Blitz3d
  8. Davka

    Problem z pongiem

    Witajcie. Mam problem z Pongiem w Basicu o to kod zrodlowy: Graphics 640,480,16,w SetBuffer BackBuffer() czcionka=LoadFont("Calaveras",100,True) czcionka2=LoadFont("Arial") czcionka3=LoadFont("Kat Skratch",60,True) SetFont czcionka Text 110,110,"PONG V.1.1." SetFont czcionka2 Text 10,10,"BY DAVKA_14" SetFont czcionka3 Text 110,280,"PRESS ENTER" Global y=240 Global y2=240 While Not KeyHit(1) If KeyDown(28) Then Graphics 640,480,16,w Rect 10,y,5,40,2 Rect 620,y2,5,40,2 Line 320,0,320,480 Rect ballx,bally,10,10,1 EndIf Flip Wend End i tera nie wiem jak zrobic poruszanie tej paletki bo jak zrobie if keydown(200) y=y+4 to tez nie dziala za pomoc z gory dzieki
  9. Zrob se SPRITE bez animacji i na niego zmieniaj bedzie prosciej
  10. Davka

    Main Loop

    Witajcie, dopiero sie ucze Blitz Basic i mam problem. Robie prostego "Ponga" mam taki kod Zabardzo nie wiem co to Main Loop z$=Input$("Pełny ekran? <t/n>") If z$="t" Then w=1 If z$="n" Then w=2 Graphics 640,480,16,w SetBuffer BackBuffer() name1$=Input$("Podaj nazwe pierwszego gracza:") name2$=Input$("Podaj nazwe drugiego gracza:") While Not KeyHit(1) Cls ballx=ballx+speedx bally=bally+speedy Rect 10,y,10,30,1 Rect 620,y2,10,30,1 Rect ballx,bally,10,10,1 Text 100,0,name1$+": "+playerscore,1 Global ballx=0 Global y=240 Global y=240 Global bally=0 Global speedx=3 Global speedy=3 If bally>455 Then speedy=-speedy If ballt<0 Then speedy=-speedy If ballx<0 Then ballx=0 : bally=0 : speedx=3 : speedy=3 If ballx>455 Then ballx=0 : bally=0 : speedx=3 : speedy=3 If RectsOverlap(620,y2,10,30,ballx,bally,10,10) Then speedx=-speedx If RectsOverlap(10,y,10,30,ballx,bally,10,10) Then speedx=-speedx If KeyDown(17) Then y2=y2-4 If KeyDown (31)Then y2=y2+4 If KeyDown(200) Then y=y-4 If KeyDown(208) Then y=y+4 If y2<0 Then y=0 If y2>450 Then y=450 If y>450 Then y=450 If y<0 Then y=0 Global y2=240 Flip Wend End I wyskakuje mi blad: "Global" can only appear in main program Wiem o co chodzi ale nie umiem tego poprawic Za pomoc zgory dzieki Edit Juz sobie poradzilem dzieks zamykam powinno byc tak jakby co z$=Input$("Pełny ekran? <t/n>") If z$="t" Then w=1 If z$="n" Then w=2 Graphics 640,480,16,w SetBuffer BackBuffer() name1$=Input$("Podaj nazwe pierwszego gracza:") name2$=Input$("Podaj nazwe drugiego gracza:") Global ballx=0 Global y=240 Global bally=0 Global speedx=3 Global speedy=3 While Not KeyHit(1) Cls ballx=ballx+speedx bally=bally+speedy Rect 10,y,10,30,1 Rect 620,y2,10,30,1 Rect ballx,bally,10,10,1 Text 100,0,name1$+": "+playerscore,1 If bally>455 Then speedy=-speedy If ballt<0 Then speedy=-speedy If ballx<0 Then ballx=0 : bally=0 : speedx=3 : speedy=3 If ballx>455 Then ballx=0 : bally=0 : speedx=3 : speedy=3 If RectsOverlap(620,y2,10,30,ballx,bally,10,10) Then speedx=-speedx If RectsOverlap(10,y,10,30,ballx,bally,10,10) Then speedx=-speedx If KeyDown(17) Then y2=y2-4 If KeyDown (31)Then y2=y2+4 If KeyDown(200) Then y=y-4 If KeyDown(208) Then y=y+4 If y2<0 Then y=0 If y2>450 Then y=450 If y>450 Then y=450 If y<0 Then y=0 Global y2=240 Flip Wend End
  11. Davka

    Visual Basic

    OK jeszcze dzisiaj zaczynam sie uczyc
  12. Davka

    Visual Basic

    Dzieks a jeszcze jedno jest on dobry do robienia gier
  13. Davka

    Visual Basic

    Witajcie. Czy polecacie nauke Visual Basic, Jeli tak to gdzie znalesc jakies kursy?? <_<
  14. Ja bym na twoim miejscu wzial sie za cos prostrzego i do roboty bo jak widze to ciagle tylko posty nabijasz :P
  15. No ja daje 3/5 gierka spoko, wciagnela mnie XD i jeszcze ta muzyka :lol:
  16. Stare dobre czasy.... Za gre 4/5 swietna grafika
  17. O to ci chodzi?? GML if score=82 { room_goto_next() } W Room Start GML score=82;
  18. ej zamiast If direction=.... mozna uczyc zmiennych np. przy nacisnieciu klawisz lewo STRZAL=1; i w jakims przycisku GML if strzal=1 { //Jakas akcja }
  19. Ma tu przyklad z samych klockow nie wiem ale chyba oto mu chodzilo https://gmclan.org/up3727_11_Obracanie.html Uwaga wersja na GM.6 Edit: Alarmami napisz do mnie na gg to ci powiem
  20. No niech se zrobi Sprite bochatera obroconego w Lewo,Prawo,Gora,Dol i uzyje klocka do zmiany Spritow albo GML Edit: Przy nacisnieciu jakiegos klawisza
  21. Zrob se SPRITY jak nie wiesz jak w GML :P Edit: Jak C++ to chyba inny dzial :P
  22. Wyslij to na konkurs. Bedzie walczylo z PANZER FAZA II :thumbsup: 1/5
×
×
  • Dodaj nową pozycję...