comic book scroll - GameCreators Forum

Author

Message

Nights Bane

14

Years of Service

User Offline

Joined: 15th Dec 2009

Location:

Posted: 18th Jan 2010 00:00

Link

I\'m trying to space out these cubes, 1000 units apart for a kind of comic book style scroll. like a newspaper perhaps. The movement code with the arrow keys works fine, but the many cubes arent all appearing which they are supposed to, also i think my filing convention is buggy, because the images i have are labelled correctly i think, but not texturing the cubes either.. urgh, someone halp!

+ Code Snippet

Rem ***** Included Source File *****

position camera 0,-100,0 
point camera 0,0,0
make object cube 1, 1000

set dir \"C:\\Program Files\\The Game Creators\\Dark Basic Professional\\Projects\\EfU Times\"
`vars
maxPages = 20
moveRate# = 0.1
sync on


for i = 1 to maxPages`ticker tape up to 20
If image file exist(\"page_\" + Str$(i))`if page exists (page_1,2,3...20)	
	load image \"page_\" + Str$(i), i `load (page_1,2,3...20)
	make object box  i, 1000, 2, 2 `dimension of the images
	position object i, object position x(i) + tempImageSize, 0, 0
	
	texture object i, i
	inc tempImageSize, 1000

Endif

next i


	moveRate# = 3

do 
	text 100, 100, Str$(tempImageSize)
	If leftkey() = 1
		position camera  camera position x() - moveRate# , camera position y(), camera position z()
	Endif
	If rightkey() = 1
		position camera  camera position x() + moveRate# , camera position y(), camera position z()
	Endif

`**End Loop**
Sync
loop

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 18th Jan 2010 02:08 Edited at: 18th Jan 2010 02:11

Link

not 100% following your question based on the code (ie, 1000x2x2 boxes? tempimagesize is ?).
but, i think you want to display images (on cubes) like a comic strip? ie, sequential panels? does this help?

rem set-up
sw = desktop width() : sh = desktop height()
set display mode sw,sh,32,1

dkgrey = rgb(32,32,32)
red = rgb(255,0,0)
white = rgb(255,255,255)
black = rgb(0,0,0)

size# = 1000.0
rate# = size# `slide 1 panel per second

rem make media
ink dkgrey,black
for x = 1 to 10
   cls dkgrey
   box 2,2,62,62,white,white,white,white
   center text 32,24,str$(x)
   get image x,0,0,64,64,1
   make object cube x,size#
   texture object x,x
   position object x,(x-1)*size#,0.0,0.0
   set object light x,0
next

autocam off
   set camera range 1.0,(size#*4.0)
   camx# = 0.0
   camy# = 0.0
   camz# = -size#*3.0
   position camera camx#,camy#, camz#
   point camera camx#, 0.0,0.0

ink white,black
lastmove = timer()

do

slide# = (rightkey() - leftkey()) * (((timer()-lastmove)/1000.0)*rate#)
   if slide# not 0.0
      camx# = camx# + slide#
      position camera camx#,camy#,camz#
   endif

text 0,0,"camx#: "+str$(camx#)
      panel = ((camx#+size#/2.0)/size#)+1
   text 0,12,"Panel: "+str$(panel)

lastmove = timer()
loop

+ Code Snippet


rem set-up
sw = desktop width() : sh = desktop height()
set display mode sw,sh,32,1

dkgrey = rgb(32,32,32)
red = rgb(255,0,0)
white = rgb(255,255,255)
black = rgb(0,0,0)

size# = 1000.0
rate# = size# `slide 1 panel per second


rem make media
ink dkgrey,black
for x = 1 to 10
   cls dkgrey
   box 2,2,62,62,white,white,white,white
   center text 32,24,str$(x)
   get image x,0,0,64,64,1
   make object cube x,size#
   texture object x,x
   position object x,(x-1)*size#,0.0,0.0
   set object light x,0
next


autocam off
   set camera range 1.0,(size#*4.0)
   camx# = 0.0
   camy# = 0.0
   camz# = -size#*3.0
   position camera camx#,camy#, camz#
   point camera camx#, 0.0,0.0

ink white,black
lastmove = timer()

do

slide# = (rightkey() - leftkey()) * (((timer()-lastmove)/1000.0)*rate#)
   if slide# not 0.0
      camx# = camx# + slide#
      position camera camx#,camy#,camz#
   endif

   text 0,0,"camx#: "+str$(camx#)
      panel = ((camx#+size#/2.0)/size#)+1
   text 0,12,"Panel: "+str$(panel)

   lastmove = timer()
loop

Virtual Nomad @ California, USA
AMD Phenom™ X4 9750 Quad-Core @ 2.4 GHz . 8 GB PC2-6400 RAM
ATI Radeon HD 3650 @ 512 MB . Vista Home Premium 64 Bit

Back to top

Profile PM Website

Nights Bane

14

Years of Service

User Offline

Joined: 15th Dec 2009

Location:

Posted: 20th Jan 2010 19:15 Edited at: 20th Jan 2010 20:56

Link

Yeah, for now I'm doing a slide kind of thing, thanks for the code, its good stuff. I've done some additions to my original code since posting, and have decided to make the mouse pointer like a little spot light on the 'comic'.

The problem is, that now the pointer doesnt move on to any other selectedObject than the first one, i.e selectedObject = 1.

Should I reset the value? I dunno.

Attached is my code and images and stuff..

Rem ***** Included Source File *****

position camera -1,0,0 
point camera 0,0,0

//set dir "C:\Program Files\The Game Creators\Dark Basic Professional\Projects\EfU Times"

`resolution
if (check display mode(800, 600, 32)) = 1
	set display mode 800, 600, 32
endif
if (check display mode(1152, 864, 32)) = 1
	set display mode 1152, 864, 32
endif
if (check display mode(1280, 1024, 32))=1
	set display mode 1280, 1024, 32
endif

`vars
maxPages = 20
moveRate# = 3
Buffer# = 100

sHeight = screen height()
sWidth = screen width()

for i = 1 to maxPages`ticker tape up to 20
If image file exist("page_" + Str$(i) + ".jpg")`if page exists (page_1,2,3...20)	
	load image "page_" + Str$(i) + ".jpg", i `load (page_1,2,3...20)
	make object box  i, 1000, 1000, 10 `dimension of the images
	position object i, object position x(i) + tempImageSize + Buffer#, 0, 0
	texture object i, i
	inc tempImageSize, 1000

Endif

next i

`mouse array
dim KP(10,2)
`lighting
make light 1
set spot light 1, 40, 60
`background
load image "background.jpg", 666
draw to back

//debug
//debugSPhere = 999
//make object sphere debugSPhere, 50
//color object debugSPhere, RGB(87,255,87)

do

LMC()
if KP(7,2)=1
	selectedObject = pick object(mousex(), mousey(), 1, maxPages)
	set cursor object position x(selectedObject), object position y(selectedObject)
	position camera object position x(selectedObject), object position y(selectedObject), object position z(selectedObject)-900
	point camera object position x(selectedObject), object position y(selectedObject), object position z(selectedObject)
endif

text 10, 10, "Number of Pages: " + (Str$(tempImageSize/1000))
	If leftkey() = 1
		position camera  camera position x() - moveRate# , camera position y(), camera position z()
	Endif
	If rightkey() = 1
		position camera  camera position x() + moveRate# , camera position y(), camera position z()
	Endif

sprite 1, 0, 0, 666 `bg
if doOnce = 0
	size sprite 1, sHeight, sWidth
	dooOnce = 1
endif

if (selectedObject <> 0)`not clicked yet? also, not bg image object
		position light 1, object position x(selectedObject), object position y(selectedObject), (object position z(selectedObject))-190
		//debug	
		//POSITION object debugSPhere,  (mousex()-500), (-mousey()+500), (object position z(selectedObject)-10)
		point light 1,  (mousex()-500), (-mousey()+500), object position z(selectedObject)
	Endif

`**End Loop**
Sync

loop

Function LMC()
`mouseclick()

KP(7,1)=KP(7,0)
   KP(7,0)=mouseclick()

`NOT PRESSED
   if KP(7,0)=0 and KP(7,1)=0 then KP(7,2)=0

`INITIAL PRESS
   if KP(7,0)=1 and KP(7,1)=0 then KP(7,2)=1
   `HELD DOWN
   if KP(7,0)=1 and KP(7,1)=1 then KP(7,2)=2
   `JUST RELEASED
   if KP(7,0)=0 and KP(7,1)=1 then KP(7,2)=3

Endfunction

+ Code Snippet

Rem ***** Included Source File *****

position camera -1,0,0 
point camera 0,0,0


//set dir "C:\Program Files\The Game Creators\Dark Basic Professional\Projects\EfU Times"

`resolution
if (check display mode(800, 600, 32)) = 1
	set display mode 800, 600, 32
endif
if (check display mode(1152, 864, 32)) = 1
	set display mode 1152, 864, 32
endif
if (check display mode(1280, 1024, 32))=1
	set display mode 1280, 1024, 32
endif

`vars
maxPages = 20
moveRate# = 3
Buffer# = 100

sHeight = screen height()
sWidth = screen width()

for i = 1 to maxPages`ticker tape up to 20
If image file exist("page_" + Str$(i) + ".jpg")`if page exists (page_1,2,3...20)	
	load image "page_" + Str$(i) + ".jpg", i `load (page_1,2,3...20)
	make object box  i, 1000, 1000, 10 `dimension of the images
	position object i, object position x(i) + tempImageSize + Buffer#, 0, 0
	texture object i, i
	inc tempImageSize, 1000

Endif

next i

`mouse array
dim KP(10,2)
`lighting
make light 1
set spot light 1, 40, 60
`background
load image "background.jpg", 666
draw to back

//debug
//debugSPhere = 999
//make object sphere debugSPhere, 50
//color object debugSPhere, RGB(87,255,87)

do 




LMC()
if KP(7,2)=1
	selectedObject = pick object(mousex(), mousey(), 1, maxPages)
	set cursor object position x(selectedObject), object position y(selectedObject)
	position camera object position x(selectedObject), object position y(selectedObject), object position z(selectedObject)-900
	point camera object position x(selectedObject), object position y(selectedObject), object position z(selectedObject)
endif

	text 10, 10, "Number of Pages: " + (Str$(tempImageSize/1000))
	If leftkey() = 1
		position camera  camera position x() - moveRate# , camera position y(), camera position z()
	Endif
	If rightkey() = 1
		position camera  camera position x() + moveRate# , camera position y(), camera position z()
	Endif

sprite 1, 0, 0, 666 `bg
if doOnce = 0
	size sprite 1, sHeight, sWidth
	dooOnce = 1
endif

	if (selectedObject <> 0)`not clicked yet? also, not bg image object
		position light 1, object position x(selectedObject), object position y(selectedObject), (object position z(selectedObject))-190
		//debug	
		//POSITION object debugSPhere,  (mousex()-500), (-mousey()+500), (object position z(selectedObject)-10)
		point light 1,  (mousex()-500), (-mousey()+500), object position z(selectedObject)
	Endif
	

	
`**End Loop**
Sync

loop





Function LMC()
`mouseclick()

   KP(7,1)=KP(7,0)
   KP(7,0)=mouseclick()

   `NOT PRESSED
   if KP(7,0)=0 and KP(7,1)=0 then KP(7,2)=0

   `INITIAL PRESS
   if KP(7,0)=1 and KP(7,1)=0 then KP(7,2)=1
   `HELD DOWN
   if KP(7,0)=1 and KP(7,1)=1 then KP(7,2)=2
   `JUST RELEASED
   if KP(7,0)=0 and KP(7,1)=1 then KP(7,2)=3

Endfunction

Attachments

Login to view attachments

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / comic book scroll

Attachments