CodeBase - dell screen saver by alex libby

Information

Uploaded: 15th Aug 2005 23:26

Modified: 17th Aug 2005 01:58

Author:  Anonymous Coder

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 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

Full Description

sync rate 50<br /> sync on<br /> hide mouse<br /> <br /> load image &quot;1&quot;,1<br /> load image &quot;blak&quot;,2<br /> <br /> create bitmap 1,640,480<br /> <br /> for a = 1 to 51<br /> ink rgb(a/2,a/2,25+a),0<br /> line 0,a,639,a<br /> next a<br /> <br /> get image 3,0,0,640,50<br /> flip bitmap 1<br /> get image 4,0,430,640,480<br /> <br /> x# = 320 : y# = 100 : a# = 1.5 : j = 0 : vel_y# = 0 : d = 1 : s# = 6<br /> <br /> do<br /> <br /> cls<br /> <br /> if j = 0<br /> vel_y# = 1.5<br /> j = 1<br /> endif<br /> <br /> if j = 1<br /> if vel_y# &gt; -4<br /> vel_y# = vel_y# - a#<br /> y# = y# + sin(vel_y#)*35<br /> else<br /> y# = y# + sin(vel_y#)*35<br /> endif<br /> else<br /> if vel_y# &gt; -4<br /> vel_y# = vel_y# - a#<br /> y# = y# - sin(vel_y#)*30<br /> else<br /> y# = y# - sin(vel_y#)*30<br /> endif<br /> endif<br /> <br /> if y# &lt;= 30<br /> vel_y# = 0<br /> j = 2<br /> endif<br /> <br /> if y# =&gt; 340<br /> j = 1<br /> endif<br /> <br /> if d=1 then inc x#,s#<br /> if d=2 then dec x#,s#<br /> <br /> if x# =&gt; 528<br /> d = 2<br /> endif<br /> <br /> if x# &lt;= 0<br /> d=1<br /> endif<br /> <br /> paste image 3,0,430<br /> paste image 4,0,0<br /> <br /> paste image 1,x#,y#,1<br /> paste image 2,x#,530-y#/4,1<br /> paste image 2,x#,-10-y#/4,1<br /> <br /> copy bitmap 1,0<br /> sync<br /> <br /> loop<br /> <br />