Function Close2Stone(lx,ly)
For m.Main=Each Main
If ImagesOverlap(m\stone,m\x,m\y,dground,lx,ly) Then
Return True
EndIf
Return False
Next
End Function
Function UpdateMap()
For g1.groundmap=Each groundmap
If day=1 Then
g1\light=1
EndIf
If NTT(g1\x,g1\y)=False And day=0 Then
g1\light=0
EndIf
If g1\light=0 And NTT(g1\x,g1\y) Then
g1\light=1
EndIf
If g1\light=1 Then
DrawImage ground,g1\x,g1\y
EndIf
If g1\light=0 Then
DrawImage dground,g1\x,g1\y
EndIf
Next
End Function
Результат -2 FPS.