Tyhmät kysymykset (II/2009)

[Jonez]

Cb:n taulukot ovat globaaleja - tavallaan. Kaikkien funktion sisällä luotujen taulukoiden näkyvyysalue ei ulotu funktiosta ulos, mutta kaikki ulkopuolella luodut näkyvät myös funktioissa.

Seuraava koodinpätkä lisää hiljalleen muistinkäyttöä:

Code: Select all

Repeat
    
    Kutsu()
    
    DrawScreen
Forever

Function Kutsu()
    Dim taulu( 10 )
EndFunction

Tähän voisi lisätä, että esimerkiksi kuvia voi kuitenkin latailla funktioissa, koska palautetulla muuttujalla on sama muistiosoite. Tämä ei lisää muistinkäyttöä.

Code: Select all

Repeat
    
    kuva = lataaObjekti()
    DrawImage kuva, 0, 0
    DeleteImage kuva

    DrawScreen
Forever

Function lataaObjekti()
    img = LoadImage( "media\map.bmp" )
    Return img
EndFunction

Jos funktiossa yrittää luoda taulukkoa, joka on jo globaali, ei kääntäjä päästä sitä edes läpi, aivan kuten se ei hyväksy globaalin muuttujan uudelleenmäärittelyä.

Edit. Tai en tiedä funktiossa luodun taulukon näkyvyysalueesta sinänsä, mutta kääntäjä ei hyväksy taulukon käyttöä funktion ulkopuolella, joten se on se ja sama.
Edit2. Oikeastaan, näyttäisi siltä että näkyvyysalue on globaali, sillä kääntäjä ei hyväksy edes kahta samannimistä taulukkoa kahdessa eri funktiossa. Turhaa tekstiä loppujen lopuksi, koska taulukon luominen nykyisessä cb:ssä funktion sisällä on - hyvän suomenkielisen vastikkeen puuttuessa - just plain dumb.

[RFA(ei jaksa kirjautua)]

mikä on cb:n erisuuri kuin -vertailuoperaattori kun != ei toimi.

[koodaaja]

<>.

[Wingman]

Onko mitään pienempää tapaa tehdä kontrollit kuin:
if keydown('nappi') then moveobject 'obj'1,0
ja sama kaikille näppäimille?

[valscion]

Onko mitään pienempää tapaa tehdä kontrollit kuin:
if keydown('nappi') then moveobject 'obj'1,0
ja sama kaikille näppäimille?

No vaikkapa näin:

Code: Select all

MoveObject obj, (KeyDown(cbKeyW)-KeyDown(cbKeyS))*kerroin, (KeyDown(cbKeyA)-KeyDown(cbKeyD))*kerroin

Eli jos liikutaan ylös [W] niin liikutetaan objektia eteenpäin kertoimen määrän väärän. Jos liikutaan alas niin liikutetaan objektia taaksepäin (miinus suuntaan siis) kertoimen verran. Sama sivuttaisliikkeelle ([A] ja [D])

Huomaa ettei tuo lauseke vaadi minkäänlaista Iffiä =)

[Arzka96]

MOi!

Kuinka saa pelin näytön suuremmaksi
ja jos se on pelkkä screen eikä world?

[Awaclus]

Nyt tulee kyllä niin n00b kysymys, mutta pakkohan se on kysyä kun omat aivot suorittavat tällä hetkellä Brain Freezeä. Minulla on tilekentän datakerrokseen merkitty 1 siihen kohtaan, mihin hirviöiden tulisi spawnata. Miten saan hirviöt spawnaamaan sinne?

EDIT: GetMap2 on katsottu manuaalista, mutta ei vain raksuta.

[KilledWhale]

Nyt tulee kyllä niin n00b kysymys, mutta pakkohan se on kysyä kun omat aivot suorittavat tällä hetkellä Brain Freezeä. Minulla on tilekentän datakerrokseen merkitty 1 siihen kohtaan, mihin hirviöiden tulisi spawnata. Miten saan hirviöt spawnaamaan sinne?

EDIT: GetMap2 on katsottu manuaalista, mutta ei vain raksuta.

http://cbkk.systec.fi/koodi.php?id=134
Tuossa on mistheman tekemä funktio, joka spawnaa objektin kartalle tietyn kerroksen datan mukaan.
Helpompaa tapaa ei ole kuin käydä koko kartta läpi ja katsoa onko arvo sopiva.

[Jonez]

MOi!

Kuinka saa pelin näytön suuremmaksi
ja jos se on pelkkä screen eikä world?

Screen-komennolla. Parametrit ovat: leveys, korkeus, värisyvyys ja ikkunatila. Resoluution kuuluu kokoruudun tilassa olla sellainen jota näytönohjain tukee.

Muista että Screen-komento tuhoaa kaiken aikaisemmin ladatun media. Manuaalista kannattaa katsoa lisätietoja.

Esim:

Code: Select all

SCREEN 1024, 768, 0, 1

[Arzka96]

Kuinka tehdään sellainen
tekstinsyöttö kohdan koska
aion tehdä tässä
tekstiseikkailupelin,
siihen tarvitaan command kohta
johon syötetään komentoja itse peliin?

[MAVmaggot]

Ei todennäkösesti
ainakaan
ylenpaattisella
rivinvaihdolla,
tutustu
input-funktioon.

[KilledWhale]

Kuinka tehdään sellainen
tekstinsyöttö kohdan koska
aion tehdä tässä
tekstiseikkailupelin,
siihen tarvitaan command kohta
johon syötetään komentoja itse peliin?

Tässä olisi pieni esimerkki. Koodia en jaksanut kommentoida mutta koita tutkia jos siitä jotain saisit irti.

Code: Select all

Repeat
	a$ = Input(">")
	If KeyHit(28) Then
		Select GetWord(a$, 1, " ")
			Case "Exit"
				End
			Case "MakeError"
				MakeError Mid(a$, InStr(a$, " "))
		EndSelect
		CloseInput
	EndIf
	DrawScreen
Forever

[qwetyone]

Pystyykö CoolBasicillä Splittaamaan screeniä kahdelle pelaajalle?

[Herra Siili]

Haulla löytyi heti:
viewtopic.php?f=12&t=391

[qwetyone]

Mutta toi linkki virtualscreeniin ei toimi

[Herra Siili]

Katso LittleGreenin viesti vähän alempaa.

EDIT:

Code: Select all

koodia...

Otin tän ohjeista, miksi tämä ei toimi?

EDIT:
Outoa tämä toimii viiden miinuutin välein? miksi?

Minulla se MAVaa aina rivillä 21.[/edit]

[11v]

Code: Select all

SCREEN 640,480

AddText "Press any key to copy..."

'First make a gradient 
For i=0 To 240
    Color 0,i+15,0
    Line 0,i,640,i
Next i

DrawScreen OFF

WaitKey

'Lock screen 
Lock SCREEN()

'make 154 481 iterations, copy each pixel 
For y=0 To 240
For x=0 To 640
    PutPixel2 x,480-y,GetPixel2(x, y)
Next x
Next y

'Unlock screen 
Unlock SCREEN()

DrawScreen

WaitKey

Otin tän ohjeista, miksi tämä ei toimi?

EDIT:
Outoa tämä toimii viiden miinuutin välein? miksi?

[qwetyone]

minulla ainakin toimii

[Herra Siili]

Joku, joka on enemmän käyttänyt PutPixel2:sta, voisi tulla selventämään asiaa. Itse en ole käyttänyt sitä yhtään.

[Awaclus]

Joku, joka on enemmän käyttänyt PutPixel2:sta, voisi tulla selventämään asiaa. Itse en ole käyttänyt sitä yhtään.

memberlist.php?mode=viewprofile&u=455

EDIT: niin anteeksi offtopic, mutta oli kyllä vain ihan pakko.