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
Code: Select all
!PU
Kuusi
kuusi.bmp
kuusi_kanto.bmp
200
!PU
Mänty
mänty.bmp
mänty_kanto.bmp
400
EDIT: Ongelma ratkaistu pienellä ajattelulla