Moje Delphi 3D igre (sa sourceovima... uglavnom)

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ja sam za DX .
Nije bitno koliko ce polja biti. Smisao igre iks oks je da zaredjas cetiri dijagonalno, ustpravno i vodoravno i tako pobedis.
Sa vise igraca ce sigurno biti uzbudljivije.
Ja sam samo predlozio sta da radimo. Vi predlozite nesto drugo. Meni je svejedno.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Fino je ovo Srki, ali smo mogli prvo da se malo dogovorimo oko rada na ovome, a ne da samo tako krenemo... Ajde, nema veze sada, pokusacu ja da ubacim koji "sound effect", a ti samo probaj da malo komentarises kod, mnogo znaci kada se radi timski ...

BTW sta ti je MainForm.ScreenSnap, izbacuje mi da taj property nema? Jel' to property iz Delphi-ja 7, posto ja imam D6 posto mi je relativno slab komp, pa bi mi se D7 vukao ?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Iz iskustva znam da ako se samo dogovaramo, na dogovoru ce se i zavrsiti... veruj mi
Napravicu uskoro i startup screen gde ces moci da biras broj igraca (2, 3 ili 4) i kada klikces da se na osnovu broja igraca odredjuje boja kapljice pa cu usput i napisati neke komantare u kodu... ali kod je uzasno kratak i neverovatno jednostavan... ako neko ovo ne razume onda ne znam kako ce razumeti nesto komplikovanije

BTW: ScreenSnap je property iz Delphi 7... samo ignorisi to... igra ne zahteva da taj property postoji.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Znam da za sada i ne treba nesto previse komentara, ali ce kasnije i te kako trebato kada se kod malo iskomplikuje. Nije problem da nam to predje u rutinu, jer je u svakom slucaju korisna navika, a za sada naravno da ne treba komentarisati svaku liniju koda vec samo recimo delove koda tipa "Odradjuje se to i to" i sl...

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Uloguj se preko Facebooka da bi skinuo fajl:

Pa... ovo je neka [url=https://www.mycity.rs/must-login.png verzija (source)[/url] ove igre... vec moze da se igra. Podrzava od 2 do 4 igraca. Kod je malo komentarisan, ali je i dalje prilicno jasan. Jos uvek nema zvuka.

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

OK, sad cu ja da pocnam da ubacujem zvuk!

Dopuna: 17 Jul 2005 20:46

Huh, evo hocu da uploadujem ali mi nije jasno zasto mi MainUnit.dfm ima 3.5mb ...

Meni nije problem upload ( wireless ), ali ne znam kako ce vama ici download .

Dopuna: 17 Jul 2005 21:10

Uh, nasao sam uzrok ( kad ne razmisljam na vreme o cemu se radi ), tako da je sada cela arhiva sveka 1.35mb. To je podnosljivo... Ide upload, pa ostavljam link.

Dopuna: 17 Jul 2005 21:37

Oki, evo ga: http://i.domaindlx.com/Kopanja2/kapljice.rarred

Trebate extenziju rarred promeniti u rar .

Dodao sam za sada samo pozadinsku muziku jer sam imao neke goste, pa nisam jos stigao da ubacim sound effects za kliktanje. Za zavrsnu verziju bi trebalo dodati jos koji sound track za pozadinsku muziku jer bi ovo bilo jako dosadno da vrti stalno jedno te isto. Dalje, promenio sam boje kuglicama, tj. prilagodio sam ih i daltonistima jer Srki ono se nije videlo bas najbolje ( veruj mi, znam, ja sam takodje daltonista ) i na kraju samo dodao u meniju exit opciju, a igrica je sada full screen .

Ajde snoop, napravismo ti igricu, gde si nestao ? Ako nista daj bar neki konstruktivan predlog, a ako nemas Delphi reci pa cu ti poslati kompajliran exe!

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Odlicno... videcu da dodam da na ESC moze da se prekine igra i vrati se na pocetni meni... trebalo bi da bude u par redova gotovo.

@Strog
  function CheckPos(dX, dY: Integer): Integer;   var     I: Integer;     cX, cY: Integer;   begin     Result := 0;     for I := 1 to 3 do     begin       cX := X + I * dX;       cY := Y + I * dY;       if (cX >= 0) and (cX <= 6) and          (cY >= 0) and (cY <= 6) and          (PlayField[cX + cY * 7].Tag = P) then         Inc(Result)       else         //Exit;     end;   end;   function CheckDraw: Boolean;   var     I: Integer;   begin     Result := True;     for I := 0 to PlayField.Count - 1 do       if PlayField[I].Tag = 0 then       begin         Result := False;         //Exit;       end;   end;
Zasto si izbacio Exit u ovim funkcijama!?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Pravio mi je probleme, tj. prijavljivao mi je neku gresku kod njih, a i bez njih radi kako treba, tako da nije neki problem .

Dopuna: 17 Jul 2005 22:29

Da, vidis dobra je i to fora za ESC, meni nije palo na pamet . Ajde kad to odradis javi, pa cu ja preci na "klik" zvukove, tako da imamo jednu radnu verziju, a ne da jurimo jedan drugome izmene, svaki na svojoj verziji .

BTW Kaci source ponovo bez onih MP3-ca posto ih sada imamo obojica, cisto da ne prebacujemo megabajte bez veze .

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Problem je sto si izbacio Exit. Ustvari kod CheckDraw nema veze... Exit tu sluzi da ako recimo proveri prvo polje i ono je prazno (znaci moze jos da se igra) ne proverava dalje. Tu ce nedostatak Exit komande neprimetno da uspori program prilikom svakog klika na kapljicu, ali kod CheckPos Exit je OBAVEZAN. Kad nesto iskljucis moras da pogledas cemu je to sluzilo. Probaj sad kad si iskljucio Exit da ovako klikces na kapljice

0000000 -> prazan red

prvi klik
0001000 -> jedna kapljica

drugi klik (sa istim igracem)
0001100 -> dve kapljice

treci klik (sa istim igracem)
1001100 -> tri kapljice

cetvrti klik (sa istim igracem)
1011100 -> cetiri kapljice (nisu postavljene kako treba za pobedu)

Ovako uradis i program kaze Poedio je prvi igrac
To ne valja... Exit bi trebao da bude u obe funkcije (vracam ih u kod).

Za sad cu napraviti da na ESC jednostavno izadje iz igre i vrati se u meni... posle cu dodati Da li si siguran da hoces da prekines igru?

BTW: Koju gresku ti izbacuje zbog Exit?