Tiedosto ongelma + tyypeissä pieni ongelma [RATKAISTU]

Voit pyytää apua ohjelmointiongelmiin täältä.
Post Reply
lukutoukka
Active Member
Posts: 111
Joined: Fri Jun 13, 2008 9:06 pm

Tiedosto ongelma + tyypeissä pieni ongelma [RATKAISTU]

Post by lukutoukka »

Eli olen teossa peliini jutskaa, jolla objektien tiedot ladataan tiedostosta typeihin, mutta tiedostosta luku ei oikein onnistu, mitä pitäis tehdä?

Code: Select all

'alkuperäiset puu objektit sisältävä type
Type alkupuut
	Field id
	Field nimi$
	Field obj
   Field kanto
	Field maxenkka
End Type
puut_id = 1
lataa_puut()


SCREEN 900, 700


Repeat ' Pääsilmukka


DrawScreen
Forever ' Pääsilmukan loppu

'FUNCTIOT
Function lataa_puut()

	f = OpenToRead("Objektit/objektit.meo")
	
	For i = 0 To EOF(f) = 1
		f2 = ReadLine(f)
		
		If f2 = "!PU" Then
			
			uusi.alkupuut = New(alkupuut)
			uusi\id = puut_id
			uusi\nimi = ReadLine(f)
			uusi\obj = LoadObject("Kuvat/"+ReadLine(f))
         uusi\kanto = "Kuvat/"+readline(f)
			uusi\maxenkka = ReadLine(f)
			puut_id = puut_id +1
			
			AddText "onnistui"
		End If
		
	Next i

	CloseFile f

End Function
ja tiedosto on seuraavanlainen

Code: Select all

!PU
Kuusi
kuusi.bmp
kuusi_kanto.bmp
200
!PU
Mänty
mänty.bmp
mänty_kanto.bmp
400
ja tiedot on lisätty writeline komennolla. ja typeen liittyvä ongelma on seuraavanlainen, eli hidastaisko tällainen järjestely paljonkin peliä, johon tulee vielä typeihin määriteltyä kartan kohteet (n. 100-200) puuta, jotka piiretään kartalle? (+8 muuta typeä samaan tarkoitukseen (karttapalan viereiset kohat))

EDIT: Ongelma ratkaistu pienellä ajattelulla :D
Post Reply