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 Este é o código fonte de  "Shadow of the Beast". Cor: Verde   Laranja   Branco   Tam. Fonte: Padrão   Grande ` This code is copyright Dark Basic Software Limited 2002 ` Project: Shadow of the Beast Parallax Scrolling Demo ` Authors: Frederic Cordier (cordierfr@wanadoo.fr) ` Richard Davey (rich@darkbasic.com ` URL: http://cordierfr.free.fr/html/index_english.html ` http://www.darkbasicpro.com ` Date: 18th Feb. 2003 ` Version: v2.0 - DarkBASIC Professional (Patch 3.1) sync rate 0 sync on hide mouse ` Load all the graphics files (see end of source for filenames) restore DataFileNames for i = 1 to 13 read filename$ load image filename$, i, 1 next i ` Load the soundtracker file (requires DBPro BASSMOD Plugin) load bassmod "media\b-title.mod", 1 set bassmod 1, 44100, 1 play bassmod 1 ` Define the initial scrolling values xspeed = 2 xscroll5 = rnd(640)+640 xscroll5b = rnd(640)+640 ` Set the ink colour for the FPS display (it shown) ink rgb(255,255,255), 0 ` The Main Loop - it will repeat until a mouse button or spacebar is pressed repeat ` Calculate the scrolling values inc xscroll, xspeed if xscroll=320 then xspeed=-2 if xscroll=-960 then xspeed=2 xscrollb=xscroll if xscrollb<-640 then xscrollb=-640 if xscrollb>0 then xscrollb=0 dec xscroll1 if xscroll1=-640 then xscroll1=0 dec xscroll2, 2 if xscroll2=-640 then xscroll2=0 dec xscroll3, 3 if xscroll3<-640 then inc xscroll3, 640 dec xscroll4, 4 if xscroll4<-640 then inc xscroll4, 640 dec xscroll5, 5 if xscroll5<-640 then inc xscroll5, 1280 dec xscroll5b, 2 if xscroll5b<-640 then inc xscroll5b, 1280 dec xscroll6, 5 if xscroll6<-640 then inc xscroll6, 640 ` Paste the images paste image 1, 0, 0 paste image 2, xscroll1, 200 paste image 2, xscroll1+640, 200 paste image 3, xscroll2, 420 paste image 3, xscroll2+640, 420 paste image 4, xscroll3, 430 paste image 4, xscroll3+640, 430 paste image 5, xscroll4, 450 paste image 5, xscroll4+640, 450 paste image 10, xscroll5, 440, 1 paste image 6, xscroll6, 0, 1 paste image 6, xscroll6+640, 0, 1 paste image 7, xscroll4, 82, 1 paste image 7, xscroll4+640, 82, 1 paste image 8, xscroll3, 120, 1 paste image 8, xscroll3+640, 120, 1 paste image 9, xscroll2, 138, 1 paste image 9, xscroll2+640, 138, 1 paste image 12, xscroll5b, 140, 1 paste image 11, xscrollb, 0, 1 paste image 13, xscrollb+640, 0, 1 sync until mouseclick()=1 or spacekey()=1 ` Stop the music stop bassmod ` The demo is now finished end DataFileNames: Data "media\bgd1_ciel.png","media\bgd2_montagnes.png","media\bgd3_sol1.png" Data "media\bgd4_sol2.png","media\bgd5_sol3.png" Data "media\sprite_nuages1.png","media\sprite_nuages2.png","media\sprite_nuages3.png" Data "media\sprite_nuages4.png" Data "media\sprite_barriere.png", Data "media\fireworks.png","media\sprite_arbre.png","media\scrolltext.png" Selecionar todo o Código Ver este download

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