Bubblesort for Racing Game - Help Reqd. Pls

Author

Message

DemonHill

17

Years of Service

User Offline

Joined: 20th Mar 2008

Location:

Posted: 4th Jun 2008 00:52

Link

I am writting a racing game, and whilst I am comfortable with bubble sort, the complication comes because the driver laptime has to be calculated each lap, and the variable i.e position of driver variable in an array requires me to re-order the drivers back to allow laptime calculations.. Sorting is down by Racetime not laptime as such...

Anyone used bubble sort in this situation where it's not as simple as a one off table of high scores ?

Back to top

Profile PM Website

DemonHill

17

Years of Service

User Offline

Joined: 20th Mar 2008

Location:

Posted: 4th Jun 2008 11:21

Link

This is the concept

Driver(1)=Mshumacher:Laptime(1)=RND(100):Team$(1)="Ferrari":RaceTime(1)=RaceTime(1)+Laptime(1)

Driver(2)=Button:Laptime(2)=RND(200):Team$(2)="BAR"":RaceTime(2)=RaceTime(2)+Laptime(2)

Driver(3)=Webber:Laptime(3)=RND(300):Team$(3)="REDBULL"":RaceTime(3)=RaceTime(3)+Laptime(3)

These will be in a loop for each lap and the driver position will be sorted on the Racetime... trouble is because the laptime calculation needs to be different for each driver, how do I match position of driver in a sort table to allow the correct array position.... ????

Back to top

Profile PM Website

gearce

18

Years of Service

User Offline

Joined: 18th Dec 2006

Location: ex SCOTLAND, now MELBOURNE, Australia

Posted: 4th Jun 2008 12:40

Link

Hi there!

Here is the subroutine I used to determine ladder placings in a football programme ...... hope it gives you a guide. Because it contains goto's, I have included line numbers to indicate where to jump to. You will have to restructure for DB.

+ Code Snippet

The variables used are:
cp=championship points
tn$=team name
pl=games played
w=games won
d=games drawn
l=games lost
pf=points for
pa=points against
pc=percentage

3870 for j=1 to teams
3880   for m=1 to teams-1:if cp(m)>=cp(m+1) then goto 3990
3890     temp=cp(m):cp(m)=cp(m+1):cp(m+1)=temp
3900     temp=tn$(m):tn$(m)=tn$(m+1):tn$(m+1)=temp
3910     temp=pl(m):pl(m)=pl(m+1):pl(m+1)=temp
3920     temp=w(m):w(m)=w(m+1):w(m+1)=temp
3930     temp=d(m):d(m)=d(m+1):d(m+1)=temp
3940     temp=l(m):l(m)=l(m+1):l(m+1)=temp
3950     temp=pf(m):pf(m)=pf(m+1):pf(m+1)=temp
3960     temp=pa(m):pa(m)=pa(m+1):pa(m+1)=temp
3970     temp=pc(m):pc(m)=pc(m+1):pc(m+1)=temp
3990     if cp(m)>cp(m+1) then goto 4020
4010     if pc(m)<pc(m+1) then goto 3900
4020   next m:next j

LANG MEY YER LUM REEK

And in the end, it's not the years in your life that count, it's the life in your years

Back to top

Profile PM

DemonHill

17

Years of Service

User Offline

Joined: 20th Mar 2008

Location:

Posted: 5th Jun 2008 21:34

Link

So would you use something like:-

tn$(1)="LiverpoolFC"
tn$(2)="Manchester"

using a fix location for the array.

And when you rerun the sort, after each game, do you have to unsort the teams to get the scores or just use the loop again and again ?

Back to top

Profile PM Website

Libervurto

18

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 6th Jun 2008 05:37 Edited at: 6th Jun 2008 05:38

Link

You could store every lap for each driver, start all off at 9999 seconds (or whatever they'll never reach), then replace this with the actual lap time and sort all drivers when someone completes a lap (sort by total lap times).

It is far better to complete a 10 line program than to start a 10,000 line program.

Back to top

Profile PM Email

gearce

18

Years of Service

User Offline

Joined: 18th Dec 2006

Location: ex SCOTLAND, now MELBOURNE, Australia

Posted: 6th Jun 2008 05:42 Edited at: 11th Jun 2008 02:53

Link

All the details to set up for a new season would be coded in data statements at the beginning of the programme ...... for example

Title of the competition
Number of rounds and number of teams in the competition
Team names

10 data AFL RECORD 1997
20 data 22,16
30 data ADELAIDE,BRISBANE,CARLTON,COLLINGWOOD,ESSENDON,FREEMANTLE,GEELONG,HAWTHORN,MELBOURNE,N MELBOURNE,PT ADELAIDE,RICHMOND,ST KILDA,SYDNEY,WEST COAST,W BULLDOGS

and read into the programme

160 restore 10:read title$
170 restore 20:read rounds:read teams

then placed in an array

480 dim tn$(teams),pl(teams),w(teams),d(teams),l(teams),pf(teams),pa(teams),pc(teams),cp(teams)

490 for k=1 to teams:read tn$(k):next k
500 print "Team                 P  W  D  L  Pf  Pa  Pc  Cp"
510 for k=1 to teams:print tn$(k);"             ";pl(k);w(k);d(k);l(k);pf(k);pa(k);pc(k);cp(k):next k

Initially, at set up, the league would look like:

Team                 P  W  D  L  Pf  Pa  Pc  Cp
ADELAIDE             0  0  0  0   0   0   0   0
BRISBANE             0  0  0  0   0   0   0   0  
CARLTON              0  0  0  0   0   0   0   0
COLLINGWOOD          0  0  0  0   0   0   0   0
ESSENDON             0  0  0  0   0   0   0   0
FREEMANTLE           0  0  0  0   0   0   0   0
GEELONG              0  0  0  0   0   0   0   0
HAWTHORN             0  0  0  0   0   0   0   0
MELBOURNE            0  0  0  0   0   0   0   0
N MELBOURNE          0  0  0  0   0   0   0   0      
PT ADELAIDE          0  0  0  0   0   0   0   0
RICHMOND             0  0  0  0   0   0   0   0  
ST KILDA             0  0  0  0   0   0   0   0
SYDNEY               0  0  0  0   0   0   0   0
WEST COAST           0  0  0  0   0   0   0   0
W BULLDOGS           0  0  0  0   0   0   0   0

As the competition progressed, the match details were entered and saved and the subroutine was called to sort the results in decending order ...... championship points being the main criteria, followed by percentage allowing the correct array position for each of the variables

The programme was not written in Dark Basic and I have have no idea whatsoever on how to convert it ...... all I know is it would take much time and effort if at all possible

+ Code Snippet

All the details to set up for a new season would be coded in data statements at the beginning of the programme ...... for example

Title of the competition
Number of rounds and number of teams in the competition
Team names

10 data AFL RECORD 1997
20 data 22,16
30 data ADELAIDE,BRISBANE,CARLTON,COLLINGWOOD,ESSENDON,FREEMANTLE,GEELONG,HAWTHORN,MELBOURNE,N MELBOURNE,PT ADELAIDE,RICHMOND,ST KILDA,SYDNEY,WEST COAST,W BULLDOGS

and read into the programme

160 restore 10:read title$
170 restore 20:read rounds:read teams

then placed in an array

480 dim tn$(teams),pl(teams),w(teams),d(teams),l(teams),pf(teams),pa(teams),pc(teams),cp(teams)

490 for k=1 to teams:read tn$(k):next k
500 print "Team                 P  W  D  L  Pf  Pa  Pc  Cp"
510 for k=1 to teams:print tn$(k);"             ";pl(k);w(k);d(k);l(k);pf(k);pa(k);pc(k);cp(k):next k

Initially, at set up, the league would look like:

Team                 P  W  D  L  Pf  Pa  Pc  Cp
ADELAIDE             0  0  0  0   0   0   0   0
BRISBANE             0  0  0  0   0   0   0   0  
CARLTON              0  0  0  0   0   0   0   0
COLLINGWOOD          0  0  0  0   0   0   0   0
ESSENDON             0  0  0  0   0   0   0   0
FREEMANTLE           0  0  0  0   0   0   0   0
GEELONG              0  0  0  0   0   0   0   0
HAWTHORN             0  0  0  0   0   0   0   0
MELBOURNE            0  0  0  0   0   0   0   0
N MELBOURNE          0  0  0  0   0   0   0   0      
PT ADELAIDE          0  0  0  0   0   0   0   0
RICHMOND             0  0  0  0   0   0   0   0  
ST KILDA             0  0  0  0   0   0   0   0
SYDNEY               0  0  0  0   0   0   0   0
WEST COAST           0  0  0  0   0   0   0   0
W BULLDOGS           0  0  0  0   0   0   0   0

As the competition progressed, the match details were entered and saved and the subroutine was called to sort the results in decending order ...... championship points being the main criteria, followed by percentage allowing the correct array position for each of the variables

The programme was not written in Dark Basic and I have have no idea whatsoever on how to convert it ...... all I know is it would take much time and effort if at all possible

Hope this helps

LANG MEY YER LUM REEK

Progress is like a wheelbarrow. If you don't keep pushing it, it stops

Back to top

Profile PM

gearce

18

Years of Service

User Offline

Joined: 18th Dec 2006

Location: ex SCOTLAND, now MELBOURNE, Australia

Posted: 11th Jun 2008 02:56

Link

Hi DemonHill

Was the snippet of any help?

LANG MEY YER LUM REEK

Progress is like a wheelbarrow. If you don't keep pushing it, it stops

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / Bubblesort for Racing Game - Help Reqd. Pls