Skocz do zawartości

Tymon

Użytkownicy
  • Postów

    5 841
  • Dołączył

  • Ostatnia wizyta

  • Wygrane w rankingu

    5

Treść opublikowana przez Tymon

  1. Po prosty GML zmienna = get_string( "podaj imie","" );=)
  2. Tymon

    Klon na medal

    Morda klauna z zasobów GM, tak?
  3. Tymon

    Klon na medal

    Przecie to jest klaun.
  4. Tymon

    Klon na medal

    Zależy od wyobraźni autora.
  5. Okienko powinno być zarejestrowane. A tak w ogóle to co chcesz zrobić?
  6. W Delphi robi się HWND = round( gmHWND ). Zobacz HWND = (int)gmHWND ew. HWND = (unsigned int)gmHWND. =P
  7. No nie wiem jak Ty, ja bym wolał dostać nową bieliznę. =) Zamknij może, a autor niech się zgłosi do kogoś z redakcji.
  8. Borek, to Ranma Ci płaci skarpetkami? xD
  9. HWND to liczba, nie pamiętam tylko jaka. long int? float? Tak czy inaczej zwykłe rzutowanie powinno działać tak jak trzeba.
  10. Tymon

    MAGI Original Soundtrack

    Podpiszę się tylko pod tym co napisał Borek. ;)
  11. Czy ja wiem, ja nawet Basica nie znam. =D A przynajmniej słabo.
  12. Tymon

    Pomysł na www

    Jeśli się nie mylę to był temat z "ulubionymi grami" użytkowników.
  13. Wciśnij X. 0.6r to po prostu r*0.6, tak mi się wydaje. I nie wiem o co chodzi profesorce, może o wypełnienie tego koła? PI = 3.14159 'PI w = 640 'szerokosc H = 480 'wysokosc Cx = w / 2'srodek x Cy = H / 2 'srodek y 'tryb graficzny SCREEN 12 'dane wejsciwe INPUT "v ="; V INPUT "R ="; R INPUT "r ="; Rm x = 0 d = 0 WHILE key$ <> "x" key$ = INKEY$ d = d + (V * R) / R ^ 2 'obliczenia Ox = R * COS(d / 180 * PI) + Cx Oy = R * -SIN(d / 180 * PI) + Cy 'wyczysc ekran LINE (0, 0)-(w, H), 0, BF 'uklad LINE (Cx, 0)-(Cx, H), 8 LINE (0, Cy)-(w, Cy), 8 'ramie LINE (Cx, Cy)-(Ox, Oy), 16 'w bezruchu LINE (Cx, Cy)-(Cx + R, Cy), 16 'w ruchu 'obiekt CIRCLE (Cx + R, Cy), 3, 12 'w bezruchu CIRCLE (Ox, Oy), 3, 4 'w ruchu 'tor punktu CIRCLE (Cx + R, Cy), Rm * .6, 8 'w bezruchu CIRCLE (Ox, Oy), Rm * .6, 16 'w ruchu WEND
  14. Tak, Ci panowie z 997 na pewno znają odpowiedzi na Twoje pytania. =)
  15. Tymon

    GRY MMO

    Hexedytor? Jesteś pewny? Może jednak edytor pamięci? =P
  16. Tymon

    Pomysł na www

    Niby dlaczego mielibyśmy się dzielić swoimi pomysłami z innymi? :B Tym bardziej temat jest bez sensu jeśli chodzi tylko o "gry".
  17. Niepotrzebne, wystarczy window_set_visible( false ) - co stepa.
  18. Mam tylko nadzieję, że było to uzgodnione z kimś z redakcji. =)
  19. Tak, działało. ;) EDIT Jest na moim śmietnisku: http://hurkel.gmclan.org/tymon/data/gamema...ute_keybuff.gm6
  20. Poszukaj przykładu, podawałem gdzieś coś takiego. Musiał byś tylko dopisać wysyłanie tego co zostanie "napisane".
  21. Nie miałem ochoty na przepisywanie tego programu z Pascala, to wymyśliłem własną metodę: pi = 3.14159 'PI sw = 640 'szerokosc sh = 480 'wysokosc scx = sw / 2 'srodek x scy = sh / 2 'srodek y 'tryb graficzny SCREEN 12 'dane wejsciwe INPUT "r (50-300) ="; r 'rozmiar IF r < 50 THEN r = 50 IF r > 300 THEN r = 300 INPUT "l (1-4) ="; l 'poziom IF l < 1 THEN l = 1 IF l > 4 THEN l = 4 'rozmiar tablicy s = 3 * 4 ^ l 'tablice z danymi DIM a(s, 1) DIM p(s, 1) 'trojkat startowy p(0, 0) = r p(0, 1) = 0 p(1, 0) = r p(1, 1) = 120 p(2, 0) = r p(2, 1) = 240 ps = 3 'obliczenia FOR i = 0 TO l - 1 STEP 1 FOR n = 0 TO ps - 1 STEP 1 a(n * 4, 0) = p(n, 0) a(n * 4, 1) = p(n, 1) NEXT n FOR n = 0 TO ps - 1 STEP 1 W = p(n, 0) / 3 k = p(n, 1) a(n * 4, 0) = W a(n * 4, 1) = k a(n * 4 + 1, 0) = W a(n * 4 + 1, 1) = k - 60 a(n * 4 + 2, 0) = W a(n * 4 + 2, 1) = k + 60 a(n * 4 + 3, 0) = W a(n * 4 + 3, 1) = k NEXT n ps = ps * 4 FOR n = 0 TO ps - 1 STEP 1 p(n, 0) = a(n, 0) p(n, 1) = a(n, 1) NEXT n NEXT i PRINT "Ilosc odcinkow: "; ps 'uklad LINE (0, scy)-(sw, scy), 8 LINE (scx, 0)-(scx, sh), 8 'rysowanie "wykresu" x = scx - r / 2 y = scy + r / 3 FOR n = 0 TO ps - 1 STEP 1 xt = COS(p(n, 1) / 180 * pi) * p(n, 0) yt = -SIN(p(n, 1) / 180 * pi) * p(n, 0) LINE (x, y)-((x + xt), (y + yt)) x = x + xt y = y + yt NEXT n Jest nieco ograniczona, ale działa.
  22. PI = 3.14159 'PI w = 640 'szerokosc H = 480 'wysokosc Cx = w / 2'srodek x Cy = H / 2 'srodek y 'tryb graficzny SCREEN 12 'dane wejsciwe INPUT "v ="; V INPUT "R ="; R INPUT "r ="; Rm x = 0 d = 0 WHILE key$ <> "x" key$ = INKEY$ d = d + (V * R) / R ^ 2 'wyczysc ekran LINE (0, 0)-(w, H), 0, BF 'uklad LINE (Cx, 0)-(Cx, H), 8 LINE (0, Cy)-(w, Cy), 8 'obiekt Ox = R * COS(d / 180 * PI) + Cx Oy = R * -SIN(d / 180 * PI) + Cy CIRCLE (Cx + R, Cy), 3, 12 'w bezruchu CIRCLE (Ox, Oy), 3, 4 'w ruchu 'tor punktu CIRCLE (Cx + R, Cy), Rm * .6, 8 'w bezruchu CIRCLE (Ox, Oy), Rm * .6, 16 'w ruchu WEND Zobacz weź.
  23. Ten "obiekt-koło" ma się poruszać po torze jakim jest okrąg o promieniu R, dobrze rozumiem? Obrazując, tak jak ziemia wokół słońca? I czy to ma być prędkość kątowa?
×
×
  • Dodaj nową pozycję...