'Level maker' runs slowly - GameCreators Forum

Author

Message

Tom J

19

Years of Service

User Offline

Joined: 4th Aug 2005

Location: Essex, England

Posted: 14th Aug 2007 14:43 Edited at: 14th Aug 2007 14:46

Link

Last night I hurriedly made this very basic level editor:

enter - makes floor
w/a/s/d - makes walls
left/right/up/down - move sphere that 'deposits' the floor/walls

shift - Switches to buggy, ineffective camera view where you can use the mouse and up key to move. Pressing shift in this mode returns you to level building mode.

The problem is that in 'camera mode' the fps on my computer is low if you navigate the basic level you have just made. Is this something to do with the fact that there are lots of objects on the screen and that the floor and walls of the level you make are made up of several different objects? Or is it just the laptop I am using?

Basic editor code:

sync on

make object sphere 1,2
position object 1,5,0,5
obj=2

do

x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

if rightkey()=1 then position object 1,x#+10,y#,z# : wait 200
if leftkey()=1 then position object 1,x#-10,y#,z# : wait 200
if upkey()=1 then position object 1,x#,y#,z#+10 : wait 200
if downkey()=1 then position object 1,x#,y#,z#-10 : wait 200

if returnkey()=1 then gosub makesegment_floor
if inkey$()="w" then gosub makesegment_upwall
if inkey$()="s" then gosub makesegment_downwall
if inkey$()="a" then gosub makesegment_leftwall
if inkey$()="d" then gosub makesegment_rightwall

if shiftkey()=1 then gosub camview

position camera x#,y#+100,z#
point camera x#,y#,z#

sync
loop

makesegment_floor:

make object box obj,10,1,10
position object obj,x#,y#,z#
color object obj,rgb(255,0,0)
inc obj

return

makesegment_leftwall:

make object box obj,10,1,10
zrotate object obj,90
position object obj,x#-5,y#+5,z#
inc obj

return

makesegment_rightwall:

make object box obj,10,1,10
zrotate object obj,90
position object obj,x#+5,y#+5,z#
inc obj

return

makesegment_downwall:

make object box obj,10,1,10
xrotate object obj,90
position object obj,x#,y#+5,z#-5
inc obj

return

makesegment_upwall:

make object box obj,10,1,10
xrotate object obj,90
position object obj,x#,y#+5,z#+5
inc obj

return

camview:
wait 200

do

text 10,10,str$(screen fps())

yrotate camera wrapvalue(mousex())
xrotate camera wrapvalue(mousey())

if upkey()=1 then move camera 0.4

if shiftkey()=1 then wait 200 : return

sync
loop

+ Code Snippet

sync on

make object sphere 1,2
position object 1,5,0,5
obj=2

do

x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

if rightkey()=1 then position object 1,x#+10,y#,z# : wait 200
if leftkey()=1 then position object 1,x#-10,y#,z# : wait 200
if upkey()=1 then position object 1,x#,y#,z#+10 : wait 200
if downkey()=1 then position object 1,x#,y#,z#-10 : wait 200

if returnkey()=1 then gosub makesegment_floor
if inkey$()="w" then gosub makesegment_upwall
if inkey$()="s" then gosub makesegment_downwall
if inkey$()="a" then gosub makesegment_leftwall
if inkey$()="d" then gosub makesegment_rightwall

if shiftkey()=1 then gosub camview

position camera x#,y#+100,z#
point camera x#,y#,z#

sync
loop

makesegment_floor:

make object box obj,10,1,10
position object obj,x#,y#,z#
color object obj,rgb(255,0,0)
inc obj

return

makesegment_leftwall:

make object box obj,10,1,10
zrotate object obj,90
position object obj,x#-5,y#+5,z#
inc obj

return

makesegment_rightwall:

make object box obj,10,1,10
zrotate object obj,90
position object obj,x#+5,y#+5,z#
inc obj

return

makesegment_downwall:

make object box obj,10,1,10
xrotate object obj,90
position object obj,x#,y#+5,z#-5
inc obj

return

makesegment_upwall:

make object box obj,10,1,10
xrotate object obj,90
position object obj,x#,y#+5,z#+5
inc obj

return

camview:
wait 200

do

text 10,10,str$(screen fps())

yrotate camera wrapvalue(mousex())
xrotate camera wrapvalue(mousey())

if upkey()=1 then move camera 0.4

if shiftkey()=1 then wait 200 : return

sync
loop

Gamingcolosseum Web -
Text Adventure competition 2007

Back to top

Profile PM

X_MEN

21

Years of Service

User Offline

Joined: 14th Sep 2003

Location:

Posted: 14th Aug 2007 17:22

Link

remove your (wait 200)

You can do it if you try

Back to top

Profile PM Email

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 14th Aug 2007 18:56

Link

The WAIT command is ok as it is just a pause whilst swapping between the two modes.

The biggest problem is that when you press a key to create a wall or floor it is creating loads of objects all at the same place, so if you hold down 'w' for instance to create an upper wall, you could actually be creating hundreds of walls.

Simplest way is to change code to;

+ Code Snippet

if returnkey()=1 then gosub makesegment_floor : repeat : until scancode()=0
if inkey$()="w" then gosub makesegment_upwall : repeat : until scancode()=0
if inkey$()="s" then gosub makesegment_downwall : repeat : until scancode()=0
if inkey$()="a" then gosub makesegment_leftwall : repeat : until scancode()=0
if inkey$()="d" then gosub makesegment_rightwall : repeat : until scancode()=0

so that after creating a segment, program waits for you to release key.

If you write out 'obj' in your loop you will now find you only get one object created per keypress.

Boo!

Back to top

Profile PM Website

pcRaider

17

Years of Service

User Offline

Joined: 30th May 2007

Location:

Posted: 14th Aug 2007 20:13 Edited at: 15th Aug 2007 05:33

Link

Try this.

sync on
make object sphere 1,2
position object 1,5,0,5

make object box 2,10,1,10
SET OBJECT CULL 2,1
HIDE OBJECT 2

make object box 3,10,1,10
SET OBJECT CULL 3,1
color object 3,rgb(255,0,0)
HIDE OBJECT 3

obj=4

do
text 10,10,str$(screen fps())
text 10,20,str$(obj)

x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

if rightkey()=1 then position object 1,x#+10,y#,z# : wait 200
if leftkey()=1 then position object 1,x#-10,y#,z# : wait 200
if upkey()=1 then position object 1,x#,y#,z#+10 : wait 200
if downkey()=1 then position object 1,x#,y#,z#-10 : wait 200

if returnkey()=1 then gosub makesegment_floor
if inkey$()="w" then gosub makesegment_upwall
if inkey$()="s" then gosub makesegment_downwall
if inkey$()="a" then gosub makesegment_leftwall
if inkey$()="d" then gosub makesegment_rightwall

if shiftkey()=1 then gosub camview

position camera x#,y#+100,z#
point camera x#,y#,z#

sync
loop

makesegment_floor:
INSTANCE OBJECT obj,3
position object obj,x#,y#,z#
inc obj

return

makesegment_leftwall:
INSTANCE OBJECT obj,2
zrotate object obj,90
position object obj,x#-5,y#+5,z#
inc obj

return

makesegment_rightwall:
INSTANCE OBJECT obj,2
zrotate object obj,90
position object obj,x#+5,y#+5,z#
inc obj

return

makesegment_downwall:
INSTANCE OBJECT obj,2
xrotate object obj,90
position object obj,x#,y#+5,z#-5
inc obj

return

makesegment_upwall:
INSTANCE OBJECT obj,2
xrotate object obj,90
position object obj,x#,y#+5,z#+5
inc obj

return

camview:
wait 200

do

text 10,10,str$(screen fps())
text 10,20,str$(obj)

yrotate camera wrapvalue(mousex())
xrotate camera wrapvalue(mousey())

if upkey()=1 then move camera 0.4

if shiftkey()=1 then wait 200 : return

sync
loop

+ Code Snippet


sync on
make object sphere 1,2
position object 1,5,0,5

make object box 2,10,1,10
SET OBJECT CULL 2,1
HIDE OBJECT 2

make object box 3,10,1,10
SET OBJECT CULL 3,1
color object 3,rgb(255,0,0)
HIDE OBJECT 3

obj=4

do
text 10,10,str$(screen fps())
text 10,20,str$(obj)

x#=object position x(1)
y#=object position y(1)
z#=object position z(1)

if rightkey()=1 then position object 1,x#+10,y#,z# : wait 200
if leftkey()=1 then position object 1,x#-10,y#,z# : wait 200
if upkey()=1 then position object 1,x#,y#,z#+10 : wait 200
if downkey()=1 then position object 1,x#,y#,z#-10 : wait 200

if returnkey()=1 then gosub makesegment_floor
if inkey$()="w" then gosub makesegment_upwall
if inkey$()="s" then gosub makesegment_downwall
if inkey$()="a" then gosub makesegment_leftwall
if inkey$()="d" then gosub makesegment_rightwall

if shiftkey()=1 then gosub camview

position camera x#,y#+100,z#
point camera x#,y#,z#

sync
loop

makesegment_floor:
INSTANCE OBJECT obj,3
position object obj,x#,y#,z#
inc obj

return

makesegment_leftwall:
INSTANCE OBJECT obj,2
zrotate object obj,90
position object obj,x#-5,y#+5,z#
inc obj

return

makesegment_rightwall:
INSTANCE OBJECT obj,2
zrotate object obj,90
position object obj,x#+5,y#+5,z#
inc obj

return

makesegment_downwall:
INSTANCE OBJECT obj,2
xrotate object obj,90
position object obj,x#,y#+5,z#-5
inc obj

return

makesegment_upwall:
INSTANCE OBJECT obj,2
xrotate object obj,90
position object obj,x#,y#+5,z#+5
inc obj

return

camview:
wait 200

do

text 10,10,str$(screen fps())
text 10,20,str$(obj)

yrotate camera wrapvalue(mousex())
xrotate camera wrapvalue(mousey())

if upkey()=1 then move camera 0.4

if shiftkey()=1 then wait 200 : return

sync
loop

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / 'Level maker' runs slowly