Public feed #527618

Miscellany

public text v1 · immutable
Raw Edit
·published 2007-06-01 11:36 UTC
rendered paste body
y=200'y on muuttuja joka kuvaa pallon y-sijaintia
yplus=-15'muuttuja joka lisätään y:hyn, pomppiminen ja painovoima
x=100'pallon x-sijainti
Repeat 
    Circle x,y,20'pistetään pallo koordinaatteihinsa
        yplus = yplus +1'painovoima
    If yplus=15 Then yplus=-15'pomppiminen
    
     y=y+yplus'lisätään pallon sijaintiin yplus(painovoima ja pomppiminen)
    
    If KeyDown(cbkeyright) Then x=x+1'liikkuminen sivuttain
    If KeyDown(cbkeyleft) Then x=x-1
    
DrawScreen
    Forever