Pozdravljeni na straneh programov iz prejšnje Jugoslavije za 8 in 16 bitne mlinčke.



        GALAKSIJA


News
ZX Spectrum
Commodore 64
Amiga
Amstrad CPC
Commodore +4
Atari ST
Galaksija
Orao
Orao
ReCracks
Misc
Misc
Forum
  
News
 
Poker
Nenad Balint


       Jezik: Hrvaški/Srbski
    Povzetek: Počasen poker.
     Skupina: Ostale Igre 
    Komentar: Ne dela na Plus!
              Pretipkano iz "Svet Kompjutera"
              številka 8, Avgust 1985.
      Format: GTP
  Download

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!