Kartuvės

Iš wiki.angis.net.
Jump to navigation Jump to search

Kartuvės

kartuvių žaidimo vaizdas

Ši programa demonstruoja, kaip susikurti klasikinį kartuvių stiliaus žaidimą - sugalvojamas žodis ir jeigu raidė atspėta, ją programa įrašo, jeigu raidės sugalvotame žodyje nėra, tai kartuvėse atsiranda papildoma žmogeliuko kūno dalis. Kol atspėjamas sugalvotas žodis suklysti daugiausiai galima 5 kartus - suklydus daugiau kartų žaidimas praloštas.

Šioje programėlėje panaudoti keli skirtingi vaizdo failai, kurie atsiranda priklausomai nuo atlikto veiksmo.

Žaisti Kartuves

Žaidimui reikalingi failai

Visus garsus ir vaizdus panaudotus šiame žaidime galima atsisiųsti čia.

Kartuvių kodas

reikalinga angis
reikalingas žaidimas
reikalinga random

žaidimasBaigtas = 'ne'

atspėjimai = []

bandymai = 0

kartuviųPaveikslėliai =[
    'kartuvės/kartuvės/kartuvės0.png',
    'kartuvės/kartuvės/kartuvės1.png',
    'kartuvės/kartuvės/kartuvės2.png', 
    'kartuvės/kartuvės/kartuvės3.png',
    'kartuvės/kartuvės/kartuvės4.png',
    'kartuvės/kartuvės/kartuvės4.png',
    'kartuvės/kartuvės/kartuvės5.png'
]

#Įkeliam pagrindinį žaidimo foną
žaidimas.duokSceną().fonas('kartuvės/kartuvės/kartuvės0.png')

švieslentė = žaidimas.Tekstas('')
švieslentė.dydis(20)
švieslentė.spalva("#FFFFFF")
švieslentė.atsirask(x = 620, y = 100)

komanda perpieškŠvieslentę():
    tekstas = ''
    kiekvienam r  atspėjimai:
        jei r == '*':
            tekstas = tekstas + '_ '
        kituatveju:
            tekstas = tekstas + r + ' '

    švieslentė.tekstas(tekstas)

komanda neatspėjaiRaidės():
    global bandymai

    bandymai = bandymai + 1
    žaidimas.duokSceną().fonas('kartuvės/kartuvės/kartuvės'+str(bandymai)+'.png')
    
    jei bandymai >= 6:
        global žaidimasBaigtas
        žaidimasBaigtas = 'baigtas'
        rašyk(" Numirei :( :( :(")

komanda atspėjaiRaidę():
    perpieškŠvieslentę()
    kiekvienam r  atspėjimai:
        jei r == '*':
            grįžk # aha, kažkokia raidė dar neatspėta!

    # perėjom per visus atspėjimus, nei vienos neatspėtos raidės.
    # jei mes čia, vadinasi VISOS RAIDĖS ATSPĖTOS!!!

    rašyk("atspėjau visas raides!!!!")
    global žaidimasBaigtas 
    žaidimasBaigtas = 'baigtas'
    
komanda spėk(raidė):
    global žodis
    rastaRaidžių = 0
    pozicija = 0
    kartok len(žodis):
        jei žodis[pozicija] == raidė:
            atspėjimai[pozicija] = raidė
            rastaRaidžių = rastaRaidžių + 1
        pozicija = pozicija + 1

    jei rastaRaidžių == 0:
        neatspėjaiRaidės()
    kituatveju:
        atspėjaiRaidę()

komanda pelėsPaspaudimas(x, y):
    global žaidimasBaigtas
    jei žaidimasBaigtas == 'baigtas':
        grįžk

    elementas = žaidimas.duokSceną().duokSluoksnį().duokElementą(x, y)
    jei elementas == None:
        grįžk

    elementas.pasislėpk()
    spėk(elementas.raidė)

# sukuriam mygtukus kiekvienai abecelės raidei
komanda sukurkMygtuką(raidė, x, y):
    mygtukas = žaidimas.Dekoracija('kartuvės/abėcėlė/'+raidė+'.png', x, y)
    mygtukas.pelęPaspaudus(pelėsPaspaudimas)
    mygtukas.raidė = raidė
    grąžink mygtukas

a = sukurkMygtuką('a', x=310, y=30)
ą = sukurkMygtuką('ą', x=380, y=30)
b = sukurkMygtuką('b', x=450, y=30)
c = sukurkMygtuką('c', x=520, y=30)
č = sukurkMygtuką('č', x=310, y=100)
d = sukurkMygtuką('d', x=380, y=100)
e = sukurkMygtuką('e', x=450, y=100)
ę = sukurkMygtuką('ę', x=520, y=100)
ė = sukurkMygtuką('ė', x=310, y=170)
f = sukurkMygtuką('f', x=380, y=170)
g = sukurkMygtuką('g', x=450, y=170)
h = sukurkMygtuką('h', x=520, y=170)
i = sukurkMygtuką('i', x=310, y=240)
į = sukurkMygtuką('į', x=380, y=240)
y = sukurkMygtuką('y', x=450, y=240)
j = sukurkMygtuką('j', x=520, y=240)
k = sukurkMygtuką('k', x=310, y=310)
l = sukurkMygtuką('l', x=380, y=310)
m = sukurkMygtuką('m', x=450, y=310)
n = sukurkMygtuką('n', x=520, y=310)
o = sukurkMygtuką('o', x=310, y=380)
p = sukurkMygtuką('p', x=380, y=380)
r = sukurkMygtuką('r', x=450, y=380)
s = sukurkMygtuką('s', x=520, y=380)
š = sukurkMygtuką('š', x=310, y=450)
t = sukurkMygtuką('t', x=380, y=450)
u = sukurkMygtuką('u', x=450, y=450)
ų = sukurkMygtuką('ų', x=520, y=450)
ū = sukurkMygtuką('ū', x=310, y=520)
v = sukurkMygtuką('v', x=380, y=520)
z = sukurkMygtuką('z', x=450, y=520)
ž = sukurkMygtuką('ž', x=520, y=520)

# paklausiam žodžio
žodis = žaidimas.paklauskTeksto("sugalvok žodį")

# paverčiam raides mažosiomis
žodis = žodis.lower()

# užpildom masyvą 'atspėjimai' tuščiomis reikšmėmis kiekvienai raidei
kiekvienam r  žodis:
    atspėjimai.append('*')

# nupiešiam švieslentę
perpieškŠvieslentę()

# viskas. Laukiam vartotojo mygtukų paspaudimų!

Svarbu! Nepamiršk įsikelti žaidime naudojamus paveiksliukus ir garsus per failų tvarkyklę. Visi Kartuvių žaidimui reikalingi failai yra čia.