Kartta teksti tiedoston sisällöstä

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
Nassi_Setä
Advanced Member
Posts: 281
Joined: Sat Jun 28, 2008 5:19 pm
Location: Hämeessä miä

Kartta teksti tiedoston sisällöstä

Post by Nassi_Setä »

olen tässä pitkään miettinyt kuinka tehdä karttoja teksti tiedostoista siis:kansiossa on tekstiä josta luetaan tilen tai jonkun muun karttapulikan osa,
on vain yksi onkelma.en osaa :evil: ,joten jos joku voisi vähän avittaa.En pyydä suoraa koodia vaan jotain pientä esimerkkiä josta saisin jotain käsitystä kuinka homma toimisi
EDIT:

onkohan tuo edes mahollista?

\../(-_-)\../ <---klick MyBrute Image
Jotain evilii on tekeillä....
tuhoojabotti
Advanced Member
Posts: 485
Joined: Tue Aug 28, 2007 3:53 pm
Location: Suomi, Finland
Contact:

Re: Kartta teksti tiedoston sisällöstä

Post by tuhoojabotti »

No siis jos ajattelit oman tilekartta formaatin luomista niin katso, OpenToEdit, WriteByte, WriteInt, WriteFloat (sekä ReadXXX komennot) niillä saat dataa filuihin/filuista. ;)
Imagedev.tuhoojabotti.com — “Programmer (noun): An organism that turns caffeine into code.”
Henkru
Advanced Member
Posts: 359
Joined: Sun Aug 26, 2007 2:46 pm

Re: Kartta teksti tiedoston sisällöstä

Post by Henkru »

Tämmönen erittäin yksinkertainen esimerkki. Missä tekstitiedostossa oleva 1 meinaa seinää ja 0 lattiaaa ja rivinvaihto seuraavaa riviä.
Tämä myös sisältää vain kartan piiron, ja senkin kunnollista formaattia nähden huonosti (suoraan tiedostosta luetaan ja piiretään). Toivotaan, että tämä vähän auttaa oman formaatin tekemisessä.
En jaksanut kommentoida :roll: mutta ideana on että luetaan tiedostosta jono ja käydään yksitellen merkit läpi siitä jonosta ja piiretään dataa sen mukaan.

Code: Select all

SCREEN 640,480
SimpleMap("map.txt")
DrawScreen
WaitKey

Function SimpleMap(file$)
    f = OpenToEdit(file)
    y = 0
    While Not EOF(f)
        jono$ = ReadLine(f)
        For i=1 To Len(jono$)
            If Mid(jono$, i,1) = "1" Then
                Color 127,127,127
                Box 30*(i-1), y*30, 30,30
            Else
                Color 10,10,10
                Box 30*(i-1), y*30, 30,30
            EndIf
        Next i
        y=y+1
    Wend
EndFunction
Esimerkki mappi tiedostosta.

Code: Select all

111111111111111
100000000100001
101010010101111
101111010101001
100000000100101
111111110100001
100000100000001
100100000000001
111111111111111
Muistaakseni Tilesterin omassa ohjeessa oli jotain asiaa til-karttaformaatista ja sen rakenteesta, joten se kannattaa myös lukea läpi.
Nassi_Setä
Advanced Member
Posts: 281
Joined: Sat Jun 28, 2008 5:19 pm
Location: Hämeessä miä

Re: Kartta teksti tiedoston sisällöstä

Post by Nassi_Setä »

En kyllä ajatellut kartta formaatin luomista,mutta hyvä ja mielen kiintoinen ideahan se on.Joten aionkin tehdä jonkinlaisen kökön karttaformaatin.
Onnekseni tuo Henkrun esimerkki valaisi vähän asiaa kuinka homma oikein toimii,jotta voin ottaa uuden (ikuisuus)projektin työn alle.
\../(-_-)\../ <---klick MyBrute Image
Jotain evilii on tekeillä....
Post Reply