DarkBASIC Pro Versão de Avaliação Patch 5.7 USB Dongle Forum Indique   Lista de Email Diário Antigo Outros Produtos Cartography Shop DarkMatter Local DBPro Sites Italy UK

Visualizador de Código Fonte Ete é o Código Fonte de  "The Lab". Cor: Verde   Laranja   Branco   Tam. Fonte: Padrão   Grande ` This code is copyright Dark Basic Software Limited 2002 `` :::::::::::::::::::::::::::: [ The Lab ] `` :::::::::::::::::::::::::::: By `` :::::::::::::::::::::::::::: UnderWare Design `` :::::::::::::::::::::::::::: DarkBasic Software `` ( Created : 15/08/2002 22:15:30 ) `` ( Released : 19/02/2003 12:20:11 ) `` This source is released 'as is', and is provided for tutorial purpose. `` Feel free to use, re-use and modify this code at will. `` However, all the medias should not be used in any other productions `` without prior agreement from their author. `` Thank you. `` [ Kohai & Rich & Kevin ] `` Notes from Rich: `` I made quite a few changes to the original source and image files so we're dealing ` with PNG files now (not TGA or JPG) and sorted out some of the loading routines to ` speed it all up. Enjoy! randomize timer() Sync on Sync Rate 60 Disable escapekey Autocam off backdrop on color backdrop 0 fog on fog distance 500 fog color 0 set camera view 0,0,1,1 set text font "tahoma" set text size 11 load image "datas/start.png",1 load image "datas/point.png",2 sprite 1,229,298,2 sprite 2,468,298,2 hide sprite 2 full=1 debug=0 Stat_y=40 while go=0 cls 0 if mouseclick()=0 then click=0 if click=0 `` Fullscreen Button if zoneclicked(1,244,294,244+102,294+16)=1 if full=1 full=0 hide sprite 1 else full=1 show sprite 1 endif click=1 endif `` Debug Button if zoneclicked(1,482,294,482+107,294+16)=1 if stats=0 stats=1 show sprite 2 else stats=0 hide sprite 2 endif click=1 endif `` Launch Button if zoneclicked(1,306,330,306+96,330+28)=1 go=1 endif `` Exit Button if zoneclicked(1,423,330,423+65,330+28)=1 goto _exit endif endif paste image 1,0,200 sync endwhile delete sprite 1 delete sprite 2 delete image 1 delete image 2 cls 0 if full=1 then set window off backdrop on color backdrop 0 fog on fog distance 500 fog color 0 set camera view 0,0,1,1 set camera range 1,500 hide mouse print_load("[ levels/corridors.x ]",1) load object "levels/corridors.x",56 print_load("[ levels/corridors_lm.x ]",1) load object "levels/corridors_lm.x",55 print_load("[ levels/pipe.x ]",1) load object "levels/pipe.x",57 print_load("[ levels/pipe_lm.x ]",1) load object "levels/pipe_lm.x",58 print_load("[ levels/couloir.x ]",1) load object "levels/couloir.x",53 print_load("[ levels/couloir_lm.x ]",1) load object "levels/couloir_lm.x",54 print_load("[ datas/hard_boiled.mp3 ]",1) load music "datas/hard_boiled.mp3",1 scale object 56,2,2,2 scale object 55,2,2,2 scale object 57,2,2,4 scale object 58,2,2,4 scale object 53,1,1,1 scale object 54,1,1,1 ghost object on 55,1 set object 55,1,1,1,1,0,1 set object 56,1,0,1,1,0,1 ghost object on 58,1 set object 58,1,1,1,1,0,1 set object 57,1,0,1,1,0,1 hide object 58 hide object 57 ghost object on 54,1 set object 53,1,0,1,1,0,1 set object 54,1,1,1,1,0,1 hide object 53 hide object 54 print_load("[ datas/noise.png ]",1) load image "datas/noise.png",1 print_load("[ datas/flare3.png ]",1) load image "datas/flare3.png",2 print_load("[ datas/c1_bis.png ]",1) load image "datas/c1_bis.png",3 print_load("[ datas/c2_bis.png ]",1) load image "datas/c2_bis.png",4 print_load("[ datas/c3_bis.png ]",1) load image "datas/c3_bis.png",5 print_load("[ datas/woman.x ]",1) load object "datas/woman.x",2 scale object 2,80,100,80 hide object 2 print_load("[ datas/env3.png ]",1) load image "datas/env3.png",6 print_load("[ datas/flare.png ]",1) load image "datas/flare.png",7 print_load("[ datas/c4.png ]",1) load image "datas/c4.png",8 print_load("[ datas/env2.png ]",1) load image "datas/env2.png",11 print_load("[ datas/env.png ]",1) load image "datas/env.png",10 print_load("[ datas/c5.png ]",1) load image "datas/c5.png",9 print_load("[ datas/squelette.x ]",1) load object "datas/squelette.x",4 hide object 4 scale object 4,40,40,40 print_load("[ datas/blow.x ]",1) load object "datas/blow.x",5 scale object 5,30,30,20 hide object 5 print_load("[ datas/c6.png ]",1) load image "datas/c6.png",13 print_load("[ datas/c7.png ]",1) load image "datas/c7.png",14 print_load("[ datas/c8.png ]",1) load image "datas/c8.png",15 print_load("[ datas/c9.png ]",1) load image "datas/c9.png",15 print_load("[ datas/end.png ]",1) load image "datas/end.png",17 print_load("[ datas/est.png ]",1) load image "datas/est.png",18 print_load("[ datas/acc.png ]",1) load image "datas/acc.png",19 hide mouse make object plain 1,10,10 position object 1,0,0,2 disable object zdepth 1 lock object on 1 texture object 1,1 scale object texture 1,10.0,10.0 set ambient light 100 `` SETTINGS FOR TEXT SPRITES for i=1 to 8 set sprite i,0,1 set sprite alpha i,0 next i set sprite alpha 1,100 angle=0 decay#=30 alpha#=0 `` PRE-INIT set current bitmap 0 set camera view 0,30,800,560 `` SETTINGS FOR SPLINES `` .Spline 1 start_markers1=2 : total_markers1=19 start_markers2=25 : total_markers2=20 start_markers3=50 : total_markers3=14 steps=91 `` .The result vector returnflag=make vector3(1) restore spline1 `` .Spline vectors for i=start_markers1 to total_markers1 returnflag=make vector3(i) read a#,b#,c# set vector3 i,a#,b#,c# next i `` .Dummy vectors for i=total_markers1 to total_markers1+4 returnflag=make vector3(i) set vector3 i,0,0,0 next i restore spline2 `` .Spline vectors for i=start_markers2 to start_markers2+total_markers2 returnflag=make vector3(i) read a#,b#,c# set vector3 i,a#,b#,c# next i `` .Dummy vectors for i=start_markers2+total_markers2 to start_markers2+total_markers2+4 returnflag=make vector3(i) set vector3 i,0,0,0 next i restore spline3 `` .Spline vectors for i=start_markers3 to start_markers3+total_markers3 returnflag=make vector3(i) read a#,b#,c# set vector3 i,a#,b#,c# next i `` .Dummy vectors for i=start_markers3+total_markers3 to start_markers3+total_markers3+4 returnflag=make vector3(i) set vector3 i,0,0,0 next i ``____________________________________________________________________________________________________________________ `` FIRST PART ``____________________________________________________________________________________________________________________ time#=0.0 increments#=1.0/steps play music 1 start_time#=timer() vis=1 ``____________________________________________________________________________________________________________________ `` Establishing ``____________________________________________________________________________________________________________________ While done=0 inc angle,90 if angle>360 then angle=0 zrotate object 1,wrapvalue(angle*int(-4+rnd(8))) current_time#=timer() elapsed#=current_time#-start_time# sprite 1,144,275,18 if debug=1 if spacekey() then done=1 endif if escapekey() then goto _exit if elapsed#>6000 then done=1 if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps] "+str$(screen fps()) endif Sync EndWhile start_time#=timer() vis=0 done=0 ``__________________________________________________________________________________________________________________ `` Access ``__________________________________________________________________________________________________________________ While done=0 inc angle,90 if angle>360 then angle=0 zrotate object 1,wrapvalue(angle*int(-4+rnd(8))) current_time#=timer() elapsed#=current_time#-start_time# sprite 1,144,275,19 if debug=1 if spacekey() then done=1 endif if escapekey() then goto _exit if elapsed#>6000 then done=1 if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps] "+str$(screen fps()) endif Sync EndWhile ghost object on 1,1 done=0 start_time#=timer() set sprite alpha 1,0 rotate camera 0,90,0 `` MAIN LOOP While done=0 inc angle,90 if angle>360 then angle=0 zrotate object 1,wrapvalue(angle*int(-4+rnd(8))) sprite 1,230,180,3 `` Sprite behaviour if decay#>0.0 inc alpha#,0.3 dec decay#,0.1 for i=1 to 4 sprite i,230+rnd(decay#),180+rnd(decay#),3 set sprite alpha i,alpha# next i for i=5 to 8 sprite i,230-rnd(decay#),180-rnd(decay#),3 set sprite alpha i,alpha# next i endif current_time#=timer() elapsed#=current_time#-start_time# spline_time#=(elapsed#-pass_t*1000)/1000 if elapsed#>18000 then done=1 If debug=0 ``Normal Mode `` Time update for spline objects catmullrom vector3 1,start+1,start+2,start+3,start+4,spline_time# position camera x vector3(1),y vector3(1),z vector3(1) point camera 0,2.7,-10 if spline_time#>0.999 inc pass_t inc start if start>19 then done=1 endif Else `` Debug mode gosub input gosub camera if controlkey() then position camera camera position x(),camera position y()-1.0,camera position z() if shiftkey() then position camera camera position x(),camera position y()+1.0,camera position z() if spacekey() then done=1 Endif if escapekey() then goto _exit if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps]"+str$(screen fps())+" [Fx TimeFrame(18000)]"+str$(elapsed#)+" [Spline TimeFrame]"+str$(spline_time#) Text 10,Stat_y+20,"[X] "+str$(camera position x())+" [Y] "+str$(camera position y())+" [Z] "+str$(camera position z()) endif Sync EndWhile `` SETTINGS FOR PARTICLES `` .First particle : fountain make particles 1,2,10,45 position particles 1,0.3,-3.0,23.0 rotate particles 1,0.0,1.0,0.0 set particle emissions 1,2.0 set particle speed 1,0.01 set particle velocity 1,1.0 set particle gravity 1,0.8 set particle floor 1,0.5 time#=0.0 start=start_markers2 angle=0 decay#=30 alpha#=0 done=0 start_time#=timer() pass_t=0 While done=0 color particles 1,75,75,105 inc angle,90 if angle>360 then angle=0 zrotate object 1,wrapvalue(angle*int(-4+rnd(8))) sprite 1,230,180,4 `` Sprite behaviour if decay#>0.0 inc alpha#,0.3 dec decay#,0.1 for i=1 to 4 sprite i,230+rnd(decay#),180+rnd(decay#),4 set sprite alpha i,alpha# next i for i=5 to 8 sprite i,230-rnd(decay#),180-rnd(decay#),4 set sprite alpha i,alpha# next i endif current_time#=timer() elapsed#=current_time#-start_time# spline_time#=(elapsed#-pass_t*1000)/1000 if elapsed#>19000 then done=1 If debug=0 ``Normal Mode `` Time update for spline objects catmullrom vector3 1,start+1,start+2,start+3,start+4,spline_time# position camera x vector3(1),y vector3(1),z vector3(1) point camera 0,2.7,-10 if spline_time#>0.999 inc pass_t inc start if start>45 then done=1 endif point camera 0,2.7,10 Else `` Debug mode gosub input gosub camera if controlkey() then position camera camera position x(),camera position y()-1.0,camera position z() if shiftkey() then position camera camera position x(),camera position y()+1.0,camera position z() if spacekey() then done=1 Endif if escapekey() then goto _exit if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps]"+str$(screen fps())+" [Fx TimeFrame(19000)]"+str$(elapsed#)+" [Spline TimeFrame]"+str$(spline_time#) Text 10,Stat_y+20,"[X] "+str$(camera position x())+" [Y] "+str$(camera position y())+" [Z] "+str$(camera position z()) endif Sync EndWhile ``____________________________________________________________________________________________________________________ `` SECOND PART ``____________________________________________________________________________________________________________________ `` SETTINGS FOR PARTICLES `` .Second particle : Energy Wall delete particles 1 make fire particles 2,2,1000,20.0,15.0,2,10,10,30 position particles 2,0.3,-3.0,23.0 `` SETTINGS FOR OBJECTS hide object 55 hide object 56 show object 57 show object 58 delete object 55 delete object 56 time#=0.0 start=start_markers3 angle=0 decay#=15 alpha#=0 done=0 start_time#=timer() pass_t=0 `` MAIN LOOP While done=0 inc angle,90 if angle>360 then angle=0 zrotate object 1,wrapvalue(angle*int(-4+rnd(8))) sprite 1,0,200,5 `` Sprite behaviour if decay#>0.0 inc alpha#,0.3 dec decay#,0.1 for i=1 to 4 sprite i,0+rnd(decay#),200+rnd(decay#),5 set sprite alpha i,alpha# next i for i=5 to 8 sprite i,0-rnd(decay#),200-rnd(decay#),5 set sprite alpha i,alpha# next i endif current_time#=timer() elapsed#=current_time#-start_time# spline_time#=(elapsed#-pass_t*1000)/1000 if elapsed#>13000 then done=1 If debug=0 ``Normal Mode `` Time update for spline objects catmullrom vector3 1,start+1,start+2,start+3,start+4,spline_time# position camera x vector3(1),y vector3(1),z vector3(1) point camera 0,2.7,-10 if spline_time#>0.999 inc pass_t inc start if start>65 then done=1 endif point camera -1,-8,110 Else `` Debug mode gosub input gosub camera if controlkey() then position camera camera position x(),camera position y()-1.0,camera position z() if shiftkey() then position camera camera position x(),camera position y()+1.0,camera position z() if spacekey() then done=1 Endif if escapekey() then goto _exit if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps]"+str$(screen fps())+" [Fx TimeFrame(13000)]"+str$(elapsed#)+" [Spline TimeFrame]"+str$(spline_time#) Text 10,Stat_y+20,"[X] "+str$(camera position x())+" [Y] "+str$(camera position y())+" [Z] "+str$(camera position z()) endif Sync EndWhile hide object 57 hide object 58 delete object 57 delete object 58 delete particles 2 for i=1 to 8 delete sprite i next i ``____________________________________________________________________________________________________________________ `` THIRD PART : STATUE ``____________________________________________________________________________________________________________________ show object 2 hide object 1 : rem hide the Noisy object set camera view 0,0,1,1 make light 1 set point light 1,10,15,5 set light range 1,500 color light 1,50,50,255 make light 2 set point light 2,-15,-10,-5 set light range 2,500 color light 2,255,50,50 set ambient light 80 set sphere mapping on 2,6 make fire particles 1,7,750,0.0,0.0,0.0,15.0,30.0,15.0 make camera 1 set camera to image 1,2,256,256 make camera 2 set camera to image 2,4,128,128 make object cube 3,30 set object 3,1,0,1,0,1,0,1 scale object 3,-100,-100,-100 texture object 3,7 set current bitmap 0 set current camera 0 set camera view 0,30,800,570 start_time#=timer() done=0 while done=0 inc a#,0.7 current_time#=timer() elapsed#=current_time#-start_time# if elapsed#>12000 then done=1 sprite 1,0,480,8 paste image 2,40,60 paste image 4,660,400 if a#>=360.0 then a#=1.0 if escapekey() then goto _exit if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps]"+str$(screen fps())+" [Fx TimeFrame(12000)]"+str$(elapsed#) endif position camera 1,cos(a#)*15,cos(a#)*15,sin(a#)*15 position camera 0,2+cos(a#)*15,0,2+sin(a#)*15 position camera 2,0,cos(a#)*10,-5 point camera 0,0,0,0 point camera 1,0,0,0 `` lights position light 1,5,15+cos(a#)*20,5 position light 2,-3,0+cos(a#)*20,-2 if debug=1 if spacekey() then done=1 endif sync endwhile ``____________________________________________________________________________________________________________________ `` FOURTH PART : SKELETON ``____________________________________________________________________________________________________________________ delete camera 1 delete camera 2 delete object 3 delete object 2 show object 53 show object 54 show object 4 loop object 4 xrotate object 4,270 yrotate object 4,90 set object speed 4,2000 position object 4,0,0.5,0 fog distance 30 color light 1,0,20,255 color light 2,100,20,50 done=0 start_time#=timer() while done=0 inc a#,0.7 sprite 1,0,480,9 current_time#=timer() elapsed#=current_time#-start_time# if elapsed#>24000 then done=1 if a#>=360.0 then a#=1.0 if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps]"+str$(screen fps())+" [Fx TimeFrame(24000)]"+str$(elapsed#) endif scroll object texture 53,0.03,0 position camera 0,cos(a#)*5,5,sin(a#)*4 point camera 0,0,1+sin(a#)*4,0 `` lights position light 1,5,2+cos(a#)*5,5 position light 2,-3,0+cos(a#)*5,-2 if escapekey() then goto _exit if debug=1 if spacekey() then done=1 endif sync endwhile stop object 4 delete object 4 delete particles 1 delete light 1 delete light 2 delete object 53 delete object 54 delete sprite 1 ``____________________________________________________________________________________________________________________ `` FIFTH PART : Mosaïque ``____________________________________________________________________________________________________________________ done=0 set ambient light 80 color backdrop 0 position camera 0,0,0,0 point camera 0,0,0,0 fog distance 500 texture object 5,10 set sphere mapping on 5,11 make object cube 2,45 position object 2,0,0,0 scale object 2,-100,-100,-100 color object 2,rgb(50,20,20) ghost object on 2,1 set object 2,1,0,1,0,0,0,1 make object plain 4,8,6 position object 4,0,0,5 lock object on 4 ghost object on 4,1 color object 4,0 SET OBJECT 4, 1, 1, 0, 0, 1, 0, 1 ``set object 4,1,1,1,0 disable object zdepth 4 make camera 1 set camera to image 1,12,32,32 position camera 1,0.2,0,-8 point camera 0,0,0,0 position camera 0,0.2,0,-8 point camera 1,0,0,0 ``position object 5,0,0,0 show object 5 ``show object 1 ``hide object 4 set current bitmap 0 set current camera 0 x#=0.2 y#=0 z#=-8 start_time#=timer() pass_t=0 while done=0 inc a#,0.7 sprite 1,0,200,13+pass_t if alpha#<255.0 inc alpha#,2.5 if alpha#>255.0 then alpha#=255.0 set sprite alpha 1,alpha# endif current_time#=timer() elapsed#=current_time#-start_time# sync_time#=(elapsed#-pass_t*6000) if elapsed#>24000 then done=1 if sync_time#>6000 inc pass_t inc start alpha#=0.0 posx#=0+(-20+rnd(20)) posy#=-20+rnd(10) posz#=-15+rnd(10) position camera 0,posx#,posy#,posz# `` if start>65 then done=1 endif if a#>=360.0 then a#=1.0 if escapekey() then goto _exit if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps]"+str$(pass_t)+" [Fx TimeFrame (48000)]"+str$(elapsed#)+" [Fx SyncTime (6000)]"+str$(sync_time#) Text 10,Stat_y+20,"[X] "+str$(camera position x())+" [Y] "+str$(camera position y())+" [Z] "+str$(camera position z()) endif texture object 4,12 yrotate object 2,wrapvalue(a#) ``gosub camera ``gosub input xrotate object 5,wrapvalue(1+sin(a#)*50) yrotate object 5,wrapvalue(-1+cos(a#)*50) x#=camera position x(0) y#=camera position y(0) z#=camera position z(0) position camera 0,curvevalue(0.2,y#,70),curvevalue(0.0,y#,70),curvevalue(-8.0,z#,70) position camera 1,curvevalue(0.2,y#,70),curvevalue(0.0,y#,70),curvevalue(-8.0,z#,70) ``position camera 1,0.2,0,-8 point camera 0,0,0,0 ``position camera 0,0.2,0,-8 point camera 1,0,0,0 if debug=1 if spacekey() then done=1 endif sync endwhile delete object 2 delete object 4 show object 1 ghost object off 1 delete object 5 ``____________________________________________________________________________________________________________________ `` End of Transmission ``____________________________________________________________________________________________________________________ done=0 start_time#=timer() set ambient light 100 set sprite alpha 1,100 While done=0 inc angle,90 if angle>360 then angle=0 zrotate object 1,wrapvalue(angle*int(-4+rnd(8))) current_time#=timer() elapsed#=current_time#-start_time# sprite 1,0,275,17 if debug=1 if spacekey() then done=1 endif if escapekey() then goto _exit if elapsed#>12000 then done=1 if stats=1 Text 10,Stat_y,"The Lab 1.3" Text 10,Stat_y+10,"[Fps] "+str$(screen fps()) endif Sync EndWhile ``____________________________________________________________________________________________________________________ `` EXIT , FREE RESOURCES ``____________________________________________________________________________________________________________________ stop music 1 cls 0 goto _exit camera: rem Update destination camera rotation values using mousemove aax#=aax#+mousemovey() aay#=aay#+mousemovex() rem Prevent camera from rotating too far up and down if aax#>90 then aax#=90 if aax#<-90 then aax#=-90 rem Gradually move current camera rotation values towards destination values ax#=curveangle(aax#,ax#,3) ay#=curveangle(aay#,ay#,3) rem Rotate and position camera rotate camera wrapvalue(ax#),wrapvalue(ay#),0 position camera x#,y#+eyeheight,z# return rem ************************************************************************* input: rem Move forward/backward if upkey()=1 or mouseclick()=1 or mouseclick()=3 then x#=newxvalue(x#,ay#,1) : z#=newzvalue(z#,ay#,1) if downkey()=1 or mouseclick()=2 then x#=newxvalue(x#,ay#,-1) : z#=newzvalue(z#,ay#,-1) rem Strafe if leftkey()=1 then x#=newxvalue(x#,ay#+90,-1) : z#=newzvalue(z#,ay#+90,-1) if rightkey()=1 then x#=newxvalue(x#,ay#+90,1) : z#=newzvalue(z#,ay#+90,1) rem Gravity if shiftkey() then inc y#,0.5 if controlkey() then dec y#,0.5 return rem ************************************************************************* spline1: data -13.705,0.5,-6.95 data -12.8,1,-9.9 data -14.9,2,-12.85 data -15.055,2,-14.86 data -15.2,2,-17.86 data -15.5,1,-19.86 data -14.81,0.5,-21.807 data -13.815,1,-21.737 data -11.92,1,-19.6 data -10.92,1.5,-19.56 data -8.93,2,-19.391 data -7.93,2.5,-19.378 data -6.829,3,-21.323 data -4.83,3,-21.393 data -3.84,3,-20.375 data 1.5,3.5,-21.463 data -5.0,4,-20.615 data -2.5,3,-19.615 return spline2: data 14.52,4,-24.567 data 14.52,4,-22.567 data 14.31,4,-20.578 data 14.214,3.5,-19.583 data 13,3,-17.734 data 10.982,3,-16.769 data 8.983,3,-16.82 data 8,2.5,-17.03 data 7.3,2,-18.24 data 7.7,1.5,-20.203 data 4.8,1,-21.45 data 2.81,1,-21.6 data 0.83,1,-20.7 data -1.18,1,-18.62 data -3.39,3,-13.267 data -4,2,-6.304 data -4.89,1,-1.38 data -6.09,-1,2.429 data -12.55,-1,6.956 data -6.545,0,18.674 data 0.545,2,18.674 return spline3: data -2,0,-15 data -1.268,-2,-9.04 data 0.143,-2,-5.171 data 2.44,-3,-2.396 data 2.68,-4,4.59 data 2.69,-5,13.59 data 2.69,-4,18.598 data 0.69,2,25.598 data -1.3,-1,34.5 data -0.03,-1,42.5 data 2.44,-1,50.44 data 2.45,-1,59.44 data 5.49,0,66.33 data 2.33,1,75.277 data 2.09,1,82.273 data 1.9,2,27.27 data 2.7,2,92.354 return _exit: for c=255 to 0 step -1 set gamma c,c,c sync next c wait 250 end function print_load(text$,myink) ink myink,myink box 0,350,800,370 ink rgb(255,255,255),0 center text 400,350,text$ sync endfunction function zoneclicked(but,x1,y1,x2,y2) if mousex()>x1 and mousex()<X2 if mousey()>y1 and mousey()<Y2 if mouseclick()=1 clicked=1 endif endif endif endfunction clicked Selecionar todo o Código Ver este Download

Copyright © 2003 Dark Basic Software Limited.
Virtual Object Informática Ltda.®