dell screen saver by alex libby by Anonymous Coder15th Aug 2005 23:26
|
|---|
|
Summary sync rate 50 sync on hide mouse load image "1",1 load image "2",2 create bitmap 1,640,480 for a = 1 to 51 ink rgb(a/2,a/2,25+a),0 line 0,a,639,a next a get im Description sync rate 50 Code ` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com
sync rate 50
sync on
hide mouse
load image "1",1
load image "2",2
create bitmap 1,640,480
for a = 1 to 51
ink rgb(a/2,a/2,25+a),0
line 0,a,639,a
next a
get image 3,0,0,640,50
flip bitmap 1
get image 4,0,430,640,480
x# = 320 : y# = 100 : a# = 1.5 : j = 0 : vel_y# = 0 : d = 1 : s# = 6
do
cls
if j = 0
vel_y# = 1.5
j = 1
endif
if j = 1
if vel_y# > -4
vel_y# = vel_y# - a#
y# = y# + sin(vel_y#)*35
else
y# = y# + sin(vel_y#)*35
endif
else
if vel_y# > -4
vel_y# = vel_y# - a#
y# = y# - sin(vel_y#)*30
else
y# = y# - sin(vel_y#)*30
endif
endif
if y# <= 30
vel_y# = 0
j = 2
endif
if y# => 340
j = 1
endif
if d=1 then inc x#,s#
if d=2 then dec x#,s#
if x# => 528
d = 2
endif
if x# <= 0
d=1
endif
paste image 3,0,430
paste image 4,0,0
paste image 1,x#,y#,1
paste image 2,x#,530-y#/4,1
paste image 2,x#,-10-y#/4,1
copy bitmap 1,0
sync
loop
|