Olen saanut jotakin kökköä aikaiseksi, joten sitä pitäisi parannella.Tahtoisin maastosta sulavaa, mutten liian raskasta jotta muille jutuillekkin jää tehoja.
eli tässä on itse tekemä karkeahko koodini ja kuva:
Code: Select all
If maastoreload<=0 Then
luku+1
Select Area 'eri tyyppiset maastot
Case 1 'normaali, ylhäällä ei mitään
maasto.KENTTÄ = New(KENTTÄ)
maasto\w = 10'Rand(30,220)
If luku=1 Then
maasto\h=50
Else
maasto\h = Rand(40,220)
EndIf
If luku>1
maasto2.KENTTÄ = Before(maasto.KENTTÄ)
If maasto\h < maasto2\h-3 Then
maasto\h = Rand(maasto2\h-3,maasto2\h+3)
ElseIf maasto\h > maasto2\h+3 Then
maasto\h = Rand(maasto2\h-3,maasto2\h+3)
EndIf
If maasto\h > 220 Then maasto\h = 220 'estetään korkeuden liikakorkeus
If maasto\h < 40 Then maasto\h = 40 'ja mataluus
' Delete maasto2
EndIf
maasto\img = MakeImage(maasto\w,maasto\h)
maasto\x = 900
maasto\y = ScreenHeight()-maasto\h
DrawToImage maasto\img
DrawImage maasto1,0,0 'piirretään tyhjään maastoon kuva
DrawToScreen
maastoreload=10'maasto\w*0.75
EndSelect
EndIf
If maastoreload>0 Then maastoreload=maastoreload-1
mutta onko parempia ehdotuksia tai tapoja tehdä tälläinen tsydeemi?
offtöpic:joku voi tunnistaa kuvassa olevan aluksen yhdestä jäätyneestä projustani...
EDIT:
eli jos laittaa sen maksimi vaihtelun 1:seksi niin näyttää tältä: