Sorry your browser is not supported!

here's my entry:

randomize timer()
sync on:sync rate 0

global name$=""

`make letter arrays
dim consonants$(54)
dim vowels$(41)

`fill arrays with data
restore consonants
for i=0 to 54
   read consonants$(i)
next i
restore vowels
for i=0 to 41
   read vowels$(i)
next i

`generate 100 random names
if file exist("names.txt") then delete file "names.txt"
open to write 1,"names.txt"
for i=1 to 100
   name$=Generate_Name()
   print name$
   write string 1,name$
   sync
   wait key
next i
close file 1

wait key

`function
function Generate_Name()

local letter=0
   local namevar$=""
   local length=0
   length=rnd(3)+4

dim letters$(length)

for i=1 to length
      letter=1-letter
      if letter=1 then letters$(i)=consonants$(rnd(54))
      if letter=0 then letters$(i)=vowels$(rnd(41))
      if letters$(i)="q" and i<length then inc i:letters$(i)="u"
   next i

for i=1 to length
      namevar$=namevar$+letters$(i)
   next i

undim letters$(0)

endfunction namevar$

`data
consonants:
data "b","b","c","c","d","d","d","d","f","f","g","g","g"
data "h","h","j","k","l","l","l","l","m","m"
data "n","n","n","n","n","n","p","p","q","r","r","r","r","r","r"
data "s","s","s","s","t","t","t","t","t","t","v","v","w","w","x","y","z"

vowels:
data "a","a","a","a","a","a","a","a","a"
data "e","e","e","e","e","e","e","e","e","e","e","e"
data "i","i","i","i","i","i","i","i","i"
data "o","o","o","o","o","o","o","o"
data "u","u","u","u"

randomize timer()
sync on:sync rate 0

global name$=""

`make letter arrays
dim consonants$(54)
dim vowels$(41)

`fill arrays with data
restore consonants
for i=0 to 54
   read consonants$(i)
next i
restore vowels
for i=0 to 41
   read vowels$(i)
next i

`generate 100 random names
if file exist("names.txt") then delete file "names.txt"
open to write 1,"names.txt"
for i=1 to 100
   name$=Generate_Name()
   print name$
   write string 1,name$
   sync
   wait key
next i
close file 1

wait key

`function
function Generate_Name()

   local letter=0
   local namevar$=""
   local length=0
   length=rnd(3)+4

   dim letters$(length)

   for i=1 to length
      letter=1-letter
      if letter=1 then letters$(i)=consonants$(rnd(54))
      if letter=0 then letters$(i)=vowels$(rnd(41))
      if letters$(i)="q" and i<length then inc i:letters$(i)="u"
   next i

   for i=1 to length
      namevar$=namevar$+letters$(i)
   next i

   undim letters$(0)

endfunction namevar$

`data
consonants:
data "b","b","c","c","d","d","d","d","f","f","g","g","g"
data "h","h","j","k","l","l","l","l","m","m"
data "n","n","n","n","n","n","p","p","q","r","r","r","r","r","r"
data "s","s","s","s","t","t","t","t","t","t","v","v","w","w","x","y","z"

vowels:
data "a","a","a","a","a","a","a","a","a"
data "e","e","e","e","e","e","e","e","e","e","e","e"
data "i","i","i","i","i","i","i","i","i"
data "o","o","o","o","o","o","o","o"
data "u","u","u","u"

its not very good, but it sort of works. Its really awesome when it actually produces real words

Part of solving the problem is actually noticing that the problem is there in the first place

Back to top

Profile PM Email Website

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 21st Apr 2005 07:20

yes i did Nicholas and i sent you an e-mail on it

and ya i know i should put it in my sig but im kinda lazy so just remember

free iPod at-http://www.freeiPods.com/?r=17350673

My Website:

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 21st Apr 2005 08:01 Edited at: 21st Apr 2005 08:07

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 21st Apr 2005 08:06

@IBOL and Neofish (and anyone else),
Yep. several factors play into that name generator:
1) Quantity of seed names, the more the better.
2) Similarity of seed names. Keeping to a same style of name really helps a lot. Examples: Greek mythos. Zodiac signs. Shakesperian characters. Orc names (Greentooth, bonecrusher, etc.).
3) Sample size (the 'maxsize' variable). I jacked this up to 5000. It was a little slow (not like before). I'll post some results below.
4) I've made a few more tweeks and adjustments

These are loosely based on movie titles (and some of the results could be movie titles), like; Starwars, Logan (Logan's Run), Forest (Forest Gump), Gump (same), etc.

Otust
Ogalact
Edolaboutifell
Alosalo
Sursabeawara
Lentuck
Hash
Yunord
Uhetac
Post
Ullocenamb
Masturpostool
Ettabourdohop
Rogamewent
Esicoth
Ataxer
Lasibl
Hustratounawa
Meauger
Livosic
Rounedirbyelo
Cincicaway
Sellent
Yityome
Utarsel
Sark
Murpungy
Acihel
Neautityarsar
Atamb
Daresp
Locasogashovor
Cabas
Sespelianasi
Licurv
Tarkawa
Yuhomelo
Hurark
Hundala
Utomerbyedi
Ackoolawalers
Xambund
Becitord
Nincambars
Bungomebar
Obasen
Moth
Ukactatiwar
Bemepledgers
Eyubucacehop
Arodurvord
Sostarw
Mundorshool
Amemianars
Yarkarkawa
Amity
Eredaxi
Ogeruck
Zoth
Yashent

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 21st Apr 2005 08:28

I havent even read the latest challenge but Im assuming its something with name creation.

Dont think Im going to enter in this challenge but just a weird freaky idea to put out there...

If you could somehow find the user's IP and..I dunno their host name, you could do something like...

"Someone in your family has the name..." and put the host name

It might be freaky.

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 21st Apr 2005 10:33

Here's my final attempt - all I've got time for unfortunately. Was a good challenge. Added to the code:

- weighted probability of common letters
- exclusion rules to disallow certain final letters like x, j etc.
- forces two vowels after the letter q
- attaches some common word beginnings and endings

randomize timer()

data "e","e","e","e","u","i","i","o","o","a","a","a"
data "q","w","r","r","r","t","t","t","t","y","p","p","s","s","s","s","d","d","f","f","g","g","h","j","k","l","l","l","z","x","c","c","v","b","b","n","n","n","m","m","m"
data "ator","ation","ise","ate","ing","er","ive","ally","full","ode","ous"
data "un","re","dis","de","in","con","pre"

`read vowels
dim vowel$(12)
for n=1 to 12
read vowel$(n)
next n

`read consonants
dim consonant$(41)
for n=1 to 41
read consonant$(n)
next n

`read endings
dim ending$(11)
for n=1 to 11
read ending$(n)
next n

`read beginnings
dim beginning$(7)
for n=1 to 7
read beginning$(n)
next n

numberofwords=10
dim word$(numberofwords)

do

for repeatword=1 to numberofwords

`start word with a consonant
  consonant=1
  vowel=-1

`randomize word length
  numberofletters=3+rnd(7)
  dim letter$(numberofletters)

for repeatletter=1 to numberofletters

`select random consonant
    if consonant=1
      letter$(repeatletter)=consonant$(rnd(40)+1)
    endif

`select random consonant
    if vowel=1
      letter$(repeatletter)=vowel$(rnd(11)+1)
    endif

`****RULES AND EXCLUSIONS****

`prevent word starting with certain letters
if letter$(repeatletter)="x" and repeatletter=1 then dec repeatletter:goto endofloop
`prevent word ending with certain letters
if letter$(repeatletter)="x" or letter$(repeatletter)="j" or letter$(repeatletter)="z" or letter$(repeatletter)="g" or letter$(repeatletter)="u" or letter$(repeatletter)="k" or letter$(repeatletter)="h" and repeatletter=numberofletters then dec repeatletter:goto endofloop

`prevent word ending in q, or penultimate letter being q
if letter$(repeatletter)="q" and repeatletter>numberofletters-2 then dec repeatletter:goto endofloop

`if previous letter is q, make next letter u, and force a second vowel
if letter$(repeatletter-1)="q" then letter$(repeatletter)="u":goto endofloop
`prevent two u's in a row after a q
if letter$(repeatletter-1)="u" and letter$(repeatletter)="u" then dec repeatletter:goto endofloop

`****************************

`allow two syllable six letter words
if numberofletters=6 and repeatletter=3
`do nothing`
else
`alternate between consonant and vowel
consonant=consonant*-1
vowel=vowel*-1
endif

endofloop:

next repeatletter

`build the word from the chosen letters
  word$(repeatword)=""
  for buildword=1 to numberofletters
    word$(repeatword)=word$(repeatword)+letter$(buildword)
  next buildword

`add word endings
  if letter$(numberofletters)="c" then word$(repeatword)=word$(repeatword)+"k"
  if letter$(numberofletters)="v" then word$(repeatword)=word$(repeatword)+"e"
  if numberofletters<8
    end$=ending$(rnd(10)+1)
    if letter$(numberofletters)="r" or letter$(numberofletters)="l" or letter$(numberofletters)="n" or letter$(numberofletters)="s" then word$(repeatword)=word$(repeatword)+end$
    `if vowel=-1 then word$(repeatword)=word$(repeatword)+"ator"
  endif

`add word beginnings
  `if rnd(4)=1
    if numberofletters<8
      begin$=beginning$(rnd(6)+1)
      word$(repeatword)=begin$+word$(repeatword)
    endif
  `endif

print word$(repeatword)

next repeatword

print
print "Press space to regenerate"
print "Press 's' to save to file"

repeat

`save words to file
if inkey$()="s"
  if file exist ("c:\wordgenerator.txt") then delete file "c:\wordgenerator.txt"
  open to write 1,"c:\wordgenerator.txt"
  for repeatword=1 to numberofwords
    write string 1,word$(repeatword)
  next repeatword
  print "Saved as 'c:\wordgenerator.txt'"
  close file 1
  wait 1000
endif

until spacekey()=1
wait 200
cls
loop

randomize timer()

data "e","e","e","e","u","i","i","o","o","a","a","a"
data "q","w","r","r","r","t","t","t","t","y","p","p","s","s","s","s","d","d","f","f","g","g","h","j","k","l","l","l","z","x","c","c","v","b","b","n","n","n","m","m","m"
data "ator","ation","ise","ate","ing","er","ive","ally","full","ode","ous"
data "un","re","dis","de","in","con","pre"

`read vowels
dim vowel$(12)
for n=1 to 12
read vowel$(n)
next n

`read consonants
dim consonant$(41)
for n=1 to 41
read consonant$(n)
next n

`read endings
dim ending$(11)
for n=1 to 11
read ending$(n)
next n

`read beginnings
dim beginning$(7)
for n=1 to 7
read beginning$(n)
next n

numberofwords=10
dim word$(numberofwords)

do

for repeatword=1 to numberofwords

  `start word with a consonant
  consonant=1
  vowel=-1

  `randomize word length
  numberofletters=3+rnd(7)
  dim letter$(numberofletters)

  for repeatletter=1 to numberofletters

    `select random consonant
    if consonant=1
      letter$(repeatletter)=consonant$(rnd(40)+1)
    endif

    `select random consonant
    if vowel=1
      letter$(repeatletter)=vowel$(rnd(11)+1)
    endif

`****RULES AND EXCLUSIONS****

`prevent word starting with certain letters
if letter$(repeatletter)="x" and repeatletter=1 then dec repeatletter:goto endofloop
`prevent word ending with certain letters
if letter$(repeatletter)="x" or letter$(repeatletter)="j" or letter$(repeatletter)="z" or letter$(repeatletter)="g" or letter$(repeatletter)="u" or letter$(repeatletter)="k" or letter$(repeatletter)="h" and repeatletter=numberofletters then dec repeatletter:goto endofloop

`prevent word ending in q, or penultimate letter being q
if letter$(repeatletter)="q" and repeatletter>numberofletters-2 then dec repeatletter:goto endofloop

`if previous letter is q, make next letter u, and force a second vowel
if letter$(repeatletter-1)="q" then letter$(repeatletter)="u":goto endofloop
`prevent two u's in a row after a q
if letter$(repeatletter-1)="u" and letter$(repeatletter)="u" then dec repeatletter:goto endofloop

`****************************

`allow two syllable six letter words
if numberofletters=6 and repeatletter=3
`do nothing`
else
`alternate between consonant and vowel
consonant=consonant*-1
vowel=vowel*-1
endif

endofloop:

  next repeatletter

  `build the word from the chosen letters
  word$(repeatword)=""
  for buildword=1 to numberofletters
    word$(repeatword)=word$(repeatword)+letter$(buildword)
  next buildword

  `add word endings
  if letter$(numberofletters)="c" then word$(repeatword)=word$(repeatword)+"k"
  if letter$(numberofletters)="v" then word$(repeatword)=word$(repeatword)+"e"
  if numberofletters<8
    end$=ending$(rnd(10)+1)
    if letter$(numberofletters)="r" or letter$(numberofletters)="l" or letter$(numberofletters)="n" or letter$(numberofletters)="s" then word$(repeatword)=word$(repeatword)+end$
    `if vowel=-1 then word$(repeatword)=word$(repeatword)+"ator"
  endif

  `add word beginnings
  `if rnd(4)=1
    if numberofletters<8
      begin$=beginning$(rnd(6)+1)
      word$(repeatword)=begin$+word$(repeatword)
    endif
  `endif


  print word$(repeatword)

next repeatword


print
print "Press space to regenerate"
print "Press 's' to save to file"

repeat

`save words to file
if inkey$()="s"
  if file exist ("c:\wordgenerator.txt") then delete file "c:\wordgenerator.txt"
  open to write 1,"c:\wordgenerator.txt"
  for repeatword=1 to numberofwords
    write string 1,word$(repeatword)
  next repeatword
  print "Saved as 'c:\wordgenerator.txt'"
  close file 1
  wait 1000
endif


until spacekey()=1
wait 200
cls
loop

Best word it came up with so far was 'tolalequack'!

Back to top

Profile PM Email Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 21st Apr 2005 12:06

@Ric- lol, that great...but isn't this supposed to be name generation?

"We make the worst games in the universe."

Back to top

Profile PM Email

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 21st Apr 2005 13:23

http://forum.thegamecreators.com/?m=forum_view&t=44054&b=5

@ric,
your program actually produced the word
"Debobenate"
i take offense at that.
bob

do not de-bob-enate !

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 21st Apr 2005 13:36 Edited at: 21st Apr 2005 13:37

lol! Oops - yes, that was a word generator. Here's a place name generator, then:

randomize timer()

data "e","e","e","e","u","i","i","o","o","a","a","a"
data "q","w","r","r","r","t","t","t","t","y","p","p","s","s","s","s","d","d","f","f","g","g","h","j","k","l","l","l","z","x","c","c","v","b","b","n","n","n","m","m","m"
data "dale","vale","ton","by","town","ville","land","ly","ford","gate","chester"

`read vowels
dim vowel$(12)
for n=1 to 12
read vowel$(n)
next n

`read consonants
dim consonant$(41)
for n=1 to 41
read consonant$(n)
next n

`read endings
dim ending$(11)
for n=1 to 11
read ending$(n)
next n

numberofwords=10
dim word$(numberofwords)

do

for repeatword=1 to numberofwords

`start word with a consonant
  consonant=1
  vowel=-1

`randomize word length
  numberofletters=3+rnd(7)
  dim letter$(numberofletters)

for repeatletter=1 to numberofletters

`select random consonant
    if consonant=1
      letter$(repeatletter)=consonant$(rnd(40)+1)
    endif

`select random consonant
    if vowel=1
      letter$(repeatletter)=vowel$(rnd(11)+1)
    endif

`****RULES AND EXCLUSIONS****

`prevent word starting with certain letters
if letter$(repeatletter)="x" and repeatletter=1 then dec repeatletter:goto endofloop
`prevent word ending with certain letters
if letter$(repeatletter)="x" or letter$(repeatletter)="j" or letter$(repeatletter)="z" or letter$(repeatletter)="g" or letter$(repeatletter)="u" or letter$(repeatletter)="k" or letter$(repeatletter)="h" and repeatletter=numberofletters then dec repeatletter:goto endofloop

`prevent word ending in q, or penultimate letter being q
if letter$(repeatletter)="q" and repeatletter>numberofletters-2 then dec repeatletter:goto endofloop

`if previous letter is q, make next letter u, and force a second vowel
if letter$(repeatletter-1)="q" then letter$(repeatletter)="u":goto endofloop
`prevent two u's in a row after a q
if letter$(repeatletter-1)="u" and letter$(repeatletter)="u" then dec repeatletter:goto endofloop

if repeatletter=1 then letter$(repeatletter)=upper$(letter$(repeatletter))
`****************************

`allow two syllable six letter words
if numberofletters=6 and repeatletter=3
`do nothing`
else
`alternate between consonant and vowel
consonant=consonant*-1
vowel=vowel*-1
endif

endofloop:

next repeatletter

`build the word from the chosen letters
  word$(repeatword)=""
  for buildword=1 to numberofletters
    word$(repeatword)=word$(repeatword)+letter$(buildword)
  next buildword

`add word endings
  if letter$(numberofletters)="c" then word$(repeatword)=word$(repeatword)+"k"
  if letter$(numberofletters)="v" then word$(repeatword)=word$(repeatword)+"e"
  if numberofletters<8
    end$=ending$(rnd(10)+1)
    word$(repeatword)=word$(repeatword)+end$
endif

print word$(repeatword)

next repeatword

print
print "Press space to regenerate"
print "Press 's' to save to file"

repeat

`save words to file
if inkey$()="s"
  if file exist ("c:wordgenerator.txt") then delete file "c:wordgenerator.txt"
  open to write 1,"c:wordgenerator.txt"
  for repeatword=1 to numberofwords
    write string 1,word$(repeatword)
  next repeatword
  print "Saved as 'c:wordgenerator.txt'"
  close file 1
  wait 1000
endif

until spacekey()=1
wait 200
cls
loop

randomize timer()

data "e","e","e","e","u","i","i","o","o","a","a","a"
data "q","w","r","r","r","t","t","t","t","y","p","p","s","s","s","s","d","d","f","f","g","g","h","j","k","l","l","l","z","x","c","c","v","b","b","n","n","n","m","m","m"
data "dale","vale","ton","by","town","ville","land","ly","ford","gate","chester"

`read vowels
dim vowel$(12)
for n=1 to 12
read vowel$(n)
next n

`read consonants
dim consonant$(41)
for n=1 to 41
read consonant$(n)
next n

`read endings
dim ending$(11)
for n=1 to 11
read ending$(n)
next n

numberofwords=10
dim word$(numberofwords)

do

for repeatword=1 to numberofwords

  `start word with a consonant
  consonant=1
  vowel=-1

  `randomize word length
  numberofletters=3+rnd(7)
  dim letter$(numberofletters)

  for repeatletter=1 to numberofletters

    `select random consonant
    if consonant=1
      letter$(repeatletter)=consonant$(rnd(40)+1)
    endif

    `select random consonant
    if vowel=1
      letter$(repeatletter)=vowel$(rnd(11)+1)
    endif

`****RULES AND EXCLUSIONS****

`prevent word starting with certain letters
if letter$(repeatletter)="x" and repeatletter=1 then dec repeatletter:goto endofloop
`prevent word ending with certain letters
if letter$(repeatletter)="x" or letter$(repeatletter)="j" or letter$(repeatletter)="z" or letter$(repeatletter)="g" or letter$(repeatletter)="u" or letter$(repeatletter)="k" or letter$(repeatletter)="h" and repeatletter=numberofletters then dec repeatletter:goto endofloop

`prevent word ending in q, or penultimate letter being q
if letter$(repeatletter)="q" and repeatletter>numberofletters-2 then dec repeatletter:goto endofloop

`if previous letter is q, make next letter u, and force a second vowel
if letter$(repeatletter-1)="q" then letter$(repeatletter)="u":goto endofloop
`prevent two u's in a row after a q
if letter$(repeatletter-1)="u" and letter$(repeatletter)="u" then dec repeatletter:goto endofloop

if repeatletter=1 then letter$(repeatletter)=upper$(letter$(repeatletter))
`****************************

`allow two syllable six letter words
if numberofletters=6 and repeatletter=3
`do nothing`
else
`alternate between consonant and vowel
consonant=consonant*-1
vowel=vowel*-1
endif

endofloop:

  next repeatletter

  `build the word from the chosen letters
  word$(repeatword)=""
  for buildword=1 to numberofletters
    word$(repeatword)=word$(repeatword)+letter$(buildword)
  next buildword

  `add word endings
  if letter$(numberofletters)="c" then word$(repeatword)=word$(repeatword)+"k"
  if letter$(numberofletters)="v" then word$(repeatword)=word$(repeatword)+"e"
  if numberofletters<8
    end$=ending$(rnd(10)+1)
    word$(repeatword)=word$(repeatword)+end$
endif



  print word$(repeatword)

next repeatword


print
print "Press space to regenerate"
print "Press 's' to save to file"

repeat

`save words to file
if inkey$()="s"
  if file exist ("c:wordgenerator.txt") then delete file "c:wordgenerator.txt"
  open to write 1,"c:wordgenerator.txt"
  for repeatword=1 to numberofwords
    write string 1,word$(repeatword)
  next repeatword
  print "Saved as 'c:wordgenerator.txt'"
  close file 1
  wait 1000
endif


until spacekey()=1
wait 200
cls
loop

Back to top

Profile PM Email Website

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 21st Apr 2005 20:32 Edited at: 21st Apr 2005 20:48

Hi all. heres my latest entry. not finished yet but i decided to approach the problem using syllables instead of plain letters. at the moment its not working nicely but its ok

when is the dead line?

set display mode 800,600,32
sync on : sync rate 0 : sync : sync
set text font "verdana" : set text size 16
seed = timer() : randomize seed
#constant vowelMax = 15
data "a","a","a","a","e","e","e","e","i","o","o","o","u","ea","ie","ee"
#constant consonantMax = 28
data "b","c","d","f","g","h","j","k","l","m","m","m","m","n","n","n","n","p","r","s","t","t","t","t","w","ph","th","tr","br"
#constant softMax = 6
data "h","r","m","m","m","m","s"
#constant lastMax = 2
data "d","m","n"
dim vowel(vowelMax) as string
dim consonant(consonantMax) as string
dim soft(softMax) as string
dim last(lastMax) as string
for datIndex = 0 to vowelMax : read vowel(datIndex) : next datIndex
for datIndex = 0 to consonantMax : read consonant(datIndex) :next datIndex
for datIndex = 0 to softMax : read soft(datIndex) : next datIndex
for datIndex = 0 to lastMax : read last(datIndex) : next datIndex
do
   ink rgb(255,0,0),0 : print "Random Seed: ",seed
   for nameNum = 1 to 33
      for col = 1 to 3
         ink rgb(0,128,255),0
         name$ = makeName(2 + rnd(1)) : lastName$ = makeName(2 + rnd(1))
         if name$ = "tomu" || name$ = "tom" then ink rgb(255,128,0),0
         center text 200 * col , 50 + nameNum * 15 , upper$(left$(name$,1)) + right$(name$,len(name$)-1) + " " +  upper$(left$(lastName$,1)) + right$(lastName$,len(lastName$)-1)
      next col
   next nameNum
   ink rgb(255,255,255),0 : center text 400 , 50 + ( 1 + nameNum ) * 15 , "press any key to regenerate!"
   sync : wait key : cls
loop
function makeName( syllables )
   for sylN = 1 to syllables
      repeat
         if lastLength > 0
            if lastLetter = 1
               length = 2 + rnd(1)
               if length = 2
                  choice = 1
               else
                  choice = rnd(1)
               endif
            else
               length = 2 + rnd(1)
               choice = 0
            endif
            if length = 2
               if rnd(1) = 1 && lastLetter = 1
                  length = 3
                  choice = 1
               endif
            endif
            if sylN = syllables
               if rnd(0) = 0
                  if lastLetter = 1
                     length = 1
                     choice = 1
                  else
                     length = 1
                     choice = 0
                  endif
               endif
            endif
         else
            length = 2 + rnd(1)
            choice = rnd(1)
         endif
      until length <> lastLength || (sylN = syllables && length = 1)
      lastLength = length
      repeat
         vowelA$ = vowel( rnd(vowelMax) ) : vowelB$ = vowel( rnd(vowelMax) )
         consonant$ = consonant( rnd(consonantMax) )
         soft$ = soft( rnd(softMax) )
         harsh$ = consonant( rnd(consonantMax) )
         last$ = last( rnd(lastMax) )
         same = (consonant$ = soft$) || ( sylN < syllables && vowelA$ = "ie" ) || (sylN < syllables && soft$ = "s") || (lastVowel$ = vowelA$) || (len(harsh$) < 2) || ((sylN = 1 && length = 2) && (choice = 0 && len(vowelA$) > 1))
         same = same || (len(consonant$) > 1) || (len(lastVowel$) = 2 && len(vowelA$) = 2) || (right$(harsh$,1) = vowelA$) || (len(vowelA$) = 2 && len(vowelB$) = 2) || (sylN = syllables && consonant$ = "j")
         same = same || (lastConsonent$ = "f" && consonant$ = "ph") || (lastConsonent$ = "ph" && consonant$ = "f")
      until same = 0
      lastVowelA$ = vowelA$
      lastConsonant$ = consonant$
      select length
         case 1
            if choice = 1
               syllable$ = last$
            else
               syllable$ = vowelA$
            endif
         endcase
         case 2
            if choice = 1
               syllable$ = consonant$ + vowelA$
            else
               syllable$ = vowelA$ + consonant$
            endif
         endcase
         case 3
            if choice = 1
               syllable$ = consonant$ + vowelA$ + soft$
            else
               syllable$ = harsh$ + vowelA$
            endif
         endcase
      endselect
      name$ = name$ + syllable$
      lastLetter$ = right$(name$,1) : lastLetter = lastLetter$ = "a" || lastLetter$ = "e" || lastLetter$ = "i" || lastLetter$ = "o" || lastLetter$ = "u"
   next sylN
endfunction name$

set display mode 800,600,32
sync on : sync rate 0 : sync : sync
set text font "verdana" : set text size 16
seed = timer() : randomize seed
#constant vowelMax = 15
data "a","a","a","a","e","e","e","e","i","o","o","o","u","ea","ie","ee"
#constant consonantMax = 28
data "b","c","d","f","g","h","j","k","l","m","m","m","m","n","n","n","n","p","r","s","t","t","t","t","w","ph","th","tr","br"
#constant softMax = 6
data "h","r","m","m","m","m","s"
#constant lastMax = 2
data "d","m","n"
dim vowel(vowelMax) as string
dim consonant(consonantMax) as string
dim soft(softMax) as string
dim last(lastMax) as string
for datIndex = 0 to vowelMax : read vowel(datIndex) : next datIndex
for datIndex = 0 to consonantMax : read consonant(datIndex) :next datIndex
for datIndex = 0 to softMax : read soft(datIndex) : next datIndex
for datIndex = 0 to lastMax : read last(datIndex) : next datIndex
do
   ink rgb(255,0,0),0 : print "Random Seed: ",seed
   for nameNum = 1 to 33
      for col = 1 to 3
         ink rgb(0,128,255),0
         name$ = makeName(2 + rnd(1)) : lastName$ = makeName(2 + rnd(1))
         if name$ = "tomu" || name$ = "tom" then ink rgb(255,128,0),0
         center text 200 * col , 50 + nameNum * 15 , upper$(left$(name$,1)) + right$(name$,len(name$)-1) + " " +  upper$(left$(lastName$,1)) + right$(lastName$,len(lastName$)-1)
      next col
   next nameNum
   ink rgb(255,255,255),0 : center text 400 , 50 + ( 1 + nameNum ) * 15 , "press any key to regenerate!"
   sync : wait key : cls
loop
function makeName( syllables )
   for sylN = 1 to syllables
      repeat
         if lastLength > 0
            if lastLetter = 1
               length = 2 + rnd(1)
               if length = 2
                  choice = 1
               else
                  choice = rnd(1)
               endif
            else
               length = 2 + rnd(1)
               choice = 0
            endif
            if length = 2
               if rnd(1) = 1 && lastLetter = 1
                  length = 3
                  choice = 1
               endif
            endif
            if sylN = syllables
               if rnd(0) = 0
                  if lastLetter = 1
                     length = 1
                     choice = 1
                  else
                     length = 1
                     choice = 0
                  endif
               endif
            endif
         else
            length = 2 + rnd(1)
            choice = rnd(1)
         endif
      until length <> lastLength || (sylN = syllables && length = 1)
      lastLength = length
      repeat
         vowelA$ = vowel( rnd(vowelMax) ) : vowelB$ = vowel( rnd(vowelMax) )
         consonant$ = consonant( rnd(consonantMax) )
         soft$ = soft( rnd(softMax) )
         harsh$ = consonant( rnd(consonantMax) )
         last$ = last( rnd(lastMax) )
         same = (consonant$ = soft$) || ( sylN < syllables && vowelA$ = "ie" ) || (sylN < syllables && soft$ = "s") || (lastVowel$ = vowelA$) || (len(harsh$) < 2) || ((sylN = 1 && length = 2) && (choice = 0 && len(vowelA$) > 1))
         same = same || (len(consonant$) > 1) || (len(lastVowel$) = 2 && len(vowelA$) = 2) || (right$(harsh$,1) = vowelA$) || (len(vowelA$) = 2 && len(vowelB$) = 2) || (sylN = syllables && consonant$ = "j")
         same = same || (lastConsonent$ = "f" && consonant$ = "ph") || (lastConsonent$ = "ph" && consonant$ = "f")
      until same = 0
      lastVowelA$ = vowelA$
      lastConsonant$ = consonant$
      select length
         case 1
            if choice = 1
               syllable$ = last$
            else
               syllable$ = vowelA$
            endif
         endcase
         case 2
            if choice = 1
               syllable$ = consonant$ + vowelA$
            else
               syllable$ = vowelA$ + consonant$
            endif
         endcase
         case 3
            if choice = 1
               syllable$ = consonant$ + vowelA$ + soft$
            else
               syllable$ = harsh$ + vowelA$
            endif
         endcase
      endselect
      name$ = name$ + syllable$
      lastLetter$ = right$(name$,1) : lastLetter = lastLetter$ = "a" || lastLetter$ = "e" || lastLetter$ = "i" || lastLetter$ = "o" || lastLetter$ = "u"
   next sylN
endfunction name$

Tomu.

ps. my game is now up on my website (as advertised in signature

)
check it out, i appreciate any feedback

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 22nd Apr 2005 01:17

Great work Tomu! I like the syllable approach. Good results too.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 22nd Apr 2005 02:44

dead line is today at 4:00 EST i think

not bad names!

"We make the worst games in the universe."

Back to top

Profile PM Email

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 22nd Apr 2005 04:39

http://forum.thegamecreators.com/?m=forum_view&t=44054&b=5

yes, this ends today.

tomu, that's a really good entry.
looking thru your code, i noticed that
lastconsonAnt was spelled lastconsonEnt in 2 places (line 80),
but NOT where it's value was assigned...
i changed it, but it didn't seem to make much difference.

over soon...
bob

Back to top

Profile PM Email Website

xCept

21

Years of Service

User Offline

Joined: 15th Dec 2002

Location:

Posted: 22nd Apr 2005 04:53 Edited at: 22nd Apr 2005 04:54

Hi all,

Just wanted to say I am really enjoying this thread. I hardly get a chance to surf these forums and just stumbled upon this thread yesterday. I've gone through every single code snippet for each contest and am highly impressed by many of the submissions. I look forward to contests in the future and plan on entering some of them.

Back to top

Profile PM Email Website

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 22nd Apr 2005 05:52 Edited at: 22nd Apr 2005 05:53

Hi all heres my final entry. only change is the ability to save to a file. i also changed the erroneous variable names (thanks bob)

set display mode 800,600,32
sync on : sync rate 0 : sync : sync
set text font "verdana" : set text size 16
seed = timer() : randomize seed
#constant vowelMax = 15
data "a","a","a","a","e","e","e","e","i","o","o","o","u","ea","ie","ee"
#constant consonantMax = 28
data "b","c","d","f","g","h","j","k","l","m","m","m","m","n","n","n","n","p","r","s","t","t","t","t","w","ph","th","tr","br"
#constant softMax = 6
data "h","r","m","m","m","m","s"
#constant lastMax = 2
data "d","m","n"
dim vowel(vowelMax) as string
dim consonant(consonantMax) as string
dim soft(softMax) as string
dim last(lastMax) as string
for datIndex = 0 to vowelMax : read vowel(datIndex) : next datIndex
for datIndex = 0 to consonantMax : read consonant(datIndex) :next datIndex
for datIndex = 0 to softMax : read soft(datIndex) : next datIndex
for datIndex = 0 to lastMax : read last(datIndex) : next datIndex

if file exist("tomuNames.txt") then delete file "tomuNames.txt"
open to write 1,"tomuNames.txt"
   repeat
      ink rgb(255,0,0),0 : print "Random Seed: ",seed
      for nameNum = 1 to 30
         for col = 1 to 3
            ink rgb(0,128,255),0
            name$ = makeName(2 + rnd(1)) : lastName$ = makeName(2 + rnd(1))
            if name$ = "tomu" || name$ = "tom" then ink rgb(255,128,0),0
            center text 200 * col , 50 + nameNum * 15 , upper$(left$(name$,1)) + right$(name$,len(name$)-1) + " " +  upper$(left$(lastName$,1)) + right$(lastName$,len(lastName$)-1)
            write string 1 , upper$(left$(name$,1)) + right$(name$,len(name$)-1) + " " +  upper$(left$(lastName$,1)) + right$(lastName$,len(lastName$)-1)
         next col
      next nameNum
      ink rgb(255,255,255),0 : center text 400 , 50 + ( 1 + nameNum ) * 15 , "press "q" to quit. other entry to continue generating"
      set cursor 200 , 50 + ( 3 + nameNum ) * 15 : input answer$
      sync
      cls
   until answer$ = "q"
close file 1
function makeName( syllables )
   for sylN = 1 to syllables
      repeat
         if lastLength > 0
            if lastLetter = 1
               length = 2 + rnd(1)
               if length = 2
                  choice = 1
               else
                  choice = rnd(1)
               endif
            else
               length = 2 + rnd(1)
               choice = 0
            endif
            if length = 2
               if rnd(1) = 1 && lastLetter = 1
                  length = 3
                  choice = 1
               endif
            endif
            if sylN = syllables
               if rnd(0) = 0
                  if lastLetter = 1
                     length = 1
                     choice = 1
                  else
                     length = 1
                     choice = 0
                  endif
               endif
            endif
         else
            length = 2 + rnd(1)
            choice = rnd(1)
         endif
      until length <> lastLength || (sylN = syllables && length = 1)
      lastLength = length
      repeat
         vowelA$ = vowel( rnd(vowelMax) ) : vowelB$ = vowel( rnd(vowelMax) )
         consonant$ = consonant( rnd(consonantMax) )
         soft$ = soft( rnd(softMax) )
         harsh$ = consonant( rnd(consonantMax) )
         last$ = last( rnd(lastMax) )
         same = (consonant$ = soft$) || ( sylN < syllables && vowelA$ = "ie" ) || (sylN < syllables && soft$ = "s") || (lastVowel$ = vowelA$) || (len(harsh$) < 2) || ((sylN = 1 && length = 2) && (choice = 0 && len(vowelA$) > 1))
         same = same || (len(consonant$) > 1) || (len(lastVowel$) = 2 && len(vowelA$) = 2) || (right$(harsh$,1) = vowelA$) || (len(vowelA$) = 2 && len(vowelB$) = 2) || (sylN = syllables && consonant$ = "j")
         same = same || (lastConsonant$ = "f" && consonant$ = "ph") || (lastConsonant$ = "ph" && consonant$ = "f")
      until same = 0
      lastVowelA$ = vowelA$
      lastConsonant$ = consonant$
      select length
         case 1
            if choice = 1
               syllable$ = last$
            else
               syllable$ = vowelA$
            endif
         endcase
         case 2
            if choice = 1
               syllable$ = consonant$ + vowelA$
            else
               syllable$ = vowelA$ + consonant$
            endif
         endcase
         case 3
            if choice = 1
               syllable$ = consonant$ + vowelA$ + soft$
            else
               syllable$ = harsh$ + vowelA$
            endif
         endcase
      endselect
      name$ = name$ + syllable$
      lastLetter$ = right$(name$,1) : lastLetter = lastLetter$ = "a" || lastLetter$ = "e" || lastLetter$ = "i" || lastLetter$ = "o" || lastLetter$ = "u"
   next sylN
endfunction name$

set display mode 800,600,32
sync on : sync rate 0 : sync : sync
set text font "verdana" : set text size 16
seed = timer() : randomize seed
#constant vowelMax = 15
data "a","a","a","a","e","e","e","e","i","o","o","o","u","ea","ie","ee"
#constant consonantMax = 28
data "b","c","d","f","g","h","j","k","l","m","m","m","m","n","n","n","n","p","r","s","t","t","t","t","w","ph","th","tr","br"
#constant softMax = 6
data "h","r","m","m","m","m","s"
#constant lastMax = 2
data "d","m","n"
dim vowel(vowelMax) as string
dim consonant(consonantMax) as string
dim soft(softMax) as string
dim last(lastMax) as string
for datIndex = 0 to vowelMax : read vowel(datIndex) : next datIndex
for datIndex = 0 to consonantMax : read consonant(datIndex) :next datIndex
for datIndex = 0 to softMax : read soft(datIndex) : next datIndex
for datIndex = 0 to lastMax : read last(datIndex) : next datIndex

if file exist("tomuNames.txt") then delete file "tomuNames.txt"
open to write 1,"tomuNames.txt"
   repeat
      ink rgb(255,0,0),0 : print "Random Seed: ",seed
      for nameNum = 1 to 30
         for col = 1 to 3
            ink rgb(0,128,255),0
            name$ = makeName(2 + rnd(1)) : lastName$ = makeName(2 + rnd(1))
            if name$ = "tomu" || name$ = "tom" then ink rgb(255,128,0),0
            center text 200 * col , 50 + nameNum * 15 , upper$(left$(name$,1)) + right$(name$,len(name$)-1) + " " +  upper$(left$(lastName$,1)) + right$(lastName$,len(lastName$)-1)
            write string 1 , upper$(left$(name$,1)) + right$(name$,len(name$)-1) + " " +  upper$(left$(lastName$,1)) + right$(lastName$,len(lastName$)-1)
         next col
      next nameNum
      ink rgb(255,255,255),0 : center text 400 , 50 + ( 1 + nameNum ) * 15 , "press "q" to quit. other entry to continue generating"
      set cursor 200 , 50 + ( 3 + nameNum ) * 15 : input answer$
      sync
      cls
   until answer$ = "q"
close file 1
function makeName( syllables )
   for sylN = 1 to syllables
      repeat
         if lastLength > 0
            if lastLetter = 1
               length = 2 + rnd(1)
               if length = 2
                  choice = 1
               else
                  choice = rnd(1)
               endif
            else
               length = 2 + rnd(1)
               choice = 0
            endif
            if length = 2
               if rnd(1) = 1 && lastLetter = 1
                  length = 3
                  choice = 1
               endif
            endif
            if sylN = syllables
               if rnd(0) = 0
                  if lastLetter = 1
                     length = 1
                     choice = 1
                  else
                     length = 1
                     choice = 0
                  endif
               endif
            endif
         else
            length = 2 + rnd(1)
            choice = rnd(1)
         endif
      until length <> lastLength || (sylN = syllables && length = 1)
      lastLength = length
      repeat
         vowelA$ = vowel( rnd(vowelMax) ) : vowelB$ = vowel( rnd(vowelMax) )
         consonant$ = consonant( rnd(consonantMax) )
         soft$ = soft( rnd(softMax) )
         harsh$ = consonant( rnd(consonantMax) )
         last$ = last( rnd(lastMax) )
         same = (consonant$ = soft$) || ( sylN < syllables && vowelA$ = "ie" ) || (sylN < syllables && soft$ = "s") || (lastVowel$ = vowelA$) || (len(harsh$) < 2) || ((sylN = 1 && length = 2) && (choice = 0 && len(vowelA$) > 1))
         same = same || (len(consonant$) > 1) || (len(lastVowel$) = 2 && len(vowelA$) = 2) || (right$(harsh$,1) = vowelA$) || (len(vowelA$) = 2 && len(vowelB$) = 2) || (sylN = syllables && consonant$ = "j")
         same = same || (lastConsonant$ = "f" && consonant$ = "ph") || (lastConsonant$ = "ph" && consonant$ = "f")
      until same = 0
      lastVowelA$ = vowelA$
      lastConsonant$ = consonant$
      select length
         case 1
            if choice = 1
               syllable$ = last$
            else
               syllable$ = vowelA$
            endif
         endcase
         case 2
            if choice = 1
               syllable$ = consonant$ + vowelA$
            else
               syllable$ = vowelA$ + consonant$
            endif
         endcase
         case 3
            if choice = 1
               syllable$ = consonant$ + vowelA$ + soft$
            else
               syllable$ = harsh$ + vowelA$
            endif
         endcase
      endselect
      name$ = name$ + syllable$
      lastLetter$ = right$(name$,1) : lastLetter = lastLetter$ = "a" || lastLetter$ = "e" || lastLetter$ = "i" || lastLetter$ = "o" || lastLetter$ = "u"
   next sylN
endfunction name$

tomu.

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 22nd Apr 2005 06:09

http://forum.thegamecreators.com/?m=forum_view&t=44054&b=5

all right y'all,
the official deadline is here...
i will begin judging.
please be patient...i need to figure out whether
i'm going to work today...
bob

Back to top

Profile PM Email Website

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 22nd Apr 2005 07:37

WOW thats awesome TOMU i vote for him

and remember:

free iPod at-http://www.freeiPods.com/?r=17350673

My Website:

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 22nd Apr 2005 08:50

and the winner is:

...TOMU!...

because

his program came up with by far the most believable names...
BUT i must confess, there are reasons for that that i did not
actually intend or forsee...
tomu's names sound best because they are shorter and paired.
it's harder to mess up short words, and together they sound like
names of star wars characters.
his name generation was not that different from anyone else's.
i never even thought about making PROPER names for people/aliens,
but it really is within the scope of the challenge.
good job tomu. also provided save option.

the runner up is

riidii

because

http://forum.thegamecreators.com/?m=forum_view&t=44054&b=5

he had the most interesting way of generating names.
it used input from the user to create a seed file (which you can save)
and made words from that.

so, winner,
the next challenge is up to you.
what do you want us to try next?

bob

Back to top

Profile PM Email Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 22nd Apr 2005 08:52

was mine at least a good try?

"We make the worst games in the universe."

Back to top

Profile PM Email

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 22nd Apr 2005 08:57

yay!

thankyou for voting for me

i will think of a new challenge and post it later tonight.

im gonna have to sift through all the old posts to know whats already been set

Tomu.

Back to top

Profile PM Email Website

Philip

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: United Kingdom

Posted: 22nd Apr 2005 09:06

Its up to Tomu to set the challenge but I was wondering if I could suggest two for Tomu to consider?

1. Best blackhole effect.
2. Best effect that produces a galaxy image (I've been trying for ages to write code that will make particles group into spiral galaxies - without much success!)

Philip

Cheer if you like bears! Vote Conservative and save the Country!
P3.2ghz / 1 gig / GeForce FX 5900 128meg / WinXP home

Back to top

Profile PM Email

that dude

20

Years of Service

User Offline

Joined: 1st Jan 2004

Location: USA

Posted: 22nd Apr 2005 09:26

man those are great suggestions...

http://www.nuclearglory.com/?u=fearik = sweet as hell collision system. easy on that leather thing in your back pocket too.
the left side of my head isn't bigger, the right side is just smaller

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 22nd Apr 2005 09:33

http://forum.thegamecreators.com/?m=forum_view&t=44054&b=5

peter,
i was going to give you honorable mention,
especially for your configurability,
but then i thought that i'd have to just go on down the line
rating every one's and that seemed extreme.
but yes,i quite liked it.
ric yours too.
and the other guys.

i think we all had an interesting time with this,
and it might some in handy for lots of us.

bob

Back to top

Profile PM Email Website

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 22nd Apr 2005 09:49 Edited at: 22nd Apr 2005 09:59

Taking the suggestions into consideration here is my proposal for the next challenge:

Space Race:

make a spaceship racing game.

possible concepts:

- gravitational forces from planets and blackholes could interfere with the ships trajectory

- ai could be developed to race against (just an idea)

- maybe powerups or weapons?

- the inverse square law used in my breakout may be useful?

- inverse square law = ( 1 / distance ) * force

- look at asteroids (the game) maybe this concept could be mutated?

entries will be marked on:

1. fun factor - (gameplay)
2. interesting code - (physics , slick coding)
3. graphics - (a moving star system in the background? up to you)
4. creativeness - Impress me

(note: if you really hate space games - then racing anywhere else is fine

)

starts : 01:00 am (GMT - london) - 22nd april
ends : 10:00pm (GMT - london) - 29th april

is a week too long? I dont know...?

is this alright or has it already been done?

again. this may need to be confirmed by ric

@phillip:
here is a quick galaxy drawer i just put together. dunno if its any help to you but hey

set display mode 800,600,32
sync on : sync rate 0
sync : sync

#constant particleMax = 30
#constant size = 100
#constant twist = 3

type vector
   angle as float
   radius as float
   x as float
   y as float
endtype

dim particles(particleMax) as vector
for particleNum = 0 to particleMax
   dec long,1
   if long < 0 then long = 3
   particles(particleNum).angle = (359.0 / particleMax) * particleNum
   particles(particleNum).radius = size + long * 50
   particles(particleNum).x = (screen width()/2) + sin(particles(particleNum).angle) * particles(particleNum).radius
   particles(particleNum).y = (screen height()/2) + cos(particles(particleNum).angle) * particles(particleNum).radius / 2
   dot particles(particleNum).x , particles(particleNum).y , rgb(128 + long * 127,128 + long * 127,128 + long * 127)
next particleNum

for tail = 1 to size
   for particleNum = 0 to particleMax
      dec particles(particleNum).angle , twist
      dec particles(particleNum).radius , 3
      if particles(particleNum).radius < 5 then particles(particleNum).radius = 5
      particles(particleNum).x = (screen width()/2) + sin(particles(particleNum).angle) * particles(particleNum).radius
      particles(particleNum).y = (screen height()/2) + cos(particles(particleNum).angle) * particles(particleNum).radius / 2
      dot particles(particleNum).x , particles(particleNum).y , rgb(255,255,255)
   next particleNum
next tail

sync
wait key

set display mode 800,600,32
sync on : sync rate 0
sync : sync

#constant particleMax = 30
#constant size = 100
#constant twist = 3

type vector
   angle as float
   radius as float
   x as float
   y as float
endtype

dim particles(particleMax) as vector
for particleNum = 0 to particleMax
   dec long,1
   if long < 0 then long = 3
   particles(particleNum).angle = (359.0 / particleMax) * particleNum
   particles(particleNum).radius = size + long * 50
   particles(particleNum).x = (screen width()/2) + sin(particles(particleNum).angle) * particles(particleNum).radius
   particles(particleNum).y = (screen height()/2) + cos(particles(particleNum).angle) * particles(particleNum).radius / 2
   dot particles(particleNum).x , particles(particleNum).y , rgb(128 + long * 127,128 + long * 127,128 + long * 127)
next particleNum

for tail = 1 to size
   for particleNum = 0 to particleMax
      dec particles(particleNum).angle , twist
      dec particles(particleNum).radius , 3
      if particles(particleNum).radius < 5 then particles(particleNum).radius = 5
      particles(particleNum).x = (screen width()/2) + sin(particles(particleNum).angle) * particles(particleNum).radius
      particles(particleNum).y = (screen height()/2) + cos(particles(particleNum).angle) * particles(particleNum).radius / 2
      dot particles(particleNum).x , particles(particleNum).y , rgb(255,255,255)
   next particleNum
next tail

sync
wait key

@everyOne else:

Hints:
- i would use vectors to hold the positions of the ships and affect these by forces dependent on thrust and/or gravity ect.

have fun

Tomu.

Back to top

Profile PM Email Website

xCept

21

Years of Service

User Offline

Joined: 15th Dec 2002

Location:

Posted: 22nd Apr 2005 10:02 Edited at: 22nd Apr 2005 10:03

Quote: "make a spaceship racing game."

I'm just a noob here and have never yet participated in a competition, so don't take my word for more than a grain of salt. But I appreciate testing and learning from "tech demos" and other "specific snippet" challenges rather than full-fledged games. This is also one of the guidelines Ric created regarding this competition:

---
Once you have a theme, think of a specific task within that theme which you want entrants to achieve. The task probably won’t be to create a fully fledged game – it should be more like a code snippet, which may be useful in a bigger project. See the table below for examples. Remember that this is something which should be achievable within a few days, and that doesn’t mean working 24 hours a day on it – most of us have work/school/a life too!
---

Back to top

Profile PM Email Website

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 22nd Apr 2005 10:20 Edited at: 22nd Apr 2005 14:07

Alternative Challenge:

<edit> I decided to go with the original challenge

Tomu

Back to top

Profile PM Email Website

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 22nd Apr 2005 11:31

i like them both perhaps ppl could do either or try something new in the challenge but than it would be hard to decide who is the winner i think we should stick with the racing game perhaps ppl can go to the code base and get the 'bones' of a code than add to that??

free iPod at-http://www.freeiPods.com/?r=17350673

My Website:

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 22nd Apr 2005 11:37

aw man. Last night I had an idea about breaking the names down into syllables. (mom's an english teacher, her idea) I've been gone all friggin day and didn't get a chance to try it out.

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 22nd Apr 2005 15:07

http://forum.thegamecreators.com/?m=forum_view&t=44054&b=5

phaelax,
i'd still be interesting in seeing what you come up with for that...

space race...

i've been cranking out 20-Liners lately...
maybe i can fit this in...
i've never actually tried physics...

bob

Back to top

Profile PM Email Website

Erick G

Retired Moderator

20

Years of Service

User Offline

Joined: 2nd Oct 2004

Location: Texas, USA

Posted: 22nd Apr 2005 17:28

when is the due date, i am so tied up atm.

Back to top

Profile PM

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 22nd Apr 2005 18:25

can someone please show me how to use DBP's vectors?

Quote: "This command will create a VECTOR3 data item. Unlike the datatypes you are used to, these datatypes are
stored internally and referenced by an index value. The VECTOR3 datatype contains three float values
representing X, Y and Z. This datatype is typically used to store 3D world space coordinates.

SYNTAX
Return Integer=MAKE VECTOR3(Vector)"

so yeah, that tells you a little about it
but not how to use it

my understanding of a vector is
'a direction with a force/speed'

so i could understand the theoretical vector
3,4,5
which should move you 3 in the X direction, 4 in the Y, and 5 in the Z.

but how do you use DBP vectors to do this?

bob

http://astrumgames.com
completed games: Astrum Erus, Centipoid, WarpFlight, Higher Ground

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 22nd Apr 2005 18:37

null = make vector3(1)
set vector3 1, x, y, z

Basically...

Now THIS challenge ROCKS

I have an idea already - It involves that screensaver/GraviKill game I made a while back

My Website:

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 22nd Apr 2005 18:54

this is NOT an entry, but is something using that
inverse square law...a bunch of spheres 'accrete'...
gather together due to their own gravitation.

 sync on
 sync rate 30
 set display mode 800,600,32
 randomize timer()
 color backdrop 0
 hide mouse

for t=100 to 199
 make object sphere t,3+rnd(9)
 position object t,rnd(500)-250,rnd(500)-250,rnd(500)-250
next t

position camera -200,0,-200
point camera 0,0,0

do

control camera using arrowkeys 0,5,2

for tt=100 to 199
 for t=100 to 199
  if t<>tt
d#=disob(tt,t)
   if d#>25.0
  point object tt,object position x(t),object position y(t),object position z(t)
  f#=object size(t)
  a#=(1.0/d#)*f#
  move object tt,a#/2
   endif
 endif
 next t
next tt

text 0,0,str$(screen fps())
sync
loop

FUNCTION DISOB(A,B)
X#=OBJECT POSITION X(A)
Y#=OBJECT POSITION Y(A)
Z#=OBJECT POSITION Z(A)
DX#=OBJECT POSITION X(B)
DY#=OBJECT POSITION Y(B)
DZ#=OBJECT POSITION Z(B)
DIST#=SQRT(((X#-DX#)^2)+((Y#-DY#)^2)+((Z#-DZ#)^2))
ENDFUNCTION DIST#

@nicholas,
that doesn't help.
do you use the null, or if it really is null, why bother with it?
what do you do with the vector after you 'set' it?

i'll need to see some simple example code. (i'm not asking you
specifically nicholas...it's just what i'll need)

think about some aspect of coding that you know nothing about,
and what you would need to learn about it.

thanks,
bob

http://astrumgames.com
completed games: Astrum Erus, Centipoid, WarpFlight, Higher Ground

Back to top

Profile PM Email Website

Philip

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: United Kingdom

Posted: 22nd Apr 2005 19:32

@IBOL

I can do better than explain how that command works. I can in fact give you a complete incredibly detailed tutorial as to how all the vector commands in DBPro work!! Hurrah!

http://www.kentaree-studios.com/Tutorials/Vectors/

Thats my famous vector tutorial. I'm quite proud of it, so I am.

Philip

Cheer if you like bears! Vote Conservative and save the Country!
P3.2ghz / 1 gig / GeForce FX 5900 128meg / WinXP home

Back to top

Profile PM Email

Erick G

Retired Moderator

20

Years of Service

User Offline

Joined: 2nd Oct 2004

Location: Texas, USA

Posted: 22nd Apr 2005 19:34

damn I am blind, i see it end on the 29th, sorry dudes !

Back to top

Profile PM

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 22nd Apr 2005 20:31

@IBOL:
Seriously - use Philips Vector tutorial - it helped me

When I said "null" thats just a name i use for a variable I dont need. I dont think "NULL" actually exists in DBP Does it?

I wanna go home and work on this

My Website:

Back to top

Profile PM Email Website

Philip

21

Years of Service

User Offline

Joined: 15th Jun 2003

Location: United Kingdom

Posted: 22nd Apr 2005 22:38

Odd. Theres something wrong with the vector tutorial at Kentaree's website. It doesn't seem to be showing all the pages and the left and right arrows are missing.

Is Kentaree still in the forums?

Philip

Cheer if you like bears! Vote Conservative and save the Country!
P3.2ghz / 1 gig / GeForce FX 5900 128meg / WinXP home

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 22nd Apr 2005 23:30

looks fine to me

My Website:

Back to top

Profile PM Email Website

Peter H

20

Years of Service

User Offline

Joined: 20th Feb 2004

Location: Witness Protection Program

Posted: 23rd Apr 2005 00:25

BTW philip in your last tutorial it kinda leaves you hanging

Quote: "In the next section we'll build on the ideas explained above to produce a 3D space radar of the sort seen in games like Elite and the Starwraith series.
"

"We make the worst games in the universe."

Back to top

Profile PM Email

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 23rd Apr 2005 00:49 Edited at: 23rd Apr 2005 01:06

hi all, glad to see your exploring the wonders of vectors.

what i usually do i allways make a user defined type:

type vector
   x as float
   y as float
   z as float
endtype

just to hold vectors without having to make a vector3 until i need to use their calculations.

things to research about vectors include:

- vector dot products

- transformation matrices to rotate , scale , and translate vectors (can use homogenous coordinates)

- vector cross prducts.

here is a code snippet i made which you can use to rotate a vector

use left and right to control the dot

set display mode 800,600,32
sync on : sync rate 30
sync : sync

`example of use

init3dMath()

type vector
   x as float
   y as float
   z as float
endtype

type ship
   position as vector
   direction as vector
endtype

spaceracer as ship

spaceracer.position.x = 400
spaceracer.position.y = 300
spaceracer.position.z = 0
spaceracer.direction.x = 0
spaceracer.direction.y = -2
spaceracer.direction.z = 0

do
   inc yAng# , leftkey() - rightkey()
   rotateVector3(spaceracer.direction.x,spaceracer.direction.y,spaceracer.direction.z , 0,0,yAng#)
   spaceracer.direction.x = vector3(0,1)
   spaceracer.direction.y = vector3(0,2)
   spaceracer.direction.z = vector3(0,3)
   inc spaceracer.position.x , spaceracer.direction.x
   inc spaceracer.position.y , spaceracer.direction.y
   inc spaceracer.position.z , spaceracer.direction.z
   dot spaceracer.position.x , spaceracer.position.y , rgb(255,0,0)
   sync
loop

`--------------------------------- 3D MATH LIBRARY ---------------------------------

`initialise3dMath - call at start of program

function init3dMath()
   dim matrix4(1,4,4) as float
   dim vector3(1,4) as float
endfunction

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 3

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e
`rx ry rz = angles which the vector is to be rotated by
`vx vy vz = vector to rotate
`after calling this function you can acces the result by grabbing the specified array posiition in vector(0,xyz)

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

set display mode 800,600,32
sync on : sync rate 30
sync : sync

`example of use

init3dMath()

type vector
   x as float
   y as float
   z as float
endtype

type ship
   position as vector
   direction as vector
endtype

spaceracer as ship

spaceracer.position.x = 400
spaceracer.position.y = 300
spaceracer.position.z = 0
spaceracer.direction.x = 0
spaceracer.direction.y = -2
spaceracer.direction.z = 0

do
   inc yAng# , leftkey() - rightkey()
   rotateVector3(spaceracer.direction.x,spaceracer.direction.y,spaceracer.direction.z , 0,0,yAng#)
   spaceracer.direction.x = vector3(0,1)
   spaceracer.direction.y = vector3(0,2)
   spaceracer.direction.z = vector3(0,3)
   inc spaceracer.position.x , spaceracer.direction.x
   inc spaceracer.position.y , spaceracer.direction.y
   inc spaceracer.position.z , spaceracer.direction.z
   dot spaceracer.position.x , spaceracer.position.y , rgb(255,0,0)
   sync
loop

`--------------------------------- 3D MATH LIBRARY ---------------------------------

`initialise3dMath - call at start of program

function init3dMath()
   dim matrix4(1,4,4) as float
   dim vector3(1,4) as float
endfunction

`function to make a matrix 4

function makeMatrix4(matNum,ax#,ay#,az#,aw#,bx#,by#,bz#,bw#,cx#,cy#,cz#,cw#,dx#,dy#,dz#,dw#)
   matrix4(matNum,1,1) = ax#
   matrix4(matNum,1,2) = ay#
   matrix4(matNum,1,3) = az#
   matrix4(matNum,1,4) = aw#
   matrix4(matNum,2,1) = bx#
   matrix4(matNum,2,2) = by#
   matrix4(matNum,2,3) = bz#
   matrix4(matNum,2,4) = bw#
   matrix4(matNum,3,1) = cx#
   matrix4(matNum,3,2) = cy#
   matrix4(matNum,3,3) = cz#
   matrix4(matNum,3,4) = cw#
   matrix4(matNum,4,1) = dx#
   matrix4(matNum,4,2) = dy#
   matrix4(matNum,4,3) = dz#
   matrix4(matNum,4,4) = dw#
endfunction

`function to make a vector 3

function makeVector3(vecNum,x#,y#,z#)
   vector3(vecNum,1) = x#
   vector3(vecNum,2) = y#
   vector3(vecNum,3) = z#
   vector3(vecNum,4) = 1
endfunction

`function to rotate a movement vector by an x y z ang;e
`rx ry rz = angles which the vector is to be rotated by
`vx vy vz = vector to rotate
`after calling this function you can acces the result by grabbing the specified array posiition in vector(0,xyz)

function rotateVector3(vx#,vy#,vz#,rx#,ry#,rz#)
   vecNum = 1
   matNum = 1
   ax# = (COS(rz#)*COS(ry#))+(SIN(rz#)*SIN(rx#)*SIN(ry#))
   ay# = (SIN(rz#)*COS(ry#))-(COS(rz#)*SIN(rx#)*SIN(ry#))
   az# = COS(rx#)*SIN(ry#)
   bx# = -(SIN(rz#)*COS(rx#))
   by# = COS(rz#)*COS(rx#)
   bz# = SIN(rx#)
   cx# = (SIN(rz#)*SIN(rx#)*COS(ry#))-(COS(rz#)*SIN(ry#))
   cy# = -(COS(rz#)*SIN(rx#)*COS(ry#))-(SIN(rz#)*SIN(ry#))
   cz# = COS(rx#)*COS(ry#)
   dw# = 1.0
   makeVector3(vecNum,vx#,vy#,vz#)
   makeMatrix4(matNum,ax#,ay#,az#,0,bx#,by#,bz#,0,cx#,cy#,cz#,0,0,0,0,dw#)
   `matrix multiplication in homogenous coordinates
   for i = 1 to 4
      inc resultX#,(matrix4(matNum,1,i)*vector3(vecNum,i))
      inc resultY#,(matrix4(matNum,2,i)*vector3(vecNum,i))
      inc resultZ#,(matrix4(matNum,3,i)*vector3(vecNum,i))
      inc resultW#,(matrix4(matNum,4,i)*vector3(vecNum,i))
   next i
   makeVector3(0,resultX#,resultY#,resultZ#)
endfunction

all these things can help find vectors which are really useful.

maths rules

ps. i like your sphere gravitation thing bob. very cool

Tomu.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 23rd Apr 2005 01:13

Quote: "When I said "null" thats just a name i use for a variable I dont need. I dont think "NULL" actually exists in DBP Does it?
"

nope it doesn't, but i use null as well.

I got a great idea, but its gonna look so stupid without any media files.

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 23rd Apr 2005 05:03

i am going thru philip's tutorial now...
thanks,
bob

http://astrumgames.com
completed games: Astrum Erus, Centipoid, Hero Of Garaven, WarpFlight, Higher Ground , Circular Breakout

Back to top

Profile PM Email Website

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 23rd Apr 2005 05:26

go for it bob.

i usually use "notneeded = makevector3(vectorNum)"

cos its such a pointless thing to ask for a return value from a vector creation! oh and you also have to do it when deleting them:

notneeded = delete vector3(vectorNum)

Tomu.

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 23rd Apr 2005 05:50

@Tomu: Congratulations on winning the last challenge - nice coding. Your new challenge sounds fun - I love racing games! And it's great to see people learning about vectors in order to help them with this challenge.

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 23rd Apr 2005 08:34 Edited at: 23rd Apr 2005 08:35

Congratulations Tomu!!

Sounds like a tough-fun challenge. I don't know if I have enough time to enter. I'm going to give it a shot though.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 23rd Apr 2005 09:19 Edited at: 23rd Apr 2005 11:08

Ok, here is my work so far..

Basically, there is a randomly generate galaxy with planets numbered 1 to 5. Each planet has a checkpoint on the opposite side of it to the next planet (this means you can often get nice slingshots).

Currently, there is only 1 player and you just do laps.

I;ve spent only 10 mins tweaking the gravity and stuff, but its pretty good fun so far.

set display mode 800, 600, 32
sync on
sync rate 0
randomize timer()
backdrop on
color backdrop rgb(0,0,0)
set ambient light 10
set directional light 0, 1, -5, 1

#constant SPHERE_COUNT 5
#constant SPHERE_MASS 10.0

autocam off
y# = 20.0
position camera 0, 20, 0
point camera 0,0,0
set camera fov 45
aspect# = screen width()* (1.0 / screen height())
S_HEIGHT# = (tan(22.5) * 20.0) * 2.0
S_WIDTH# = S_HEIGHT# * aspect#

Type Coord
   x#
   y#
   z#
EndType

Dim Spheres(SPHERE_COUNT) as Coord
for i = 1 to SPHERE_COUNT
   tests = 0
   while SpherePositionOk(i) = 0 OR tests = 0
      inc tests
      Spheres(i).x# = (rnd(S_WIDTH# * 600.0) - (S_WIDTH# * 300.0)) * 0.001
      Spheres(i).y# = 0.0
      Spheres(i).z# = (rnd(S_HEIGHT# * 600.0) - (S_HEIGHT# * 300.0)) * 0.001
   endwhile

make object sphere i, 1.0, 32, 32
   position object i, Spheres(i).x#, Spheres(i).y#, Spheres(i).z#
   color object i, rgb(255.0, 0.0, 0.0)
next i

Dim Targets(SPHERE_COUNT) as Coord
active_target = rnd(SPHERE_COUNT-1)+1

for i = 1 to SPHERE_COUNT
   if i < SPHERE_COUNT
      a# = atanfull(Spheres(i).x# - Spheres(i+1).x#, Spheres(i).z# - Spheres(i+1).z#)
   else
      a# = atanfull(Spheres(i).x# - Spheres(1).x#, Spheres(i).z# - Spheres(1).z#)
   endif

Targets(i).x# = Spheres(i).x# + (1.75 * sin(a#))
   Targets(i).y# = 0.0
   Targets(i).z# = Spheres(i).z# + (1.75 * cos(a#))

obj = i + SPHERE_COUNT
   make object sphere obj, 0.5, 32, 32
   set object cull obj, 0
   position object obj, Targets(i).x#, Targets(i).y#, Targets(i).z#
   if i = active_target
      color object obj, rgb(255.0, 255.0, 0.0)
   else
      color object obj, rgb(32.0, 32.0, 0.0)
   endif
next i

Type PlayerData
   x#
   z#
   sX#
   sZ#
   angle#
   turnRate#
   speed#
   mass#

ThrustKey
   LeftTurnKey
   RightTurnKey
EndType
#constant NUM_PLAYERS 1

Dim Player(NUM_PLAYERS) as PlayerData
for i = 1 to NUM_PLAYERS
   obj = i + 99
   make object cone obj, 0.5
   color object obj, rgb(128, 128, 255)
   position object obj, Targets(active_target).x#, Targets(active_target).y#, Targets(active_target).z#
   scale object obj, 50, 50, 100
   rotate limb obj, 0, 90, 0, 0

Player(i).x# = Targets(active_target).x#
   Player(i).z# = Targets(active_target).z#
   Player(i).angle# = 0.0
   Player(i).turnRate# = 0.0
   Player(i).speed# = 0.0
   Player(i).mass# = 10.0

select i
      case 1
         `Player 1 controls
         Player(1).ThrustKey = 57      :`Space
         Player(1).LeftTurnKey = 203   :`Left Arrow
         Player(1).RightTurnKey = 205  :`Right Arrow
      endcase
   endselect
next i

`Used for sphere distance
null = make vector2(1)

`Framerate movement stuff
frameTime# = 1.0
startTime = timer()
`Main loop
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "FPS: " + str$(screen fps())

for i = 1 to SPHERE_COUNT
      center text object screen x(i), object screen y(i), str$(i)
   next i

gosub DO_PLAYER_STUFF

sync
loop
end

DO_PLAYER_STUFF:
for i = 1 to NUM_PLAYERS
   obj = i + 99

if keystate(Player(i).ThrustKey)    then acc# = 4.0 else acc# = 0.0
   if keystate(Player(i).LeftTurnKey)
      Player(i).turnRate# = curvevalue(-0.360, Player(i).turnRate#, 500.0 / frameTime#)
   else
      if keystate(Player(i).RightTurnKey)
         Player(i).turnRate# = curvevalue(0.360, Player(i).turnRate#, 500.0 / frameTime#)
      else
         `niether direction being pressed
         Player(i).turnRate# = curvevalue(0.0, Player(i).turnRate#, 100.0 / frameTime#)
      endif
   endif

inc Player(i).angle#, Player(i).turnRate# * frameTime#
   text 10, 30, "turnRate: " + str$(Player(i).turnRate#)

if object collision(obj, active_target + SPHERE_COUNT)
      inc active_target
      if active_target > SPHERE_COUNT then active_target = 1
      for j = 1 to SPHERE_COUNT
         t_obj = j + SPHERE_COUNT
         if j = active_target
            color object t_obj, rgb(255.0, 255.0, 0.0)
         else
            color object t_obj, rgb(32.0, 32.0, 0.0)
         endif
      next j
   endif

`Update speed based on angle and if thrusting
   inc Player(i).sX#, sin(Player(i).angle#) * acc# * frameTime# * 0.001
   inc Player(i).sZ#, cos(Player(i).angle#) * acc# * frameTime# * 0.001

`Update Speed based on gravity effect
   fX# = 0.0 : fZ# = 0.0
   for j = 1 to SPHERE_COUNT
      DistX# = Spheres(j).x# - Player(i).x#
      DistZ# = Spheres(j).z# - Player(i).z#
      set vector2 1, DistX#, DistZ#
      Dist# = length vector2(1)
      if Dist# < 1.0 then Dist# = 1.0

`XZ Components of Grav
      Grav# = SPHERE_MASS * Player(i).mass# / (Dist# * Dist#) * 0.5
      xGrav# = Grav# * DistX# / Dist#
      zGrav# = Grav# * DistZ# / Dist#

inc fX#, xGrav#
      inc fZ#, zGrav#
   next j
   inc Player(i).sX#, (fX# / SPHERE_MASS) * frameTime# * 0.001
   inc Player(i).sZ#, (fZ# / SPHERE_MASS) * frameTime# * 0.001

`Update position based on overall speed
   inc Player(i).x#, Player(i).sX# * frameTime# * 0.001
   inc Player(i).z#, Player(i).sZ# * frameTime# * 0.001

`Check of off the left or right
   if Player(i).x# < -(S_WIDTH#*0.5)
      Player(i).x# = S_WIDTH#*0.5
   else
      if Player(i).x# > S_WIDTH#*0.5
         Player(i).x# = -S_WIDTH#*0.5
      endif
   endif

`Check if off top or bottom
   if Player(i).z# < -(S_HEIGHT#*0.5)
      Player(i).z# = S_HEIGHT#*0.5
   else
      if Player(i).z# > S_HEIGHT#*0.5
         Player(i).z# = -S_HEIGHT#*0.5
      endif
   endif

position object obj, Player(i).x#, object position y(obj), Player(i).z#
   yrotate object obj, Player(i).angle#

next i
return

function SpherePositionOk(j)
   null = make vector3(1)
   for i = 1 to j-1
      set vector3 1, Spheres(j).x# - Spheres(i).x#, Spheres(j).y# - Spheres(i).y#, Spheres(j).z# - Spheres(i).z#
      if length vector3(1) < 3.0
         null = delete vector3(1)
         exitfunction 0
      endif
   next j
   null = delete vector3(1)
endfunction 1

function rgba(r as integer,g as integer,b as integer,a as integer)
  colour as dword
  colour = (b)+(g*256)+(r*65536)+(a*16777216)
endfunction colour

set display mode 800, 600, 32
sync on
sync rate 0
randomize timer()
backdrop on
color backdrop rgb(0,0,0)
set ambient light 10
set directional light 0, 1, -5, 1


#constant SPHERE_COUNT 5
#constant SPHERE_MASS 10.0

autocam off
y# = 20.0
position camera 0, 20, 0
point camera 0,0,0
set camera fov 45
aspect# = screen width()* (1.0 / screen height())
S_HEIGHT# = (tan(22.5) * 20.0) * 2.0
S_WIDTH# = S_HEIGHT# * aspect#



Type Coord
   x#
   y#
   z#
EndType

Dim Spheres(SPHERE_COUNT) as Coord
for i = 1 to SPHERE_COUNT
   tests = 0
   while SpherePositionOk(i) = 0 OR tests = 0
      inc tests
      Spheres(i).x# = (rnd(S_WIDTH# * 600.0) - (S_WIDTH# * 300.0)) * 0.001
      Spheres(i).y# = 0.0
      Spheres(i).z# = (rnd(S_HEIGHT# * 600.0) - (S_HEIGHT# * 300.0)) * 0.001
   endwhile

   make object sphere i, 1.0, 32, 32
   position object i, Spheres(i).x#, Spheres(i).y#, Spheres(i).z#
   color object i, rgb(255.0, 0.0, 0.0)
next i



Dim Targets(SPHERE_COUNT) as Coord
active_target = rnd(SPHERE_COUNT-1)+1

for i = 1 to SPHERE_COUNT
   if i < SPHERE_COUNT
      a# = atanfull(Spheres(i).x# - Spheres(i+1).x#, Spheres(i).z# - Spheres(i+1).z#)
   else
      a# = atanfull(Spheres(i).x# - Spheres(1).x#, Spheres(i).z# - Spheres(1).z#)
   endif

   Targets(i).x# = Spheres(i).x# + (1.75 * sin(a#))
   Targets(i).y# = 0.0
   Targets(i).z# = Spheres(i).z# + (1.75 * cos(a#))

   obj = i + SPHERE_COUNT
   make object sphere obj, 0.5, 32, 32
   set object cull obj, 0
   position object obj, Targets(i).x#, Targets(i).y#, Targets(i).z#
   if i = active_target
      color object obj, rgb(255.0, 255.0, 0.0)
   else
      color object obj, rgb(32.0, 32.0, 0.0)
   endif
next i



Type PlayerData
   x#
   z#
   sX#
   sZ#
   angle#
   turnRate#
   speed#
   mass#

   ThrustKey
   LeftTurnKey
   RightTurnKey
EndType
#constant NUM_PLAYERS 1

Dim Player(NUM_PLAYERS) as PlayerData
for i = 1 to NUM_PLAYERS
   obj = i + 99
   make object cone obj, 0.5
   color object obj, rgb(128, 128, 255)
   position object obj, Targets(active_target).x#, Targets(active_target).y#, Targets(active_target).z#
   scale object obj, 50, 50, 100
   rotate limb obj, 0, 90, 0, 0

   Player(i).x# = Targets(active_target).x#
   Player(i).z# = Targets(active_target).z#
   Player(i).angle# = 0.0
   Player(i).turnRate# = 0.0
   Player(i).speed# = 0.0
   Player(i).mass# = 10.0

   select i
      case 1
         `Player 1 controls
         Player(1).ThrustKey = 57      :`Space
         Player(1).LeftTurnKey = 203   :`Left Arrow
         Player(1).RightTurnKey = 205  :`Right Arrow
      endcase
   endselect
next i




`Used for sphere distance
null = make vector2(1)

`Framerate movement stuff
frameTime# = 1.0
startTime = timer()
`Main loop
do
   frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2)
   startTime = timer()
   text 10, 10, "FPS: " + str$(screen fps())

   for i = 1 to SPHERE_COUNT
      center text object screen x(i), object screen y(i), str$(i)
   next i

   gosub DO_PLAYER_STUFF

   sync
loop
end




DO_PLAYER_STUFF:
for i = 1 to NUM_PLAYERS
   obj = i + 99

   if keystate(Player(i).ThrustKey)    then acc# = 4.0 else acc# = 0.0
   if keystate(Player(i).LeftTurnKey)
      Player(i).turnRate# = curvevalue(-0.360, Player(i).turnRate#, 500.0 / frameTime#)
   else
      if keystate(Player(i).RightTurnKey)
         Player(i).turnRate# = curvevalue(0.360, Player(i).turnRate#, 500.0 / frameTime#)
      else
         `niether direction being pressed
         Player(i).turnRate# = curvevalue(0.0, Player(i).turnRate#, 100.0 / frameTime#)
      endif
   endif

   inc Player(i).angle#, Player(i).turnRate# * frameTime#
   text 10, 30, "turnRate: " + str$(Player(i).turnRate#)

   if object collision(obj, active_target + SPHERE_COUNT)
      inc active_target
      if active_target > SPHERE_COUNT then active_target = 1
      for j = 1 to SPHERE_COUNT
         t_obj = j + SPHERE_COUNT
         if j = active_target
            color object t_obj, rgb(255.0, 255.0, 0.0)
         else
            color object t_obj, rgb(32.0, 32.0, 0.0)
         endif
      next j
   endif




   `Update speed based on angle and if thrusting
   inc Player(i).sX#, sin(Player(i).angle#) * acc# * frameTime# * 0.001
   inc Player(i).sZ#, cos(Player(i).angle#) * acc# * frameTime# * 0.001

   `Update Speed based on gravity effect
   fX# = 0.0 : fZ# = 0.0
   for j = 1 to SPHERE_COUNT
      DistX# = Spheres(j).x# - Player(i).x#
      DistZ# = Spheres(j).z# - Player(i).z#
      set vector2 1, DistX#, DistZ#
      Dist# = length vector2(1)
      if Dist# < 1.0 then Dist# = 1.0

      `XZ Components of Grav
      Grav# = SPHERE_MASS * Player(i).mass# / (Dist# * Dist#) * 0.5
      xGrav# = Grav# * DistX# / Dist#
      zGrav# = Grav# * DistZ# / Dist#

      inc fX#, xGrav#
      inc fZ#, zGrav#
   next j
   inc Player(i).sX#, (fX# / SPHERE_MASS) * frameTime# * 0.001
   inc Player(i).sZ#, (fZ# / SPHERE_MASS) * frameTime# * 0.001


   `Update position based on overall speed
   inc Player(i).x#, Player(i).sX# * frameTime# * 0.001
   inc Player(i).z#, Player(i).sZ# * frameTime# * 0.001

   `Check of off the left or right
   if Player(i).x# < -(S_WIDTH#*0.5)
      Player(i).x# = S_WIDTH#*0.5
   else
      if Player(i).x# > S_WIDTH#*0.5
         Player(i).x# = -S_WIDTH#*0.5
      endif
   endif





   `Check if off top or bottom
   if Player(i).z# < -(S_HEIGHT#*0.5)
      Player(i).z# = S_HEIGHT#*0.5
   else
      if Player(i).z# > S_HEIGHT#*0.5
         Player(i).z# = -S_HEIGHT#*0.5
      endif
   endif

   position object obj, Player(i).x#, object position y(obj), Player(i).z#
   yrotate object obj, Player(i).angle#

next i
return



















function SpherePositionOk(j)
   null = make vector3(1)
   for i = 1 to j-1
      set vector3 1, Spheres(j).x# - Spheres(i).x#, Spheres(j).y# - Spheres(i).y#, Spheres(j).z# - Spheres(i).z#
      if length vector3(1) < 3.0
         null = delete vector3(1)
         exitfunction 0
      endif
   next j
   null = delete vector3(1)
endfunction 1




function rgba(r as integer,g as integer,b as integer,a as integer)
  colour as dword
  colour = (b)+(g*256)+(r*65536)+(a*16777216)
endfunction colour

Things to do:

Collisions with planets - I'm thinking its puts you back at the last check point.

Lap times. How long does it take you to do a lap?

Multiplayer - sharing the keyboard, you race to the next checkpoint. Each checkpoint gives you a point. I dont think racing in the traditional sense would work so well with this, but opinions would be appreciated.

MAYBE moving planets with orbiting checkpoints - although this would negate the point of the slingshot checkpoint..

Anywho - Lemme know what you think

I dont think its bad for 90mins work (with a 4 hour pub break in the middle

)

My Website:

Back to top

Profile PM Email Website

Tomu

20

Years of Service

User Offline

Joined: 27th Jan 2004

Location: Block C Flat 2 Room 8

Posted: 23rd Apr 2005 12:49 Edited at: 23rd Apr 2005 12:49

very nice start there nicholas

good idea with the slingshot concept

Quote: "function rgba(r as integer,g as integer,b as integer,a as integer)
colour as dword
colour = (b)+(g*256)+(r*65536)+(a*16777216)
endfunction colour"

lol dont trust the db command either?

alternative method used in other languages is:

function rgba(r as integer,g as integer,b as integer,a as integer)
  colour as dword
  colour = a << 24 || r << 16 || g << 8 || b
endfunction colour

this is used more often as it uses bit shifting and is pretty much exactly what u did but more "formal"

nice to see good use of vectors

Tomu.

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 23rd Apr 2005 20:49

Hehe.. Yeah, I use that function as it includes alpha. I might move onto your one - might be more efficient, who knows!

My Website:

Back to top

Profile PM Email Website

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 25th Apr 2005 01:22

Its all gone quiet :-(

My Website:

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 25th Apr 2005 01:29