XxMichałxX

zawsze jest nadzieja :wink:

Napisałem taki króciutki poradnik, który tym co nie wiedzą - pokaże jak dodać kolory np. takie jak brązowy lub pomarańczowy (bo takowych w GM'ie nie ma) lub dowolnych odcieni kolorów etc. No więc start: 1. Trzeba sobie w kodzie szesnastkowym wybrać kolor. Dla tych co nie wiedzą skąd takowy wytrzasnąć daję linki do dwóch generatorów i zbioru dwustu szesnastu podstawowych gotowców: Rozbudowany generator (download, osobiście polecam, podejrzewam również, że otrzymać kod dziesiętny można bezpośrednio w tym programie, ale nie jestem pewien): KLIK Prymitywny generator (online): KLIK Gotowce (online): KLIK 2. Gdy już mamy kolor w kodzie szesnastkowym to teraz trzeba go przekonwertować na kod dziesiętny, który właśnie obsługuje GM. Jak to zrobić? Wchodzimy TU, wpisujemy nasz kod szesnastkowym w pierwszym polu od góry (Hexadecimal) i klikamy pierwszy od góry button (Hex to Dec). Wynik (kod dziesiętny) otrzymujemy w pierwszym polu od dołu (Decimal). I co teraz? Mamy już kod dziesiętny naszego koloru. Jak go użyć? To proste. Podam 3 sposoby: Sposób ze stałą (wygodniejszy na masowe używanie koloru): No i gotowe teraz po prostu gdy chcemy go użyć to dajemy: GML draw_set_color(c_superkoloro); Ba, i nawet będzie zabarwiony na brązowo (tak jak inne kolory) :P Sposób ze zmienną (też wygodniejszy na masowe używanie koloru, ale mniej praktyczny i nie zabarwia się na brązowo :D): GML //Create: mojsuperkolor= //<-- tutaj kod dziesietny ktory otrzymalismy</span></span></span></span> Lub jeżeli chcemy tak bardziej, żeby pasowało do reszty to: GML //Create: c_mojsuperkolor=//<-- tutaj kod dziesietny</span></span></span></span> No i potem żeby użyć: GML draw_set_color(mojsuperkolor); Lub zależy jak kto dał: GML draw_set_color(c_mojsuperkolor); Sposób bezpośredni (dobry na jednorazowe używanie), tutaj po prostu i jak sama nazwa mówi - bezpośrednio dajemy: GML draw_set_color(kod dziesietny koloru ktory otrzymalismy); Pozdrawiam, i liczę na to że chociaż jakiejś jednej osobie się to przyda :P Duże P.S. - Przeoczyłem jedną istotną rzecz: w konwerterze z kodu szesnastkowego należy usunąć znak '#' i zastąpić go znakiem '$' !!!

w ogóle co to za wypowiedź? nigdy bym się nie domyślił o co chodzi gdyby lenin nie rzucił sugestii

juz na arg zmieniłem edit: dobra poradziłem sobie

Próbuję zrobić takie coś że jest sobie w skrypcie parser, który dostaje string, z tego stringa sprawdza nazwe funkcji, ilość argumentów i czy w ogóle są no i wtedy zależnie od funkcji tam robi.. dam schemat: GML var ilosc_argumentow,arg,podane,funkcja; ilosc_argumentow=0; arg=0; podane=string(argument0); funkcja=''; if są_jakieś_argumenty { ilość_argumentow=sprawdz_ilosc_argumentow; for(i=1; i<=ilosc_argumentow; i+=1) { arg=sprawdz_wartosc_argumentu; } } else { ilosc_funkcji=0; funkcja=podane; } switch(ilosc_funkcji) { case 0: switch(funkcja) { case '/help': show_message('Pomoc'); break; } break; case 1: switch(funkcja) { case '/napisz_mi_slowo': show_message(arg[1]); break; } break; case 2: switch(funkcja) { case '/napisz_mi_dwa_slowa': show_message(arg[1]+' i '+arg[2]); break; } break; case 3: //tutaj tez cos takiego np :P break; } No i ktos by umial to zrobic? bo ja sie za to zabrałem, ale stwierdziłem że to nie na moje możliwości, ponadto ZAWSZE gdy robię coś na stringach to skrypt działa źle albo wyskakują errory :/

nonsens. przecież jak sie da w pętli to będzie maksimum prędkości, przeciez tego co step nie będe dawał. moim sposobem moze byc room_speed=1 a i tak bedzie maksimum predkosci. e: ale nie wziąłem pod uwagę tego ze druga osoba moze wolniej odbierac... no ale co tam wiadomosc to wiadomosc - w koncu dojdzie chyba ze serwer sie zapcha jak bedzie te kilobajty musiał trzymać w sobie i wolniej przesylac.. nie znam się zbyt bardzo

musisz dać b='b'; a=b; i wteyd a=b && a='b'

a jak to na konsole przełożyć bo z tym WinAPI taki syf jest że nie moge tego ogarnąć. cały kod związany z winapi wywaliłem ale i tak pod koniec musi coś tam zwrócić i jest źle i errory będą e: ja bym chciał żeby to było mniejwięcej tak: #include to #include tamto /* tutaj kod który tworzy te wszystkie funkcje */ ... /* a tutaj już sobie piszę program i chce mieć wszystkie funkcje z 39dll tak samo jak w gm, a nie ze widzialem tam w tym kodzie ze bylo receivemessage z trzema arugmentami :( */ e2: takie cos mam: xD

jak narazie chcę zrobic pewien program konsolowy, ale 39dll właśnie bym chciał wsadzić i najlepiej zeby juz poprostu w plik .exe był wpięty a nie ze w folderze z nim musi byc, no i jeszcze jakaś instrukcja raz jak to zrobić, dwa jak sobie zrobić funkcje, czy moze jak tego "lib-a" sie wezmie to juz sa gotowe funkcje?

a no bo przesył danych chce a nie bardzo mi sie chce pieprzyc zeby bajt po bajcie wysylac to do jednego bufora wsadzic pare milionów bajtów i sendmessage :P e: nie no ale chociaż na jakieś party podzielić czy coś bo bajt po bajcie to też jest troche niebezpiecznie, bo jeden bajt sie gdzies zgubi i po pliku

Ile można zmieścić max bajtów w jednym buforze, w 39dll?

omg. no to zapamiętaj że jak chcesz repeat uzyc to dajesz GML ilosc=5; //np repeat(ilosc) { //kod ktory tu wstawisz wykona sie ilosc razy (w tym przypadku 5 razy) //podczas jednego stepa }

dałem rade. po prostu tworze w serwerze socket sesji tylko wtedy, gdy status=2 i wtedy nasłuchuje, a jak zmienia sie status=1 to closesocket(socket_sesji) i gitez narq

do tego tułowia takie ręce świetnie pasują :)

ja mam 14 przedmiotów na ocene - średnia jak narazie z szacowanych ocen przezemnie wyszła 4.50 = rodzice mnie zatłuką za taką słabą. ---- program git, tylko popraw pare błędów i daj zeby sie dało odznaczyć pole. 3.7/5

lol nie chodzi o to. w oryginalnym kodzie dochodzi do takiego momentu. masz tu oryginalny kod: [serwer] Client: GML new=-1; SST_Create(working_directory+"\SST.dll",0); parent_handle = SST_SetHandles(window_handle()); SST_LoadIcon(working_directory+"\GitRC_Server.ico"); SST_SetToolTip("GitRC - Server"); SST_WindowProcedure(1); SST_Notify(sst.NIM_ADD); dllinit(0,1,0); socket=tcplisten(12345,2,1); rec=0; cip=''; registry_set_root('HKEY_LOCAL_MACHINE'); port=12345; fun=0; ini_open('config.ini'); stat=round(ini_read_real('MAIN','stat',2)); hmf=14; for(i=1; i<=hmf; i+=1) { fun[i,1]=round(ini_read_real('MAIN','fun'+string(i),0)); fun[i,2]=string(i); } fun[1,2]='Pokaż wiadomość'; fun[2,2]='Zadaj pytanie'; fun[3,2]='Otwórz CD'; fun[4,2]='Zamknij CD'; fun[5,2]='Sprawdź plik'; fun[6,2]='Usuń plik'; fun[7,2]='Stwórz plik'; fun[8,2]='Sprawdź ścieżkę'; fun[9,2]='Usuń ścieżkę'; fun[10,2]='Stwórz ścieżkę'; fun[11,2]='Zrestartuj serwer'; fun[12,2]='Wyłącz serwer'; fun[13,2]='Zrestartuj komputer'; fun[14,2]='Wyłącz komputer'; lag=0; ini_close(); Step: GML switch(SST_GetInput()) { case sst.WM_LBUTTONUP: if (SST_IsIconic()) { SST_ShowWindow(parent_handle,sst.SW_SHOW); SST_ShowWindow(parent_handle,sst.SW_RESTORE); SST_SetForegroundWindow(window_handle()); } else { SST_ShowWindow(parent_handle,sst.SW_MINIMIZE); SST_ShowWindow(parent_handle,sst.SW_HIDE); } break; } switch(stat) { case 2: new=tcpaccept(socket,1); if new stat=3; cip=lastinIP(); case 3: { rec=receivemessage(new); if rec>0 { var nag; nag=readbyte(); } else if rec=0 { closesocket(new); stat=2; exit; } else { exit; } switch(nag) { case 16: send_funs(); break; case 1: if fun[1,1]=1 { show_message(readstring()); } else { send_msg('Ta funkcja zostala zablokowana przez serwer!'); send_funs(); } break; case 2: if fun[2,1]=1 { var _odp; _odp=get_string(readstring(),0); send_msg('Odpowiedź: '+string(_odp)); } else { send_msg('Ta funkcja zostala zablokowana przez serwer!'); send_funs(); } break; } } break; } if mouse_check_button_released(mb_left) { if mouse_x>=20 && mouse_y>=20 && mouse_x<=250 && mouse_y<=120 { if stat=1 { if show_menu('Wznów|Anuluj',1)=0 stat=2; } else if show_menu('Wstrzymaj|Anuluj',1)=0 { if stat=3 { if show_message_ext('Napewno chcesz przerwac polaczenie?','Tak',0,'Nie')=1 { stat=1; closesocket(new); } } else { stat=1; } } ini_open('config.ini'); ini_write_real('MAIN','stat',stat); ini_close(); } else if mouse_x>=380 && mouse_x<=room_width-20 && mouse_y>=20 && mouse_y<=room_height-20 { for(i=1; i<=hmf; i+=1) { var _x1,_y1,_x2,_y2; _x1=390; _y1=30+(i-1)*20; _x2=room_width-30; _y2=_y1+20; if mouse_x>=_x1 && mouse_x<=_x2 && mouse_y>=_y1 && mouse_y<=_y2 { if fun[i,1]=1 fun[i,1]=0 else fun[i,1]=1; ini_open('config.ini'); ini_write_real('MAIN','fun'+string(i),fun[i,1]); ini_close(); if stat=3 { clearbuffer(); writebyte(1); writebyte(i); writebyte(fun[i,1]); sendmessage(new); } } } } } Draw: GML draw_set_color(c_blue); draw_set_font(main_font); draw_rectangle(20,20,250,120,0); draw_set_color(c_white); switch(stat) { case 1: draw_text(30,30,'Status: Wstrzymany'); draw_sprite(stat1,-1,210,80); break; case 2: draw_text(30,30,'Status: Oczekiwanie'); draw_sprite(stat2,-1,210,80); break; case 3: draw_text(30,30,'Status: Połączony'); draw_text(30,50,'IP: '+cip); draw_sprite(stat3,-1,210,80); break; } draw_set_color(c_blue); draw_rectangle(380,20,room_width-20,room_height-20,0); draw_set_color(c_white); for(i=1; i<=hmf; i+=1) { draw_text(390,30+(i-1)*20,fun[i,2]); if fun[i,1]=1 draw_sprite(tru,-1,room_width-50,30+(i-1)*20); else draw_sprite(fal,-1,room_width-50,30+(i-1)*20); } [Client] Create: GML dllinit(0,1,0); serv=0; stat=1; ip='127.0.0.1'; port=12345; fun=0; hmf=14; for(i=1; i<=hmf; i+=1) { fun[i,1]=0; } fun[1,2]='Pokaż wiadomość'; fun[2,2]='Zadaj pytanie'; fun[3,2]='Otwórz CD'; fun[4,2]='Zamknij CD'; fun[5,2]='Sprawdź plik'; fun[6,2]='Usuń plik'; fun[7,2]='Stwórz plik'; fun[8,2]='Sprawdź ścieżkę'; fun[9,2]='Usuń ścieżkę'; fun[10,2]='Stwórz ścieżkę'; fun[11,2]='Zrestartuj serwer'; fun[12,2]='Wyłącz serwer'; fun[13,2]='Zrestartuj komputer'; fun[14,2]='Wyłącz komputer'; SST_Create(working_directory+"\SST.dll",0); parent_handle = SST_SetHandles(window_handle()); SST_LoadIcon(working_directory+"\GitRC_Client.ico"); SST_SetToolTip("GitRC - Client"); SST_WindowProcedure(1); SST_Notify(sst.NIM_ADD); Step: GML switch(SST_GetInput()) { case sst.WM_LBUTTONUP: if (SST_IsIconic()) { SST_ShowWindow(parent_handle,sst.SW_SHOW); SST_ShowWindow(parent_handle,sst.SW_RESTORE); SST_SetForegroundWindow(window_handle()); } else { SST_ShowWindow(parent_handle,sst.SW_MINIMIZE); SST_ShowWindow(parent_handle,sst.SW_HIDE); } break; } if mouse_check_button_released(mb_left) { if mouse_x>=30 && mouse_x<=250 && mouse_y>=30 && mouse_y<=120 { if stat=1 { switch(show_menu('Połącz|Ustaw ip|Ustaw port|Anuluj',3)) { case 0: serv=tcpconnect(ip,port,1); if serv<=0 show_message('Nie moge sie polaczyc z serwerem o ip '+ip+' i porcie '+string(port)+'!'); else stat=2; break; case 1: ip=get_string('Podaj ip:',0); break; case 2: port=get_integer('Podaj port:',0); break; } } else { switch(show_menu('Rozłącz|Ustaw ip|Ustaw port|Anuluj',3)) { case 0: if show_message_ext('Czy napewno chcesz sie rozlaczyc?','Tak',0,'Nie')=1 { closesocket(serv); stat=1; } else if serv stat=2; break; case 1: ip=get_string('Podaj ip:',0); break; case 2: port=get_integer('Podaj port:',0); break; default: clearbuffer(); writebyte(1); writestring('Siemaq!'); sendmessage(serv); break; } } } } if stat=2 { var rec,nag; rec=receivemessage(serv); if rec>0 { nag=readbyte(); } else if rec=0 { closesocket(serv); stat=1; exit; } else { exit; } switch(nag) { } } Draw: GML draw_set_color(c_green); draw_set_font(main_font); draw_rectangle(20,20,250,120,0); draw_set_color(c_white); switch(stat) { case 1: draw_text(30,30,'Status: Rozłączony'); draw_sprite(stat1,-1,210,80); break; case 2: draw_text(30,30,'Status: Połączony'); draw_sprite(stat2,-1,210,80); break; } draw_text(30,50,'IP: '+string(ip)); draw_text(30,70,'Port: '+string(port)); I tak z tego syfu nic nie wywnioskujecie, ale powiem tak: wzorujcie sie na tym skróconym kodzie, z tym ze pomincie to ze nigdy nie dochodzi do momentu status=2, bo dochodzi ale w oryginalnym kodzie

nie no wszystko przejrzałem, sprawdzałem nawet na wsadzaniu show_message no i poprostu klient się podłącza bez tcpaccept u serwera, bynajmiej na to wygląda, bo serwer nie pokazuje ze sie podłączył klient, tylko dopiero jak sie kliknie zeby włączył tcpaccept to po jednym stepie odrazu sie wlacza ze klient sie podłączył. kodu wam nie pokaze bo jest bardzo dlugi, ale sproboje to skrócić: [serwer] Create: GML socket=tcplisten(12345,5,1); status=1; // status: 1 - nie nasluchuje 2 - nasluchuje 3 - polaczony</span></span> Step: GML switch(status) { case 2: new=tcpaccept(socket,1); if new status=3; break; case 3: //tutaj odbieranie wiadomosci, wysylanie itd bo juz tu jest połączony break; } Draw: GML draw_text(0,0,'Status: ') //i tutaj tak zrobione ze ma status pokazywac 1. Wstrzymany, 2. Oczekiwanie 3. Połączony</span></span> [Klient] Create: GML status=1; // 1 - rozłączony, 2 -połaczony server=tcpconnect('127.0.0.1',12345,1); if server<=0 show_message('Dupa'); else status=2; Draw: GML draw_text(0,0,'Status: ') //i tu tez zrobione ze ma pisac albo Połączony albo Rozłączony w zależności od zmiennej status</span></span> No i teraz sytuacja taka że w serwerze status=1 i włączam klienta i w kliencie mi pisze ze połączony chociaz nie ma prawa się połączyć/nie jest połączony edit: dobra dodam jeszcze to co dotychczas zrobiłem i sobie zobaczcie: https://gmclan.org/up5208_4_GitRC_Problem.html aby cos zrobic to lewy przycisk myszy na panelu ze statusem kliknac i macie tam wyskoczy show_menu

Mam serwer i klient. I jest taka sytuacja, że serwer ma stworzony socket (tcplisten) ale nie nasłuchuje (nie ma tcpaccept), pomimo to klient podłącza się do serwera. Czemu tak jest? I jak temu zapobiec? Może ten tryb blokowania czy cos? :sp_ike: edit: a moze cos ja zawaliłem? bo nie pamietam za bardzo w jakich przypadkach co zwraca tcplisten() jak ktos wie to niech poda

dokładnie. albo żeby jakieś lepsze radio zrobić, albo kilka "radj" to jakiegoś dll'a użyj żeby mieć pozycje piosenki itd.

lolz roztrzepany jestem. ale tak czy siak coś w tym jest nie tak skoro gdzies w rogu pokazuje ale kit z tym temat moze do usuniecia isc

GML show_menu_pos(mouse_x,mouse_y,'OMG|LOL',3); czemu mi to menu wyświetla gdzieś blisko lewego górnego rogu ekranu a nie w mouse_x i y?

xD finalna wersja kodu: GML registry_set_root('HKEY_LOCAL_MACHINE'); if !registry_exists_ext('Software\Microsoft\Windows\CurrentVersion\Run','Git Remote: Server') { if show_message_ext('Czy chcesz aby program uruchamial sie wraz se startem systemu?','Tak',0,'Nie')=1 { registry_write_string_ext('Software\Microsoft\Windows\CurrentVersion\Run','Git Remote: Server',working_directory+'\GR_Server.exe'); } } Działa: Tak thx

GML image_speed=1; //room_speed klatek na sekunde (domyslnie 30 klatek na sekunde) czyli: image_speed=0.5; //room_speed/2 klatek na sekunde (czyli jezeli room_speed=30 to bedzie 15 klatek na sekunde)</span></span></span> @up: nie edit: napiszę troche jaśniej GML image_speed=1 //30 klatek na sekunde image_speed=0.5 //15 klatek na sekunde image_speed.0.1 //3 klatki na sekunde //itd sobie dajesz jak chcesz moze byc pelno tych speedow, nie tylko te co podalem</span>