- DBPro Coding Challenges - - GameCreators Forum

Author

Message

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 6th Mar 2007 11:13

Link

Seems to be a mismatch between what is displayed in the thread, and what it says on the main board. Well, as I'm not counting them all from the beginning, I'd say we're on 5000 somewhere around here, and that'll do! It's a big milestone, and a fantastic achievement which really shows what a great community this is.

Deadline tomorrow I think .... better try and get my entry finished!

Back to top

Profile PM Email Website

gadgetfreak 66

19

Years of Service

User Offline

Joined: 26th Sep 2006

Location: Kulin,WA, Australia

Posted: 6th Mar 2007 14:01

Link

Funny how many people have decided to do shmups, isn't it? Anyway, heres my contribution:

sync on
sync rate 20

set display mode 600,400,16
set text font ("courier")
basesize=16
largesize=20
smallsize=10
set text size basesize

ink rgb(0,255,0),rgb(0,0,0)

count=0
while text width(s$)< screen width()
s$=s$+"0"
count=count+1
endwhile

width=count-1

cwidth=text width("0")
cheight=text height ("0")

height=(screen height()/cheight)-2

set text size largesize
pulseoffset=(text width("0")-cwidth)/2
set text size basesize

set text size smallsize
virusoffset=(text width("0")-cwidth)/2
set text size basesize

dim lines$(width,height)

youx=width/2
youy=height
dim pulsex(0)
dim pulsey(0)
pulses=0
dim virusx(0)
dim virusy(0)
dim virushealth(0)
viruses=0
dim civx(0)
dim civy(0)
dim civhealth(0)
civs=0

youhealth=255

refresh=0
virmove=0
civmove=0
virspeed=5
start=timer()
score=0
addscore=0
addtime=0
noscore=0
prevtime=0

do

cls

time=((timer()-start)/100)
  if time>100
    if time>200
      if time>400
        if time>600
          if time>900
            if time>1200
              if time>1800
              else
                virspeed=1
              endif
            else
              virspeed=2
            endif
          else
            virspeed=3
          endif
        else
          virspeed=4
        endif
      else
        virspeed=5
      endif
    else
      virspeed=6
    endif
  else
    virspeed=7
  endif
  atxt$=""
  if noscore>0 then noscore=noscore-(time-prevtime)
  if addtime>0
    atxt$=" +"+str$(addscore)
    addtime=addtime-(time-prevtime)
  endif

if time>prevtime
    if noscore=0 then score=score+(time-prevtime)
    prevtime=time
  endif

txt$="Score: "+str$(score)+atxt$

if noscore>0 then txt$="NO SCORE"
  ink rgb(255,255,255),rgb(0,0,0)
  text cwidth*2,cheight*(height+1),txt$
  text cwidth*(width-18),cheight*(height+1),"HEALTH: "+str$(int(((youhealth-100.0)/155.0)*100.0))+"%"
  if spacekey()=0
    if (leftkey()) AND (youx>1)
    youx=youx-1
    endif

if (rightkey()) AND (youx<width-1)
    youx=youx+1
    endif

if (upkey()) AND (youy>3)
    youy=youy-1
    endif

if (downkey()) AND (youy<height)
    youy=youy+1
    endif
  endif

keyspace=0
  if spacekey()
    if space=0 then keyspace=1
    space=1
  else
  space=0
  endif

if spacekey() AND (pulses<10)
    array insert at bottom pulsex()
    array insert at bottom pulsey()
    pulses=pulses+1
    pulsex(pulses)=youx
    pulsey(pulses)=youy-2

endif

if (viruses<5) AND (rnd(50+(7*virspeed))=1)
    array insert at bottom virusx()
    array insert at bottom virusy()
    array insert at bottom virushealth()
    viruses=viruses+1
    virusx(viruses)=rnd(width-2)+1
    virusy(viruses)=1
    virushealth(viruses)=255
  endif

if (civs<5) AND (rnd(50+(7*virspeed))=1)
    array insert at bottom civx()
    array insert at bottom civy()
    array insert at bottom civhealth()
    civs=civs+1
    civx(civs)=rnd(width-2)+1
    civy(civs)=1
    civhealth(civs)=255
  endif

if virmove>virspeed
    virmove=0
    for count=1 to viruses
      select rnd(2)
        case 0
          if virusx(count)>1 then virusx(count)=virusx(count)-1
        endcase
        case 1
          if virusx(count)<width-1 then virusx(count)=virusx(count)+1
        endcase
      endselect
          if sqrt(((virusx(count)-youx)*(virusx(count)-youx))+((virusy(count)-youy)*(virusy(count)-youy)))<20
            if virusx(count)>youx then youx=youx+1
            if virusx(count)<youx then youx=youx-1
            if virusy(count)>youy then youy=youy+1
            if virusy(count)<youy then youy=youy-1
            if (youy>virusy(count)-3) AND (youy<virusy(count)+3)
              if (youx>virusx(count)-3) AND (youx<virusx(count)+3)
                youhealth=youhealth-4
              endif
            endif
          endif
      virusy(count)=virusy(count)+1
    next count
  endif

if civmove>5
    civmove=0
    for count=1 to civs
      for countb=1 to viruses
        if sqrt(((civx(count)-virusx(countb))*(civx(count)-virusx(countb)))+((civy(count)-virusy(countb))*(civy(count)-virusy(countb))))<20
          if virusx(countb)>civx(count) then civx(count)=civx(count)+1
          if virusx(countb)<civx(count) then civx(count)=civx(count)-1
          if virusy(countb)>civy(count) then civy(count)=civy(count)+1
          if virusy(countb)<civy(count) then civy(count)=civy(count)-1
          if (civy(count)>virusy(countb)-3) AND (civy(count)<virusy(countb)+3)
            if (civx(count)>virusx(countb)-3) AND (civx(count)<virusx(countb)+3)
              civhealth(count)=civhealth(count)-20
            endif
          endif
        endif
      next countb
      civy(count)=civy(count)+1
    next count
  endif

ink rgb(0,255,0),rgb(0,0,0)
  if refresh>6
    for county=0 to height
      line$=""
      for countx=0 to width
        c$=str$(int(rnd(2)-0.01))
        line$=line$+c$
        lines$(countx,county)=c$
      next countx
      text 0,county*cheight,line$
    next county
    refresh=0
  else
    for county=0 to height
      line$=""
      for countx=0 to width
        line$=line$+lines$(countx,county)
      next countx
      text 0,county*cheight,line$
    next county
  endif

for count=1 to civs
    if civy(count)<height-1
      ink rgb(0,0,0),rgb(0,0,0)

box ((civx(count)-1)*cwidth),((civy(count)-1)*cheight),((civx(count)+2)*cwidth),((civy(count)+2)*cheight)

ink rgb((100.0/255.0)*civhealth(count),200,civhealth(count)),rgb(0,0,0)

text (civx(count)-1)*cwidth,(civy(count)-1)*cheight,lines$(civx(count)-1,civy(count)-1)
        text (civx(count)-1)*cwidth,(civy(count))*cheight,lines$(civx(count)-1,civy(count))
        text (civx(count)-1)*cwidth,(civy(count)+1)*cheight,lines$(civx(count)-1,civy(count)+1)
        text (civx(count)+1)*cwidth,(civy(count)-1)*cheight,lines$(civx(count)-1,civy(count)-1)
        text (civx(count)+1)*cwidth,(civy(count))*cheight,lines$(civx(count)-1,civy(count))
        text (civx(count)+1)*cwidth,(civy(count)+1)*cheight,lines$(civx(count)-1,civy(count)+1)

ink rgb((100.0/255.0)*civhealth(count),100,civhealth(count)),rgb(0,0,0)
        text civx(count)*cwidth,(civy(count)-1)*cheight,lines$(civx(count),civy(count)-1)
        text civx(count)*cwidth,(civy(count))*cheight,lines$(civx(count),civy(count))
        text civx(count)*cwidth,(civy(count)+1)*cheight,lines$(civx(count),civy(count)+1)

set text size basesize
        if civhealth(count)<0
          array delete element civx(),count
          array delete element civy(),count
          array delete element civhealth(),count
          civs=civs-1
          count=count-1
          noscore=50

endif
    else
      array delete element civx(),count
      array delete element civy(),count
      array delete element civhealth(),count
      civs=civs-1
      count=count-1
    endif
  next count

for count=1 to viruses
    if virusy(count)<height-1
      ink rgb(0,0,0),rgb(0,0,0)
      box ((virusx(count))*cwidth),((virusy(count)-1)*cheight),((virusx(count)+1)*cwidth),((virusy(count))*cheight)
      box ((virusx(count)-1)*cwidth),((virusy(count))*cheight),((virusx(count)+2)*cwidth),((virusy(count)+1)*cheight)
      box ((virusx(count))*cwidth),((virusy(count)+1)*cheight),((virusx(count)+1)*cwidth),((virusy(count)+2)*cheight)
      ink rgb(255,255-virushealth(count),255-virushealth(count)),rgb(0,0,0)
      set text size smallsize
      text ((virusx(count))*cwidth)-virusoffset,(virusy(count)-1)*cheight,lines$(virusx(count),virusy(count)-1)
      text ((virusx(count)-1)*cwidth)-(virusoffset*3),(virusy(count))*cheight,lines$(virusx(count)-1,virusy(count))+lines$(virusx(count),virusy(count))+lines$(virusx(count)+1,virusy(count))
      text ((virusx(count))*cwidth)-virusoffset,(virusy(count)+1)*cheight,lines$(virusx(count),virusy(count)+1)
      set text size basesize
      if virushealth(count)<0
        array delete element virusx(),count
        array delete element virusy(),count
        array delete element virushealth(),count
        viruses=viruses-1
        count=count-1
        if noscore=0
          addscore=500
          score=score+500
          addtime=10
        endif
      endif
    else
      array delete element virusx(),count
      array delete element virusy(),count
      array delete element virushealth(),count
      viruses=viruses-1
      count=count-1
    endif
  next count

for count=1 to pulses
    if pulsey(count)>0
      ink rgb(0,0,0),rgb(0,0,0)
      box ((pulsex(count)-1)*cwidth),((pulsey(count)-1)*cheight),((pulsex(count)+2)*cwidth),((pulsey(count))*cheight)
      ink rgb(150,255,150),rgb(0,0,0)
      set text size largesize
      text ((pulsex(count)-1)*cwidth)-(pulseoffset*3),(pulsey(count)-1)*cheight,lines$(pulsex(count)-1,pulsey(count)-1)+lines$(pulsex(count),pulsey(count)-1)+lines$(pulsex(count)+1,pulsey(count)-1)
      set text size basesize

hittingvirus=0
      for countb=1 to viruses
        if (pulsey(count)>virusy(countb)-4) AND (pulsey(count)<virusy(countb)+3)
          if (pulsex(count)>virusx(countb)-3) AND (pulsex(count)<virusx(countb)+3)
            hittingvirus=1
            array delete element pulsex(),count
            array delete element pulsey(),count
            pulses=pulses-1
            count=count-1
            virushealth(countb)=virushealth(countb)-30
          endif
        endif
      next countb

if hittingvirus=0
        for countb=1 to civs
          if (pulsey(count)>civy(countb)-3) AND (pulsey(count)<civy(countb)+2)
            if (pulsex(count)>civx(countb)-3) AND (pulsex(count)<civx(countb)+3)
              array delete element pulsex(),count
              array delete element pulsey(),count
              pulses=pulses-1
              count=count-1
              civhealth(countb)=civhealth(countb)-15
            endif
          endif
        next countb
      endif

pulsey(count)=pulsey(count)-1
    else
      array delete element pulsex(),count
      array delete element pulsey(),count
      pulses=pulses-1
      count=count-1
    endif
  next count

ink rgb(0,0,0),rgb(0,0,0)

box ((youx-1)*cwidth),((youy-1)*cheight),((youx+2)*cwidth),((youy+1)*cheight)

ink rgb((100.0/255.0)*youhealth,255,(100.0/255.0)*youhealth),rgb(0,0,0)
    text (youx-1)*cwidth,(youy-1)*cheight,lines$(youx-1,youy-1)
    ink rgb((180.0/255.0)*youhealth,255,(180.0/255.0)*youhealth),rgb(0,0,0)
    text youx*cwidth,(youy-1)*cheight,lines$(youx,youy-1)
    ink rgb((100.0/255.0)*youhealth,255,(100.0/255.0)*youhealth),rgb(0,0,0)
    text (youx+1)*cwidth,(youy-1)*cheight,lines$(youx+1,youy-1)
    ink rgb((180.0/255.0)*youhealth,255,(180.0/255.0)*youhealth),rgb(0,0,0)
    text (youx-1)*cwidth,youy*cheight,lines$(youx-1,youy)
    ink rgb(youhealth,255,youhealth),rgb(0,0,0)
    text youx*cwidth,youy*cheight,lines$(youx,youy)
    ink rgb((180.0/255.0)*youhealth,255,(180.0/255.0)*youhealth),rgb(0,0,0)
    text (youx+1)*cwidth,youy*cheight,lines$(youx+1,youy)

refresh=refresh+1
  virmove=virmove+1
  civmove=civmove+1

if youhealth<100
    set text size 30
    ink rgb(255,255,255),rgb(0,0,0)
    text (screen width()/2)-(text width("GAME OVER")/2),(screen height()/2)-text height("GAME OVER")-5,"GAME OVER"
    text (screen width()/2)-(text width("PRESS ANY KEY TO QUIT")/2),(screen height()/2)+text height("PRESS ANY KEY TO QUIT")+5,"PRESS ANY KEY TO QUIT"
    sync
    wait key
    end

endif

sync

loop

+ Code Snippet

sync on
sync rate 20


set display mode 600,400,16
set text font ("courier")
basesize=16
largesize=20
smallsize=10
set text size basesize

ink rgb(0,255,0),rgb(0,0,0)

count=0
while text width(s$)< screen width()
s$=s$+"0"
count=count+1
endwhile

width=count-1

cwidth=text width("0")
cheight=text height ("0")

height=(screen height()/cheight)-2

set text size largesize
pulseoffset=(text width("0")-cwidth)/2
set text size basesize

set text size smallsize
virusoffset=(text width("0")-cwidth)/2
set text size basesize

dim lines$(width,height)

youx=width/2
youy=height
dim pulsex(0)
dim pulsey(0)
pulses=0
dim virusx(0)
dim virusy(0)
dim virushealth(0)
viruses=0
dim civx(0)
dim civy(0)
dim civhealth(0)
civs=0

youhealth=255

refresh=0
virmove=0
civmove=0
virspeed=5
start=timer()
score=0
addscore=0
addtime=0
noscore=0
prevtime=0

do

  cls

  time=((timer()-start)/100)
  if time>100
    if time>200
      if time>400
        if time>600
          if time>900
            if time>1200
              if time>1800
              else
                virspeed=1
              endif
            else
              virspeed=2
            endif
          else
            virspeed=3
          endif
        else
          virspeed=4
        endif
      else
        virspeed=5
      endif
    else
      virspeed=6
    endif
  else
    virspeed=7
  endif
  atxt$=""
  if noscore>0 then noscore=noscore-(time-prevtime)
  if addtime>0
    atxt$=" +"+str$(addscore)
    addtime=addtime-(time-prevtime)
  endif

  if time>prevtime
    if noscore=0 then score=score+(time-prevtime)
    prevtime=time
  endif

  txt$="Score: "+str$(score)+atxt$

  if noscore>0 then txt$="NO SCORE"
  ink rgb(255,255,255),rgb(0,0,0)
  text cwidth*2,cheight*(height+1),txt$
  text cwidth*(width-18),cheight*(height+1),"HEALTH: "+str$(int(((youhealth-100.0)/155.0)*100.0))+"%"
  if spacekey()=0
    if (leftkey()) AND (youx>1)
    youx=youx-1
    endif

    if (rightkey()) AND (youx<width-1)
    youx=youx+1
    endif

    if (upkey()) AND (youy>3)
    youy=youy-1
    endif

    if (downkey()) AND (youy<height)
    youy=youy+1
    endif
  endif

  keyspace=0
  if spacekey()
    if space=0 then keyspace=1
    space=1
  else
  space=0
  endif

  if spacekey() AND (pulses<10)
    array insert at bottom pulsex()
    array insert at bottom pulsey()
    pulses=pulses+1
    pulsex(pulses)=youx
    pulsey(pulses)=youy-2

  endif

  if (viruses<5) AND (rnd(50+(7*virspeed))=1)
    array insert at bottom virusx()
    array insert at bottom virusy()
    array insert at bottom virushealth()
    viruses=viruses+1
    virusx(viruses)=rnd(width-2)+1
    virusy(viruses)=1
    virushealth(viruses)=255
  endif

  if (civs<5) AND (rnd(50+(7*virspeed))=1)
    array insert at bottom civx()
    array insert at bottom civy()
    array insert at bottom civhealth()
    civs=civs+1
    civx(civs)=rnd(width-2)+1
    civy(civs)=1
    civhealth(civs)=255
  endif

  if virmove>virspeed
    virmove=0
    for count=1 to viruses
      select rnd(2)
        case 0
          if virusx(count)>1 then virusx(count)=virusx(count)-1
        endcase
        case 1
          if virusx(count)<width-1 then virusx(count)=virusx(count)+1
        endcase
      endselect
          if sqrt(((virusx(count)-youx)*(virusx(count)-youx))+((virusy(count)-youy)*(virusy(count)-youy)))<20
            if virusx(count)>youx then youx=youx+1
            if virusx(count)<youx then youx=youx-1
            if virusy(count)>youy then youy=youy+1
            if virusy(count)<youy then youy=youy-1
            if (youy>virusy(count)-3) AND (youy<virusy(count)+3)
              if (youx>virusx(count)-3) AND (youx<virusx(count)+3)
                youhealth=youhealth-4
              endif
            endif
          endif
      virusy(count)=virusy(count)+1
    next count
  endif

  if civmove>5
    civmove=0
    for count=1 to civs
      for countb=1 to viruses
        if sqrt(((civx(count)-virusx(countb))*(civx(count)-virusx(countb)))+((civy(count)-virusy(countb))*(civy(count)-virusy(countb))))<20
          if virusx(countb)>civx(count) then civx(count)=civx(count)+1
          if virusx(countb)<civx(count) then civx(count)=civx(count)-1
          if virusy(countb)>civy(count) then civy(count)=civy(count)+1
          if virusy(countb)<civy(count) then civy(count)=civy(count)-1
          if (civy(count)>virusy(countb)-3) AND (civy(count)<virusy(countb)+3)
            if (civx(count)>virusx(countb)-3) AND (civx(count)<virusx(countb)+3)
              civhealth(count)=civhealth(count)-20
            endif
          endif
        endif
      next countb
      civy(count)=civy(count)+1
    next count
  endif

  ink rgb(0,255,0),rgb(0,0,0)
  if refresh>6
    for county=0 to height
      line$=""
      for countx=0 to width
        c$=str$(int(rnd(2)-0.01))
        line$=line$+c$
        lines$(countx,county)=c$
      next countx
      text 0,county*cheight,line$
    next county
    refresh=0
  else
    for county=0 to height
      line$=""
      for countx=0 to width
        line$=line$+lines$(countx,county)
      next countx
      text 0,county*cheight,line$
    next county
  endif

  for count=1 to civs
    if civy(count)<height-1
      ink rgb(0,0,0),rgb(0,0,0)

      box ((civx(count)-1)*cwidth),((civy(count)-1)*cheight),((civx(count)+2)*cwidth),((civy(count)+2)*cheight)

        ink rgb((100.0/255.0)*civhealth(count),200,civhealth(count)),rgb(0,0,0)

        text (civx(count)-1)*cwidth,(civy(count)-1)*cheight,lines$(civx(count)-1,civy(count)-1)
        text (civx(count)-1)*cwidth,(civy(count))*cheight,lines$(civx(count)-1,civy(count))
        text (civx(count)-1)*cwidth,(civy(count)+1)*cheight,lines$(civx(count)-1,civy(count)+1)
        text (civx(count)+1)*cwidth,(civy(count)-1)*cheight,lines$(civx(count)-1,civy(count)-1)
        text (civx(count)+1)*cwidth,(civy(count))*cheight,lines$(civx(count)-1,civy(count))
        text (civx(count)+1)*cwidth,(civy(count)+1)*cheight,lines$(civx(count)-1,civy(count)+1)

        ink rgb((100.0/255.0)*civhealth(count),100,civhealth(count)),rgb(0,0,0)
        text civx(count)*cwidth,(civy(count)-1)*cheight,lines$(civx(count),civy(count)-1)
        text civx(count)*cwidth,(civy(count))*cheight,lines$(civx(count),civy(count))
        text civx(count)*cwidth,(civy(count)+1)*cheight,lines$(civx(count),civy(count)+1)

        set text size basesize
        if civhealth(count)<0
          array delete element civx(),count
          array delete element civy(),count
          array delete element civhealth(),count
          civs=civs-1
          count=count-1
          noscore=50

        endif
    else
      array delete element civx(),count
      array delete element civy(),count
      array delete element civhealth(),count
      civs=civs-1
      count=count-1
    endif
  next count

  for count=1 to viruses
    if virusy(count)<height-1
      ink rgb(0,0,0),rgb(0,0,0)
      box ((virusx(count))*cwidth),((virusy(count)-1)*cheight),((virusx(count)+1)*cwidth),((virusy(count))*cheight)
      box ((virusx(count)-1)*cwidth),((virusy(count))*cheight),((virusx(count)+2)*cwidth),((virusy(count)+1)*cheight)
      box ((virusx(count))*cwidth),((virusy(count)+1)*cheight),((virusx(count)+1)*cwidth),((virusy(count)+2)*cheight)
      ink rgb(255,255-virushealth(count),255-virushealth(count)),rgb(0,0,0)
      set text size smallsize
      text ((virusx(count))*cwidth)-virusoffset,(virusy(count)-1)*cheight,lines$(virusx(count),virusy(count)-1)
      text ((virusx(count)-1)*cwidth)-(virusoffset*3),(virusy(count))*cheight,lines$(virusx(count)-1,virusy(count))+lines$(virusx(count),virusy(count))+lines$(virusx(count)+1,virusy(count))
      text ((virusx(count))*cwidth)-virusoffset,(virusy(count)+1)*cheight,lines$(virusx(count),virusy(count)+1)
      set text size basesize
      if virushealth(count)<0
        array delete element virusx(),count
        array delete element virusy(),count
        array delete element virushealth(),count
        viruses=viruses-1
        count=count-1
        if noscore=0
          addscore=500
          score=score+500
          addtime=10
        endif
      endif
    else
      array delete element virusx(),count
      array delete element virusy(),count
      array delete element virushealth(),count
      viruses=viruses-1
      count=count-1
    endif
  next count

  for count=1 to pulses
    if pulsey(count)>0
      ink rgb(0,0,0),rgb(0,0,0)
      box ((pulsex(count)-1)*cwidth),((pulsey(count)-1)*cheight),((pulsex(count)+2)*cwidth),((pulsey(count))*cheight)
      ink rgb(150,255,150),rgb(0,0,0)
      set text size largesize
      text ((pulsex(count)-1)*cwidth)-(pulseoffset*3),(pulsey(count)-1)*cheight,lines$(pulsex(count)-1,pulsey(count)-1)+lines$(pulsex(count),pulsey(count)-1)+lines$(pulsex(count)+1,pulsey(count)-1)
      set text size basesize

      hittingvirus=0
      for countb=1 to viruses
        if (pulsey(count)>virusy(countb)-4) AND (pulsey(count)<virusy(countb)+3)
          if (pulsex(count)>virusx(countb)-3) AND (pulsex(count)<virusx(countb)+3)
            hittingvirus=1
            array delete element pulsex(),count
            array delete element pulsey(),count
            pulses=pulses-1
            count=count-1
            virushealth(countb)=virushealth(countb)-30
          endif
        endif
      next countb

      if hittingvirus=0
        for countb=1 to civs
          if (pulsey(count)>civy(countb)-3) AND (pulsey(count)<civy(countb)+2)
            if (pulsex(count)>civx(countb)-3) AND (pulsex(count)<civx(countb)+3)
              array delete element pulsex(),count
              array delete element pulsey(),count
              pulses=pulses-1
              count=count-1
              civhealth(countb)=civhealth(countb)-15
            endif
          endif
        next countb
      endif

      pulsey(count)=pulsey(count)-1
    else
      array delete element pulsex(),count
      array delete element pulsey(),count
      pulses=pulses-1
      count=count-1
    endif
  next count

    ink rgb(0,0,0),rgb(0,0,0)

    box ((youx-1)*cwidth),((youy-1)*cheight),((youx+2)*cwidth),((youy+1)*cheight)

    ink rgb((100.0/255.0)*youhealth,255,(100.0/255.0)*youhealth),rgb(0,0,0)
    text (youx-1)*cwidth,(youy-1)*cheight,lines$(youx-1,youy-1)
    ink rgb((180.0/255.0)*youhealth,255,(180.0/255.0)*youhealth),rgb(0,0,0)
    text youx*cwidth,(youy-1)*cheight,lines$(youx,youy-1)
    ink rgb((100.0/255.0)*youhealth,255,(100.0/255.0)*youhealth),rgb(0,0,0)
    text (youx+1)*cwidth,(youy-1)*cheight,lines$(youx+1,youy-1)
    ink rgb((180.0/255.0)*youhealth,255,(180.0/255.0)*youhealth),rgb(0,0,0)
    text (youx-1)*cwidth,youy*cheight,lines$(youx-1,youy)
    ink rgb(youhealth,255,youhealth),rgb(0,0,0)
    text youx*cwidth,youy*cheight,lines$(youx,youy)
    ink rgb((180.0/255.0)*youhealth,255,(180.0/255.0)*youhealth),rgb(0,0,0)
    text (youx+1)*cwidth,youy*cheight,lines$(youx+1,youy)



  refresh=refresh+1
  virmove=virmove+1
  civmove=civmove+1

  if youhealth<100
    set text size 30
    ink rgb(255,255,255),rgb(0,0,0)
    text (screen width()/2)-(text width("GAME OVER")/2),(screen height()/2)-text height("GAME OVER")-5,"GAME OVER"
    text (screen width()/2)-(text width("PRESS ANY KEY TO QUIT")/2),(screen height()/2)+text height("PRESS ANY KEY TO QUIT")+5,"PRESS ANY KEY TO QUIT"
    sync
    wait key
    end

  endif

  sync


loop

Arrow keys control ship.
Space bar fires energy pulse/big laser thingy.

You are trying to overload the viruses (red crosses). Each one destroyed will give you 500 points.
Try not to hit the civilian traffic(blue rectangles). Destroying one will result in 5 seconds where you cannot gain score.

The viruses will suck in civilian traffic as well as you and leech out their/your health.

Also, before anyone comments on it, not being able to move while firing is not a bug. That's just how it is.

omnia dicta fortiora si dicta Latina

Back to top

Profile PM Email

Alexb Orsova

20

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 6th Mar 2007 22:36 Edited at: 7th Mar 2007 01:20

Link

Hello again. Here's the most recent update to my game:

rem prepare environment
set display mode 1024, 768, 32
draw to front : randomize timer()
sync on : sync rate 0 : color backdrop 0

rem show loading screen
cls : center text screen width() / 2, screen height() / 2, "LOADING" : sync

rem load dll for sound effects
load dll "kernel32.dll", 1

rem game settings
sound = 1
move_speed# = 0.3
game_time = 1
rate_of_fire = 100
ai_rate_of_fire = 800
max_enemies = 16
max_shots = 200

rem global variables
enemies_killed = 0
enemy_sprite_image = make_enemy_sprite()
dim enemy_x#(max_enemies)
dim enemy_y#(max_enemies)
dim enemy_fire_again(max_enemies)
dim enemy_life(max_enemies)
dim enemy_sprite(max_enemies)
player_health = 100
player_energy = 100
player_sprite = 0
player_sprite_image = make_player_sprite()
player_fire_again = 0
current_shots = 0
dim shot_sprite_image(1)
shot_sprite_image(0) = make_shot_sprite()
shot_sprite_image(1) = make_secondary_shot_sprite()
dim shot_angle#(max_shots)
dim shot_life(max_shots)
dim shot_from_sprite(max_shots)
dim shot_sprite(max_shots)
dim shot_type(max_shots)
pause_press_again = 0
paused = 0 : sound_count = 0
sound_press = 0

rem make and position enemies
for a = 1 to max_enemies
 enemy_x#(a) = rnd(screen width())
 enemy_y#(a) = rnd(300) - 400
 enemy_life(a) = 1
 enemy_fire_again(a) = rnd(2 * ai_rate_of_fire)
 enemy_sprite(a) = free_sprite()
 sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
next a

rem positon player sprite
player_sprite = free_sprite()
sprite player_sprite, player_x#, player_y#, player_sprite_image
player_x# = (screen width() / 2) - (sprite width(player_sprite) / 2)
player_y# = screen height() - (screen height() / 4)
sprite player_sprite, player_x#, player_y#, player_sprite_image

rem display instructions and hide mouse
cls : hide all sprites : ink RGB(255, 255, 255), RGB(255, 255, 255)
text 0, 0, "Use the arrowkeys to fly your ship and spacebar to shoot"
text 0, 10, "the main weapon, alt key to shoot secondary power shot."
text 0, 20, "You can pause the game by pressing the P key and toggle"
text 0, 30, "sound effects on / off with the e key."
text 0, 40, "Alternate controls are the WASD keys and the control key"
text 0, 50, "to shoot main weapon, alt for secondary. The Alternate"
text 0, 60, "controls are recommended (they are faster and more sensitive)."
text 0, 80, "Press any key to continue."
sync : wait key : hide mouse : show all sprites

rem record game start time
game_time = 0 : loop_count = 0

rem draw hud at bottom of screen
rem show game time, health and enemies killed
text 0, screen height() - 16, "Game Time: " + str$(game_time / 1000) + " seconds"
text 200, screen height() - 16, "Player Health: " + str$(player_health)
text 360, screen height() - 16, "Enemies Killed: " + str$(enemies_killed)
text 550, screen height() - 16, "Sound: "
text 600, screen height() - 16, "ON"
center text screen width() / 2, screen height() / 2, "START"

rem play start melody
sync : play_start_melody()

rem main program loop
do

rem used in counting the seconds
 loop_count = timer()

rem pause controls
 if pause_press_again > 0 then pause_press_again = pause_press_again - 1
 if keystate(25) = 1 and pause_press_again = 0
  if paused = 0
   paused = 1
  else
   paused = 0
  endif
  pause_press_again = 200
 endif

rem only execute main game loop if game isn't paused
 if paused = 0

rem control ship with arrowkeys
 if (keystate(205) = 1 or keystate(32) = 1) then player_x# = player_x# + (move_speed# * 1.5)
 if (keystate(203) = 1 or keystate(30) = 1) then player_x# = player_x# - (move_speed# * 1.5)
 if (keystate(200) = 1 or keystate(17) = 1) then player_y# = player_y# - (move_speed# * 1.5)
 if (keystate(208) = 1 or keystate(31) = 1) then player_y# = player_y# + (move_speed# * 1.5)

rem make sure player sprite is still on the screen
 if player_x# < 0 then player_x# = 0
 if player_x# > (screen width() - sprite width(player_sprite)) then player_x# = (screen width() - sprite width(player_sprite))
 if player_y# < 100 then player_y# = 100
 if player_y# > (screen height() - sprite height(player_sprite) - 18) then player_y# = (screen height() - sprite height(player_sprite) - 18)

rem toggle sound effects
 if sound_press > 0 then sound_press = sound_press - 1
 if keystate(18) = 1 and sound_press = 0 `e
  if sound = 0
   sound = 1
  else
   sound = 0
  endif
  sound_press = 200
 endif

rem update player sprite
 sprite player_sprite, player_x#, player_y#, player_sprite_image

rem fire using the spacebar or control key main weapon
 if player_fire_again > 0 then player_fire_again = player_fire_again - 1
 if (keystate(57) = 1 or controlkey() = 1) and player_fire_again = 0
  rem fire one shot if max shots hasn't been achieved
  if current_shots < max_shots
   current_shots = current_shots + 1
   a = 1
   while shot_life(a) > 0
    a = a + 1
   endwhile
   shot_life(a) = 1
   shot_angle#(a) = 0
   shot_from_sprite(a) = player_sprite
   shot_sprite(a) = free_sprite()
   shot_type(a) = 0
   sprite shot_sprite(a), player_x# + 13, player_y# - 10, shot_sprite_image(shot_type(a))
   rotate sprite shot_sprite(a), shot_angle#(a)
   move sprite shot_sprite(a), move_speed#
   player_fire_again = rate_of_fire
   if sound = 1 then sound_count = play_shoot_sound(sound_count)
  endif
 endif

rem fire using the alternate key the secondary weapon
 if (keystate(56) = 1 or keystate(184) = 1) and player_fire_again = 0
  rem fire one shot if max shots hasn't been achieved
  if current_shots < max_shots
   current_shots = current_shots + 1
   a = 1
   while shot_life(a) > 0
    a = a + 1
   endwhile
   shot_life(a) = 1
   shot_angle#(a) = 0
   shot_from_sprite(a) = player_sprite
   shot_sprite(a) = free_sprite()
   shot_type(a) = 1
   sprite shot_sprite(a), player_x# + 13, player_y# - 10, shot_sprite_image(shot_type(a))
   rotate sprite shot_sprite(a), shot_angle#(a)
   move sprite shot_sprite(a), move_speed#
   player_fire_again = 7 * rate_of_fire
   if sound = 1 then sound_count = play_bomb_sound(sound_count)
  endif
 endif

rem update enemy sprites / do enemy ai
 for a = 1 to max_enemies
  if enemy_life(a) > 0
   if enemy_fire_again(a) > 0 then enemy_fire_again(a) = enemy_fire_again(a) - 1
   enemy_y#(a) = enemy_y#(a) + (move_speed# / 4)
   if enemy_y#(a) >= (screen height() - 18 - sprite height(enemy_sprite(a)))
    enemy_y#(a) = -10
    enemy_x#(a) = rnd(screen width())
   endif
   if enemy_x#(a) > (screen width() - sprite width(enemy_sprite(a))) then enemy_x#(a) = 0
   if enemy_x#(a) < 0 then enemy_x#(a) = (screen width() - sprite width(enemy_sprite(a)))
   rem check for collision with player
   if sprite collision(enemy_sprite(a), player_sprite) > 0
    player_health = player_health - 5
    enemy_x#(a) = rnd(screen width())
    enemy_y#(a) = rnd(300) - 400
    enemy_fire_again(a) = 0
    if sound = 1 then sound_count = play_explode_sound(sound_count)
   endif
   rem fire at player if on screen
   if enemy_fire_again(a) = 0 and enemy_y#(a) > 0
    rem fire a shot downward if the player is below and max_shots hasnt been achieved
    if current_shots < max_shots  and player_y# > enemy_y#(a)
     current_shots = current_shots + 1
     b = 1
     while shot_life(b) > 0
      b = b + 1
     endwhile
     shot_life(b) = 1
     shot_angle#(b) = 180
     shot_from_sprite(b) = enemy_sprite(a)
     shot_sprite(b) = free_sprite()
     if game_time > 60000
      shot_type(b) = 1
      enemy_fire_again(a) = 2 * ai_rate_of_fire
      if sound = 1 then sound_count = play_bomb_sound(sound_count)
     else
      shot_type(b) = 0
      enemy_fire_again(a) = ai_rate_of_fire
      if sound = 1 then sound_count = play_shoot_sound(sound_count)
     endif
     sprite shot_sprite(b), enemy_x#(a) + (sprite width(enemy_sprite(a)) / 2), enemy_y#(a) + 12, shot_sprite_image(shot_type(b))
     rotate sprite shot_sprite(b), shot_angle#(b)
     move sprite shot_sprite(b), move_speed#
    endif
   endif
   sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
  endif
 next a

rem update shot sprites
 for a = 1 to max_shots
  if shot_life(a) > 0
   rem move the bullet
   move sprite shot_sprite(a), move_speed# * 1.5
   rem check to see if it's still on screen
   if sprite x(shot_sprite(a)) < 0 or sprite x(shot_sprite(a)) > screen width() or sprite y(shot_sprite(a)) < 0 or sprite y(shot_sprite(a)) > screen height()
    shot_life(a) = 0
   endif
   rem check for collision
   b = sprite collision(shot_sprite(a), 0)
   if b > 0 and shot_life(a) > 0
    rem the bullet hit something, check to make-sure it wasn't self-injury
    if shot_from_sprite(a) <> b
     rem it's valid, check to see if the player has been hit
     if b = player_sprite
      rem the player has been hit by an enemy,
      rem subtract health
      if shot_type(a) = 0
       player_health = player_health - 1
      else
       player_health = player_health - 8
      endif
      shot_life(a) = 0
     else
      if shot_from_sprite(a) = player_sprite
       rem an enemy has been hit by the player,
       rem find out which one and kill it
       for c = 1 to max_enemies
        if enemy_sprite(c) = b
         rem enemy found, deal with him and exit the loop
         if shot_type(a) = 0 then shot_life(a) = 0
         enemy_x#(c) = rnd(screen width())
         enemy_y#(c) = rnd(300) - 400
         enemy_fire_again(c) = 0
         enemies_killed = enemies_killed + 1
         if sound = 1 then sound_count = play_explode_sound(sound_count)
        endif
       next c
      endif
     endif
    endif
   endif
   if shot_life(a) = 0
    delete sprite shot_sprite(a)
    current_shots = current_shots - 1
   endif
  endif
 next a

rem set the text color to white and the background to black
 ink RGB(255, 255, 255), 0

rem check for end of game (player_health <= 0)
 if player_health <= 0
  rem end game
  cls : center text screen width() / 2, screen height() / 2, "END GAME"
  center text screen width() / 2, (screen height() / 2) + 20, "PLEASE WAIT FOR YOUR STATS"
  sync
  rem play death melody
  play_death_melody()
  wait 3000 : hide all sprites : cls
  text 0, 0, "Your Statistics: "
  text 0, 20, "Game Time: " + str$(game_time / 1000) + " seconds"
  text 0, 40, "Enemies Killed: " + str$(enemies_killed)
  text 0, 60, "Press any key to exit the game."
  sync : wait key : end
 endif

rem end of pause ifthen statement
 endif

rem draw hud at bottom of screen
 rem show game time, health and enemies killed
 text 0, screen height() - 16, "Game Time: " + str$(game_time / 1000) + " seconds"
 text 200, screen height() - 16, "Player Health: " + str$(player_health)
 text 360, screen height() - 16, "Enemies Killed: " + str$(enemies_killed)
 text 550, screen height() - 16, "Sound: "
 if sound = 1
  text 600, screen height() - 16, "ON"
 else
  text 600, screen height() - 16, "OFF"
 endif

rem if game is paused, draw pause text
 if paused = 1 then center text screen width() / 2, screen height() / 2, "PAUSED"
 if paused = 0 then game_time = game_time + (timer() - loop_count)

rem refresh the screen
 sync

loop

rem generic functions
function free_sprite()
 retval = 1
 while sprite exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

function free_image()
 retval = 1
 while image exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

rem sound functions
function beep(frequency, duration)
 call dll 1, "Beep", frequency, duration
endfunction

function play_explode_sound(count)
 if timer() >= count
  beep(100, 10) : delay = timer() + 10
 endif
endfunction delay

function play_shoot_sound(count)
 if timer() >= count
  beep(350, 2) : delay = timer() + 2
 endif
endfunction delay

function play_bomb_sound(count)
 if timer() >= count
  beep(280, 2) : delay = timer() + 2
 endif
endfunction delay

function play_start_melody()
 for f = 300 to 400 step 5
  beep(f, 5) : wait 5
 next f
endfunction

function play_death_melody()
 for f = 0 to 100 step 5
  rf = 400 - f
  beep(rf, 5) : wait 5
 next f
endfunction

rem sprite functions
function make_player_sprite()
 create bitmap 1, 32, 35
 ink RGB(0, 0, 255), 0
 text 0, 0, "/--\"
 text 0, 10, "|  |"
 text 0, 20, "\--/"
 image_number = free_image()
 get image image_number, 0, 0, 32, 35
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_enemy_sprite()
 create bitmap 1, 16, 16
 ink RGB(255, 0, 0), 0
 text 0, 0, "[]"
 image_number = free_image()
 get image image_number, 0, 0, 16, 16
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_shot_sprite()
 create bitmap 1, 10, 10
 ink RGB(255, 255, 255), 0
 text 0, 0, "*"
 image_number = free_image()
 get image image_number, 0, 4, 8, 10
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_secondary_shot_sprite()
 create bitmap 1, 14, 14
 ink RGB(255, 255, 0), 0
 text 0, 0, "@"
 image_number = free_image()
 get image image_number, 0, 2, 9, 12
 delete bitmap 1
 set current bitmap 0
endfunction image_number

+ Code Snippet

rem prepare environment
set display mode 1024, 768, 32
draw to front : randomize timer()
sync on : sync rate 0 : color backdrop 0

rem show loading screen
cls : center text screen width() / 2, screen height() / 2, "LOADING" : sync

rem load dll for sound effects
load dll "kernel32.dll", 1

rem game settings
sound = 1
move_speed# = 0.3
game_time = 1
rate_of_fire = 100
ai_rate_of_fire = 800
max_enemies = 16
max_shots = 200

rem global variables
enemies_killed = 0
enemy_sprite_image = make_enemy_sprite()
dim enemy_x#(max_enemies)
dim enemy_y#(max_enemies)
dim enemy_fire_again(max_enemies)
dim enemy_life(max_enemies)
dim enemy_sprite(max_enemies)
player_health = 100
player_energy = 100
player_sprite = 0
player_sprite_image = make_player_sprite()
player_fire_again = 0
current_shots = 0
dim shot_sprite_image(1)
shot_sprite_image(0) = make_shot_sprite()
shot_sprite_image(1) = make_secondary_shot_sprite()
dim shot_angle#(max_shots)
dim shot_life(max_shots)
dim shot_from_sprite(max_shots)
dim shot_sprite(max_shots)
dim shot_type(max_shots)
pause_press_again = 0
paused = 0 : sound_count = 0
sound_press = 0

rem make and position enemies
for a = 1 to max_enemies
 enemy_x#(a) = rnd(screen width())
 enemy_y#(a) = rnd(300) - 400
 enemy_life(a) = 1
 enemy_fire_again(a) = rnd(2 * ai_rate_of_fire)
 enemy_sprite(a) = free_sprite()
 sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
next a

rem positon player sprite
player_sprite = free_sprite()
sprite player_sprite, player_x#, player_y#, player_sprite_image
player_x# = (screen width() / 2) - (sprite width(player_sprite) / 2)
player_y# = screen height() - (screen height() / 4)
sprite player_sprite, player_x#, player_y#, player_sprite_image

rem display instructions and hide mouse
cls : hide all sprites : ink RGB(255, 255, 255), RGB(255, 255, 255)
text 0, 0, "Use the arrowkeys to fly your ship and spacebar to shoot"
text 0, 10, "the main weapon, alt key to shoot secondary power shot."
text 0, 20, "You can pause the game by pressing the P key and toggle"
text 0, 30, "sound effects on / off with the e key."
text 0, 40, "Alternate controls are the WASD keys and the control key"
text 0, 50, "to shoot main weapon, alt for secondary. The Alternate"
text 0, 60, "controls are recommended (they are faster and more sensitive)."
text 0, 80, "Press any key to continue."
sync : wait key : hide mouse : show all sprites

rem record game start time
game_time = 0 : loop_count = 0

rem draw hud at bottom of screen
rem show game time, health and enemies killed
text 0, screen height() - 16, "Game Time: " + str$(game_time / 1000) + " seconds"
text 200, screen height() - 16, "Player Health: " + str$(player_health)
text 360, screen height() - 16, "Enemies Killed: " + str$(enemies_killed)
text 550, screen height() - 16, "Sound: "
text 600, screen height() - 16, "ON"
center text screen width() / 2, screen height() / 2, "START"

rem play start melody
sync : play_start_melody()

rem main program loop
do

 rem used in counting the seconds
 loop_count = timer()

 rem pause controls
 if pause_press_again > 0 then pause_press_again = pause_press_again - 1
 if keystate(25) = 1 and pause_press_again = 0
  if paused = 0
   paused = 1
  else
   paused = 0
  endif
  pause_press_again = 200
 endif

 rem only execute main game loop if game isn't paused
 if paused = 0

 rem control ship with arrowkeys
 if (keystate(205) = 1 or keystate(32) = 1) then player_x# = player_x# + (move_speed# * 1.5)
 if (keystate(203) = 1 or keystate(30) = 1) then player_x# = player_x# - (move_speed# * 1.5)
 if (keystate(200) = 1 or keystate(17) = 1) then player_y# = player_y# - (move_speed# * 1.5)
 if (keystate(208) = 1 or keystate(31) = 1) then player_y# = player_y# + (move_speed# * 1.5)

 rem make sure player sprite is still on the screen
 if player_x# < 0 then player_x# = 0
 if player_x# > (screen width() - sprite width(player_sprite)) then player_x# = (screen width() - sprite width(player_sprite))
 if player_y# < 100 then player_y# = 100
 if player_y# > (screen height() - sprite height(player_sprite) - 18) then player_y# = (screen height() - sprite height(player_sprite) - 18)

 rem toggle sound effects
 if sound_press > 0 then sound_press = sound_press - 1
 if keystate(18) = 1 and sound_press = 0 `e
  if sound = 0
   sound = 1
  else
   sound = 0
  endif
  sound_press = 200
 endif

 rem update player sprite
 sprite player_sprite, player_x#, player_y#, player_sprite_image

 rem fire using the spacebar or control key main weapon
 if player_fire_again > 0 then player_fire_again = player_fire_again - 1
 if (keystate(57) = 1 or controlkey() = 1) and player_fire_again = 0
  rem fire one shot if max shots hasn't been achieved
  if current_shots < max_shots
   current_shots = current_shots + 1
   a = 1
   while shot_life(a) > 0
    a = a + 1
   endwhile
   shot_life(a) = 1
   shot_angle#(a) = 0
   shot_from_sprite(a) = player_sprite
   shot_sprite(a) = free_sprite()
   shot_type(a) = 0
   sprite shot_sprite(a), player_x# + 13, player_y# - 10, shot_sprite_image(shot_type(a))
   rotate sprite shot_sprite(a), shot_angle#(a)
   move sprite shot_sprite(a), move_speed#
   player_fire_again = rate_of_fire
   if sound = 1 then sound_count = play_shoot_sound(sound_count)
  endif
 endif

 rem fire using the alternate key the secondary weapon
 if (keystate(56) = 1 or keystate(184) = 1) and player_fire_again = 0
  rem fire one shot if max shots hasn't been achieved
  if current_shots < max_shots
   current_shots = current_shots + 1
   a = 1
   while shot_life(a) > 0
    a = a + 1
   endwhile
   shot_life(a) = 1
   shot_angle#(a) = 0
   shot_from_sprite(a) = player_sprite
   shot_sprite(a) = free_sprite()
   shot_type(a) = 1
   sprite shot_sprite(a), player_x# + 13, player_y# - 10, shot_sprite_image(shot_type(a))
   rotate sprite shot_sprite(a), shot_angle#(a)
   move sprite shot_sprite(a), move_speed#
   player_fire_again = 7 * rate_of_fire
   if sound = 1 then sound_count = play_bomb_sound(sound_count)
  endif
 endif

 rem update enemy sprites / do enemy ai
 for a = 1 to max_enemies
  if enemy_life(a) > 0
   if enemy_fire_again(a) > 0 then enemy_fire_again(a) = enemy_fire_again(a) - 1
   enemy_y#(a) = enemy_y#(a) + (move_speed# / 4)
   if enemy_y#(a) >= (screen height() - 18 - sprite height(enemy_sprite(a)))
    enemy_y#(a) = -10
    enemy_x#(a) = rnd(screen width())
   endif
   if enemy_x#(a) > (screen width() - sprite width(enemy_sprite(a))) then enemy_x#(a) = 0
   if enemy_x#(a) < 0 then enemy_x#(a) = (screen width() - sprite width(enemy_sprite(a)))
   rem check for collision with player
   if sprite collision(enemy_sprite(a), player_sprite) > 0
    player_health = player_health - 5
    enemy_x#(a) = rnd(screen width())
    enemy_y#(a) = rnd(300) - 400
    enemy_fire_again(a) = 0
    if sound = 1 then sound_count = play_explode_sound(sound_count)
   endif
   rem fire at player if on screen
   if enemy_fire_again(a) = 0 and enemy_y#(a) > 0
    rem fire a shot downward if the player is below and max_shots hasnt been achieved
    if current_shots < max_shots  and player_y# > enemy_y#(a)
     current_shots = current_shots + 1
     b = 1
     while shot_life(b) > 0
      b = b + 1
     endwhile
     shot_life(b) = 1
     shot_angle#(b) = 180
     shot_from_sprite(b) = enemy_sprite(a)
     shot_sprite(b) = free_sprite()
     if game_time > 60000
      shot_type(b) = 1
      enemy_fire_again(a) = 2 * ai_rate_of_fire
      if sound = 1 then sound_count = play_bomb_sound(sound_count)
     else
      shot_type(b) = 0
      enemy_fire_again(a) = ai_rate_of_fire
      if sound = 1 then sound_count = play_shoot_sound(sound_count)
     endif
     sprite shot_sprite(b), enemy_x#(a) + (sprite width(enemy_sprite(a)) / 2), enemy_y#(a) + 12, shot_sprite_image(shot_type(b))
     rotate sprite shot_sprite(b), shot_angle#(b)
     move sprite shot_sprite(b), move_speed#
    endif
   endif
   sprite enemy_sprite(a), enemy_x#(a), enemy_y#(a), enemy_sprite_image
  endif
 next a

 rem update shot sprites
 for a = 1 to max_shots
  if shot_life(a) > 0
   rem move the bullet
   move sprite shot_sprite(a), move_speed# * 1.5
   rem check to see if it's still on screen
   if sprite x(shot_sprite(a)) < 0 or sprite x(shot_sprite(a)) > screen width() or sprite y(shot_sprite(a)) < 0 or sprite y(shot_sprite(a)) > screen height()
    shot_life(a) = 0
   endif
   rem check for collision
   b = sprite collision(shot_sprite(a), 0)
   if b > 0 and shot_life(a) > 0
    rem the bullet hit something, check to make-sure it wasn't self-injury
    if shot_from_sprite(a) <> b
     rem it's valid, check to see if the player has been hit
     if b = player_sprite
      rem the player has been hit by an enemy,
      rem subtract health
      if shot_type(a) = 0
       player_health = player_health - 1
      else
       player_health = player_health - 8
      endif
      shot_life(a) = 0
     else
      if shot_from_sprite(a) = player_sprite
       rem an enemy has been hit by the player,
       rem find out which one and kill it
       for c = 1 to max_enemies
        if enemy_sprite(c) = b
         rem enemy found, deal with him and exit the loop
         if shot_type(a) = 0 then shot_life(a) = 0
         enemy_x#(c) = rnd(screen width())
         enemy_y#(c) = rnd(300) - 400
         enemy_fire_again(c) = 0
         enemies_killed = enemies_killed + 1
         if sound = 1 then sound_count = play_explode_sound(sound_count)
        endif
       next c
      endif
     endif
    endif
   endif
   if shot_life(a) = 0
    delete sprite shot_sprite(a)
    current_shots = current_shots - 1
   endif
  endif
 next a

 rem set the text color to white and the background to black
 ink RGB(255, 255, 255), 0

 rem check for end of game (player_health <= 0)
 if player_health <= 0
  rem end game
  cls : center text screen width() / 2, screen height() / 2, "END GAME"
  center text screen width() / 2, (screen height() / 2) + 20, "PLEASE WAIT FOR YOUR STATS"
  sync
  rem play death melody
  play_death_melody()
  wait 3000 : hide all sprites : cls
  text 0, 0, "Your Statistics: "
  text 0, 20, "Game Time: " + str$(game_time / 1000) + " seconds"
  text 0, 40, "Enemies Killed: " + str$(enemies_killed)
  text 0, 60, "Press any key to exit the game."
  sync : wait key : end
 endif

 rem end of pause ifthen statement
 endif

 rem draw hud at bottom of screen
 rem show game time, health and enemies killed
 text 0, screen height() - 16, "Game Time: " + str$(game_time / 1000) + " seconds"
 text 200, screen height() - 16, "Player Health: " + str$(player_health)
 text 360, screen height() - 16, "Enemies Killed: " + str$(enemies_killed)
 text 550, screen height() - 16, "Sound: "
 if sound = 1
  text 600, screen height() - 16, "ON"
 else
  text 600, screen height() - 16, "OFF"
 endif

 rem if game is paused, draw pause text
 if paused = 1 then center text screen width() / 2, screen height() / 2, "PAUSED"
 if paused = 0 then game_time = game_time + (timer() - loop_count)

 rem refresh the screen
 sync

loop

rem generic functions
function free_sprite()
 retval = 1
 while sprite exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

function free_image()
 retval = 1
 while image exist(retval) = 1
  retval = retval + 1
 endwhile
endfunction retval

rem sound functions
function beep(frequency, duration)
 call dll 1, "Beep", frequency, duration
endfunction

function play_explode_sound(count)
 if timer() >= count
  beep(100, 10) : delay = timer() + 10
 endif
endfunction delay

function play_shoot_sound(count)
 if timer() >= count
  beep(350, 2) : delay = timer() + 2
 endif
endfunction delay

function play_bomb_sound(count)
 if timer() >= count
  beep(280, 2) : delay = timer() + 2
 endif
endfunction delay

function play_start_melody()
 for f = 300 to 400 step 5
  beep(f, 5) : wait 5
 next f
endfunction

function play_death_melody()
 for f = 0 to 100 step 5
  rf = 400 - f
  beep(rf, 5) : wait 5
 next f
endfunction

rem sprite functions
function make_player_sprite()
 create bitmap 1, 32, 35
 ink RGB(0, 0, 255), 0
 text 0, 0, "/--\"
 text 0, 10, "|  |"
 text 0, 20, "\--/"
 image_number = free_image()
 get image image_number, 0, 0, 32, 35
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_enemy_sprite()
 create bitmap 1, 16, 16
 ink RGB(255, 0, 0), 0
 text 0, 0, "[]"
 image_number = free_image()
 get image image_number, 0, 0, 16, 16
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_shot_sprite()
 create bitmap 1, 10, 10
 ink RGB(255, 255, 255), 0
 text 0, 0, "*"
 image_number = free_image()
 get image image_number, 0, 4, 8, 10
 delete bitmap 1
 set current bitmap 0
endfunction image_number

function make_secondary_shot_sprite()
 create bitmap 1, 14, 14
 ink RGB(255, 255, 0), 0
 text 0, 0, "@"
 image_number = free_image()
 get image image_number, 0, 2, 9, 12
 delete bitmap 1
 set current bitmap 0
endfunction image_number

I added:
-sound effects and a sound subsystem
which prevents more than one sound
attempting to play at the same time
-sound toggling key (to turn off sound
if it gets too annoying)

I updated:
-the intro message
-the resoluition to 1024 x 768 x 32
-the number of enemies
-the speed of the game

Don't believe this sentence.

Back to top

Profile PM Email

Alexb Orsova

20

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th Mar 2007 00:30 Edited at: 7th Mar 2007 18:37

Link

Sorry for double posting. I didn't realize the message above was mine
until I posted. BTW, my high score on my game is:

Time: 316 Seconds
Enemies Killed: 356

[EDIT]

Today's the deadline (7th)!

[/EDIT]

Don't believe this sentence.

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 7th Mar 2007 19:35 Edited at: 7th Mar 2007 21:31

Link

Here's Alpharoids, final version.

Like asteroids, but slightly different. You get 10 points for shooting the highest letter (ie. closest to the end of the alphabet) on screen, and 1 point for shooting any other letter. So, to get the maximum score, you should try to shoot them in reverse alphibetical order. Easier said than done!

It has infinite levels, antialiased text, sound effects (thanks Acelepage) and a nice motion blur effect.

<edit> code revised and posted below </edit>

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 7th Mar 2007 20:18

Link

After the 2nd wave, no more levels would start. Occationally, a letter gets stuck at the bottom of the screen. And several letters passed over me without killing me. (I did die once though)

Back to top

Profile PM Email Website

Alexb Orsova

20

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th Mar 2007 21:07

Link

@acelepage

I have a question about your sound code. What does wave# do? Through experimentation I've discovered the purpose (somewhat) of the other variables but wave# seems to have no effect. I've even tried it with long sounds (listening and changing its value).

Don't believe this sentence.

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 7th Mar 2007 21:27 Edited at: 7th Mar 2007 21:30

Link

Phaelax - things that work on my pc never seem to work on yours! I'll take a look and see if I can figure out what's happening.

<edit> This should solve the 'no more letters appear after the second wave' issue. My mistake. But the collision just uses the 'sprite collision' command. Can't think why it wouldn't work the same for you .....

set display mode 1024,768,32
sync on
sync rate 0
autocam off
make object cube 1,1
hide object 1
position object 1,0,0,5
global sw#
global sh#
sw#=screen width()
sh#=screen height()
color backdrop 0
hide mouse

make_sound(1)
make_sound(2)
make_sound(3)
make_sound(4)

set camera to image 0,10,256,256
sprite 10,0,0,10
size sprite 10,sw#,sh#
set sprite alpha 10,20
set sprite priority 10,1
set sprite 10,0,1

type lettertype

angle as float
x as float
y as float
vx as float
vy as float

endtype

alphav#=0.05

shipa#=0.0001
shipmaxv#=0.2
shipang#=180

make_letter(1,"V")
set sprite diffuse 1,0,255,0
size sprite 1,sprite width(1)/2.0,sprite height(1)/2.0
offset sprite 1,sprite width(1)/2.0,sprite height(1)/2.0
shipx#=sw#/2.0
shipy#=sh#/2.0
sprite 1,shipx#,shipy#,1
rotate sprite 1,shipang#

bullet=100
bulletspeed#=0.2

make_letter(bullet,"o")
set sprite diffuse bullet,255,0,0
size sprite bullet,sprite width(bullet)/4.0,sprite height(bullet)/4.0
offset sprite bullet,sprite width(bullet)/2.0,sprite height(bullet)/2.0
hide sprite bullet

dim letter(90) as lettertype

for ascii=65 to 90
make_letter(ascii,chr$(ascii))
letter(ascii).x=100+rnd(sw#-200)
letter(ascii).y=100+rnd(sh#-200)
sprite ascii,letter(ascii).x,letter(ascii).y,ascii
offset sprite ascii,sprite width(ascii)/2.0,sprite height(ascii)/2.0
letter(ascii).angle=rnd(360)
next ascii

dim targetactive(90)
for target=65 to 90
  targetactive(target)=1
next target

set text size 20
ink rgb(0,255,0),0

shield#=500
lives=5
set sprite diffuse 1,250,128,0

st#=timer()

do

t#=timer()-st#
  dt#=t#-ot#
  ot#=t#
  gosub move_letters
  gosub move_ship
  gosub fire
  gosub ship_collision
  gosub bullet_collision
  `text 0,0,str$(screen fps())
  text 0,20,"Score: "+str$(score)
  text 0,40,"Lives: "+str$(lives)

sync
loop

fire:

if spacekey()=1 and spacekeydown=0 and firing=0
  spacekeydown=1
  show sprite bullet
  sprite bullet,sprite x(1),sprite y(1),bullet
  rotate sprite bullet,shipang#
  firing=1
  play sound 1
endif

if firing=1
  move sprite bullet,-bulletspeed#*dt#
  if sprite x(bullet)<0 or sprite x(bullet)>sw# or sprite y(bullet)<0 or sprite y(bullet)>sh#
    hide sprite bullet
    firing=0
  endif
endif

if spacekey()=0 and spacekeydown=1 then spacekeydown=0

return

bullet_collision:

for target=65 to 90
  if sprite visible(target)=1 and sprite visible(bullet)=1
    if sprite collision(bullet,target)=1
      hide sprite target
      inc hits
      play sound 2
      highertargetactive=0
      if target<90
        for check=target+1 to 90
          if targetactive(check)=1 then highertargetactive=1:exit
        next check
      endif
      if highertargetactive=1 then inc score,1 else inc score,10
      targetactive(target)=0
      hide sprite bullet
      firing=0
      if hits=26
        for n=65 to 90
          show sprite n
          targetactive(n)=1
        next n
        inc alphav#,0.025
        shield#=500
        set sprite diffuse 1,255,128,0
        hits=0
      endif
    endif
  endif
next target

return

ship_collision:

for target=65 to 90
  if sprite visible(target)=1 and shield#=0
    if sprite collision(1,target)=1
      hide sprite 1
      set sprite diffuse 1,255,128,0
      dec lives
      play sound 3
      if lives<0 then gosub game_over
      shield#=500
    endif
  endif
next target

if shield#>0 then dec shield#,0.1*dt#
if shield#>0 and shield#<250 and ready=0
  ready=1
  show sprite 1
  shipx#=sw#/2.0
  shipy#=sh#/2.0
  shipvx#=0
  shipvy#=0
  sprite 1,shipx#,shipy#,1
endif

if shield#<0
  shield#=0
  set sprite diffuse 1,0,255,0
  ready=0
endif

return

game_over:

cls
text$="Game Over!  You scored "+str$(score)+" points."
text sw#/2.0-text width(text$)/2.0,sh#/2.0,text$
sync
wait 500
wait key
end

return

move_ship:

if rightkey()=1 then inc shipang#,0.1*dt#:rotate sprite 1,shipang#
if leftkey()=1 then dec shipang#,0.1*dt#:rotate sprite 1,shipang#
if upkey()=1
 inc shipvx#,shipa#*sin(shipang#+180)*dt#
 inc shipvy#,shipa#*cos(shipang#)*dt#
endif

if shipvx#>shipmaxv# then shipvx#=shipmaxv#
if shipvy#>shipmaxv# then shipvy#=shipmaxv#
if shipvx#<-shipmaxv# then shipvx#=-shipmaxv#
if shipvy#<-shipmaxv# then shipvy#=-shipmaxv#

inc shipx#,shipvx#*dt#
inc shipy#,shipvy#*dt#

if shipx#>sw#-sprite width(1) then dec shipx#,sw#-sprite width(1)
if shipy#>sh#-sprite height(1) then dec shipy#,sh#-sprite height(1)
if shipx#<0 then inc shipx#,sw#-sprite width(1)
if shipy#<0 then inc shipy#,sh#-sprite height(1)

sprite 1,shipx#,shipy#,1

return

move_letters:

for ascii=65 to 90
  letter(ascii).vx=alphav#*sin(letter(ascii).angle)
  letter(ascii).vy=alphav#*cos(letter(ascii).angle)
  inc letter(ascii).x,letter(ascii).vx*dt#
  inc letter(ascii).y,letter(ascii).vy*dt#
  if letter(ascii).x>sw#-sprite width(ascii) or letter(ascii).x<0 then letter(ascii).angle=-letter(ascii).angle
  if letter(ascii).y>sh#-sprite height(ascii) or letter(ascii).y<0 then letter(ascii).angle=-(letter(ascii).angle-180)
  sprite ascii,letter(ascii).x,letter(ascii).y,ascii
next ascii

return

function alpha(image,red,green,blue)
`this is for converting an image with no alpha layer into a monochrome image with alpha layer created from rgb values.
`image: image number
`red, gree, blue:  the single colour the final image will be
memblock=1
make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
for x=0 to sx-1
   for y=0 to sy-1
      pos=(y*sx+x)*4+12
      b=memblock byte(memblock,pos)
      g=memblock byte(memblock,pos+1)
      r=memblock byte(memblock,pos+2)

a=int((b+g+r)/3.0)
      b=blue
      g=green
      r=red

if a>255 then a=255
      if a<0 then a=0
      write memblock byte memblock,pos,b
      write memblock byte memblock,pos+1,g
      write memblock byte memblock,pos+2,r
      write memblock byte memblock,pos+3,a
   next y
next x
make image from memblock image,memblock
endfunction

function make_letter(spritenumber,letter$)

ink -1,0
set text size 100
set text font "Arial"
set text to bold

create bitmap 1,text width(letter$),text height(letter$)

text 0,0,letter$
blur bitmap 1,2
get image spritenumber,0,0,text width(letter$),text height(letter$)

sprite spritenumber,sw#,sh#,spritenumber

size sprite spritenumber,sprite width(spritenumber)/2.0,sprite height(spritenumber)/2.0
cls
paste sprite spritenumber,0,0

get image spritenumber,0,0,sprite width(spritenumber),sprite height(spritenumber),1
alpha(spritenumber,255,255,255)
delete bitmap 1

delete sprite spritenumber
sprite spritenumber,0,0,spritenumber
`set sprite alpha spritenumber,150
set sprite diffuse spritenumber,0,0,rnd(150)+100

endfunction

function make_sound(number)
  format as dword
  channels as dword
  sampleRate as dword
  adr as dword
  chunkSize as dword
  sampleSize as dword
  dword7 as dword
  format = 1
  channels = 1
  sampleRate = 22050
  sampleSize = 16
  chunkSize = (int(sampleSize / 8.0+0.5))*channels
  adr = sampleRate*chunkSize
  dword7 = 0
  rem ###################################
  rem Use a select-case statement so you can create multiple sounds
  rem Just add a new case statement for each sound number you want to create
  select number
    case 1
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 100
      wave#=0
      increment#=25.0
      gain#=0.01
      amplitude=25535
      decay=10
      rem #########################################################
      speed=sampleRate
    endcase
    case 2
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 200
      wave#=0
      increment#=5.0
      gain#=-0.1
      amplitude=25535
      decay=8
      rem #########################################################
      speed=sampleRate
    endcase
    case 3
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 800
      wave#=0
      increment#=10.0
      gain#=0.05
      amplitude=25535
      decay=5
      rem #########################################################
      speed=sampleRate
    endcase
    case 4
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 400
      wave#=0
      increment#=30.0
      gain#=-10.0
      amplitude=8000
      decay=2
      rem #########################################################
      speed=sampleRate
    endcase
  endselect
  rem number of samples
  samples = length*sampleRate/1000
  rem size of memblock
  size = samples*int(sampleSize/8.0+0.5) + 28
  make memblock 1, size
  write memblock dword 1, 0, format
  write memblock dword 1, 4, channels
  write memblock dword 1, 8, sampleRate
  write memblock dword 1, 12, adr
  write memblock dword 1, 16, chunkSize
  write memblock dword 1, 20, sampleSize
  write memblock dword 1, 24, dword7
  pos = 28
  out as word
  for i = 1 to samples
      out = sin(wave#)*amplitude
      write memblock word 1, pos, out
      inc pos, 2
      wave#=wave#+increment#
      if wave#>360.0
        wave#=wave#-360.0
        increment#=increment#-gain#
      endif
      amplitude=amplitude-decay
      if amplitude<0 then amplitude=0
  next i
  make sound from memblock number,1
  delete memblock 1
  set sound speed number,speed
endfunction

+ Code Snippet

set display mode 1024,768,32
sync on
sync rate 0
autocam off
make object cube 1,1
hide object 1
position object 1,0,0,5
global sw#
global sh#
sw#=screen width()
sh#=screen height()
color backdrop 0
hide mouse

make_sound(1)
make_sound(2)
make_sound(3)
make_sound(4)

set camera to image 0,10,256,256
sprite 10,0,0,10
size sprite 10,sw#,sh#
set sprite alpha 10,20
set sprite priority 10,1
set sprite 10,0,1

type lettertype

angle as float
x as float
y as float
vx as float
vy as float

endtype


alphav#=0.05

shipa#=0.0001
shipmaxv#=0.2
shipang#=180

make_letter(1,"V")
set sprite diffuse 1,0,255,0
size sprite 1,sprite width(1)/2.0,sprite height(1)/2.0
offset sprite 1,sprite width(1)/2.0,sprite height(1)/2.0
shipx#=sw#/2.0
shipy#=sh#/2.0
sprite 1,shipx#,shipy#,1
rotate sprite 1,shipang#

bullet=100
bulletspeed#=0.2

make_letter(bullet,"o")
set sprite diffuse bullet,255,0,0
size sprite bullet,sprite width(bullet)/4.0,sprite height(bullet)/4.0
offset sprite bullet,sprite width(bullet)/2.0,sprite height(bullet)/2.0
hide sprite bullet


dim letter(90) as lettertype

for ascii=65 to 90
make_letter(ascii,chr$(ascii))
letter(ascii).x=100+rnd(sw#-200)
letter(ascii).y=100+rnd(sh#-200)
sprite ascii,letter(ascii).x,letter(ascii).y,ascii
offset sprite ascii,sprite width(ascii)/2.0,sprite height(ascii)/2.0
letter(ascii).angle=rnd(360)
next ascii

dim targetactive(90)
for target=65 to 90
  targetactive(target)=1
next target



set text size 20
ink rgb(0,255,0),0

shield#=500
lives=5
set sprite diffuse 1,250,128,0

st#=timer()

do

  t#=timer()-st#
  dt#=t#-ot#
  ot#=t#
  gosub move_letters
  gosub move_ship
  gosub fire
  gosub ship_collision
  gosub bullet_collision
  `text 0,0,str$(screen fps())
  text 0,20,"Score: "+str$(score)
  text 0,40,"Lives: "+str$(lives)





sync
loop


fire:

if spacekey()=1 and spacekeydown=0 and firing=0
  spacekeydown=1
  show sprite bullet
  sprite bullet,sprite x(1),sprite y(1),bullet
  rotate sprite bullet,shipang#
  firing=1
  play sound 1
endif

if firing=1
  move sprite bullet,-bulletspeed#*dt#
  if sprite x(bullet)<0 or sprite x(bullet)>sw# or sprite y(bullet)<0 or sprite y(bullet)>sh#
    hide sprite bullet
    firing=0
  endif
endif

if spacekey()=0 and spacekeydown=1 then spacekeydown=0

return

bullet_collision:

for target=65 to 90
  if sprite visible(target)=1 and sprite visible(bullet)=1
    if sprite collision(bullet,target)=1
      hide sprite target
      inc hits
      play sound 2
      highertargetactive=0
      if target<90
        for check=target+1 to 90
          if targetactive(check)=1 then highertargetactive=1:exit
        next check
      endif
      if highertargetactive=1 then inc score,1 else inc score,10
      targetactive(target)=0
      hide sprite bullet
      firing=0
      if hits=26
        for n=65 to 90
          show sprite n
          targetactive(n)=1
        next n
        inc alphav#,0.025
        shield#=500
        set sprite diffuse 1,255,128,0
        hits=0
      endif
    endif
  endif
next target

return


ship_collision:

for target=65 to 90
  if sprite visible(target)=1 and shield#=0
    if sprite collision(1,target)=1
      hide sprite 1
      set sprite diffuse 1,255,128,0
      dec lives
      play sound 3
      if lives<0 then gosub game_over
      shield#=500
    endif
  endif
next target



if shield#>0 then dec shield#,0.1*dt#
if shield#>0 and shield#<250 and ready=0
  ready=1
  show sprite 1
  shipx#=sw#/2.0
  shipy#=sh#/2.0
  shipvx#=0
  shipvy#=0
  sprite 1,shipx#,shipy#,1
endif

if shield#<0
  shield#=0
  set sprite diffuse 1,0,255,0
  ready=0
endif

return

game_over:

cls
text$="Game Over!  You scored "+str$(score)+" points."
text sw#/2.0-text width(text$)/2.0,sh#/2.0,text$
sync
wait 500
wait key
end

return


move_ship:

if rightkey()=1 then inc shipang#,0.1*dt#:rotate sprite 1,shipang#
if leftkey()=1 then dec shipang#,0.1*dt#:rotate sprite 1,shipang#
if upkey()=1
 inc shipvx#,shipa#*sin(shipang#+180)*dt#
 inc shipvy#,shipa#*cos(shipang#)*dt#
endif

if shipvx#>shipmaxv# then shipvx#=shipmaxv#
if shipvy#>shipmaxv# then shipvy#=shipmaxv#
if shipvx#<-shipmaxv# then shipvx#=-shipmaxv#
if shipvy#<-shipmaxv# then shipvy#=-shipmaxv#

inc shipx#,shipvx#*dt#
inc shipy#,shipvy#*dt#

if shipx#>sw#-sprite width(1) then dec shipx#,sw#-sprite width(1)
if shipy#>sh#-sprite height(1) then dec shipy#,sh#-sprite height(1)
if shipx#<0 then inc shipx#,sw#-sprite width(1)
if shipy#<0 then inc shipy#,sh#-sprite height(1)

sprite 1,shipx#,shipy#,1



return

move_letters:

for ascii=65 to 90
  letter(ascii).vx=alphav#*sin(letter(ascii).angle)
  letter(ascii).vy=alphav#*cos(letter(ascii).angle)
  inc letter(ascii).x,letter(ascii).vx*dt#
  inc letter(ascii).y,letter(ascii).vy*dt#
  if letter(ascii).x>sw#-sprite width(ascii) or letter(ascii).x<0 then letter(ascii).angle=-letter(ascii).angle
  if letter(ascii).y>sh#-sprite height(ascii) or letter(ascii).y<0 then letter(ascii).angle=-(letter(ascii).angle-180)
  sprite ascii,letter(ascii).x,letter(ascii).y,ascii
next ascii


return

function alpha(image,red,green,blue)
`this is for converting an image with no alpha layer into a monochrome image with alpha layer created from rgb values.
`image: image number
`red, gree, blue:  the single colour the final image will be
memblock=1
make memblock from image memblock,image
sx=memblock dword(memblock,0)
sy=memblock dword(memblock,4)
for x=0 to sx-1
   for y=0 to sy-1
      pos=(y*sx+x)*4+12
      b=memblock byte(memblock,pos)
      g=memblock byte(memblock,pos+1)
      r=memblock byte(memblock,pos+2)

      a=int((b+g+r)/3.0)
      b=blue
      g=green
      r=red

      if a>255 then a=255
      if a<0 then a=0
      write memblock byte memblock,pos,b
      write memblock byte memblock,pos+1,g
      write memblock byte memblock,pos+2,r
      write memblock byte memblock,pos+3,a
   next y
next x
make image from memblock image,memblock
endfunction

function make_letter(spritenumber,letter$)


ink -1,0
set text size 100
set text font "Arial"
set text to bold


create bitmap 1,text width(letter$),text height(letter$)

text 0,0,letter$
blur bitmap 1,2
get image spritenumber,0,0,text width(letter$),text height(letter$)

sprite spritenumber,sw#,sh#,spritenumber

size sprite spritenumber,sprite width(spritenumber)/2.0,sprite height(spritenumber)/2.0
cls
paste sprite spritenumber,0,0


get image spritenumber,0,0,sprite width(spritenumber),sprite height(spritenumber),1
alpha(spritenumber,255,255,255)
delete bitmap 1

delete sprite spritenumber
sprite spritenumber,0,0,spritenumber
`set sprite alpha spritenumber,150
set sprite diffuse spritenumber,0,0,rnd(150)+100



endfunction



function make_sound(number)
  format as dword
  channels as dword
  sampleRate as dword
  adr as dword
  chunkSize as dword
  sampleSize as dword
  dword7 as dword
  format = 1
  channels = 1
  sampleRate = 22050
  sampleSize = 16
  chunkSize = (int(sampleSize / 8.0+0.5))*channels
  adr = sampleRate*chunkSize
  dword7 = 0
  rem ###################################
  rem Use a select-case statement so you can create multiple sounds
  rem Just add a new case statement for each sound number you want to create
  select number
    case 1
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 100
      wave#=0
      increment#=25.0
      gain#=0.01
      amplitude=25535
      decay=10
      rem #########################################################
      speed=sampleRate
    endcase
    case 2
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 200
      wave#=0
      increment#=5.0
      gain#=-0.1
      amplitude=25535
      decay=8
      rem #########################################################
      speed=sampleRate
    endcase
    case 3
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 800
      wave#=0
      increment#=10.0
      gain#=0.05
      amplitude=25535
      decay=5
      rem #########################################################
      speed=sampleRate
    endcase
    case 4
      rem ##########################################################
      rem Adjust these values to get different sounds
      rem Very minor adjustments will create very different sounds
      length = 400
      wave#=0
      increment#=30.0
      gain#=-10.0
      amplitude=8000
      decay=2
      rem #########################################################
      speed=sampleRate
    endcase
  endselect
  rem number of samples
  samples = length*sampleRate/1000
  rem size of memblock
  size = samples*int(sampleSize/8.0+0.5) + 28
  make memblock 1, size
  write memblock dword 1, 0, format
  write memblock dword 1, 4, channels
  write memblock dword 1, 8, sampleRate
  write memblock dword 1, 12, adr
  write memblock dword 1, 16, chunkSize
  write memblock dword 1, 20, sampleSize
  write memblock dword 1, 24, dword7
  pos = 28
  out as word
  for i = 1 to samples
      out = sin(wave#)*amplitude
      write memblock word 1, pos, out
      inc pos, 2
      wave#=wave#+increment#
      if wave#>360.0
        wave#=wave#-360.0
        increment#=increment#-gain#
      endif
      amplitude=amplitude-decay
      if amplitude<0 then amplitude=0
  next i
  make sound from memblock number,1
  delete memblock 1
  set sound speed number,speed
endfunction

Alexb: I think the wave# variable defines the starting point of the wave - called the phase angle. Playing one sound at a time, you will not hear any difference wherever it starts, but if you used the function to layer sounds, playing waves with same frequencies but different phase angles could result in differences in the way the sounds combine - for example, if they were out of phase (eg. one wave cycle starts at 0 degress, and the other at 180 degrees), the two sounds would destructively intefere - in other words, they would cancel each other out resulting in little or no sound at all.

Back to top

Profile PM Email Website

Alexb Orsova

20

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th Mar 2007 21:32 Edited at: 7th Mar 2007 21:33

Link

@Ric

Thanks a lot Ric, that helped a lot. By the way, I checked out the link you posted earlier for a sound creation function. It seems as if that one is more clearly defined but harder to use due to the larger amount of settings. Just thought I might tell you.

@ALL

When is the deadline (time not date)? Is it at midnight?

Don't believe this sentence.

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 7th Mar 2007 21:37

Link

Yes, it takes a bit more getting used to because of all the parameters, but it does give you good control of the sound if you understand what they all do. However, it appears not to work anymore since versions 6.4 and 6.5 of DBPro - they did something to the sound memblock commands. Luckily, Green Gandalf has been taking a look at it and we should have a new version soon. He is working on including a piano keyboard with record/playback, so we may be able to include no media music into our challenge entries soon!

Back to top

Profile PM Email Website

Alexb Orsova

20

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th Mar 2007 21:43

Link

So, Ric, whose entry do you like so far?

Don't believe this sentence.

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 7th Mar 2007 21:50

Link

Mine of course !!

But seriously, I think they're all great, but it's not for me to say - I'm not judging this one. The deadline is usually midnight in your own time zone. But, as it's a weeknight, we should all be in bed long before that!

Back to top

Profile PM Email Website

Alexb Orsova

20

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 7th Mar 2007 21:52

Link

I know, I was simply asking your opinion. I believe Brain111 is judging this one, no?

Don't believe this sentence.

Back to top

Profile PM Email

Brain111

19

Years of Service

User Offline

Joined: 5th Feb 2007

Location: In my own little world.

Posted: 8th Mar 2007 03:52

Link

Well, it's currently 10. I'm not staying up, so I'm gonna judge it right now.

Runner up:

+ Code Snippet

Ric:  A very nice complete game game made of letters complete with a blurring effect.  I'm assuming it had cool sound effects too, but i couldnt get them to work because my computer seems to hate the "make sound from memblock" command.

Winner:

+ Code Snippet

GadgetFreak66:  A very unique idea, that matrix-style shoot-em-up screen was awesome.  Good job, man.

Back to top

Profile PM

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 8th Mar 2007 08:51

Link

Congratulations GF66! Godd challenge, that was. What's up next then?

Back to top

Profile PM Email Website

gadgetfreak 66

19

Years of Service

User Offline

Joined: 26th Sep 2006

Location: Kulin,WA, Australia

Posted: 8th Mar 2007 09:55 Edited at: 8th Mar 2007 10:00

Link

2/4. Not a bad ratio if I do say so myself.

To be honest though, my imaginative capability is basically non-existant. I really have no ideas whatsoever for the next challenge. Therefore, anyones ideas will be gladly welcomed.

omnia dicta fortiora si dicta Latina

Back to top

Profile PM Email

Diggsey

20

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 8th Mar 2007 23:37

Link

Explosion effects?

VISIT MY WEBSITE!

Back to top

Profile PM Email Website

gadgetfreak 66

19

Years of Service

User Offline

Joined: 26th Sep 2006

Location: Kulin,WA, Australia

Posted: 9th Mar 2007 00:04 Edited at: 9th Mar 2007 00:05

Link

hmm...its definitely a contender. I've always wondered how to do good explosion effects, but never really tried. Most people would probably have a good use for it too. Anyone else have any more ideas/comments?

omnia dicta fortiora si dicta Latina

Back to top

Profile PM Email

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 9th Mar 2007 00:14

Link

Explosion effects would be cool - but DAMN hard to do without media.

My suggestion for the last challenge was a "low profile" plasma like effect. The kind of thing you often see WinAmp making to music. It could go in the background of an existing game to make it more psychedelic. Something like this but constantly "evolving". The trick would be to do it in such an efficient way that it didn't want to set fire to your PC. Something with a VERY light footprint.

[center]

Back to top

Profile PM Email Website

Brain111

19

Years of Service

User Offline

Joined: 5th Feb 2007

Location: In my own little world.

Posted: 9th Mar 2007 00:47

Link

Ohhhh.... your last suggestion for the competition makes sense now.

Back to top

Profile PM

acelepage

22

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 9th Mar 2007 01:04 Edited at: 9th Mar 2007 01:04

Link

@Alexb:
Sorry for a late response. Ric's explanation is very good. The wave# variable is used to generate the sine wave for the sound. It loops back to 0 when it hits 360.

@gadgetfreak:
For a challenge idea, how about creating a morph effect? This is where one image/object changes smoothly into another object. This could be a 2D morph of an image to another image, or a 3D morph of an object into another. It could even be like a transformer, those toys that change into other toys.

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 9th Mar 2007 01:07

Link

I like the plasma effect thingy idea. Some other ideas off the top of my head:

-top down racer - like scaletrix (or however you spell it)
-radio controlled helicopter/aeroplane sim
-curling game
-text adventure

Back to top

Profile PM Email Website

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 9th Mar 2007 01:46

Link

Top Down Racer - I like!!
Curling game? Do you mean like the scotish sport?

[center]

Back to top

Profile PM Email Website

Alexb Orsova

20

Years of Service

User Offline

Joined: 6th Dec 2005

Location:

Posted: 9th Mar 2007 02:44

Link

How about a planetary weather simulation?

Don't believe this sentence.

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 9th Mar 2007 10:19 Edited at: 9th Mar 2007 10:39

Link

Quote: "Curling game? Do you mean like the Scottish sport?"

Yeah - like bowls on ice. Never played it in real life, but it looks quite fun. <edit> Just looked at the link on wikipedia - woah! It's more involved than I realised!

Back to top

Profile PM Email Website

gadgetfreak 66

19

Years of Service

User Offline

Joined: 26th Sep 2006

Location: Kulin,WA, Australia

Posted: 9th Mar 2007 11:04

Link

Woah. This must be the most posts while I've been at school. The top-down racer sounds good. If you look at something like this: http://generally.rscsites.org/, you can see that the cars don't have to be that detailed with media, etc. to make an absolutely awesome game. So:

Challenge: Top-down racer.
Closing date:Friday 23rd of March (two weeks from now)

The game can either be 2D or 3D, as long as the camera is top-down. The camera does not have to be fixed, mind, it is allowed to scroll sideways. Other than that, it can be any type of racing you want, and it is not necessarily confined to vehicles with wheels.

omnia dicta fortiora si dicta Latina

Back to top

Profile PM Email

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 9th Mar 2007 14:40

Link

Generally is one of my most favourite games EVER - if someone can do justice to that game here and add network, I'd love you forever!

[center]

Back to top

Profile PM Email Website

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 9th Mar 2007 15:39

Link

Cool - this one is going to be fun!

Back to top

Profile PM Email Website

gadgetfreak 66

19

Years of Service

User Offline

Joined: 26th Sep 2006

Location: Kulin,WA, Australia

Posted: 9th Mar 2007 16:59

Link

It's interesting though, the most fun in Generally is usually had with three other people crammed on the keyboard running amok all over the screen, not racing at all. We used to almost fall over laughing every time someone in a one-wheeler got smashed side on with a truck. Good times.

omnia dicta fortiora si dicta Latina

Back to top

Profile PM Email

Darth Vader

21

Years of Service

User Offline

Joined: 10th May 2005

Location: Adelaide SA, I am the only DB user here!

Posted: 11th Mar 2007 10:30

Link

I have a brilliant idea for this game! I just wish I knew how to make good textures from the DATA command!

Any help with that?

Quote: "f someone can do justice to that game here and add network, I'd love you forever!"

Might be a good chance for me to learn about networking!
I'm definitely in on this one unless my map editor gets in the way!

Back to top

Profile PM Email Website

gadgetfreak 66

19

Years of Service

User Offline

Joined: 26th Sep 2006

Location: Kulin,WA, Australia

Posted: 11th Mar 2007 14:34

Link

What kind of textures are you talking about? If it was just blocks of colour on different faces, you could just put the co-ords and colours for boxes on the texture in a data statement. It might take a bit if trial and error to line it up with the default UV coordinates of DBP's primitives, but it's possible. Short of listing every pixel bitmap style, I think boxes or even a vector graphics system is the only way to go.

omnia dicta fortiora si dicta Latina

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 11th Mar 2007 15:10

Link

Discuss:

What methods are people thinking of for producing a track which will enable collision with the edges of the road, and waypoint markers for AI cars?

I was thinking about using a tile based system, perhaps made of 3d planes. Some road tiles, and some grass or other non-road tiles, and placing them according to a set of data statements. Numbering the road tiles in the order they go around the circuit would provide the waypoint data.

I can see this method working for a circuit with straight roads and right angle corners, but I don't know how to go about curved sections. Ideas?

Back to top

Profile PM Email Website

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 11th Mar 2007 16:49

Link

The way generally does it (which also makes it really accessible for "newbies") is you make your track in MS Paint with about 8 colours - each colour representing a different track part, eg grey = track, green = dirt, brown = mud, red = red/white kerb, etc. You also provide a greyscale heightmap too.

Dunno if thats any help - obviously, the no-media thing is limiting, but you could provide 1 built in track which is made using data statements and then pass that data into functions which could also take the data in the same form, but from a file-read instead?

As for AI, GR lets you define waypoints. I assume then, the game maybe uses bezier curves or something? The AI in GR is very simple, but quite fun. I think the difficulty is adjusted by how quick the opponent cars are (eg power, grip and top speed multiplier).

[center]

Back to top

Profile PM Email Website

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 11th Mar 2007 20:54

Link

So, if you colour coded the various parts, I guess you would use the 'point' command to check what colour a car is currently over, and whether it is on the road? If so, then I think using 2d sprites would probably work best for the cars, as the point command takes 2d coordinates.

Back to top

Profile PM Email Website

Daemon

20

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 11th Mar 2007 21:18 Edited at: 11th Mar 2007 21:55

Link

It's not the best looking think I've ever made, and the place it says you are in is a huge approximation, but it works well.

Use arrowkeys to move.
It uses a tile based system
-grey=road (good)
-green=grass (slows you down)
-black=wall (bad)

sync on
sync rate 30
autocam off
hide mouse
randomize timer()

set camera range 10,10000
color backdrop rgb(0, 210, 255)
make object box 1,50,30,100
make object box 2,10,10,15
make mesh from object 1,2
delete object 2
add limb 1,1,1
offset limb 1,1,0,20,-40
delete mesh 1
make object box 2,60,6,20
make mesh from object 1,2
delete object 2
add limb 1,2,1
offset limb 1,2,0,23,-40
delete mesh 1
make object sphere 2,100,6,6
scale object 2,6,25,25
make mesh from object 1,2
delete object 2
add limb 1,3,1
offset limb 1,3,28,-10,30
add limb 1,4,1
offset limb 1,4,-28,-10,30
add limb 1,5,1
offset limb 1,5,28,-10,-30
add limb 1,6,1
offset limb 1,6,-28,-10,-30
delete mesh 1
scale object 1,50,50,50 
make_image_memblock(1,1,1,32)
for image=1 to 8
    memblock_dot(1,1,1,rgb(rnd(255),rnd(255),rnd(255)))
    make image from memblock image,1
next image
memblock_dot(1,1,1,rgb(0,0,0))
make image from memblock 9,1
memblock_dot(1,1,1,rgb(0,255,0))
make image from memblock 10,1
memblock_dot(1,1,1,rgb(190,190,190))
make image from memblock 11,1
delete memblock 1
for car=2 to 8
    clone object car,1
next car
for car=1 to 8
    texture object car,car   
    for i=3 to 6
        texture limb car,i,9
    next i
    position object car,cos(car*180)*40+3700,0,car*40+2100
next car
obj=9
dim track(30,30)
restore track
for x=1 to 30
    for z=1 to 30
        read road
        track(x,z)=road
        if road<2
            make object plain obj,200,200,1
            xrotate object obj,90
            position object obj,x*200,-20,z*200
            texture object obj,10+road
        else
            make object box obj,200,50,200
            position object obj,x*200,5,z*200
            texture object obj,9
        endif
        inc obj
    next z
next x
for i=1 to obj-1
    set object light i,0
next i

type car_info
     acc as float
     wpt as integer
     lap as integer
endtype
dim car(8) as car_info

type way_point
     x as integer
     z as integer
endtype
dim way(20) as way_point
way(0).x=19
way(0).z=13
way(1).x=20
way(1).z=16
way(2).x=26
way(2).z=18
way(3).x=29
way(3).z=22
way(4).x=23
way(4).z=27
way(5).x=15
way(5).z=26
way(6).x=13
way(6).z=17
way(7).x=11
way(7).z=16
way(8).x=8
way(8).z=19
way(9).x=8
way(9).z=25
way(10).x=4
way(10).z=24
way(11).x=4
way(11).z=15
way(12).x=7
way(12).z=11
way(13).x=8
way(13).z=4
way(14).x=17
way(14).z=4
way(15).x=20
way(15).z=3
way(16).x=21
way(16).z=7
way(17).x=18
way(17).z=10
numways=17
null=make vector2(1)
null=make vector2(2)

set text font "Arial"
set text size 100
position camera 0,5000,0
point camera 3000,0,3000
for i=1 to 400
    sync
    center text screen width()/2,screen height()/2-50,"Get Ready!"
    position camera curvevalue(object position x(1),camera position x(),80),curvevalue(1000,camera position y(),80),curvevalue(object position z(1),camera position z(),80)
    rotate camera curveangle(90,camera angle x(),80),curveangle(0,camera angle y(),80),curveangle(0,camera angle z(),80)
next i

rotate camera 90,0,0
set text size 24
place=8

dim pt(8) as string
pt(1)="st"
pt(2)="nd"
pt(3)="rd"
for i=4 to 8
    pt(i)="th"
next i

repeat
if escapekey()=1
   end
endif
sync
text 0,0,"Lap: "+str$(car(1).lap+1)
text 0,30,"Place: "+str$(place)+pt(place)
oldx#=object position x(1)
oldz#=object position z(1)
road=track(int(oldx#/200+0.5),int(oldz#/200+0.5))
if road=1
   friction#=.98
else
   friction#=.95
endif

car(1).acc=car(1).acc*friction#+(upkey()-downkey())*.7
move object 1,car(1).acc
turn=rightkey()-leftkey()
yrotate object 1,object angle y(1)+turn*3
rotate limb 1,3,0,turn*10,0
rotate limb 1,4,0,turn*10,0
rotate limb 1,5,0,-turn*10,0
rotate limb 1,6,0,-turn*10,0

newx#=object position x(1)
newz#=object position z(1)
colwith=object collision(1,0)
if colwith>0
   position object 1,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
   car(1).acc=car(1).acc*.1
endif

wx=way(car(1).wpt).x*200
wz=way(car(1).wpt).z*200
set vector2 1,object position x(1),object position z(1)
set vector2 2,wx,wz
subtract vector2 2,1,2
dist#=length vector2(2)
if dist#<1000
   car(1).wpt=car(1).wpt+1
   if car(1).wpt>numways
      car(1).wpt=0
      car(1).lap=car(1).lap+1
   endif
endif

position camera object position x(1),1000,object position z(1)

for ai=2 to 8
    ca#=object angle y(ai)
    wx=way(car(ai).wpt).x*200
    wz=way(car(ai).wpt).z*200
    point object ai,wx,0,wz
    na#=object angle y(ai)
    rotate object ai,0,curveangle(na#,ca#,10),0
    road=track(int(object position x(ai)/200+0.5),int(object position z(ai)/200+0.5))
    if road=1
       friction#=.98
    else
       friction#=.95
    endif
    car(ai).acc=car(ai).acc*friction#+rnd(100)/100.0+.1
    oldx#=object position x(ai)
    oldz#=object position z(ai)
    move object ai,car(ai).acc
    newx#=object position x(ai)
    newz#=object position z(ai)   
    colwith=object collision(ai,0)
    if colwith>0
       position object ai,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
       car(ai).acc=car(ai).acc*.1
    endif
    set vector2 1,object position x(ai),object position z(ai)
    set vector2 2,wx,wz
    subtract vector2 2,1,2
    dist#=length vector2(2)
    if dist#<150
       car(ai).wpt=car(ai).wpt+1
       if car(ai).wpt>numways
          car(ai).wpt=0
          car(ai).lap=car(ai).lap+1
       endif
    endif
next ai
place=1
for i=2 to 8
    if car(i).lap>car(1).lap or car(i).lap=car(1).lap and car(i).wpt=>car(1).wpt
       inc place
    endif
next i
until car(1).lap=5

delete objects 1,obj-1
color backdrop 0
set text size 50
center text screen width()/2,screen height()/2-25,"You ranked "+str$(place)+pt(place) 
sync
wait key
end

track:

data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,2,2,2,2,2,2,2,0,1,1,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,1,0,0,0,2,2,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,0,0,0,0,2,2,2,0,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,2,2,2,2,2,2,0,1,1,0,0,1,1,1,1,1,0,0,0,0,2
data 2,0,1,1,0,0,0,0,2,2,2,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,1,0,0,0,2,2,2,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,0,1,1,1,1,1,0,0,0,0,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,0,0,0,0,1,1,1,1,1,0,0,0,2
data 2,0,0,1,1,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,2,0,0,1,1,1,1,0,0,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,0,1,1,1,1,1,1,1,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,2,0,0,0,2,0,0,1,1,0,0,2
data 2,0,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0,2,0,0,0,2,0,1,1,1,0,0,2
data 2,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0,2,0,0,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,0,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2

function make_image_memblock(memblock,width,height,depth)
make memblock memblock,width*height*depth*4+12
write memblock dword memblock,0,width
write memblock dword memblock,4,height
write memblock dword memblock,8,depth
endfunction

function memblock_dot(memblock,xcoord,ycoord,colour as dword)
width=memblock dword(memblock,0)
write memblock dword memblock,((ycoord-1)*width+xcoord-1)*4+12,colour
endfunction

+ Code Snippet

sync on
sync rate 30
autocam off
hide mouse
randomize timer()

set camera range 10,10000
color backdrop rgb(0, 210, 255)
make object box 1,50,30,100
make object box 2,10,10,15
make mesh from object 1,2
delete object 2
add limb 1,1,1
offset limb 1,1,0,20,-40
delete mesh 1
make object box 2,60,6,20
make mesh from object 1,2
delete object 2
add limb 1,2,1
offset limb 1,2,0,23,-40
delete mesh 1
make object sphere 2,100,6,6
scale object 2,6,25,25
make mesh from object 1,2
delete object 2
add limb 1,3,1
offset limb 1,3,28,-10,30
add limb 1,4,1
offset limb 1,4,-28,-10,30
add limb 1,5,1
offset limb 1,5,28,-10,-30
add limb 1,6,1
offset limb 1,6,-28,-10,-30
delete mesh 1
scale object 1,50,50,50 
make_image_memblock(1,1,1,32)
for image=1 to 8
    memblock_dot(1,1,1,rgb(rnd(255),rnd(255),rnd(255)))
    make image from memblock image,1
next image
memblock_dot(1,1,1,rgb(0,0,0))
make image from memblock 9,1
memblock_dot(1,1,1,rgb(0,255,0))
make image from memblock 10,1
memblock_dot(1,1,1,rgb(190,190,190))
make image from memblock 11,1
delete memblock 1
for car=2 to 8
    clone object car,1
next car
for car=1 to 8
    texture object car,car   
    for i=3 to 6
        texture limb car,i,9
    next i
    position object car,cos(car*180)*40+3700,0,car*40+2100
next car
obj=9
dim track(30,30)
restore track
for x=1 to 30
    for z=1 to 30
        read road
        track(x,z)=road
        if road<2
            make object plain obj,200,200,1
            xrotate object obj,90
            position object obj,x*200,-20,z*200
            texture object obj,10+road
        else
            make object box obj,200,50,200
            position object obj,x*200,5,z*200
            texture object obj,9
        endif
        inc obj
    next z
next x
for i=1 to obj-1
    set object light i,0
next i

type car_info
     acc as float
     wpt as integer
     lap as integer
endtype
dim car(8) as car_info

type way_point
     x as integer
     z as integer
endtype
dim way(20) as way_point
way(0).x=19
way(0).z=13
way(1).x=20
way(1).z=16
way(2).x=26
way(2).z=18
way(3).x=29
way(3).z=22
way(4).x=23
way(4).z=27
way(5).x=15
way(5).z=26
way(6).x=13
way(6).z=17
way(7).x=11
way(7).z=16
way(8).x=8
way(8).z=19
way(9).x=8
way(9).z=25
way(10).x=4
way(10).z=24
way(11).x=4
way(11).z=15
way(12).x=7
way(12).z=11
way(13).x=8
way(13).z=4
way(14).x=17
way(14).z=4
way(15).x=20
way(15).z=3
way(16).x=21
way(16).z=7
way(17).x=18
way(17).z=10
numways=17
null=make vector2(1)
null=make vector2(2)

set text font "Arial"
set text size 100
position camera 0,5000,0
point camera 3000,0,3000
for i=1 to 400
    sync
    center text screen width()/2,screen height()/2-50,"Get Ready!"
    position camera curvevalue(object position x(1),camera position x(),80),curvevalue(1000,camera position y(),80),curvevalue(object position z(1),camera position z(),80)
    rotate camera curveangle(90,camera angle x(),80),curveangle(0,camera angle y(),80),curveangle(0,camera angle z(),80)
next i

rotate camera 90,0,0
set text size 24
place=8

dim pt(8) as string
pt(1)="st"
pt(2)="nd"
pt(3)="rd"
for i=4 to 8
    pt(i)="th"
next i


repeat
if escapekey()=1
   end
endif
sync
text 0,0,"Lap: "+str$(car(1).lap+1)
text 0,30,"Place: "+str$(place)+pt(place)
oldx#=object position x(1)
oldz#=object position z(1)
road=track(int(oldx#/200+0.5),int(oldz#/200+0.5))
if road=1
   friction#=.98
else
   friction#=.95
endif

car(1).acc=car(1).acc*friction#+(upkey()-downkey())*.7
move object 1,car(1).acc
turn=rightkey()-leftkey()
yrotate object 1,object angle y(1)+turn*3
rotate limb 1,3,0,turn*10,0
rotate limb 1,4,0,turn*10,0
rotate limb 1,5,0,-turn*10,0
rotate limb 1,6,0,-turn*10,0

newx#=object position x(1)
newz#=object position z(1)
colwith=object collision(1,0)
if colwith>0
   position object 1,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
   car(1).acc=car(1).acc*.1
endif

wx=way(car(1).wpt).x*200
wz=way(car(1).wpt).z*200
set vector2 1,object position x(1),object position z(1)
set vector2 2,wx,wz
subtract vector2 2,1,2
dist#=length vector2(2)
if dist#<1000
   car(1).wpt=car(1).wpt+1
   if car(1).wpt>numways
      car(1).wpt=0
      car(1).lap=car(1).lap+1
   endif
endif


position camera object position x(1),1000,object position z(1)

for ai=2 to 8
    ca#=object angle y(ai)
    wx=way(car(ai).wpt).x*200
    wz=way(car(ai).wpt).z*200
    point object ai,wx,0,wz
    na#=object angle y(ai)
    rotate object ai,0,curveangle(na#,ca#,10),0
    road=track(int(object position x(ai)/200+0.5),int(object position z(ai)/200+0.5))
    if road=1
       friction#=.98
    else
       friction#=.95
    endif
    car(ai).acc=car(ai).acc*friction#+rnd(100)/100.0+.1
    oldx#=object position x(ai)
    oldz#=object position z(ai)
    move object ai,car(ai).acc
    newx#=object position x(ai)
    newz#=object position z(ai)   
    colwith=object collision(ai,0)
    if colwith>0
       position object ai,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
       car(ai).acc=car(ai).acc*.1
    endif
    set vector2 1,object position x(ai),object position z(ai)
    set vector2 2,wx,wz
    subtract vector2 2,1,2
    dist#=length vector2(2)
    if dist#<150
       car(ai).wpt=car(ai).wpt+1
       if car(ai).wpt>numways
          car(ai).wpt=0
          car(ai).lap=car(ai).lap+1
       endif
    endif
next ai
place=1
for i=2 to 8
    if car(i).lap>car(1).lap or car(i).lap=car(1).lap and car(i).wpt=>car(1).wpt
       inc place
    endif
next i
until car(1).lap=5

delete objects 1,obj-1
color backdrop 0
set text size 50
center text screen width()/2,screen height()/2-25,"You ranked "+str$(place)+pt(place) 
sync
wait key
end

track:

data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,2,2,2,2,2,2,2,0,1,1,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,1,0,0,0,2,2,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,0,0,0,0,2,2,2,0,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,2,2,2,2,2,2,0,1,1,0,0,1,1,1,1,1,0,0,0,0,2
data 2,0,1,1,0,0,0,0,2,2,2,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,1,0,0,0,2,2,2,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,0,1,1,1,1,1,0,0,0,0,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,0,0,0,0,1,1,1,1,1,0,0,0,2
data 2,0,0,1,1,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,2,0,0,1,1,1,1,0,0,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,0,1,1,1,1,1,1,1,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,2,0,0,0,2,0,0,1,1,0,0,2
data 2,0,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0,2,0,0,0,2,0,1,1,1,0,0,2
data 2,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0,2,0,0,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,0,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2

function make_image_memblock(memblock,width,height,depth)
make memblock memblock,width*height*depth*4+12
write memblock dword memblock,0,width
write memblock dword memblock,4,height
write memblock dword memblock,8,depth
endfunction

function memblock_dot(memblock,xcoord,ycoord,colour as dword)
width=memblock dword(memblock,0)
write memblock dword memblock,((ycoord-1)*width+xcoord-1)*4+12,colour
endfunction

Insanity is just a state of mind.

Back to top

Profile PM Website

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 11th Mar 2007 23:01

Link

Woah - that's really good! I'm impressed you've got this far within 300 lines, too. I'm going to study your tile system now.

Back to top

Profile PM Email Website

Daemon

20

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 12th Mar 2007 02:24 Edited at: 12th Mar 2007 21:04

Link

Thanks, but the tiles aren't complicated enough to really study. It was your idea which I stole anyway.
I've made some superficial upgrades. You can now use "wasd" to control the car.
Also, I stole some sound code from Hobgoblin Lord.
There are now boost squares (the red and yellow ones)

`The Usual Setup
sync on
sync rate 30
autocam off
hide mouse
randomize timer()
set text font "Gungsuh"
`Variables
sw=screen width()
sh=screen height()
type car_info
     acc as float
     wpt as integer
     lap as integer
     finish as boolean
endtype
dim car(8) as car_info
type way_point
     x as integer
     z as integer
endtype
dim way(20) as way_point
null=make vector2(1)
null=make vector2(2)
dim pt(8) as string
pt(1)="st"
pt(2)="nd"
pt(3)="rd"
for i=4 to 8
    pt(i)="th"
next i
place=8
dim comment(8) as string
comment(1)="Congradulations, you are God"
comment(2)="Ok, now you'll have to play again"
comment(3)="You still get a medal"
comment(4)="Do better"
comment(5)="Now your not even in the top 50%"
comment(6)="Shame"
comment(7)="You could have done worse"
comment(8)="Seek help"
`Stolen from Hobgoblin Lord
type note_thing
   note as integer
   speed as integer
   volume as integer
endtype
dim master_note(-1) as note_thing
make_midi("R",25,2,"a4 a4 a4 g5")
load music "r.mid",1
`Grass
make_image_memblock(1,32,32,32)
for x=1 to 32
    for y=1 to 32
        memblock_dot(1,x,y,rgb(rnd(128),rnd(128)+127,0))
    next y
next x
make image from memblock 10,1
`Road
for x=1 to 32
    for y=1 to 32
        c=rnd(20)+127
        memblock_dot(1,x,y,rgb(c,c,c))
    next y
next x
make image from memblock 11,1
`Wall
for x=1 to 32
    for y=1 to 32
        c=rnd(60)
        memblock_dot(1,x,y,rgb(c,c,c))
    next y
next x
make image from memblock 12,1
`Boost
for x=1 to 32
    for y=1 to 32
        memblock_dot(1,x,y,rgb(255,x*50 mod 256,0))
    next y
next x
make image from memblock 15,1
delete memblock 1
set text size 14
color backdrop rgb(29, 94, 99)
`Choose Track
track=1
repeat
if escapekey()=1
   end
endif
sync
set cursor 0,0
print "Select a track"
print ""
dim trackname(3) as string
trackname(1)="Winding Willow"
trackname(2)="Spring Track"
trackname(3)="Checker Field"
sprite 1,-10,-10,10
size sprite 1,10,10
for i=1 to 3
    if i=track
       ink rgb(123, 123, 238),0
       arrow$=" <--------"
    else
       ink -1,0
       arrow$=""
    endif
    print trackname(i)+arrow$
next i
select track
    case 1
        restore track1
    endcase
    case 2
        restore track2
    endcase
    case 3
        restore track3
    endcase
endselect
for x=1 to 30
    for z=1 to 30
        read road
        select road
            case 0
                set sprite image 1,10
            endcase
            case 1
                set sprite image 1,11
            endcase
            case 2
                set sprite image 1,12
            endcase
            case 3
                set sprite image 1,15
            endcase
        endselect
        paste sprite 1,x*10+200,400-z*10
    next z
next x
track=track-upkey()+downkey()
if track<1
   track=1
endif
if track>3
   track=3
endif
ink -1,0
until returnkey()=1
delete sprite 1
`Make Car
set camera range 10,10000
color backdrop rgb(0, 210, 255)
make object box 1,50,30,100
make object box 2,10,10,15
make mesh from object 1,2
delete object 2
add limb 1,1,1
offset limb 1,1,0,20,-40
delete mesh 1
make object box 2,60,6,20
make mesh from object 1,2
delete object 2
add limb 1,2,1
offset limb 1,2,0,23,-40
delete mesh 1
make object sphere 2,100,6,6
scale object 2,6,25,25
make mesh from object 1,2
delete object 2
add limb 1,3,1
offset limb 1,3,28,-10,30
add limb 1,4,1
offset limb 1,4,-28,-10,30
add limb 1,5,1
offset limb 1,5,28,-10,-30
add limb 1,6,1
offset limb 1,6,-28,-10,-30
delete mesh 1
scale object 1,50,50,50
`Car colors
make_image_memblock(1,1,1,32)
for image=1 to 8
    memblock_dot(1,1,1,rgb(rnd(255),rnd(255),rnd(255)))
    make image from memblock image,1
next image
`Black Tire
memblock_dot(1,1,1,rgb(0,0,0))
make image from memblock 9,1
delete memblock 1
`Speedometer
make_image_memblock(1,256,128,32)
for thickness=0 to 2
    memblock_circle(1,128,128+thickness,128,rgb(255,255,255))
next thickness
for ang=-90 to 90 step 10
    memblock_line(1,int((cos(ang)-sin(ang)*30+129)),int((sin(ang)-cos(ang)*30+129)),int((cos(ang)-sin(ang)*120+129)),int((sin(ang)-cos(ang)*120+129)),rgb(255,255,255))
next ang
make image from memblock 13,1
delete memblock 1
sprite 1,sw-256,sh-152,13
hide sprite 1
`Speedometer needle
make_image_memblock(1,10,120,32)
memblock_circle(1,5,115,5,rgb(255,0,0))
for thickness=-2 to 2
    memblock_line(1,5+thickness,110,5+thickness,1,rgb(255,0,0))
next thickness
make image from memblock 14,1
delete memblock 1
sprite 2,sw-130,sh-24,14
offset sprite 2,0,115
hide sprite 2
`Make enemies
for car=2 to 8
    clone object car,1
next car
for car=1 to 8
    texture object car,car   
    for i=3 to 6
        texture limb car,i,9
    next i
    position object car,cos(car*180)*40+3700,0,car*40+2100
next car
`Make track
obj=9
dim track(30,30)
select track
   case 1
      restore track1
   endcase
   case 2
      restore track2
   endcase
   case 3
      restore track3
   endcase
endselect   
for x=1 to 30
    for z=1 to 30
        read road
        track(x,z)=road
        if road<2
            make object plain obj,200,200,1
            xrotate object obj,90
            position object obj,x*200,-20,z*200
            texture object obj,10+road
        else
            if road=2
                make object box obj,200,50,200
                position object obj,x*200,5,z*200
                texture object obj,12
            else
                make object plain obj,200,200,1
                xrotate object obj,90
                position object obj,x*200,-20,z*200
                texture object obj,15
            endif
        endif
        inc obj
    next z
next x
`Set waypoints for ai and keeping track of place
select track
    case 1
        way(0).x=19
        way(0).z=13
        way(1).x=20
        way(1).z=16
        way(2).x=26
        way(2).z=18
        way(3).x=29
        way(3).z=22
        way(4).x=23
        way(4).z=27
        way(5).x=15
        way(5).z=26
        way(6).x=13
        way(6).z=17
        way(7).x=11
        way(7).z=16
        way(8).x=8
        way(8).z=19
        way(9).x=8
        way(9).z=25
        way(10).x=4
        way(10).z=24
        way(11).x=4
        way(11).z=15
        way(12).x=7
        way(12).z=11
        way(13).x=8
        way(13).z=4
        way(14).x=17
        way(14).z=4
        way(15).x=20
        way(15).z=3
        way(16).x=21
        way(16).z=7
        way(17).x=18
        way(17).z=10
        numways=17
    endcase
    case 2
        way(0).x=19
        way(0).z=15
        way(1).x=23
        way(1).z=16
        way(2).x=25
        way(2).z=6
        way(3).x=23
        way(3).z=3
        way(4).x=10
        way(4).z=3
        way(5).x=6
        way(5).z=10
        way(6).x=3
        way(6).z=13
        way(7).x=5
        way(7).z=18
        way(8).x=4
        way(8).z=23
        way(9).x=6
        way(9).z=26
        way(10).x=11
        way(10).z=25
        way(11).x=15
        way(11).z=28
        way(12).x=26
        way(12).z=27
        way(13).x=27
        way(13).z=22
        way(14).x=17
        way(14).z=21
        way(15).x=14
        way(15).z=10
        way(16).x=18
        way(16).z=9
        numways=16
    endcase
    case 3
        way(0).x=17
        way(0).z=15
        way(1).x=12
        way(1).z=15
        way(2).x=12
        way(2).z=6
        way(3).x=4
        way(3).z=5
        way(4).x=4
        way(4).z=10
        way(5).x=6
        way(5).z=12
        way(6).x=3
        way(6).z=16
        way(7).x=6
        way(7).z=26
        way(8).x=12
        way(8).z=23
        way(9).x=15
        way(9).z=24
        way(10).x=20
        way(10).z=23
        way(11).x=26
        way(11).z=22
        way(12).x=26
        way(12).z=13
        way(13).x=24
        way(13).z=5
        way(14).x=21
        way(14).z=5
        numways=14
    endcase
endselect
`Smooth glide to show off
set text size 100
position camera 0,5000,0
point camera 3000,0,3000
for i=1 to 400
    sync
    txt$="Get Ready!  "
    if i=310
        play music 1
    endif
    if i>=310
       txt$=txt$+str$((400-i)/30+1)
    endif
    ink rgb(0, 0, 160),0
    center text screen width()/2-5,screen height()/2-55,txt$
    ink -1,0
    center text screen width()/2,screen height()/2-50,txt$
    position camera curvevalue(object position x(1),camera position x(),80),curvevalue(1000,camera position y(),80),curvevalue(object position z(1),camera position z(),80)
    rotate camera curveangle(90,camera angle x(),80),curveangle(0,camera angle y(),80),curveangle(0,camera angle z(),80)
next i
`Final bit of setup
rotate camera 90,0,0
set text size 24
show sprite 1
show sprite 2
`Main Loop
repeat
if escapekey()=1
   end
endif
sync
`Display HUD
text 0,0,"Lap: "+str$(car(1).lap+1)
text 0,30,"Place: "+str$(place)+pt(place)
speed$=str$(int(abs(car(1).acc*3)))+" mph"
text sw-text width(speed$),sh-24,speed$
rotate sprite 2,abs(car(1).acc*3)-90
`Control player
oldx#=object position x(1)
oldz#=object position z(1)
`text 0,60,"X: "+str$(int(oldx#/200+0.5))+" Z: "+str$(int(oldz#/200+0.5))
road=track(int(oldx#/200+0.5),int(oldz#/200+0.5))
select road
    case 0
        friction#=.95
    endcase
    case 1
        friction#=.98
    endcase
    case 3
        friction#=1.2
    endcase
endselect
car(1).acc=car(1).acc*friction#+(((upkey()+keystate(17))>0)-((downkey()+keystate(31))>0)*.4)*.7
move object 1,car(1).acc
turn=((rightkey()+keystate(32))>0)-((leftkey()+keystate(30))>0)
yrotate object 1,object angle y(1)+turn*4
rotate limb 1,3,0,turn*10,0
rotate limb 1,4,0,turn*10,0
rotate limb 1,5,0,-turn*10,0
rotate limb 1,6,0,-turn*10,0
newx#=object position x(1)
newz#=object position z(1)
colwith=object collision(1,0)
if colwith>0
   position object 1,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
   car(1).acc=car(1).acc*.1
endif
wx=way(car(1).wpt).x*200
wz=way(car(1).wpt).z*200
set vector2 1,object position x(1),object position z(1)
set vector2 2,wx,wz
subtract vector2 2,1,2
dist#=length vector2(2)
if dist#<1000
   car(1).wpt=car(1).wpt+1
   if car(1).wpt>numways
      car(1).wpt=0
      car(1).lap=car(1).lap+1
   endif
endif
position camera object position x(1),1000,object position z(1)
tx=int(object position x(1)/200+0.5)
tz=int(object position z(1)/200+0.5)
if car(1).lap=5 and tx>16 and tx<22 and tz=13
    car(1).finish=1
endif
`Control ai
for ai=2 to 8
    ca#=object angle y(ai)
    wx=way(car(ai).wpt).x*200
    wz=way(car(ai).wpt).z*200
    point object ai,wx,0,wz
    na#=object angle y(ai)
    rotate object ai,0,curveangle(na#,ca#,10),0
    road=track(int(object position x(ai)/200+0.5),int(object position z(ai)/200+0.5))
    select road
        case 0
            friction#=.95
        endcase
        case 1
            friction#=.98
        endcase
        case 3
            friction#=1.2
        endcase
    endselect
    car(ai).acc=car(ai).acc*friction#+rnd(100)/100.0+.1
    oldx#=object position x(ai)
    oldz#=object position z(ai)
    move object ai,car(ai).acc
    newx#=object position x(ai)
    newz#=object position z(ai)   
    colwith=object collision(ai,0)
    if colwith>0
       position object ai,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
       car(ai).acc=car(ai).acc*.1
    endif
    set vector2 1,object position x(ai),object position z(ai)
    set vector2 2,wx,wz
    subtract vector2 2,1,2
    dist#=length vector2(2)
    if dist#<150
       car(ai).wpt=car(ai).wpt+1
       if car(ai).wpt>numways
          car(ai).wpt=0
          car(ai).lap=car(ai).lap+1
       endif
    endif
    tx=int(object position x(ai)/200+0.5)
    tz=int(object position z(ai)/200+0.5)
    if car(ai).lap=5 and tx>16 and tx<22 and tz=13
        car(ai).finish=1
    endif
next ai
place=1
for i=2 to 8
    if car(i).lap>car(1).lap or car(i).lap=car(1).lap and car(i).wpt=>car(1).wpt
       inc place
    endif
next i
until car(1).finish=1
`Display final info
delete objects 1,obj-1
delete sprite 1
delete sprite 2
color backdrop 0
set text size 50
cls
place=1
for i=2 to 8
    if car(i).finish=1
        inc place
    endif
next i
center text screen width()/2,screen height()/2-25,"You ranked "+str$(place)+pt(place)
set text size 30
center text screen width()/2,screen height()/2+15,comment(place) 
sync
wait key
end
track1:
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,3,1,1,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,2,2,2,2,2,2,2,0,1,1,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,1,0,0,0,2,2,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,0,0,0,0,2,2,2,0,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,2,2,2,2,2,2,0,1,1,0,0,1,1,1,1,1,0,0,0,0,2
data 2,0,1,1,0,0,0,0,2,2,2,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,3,0,0,0,2,2,2,0,0,0,0,2,1,1,0,0,2,2,2,2,2,2,2,2,2,2,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,2,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,0,1,1,1,1,1,0,0,0,0,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,0,0,0,0,1,1,1,1,1,0,0,0,2
data 2,0,0,1,1,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,2,0,0,1,1,1,1,0,0,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,0,1,1,1,1,1,1,1,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,2,0,0,0,2,0,0,1,1,0,0,2
data 2,0,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0,2,0,0,0,2,0,1,1,1,0,0,2
data 2,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0,2,0,0,2,0,1,1,3,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,0,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
track2:
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,1,1,1,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,1,1,1,0,0,0,1,1,1,1,1,0,0,0,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,1,1,1,1,0,0,2,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,0,2,2,2,2,2,2,2,2,2,2,0,0,1,1,1,0,0,0,2
data 2,0,0,1,1,1,1,1,0,0,0,2,2,0,0,0,0,0,0,0,2,0,1,1,1,0,0,0,0,2
data 2,0,1,1,1,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,2,0,1,1,1,0,0,0,0,2
data 2,0,1,1,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,2,2,0,1,1,0,0,0,0,2
data 2,0,1,1,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,1,1,1,0,0,0,2
data 2,1,1,1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,1,1,1,0,0,2
data 2,1,1,0,0,2,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,2,2,0,0,1,1,0,0,2
data 2,1,1,0,0,2,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2,2,0,0,1,1,0,2
data 2,1,1,0,0,2,0,0,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,2,0,0,1,3,0,2
data 2,1,1,0,0,2,0,1,1,0,2,2,2,2,0,0,0,0,1,1,1,0,0,2,0,0,1,1,0,2
data 2,1,1,0,0,2,0,1,1,0,0,0,0,0,2,2,0,0,0,1,1,1,0,2,0,0,1,1,0,2
data 2,1,1,1,0,2,0,1,1,1,1,1,1,1,1,0,2,0,0,0,1,1,0,2,0,0,1,1,0,2
data 2,3,1,1,0,2,0,0,1,1,1,1,1,1,1,1,0,2,0,0,1,1,0,2,2,0,1,1,0,2
data 2,1,1,1,0,2,0,0,0,0,0,0,0,0,1,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,1,1,1,0,2,2,2,2,2,2,2,2,0,0,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,1,1,1,0,2,0,0,0,0,0,0,2,0,0,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,0,1,1,0,2,0,0,0,0,0,1,1,1,1,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,0,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,2,0,1,1,0,0,0,0,1,1,0,2
data 2,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,2,2,0,1,1,1,0,0,1,1,1,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,1,1,1,1,1,1,1,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,1,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
track3:
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,0,0,2
data 2,0,1,0,1,0,0,0,0,0,1,1,1,0,0,0,0,0,2,0,0,0,0,1,1,1,1,0,0,2
data 2,0,1,1,1,0,0,2,0,0,0,0,0,0,0,2,0,2,0,2,0,2,0,0,1,1,1,0,0,2
data 2,0,1,1,1,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,0,0,1,1,1,0,0,2
data 2,0,0,1,1,0,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,0,0,0,1,1,0,0,0,2
data 2,0,0,1,1,1,0,0,0,0,0,0,2,0,2,0,0,0,2,0,2,0,0,1,1,0,0,0,0,2
data 2,0,0,1,1,1,1,0,0,1,1,1,0,0,0,0,0,2,0,2,0,0,1,1,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2,0,2,0,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,0,2,0,2,0,0,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,2,0,2,0,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,2,0,2,0,0,0,3,0,0,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,0,1,1,0,0,2,0,2,0,0,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,2,0,2,0,0,0,1,0,0,0,0,0,2
data 2,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,2,0,2,0,2,0,0,1,0,0,0,0,0,2
data 2,0,0,0,0,1,1,1,1,1,1,1,1,1,0,2,0,2,0,2,0,0,1,1,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,0,0,2,0,2,0,2,0,2,0,2,0,0,0,1,1,0,0,0,0,0,2
data 2,0,0,1,1,1,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,0,1,0,0,0,0,0,0,2
data 2,0,0,1,1,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,1,0,0,0,0,0,0,2
data 2,0,0,1,1,0,0,2,0,2,0,2,0,2,0,2,0,0,0,2,0,1,1,1,0,0,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,0,2,0,2,0,0,0,2,0,0,1,1,1,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,2
data 2,0,0,0,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,3,1,1,1,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
`function stolen from Hobgoblin Lord (http://forum.thegamecreators.com/?m=forum_view&t=96232&b=6)
function make_midi(file as string,instrument as integer,tempo as integer,notes as string)
SPEED=135
notes=" "+notes
for a = 1 to len(notes)
   watch$=mid$(notes,a)
   if watch$=" "
      start=a:test_note$=""
      repeat
         inc start
         new$=mid$(notes,start)
         if new$<>" "
            test_note$=test_note$+new$
         endif
      until new$=" " or start=len(notes)
    note_on=1
    if len(test_note$)=1
      select lower$(test_note$)
         case "q":SPEED=135:endcase
         case "8":speed=134:endcase
         case "h":speed=140:endcase
         case "r":array insert at bottom master_note():count=array count(master_note())
            master_note(count).note=0:master_note(count).speed=SPEED:master_note(count).volume=0
         endcase
      endselect
      note_on=0
    else
      temp_note$=left$(test_note$,1):temp_octave=val(right$(test_note$,1))
      select lower$(temp_note$)
         case "c":note_base=0:endcase
         case "d":note_base=2:endcase
         case "e":note_base=4:endcase
         case "f":note_base=5:endcase
         case "g":note_base=7:endcase
         case "a":note_base=9:endcase
         case "b":note_base=11:endcase
      endselect
      inc note_base,Temp_octave*12
      if len(test_note$)=3 then inc note_base
    endif
      if note_on=1
        array insert at bottom master_note()
        count=array count(master_note())
        master_note(count).note=note_base
        master_note(count).speed=SPEED
        master_note(count).volume=127
      endif
    endif
   next a
   `figure bytes in the track
   track_total=20+((array count(master_note())+1)*9)
   if file exist("making_bytes.txt")=1 then delete file "making_bytes.txt"
   open to write 1,"making_bytes.txt"
   write long 1,track_total
   close file 1
   open to read 1,"making_bytes.txt"
      read byte 1,track_bytesD
      read byte 1,track_bytesc
      read byte 1,track_bytesB
      read byte 1,track_bytesA
   close file 1
   `create the actual midi file
   file=file+".mid"
   if file exist(file)=1 then delete file file
      open to write 1,file
      `write the header
      write byte 1,77:write byte 1,84:write byte 1,104:write byte 1,100:write byte 1,0:write byte 1,0:write byte 1,0:write byte 1,6
      write byte 1,0:write byte 1,0:write byte 1,0:write byte 1,1
      `write track header
      write byte 1,TEMPO:write byte 1,192 `affects duration
      write byte 1,77:write byte 1,84:write byte 1,114:write byte 1,107
      `number of bytes in the track
      write byte 1,track_bytesa:write byte 1,track_bytesb:write byte 1,track_bytesc:write byte 1,track_bytesd
      `instrument and delta set up
      write byte 1,0:write byte 1,192:write byte 1,INSTRUMENT `instrument
      write byte 1,0:write byte 1,255:write byte 1,89:write byte 1,2:write byte 1,0:write byte 1,0:write byte 1,0:write byte 1,255:write byte 1,81:write byte 1,3:write byte 1,9:write byte 1,39:write byte 1,192:write byte 1,0
      `write the notes
      `turn the note on
      for count = 0 to array count(master_note())
         write byte 1,144:write byte 1,master_note(count).note:write byte 1,master_note(count).volume:write byte 1,master_note(count).speed:write byte 1,64
         `turn it off
         write byte 1,128:write byte 1,master_note(count).note:write byte 1,0:write byte 1,0
      next count
      `write track end
      write byte 1,255,:write byte 1,47,:write byte 1,0,:write byte 1,1
      close file 1
endfunction
function make_image_memblock(memblock,width,height,depth)
make memblock memblock,width*height*depth*4+12
write memblock dword memblock,0,width
write memblock dword memblock,4,height
write memblock dword memblock,8,depth
endfunction
function memblock_dot(memblock,xcoord,ycoord,colour as dword)
width=memblock dword(memblock,0)
write memblock dword memblock,((ycoord-1)*width+xcoord-1)*4+12,colour
endfunction
function memblock_line(memblock,x1,y1,x2,y2,colour as dword)
width=memblock dword(memblock,0)
if abs(x2-x1)>abs(y2-y1)
    m#=(y2-y1+0.0)/(x2-x1+0.0)
    b#=y1-m#*x1
    minx=min(x1,x2)
    maxx=max(x1,x2)
    for ix=minx to maxx
        iy=int(m#*ix+b#+0.5)
        write memblock dword memblock,((iy-1)*width+ix-1)*4+12,colour
    next ix
else
    miny=min(y1,y2)
    maxy=max(y1,y2)
    if x2=x1
       for iy=miny to maxy
           write memblock dword memblock,((iy-1)*width+x1-1)*4+12,colour
       next iy
    else
        m#=(x2-x1+0.0)/(y2-y1+0.0)
        b#=y1-1/m#*x1
        for iy=miny to maxy
            ix=int(m#*(iy-b#)+0.5)
            write memblock dword memblock,((iy-1)*width+ix-1)*4+12,colour
        next ix
    endif
endif
endfunction
function memblock_circle(memblock,centerx,centery,radius,colour as dword)
bx=centerx-radius
py1=centery+sqrt(radius^2-(bx-centerx)^2)
py2=centery-sqrt(radius^2-(bx-centerx)^2)
ex=centerx+radius
width=memblock dword(memblock,0)
size=get memblock size(1)
for x=bx to ex
    y1=centery+sqrt(radius^2-(x-centerx)^2)
    y2=centery-sqrt(radius^2-(x-centerx)^2)
    miny=min(py1,y1)
    maxy=max(py1,y1)
    for y=miny to maxy
        pos=((y-1)*width+x-1)*4+12
        if pos>11 and pos<size
           write memblock dword memblock,pos,colour
        endif
    next y
    miny=min(py2,y2)
    maxy=max(py2,y2)
    for y=miny to maxy
        pos=((y-1)*width+x-1)*4+12
        if pos>11 and pos<size
           write memblock dword memblock,pos,colour
        endif
    next y
    py1=y1
    py2=y2
next x
endfunction
function min(value1#,value2#)
if value1#<value2#
   a#=value1#
else
   a#=value2#
endif
endfunction a#
function max(value1#,value2#)
if value1#>value2#
   a#=value1#
else
   a#=value2#
endif
endfunction a#

+ Code Snippet

`The Usual Setup
sync on
sync rate 30
autocam off
hide mouse
randomize timer()
set text font "Gungsuh"
`Variables
sw=screen width()
sh=screen height()
type car_info
     acc as float
     wpt as integer
     lap as integer
     finish as boolean
endtype
dim car(8) as car_info
type way_point
     x as integer
     z as integer
endtype
dim way(20) as way_point
null=make vector2(1)
null=make vector2(2)
dim pt(8) as string
pt(1)="st"
pt(2)="nd"
pt(3)="rd"
for i=4 to 8
    pt(i)="th"
next i
place=8
dim comment(8) as string
comment(1)="Congradulations, you are God"
comment(2)="Ok, now you'll have to play again"
comment(3)="You still get a medal"
comment(4)="Do better"
comment(5)="Now your not even in the top 50%"
comment(6)="Shame"
comment(7)="You could have done worse"
comment(8)="Seek help"
`Stolen from Hobgoblin Lord
type note_thing
   note as integer
   speed as integer
   volume as integer
endtype
dim master_note(-1) as note_thing
make_midi("R",25,2,"a4 a4 a4 g5")
load music "r.mid",1
`Grass
make_image_memblock(1,32,32,32)
for x=1 to 32
    for y=1 to 32
        memblock_dot(1,x,y,rgb(rnd(128),rnd(128)+127,0))
    next y
next x
make image from memblock 10,1
`Road
for x=1 to 32
    for y=1 to 32
        c=rnd(20)+127
        memblock_dot(1,x,y,rgb(c,c,c))
    next y
next x
make image from memblock 11,1
`Wall
for x=1 to 32
    for y=1 to 32
        c=rnd(60)
        memblock_dot(1,x,y,rgb(c,c,c))
    next y
next x
make image from memblock 12,1
`Boost
for x=1 to 32
    for y=1 to 32
        memblock_dot(1,x,y,rgb(255,x*50 mod 256,0))
    next y
next x
make image from memblock 15,1
delete memblock 1
set text size 14
color backdrop rgb(29, 94, 99)
`Choose Track
track=1
repeat
if escapekey()=1
   end
endif
sync
set cursor 0,0
print "Select a track"
print ""
dim trackname(3) as string
trackname(1)="Winding Willow"
trackname(2)="Spring Track"
trackname(3)="Checker Field"
sprite 1,-10,-10,10
size sprite 1,10,10
for i=1 to 3
    if i=track
       ink rgb(123, 123, 238),0
       arrow$=" <--------"
    else
       ink -1,0
       arrow$=""
    endif
    print trackname(i)+arrow$
next i
select track
    case 1
        restore track1
    endcase
    case 2
        restore track2
    endcase
    case 3
        restore track3
    endcase
endselect
for x=1 to 30
    for z=1 to 30
        read road
        select road
            case 0
                set sprite image 1,10
            endcase
            case 1
                set sprite image 1,11
            endcase
            case 2
                set sprite image 1,12
            endcase
            case 3
                set sprite image 1,15
            endcase
        endselect
        paste sprite 1,x*10+200,400-z*10
    next z
next x
track=track-upkey()+downkey()
if track<1
   track=1
endif
if track>3
   track=3
endif
ink -1,0
until returnkey()=1
delete sprite 1
`Make Car
set camera range 10,10000
color backdrop rgb(0, 210, 255)
make object box 1,50,30,100
make object box 2,10,10,15
make mesh from object 1,2
delete object 2
add limb 1,1,1
offset limb 1,1,0,20,-40
delete mesh 1
make object box 2,60,6,20
make mesh from object 1,2
delete object 2
add limb 1,2,1
offset limb 1,2,0,23,-40
delete mesh 1
make object sphere 2,100,6,6
scale object 2,6,25,25
make mesh from object 1,2
delete object 2
add limb 1,3,1
offset limb 1,3,28,-10,30
add limb 1,4,1
offset limb 1,4,-28,-10,30
add limb 1,5,1
offset limb 1,5,28,-10,-30
add limb 1,6,1
offset limb 1,6,-28,-10,-30
delete mesh 1
scale object 1,50,50,50
`Car colors
make_image_memblock(1,1,1,32)
for image=1 to 8
    memblock_dot(1,1,1,rgb(rnd(255),rnd(255),rnd(255)))
    make image from memblock image,1
next image
`Black Tire
memblock_dot(1,1,1,rgb(0,0,0))
make image from memblock 9,1
delete memblock 1
`Speedometer
make_image_memblock(1,256,128,32)
for thickness=0 to 2
    memblock_circle(1,128,128+thickness,128,rgb(255,255,255))
next thickness
for ang=-90 to 90 step 10
    memblock_line(1,int((cos(ang)-sin(ang)*30+129)),int((sin(ang)-cos(ang)*30+129)),int((cos(ang)-sin(ang)*120+129)),int((sin(ang)-cos(ang)*120+129)),rgb(255,255,255))
next ang
make image from memblock 13,1
delete memblock 1
sprite 1,sw-256,sh-152,13
hide sprite 1
`Speedometer needle
make_image_memblock(1,10,120,32)
memblock_circle(1,5,115,5,rgb(255,0,0))
for thickness=-2 to 2
    memblock_line(1,5+thickness,110,5+thickness,1,rgb(255,0,0))
next thickness
make image from memblock 14,1
delete memblock 1
sprite 2,sw-130,sh-24,14
offset sprite 2,0,115
hide sprite 2
`Make enemies
for car=2 to 8
    clone object car,1
next car
for car=1 to 8
    texture object car,car   
    for i=3 to 6
        texture limb car,i,9
    next i
    position object car,cos(car*180)*40+3700,0,car*40+2100
next car
`Make track
obj=9
dim track(30,30)
select track
   case 1
      restore track1
   endcase
   case 2
      restore track2
   endcase
   case 3
      restore track3
   endcase
endselect   
for x=1 to 30
    for z=1 to 30
        read road
        track(x,z)=road
        if road<2
            make object plain obj,200,200,1
            xrotate object obj,90
            position object obj,x*200,-20,z*200
            texture object obj,10+road
        else
            if road=2
                make object box obj,200,50,200
                position object obj,x*200,5,z*200
                texture object obj,12
            else
                make object plain obj,200,200,1
                xrotate object obj,90
                position object obj,x*200,-20,z*200
                texture object obj,15
            endif
        endif
        inc obj
    next z
next x
`Set waypoints for ai and keeping track of place
select track
    case 1
        way(0).x=19
        way(0).z=13
        way(1).x=20
        way(1).z=16
        way(2).x=26
        way(2).z=18
        way(3).x=29
        way(3).z=22
        way(4).x=23
        way(4).z=27
        way(5).x=15
        way(5).z=26
        way(6).x=13
        way(6).z=17
        way(7).x=11
        way(7).z=16
        way(8).x=8
        way(8).z=19
        way(9).x=8
        way(9).z=25
        way(10).x=4
        way(10).z=24
        way(11).x=4
        way(11).z=15
        way(12).x=7
        way(12).z=11
        way(13).x=8
        way(13).z=4
        way(14).x=17
        way(14).z=4
        way(15).x=20
        way(15).z=3
        way(16).x=21
        way(16).z=7
        way(17).x=18
        way(17).z=10
        numways=17
    endcase
    case 2
        way(0).x=19
        way(0).z=15
        way(1).x=23
        way(1).z=16
        way(2).x=25
        way(2).z=6
        way(3).x=23
        way(3).z=3
        way(4).x=10
        way(4).z=3
        way(5).x=6
        way(5).z=10
        way(6).x=3
        way(6).z=13
        way(7).x=5
        way(7).z=18
        way(8).x=4
        way(8).z=23
        way(9).x=6
        way(9).z=26
        way(10).x=11
        way(10).z=25
        way(11).x=15
        way(11).z=28
        way(12).x=26
        way(12).z=27
        way(13).x=27
        way(13).z=22
        way(14).x=17
        way(14).z=21
        way(15).x=14
        way(15).z=10
        way(16).x=18
        way(16).z=9
        numways=16
    endcase
    case 3
        way(0).x=17
        way(0).z=15
        way(1).x=12
        way(1).z=15
        way(2).x=12
        way(2).z=6
        way(3).x=4
        way(3).z=5
        way(4).x=4
        way(4).z=10
        way(5).x=6
        way(5).z=12
        way(6).x=3
        way(6).z=16
        way(7).x=6
        way(7).z=26
        way(8).x=12
        way(8).z=23
        way(9).x=15
        way(9).z=24
        way(10).x=20
        way(10).z=23
        way(11).x=26
        way(11).z=22
        way(12).x=26
        way(12).z=13
        way(13).x=24
        way(13).z=5
        way(14).x=21
        way(14).z=5
        numways=14
    endcase
endselect
`Smooth glide to show off
set text size 100
position camera 0,5000,0
point camera 3000,0,3000
for i=1 to 400
    sync
    txt$="Get Ready!  "
    if i=310
        play music 1
    endif
    if i>=310
       txt$=txt$+str$((400-i)/30+1)
    endif
    ink rgb(0, 0, 160),0
    center text screen width()/2-5,screen height()/2-55,txt$
    ink -1,0
    center text screen width()/2,screen height()/2-50,txt$
    position camera curvevalue(object position x(1),camera position x(),80),curvevalue(1000,camera position y(),80),curvevalue(object position z(1),camera position z(),80)
    rotate camera curveangle(90,camera angle x(),80),curveangle(0,camera angle y(),80),curveangle(0,camera angle z(),80)
next i
`Final bit of setup
rotate camera 90,0,0
set text size 24
show sprite 1
show sprite 2
`Main Loop
repeat
if escapekey()=1
   end
endif
sync
`Display HUD
text 0,0,"Lap: "+str$(car(1).lap+1)
text 0,30,"Place: "+str$(place)+pt(place)
speed$=str$(int(abs(car(1).acc*3)))+" mph"
text sw-text width(speed$),sh-24,speed$
rotate sprite 2,abs(car(1).acc*3)-90
`Control player
oldx#=object position x(1)
oldz#=object position z(1)
`text 0,60,"X: "+str$(int(oldx#/200+0.5))+" Z: "+str$(int(oldz#/200+0.5))
road=track(int(oldx#/200+0.5),int(oldz#/200+0.5))
select road
    case 0
        friction#=.95
    endcase
    case 1
        friction#=.98
    endcase
    case 3
        friction#=1.2
    endcase
endselect
car(1).acc=car(1).acc*friction#+(((upkey()+keystate(17))>0)-((downkey()+keystate(31))>0)*.4)*.7
move object 1,car(1).acc
turn=((rightkey()+keystate(32))>0)-((leftkey()+keystate(30))>0)
yrotate object 1,object angle y(1)+turn*4
rotate limb 1,3,0,turn*10,0
rotate limb 1,4,0,turn*10,0
rotate limb 1,5,0,-turn*10,0
rotate limb 1,6,0,-turn*10,0
newx#=object position x(1)
newz#=object position z(1)
colwith=object collision(1,0)
if colwith>0
   position object 1,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
   car(1).acc=car(1).acc*.1
endif
wx=way(car(1).wpt).x*200
wz=way(car(1).wpt).z*200
set vector2 1,object position x(1),object position z(1)
set vector2 2,wx,wz
subtract vector2 2,1,2
dist#=length vector2(2)
if dist#<1000
   car(1).wpt=car(1).wpt+1
   if car(1).wpt>numways
      car(1).wpt=0
      car(1).lap=car(1).lap+1
   endif
endif
position camera object position x(1),1000,object position z(1)
tx=int(object position x(1)/200+0.5)
tz=int(object position z(1)/200+0.5)
if car(1).lap=5 and tx>16 and tx<22 and tz=13
    car(1).finish=1
endif
`Control ai
for ai=2 to 8
    ca#=object angle y(ai)
    wx=way(car(ai).wpt).x*200
    wz=way(car(ai).wpt).z*200
    point object ai,wx,0,wz
    na#=object angle y(ai)
    rotate object ai,0,curveangle(na#,ca#,10),0
    road=track(int(object position x(ai)/200+0.5),int(object position z(ai)/200+0.5))
    select road
        case 0
            friction#=.95
        endcase
        case 1
            friction#=.98
        endcase
        case 3
            friction#=1.2
        endcase
    endselect
    car(ai).acc=car(ai).acc*friction#+rnd(100)/100.0+.1
    oldx#=object position x(ai)
    oldz#=object position z(ai)
    move object ai,car(ai).acc
    newx#=object position x(ai)
    newz#=object position z(ai)   
    colwith=object collision(ai,0)
    if colwith>0
       position object ai,oldx#+(newx#-object position x(colwith))*.01,0,oldz#+(newz#-object position z(colwith))*.01
       car(ai).acc=car(ai).acc*.1
    endif
    set vector2 1,object position x(ai),object position z(ai)
    set vector2 2,wx,wz
    subtract vector2 2,1,2
    dist#=length vector2(2)
    if dist#<150
       car(ai).wpt=car(ai).wpt+1
       if car(ai).wpt>numways
          car(ai).wpt=0
          car(ai).lap=car(ai).lap+1
       endif
    endif
    tx=int(object position x(ai)/200+0.5)
    tz=int(object position z(ai)/200+0.5)
    if car(ai).lap=5 and tx>16 and tx<22 and tz=13
        car(ai).finish=1
    endif
next ai
place=1
for i=2 to 8
    if car(i).lap>car(1).lap or car(i).lap=car(1).lap and car(i).wpt=>car(1).wpt
       inc place
    endif
next i
until car(1).finish=1
`Display final info
delete objects 1,obj-1
delete sprite 1
delete sprite 2
color backdrop 0
set text size 50
cls
place=1
for i=2 to 8
    if car(i).finish=1
        inc place
    endif
next i
center text screen width()/2,screen height()/2-25,"You ranked "+str$(place)+pt(place)
set text size 30
center text screen width()/2,screen height()/2+15,comment(place) 
sync
wait key
end
track1:
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,3,1,1,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,0,0,2,2,2,2,2,2,2,0,1,1,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,1,0,0,0,2,2,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,0,0,0,0,2,2,2,0,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,2,2,2,2,2,2,0,1,1,0,0,1,1,1,1,1,0,0,0,0,2
data 2,0,1,1,0,0,0,0,2,2,2,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,1,3,0,0,0,2,2,2,0,0,0,0,2,1,1,0,0,2,2,2,2,2,2,2,2,2,2,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,2,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,0,1,1,1,1,1,0,0,0,0,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,1,1,0,2,0,0,0,0,0,0,0,2,0,0,0,0,0,0,1,1,1,1,1,0,0,0,2
data 2,0,0,1,1,0,2,2,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,1,1,0,0,2,2,0,0,0,0,0,0,2,2,2,2,2,2,2,2,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,2,0,0,1,1,1,1,0,0,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,0,1,1,1,1,1,1,1,0,0,2,0,0,0,0,2,0,0,1,1,0,0,2
data 2,1,1,0,0,0,0,1,1,0,0,0,0,1,1,1,0,0,2,0,0,0,2,0,0,1,1,0,0,2
data 2,0,1,1,1,1,1,1,1,0,0,0,0,0,1,1,1,0,2,0,0,0,2,0,1,1,1,0,0,2
data 2,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0,2,0,0,2,0,1,1,3,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,0,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2,2,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
track2:
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,1,1,1,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,1,1,1,0,0,0,1,1,1,1,1,0,0,0,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,1,1,1,1,0,0,2,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,0,2,2,2,2,2,2,2,2,2,2,0,0,1,1,1,0,0,0,2
data 2,0,0,1,1,1,1,1,0,0,0,2,2,0,0,0,0,0,0,0,2,0,1,1,1,0,0,0,0,2
data 2,0,1,1,1,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,2,0,1,1,1,0,0,0,0,2
data 2,0,1,1,0,0,2,2,2,2,0,0,0,0,0,0,0,0,0,0,2,2,0,1,1,0,0,0,0,2
data 2,0,1,1,0,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,1,1,1,0,0,0,2
data 2,1,1,1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,1,1,1,0,0,2
data 2,1,1,0,0,2,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,2,2,0,0,1,1,0,0,2
data 2,1,1,0,0,2,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2,2,0,0,1,1,0,2
data 2,1,1,0,0,2,0,0,1,0,0,0,0,0,1,1,1,1,1,1,0,0,0,2,0,0,1,3,0,2
data 2,1,1,0,0,2,0,1,1,0,2,2,2,2,0,0,0,0,1,1,1,0,0,2,0,0,1,1,0,2
data 2,1,1,0,0,2,0,1,1,0,0,0,0,0,2,2,0,0,0,1,1,1,0,2,0,0,1,1,0,2
data 2,1,1,1,0,2,0,1,1,1,1,1,1,1,1,0,2,0,0,0,1,1,0,2,0,0,1,1,0,2
data 2,3,1,1,0,2,0,0,1,1,1,1,1,1,1,1,0,2,0,0,1,1,0,2,2,0,1,1,0,2
data 2,1,1,1,0,2,0,0,0,0,0,0,0,0,1,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,1,1,1,0,2,2,2,2,2,2,2,2,0,0,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,1,1,1,0,2,0,0,0,0,0,0,2,0,0,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,0,1,1,0,2,0,0,0,0,0,1,1,1,1,1,1,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,0,1,1,1,0,1,1,1,1,1,1,1,1,1,1,0,0,2,0,1,1,0,2,2,0,1,1,0,2
data 2,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,2,0,1,1,0,0,0,0,1,1,0,2
data 2,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,2,2,0,1,1,1,0,0,1,1,1,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,1,1,1,1,1,1,1,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,1,1,1,1,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
track3:
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2
data 2,0,1,1,1,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1,1,1,1,1,1,1,1,0,0,2
data 2,0,1,0,1,0,0,0,0,0,1,1,1,0,0,0,0,0,2,0,0,0,0,1,1,1,1,0,0,2
data 2,0,1,1,1,0,0,2,0,0,0,0,0,0,0,2,0,2,0,2,0,2,0,0,1,1,1,0,0,2
data 2,0,1,1,1,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,0,0,1,1,1,0,0,2
data 2,0,0,1,1,0,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,0,0,0,1,1,0,0,0,2
data 2,0,0,1,1,1,0,0,0,0,0,0,2,0,2,0,0,0,2,0,2,0,0,1,1,0,0,0,0,2
data 2,0,0,1,1,1,1,0,0,1,1,1,0,0,0,0,0,2,0,2,0,0,1,1,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,1,0,0,0,2,0,2,0,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,1,1,0,0,1,1,1,1,1,0,2,0,2,0,0,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,2,0,2,0,1,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,2,0,2,0,0,0,3,0,0,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,0,1,1,0,0,2,0,2,0,0,1,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,0,2,0,2,0,0,0,1,0,0,0,0,0,2
data 2,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,2,0,2,0,2,0,0,1,0,0,0,0,0,2
data 2,0,0,0,0,1,1,1,1,1,1,1,1,1,0,2,0,2,0,2,0,0,1,1,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,0,0,2,0,2,0,2,0,2,0,2,0,0,0,1,1,0,0,0,0,0,2
data 2,0,0,1,1,1,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,0,1,0,0,0,0,0,0,2
data 2,0,0,1,1,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,1,0,0,0,0,0,0,2
data 2,0,0,1,1,0,0,2,0,2,0,2,0,2,0,2,0,0,0,2,0,1,1,1,0,0,0,0,0,2
data 2,0,0,1,1,1,1,1,1,1,1,0,2,0,2,0,0,0,2,0,0,1,1,1,0,0,0,0,0,2
data 2,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,1,1,0,0,0,0,0,0,2
data 2,0,0,0,1,1,1,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,3,1,1,1,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2
data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
`function stolen from Hobgoblin Lord (http://forum.thegamecreators.com/?m=forum_view&t=96232&b=6)
function make_midi(file as string,instrument as integer,tempo as integer,notes as string)
SPEED=135
notes=" "+notes
for a = 1 to len(notes)
   watch$=mid$(notes,a)
   if watch$=" "
      start=a:test_note$=""
      repeat
         inc start
         new$=mid$(notes,start)
         if new$<>" "
            test_note$=test_note$+new$
         endif
      until new$=" " or start=len(notes)
    note_on=1
    if len(test_note$)=1
      select lower$(test_note$)
         case "q":SPEED=135:endcase
         case "8":speed=134:endcase
         case "h":speed=140:endcase
         case "r":array insert at bottom master_note():count=array count(master_note())
            master_note(count).note=0:master_note(count).speed=SPEED:master_note(count).volume=0
         endcase
      endselect
      note_on=0
    else
      temp_note$=left$(test_note$,1):temp_octave=val(right$(test_note$,1))
      select lower$(temp_note$)
         case "c":note_base=0:endcase
         case "d":note_base=2:endcase
         case "e":note_base=4:endcase
         case "f":note_base=5:endcase
         case "g":note_base=7:endcase
         case "a":note_base=9:endcase
         case "b":note_base=11:endcase
      endselect
      inc note_base,Temp_octave*12
      if len(test_note$)=3 then inc note_base
    endif
      if note_on=1
        array insert at bottom master_note()
        count=array count(master_note())
        master_note(count).note=note_base
        master_note(count).speed=SPEED
        master_note(count).volume=127
      endif
    endif
   next a
   `figure bytes in the track
   track_total=20+((array count(master_note())+1)*9)
   if file exist("making_bytes.txt")=1 then delete file "making_bytes.txt"
   open to write 1,"making_bytes.txt"
   write long 1,track_total
   close file 1
   open to read 1,"making_bytes.txt"
      read byte 1,track_bytesD
      read byte 1,track_bytesc
      read byte 1,track_bytesB
      read byte 1,track_bytesA
   close file 1
   `create the actual midi file
   file=file+".mid"
   if file exist(file)=1 then delete file file
      open to write 1,file
      `write the header
      write byte 1,77:write byte 1,84:write byte 1,104:write byte 1,100:write byte 1,0:write byte 1,0:write byte 1,0:write byte 1,6
      write byte 1,0:write byte 1,0:write byte 1,0:write byte 1,1
      `write track header
      write byte 1,TEMPO:write byte 1,192 `affects duration
      write byte 1,77:write byte 1,84:write byte 1,114:write byte 1,107
      `number of bytes in the track
      write byte 1,track_bytesa:write byte 1,track_bytesb:write byte 1,track_bytesc:write byte 1,track_bytesd
      `instrument and delta set up
      write byte 1,0:write byte 1,192:write byte 1,INSTRUMENT `instrument
      write byte 1,0:write byte 1,255:write byte 1,89:write byte 1,2:write byte 1,0:write byte 1,0:write byte 1,0:write byte 1,255:write byte 1,81:write byte 1,3:write byte 1,9:write byte 1,39:write byte 1,192:write byte 1,0
      `write the notes
      `turn the note on
      for count = 0 to array count(master_note())
         write byte 1,144:write byte 1,master_note(count).note:write byte 1,master_note(count).volume:write byte 1,master_note(count).speed:write byte 1,64
         `turn it off
         write byte 1,128:write byte 1,master_note(count).note:write byte 1,0:write byte 1,0
      next count
      `write track end
      write byte 1,255,:write byte 1,47,:write byte 1,0,:write byte 1,1
      close file 1
endfunction
function make_image_memblock(memblock,width,height,depth)
make memblock memblock,width*height*depth*4+12
write memblock dword memblock,0,width
write memblock dword memblock,4,height
write memblock dword memblock,8,depth
endfunction
function memblock_dot(memblock,xcoord,ycoord,colour as dword)
width=memblock dword(memblock,0)
write memblock dword memblock,((ycoord-1)*width+xcoord-1)*4+12,colour
endfunction
function memblock_line(memblock,x1,y1,x2,y2,colour as dword)
width=memblock dword(memblock,0)
if abs(x2-x1)>abs(y2-y1)
    m#=(y2-y1+0.0)/(x2-x1+0.0)
    b#=y1-m#*x1
    minx=min(x1,x2)
    maxx=max(x1,x2)
    for ix=minx to maxx
        iy=int(m#*ix+b#+0.5)
        write memblock dword memblock,((iy-1)*width+ix-1)*4+12,colour
    next ix
else
    miny=min(y1,y2)
    maxy=max(y1,y2)
    if x2=x1
       for iy=miny to maxy
           write memblock dword memblock,((iy-1)*width+x1-1)*4+12,colour
       next iy
    else
        m#=(x2-x1+0.0)/(y2-y1+0.0)
        b#=y1-1/m#*x1
        for iy=miny to maxy
            ix=int(m#*(iy-b#)+0.5)
            write memblock dword memblock,((iy-1)*width+ix-1)*4+12,colour
        next ix
    endif
endif
endfunction
function memblock_circle(memblock,centerx,centery,radius,colour as dword)
bx=centerx-radius
py1=centery+sqrt(radius^2-(bx-centerx)^2)
py2=centery-sqrt(radius^2-(bx-centerx)^2)
ex=centerx+radius
width=memblock dword(memblock,0)
size=get memblock size(1)
for x=bx to ex
    y1=centery+sqrt(radius^2-(x-centerx)^2)
    y2=centery-sqrt(radius^2-(x-centerx)^2)
    miny=min(py1,y1)
    maxy=max(py1,y1)
    for y=miny to maxy
        pos=((y-1)*width+x-1)*4+12
        if pos>11 and pos<size
           write memblock dword memblock,pos,colour
        endif
    next y
    miny=min(py2,y2)
    maxy=max(py2,y2)
    for y=miny to maxy
        pos=((y-1)*width+x-1)*4+12
        if pos>11 and pos<size
           write memblock dword memblock,pos,colour
        endif
    next y
    py1=y1
    py2=y2
next x
endfunction
function min(value1#,value2#)
if value1#<value2#
   a#=value1#
else
   a#=value2#
endif
endfunction a#
function max(value1#,value2#)
if value1#>value2#
   a#=value1#
else
   a#=value2#
endif
endfunction a#

Insanity is just a state of mind.

Back to top

Profile PM Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 13th Mar 2007 10:49 Edited at: 13th Mar 2007 10:50

Link

I know I been saying this a lot lately, but I really am going to try and enter this time!

I been working a track editor which, when done, will just give me the info I need to put in a few lines of DATA statements.

Right-click to add a new point, left click to move the nodes and control points.

REM =======================
REM Top-view Race Challenge
REM March 13, 2007
REM Author: phaelax
REM =======================

rem 2d vector type
type vector
   x as float
   y as float
   w as float
endtype

rem 2 vectors as line segment's endpoints, 2 vectors for control points
rem a,c are the endpoints
rem b,d are the respective control points
type TrackSegment
   a as vector
   b as vector
   c as vector
   d as vector
endtype

rem vector points for hermite splines
null = make vector2(1)
null = make vector2(2)
null = make vector2(3)
null = make vector2(4)

rem result vector
null = make vector2(5)
null = make vector2(6)

rem array of hermite splines
dim track(1) as TrackSegment

rem add starting segment
setPointA(1, 400,300,(rnd(200)-100)+400,(rnd(200)-100)+300)
setPointC(1, 200,200,(rnd(200)-100)+200,(rnd(200)-100)+200)

DO
   cls 
      
   gosub _handle_points
   
   drawTrack(20)
   
LOOP

REM ===============================================
REM 
REM ===============================================
_handle_points:
   if mouseclick() = 2 and flag = 0
      flag = 2
      addPoint(mousex(), mousey())
   endif   
   if mouseclick() = 0 
      flag = 0
      controlPoint = -1
      endpoint = -1
   endif
   
   _mc = mouseclick()
   
   ptRadius = 5
   for t = 1 to array count(track())
      rem draw endpoint
      ink rgb(0,255,0),0
      circle track(t).c.x,track(t).c.y,ptRadius
      if t = 1 then circle track(t).a.x,track(t).a.y,ptRadius
      rem draw control point
      ink rgb(255,0,0),0
      line track(t).b.x,track(t).b.y,track(t).a.x,track(t).a.y
      box track(t).b.x-3,track(t).b.y-3,track(t).b.x+3,track(t).b.y+3
      ink rgb(0,0,255),0
      circle track(t).d.x, track(t).d.y, 6
      rem check if mouse has grabbed a control point
      if _mc = 1 and controlPoint = -1 and endpoint = -1
         if mouseWithin(track(t).b.x-3,track(t).b.y-3,track(t).b.x+3,track(t).b.y+3)
            controlPoint = t
         endif
      endif
      rem
      if _mc = 1 and endpoint = -1 and controlPoint = -1
         if mouseWithin(track(t).a.x-ptRadius,track(t).a.y-ptRadius,track(t).a.x+ptRadius,track(t).a.y+ptRadius)
            endPoint = t
         endif
      endif
   next t
   
   
   if controlPoint > -1
      track(controlPoint).b.x = mousex()
      track(controlPoint).b.y = mousey()
      if controlPoint > 1
         track(controlPoint-1).d = track(controlPoint).b
      endif
   endif
   
   
   if endPoint > -1
      track(endPoint).a.x = mousex()
      track(endPoint).a.y = mousey()
      if endPoint > 1
         track(endPoint-1).c = track(endPoint).a
      endif
   endif
   
RETURN

REM ===============================================
REM splineStep: higher value equals smoother curves
REM ===============================================
function drawTrack(splineSteps)
   ink rgb(255,255,255),0
   for t = 1 to array count(track())
      rem create hermite spline
      for s = 1 to splineSteps
         rem get the 4 vectors
         set vector2 1,track(t).a.x,track(t).a.y
         set vector2 2,track(t).b.x,track(t).b.y
         set vector2 3,track(t).c.x,track(t).c.y
         set vector2 4,track(t).d.x,track(t).d.y

time# = s
         hermite vector2 5,1,2,3,4,(time#-1.0)/splineSteps
         hermite vector2 6,1,2,3,4, time#/splineSteps

rem draw a segment/step of this track's segment
         line x vector2(5), y vector2(5),x vector2(6), y vector2(6)
      next s
   next t
endfunction

REM ===========================================
REM Convenience method for setting array values
REM ===========================================
function setPointA(index, x#,y#, cx#, cy#)
   track(index).a.x = x#
   track(index).a.y = y#
   track(index).b.x = cx#
   track(index).b.y = cy#
endfunction

REM ===========================================
REM Convenience method for setting array values
REM ===========================================
function setPointC(index, x#,y#, cx#, cy#)
   track(index).c.x = x#
   track(index).c.y = y#
   track(index).d.x = cx#
   track(index).d.y = cy#
endfunction

REM ===========================================
REM Adds a new segment to the end of the track
REM ===========================================
function addPoint(x as integer, y as integer)
   array insert at bottom track()
   i = array count(track())
   print i
   track(i).a = track(i-1).c
   track(i).b = track(i-1).d
   track(i).c.x = x
   track(i).c.y = y
   track(i).d.x = x+20
   track(i).d.y = y+20
endfunction

REM ===========================================
REM ummm, duh
REM ===========================================
function mouseWithin(x1,y1,x2,y2)
   if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2 then exitfunction 1
endfunction 0

+ Code Snippet

REM =======================
REM Top-view Race Challenge
REM March 13, 2007
REM Author: phaelax
REM =======================

rem 2d vector type
type vector
   x as float
   y as float
   w as float
endtype


rem 2 vectors as line segment's endpoints, 2 vectors for control points
rem a,c are the endpoints
rem b,d are the respective control points
type TrackSegment
   a as vector
   b as vector
   c as vector
   d as vector
endtype


rem vector points for hermite splines
null = make vector2(1)
null = make vector2(2)
null = make vector2(3)
null = make vector2(4)

rem result vector
null = make vector2(5)
null = make vector2(6)


rem array of hermite splines
dim track(1) as TrackSegment

rem add starting segment
setPointA(1, 400,300,(rnd(200)-100)+400,(rnd(200)-100)+300)
setPointC(1, 200,200,(rnd(200)-100)+200,(rnd(200)-100)+200)




DO
   cls 
      
   gosub _handle_points
   
   drawTrack(20)
   
LOOP



REM ===============================================
REM 
REM ===============================================
_handle_points:
   if mouseclick() = 2 and flag = 0
      flag = 2
      addPoint(mousex(), mousey())
   endif   
   if mouseclick() = 0 
      flag = 0
      controlPoint = -1
      endpoint = -1
   endif
   
   _mc = mouseclick()
   
   ptRadius = 5
   for t = 1 to array count(track())
      rem draw endpoint
      ink rgb(0,255,0),0
      circle track(t).c.x,track(t).c.y,ptRadius
      if t = 1 then circle track(t).a.x,track(t).a.y,ptRadius
      rem draw control point
      ink rgb(255,0,0),0
      line track(t).b.x,track(t).b.y,track(t).a.x,track(t).a.y
      box track(t).b.x-3,track(t).b.y-3,track(t).b.x+3,track(t).b.y+3
      ink rgb(0,0,255),0
      circle track(t).d.x, track(t).d.y, 6
      rem check if mouse has grabbed a control point
      if _mc = 1 and controlPoint = -1 and endpoint = -1
         if mouseWithin(track(t).b.x-3,track(t).b.y-3,track(t).b.x+3,track(t).b.y+3)
            controlPoint = t
         endif
      endif
      rem
      if _mc = 1 and endpoint = -1 and controlPoint = -1
         if mouseWithin(track(t).a.x-ptRadius,track(t).a.y-ptRadius,track(t).a.x+ptRadius,track(t).a.y+ptRadius)
            endPoint = t
         endif
      endif
   next t
   
   
   if controlPoint > -1
      track(controlPoint).b.x = mousex()
      track(controlPoint).b.y = mousey()
      if controlPoint > 1
         track(controlPoint-1).d = track(controlPoint).b
      endif
   endif
   
   
   if endPoint > -1
      track(endPoint).a.x = mousex()
      track(endPoint).a.y = mousey()
      if endPoint > 1
         track(endPoint-1).c = track(endPoint).a
      endif
   endif
   
RETURN



REM ===============================================
REM splineStep: higher value equals smoother curves
REM ===============================================
function drawTrack(splineSteps)
   ink rgb(255,255,255),0
   for t = 1 to array count(track())
      rem create hermite spline
      for s = 1 to splineSteps
         rem get the 4 vectors
         set vector2 1,track(t).a.x,track(t).a.y
         set vector2 2,track(t).b.x,track(t).b.y
         set vector2 3,track(t).c.x,track(t).c.y
         set vector2 4,track(t).d.x,track(t).d.y

         time# = s
         hermite vector2 5,1,2,3,4,(time#-1.0)/splineSteps
         hermite vector2 6,1,2,3,4, time#/splineSteps

         rem draw a segment/step of this track's segment
         line x vector2(5), y vector2(5),x vector2(6), y vector2(6)
      next s
   next t
endfunction


REM ===========================================
REM Convenience method for setting array values
REM ===========================================
function setPointA(index, x#,y#, cx#, cy#)
   track(index).a.x = x#
   track(index).a.y = y#
   track(index).b.x = cx#
   track(index).b.y = cy#
endfunction

REM ===========================================
REM Convenience method for setting array values
REM ===========================================
function setPointC(index, x#,y#, cx#, cy#)
   track(index).c.x = x#
   track(index).c.y = y#
   track(index).d.x = cx#
   track(index).d.y = cy#
endfunction




REM ===========================================
REM Adds a new segment to the end of the track
REM ===========================================
function addPoint(x as integer, y as integer)
   array insert at bottom track()
   i = array count(track())
   print i
   track(i).a = track(i-1).c
   track(i).b = track(i-1).d
   track(i).c.x = x
   track(i).c.y = y
   track(i).d.x = x+20
   track(i).d.y = y+20
endfunction


REM ===========================================
REM ummm, duh
REM ===========================================
function mouseWithin(x1,y1,x2,y2)
   if mousex()>x1 and mousex()<x2 and mousey()>y1 and mousey()<y2 then exitfunction 1
endfunction 0

Back to top

Profile PM Email Website

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 13th Mar 2007 11:28

Link

nice code! I like the concept of using curves like that for the track. I'd personally look into using bezier curves... You'd get a little more accurate control over the curve.

[center]

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 13th Mar 2007 21:02

Link

I'll take a look at that, thx.

Back to top

Profile PM Email Website

BillR

23

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 18th Mar 2007 13:12 Edited at: 18th Mar 2007 13:16

Link

I can't jump to the last page, or past page 126.

edit: I thought there was a problem, no posts lately, and couldn't jump to the last page, seems ok now.

Anyway, It has been a long time since I have had any time to enter a challenge. I am working on an idea for this challenge, hope it works.

Back to top

Profile PM Email

gadgetfreak 66

19

Years of Service

User Offline

Joined: 26th Sep 2006

Location: Kulin,WA, Australia

Posted: 18th Mar 2007 13:53

Link

Just as a notice to everyone, I'm going on a school camp tomorrow, so I wont be able to post until Friday afternoon, which happens to be the end of the challenge.

Just incase someone thinks I've disappeared.

omnia dicta fortiora si dicta Latina

Back to top

Profile PM Email

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 18th Mar 2007 14:11

Link

The jump to last page problem always happens when a page is completely full - and no-one has posted at the beginning of the next page. I guess when a page is full, it triggers an increase in the number of pages - but when you go to the new page there is nothing there.

I'll definitely be entering something for this challenge too ... hopefully find some time over the next couple of days.

Back to top

Profile PM Email Website

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 19th Mar 2007 11:03

Link

Ric - its often more to do with deleted posts. You can see that there is a +3 difference between this page and the topic list page in terms of post count. This means while the topic page thinks we're on a new page, this post listing (here) think's were still a page behind.

[center]

Back to top

Profile PM Email Website

Philip

23

Years of Service

User Offline

Joined: 15th Jun 2003

Location: United Kingdom

Posted: 19th Mar 2007 21:56

Link

I'd recommend splines over bezier curves. That is because mathematically if you add two splines together, i.e. with one's end at the other's beginning, you get a much smoother curve than trying to put two bezier curves adjacent to each other. There is a long explanation of why this is the case in the book Mathematics for Game Developers (by Tremblay).

Cheer if you like bears! Cheer if you like jam sandwiches!
"I highly recommend Philip" (Philip)

Back to top

Profile PM Email

Nicholas Thompson

21

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 19th Mar 2007 23:09

Link

Philip - while I bow down to your knowledge on such subjects (I will now look into what exactly Splines are), I know that it is more than possible to join two bezier curves together, especially if they're quadratic (ie, both start/end points have their own control points).

Basically, say you have an end point with it's control point at [-5, -3] away from it, relatively. The start point of the next curve should have its own control point at [+5, +3] (relative). Basically, equal in magnitude, opposite in direction. This should cause the curves to line up nicely. I might try to bash out an example tonight (I've been meaning to for a while).

[center]

Back to top

Profile PM Email Website

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 20th Mar 2007 18:58

Link

Argh! Just lost a good hour or so of code on my top down racer!!

The IDE didn't save when I clicked save for some reason.

Back to the start again!!!

Back to top

Profile PM Email Website

Diggsey

20

Years of Service

User Offline

Joined: 24th Apr 2006

Location: On this web page.

Posted: 20th Mar 2007 19:28

Link

What IDE do you use???

VISIT MY WEBSITE!

Back to top

Profile PM Email Website

Ric

22

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 20th Mar 2007 23:25

Link

I was using the default IDE ... I'm now using Codesurge. Codesurge is definitely a more refined piece of software, but I did like the default IDE - guess it's just what you get used to.

Back to top

Profile PM Email Website

NA170425

User Deleted

Posted: 20th Mar 2007 23:40 Edited at: 20th Mar 2007 23:42

Link

I liked the default IDE too but couldn't live with code getting eaten, so I changed CodeSurge's colors to make it look like the default IDE. It feels a lot more familiar now.

Do not meddle in the affairs of dragons...for you are crunchy and good with ketchup.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / - DBPro Coding Challenges -