Sorry your browser is not supported!

Rem Project: dtagamesintro
Rem Created: 2/5/03 8:35:08 PM

Rem ***** Main Source File *****
Set Display mode 640,480,16: sync on : sync rate 40 : randomize timer()

rem --- draw sprite
for i = 1 to 2000
  c = rnd(255) : a# = rnd(3600)/10.0
  x = newxvalue(160,a#,c/1.5) : y = newzvalue(120,a#,c/1.5)
  r = c + rnd(128)-80 : if r  -1
    rem --- change text when paused for long enough
    if (timer()-ti) >= textdelay
      gosub GetNextLine
      ti = timer()
    endif

    rem --- show text
    center text 320,220,t$
  endif

  sync
loop


GetNextLine:
  inc linecount, 1
  restore textdata:
  for i = 1 to linecount
    read t$
    if t$=""
      t$ = ""
      linecount = -1
      return
    endif
  next i
return

textdata:
data "We are Game Developer's"
data "Powering the world with a click,"
data "And living every day with,"
data "only one thing on our mind;"
data "Video Games! We live, eat, and sleep games."
data "We are"
data "DTAGAMES"
data ""

rem start SS LVL II

Set display mode 640,480,16 : sync on : sync rate 40 : hide mouse : r = 2
g = 1 : b = 3 : ar = 1 : ag = 3 : ab = 4
repeat : oldr = r : oldg = g : oldb = b
oldar = ar : oldag = ag : oldab = ab
for x = 0 to 639 step 2 : ink rgb(r,g,b),0 : box x,0,x+1,479 : ink rgb(255-r,255-g,255-b),0
box 639-x,0,640-x,479 : gosub UpdateColor : next x
for y = 0 to 479 step 4 : ink rgb(r,g,b),0 : box 0,y,639,y+1 : ink rgb(255-r,255-g,255-b),0
box 0,478-y,639,479-y : gosub UpdateColor : next y
r = oldr : g = oldg : b = oldb : ar = oldar : ag = oldag
ab = oldab : gosub UpdateColor : sync : until scancode()  0
UpdateColor:
  inc r, ar : inc g, ag : inc b, ab
  if r > 255 or r  255 : r = 255 - (r - 255) : else r = -r : endif : endif
  if g > 255 or g  255 : g = 255 - (g - 255) : else g = -g : endif : endif
  if b > 255 or b  255 : b = 255 - (b - 255) : else b = -b : endif : endif
return