Pereiti prie turinio

Pascal sviesaforo darymas


Rekomenduojami pranešimai

Sveiki, turiu padares sviesaforo vaizda.. Dabar man beliko ivedus tam tikra raide (pvz: r,zg) ijungti tam tikra spalva. Jei norit paziuret kaip atrodo lempa ijungus ir kartu kaip funkciuonuoti galit paziuret cia

http://www.part.lt/img/a240c7045edf927c6f56472dec635125981.bmp

 

Bukit zmones padekit http://www.manualai.lt/forumas/Smileys/default/smiley.gif

 

program sviesaforas;
uses crt;
var a, b, c, x, y, z, t: integer;
begin

{------fonas-----}

clrscr;

textbackground (1);

window(6,2,79,76);

clrscr;


clrscr;

textbackground(yellow);
window(30,5,78,14);

clrscr;

textcolor(white);
gotoxy(3,4);
writeln('Kokia sviesaforo spalva turi uzsidegti  ');

gotoxy(3,5);
writeln('jei raudona paspausite raide r, ');


gotoxy(3,6);

writeln('jei geltona g');

gotoxy(3,7);

writeln('jei zalia - z');


gotoxy(3,8);
write('jei norite iseiti is programos paspauskite i');


window(6,5,6,5);
clrscr;

textbackground (lightgray);

window(10,3,25,31);

clrscr;

{------------viduje----------------}

{zali}

textcolor(green);
writeln ('***************');
gotoxy(1,2);


  for x:=5 to 56 do
   begin

       gotoxy(7+15,60);
        x:=x+1;
        delay (10);
        Writeln ('[' , ']':14);

  end;

   textcolor(green);
   writeln ('***************');
   gotoxy(3,10);

    {-----}


   {--------------zibintai------------}


  {virsus}
    gotoxy(7,3);
   textcolor(green);
   writeln ('***');


             {viduris}
for z:=4 to 7 do
   begin

        z:=z;

        gotoxy(6,z);

        delay (10);

        Writeln ('*' , '*':4);

  end;

              {apacia}
    gotoxy(7,8);
   textcolor(green);
   writeln ('***');


   {--------------antras---------------}


  {virsus}
   gotoxy(7,12);
   textcolor(green);
   writeln ('***');


   {viduris}

for z:=13 to 16 do
   begin

        z:=z;

        gotoxy(6,z);

        delay (10);

        Writeln ('*' , '*':4);

  end;

      { apacia }
   gotoxy(7,17);
   textcolor(green);
   writeln ('***');


   {---------trecia---------}


           {virsus}
   gotoxy(7,21);
   textcolor(green);
   writeln ('***');


   {viduris  }

for z:=22 to 25 do
   begin

        z:=z;

        gotoxy(6,z);

        delay (10);

        Writeln ('*' , '*':4);

  end;

    { apacia }
   gotoxy(7,26);
   textcolor(green);
   writeln ('***');



  {----------kotas--------}

   textbackground(black);
   window(15,32,69,66);
   for y:=10 to 46 do

   begin

        y:=y+1;

        delay (10);

        Writeln ('[' , ']':5);


  end;



   readln;
   readln

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Ant galo darai loop'ą, kuris gaudo input'ą. Gavus inputą, per naują perpaišai spalvas... tam patariu pasidaryti funkciją kokią nors...

 

O gal galetum pvz truputi ? as suprantu kad cia su If bet kaip padaryt kad butent tas plotas, uzsidegtu ivedus raide pvz "r" ir enter ir uzsidega ir taip su kitom spalvo, kaip man tuos zibintus uzstatyt kad jie turetu tam tikra kintamaji ? ;/

Redagavo marvelfreak
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Įvedus raidę sužadinama funkcija:

 

GotoXY(x,y);

TextColor(spalva);

Writeln(Char(kazkoks));

 

ir x, y vis keičias cikle, kad galėtum "apvažiuot" visą "lemputę".

 

 

A tai tarkim ...

 

if x = r then GotoXY(x,y);

TextColor(spalva);

textbackground(2);

Writeln(Char('r'));

 

sitaip ?

 

kuria prasme keicias ?

 

ai ta prasme kintamieji vis kitokie lempa ar kaip ? ar reikia det for cikla ? ar repeat until ? Ka prasyti toj vietoj "(Char(' ')"

Redagavo marvelfreak
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Nu va nudažiau aš tau greitai papraščiausiu būdu. Pasidarai funkcijas, kad gaudytų kokį mygtuka nuspaudei, ir panaudoji visus tai spalvai skirtus sakinius.

 

program sviesaforas;
uses crt;
var a, b, c, x, y, z, t: integer;
begin

{------fonas-----}

clrscr;

textbackground (1);

window(6,2,79,76);

clrscr;


clrscr;

textbackground(yellow);
window(30,5,78,14);

clrscr;

textcolor(white);
gotoxy(3,4);
writeln('Kokia sviesaforo spalva turi uzsidegti  ');

gotoxy(3,5);
writeln('jei raudona paspausite raide r, ');


gotoxy(3,6);

writeln('jei geltona g');

gotoxy(3,7);

writeln('jei zalia - z');


gotoxy(3,8);
write('jei norite iseiti is programos paspauskite i');


window(6,5,6,5);
clrscr;

textbackground (lightgray);

window(10,3,25,31);

clrscr;

{------------viduje----------------}
{zali}

textcolor(green);
writeln ('***************');
gotoxy(1,2);


  for x:=5 to 56 do
   begin

       gotoxy(7+15,60);
        x:=x+1;
        delay (10);
        Writeln ('[' , ']':14);

  end;

   textcolor(green);
   writeln ('***************');
   gotoxy(3,10);

    {-----}


   {--------------zibintai------------}


  {virsus}
    gotoxy(7,3);
   textcolor(green);
   writeln ('***');


             {viduris}
for z:=4 to 7 do
   begin

        z:=z;

        gotoxy(6,z);

        delay (10);

        Writeln ('*' , '*':4);

  end;

              {apacia}
    gotoxy(7,8);
   textcolor(green);
   writeln ('***');


   {--------------antras---------------}


  {virsus}
   gotoxy(7,12);
   textcolor(green);
   writeln ('***');


   {viduris}

for z:=13 to 16 do
   begin

        z:=z;

        gotoxy(6,z);

        delay (10);

        Writeln ('*' , '*':4);

  end;

      { apacia }
   gotoxy(7,17);
   textcolor(green);
   writeln ('***');


   {---------trecia---------}


           {virsus}
   gotoxy(7,21);
   textcolor(green);
   writeln ('***');


   {viduris  }

for z:=22 to 25 do
   begin

        z:=z;

        gotoxy(6,z);

        delay (10);

        Writeln ('*' , '*':4);

  end;

  { ------- raudona -----------}

  Gotoxy(7,4);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,5);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,6);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,7);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));

  { ------- geltona -----------}

  Gotoxy(7,13);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,14);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,15);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,16);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));

  { ------- zalia -----------}

  Gotoxy(7,22);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,23);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,24);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,25);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));

    { apacia }
   gotoxy(7,26);
   textcolor(green);
   writeln ('***');



  {----------kotas--------}

   textbackground(black);
   window(15,32,69,66);
   for y:=10 to 46 do

   begin

        y:=y+1;

        delay (10);

        Writeln ('[' , ']':5);


  end;
   readln;
   readln

end.

Redagavo I-Tech
Nuoroda į pranešimą
Dalintis kituose puslapiuose

Nu va nudažiau aš tau greitai papraščiausiu būdu. Pasidarai funkcijas, kad gaudytų kokį mygtuka nuspaudei, ir panaudoji visus tai spalvai skirtus sakinius.

 

program sviesaforas;
uses crt;
var a, b, c, x, y, z, t: integer;
begin

{------fonas-----}

clrscr;

textbackground (1);

window(6,2,79,76);

clrscr;


clrscr;

textbackground(yellow);
window(30,5,78,14);

clrscr;

textcolor(white);
gotoxy(3,4);
writeln('Kokia sviesaforo spalva turi uzsidegti  ');

gotoxy(3,5);
writeln('jei raudona paspausite raide r, ');


gotoxy(3,6);

writeln('jei geltona g');

gotoxy(3,7);

writeln('jei zalia - z');


gotoxy(3,8);
write('jei norite iseiti is programos paspauskite i');


window(6,5,6,5);
clrscr;

textbackground (lightgray);

window(10,3,25,31);

clrscr;

{------------viduje----------------}
{zali}

textcolor(green);
writeln ('***************');
gotoxy(1,2);


  for x:=5 to 56 do
   begin

       gotoxy(7+15,60);
		x:=x+1;
		delay (10);
		Writeln ('[' , ']':14);

  end;

   textcolor(green);
   writeln ('***************');
   gotoxy(3,10);

	{-----}


   {--------------zibintai------------}


  {virsus}
	gotoxy(7,3);
   textcolor(green);
   writeln ('***');


             {viduris}
for z:=4 to 7 do
   begin

		z:=z;

		gotoxy(6,z);

		delay (10);

		Writeln ('*' , '*':4);

  end;

      		{apacia}
	gotoxy(7,8);
   textcolor(green);
   writeln ('***');


   {--------------antras---------------}


  {virsus}
   gotoxy(7,12);
   textcolor(green);
   writeln ('***');


   {viduris}

for z:=13 to 16 do
   begin

		z:=z;

		gotoxy(6,z);

		delay (10);

		Writeln ('*' , '*':4);

  end;

  	{ apacia }
   gotoxy(7,17);
   textcolor(green);
   writeln ('***');


   {---------trecia---------}


           {virsus}
   gotoxy(7,21);
   textcolor(green);
   writeln ('***');


   {viduris  }

for z:=22 to 25 do
   begin

		z:=z;

		gotoxy(6,z);

		delay (10);

		Writeln ('*' , '*':4);

  end;

  { ------- raudona -----------}

  Gotoxy(7,4);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,5);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,6);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,7);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));

  { ------- geltona -----------}

  Gotoxy(7,13);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,14);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,15);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,16);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));

  { ------- zalia -----------}

  Gotoxy(7,22);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,23);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,24);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,25);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));

	{ apacia }
   gotoxy(7,26);
   textcolor(green);
   writeln ('***');



  {----------kotas--------}

   textbackground(black);
   window(15,32,69,66);
   for y:=10 to 46 do

   begin

		y:=y+1;

		delay (10);

		Writeln ('[' , ']':5);


  end;
   readln;
   readln

end.

 

tai galiu readln() naudot dabar ?

 

program sviesaforas;
uses crt;
var a, b, c, x, y, z, t: integer;
begin

{------fonas-----}

clrscr;

textbackground (1);

window(6,2,79,76);

clrscr;


clrscr;

textbackground(yellow);
window(30,5,78,14);

clrscr;

textcolor(white);
gotoxy(3,4);
writeln('Kokia sviesaforo spalva turi uzsidegti  ');

gotoxy(3,5);
writeln('jei raudona paspausite raide r, ');


gotoxy(3,6);

writeln('jei geltona g');

gotoxy(3,7);

writeln('jei zalia - z');


gotoxy(3,8);
write('jei norite iseiti is programos paspauskite i');


window(6,5,6,5);
clrscr;

textbackground (lightgray);

window(10,3,25,31);

clrscr;

{------------viduje----------------}

{zali}

textcolor(green);
writeln ('***************');
gotoxy(1,2);


  for x:=5 to 56 do
begin

   	gotoxy(7+15,60);
    	x:=x+1;
    	delay (10);
    	Writeln ('[' , ']':14);

  end;

textcolor(green);
writeln ('***************');
gotoxy(3,10);

	{-----}


{--------------zibintai------------}


  {virsus}
{textbackground();  }
	gotoxy(7,3);
textcolor(green);
writeln ('***');


         	{viduris}
for z:=4 to 7 do
begin

    	z:=z;

    	gotoxy(6,z);

    	delay (10);

    	Writeln ('*' , '*':4);

  end;

          	{apacia}
	gotoxy(7,8);
textcolor(green);
writeln ('***');


{--------------antras---------------}


  {virsus}
gotoxy(7,12);
textcolor(green);
writeln ('***');


{viduris}

for z:=13 to 16 do
begin

    	z:=z;

    	gotoxy(6,z);

    	delay (10);

    	Writeln ('*' , '*':4);

  end;

  	{ apacia }
gotoxy(7,17);
textcolor(green);
writeln ('***');


{---------trecia---------}


       	{virsus}
gotoxy(7,21);
textcolor(green);
writeln ('***');


{viduris  }

for z:=22 to 25 do
begin

    	z:=z;

    	gotoxy(6,z);

    	delay (10);

    	Writeln ('*' , '*':4);

  end;

	{ apacia }
gotoxy(7,26);
textcolor(green);
writeln ('***');



  {----------kotas--------}

textbackground(black);
window(15,32,69,66);
for y:=10 to 46 do

begin

    	y:=y+1;

    	delay (10);

    	Writeln ('[' , ']':5);


  end;

 [b]  	{
 if x = 'r' then GotoXY(x,y);
TextColor(red);
textbackground(2);
Writeln(Char('r')); }[/b]

window(33,18,42,26);
gotoxy(26,5);

textbackground(yellow);
textcolor(white);

writeln ('Ivesti: ');
readln(x);


readln;
readln

end.

 

Dabar ka as su ta paryskinta vieta galiu nuveikt ? ar butinai deti tuos char ? zmogau jei padetumtikrai likciau skolingas

Redagavo marvelfreak
Nuoroda į pranešimą
Dalintis kituose puslapiuose

...

 

Iš kodines pusės susitvarkysi, nelabai gal gražiai ten padariau. Nes skubėjau, o padėti norisi :)

 

Iš vizualines pusės, viskas veikia.

 

program sviesaforas;
uses crt;
procedure spalva (ch : char);
var z : integer;
begin
textbackground (lightgray);
if ch = 'r' then
begin
  { ------- raudona -----------}
  window(10,3,25,31);
     {--------------zibintai------------}


  {virsus}
       gotoxy(7,3);
   textcolor(green);
   writeln ('***');


             {viduris}
for z:=4 to 7 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

               {apacia}
       gotoxy(7,8);
   textcolor(green);
   writeln ('***');


   {--------------antras---------------}


  {virsus}
   gotoxy(7,12);
   textcolor(green);
   writeln ('***');


   {viduris}

for z:=13 to 16 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

       { apacia }
   gotoxy(7,17);
   textcolor(green);
   writeln ('***');


   {---------trecia---------}


           {virsus}
   gotoxy(7,21);
   textcolor(green);
   writeln ('***');


   {viduris  }

for z:=22 to 25 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;



       { apacia }
   gotoxy(7,26);
   textcolor(green);
   writeln ('***');


  Gotoxy(7,4);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,5);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,6);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,7);
  TextColor(lightred);
  Writeln(char(219),char(219),char(219));
end
else if ch = 'g' then
begin

  { ------- geltona -----------}
  window(10,3,25,31);
     {--------------zibintai------------}


  {virsus}
       gotoxy(7,3);
   textcolor(green);
   writeln ('***');


             {viduris}
for z:=4 to 7 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

               {apacia}
       gotoxy(7,8);
   textcolor(green);
   writeln ('***');


   {--------------antras---------------}


  {virsus}
   gotoxy(7,12);
   textcolor(green);
   writeln ('***');


   {viduris}

for z:=13 to 16 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

       { apacia }
   gotoxy(7,17);
   textcolor(green);
   writeln ('***');


   {---------trecia---------}


           {virsus}
   gotoxy(7,21);
   textcolor(green);
   writeln ('***');


   {viduris  }

for z:=22 to 25 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;



       { apacia }
   gotoxy(7,26);
   textcolor(green);
   writeln ('***');


  Gotoxy(7,13);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,14);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,15);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,16);
  TextColor(yellow);
  Writeln(char(219),char(219),char(219));
end else if ch = 'z' then
begin

  { ------- zalia -----------}
  window(10,3,25,31);
     {--------------zibintai------------}


  {virsus}
       gotoxy(7,3);
   textcolor(green);
   writeln ('***');


             {viduris}
for z:=4 to 7 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

               {apacia}
       gotoxy(7,8);
   textcolor(green);
   writeln ('***');


   {--------------antras---------------}


  {virsus}
   gotoxy(7,12);
   textcolor(green);
   writeln ('***');


   {viduris}

for z:=13 to 16 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

       { apacia }
   gotoxy(7,17);
   textcolor(green);
   writeln ('***');


   {---------trecia---------}


           {virsus}
   gotoxy(7,21);
   textcolor(green);
   writeln ('***');


   {viduris  }

for z:=22 to 25 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;



       { apacia }
   gotoxy(7,26);
   textcolor(green);
   writeln ('***');


  Gotoxy(7,22);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,23);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,24);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
  Gotoxy(7,25);
  TextColor(lightgreen);
  Writeln(char(219),char(219),char(219));
end else if ch = 'i' then ;

end;
var a, b, c, x, y, z, t: integer;
   ch : char;
begin

{------fonas-----}

clrscr;

textbackground (1);

window(6,2,79,76);

clrscr;


clrscr;

textbackground(yellow);
window(30,5,78,14);

clrscr;

textcolor(white);
gotoxy(3,4);
writeln('Kokia sviesaforo spalva turi uzsidegti  ');

gotoxy(3,5);
writeln('jei raudona paspausite raide r, ');


gotoxy(3,6);

writeln('jei geltona g');

gotoxy(3,7);

writeln('jei zalia - z');


gotoxy(3,8);
write('jei norite iseiti is programos paspauskite i');


window(6,5,6,5);
clrscr;

textbackground (lightgray);

window(10,3,25,31);

clrscr;

{------------viduje----------------}
{zali}

textcolor(green);
writeln ('***************');
gotoxy(1,2);


  for x:=5 to 56 do
   begin

       gotoxy(7+15,60);
               x:=x+1;
               delay (10);
               Writeln ('[' , ']':14);

  end;

   textcolor(green);
   writeln ('***************');
   gotoxy(3,10);

       {-----}


   {--------------zibintai------------}


  {virsus}
       gotoxy(7,3);
   textcolor(green);
   writeln ('***');


             {viduris}
for z:=4 to 7 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

               {apacia}
       gotoxy(7,8);
   textcolor(green);
   writeln ('***');


   {--------------antras---------------}


  {virsus}
   gotoxy(7,12);
   textcolor(green);
   writeln ('***');


   {viduris}

for z:=13 to 16 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;

       { apacia }
   gotoxy(7,17);
   textcolor(green);
   writeln ('***');


   {---------trecia---------}


           {virsus}
   gotoxy(7,21);
   textcolor(green);
   writeln ('***');


   {viduris  }

for z:=22 to 25 do
   begin

               z:=z;

               gotoxy(6,z);

               delay (10);

               Writeln ('*' , '*':4);

  end;



       { apacia }
   gotoxy(7,26);
   textcolor(green);
   writeln ('***');



  {----------kotas--------}

   textbackground(black);
   window(15,32,69,66);
   for y:=10 to 46 do

   begin

               y:=y+1;

               delay (10);

               Writeln ('[' , ']':5);


  end;
   While ch <> 'i' do
   begin
   ch := ReadKey;
   Spalva(ch);
   end;

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...