Lazarus hra pomoc

w00dy

Hra 3: Malá Ruleta

Popis hry: V grafickej ploche má hráč napísaných 15 čísel v dvoch rôznych farbách (najlepšie červená a čierna, nie je podmienkou).Úlohou hráča je staviť si číslo, farbu a vložiť vklad. V prípade, že program náhodne vygeneruje rovnaké číslo, hráč vyhrá desaťnásobok vkladu. Ak trafí len farbu, vyhrá dvojnásobok vkladu. Hra končí ak už hráč nemá peniaze, alebo po desiatich pokusoch. V grafickej ploche sa vypíše výsledok hry (napr. prehral si všetko, vyhral si 200 € atď. ).

Mohol by mi dakto s týmto pomôcť ? Nerobím dosť často v Lazaruse je to len doplnkový predmet ktorý je menej podstatný a už sa s ním trápim trocha dlhšie

ďakujem Vám, nesúri ma nejak riešenie ale čím skôr tým lepšie

http://www.hojko.com/citajte-pred-zaloz ... 23064.html
pomôcť samozrejme môžme, ale pomôcť nie je to isté ako spraviť. Daj čo máš, a pomôžeme ti kde robíš chybu alebo pomôžeme s tým s čím si nevieš rady.

w00dy

fú veď toto už sa s tým trápim odkedy som to napísal a nejak to neviem vôbec vyriešiť preto som chcel napísať sem pre celý program

EDIT: : Popravde mám toto hotové a musím sa toho drzať... plus mám spravený prikaz pre button "Hra" a ten je :

Kód: Vybrať všetko

var vylosovane:integer;
procedure TForm1.Button3Click(Sender: TObject);
begin
image1.Canvas.Brush.color:= clwhite;
image1.canvas.fillrect(image1.clientrect);
  vylosovane := random(15)+1;
  if vylosovane = 1 then begin image1.canvas.textout(10,350,'1');
                               image1.canvas.textout(10,370,'čierna');
                         end;
  if vylosovane = 2 then begin image1.canvas.textout(10,350,'2');
                               image1.canvas.textout(10,370,'červená');
                         end;
  if vylosovane = 3 then begin image1.canvas.textout(10,350,'3');
                               image1.canvas.textout(10,370,'čierna');
                         end;
  if vylosovane = 4 then begin image1.canvas.textout(10,350,'4');
                               image1.canvas.textout(10,370,'červená');
                         end;
  if vylosovane = 5 then begin image1.canvas.textout(10,350,'5');
                               image1.canvas.textout(10,370,'čierná');
                         end;
  if vylosovane = 6 then begin image1.canvas.textout(10,350,'6');
                               image1.canvas.textout(10,370,'červená');
                         end;
  if vylosovane = 7 then begin image1.canvas.textout(10,350,'7');
                               image1.canvas.textout(10,370,'čierna');
                         end;
  if vylosovane = 8 then begin image1.canvas.textout(10,350,'8');
                               image1.canvas.textout(10,370,'červená');
                         end;
  if vylosovane = 9 then begin image1.canvas.textout(10,350,'9');
                               image1.canvas.textout(10,370,'čierna');
                         end;
  if vylosovane = 10 then begin image1.canvas.textout(10,350,'10');
                                image1.canvas.textout(10,370,'červená');
                          end;
  if vylosovane = 11 then begin image1.canvas.textout(10,350,'11');
                                image1.canvas.textout(10,370,'čierna');
                          end;
  if vylosovane = 12 then begin image1.canvas.textout(10,350,'12');
                                image1.canvas.textout(10,370,'červená');
                          end;
  if vylosovane = 13 then begin image1.canvas.textout(10,350,'13');
                                image1.canvas.textout(10,370,'čierna');

                          end;
  if vylosovane = 14 then begin image1.canvas.textout(10,350,'14');
                                image1.canvas.textout(10,370,'červená');

                          end;
  if vylosovane = 15 then begin image1.canvas.textout(10,350,'15');
                                image1.canvas.textout(10,370,'čierna');
                          end;

 end;

ešte to musím načítať na farby, na číslo a na vklad ale nejak mi to furt nejde

Fabo

No tak najprv napis co konkretne teraz potrebujes. Lepsie sa pomaha po ciastkach, cely program za teba nikto nenapise...

Co vidim ze musis urobit:
- inicializovat a spravovat stav uctu hraca.
- Drzat niekde pocet hier - po dosiahnuti poctu 10 ukoncit hru.
- nabindovat vhodne eventy na buttony resp. ak to nerobis cez eventy, vyvolat spravnym sposobom spravnu funkciu.
- testovat na vyhru. Po stavke na cislo porovnat cislo, stavku na farbu mozes robit cez modulo.

kriste pane. S tými ifmi si snáď robíš srandu, keď v každom je takmer to isté

Kód: Vybrať všetko

var vylosovane:integer;
procedure TForm1.Button3Click(Sender: TObject);
begin
image1.Canvas.Brush.color:= clwhite;
image1.canvas.fillrect(image1.clientrect);
  vylosovane := random(15)+1;
  image1.canvas.textout(10,350,vylosovane);
  if(vylosovane mod 2 == 0) image1.canvas.textout(10,370,'cervena');
        else image1.canvas.textout(10,370,'cierna');
end;

w00dy

Fabo napísal:No tak najprv napis co konkretne teraz potrebujes. Lepsie sa pomaha po ciastkach, cely program za teba nikto nenapise...

Co vidim ze musis urobit:
- inicializovat a spravovat stav uctu hraca.
- Drzat niekde pocet hier - po dosiahnuti poctu 10 ukoncit hru.
- nabindovat vhodne eventy na buttony resp. ak to nerobis cez eventy, vyvolat spravnym sposobom spravnu funkciu.
- testovat na vyhru. Po stavke na cislo porovnat cislo, stavku na farbu mozes robit cez modulo.

ešte to musím načítať na farby, na číslo a na vklad ale nejak mi to furt nejde.

Lazarus hra pomoc

Lazarus hra pomoc

Re: Lazarus hra pomoc

Re: Lazarus hra pomoc

Re: Lazarus hra pomoc

Re: Lazarus hra pomoc

Re: Lazarus hra pomoc