Opisi:
Svet Kompjutera, #8, Avgust 1985, LList Galaksija, Nenad Balint
Ovaj program simulira popularnu igru kartama poker između računara galaksija,
i jednog igraća. Igra se sa špilom od 32 karte. Na početku igre i računar i
igrač imaju po $10000. Ulog po partiji je ograničen na $1000 pri čemu je
početni ulog $10. U svakom ciklusu licitiranja ulog se ne može povećati za
više od $50. Važe uobičajena pravila pokera za procenu jačine karata (par, dva
para, kenta, triling, ful, poker, boja). Na početku Igre je potrebno da se
igrač predstavi računaru, a zatim računar deli karte. Pošto računar
prikaže karte koje je podelio igraču, igrač može promeniti onu kartu koju
želi kucajući njen broj 11-5). Kada igrač promeni karte koje je želeo (a može
da promeni maksimalno 4 karte), kuca 0. Posle toga računar deli sebi karte I
menja one koje želi. Zatim počinje licitiranje. Igrač licitira koliko želi
da uloži ($1-$50). Računar može da prihvati ulog (tada prikazuje svoje
karte), da poveća ulog (tada igrač može da prati trenutno stanje uloga u
gornjem desnom uglu ekrana) ili da ne prihvati ulog (tada računar
registruje da je igrač pobedio i ne prikazuje svoje karte). Igrač može u
bilo kom trenutku da odustane od licitiranja i otkuca 0 (tada gubi ulog i
računar registruje da je on pobedio). Ako igrač želi da prihvati računarov
ulog i ne želi da licitira dalje, on ulaže onoliko koliko je računar
poslednji put podigao ulog. Posle toga računar prikazuje svoje karte u
gornjem desnom uglu, registruje pobednika i prikazuje koliko ko ima deviza
posle te partije. Na pitanje "Da li igrate još jednu partiju?" igrač može
da odgovori sa "D" ili "N". Ako odgovori sa "D" posle izvesnog vremena
računar će prikazati koje je karte podelio igraču i igra počinje od
početka. Igra se završava ukoliko neko (računar ili igrač) ostane švorc ili ako
igrač odustane od dalje igre.
Uputstvo za kucanje programa:
Zbog dužine programa potrebno je da se naredbe kucaju u skraćenom obliku kako
su date u listingu programa. Korisniku je ostavljeno prvih 350 linija ako želi
da doda neka uputstva neophodna za njegovo razumevanje igre. Ako se korisnik
odluči za to, a nema proširenje memorije preporučujemo mu izuzetan oprez, jer
mu za proširivanje programa ostaje svega 219 bajtova (651 slobodan bajt minus
304 bajta za numerički niz i minus 128 bajtova za alfanumerički niz daje 219
bajtova).
Za vlasnike galaksije koji nemaju ROM-2 potrebno je da modifikuju liniju 704
tako što će izbaciti poziv funkcije LN. Izmenjena naredba bi trebala ovako da
izgleda:
U=U+I.(R*129)
Zbog prirode igre, igračima želimo puno strpljenja i još više sreće!
|
