Efficiency Questions - GameCreators Forum

Author

Message

Purplepickle

15

Years of Service

User Offline

Joined: 4th Jun 2011

Location: Between hopeless and needs improvement..

Posted: 8th Sep 2011 02:50 Edited at: 8th Sep 2011 02:52

Link

Hello again I have a few questions about how to make a script run faster.
One I have a mini movie that turns into the menu. It is made of a repeating code that makes the letters fall and change colors.

+ Code Snippet

cls rgb(255,200,255)
Ink rgb(25,0,0),0
text 200,100,"B"
text 300,40,"O"
text 375,100,"B"
text 300,450,"Start"
text 100,450,"Credits"
text 450,450,"Exit"
wait 40

And by changing the coords I can make the letters move, my question : Is it faster for DBPro as a 1000 line code or as a vidoe clip?

Secondly is there a way to use a for loop for this?

for i = 2 to 6
sprite i,rnd(1600),rnd(950),2
next i
do
If ax# > x# then ax# = ax#-.2
If ax# < x# then ax# = ax#+.2
If ay# > y# then ay# = ay#-.2
If ay# < y# then ay# = ay#+.2
If bx# > x# then bx# = bx#-.4
If bx# < x# then bx# = bx#+.4
If by# > y# then by# = by#-.4
If by# < y# then by# = by#+.4
If cx# > x# then cx# = cx#-.3
If cx# < x# then cx# = cx#+.3
If cy# > y# then cy# = cy#-.3
If cy# < y# then cy# = cy#+.3
If dx# > x# then dx# = dx#-.3
If dx# < x# then dx# = dx#+.3
If dy# > y# then dy# = dy#-.3
If dy# < y# then dy# = dy#+.3
If ex# > x# then ex# = ex#-.3
If ex# < x# then ex# = ex#+.3
If ey# > y# then ey# = ey#-.3
If ey# < y# then ey# = ey#+.3

If x# <= 49 then x# = 49
        If y# <= 49 then y# = 49
        If y# >= 931 then y# = 931
        If x# >= 1631 then x# = 1631
        if ay# < 49 then ay# = 49
        if ay# > 931 then ay# = 931
        if ax# < 49 then ax# = 49
        if ax# > 1631 then ax# = 1631
        if by# < 49 then by# = 49
        if by# > 931 then by# = 931
        if bx# < 49 then bx# = 49
        if bx# > 1631 then bx# = 1631
        if cy# < 49 then cy# = 49
        if cy# > 931 then cy# = 931
        if cx# < 49 then cx# = 49
        if cx# > 1631 then cx# = 1631
        if dy# < 49 then dy# = 49
        if dy# > 931 then dy# = 931
        if dx# < 49 then dx# = 49
        if dx# > 1631 then dx# = 1631
        if ey# < 49 then ey# = 49
        if ey# > 931 then ey# = 931
        if ex# < 49 then ex# = 49
        if ex# > 1631 then ex# = 1631

sprite 1,x#,y#,1
        sprite 2, ax#,ay#, 2
        sprite 3, bx#,by#, 2
        sprite 4, cx#,cy#, 2
        sprite 5, dx#,dy#, 2
        sprite 6, ex#,ey#, 2
Loop

+ Code Snippet


for i = 2 to 6
sprite i,rnd(1600),rnd(950),2
next i
do
If ax# > x# then ax# = ax#-.2
If ax# < x# then ax# = ax#+.2
If ay# > y# then ay# = ay#-.2
If ay# < y# then ay# = ay#+.2
If bx# > x# then bx# = bx#-.4
If bx# < x# then bx# = bx#+.4
If by# > y# then by# = by#-.4
If by# < y# then by# = by#+.4
If cx# > x# then cx# = cx#-.3
If cx# < x# then cx# = cx#+.3
If cy# > y# then cy# = cy#-.3
If cy# < y# then cy# = cy#+.3
If dx# > x# then dx# = dx#-.3
If dx# < x# then dx# = dx#+.3
If dy# > y# then dy# = dy#-.3
If dy# < y# then dy# = dy#+.3
If ex# > x# then ex# = ex#-.3
If ex# < x# then ex# = ex#+.3
If ey# > y# then ey# = ey#-.3
If ey# < y# then ey# = ey#+.3  

        If x# <= 49 then x# = 49
        If y# <= 49 then y# = 49
        If y# >= 931 then y# = 931
        If x# >= 1631 then x# = 1631
        if ay# < 49 then ay# = 49
        if ay# > 931 then ay# = 931
        if ax# < 49 then ax# = 49
        if ax# > 1631 then ax# = 1631
        if by# < 49 then by# = 49
        if by# > 931 then by# = 931
        if bx# < 49 then bx# = 49
        if bx# > 1631 then bx# = 1631
        if cy# < 49 then cy# = 49
        if cy# > 931 then cy# = 931
        if cx# < 49 then cx# = 49
        if cx# > 1631 then cx# = 1631
        if dy# < 49 then dy# = 49
        if dy# > 931 then dy# = 931
        if dx# < 49 then dx# = 49
        if dx# > 1631 then dx# = 1631
        if ey# < 49 then ey# = 49
        if ey# > 931 then ey# = 931
        if ex# < 49 then ex# = 49
        if ex# > 1631 then ex# = 1631

        sprite 1,x#,y#,1
        sprite 2, ax#,ay#, 2
        sprite 3, bx#,by#, 2
        sprite 4, cx#,cy#, 2
        sprite 5, dx#,dy#, 2
        sprite 6, ex#,ey#, 2
Loop

I know there is a way to do this with a for loop using somthing like.

+ Code Snippet

  if ex(i) > 1631 then ex(i) = 1631

Note: Can you please show me on my code...When you guys go above and beyond it is very hard for me to understand.
Thanks for all the help!
Edit: The spacing was very weird

Wait, what?

Back to top

Profile PM Email

CumQuaT

AGK Master

16

Years of Service

User Offline

Joined: 28th Apr 2010

Location: Tasmania, Australia

Posted: 8th Sep 2011 05:02

Link

In answer to your first question, it'd be faster to run it through code in terms of efficiency, but depending on what else your program needs to do, it would be comparable to just load in a movie, depending on the movie size/format.

In answer to your second question, you need to include more information. What is the desired effect of your program?

Malevolence: The Sword of Ahkranox
www.msoa-game.com
www.facebook.com/malevolencegame

Back to top

Profile PM Email

Webber

15

Years of Service

User Offline

Joined: 27th May 2011

Location:

Posted: 8th Sep 2011 07:10

Link

Question 1
Well as for making a program run faster, its best to test that on your own, cause most of the time the speed of a program is unpredictable.
So basically, it depends on the lines of code, and the video clip, or other media that is used.

Question 2
Arrays are cool

I'm not sure what the desired effect of your program is, but...
For Loop simplification code stuff

+ Code Snippet

dim ex#(4) `0-4 X variable replacing variables ax#,bx#,cx#,dx#, and ex#
dim ey#(4) `0-4 Y variable replacing variables ay#,by#,cy#,dy#, and ey#

for i = 2 to 6
sprite i,rnd(1600),rnd(950),2
next i

do

N# = .2
for i = 0 to 4
if N# = 1 then N# = .4
if N# > 1 then N# = .3
If ex#(i) > x# then ex#(i) = ex#(i)-N#
If ex#(i) < x# then ex#(i) = ex#(i)+N#
If ey#(i) > y# then ey#(i) = ey#(i)-N#
If ey#(i) < y# then ey#(i) = ey#(i)+N#
next i

If x# <= 49 then x# = 49
If y# <= 49 then y# = 49
If y# >= 931 then y# = 931
If x# >= 1631 then x# = 1631

for i = 0 to 4
if ey#(i) < 49 then ey#(i) = 49
if ey#(i) > 931 then ey#(i) = 931
if ex#(i) < 49 then ex#(i) = 49
if ex#(i) > 1631 then ex#(i) = 1631
next i

sprite 1,x#,y#,1

for i = 0 to 4
sprite i+2, ex#(i),ey#(i), 2
next i

Loop

For Loop simplification code stuff simplified even more, but some of the code is not in the same order.

+ Code Snippet

dim ex#(4) `0-4 X variable representing ax#,bx#,cx#,dx#, and ex#
dim ey#(4) `0-4 Y variable representing ay#,by#,cy#,dy#, and ey#

for i = 2 to 6
sprite i,rnd(1600),rnd(950),2
next i

do

N# = .2
for i = 0 to 4
if N# = 1 then N# = .4
if N# > 1 then N# = .3
If ex#(i) > x# then ex#(i) = ex#(i)-N#
If ex#(i) < x# then ex#(i) = ex#(i)+N#
If ey#(i) > y# then ey#(i) = ey#(i)-N#
If ey#(i) < y# then ey#(i) = ey#(i)+N#
if ey#(i) < 49 then ey#(i) = 49
if ey#(i) > 931 then ey#(i) = 931
if ex#(i) < 49 then ex#(i) = 49
if ex#(i) > 1631 then ex#(i) = 1631
sprite i+2, ex#(i),ey#(i), 2
next i

If x# <= 49 then x# = 49
If y# <= 49 then y# = 49
If y# >= 931 then y# = 931
If x# >= 1631 then x# = 1631
sprite 1,x#,y#,1

Loop

Hope that this helps, I didn't test it.

And remember the derivative of e to the x is e to the x.

I like games, and stuff.

Back to top

Profile PM

BatVink

Moderator

23

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 8th Sep 2011 14:15

Link

Quote: "I have a mini movie that turns into the menu...Is it faster for DBPro as a 1000 line code or as a video clip?"

If it's a menu, then you need to ask whether it really matters? Menus tend not to be time-critical, they are waiting for user interaction, the user being 1000s of times slower then the PC. You might be better spending time and effort on more critical issues.

Back to top

Profile PM Email

chafari

Valued Member

20

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 8th Sep 2011 15:14 Edited at: 8th Sep 2011 16:05

Link

Hi there
@Purplepickle
Instead of :

Quote: "If ax# > x# then ax# = ax#-.2
If ax# < x# then ax# = ax#+.2"

You could get last x#,y# position of your sprites and restore when you need it.

+ Code Snippet

ink rgb(0,255,0),0
box 0,0,5,10
get image 1,0,0,5,10,1
sprite 1,300,150,1
ink rgb(100,80,50),1

`starting position values
x#=300 :y#=300
sync on
do
ink rgb(255,255,0),1
line 250,200,250,400
line 400,200,400,400
line 250,200,400,200
line 250,400,400,400

`last x,y  position before moving
lx#=x#
ly#=y#

`sprite movements left/right/up/down
if leftkey() then x#=x#-0.5
if rightkey() then x#=x#+0.5
if upkey() then y#=y#-0.5
if downkey() then y#=y#+0.5


if x#<250 or x#>395 then x#=lx# else if y#>390 or y#<200 then y#=ly#


sprite 1,x#,y#,1

sync
loop

Edited

Another example with a bucle .

+ Code Snippet

autocam off
sync on
ink rgb(200,0,0),0
box 0,0,3,10
get image 1,0,0,10,10,1
for i= 1 to 20
sprite i,rnd(200),rnd(200),1
offset sprite i,1.5,5

next i


position camera 0,800,0
point camera 0,0,0

do
for i= 1 to 20
  x=sprite x(i)
  y=sprite y(i)
  if rnd(5000)=2 then rotate sprite i,45
  if rnd(5000)=3 then rotate sprite i,90
  if rnd(5000)=8 then rotate sprite i,180
  if rnd(5000)=10 then rotate sprite i,270
  if x<10 then rotate sprite i,90
  if x>200 then rotate sprite i,-90
  if y<10 then rotate sprite i,180
  if y>200 then rotate sprite i,0
  move sprite i,0.1
next i
sync
loop

Cheers.

I'm not a grumpy grandpa

Back to top

Profile PM Email

Purplepickle

15

Years of Service

User Offline

Joined: 4th Jun 2011

Location: Between hopeless and needs improvement..

Posted: 9th Sep 2011 01:54

Link

Thanks I completely understand but the enemies a bunched up and the "inter-enemie" collision system isn't working. I'm getting a runtime error 128, Out of bounds.

+ Code Snippet

   `Get collions of enemies
    
CollisionE# = spr get collision(5,6, 1)


        if collisionE# > 0 then ex#(i+2)=ex#(i+2)-2
            if collisionE# > 0 then ey#(i+2)=ey#(i+2)-2
 
for i = 0 to 4
CollisionEX# = spr get collision(1,i+2, 1)
next i          
        if collisionEX# > 0 then ex#(i+2)=700+Rnd(100)+50
            if collisionEX# > 0 then ey#(i+2)=700+Rnd(100)+50
                            if collisionEX# > 0 then health# = health# - 5
collisionEX#=0

Wait, what?

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Efficiency Questions