Fastbar
Powrót do strony głównej
Trzymaj pliki na gmclan.org!
Game Maker w pytaniach i odpowiedziach!
Polska dokumentacja
Tabela wyników ligi 24
Pobierz GM
Akademia GMCLANu
Kategorie bazy artykułów
Artykuły -> Game Maker -> Kursy GML
Treść artykułu
Przejrzyste sterowanie klawiszami oraz rekonfiguracja.
autor: Ranma_man (5.01.05)
Witam wszystkich game makerowiczów. Dzisiaj na warsztat weźmiemy problem sterowania obiektami w grze za pomocą klawiatury. "Bułka z masłem" ktoś by powiedział, ale czy aby na pewno tak jest? Jeśli zechcemy zrobić opcję rekonfiguracji sterowania, to będziemy musieli operować na funkcjach a nie eventach do tego przeznaczonych (można oczywiście pójść inną drogą, a mianowicie "w locie" zmodyfikować eventy obiektu, ale to już temat na inny artykuł a i rozwiązanie jest niezbyt przejrzyste). Poza tym nazwy funkcji obsługi klawiszy takie krótkie nie są, co potem utrudnia czytelność kodu, a ciągłe ich wklepywanie jest czasochłonne, tak więc nie jest dobrze. :)

Zabieramy się do roboty, czyli jak ułatwić sobie życie. :)

Przykład poruszania się obiektu w 8 kierunkach ( powiedzmy o 7 pikseli ). Prawdopodobnie większość z was napisała by taki kod:
gml:
if ( keyboard_check( vk_up ) ) if ( place_free( x , y - 7 ) ) y = y - 7;
if ( keyboard_check( vk_down ) ) if ( place_free( x , y + 7) ) y = y + 7;
if ( keyboard_check( vk_left ) ) if ( place_free( x - 7 , y ) ) x = x - 7;
if ( keyboard_check( vk_right ) ) if ( place_free( x + 7 , y ) ) x = x + 7;

Wygląda nawet ładnie ... ale nie dla mnie. ;)
Po pierwsze jesli naciskamy kursor w górę, to automatycznie nie musimy sprawdzać kursora w dół, analogicznie jest z osią poziomą. Po drugie keyboard_check to zbyt długi wyraz. Po trzecie nie ma tu miejsca na rekonfigurację klawiszy.

Powyższy przykład zapiszmy inaczej:
gml:
if ( global.kl_up ) przesun(0,-7);
else if ( global.kl_down ) przesun(0,7);
if ( global.kl_left ) przesun(-7,0);
else if ( global.kl_right ) przesun(7,0);

I jak? Nie lepiej? :) Oczywiście funkcję "przesun" musicie sobie napisać sami. :P

Jak widać obraliśmy sobie 4 nowe zmienne globalne o dość łatwych nazwach do zapamietania. Jest to znacznie krótsza forma niż wcześniej, a i nie podajemy bezpośrednio klawiszy o które nam konkretnie chodzi, dzięki temu zostawiamy sobię "furtkę" do stworzenia opcji przedefiniowania sterowania. Owe globalne będą przyjomwały dwie wartości: true w przypadku wciśnięcia danego klawisza lub false.

Mamy już globalne, ale co z nimi zrobić? Sytuacja jest prosta, każda gra zazwyczaj posiada jeden globalny obiekt sterujący. Zróbmy sobie takowy o nazwie engine. Będzie on tworzony już w pierwszym roomie gry. Teraz czas na jego konfigurację, zaznaczamy mu opcję Persistent co oznacza, że obiekt będzie stworzony tylko raz w czasie gry i będzie przechodził pomiędzy room'ami. Dalej dodajemy mu event'a o nazwie Game Start. Tutaj będzie inicjalizacja sterowania, czyli odczyt klawiszy, o które nam chodzi. Je zaś zdefiniujemy w pliku config.ini. Jego źródło:
gml:
[STEROWANIE]
Gora=38
Dol=40
Lewo=37
Prawo=39

Prawda że proste? Te numery to kody liczbowe klawiszy (w tym wypadku kursorów), polecam przejrzeć tablicę ASCII (a jak ktoś nie ma ochoty, to niech w event step byle jakiego obiektu wklepie: "room_caption = string(keyboard_key)" i sam przetestuje). Kodami liczbowymi posługujemy się tak samo jak dyrektywami vk_space, vk_up itd. podając je jako argumenty w funkcji keyboard_check i innych.

Teraz zabierzemy się za wczytanie tych danych. W obiekcie engine event'a Game Start wpisujemy:
gml:
ini_open('config.ini');
global.key[0] = ini_read_real('STEROWANIE','Gora',38);
global.key[1] = ini_read_real('STEROWANIE','Dol',40);
global.key[2] = ini_read_real('STEROWANIE','Lewo',37);
global.key[3] = ini_read_real('STEROWANIE','Prawo',39);
ini_close();

Jak widać INI jest bardzo łatwe w obsłudze. Opis funkcji ini_read_real:
argument0 - Sekcja danych w pliku ini.
argument1 - Nazwa zmiennej do pobrania z danej sekcji.
argument2 - Wartość domyślna zmiennej gdy wczytywanie zakończy się niepowodzeniem.

Mamy już wczytane kody klawiszy do tablicy global.key. Teraz pora napisać skrypt odpowiednio ustawiający wcześniej zdefiniowane zmienne globalne. Event Step obiektu Engine:
gml:
if ( keyboard_check ( global.key[0] ) ) global.kl_up = true; else global.kl_up = false;
if ( keyboard_check ( global.key[1] ) ) global.kl_down = true; else global.kl_down = false;
if ( keyboard_check ( global.key[2] ) ) global.kl_left = true; else global.kl_left = false;
if ( keyboard_check ( global.key[3] ) ) global.kl_right = true; else global.kl_right = false;

I gotowe. Tego skryptu już nie musimy potem ruszać. Teraz czas na redefiniowanie klawiszy. Podam mniej więcej jak to zrobić. Tworzymy obiekt o nazwie menu. Tworzymy:

Create:
gml:
pozycja = 0; // Aktualna pozycja kursora w menu
pauza = false; // Pauza do oczekiwania na wcisniecie klawisza.
draw_set_color(c_white); // Kolor czcionki

menus[0] = "Chodzenie w gore: ";
menus[1] = "Chodzenie w dol: ";
menus[2] = "Chodzenie w lewo: ";
menus[3] = "Chodzenie w prawo: ";
menus[4] = "Wyjscie z menu";

Step:
gml:
if ( pauza ) // Jezeli jest pauza
{
     if ( keyboard_check ( vk_anykey ) ) // Jezeli jakis klawisz zostal nacisniety
     {
          pauza = false; // Wylaczamy pauze
          global.key[pozycja] = keyboard_key; // Zapisujemy numer klawisza do danej pozycji
          io_clear(); // Resetujemy aktualny stan klawiszy
     }
}
else // Jezeli pauzy nie ma, to pozwalamy kursorowi zmieniac pozycje w menu
{
     if ( keyboard_check ( vk_up ) )
     {
          if ( pozycja > 0 )
          {
               pozycja -= 1;
               io_clear(); // Resetujemy stan klawiszy
          }
     }
     else if ( keyboard_check ( vk_down ) )
     {
          if ( pozycja < 4 )
          {
               pozycja += 1;
               io_clear();
          }
     }
}

if ( keyboard_check ( vk_enter ) ) // Jezeli naciskamy enter - wybieramy jakas pozycje z menu
{
     if ( pozycja == 4 ) // Pozycja czwarta bedzie oznaczac wyjscie z menu
     {
          room_goto_next(); // Wychodzimy z menu

          ini_open('config.ini'); // Zapis sterowania do pliku
          ini_write_string('STEROWANIE','Gora',string(global.key[0]));
          ini_write_string('STEROWANIE','Dol',string(global.key[1]));
          ini_write_string('STEROWANIE','Lewo',string(global.key[2]));
          ini_write_string('STEROWANIE','Prawo',string(global.key[3]));
          ini_close();
     }
     else // Jezeli to pozycja gdzie jest redefinicja jednego z 4 klawiszy
     {
          if ( !pauza ) // Jezeli pauzy nie ma
          {
               pauza = true; // Wlaczamy pauze
               global.key[pozycja] = 999; // Ustawiamy specjalny kod... Objaśnienie na końcu arta
               io_clear(); // Resetujemy stan klawiatury
          }
     }
}

Draw:
gml:
for ( i = 0 ; i < 4 ; i += 1 )
{
     if ( i == pozycja )
     {
          draw_set_color(c_red);

          if ( i == 4 )
               draw_text(x, y+i*30, menus[i] );
          else
               draw_text(x, y+i*30, menus[i] + klawisz_string( global.key[i] ) );

          draw_set_color(c_white);
     }
     else
     {
          if ( i == 4 )
               draw_text(x, y+i*30, menus[i] );
          else
               draw_text(x, y+i*30, menus[i] + klawisz_string( global.key[i] ) );
     }
}

Niestety nie będę tutaj objaśniał powyższych skryptów, ponieważ tworzenie menu nie jest tematem tego artykułu. Ważne jest tylko to, że po to ustaliliśmy globalną tablicę do trzymania kodów klawiszy, aby potem można było je łatwo wyświetlić jako listę. Funkcja io_clear() resetuje stan wszystkich klawiszy, czyli jak był wciśnięty, to już nie jest.

Ważne jest by przy wyjściu z takiego menu zapisać dane do pliku ini. Służy nam do tego funkcja write_ini_string:

argument0 - Sekcja danych pliku ini
argument1 - Nazwa zmiennej, która będzie zapisana w podanej sekcji
argument2 - Wartość zmiennej jako tekst.

Teraz czas na opis funkcji klawisz_string, którą musimy dodatkowo utworzyć. Otóż jeśli znamy numer ASCII znaku, to najłatwiejszym sposobem jego wyświetlenia jest użycie funkcji chr(wartosc), gdzie za argument podajemy numer kodowy z tablicy ASCII. Jest jednak jedno "ale", tym sposobem wyświetlimy jedynie część znaków klawiszy, głównie liczby i alfabet. Co zatem z takimi klawiszami jak "Insert", "Escape" itd.? Wyświetli nam się na pewno nie to czego oczekiwaliśmy. Po to właśnie będzie nam potrzebna funkcja klawisz_string. Będzie ona zwracała nazwę klawisza w postaci tekstu o dowolnej długości a nie tylko jednego znaku. Taką funkcję łatwo napisać, wystarczy użyć strukturę typu switch i zależnie od numeru znaku klawisza zwracać inny tekst. Teraz trzeba wypisać wszystkie znaki. Na całe szczęście ciało funkcji napisałem już wcześniej (z rok temu):
gml:
var k;

switch (argument0)
{
case 33: k='PAGE UP'; break;
case 34: k='PAGE DOWN'; break;
case 35: k='END'; break;
case 36: k='HOME'; break;
case 37: k='LEFT ARROW'; break;
case 38: k='UP ARROW'; break;
case 39: k='RIGHT ARROW'; break;
case 40: k='DOWN ARROW'; break;
case 45: k='INSERT'; break;
case 46: k='DELETE'; break;
case 96: k='NUMPAD 0'; break;
case 97: k='NUMPAD 1'; break;
case 98: k='NUMPAD 2'; break;
case 99: k='NUMPAD 3'; break;
case 100: k='NUMPAD 4'; break;
case 101: k='NUMPAD 5'; break;
case 102: k='NUMPAD 6'; break;
case 103: k='NUMPAD 7'; break;
case 104: k='NUMPAD 8'; break;
case 105: k='NUMPAD 9'; break;
case 106: k='NUMPAD *'; break;
case 107: k='NUMPAD +'; break;
case 109: k='NUMPAD -'; break;
case 110: k='NUMPAD DEL'; break;
case 111: k='NUMPAD /'; break;
case 13: k='ENTER'; break;
case 8: k='BACKSPACE'; break;
case 16: k='SHIFT'; break;
case 17: k='CONTROL'; break;
case 18: k='ALT'; break;
case 32: k='SPACE'; break;
case 20: k='CAPS LOCK'; break;
case 192: k='TILDE'; break;
case 92: k='MENU'; break;
case 93: k='WINDOWS'; break;
case 144: k='NUMLOCK'; break;
case 187: k='+'; break;
case 188: k=','; break;
case 189: k='='; break;
case 190: k='.'; break;
case 191: k='/'; break;
case 220: k=''; break;
case 186: k=';'; break;
case 222: k="'"; break;
case 219: k='
['; break;
case 221: k='
]'; break;
case 999: k='
Nacisnij jakis klawisz'; break;
default: k=chr(argument0); break;
}

return k;

Dyrektywa default oznacza standardowo zwracany tekst, gdy żaden case nie pasuje. Są to właśnie znaki, które można wyświetlić za pomocą funkcji chr (alfabet,cyfry...). Kolejnym plusem tego rozwiązania jest to, że jeśli do wyświetlenia menu używamy nietypowej czcionki, która nie posiada wszystkich znaków, to... w funkcji klawisz_string możemy zamienić ten znak na jakiś opis tekstowy. ;)

Zauważcie jeszcze "case 999". Taka wartość jest oczywiście nieprawidłowa, a służy nam tylko do tymczasowego wyświetlenia prośby o wciśnięcie jakiegoś klawisza. ;)

To wszystko na dzisiaj. Do artykułu zamieszczam jeszcze przykład w formacie .gm6:

Sterowanie_art.zip

głosów: 4 | ocena: 6.00 oceń zasób | dodał: Ranmus
Komentarze
stron: 1

1


av

Firemark (17:56, 7.01.2005)

moze bede wcibski,ale czy idzie dac....na joystick?

av

Ranmus (20:50, 7.01.2005)

Idzie, a jakze. Jak napisalem w arcie, funkcja do zwracania odpowiedniego tekstu byla zrobiona rok temu, a wtedy to robilem sterowanie dla kuzyna, joystick tez byl. Ale teraz od strony kodu to troche skopane. Jak bede mial czas i checi, to dopisze.

~Kaytek (16:48, 16.01.2005)

Wścibski? Czemu "wścibski"?

~firemark-bez_log (21:12, 24.01.2005)

A no bo tak ;D

~PrzemO (9:36, 30.04.2005)

Jestes wścipski {zart} Ja z tego nic nie kapuje k****

av

bigshark (10:48, 30.04.2005)

ejhhh to nie chodzi o to ze onjest wscibski dlatego ze sie zapytal o dzojstik, on jest poprostu wscibski w swojej wscibskosci. I dlatego tez jest wscibski, juz kapujesz?

av

Tymon (13:53, 3.05.2005)

Nic nie kapuje, pozatym na takie rozmówki to zapraszam na GMchat lub na GG

~Pablo (14:09, 12.02.2006)

eh... link do przykladu nie dziala :/

av

Tymon (14:21, 12.02.2006)

Ranma albo BWO musi zmienić Ja nie mam pełnego dostępu.

gmclan.org/index.php?plik=64

av

pablo1517 (13:42, 30.09.2006)

no to dopisz jak dać na pada! xD

av

pablo1517 (19:02, 22.10.2007)

Ranma miał tu coś dopisać

av

blackmaul (13:59, 23.10.2007)

Upomnij się za rok, Ranmus jest zajęty.

av

XivroX (18:26, 4.11.2008)

heh, minął rok...

av

Anubarak (17:32, 18.02.2009)

i następny rok...

av

Anubarak (17:36, 18.02.2009)

oprócz kilku miesięcy

av

Mosiek (16:00, 13.08.2009)

YY a jak to tego kodu
if ( global.kl_up ) przesun(0,-7);
else if ( global.kl_down ) przesun(0,7);
if ( global.kl_left ) przesun(-7,0);
else if ( global.kl_right ) przesun(7,0);
dopisać że jak idzie to zmienia sprite a jak się zatrzymam to się włącza sprite stojącego typka Nie wiem w ogóle jak się za to zabrać ;/

av

kt1117 (8:41, 7.11.2010)

Dodaj do skryptu przesun.

stron: 1

1



Dodaj komentarz:
Treść:
Menu
Panel użytkownika
Jesteś niezalogowany!

Nie masz konta? Zarejestruj się
Użytkownicy on-line
4 użytkownik(ów) aktywny(ch) przez ostatnie 15 minut:
gości: 3, userów: 1, ukrytych: 0
Chell
Użytkownicy na czacie discord
Uzjel (22:42, 25.05.18):
Max, spróbuj piktochart
PsichiX (20:46, 25.05.18):
ale ja mowie serio. Ty chcesz infografike, ja mowie Ci moja cene za to.
Wojo (19:51, 25.05.18):
penguin robisz świetne pixelki
MaxGaming (19:11, 25.05.18):
Psichix nie próbuj być na siłę śmieszny bo Ci to nie wychodzi...
Danielus (19:11, 25.05.18):
RODO z GMC trafia do spamu w gmailu :d
PsichiX (18:44, 25.05.18):
50zl za 1024 piksle kwadratowe
MaxGaming (16:31, 25.05.18):
Jest ktoś kto mógłby mi machnąć infografikę?
gnysek (11:54, 25.05.18):
Toż bym z tych 20zł miesięcznie nie wypłacił sobie ZUSu za GMCLAN
gnysek (11:53, 25.05.18):
No moja firma działa jeszcze gdzieś indziej Poza tym, regulamin jest wspólny dla wszystkich stron, kosztowało mnie to dopisać "gmclan.org" do listy
Wojo (11:40, 25.05.18):
ale gmclan moze miec kare w granicach 6zł chyba ze gdzies indziej jeszcze dzialacie
gnysek (23:03, 24.05.18):
Kara jest od obrotów firmy, nie strony
Wojo (18:46, 24.05.18):
nie ma potrzeby tego robic imo, jakbys dostal mandat to przychód z gmclanu napewno go pokryje xD
gnysek (15:34, 24.05.18):
Niestety, pewnie wieczorem dodam popup o ciastkach również
gnysek (15:26, 24.05.18):
Jesteśmy gotowi na RODO, dodałem Politykę Prywatności
Ignatus (23:06, 20.05.18):
To bedzie w zasadach opcjonalnych- no i tylko jezeli przejdzie solidne testy, bo teraz dziala to wszystko idealnie wiec nie ma co kombinowac
I am Lord (22:58, 20.05.18):
Nie przekombinuj, chyba że chcesz zostawić to jako opcję dla zaawansowanych
Ignatus (22:49, 20.05.18):
wiec wrzucilem jako cel przyszly
Ignatus (22:49, 20.05.18):
ale to jeszcze nie przetestowane wiec do bazowej gry nie dodalem
Ignatus (22:49, 20.05.18):
to by dzialalo tak ze jezeli gracz ulozy karty o wartosci 1,2,3 (i w tej kolejnosci) dobiera 1 z 3 kart specjalnych
Ignatus (22:48, 20.05.18):
Jeszcze planuje przy przekroczeniu celu kampanii 10k dorzucic kilka kart i umiejetnosci
Ignatus (22:48, 20.05.18):
Pewnie że tak
I am Lord (22:42, 20.05.18):
żeby było więcej kart
I am Lord (22:41, 20.05.18):
kupując np 2 zestawy gry
I am Lord (22:41, 20.05.18):
zmodyfikować zasady*
I am Lord (22:40, 20.05.18):
zawsze można będzie zmodyfikować sobie jak się chce mieć losową rękę
Ignatus (22:33, 20.05.18):
Niektórzy na Pyrkonie dosłownie po 5 minut myśleli nad ruchem
Ignatus (22:32, 20.05.18):
Zerowa losowośc- gracze mają do dyspozycji symetryczne talie 7 kart od początku do dyspozycji.Jest takie ciężkie kombinowanie że aż sam jestem w szoku
I am Lord (22:28, 20.05.18):
Teraz przeczytałem opis gry Humor taki jak u Pratchetta
I am Lord (22:13, 20.05.18):
A powiedz mi jak dużą rolę gra szczęście? Kółko i krzyżyk był grą o zerowym szczęsciu, nie da się go wygrać gdy staną przeciwko sobie przeciwnicy na tym samym poziomie. U ciebie elementem losowym jest talia kart tak? Czy rozdanie mocno wpływa na przebieg gry?
I am Lord (22:11, 20.05.18):
Przez ciebie mam chęć zrobienia takiej gierki samemu
Uzjel (22:00, 20.05.18):
Od razu z góry mogę zaproponować port na iOS'a, bo właśnie się uzbroiłem w CAŁY sprzęt Powodzenia!
Ignatus (21:54, 20.05.18):
A jezeli sie powiedzie to oczywiscie bede to przekuwał w multi na andka w przyszłości
Ignatus (21:53, 20.05.18):
Ujzel:wydawcą jest póki co wspieram.to ;p Ale juz rozmawiam z jednym sklepem większym który mnie wychaczyl na Pyrkonie
Ignatus (21:51, 20.05.18):
Jak się skonczy kampania to beda chodzic w sklepie po 30-35 wiec na pewno jakis zysk bedzie
Ignatus (21:50, 20.05.18):
Bardzo dziękuje!!!!!!!!
Uzjel (21:50, 20.05.18):
O! Albo sprzedam z zyskiem!
Uzjel (21:50, 20.05.18):
Na początku czerwca mam ostatnie zajęcia, więc pewnie się nie uda Rozdam planszówkowym kolegom.
I am Lord (21:49, 20.05.18):
Może ich też to natchnie
I am Lord (21:49, 20.05.18):
To rozdaj maluchom ze szkoły
I am Lord (21:41, 20.05.18):
a nie bo przesyłka będzie kłopotliwa :d
I am Lord (21:41, 20.05.18):
Na gmclan do konkursu
Uzjel (21:34, 20.05.18):
Też dorzucę, ale nie wiem co zrobię z dodatkowymi sztukami :p
I am Lord (21:30, 20.05.18):
Wow ignatus zasady wyglądają na faktycznie grywalne, nie mam i tak z kim w to zagrać chyba że zrobisz kiedyś giereczkę na PC czy androida ale dorzucę grosza
Uzjel (21:25, 20.05.18):
Fajnie Ignatus, kto będzie wydawcą?
Ignatus (19:46, 20.05.18):
Panowie zachęcam do wspierania mojej kampanii gry karcianej.Po prawie 100 partiach na Pyrkonie nieskromnie stwierdzam ze jest zajebsicie grywalna. wspieram.to/czarowieze
Wojzax (19:27, 20.05.18):
No mi najwięcej oryginalnych pomysłów wpada gdzieś w plenerze. Nie że związanych z tym plenerem po prostu tak wyjście mi czasem działa na mózg.
Wojo (19:15, 20.05.18):
za pieniądze z genialnego pomysłu możesz spłacić kredyt za który się wyprowadziłeś
Wojo (19:14, 20.05.18):
wniosek jest taki, że trzeba wyprowadzić się do ciepłych krajów
Sutikku (14:52, 20.05.18):
zawsze jak jest ciepło to tyle pomysłów do tworzenia, a jak jest zima siedzi się w domu, tyle czasu i nic
I am vader (10:33, 19.05.18):
Bry :v
Ankieta
» Jakie kursy najchętniej widziałbyś na stronie ?
GM Studio
GM Studio 2
Godot
Construct

GMCLAN to serwis o programie Game Maker i nie tylko.
[ Polityka prywatności ]
Copyright © 2002-2018. GMCLAN.ORG
Wszelkie prawa zastrzeżone. Kopiowanie materiałów bez zgody redakcji zabronione!
© 2002-2017 Ranmus (ranmus.pl), © 2017-2018 {=|=} fable_inside();

[ Czas generowania strony: 0.04565 sekund ] [ Liczba zapytań MySQL: 13 ]