on vain yksi onkelma.en osaa ,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?
onkohan tuo edes mahollista?
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
Code: Select all
111111111111111
100000000100001
101010010101111
101111010101001
100000000100101
111111110100001
100000100000001
100100000000001
111111111111111