' Vaatteiden pukemis peli by Naetti tyttoe / jML

DECLARE SUB credits ()

TYPE Vaate
  nimi AS STRING * 40
  lampoarvo AS INTEGER
  jarjestys AS INTEGER
  paikka AS INTEGER
  monikko AS INTEGER
END TYPE

' Lataa daatat
attribuutteja% = 16
DIM yksAttribuutit(attribuutteja%) AS STRING
DIM monAttribuutit(attribuutteja%) AS STRING
FOR i% = 0 TO attribuutteja% - 1
  READ yksAttribuutit(i%), monAttribuutit(i%)
NEXT i%

vaatteita% = 33
DIM vaatteet(vaatteita%) AS Vaate
FOR i% = 0 TO vaatteita% - 1
  READ nimi$, lampoarvo%, jarjestys%, paikka%, monikko%
  vaatteet(i%).nimi = nimi$
  vaatteet(i%).lampoarvo = lampoarvo%
  vaatteet(i%).jarjestys = jarjestys%
  vaatteet(i%).paikka = paikka%
  vaatteet(i%).monikko = monikko%
NEXT i%


DIM valikoima(3) AS Vaate
DIM puettu(5) AS Vaate
score% = 0

RANDOMIZE TIMER


' Hae vaatteet kaapista
FOR i% = 0 TO 2
  idx% = INT(RND * vaatteita%)
  valikoima(i%) = vaatteet(idx%)
  idx% = INT(RND * attribuutteja%)
  IF valikoima(i%).monikko = 1 THEN
    Attribuutti$ = monAttribuutit(idx%)
  ELSE
    Attribuutti$ = yksAttribuutit(idx%)
  END IF
  valikoima(i%).nimi = RTRIM$(valikoima(i%).nimi) + " (" + Attribuutti$ + ")"
NEXT i%

' Ulosta valikoima
DO
credits
COLOR 10
PRINT "Vaatekaapistasi on tippunut lattialle seuraavat vaatteet."
PRINT "Mink„ puet niist„ p„„llesi?"
PRINT

COLOR 14
FOR i% = 0 TO 2
  nimi$ = valikoima(i%).nimi
  valinta$ = STR$(i% + 1)
  PRINT valinta$ + ") " + nimi$
NEXT i%


' Lue valinta
valinta% = -1
DO
  key$ = INKEY$
  IF key$ <> "" THEN
    valinta% = ASC(key$) - 49
  END IF
  IF key$ = CHR$(27) THEN
    PRINT "Olet sitten jokin helvetin luovuttaja henkil”"
    END
  END IF
LOOP UNTIL (valinta% >= 0 AND valinta% < 3)

' Pue vaate
COLOR 10
PRINT
PRINT "Aaah, puet vaatekappaleen " + valikoima(valinta%).nimi

paikka% = valikoima(valittu%).paikka
jarjestys% = valikoima(valittu%).jarjestys
edellinenJarj% = puettu(paikka%).jarjestys

IF jarjestys% > edellinenJarj% THEN
  puettu(paikka%) = valikoima(valinta%)
  score% = score% + valikoima(valinta%).lampoarvo
  idx% = INT(RND * vaatteita%)
  valikoima(valinta%) = vaatteet(idx%)
  idx% = INT(RND * attribuutteja%)
  IF valikoima(valinta%).monikko = 1 THEN
    Attribuutti$ = monAttribuutit(valinta%)
  ELSE
    Attribuutti$ = yksAttribuutit(valinta%)
  END IF
  valikoima(valinta%).nimi = RTRIM$(valikoima(valinta%).nimi) + " (" + Attribuutti$ + ")"

  COLOR 15
  PRINT
  PRINT "Kaapista tippuu lattialle " + valikoima(valinta%).nimi
  PRINT
  PRINT "Painahan entteri„, niin jatketaan pukeutumista"
  INPUT foo$
ELSE
  edellinen$ = puettu(paikka%).nimi
  PRINT "Mik„ on paska idea, koska olet aiemmin pukenut vaatteen " + edellinen$
  PRINT
  COLOR 15
  PRINT "Puit vaatteita sen verran, ett„ tarkenet " + STR$(25 - score%) + "C l„mp”tilassa"
  END
END IF
LOOP UNTIL 2 + 2 = 5


' Dataaaaa

DATA "punainen", "punaiset"
DATA "musta", "mustat"
DATA "valkoinen", "valkoiset"
DATA "sininen", "siniset"
DATA "keltainen", "keltaiset"
DATA "vihre„", "vihre„t"
DATA "raidallinen", "raidalliset"
DATA "pilkullinen", "pilkulliset"
DATA "reik„inen", "reik„iset"
DATA "uusi", "uudet"
DATA "vanha", "vanhat"
DATA "oudon hajuinen", "oudon hajuiset"
DATA "tyylik„s", "tyylikk„„t"
DATA "ep„muodikas", "ep„muodikkaat"
DATA "erikoinen", "erikoiset"
DATA "k„ytt„m„t”n", "k„ytt„m„tt”m„t"

REM nimi, l„mp”arvo, j„rjestys, paikka (Jalat = 0, torso = 1, p„„ = 2, jalatjalat = 3, kaula = 4), monikollisuus
DATA "stringit", 1, 1, 0, 1
DATA "tangat", 2, 1, 0, 1
DATA "bokserit", 3, 1, 0, 1
DATA "pitk„t kalsarit", 5, 2, 0, 1
DATA "shortsit", 2, 4, 0, 1
DATA "farkut", 7, 4, 0, 1
DATA "puvunhousut", 3, 4, 0, 1
DATA "verkkarit", 3, 4, 0, 1
DATA "collegehousut", 5, 4, 0, 1
DATA "salibandyhousut", 1, 4, 0, 1
DATA "toppahousut", 10, 5, 0, 1
DATA "t-paita", 2, 1, 1, 0
DATA "wifebeater", 1, 1, 1, 0
DATA "pitk„hihainen aluspaita", 3, 1, 1, 0
DATA "huppari", 5, 2, 1, 0
DATA "villapaita", 10, 3, 1, 0
DATA "pikkutakki", 4, 4, 1, 0
DATA "tuulitakki", 4, 4, 1, 0
DATA "toppatakki", 10, 5, 1, 0
DATA "hiusponnari", 1, 1, 2, 0
DATA "pipo", 5, 2, 2, 0
DATA "lippalakki", 2, 2, 2, 0
DATA "karvalakki", 8, 3, 2, 0
DATA "kyp„r„", 2, 4, 2, 0
DATA "KKK-huppu", 2, 5, 2, 0
DATA "puvunsukat", 1, 1, 3, 1
DATA "tennissukat", 1, 1, 3, 1
DATA "villasukat", 2, 2, 3, 1
DATA "keng„t", 3, 3, 3, 1
DATA "sandaalit", 1, 3, 3, 1
DATA "kalossit", 1, 4, 3, 1
DATA "kaulakoru", 1, 1, 4, 0
DATA "kaulahuivi", 3, 2, 4, 0

SUB credits
CLS
COLOR 15
PRINT "VAATTEIDEN PUKEMIS PELI"
COLOR 13
PRINT "by Naetti Tyttoe / jML"
PRINT
END SUB