Tein tässä huvikseni tällaisen pienen koodinpätkän, joka tallentaa cb:n tilesettiin tekijän nimen ja muuta tietoa, mitä nyt haluaakaan tallentaa. Maksimimerkkimäärä on 255. Tämä ei siis ole mikään esimerkkikoodi; tällainen pieni hauska viritys vain, jota tilester ei _vielä_ tue (eikä siis tule ikinä tukemaankaan).
toimii näin:
SaveAuthor(tilemap$, tallennettava_teksti$)
LoadAuthor(tilemap$)
LoadAuthor palauttaa siis yllättäen merkkijonon.
Code: Select all
SaveAuthor("media\cdm2.til", "Mapin on tehnyt Zero (luulisin)")
Print LoadAuthor("media\cdm2.til")
WaitKey
Function SaveAuthor(_map As String, _author As String)
f = OpenToEdit(_map)
SeekFile f, 8
_length = Len(_author)
If _length > 255 Then _length = 255
For i = 1 To _length
WriteByte f, Asc(Mid(_author, i, 1))
Next i
WriteByte f, 0
CloseFile f
End Function
Function LoadAuthor(_map As String)
f = OpenToEdit(_map)
SeekFile f, 8
For i = 1 To 256
_temp = ReadByte(f)
If _temp = 0 Then Exit
_author$ = _author$ + Chr(_temp)
Next i
CloseFile f
Return _author$
End Function
HUOM niille jotka eivät sitä tiedä: Tämä koodi soveltuu VAIN cb:n 1.3-muodossa oleville tilemapeille. Muut tiedostot saattavat mennä lukukelvottomiksi, joten ei kannata edes yrittää. Älä muuta koodia ellet tiedä mitä teet: Taas kerran, koodi saattaa tehdä tiedostoista lukukelvottoman.
<- protestipelikilpailun voittaja.
Pistän uuden kisan pystyyn pian, kunhan keksin hyvän aiheen.
Oli khyl hauskaa, kun kerrankin vanhemmat hemmotteli meitä. Täällä kotona se on niin, että mun pitää hemmotella äitiä 
