Sorry your browser is not supported!

`Rpg challenge by Ric

`display settings
if check display mode(1024,768,32)=1 then set display mode 1024,768,32
sync on
sync rate 30
hide mouse

global name$
titles()

`camera and light settings
autocam off
set camera range 0.01,10000
color backdrop 0
hide light 0
set ambient light 20
make light 1


`creat sounds

createsound("wave",1,6200,10000,2000,30,0.01,10,5,0,0,0.05)
createsound("foot steps",2,200,20,8000,.1,4.0,2.1,10,9.2,9.2,10)
createsound("ding",3,800,1000,6000,0,0.2,0.1,.5,1.2,0.2,10)
createsound("vibrato1",4,500,8000,8000,-0.0001,0.03,0.1,0.4,0,0,.1)
createsound("vibrato2",5,400,8000,8000,-0.0002,0.03,0.1,0.4,0,0,.1)
createsound("vibrato3",6,600,8000,8000,-0.0003,0.03,0.1,0.4,0,0,.1)



`set the randomize seed to the timer, so random events are different each time
randomize timer()

`set size of terrain
global matrixsize
matrixsize=100

`fog settings
fog on
fog color rgb(180,180,250)
fog distance matrixsize*0.6

`set initial value for object numbers
global object_seed
object_seed=1000000

`set initial value for image numbers
global image_seed
image_seed=1000000

create bitmap 1,screen width(),screen height()
set current bitmap 1

`function calls for creating world
global wallpaper
global light
make_wallpaper()
global internaldoor
global dim table(2000000)
global dim collisiondummy(2000000)
global room
global safe
make_room()


`position light for world illumination
position light 1,200,100,200
set light range 1,100000

global grassimage
create_grass()
global doortexture
make_door_texture()
global housetexture
make_house_texture()
global skyimage
create_sky()
global waterimage
global water
global water2
global theta#
create_water_image()
create_water()
global terrainimage
terraform()
global sphere1
global sphere2
global sphere3
create_skysphere()
global boat
global inboat
global jetty
make_boat()



`set house variables
global inroom
global numberofhouseentered
global number_of_houses
number_of_houses=15
`set up an array to store house numbers
global dim house(number_of_houses)
global dim door(number_of_houses)
global dim roof(number_of_houses)


global internaltowerdoor
global tower
global towerdoor
global key
global keyshaft
global navigator
global safeunlocked
global bomb
global bombdummy
global bomboutofhouse
global bombcollected
global bombwet
global boatunlocked
global runningshoes
global flippers

make_tower()
`make houses with numbers from 1 to max number of houses
for house_number=1 to number_of_houses
  make_house(house_number)
next house_number

make_tower_room()
make_bomb()

`make dummy for camera to follow
make object cube 1,0.01
hide object 1
make object collision box 1,-0.05,-0.05,-0.05,0.05,0.05,0.05,0

global collision
global flying
global introover
global footsteptimer
global info
global unlocked
global blob
global sealevel#
global inwater
global loopnumber


ink 0,0
set text size 20

set current bitmap 0

`set initial player position
position object 1,matrixsize/2,get ground height(1,50,50)+2,matrixsize/2

`set initial camera position before intro
position camera object position x(1),1.5,-100

global map
global mapimage
global pointer
setup_navigator()

gosub beginning

loop sound 1

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

`main program loop
do

`if returnkey()=1 then flying=1

`message subroutines
gosub display_message


`function calls for continuous events
if introover=0 then intro()
if introover=1 then move_camera()
if introover=1 then collision()
move_boat()
move_water()

if gotnavigator=1 then navigate()

`text 0,0,str$(screen fps())
`text 0,100,"house number: "+str$(numberofhouseentered)
`text 0,500,str$(table(tower))
sync
loop

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

`functions

function terraform

`set size of terrain
rows=60
columns=60

`create terrain
make matrix 1,matrixsize,matrixsize,columns,rows

`set mountain peaks
number_of_peaks=rnd(35)+10
max_height=15

dim peakx(number_of_peaks)
dim peakz(number_of_peaks)
dim height(number_of_peaks)
for peak=1 to number_of_peaks
  `set x,z coordinates for peak
  peakx(peak)=rnd(columns-10)+5
  peakz(peak)=rnd(rows-10)+5
  `set height of peak
  height(peak)=rnd(max_height)+10
  `create peak
  set matrix height 1,peakx(peak),peakz(peak),height(peak)
next peak

num=rows*columns
dim obnum(rows+1,columns+1)
dim v#(rows,columns)

`give each tile an x,z coordinate for use later
for x=1 to rows
for z=1 to columns
obnum(x,z)=ob
ob=ob+1
next z
next x

`texture matrix
prepare matrix texture 1,grassimage,rows,columns
tile=1
for x=rows-1 to 0 step -1
for z=0 to columns-1
set matrix tile 1,z,x,tile
inc tile
next z
next x


`adjust height of points between peaks
elasticity#=0.3
damping#=0

for time=1 to 100

for peak=1 to number_of_peaks
  set matrix height 1,peakx(peak),peakz(peak),height(peak)
next peak

for x=1+1 to rows-1
for z=1+1 to columns-1
if x<rows
distxp1#=get matrix height(1,x+1,z)-get matrix height (1,x,z)
endif
if x>1
distxm1#=get matrix height(1,x-1,z)-get matrix height (1,x,z)
endif
if z<columns
distzp1#=get matrix height(1,x,z+1)-get matrix height (1,x,z)
endif
if z>1
distzm1#=get matrix height(1,x,z-1)-get matrix height (1,x,z)
endif
vectorsum#=distxp1#+distxm1#+distzp1#+distzm1#
a#=vectorsum#*elasticity#
v#(obnum(x,z))=v#(obnum(x,z))+a#
set matrix height 1,x,z,get matrix height(1,x,z)+v#(obnum(x,z))
v#(obnum(x,z))=v#(obnum(x,z))*damping#
next z
next x
update matrix 1
next time



endfunction




function check_free_object_number

`this handy function means that you never have to worry about
`remembering object numbers.  You just give them names you can remember,
`and this function will find the next available number to assosciate
`with that name.  Just call the function by, for example, writing:
`
`ball=check_free_object_number
`make object sphere ball,1

object=object_seed
repeat
inc object
until object exist(object)=0

endfunction object

function check_free_image_number()

`this functionworks in the same way as the check_free_object function,
`except it works for images.

image=image_seed
repeat
inc image
until image exist(image)=0

endfunction image

function create_grass

`make a shaded box
box 0,0,100,100,rgb(100,150,100),rgb(50,200,20),rgb(80,0,10),rgb(150,200,0)

`and speckle it with random dots
for x=0 to 100
  for y=0 to 100
    if rnd(5)=0
      r=rnd(150)
      g=rnd(250)
      b=rnd(100)
      ink rgb(r,g,b),0
      dot x,y
    endif
  next x
next y


grassimage=check_free_image_number()
get image grassimage,0,0,100,100

endfunction

function create_skysphere

`get image for sphere by taking snapshot of terrain
terrainimage=check_free_image_number()
set camera fov 90
position camera matrixsize/2.0,3,-matrixsize*0.3
sync
get image terrainimage,0,0,screen width(),screen height()
set camera fov 60

`sphere 1 (mountains near) - just a sphere textured with the captured image
sphere1=check_free_object_number()
make object sphere sphere1,matrixsize*4
set object collision off sphere1
set object cull sphere1,0
texture object sphere1,terrainimage
set object texture sphere1,2,1
scale object texture sphere1,3,1
set object fog sphere1,0
set object light sphere1,0
set object transparency sphere1,4
position object sphere1,matrixsize/2,0,matrixsize/2

`sphere 2 (mountains far) - and another one further out. The inner sphere must be
`transparent, though, to see this one.
sphere2=check_free_object_number()
make object sphere sphere2,matrixsize*5
set object collision off sphere2
yrotate object sphere2,30
set object cull sphere2,0
texture object sphere2,terrainimage
set object texture sphere2,2,1
scale object texture sphere2,3,1
set object fog sphere2,0
set object transparency sphere2,4
ghost object on sphere2,4
set object emissive sphere2,rgb(180,150,250)
fade object sphere2,70
position object sphere2,matrixsize/2,0,matrixsize/2

`sphere 3 (sky) - a third, outer sphere for the sky
sphere3=check_free_object_number()
make object sphere sphere3,matrixsize*6
set object collision off sphere3
set object cull sphere3,0
texture object sphere3,skyimage
scale object texture sphere3,1,1.8
set object light sphere3,0
set object fog sphere3,0
position object sphere3,matrixsize/2,0,matrixsize/2

endfunction

function create_sky()
`creates a dark to light bluish gradient
cls
for n=0 to 250
  ink rgb(n,n,250),0
  line 0,n,250,n
next n

skyimage=check_free_image_number()
get image skyimage,0,0,250,250

endfunction


function create_water_image

`creates a shaded box
box 0,0,100,100,rgb(150,150,200),rgb(50,200,200),rgb(80,0,200),rgb(150,100,200)

`and speckles with white bits
for x=0 to 100
  for y=0 to 100
    if rnd(5)=0
      r=(250)
      g=(250)
      b=(250)
      ink rgb(r,g,b),0
      dot x,y
    endif
  next x
next y


waterimage=check_free_image_number()
get image waterimage,0,0,100,100



endfunction


function create_water

`just 2 planes textured with the water image
`top layer
water=check_free_object_number()
make object plain water,matrixsize*8,matrixsize*8
set object collision off water
texture object water,waterimage
set object texture water,2,1
scale object texture water,8,8
xrotate object water,90
set object fog water,0
set object emissive water,rgb(220,220,200)
ghost object on water
set alpha mapping on water,20
`bottom layer
water2=check_free_object_number()
make object plain water2,matrixsize*8,matrixsize*8
set object collision off water2
texture object water2,waterimage
xrotate object water2,90
position object water2,0,1,0
set object texture water2,2,1
scale object texture water2,8,8
set object light water2,0
set object fog water2,0

endfunction

function move_water

`moves the texture along a bit
scroll object texture water,0.001,0
scroll object texture water2,-0.001,0
`and moves the water up and down according to a sine wave
position object water,0,0.5*sin(theta#)+3+sealevel#,0
inc theta#,1

position object water2,0,sealevel#,0
inc sealevel#,0.0003

`position object jetty,object position x(jetty),sealevel#+3.3,object position z(jetty)

`adjust wave volume according to height above water
volume#=600/(object position y(1)+1)
if volume#>100 then volume#=100
if volume#<80 then volume#=80
set sound volume 1,volume#

endfunction

function move_camera

if returnkey()=1 then move object 1,-2

walkmode=1
if shiftkey()=1 and runningshoes=0 and inwater=0 then walkmode=2
if runningshoes=1 and inwater=0 then walkmode=4
if flippers=1 and inwater=1 then walkmode=3
if inboat=1 then walkmode=5
speed#=0
if upkey()=1 then speed#=0.05*walkmode
if downkey()=1 then speed#=-0.05
if rightkey()=1 then yrotate object 1,object angle y(1)+2
if leftkey()=1 then yrotate object 1,object angle y(1)-2
`if inkey$()="a" then position object 1,object position x(1),object position y(1)+0.1,object position z(1)
`if inkey$()="z" then position object 1,object position x(1),object position y(1)-0.11,object position z(1)

`reposition dummy object
position object 1,object position x(1)+speed#*sin(object angle y(1)),object position y(1),object position z(1)+speed#*cos(object angle y(1))

`set camera to dummy object's position and orientation
position camera object position x(1),object position y(1),object position z(1)
yrotate camera object angle y(1)

`play footstep sound
if inwater=0
  if speed#<>0 and footsteptimer=0 then play sound 2
  inc footsteptimer
  if  footsteptimer>20/walkmode then footsteptimer=0
endif

`move bomb with player if collected
if inroom=0
if bombcollected=1
  position object bomb,object position x(1),100,object position z(1)
  yrotate object bomb,object angle y(1)
  move object bomb,1
  position object bomb,object position x(bomb),get ground height(1,object position x(bomb),object position z(bomb)),object position z(bomb)
  position object bombdummy,object position x(bomb),object position y(bomb),object position z(bomb)
  if inkey$()="d" then bombcollected=0:move object 1,-0.5
endif
endif

endfunction

function make_house(house)

`give each house a numbered variable ( eg. house(1),house(2), etc,)
` and store the actual object number in that variable
house(house)=check_free_object_number()
make object box house(house),2,2,1
set object collision on house(house)
set object cull house(house),0
texture object house(house),housetexture
scale object texture house(house),20,40
roof(house)=check_free_object_number()
make object box roof(house),1.98,1,1
color object roof(house),rgb(130,130,130)
position object roof(house),0,1,0
xrotate object roof(house),45
glue object to limb roof(house),house(house),0
door(house)=check_free_object_number()
make object box door(house),0.2,0.4,0.02
texture object door(house),doortexture
position object door(house),0,0,0
glue object to limb door(house),house(house),0

repeat
x=rnd(matrixsize)
z=rnd(matrixsize)
goodlocation=1
position object house(house),x,get ground height(1,x,z),z
if object position y (house(house))<5 then goodlocation=5
if get ground height(1,object position x(house(house))+1,object position z(house(house)))>object position y(house(house))+0.4 or get ground height(1,object position x(house(house))+1,object position z(house(house)))<object position y(house(house))-0.4 then goodlocation=0
if get ground height(1,object position x(house(house)),object position z(house(house))+1)>object position y(house(house))+0.4 or get ground height(1,object position x(house(house))+1,object position z(house(house)))<object position y(house(house))-0.4 then goodlocation=0
if house>1
  for checkprevioushouses=1 to house-1
    if x<object position x(house(checkprevioushouses))+4 and x>object position x(house(checkprevioushouses))-4 and z<object position z(house(checkprevioushouses))+4 and z>object position z(house(checkprevioushouses))-4 then goodlocation=0
  next checkprevioushouses
endif
until goodlocation=1

`glue object to limb door(house),house(house),0
yrotate object house(house),rnd(360)
position object door(house),object position x(door(house)),get ground height(1,object position x(house(house))-0.5*sin(object angle y(house(house))),object position z(house(house))-0.5*cos(object angle y(house(house))))+0.2-object position y(house(house)),object position z(door(house))
position object door(house),object position x(door(house)),object position y(door(house)),object position z(door(house))-0.492

endfunction

function make_house_texture

cls
ink rgb(200,200,180),0
box 0,0,5,15
ink rgb(100,60,40),0
box 0,0,4,14
housetexture=check_free_image_number()
get image housetexture,0,0,5,15

endfunction

function make_door_texture

cls
colour=rgb(rnd(250),rnd(250),rnd(250))
ink colour,0
box 0,0,8,8
ink 0,0
box 1,1,3,3
box 5,1,7,3
ink colour-100,0
box 1,4,7,7
doortexture=check_free_image_number()
get image doortexture,0,0,8,8,1

endfunction

function make_wallpaper

cls
ink rgb(185,205,255),0
box 0,0,100,100
for x=0 to 100
  for y=0 to 100
    if rnd(5)=0
      ink rgb(rnd(200),rnd(200),rnd(200)),0
      dot x,y
    endif
  next y
next x

wallpaper=check_free_image_number()
get image wallpaper,0,0,100,100

endfunction

function make_room

`room is 20x10

wall1=check_free_object_number()
make object box wall1,20,10,0.1
position object wall1,0,1004.8,-5
texture object wall1,wallpaper
scale object texture wall1,10,10

wall2=check_free_object_number()
make object box wall2,20,10,0.1
position object wall2,0,1004.8,5
texture object wall2,wallpaper
scale object texture wall2,10,10

wall3=check_free_object_number()
make object box wall3,10,10,0.1
yrotate object wall3,90
position object wall3,-10,1004.8,0
texture object wall3,wallpaper
scale object texture wall3,10,10

wall4=check_free_object_number()
make object box wall4,10,10,0.1
yrotate object wall4,90
position object wall4,10,1004.8,0
texture object wall4,wallpaper
scale object texture wall4,10,10

floor=check_free_object_number()
make object box floor,20,10,0.1
xrotate object floor,90
position object floor,0,999.8,0
color object floor,rgb(200,10,20)

ceiling=check_free_object_number()
make object box ceiling,20,10,0.1
xrotate object ceiling,90
position object ceiling,0,1006,0

make light 2
position light 2,9,1004,4
set light range 2,15
lamp=check_free_object_number()
make object plain lamp,0.5,0.5
position object lamp,8.4,1004,3.4
yrotate object lamp,45
texture object lamp,light_image()
set object transparency lamp,5
lampshade=check_free_object_number()
make object cone lampshade,1
position object lampshade,8.4,1004,3.4
ghost object on lampshade,3
lampwire=check_free_object_number()
make object plain lampwire,0.02,4
yrotate object lampwire,45
position object lampwire,8.41,1006,3.41

make_table(room)
position object table(room),7,1002,3

entity=check_free_object_number()
make object cube entity,0.5
color object entity,rgb(0,250,50)
position object entity,7,1002.3,3

internaldoor=check_free_object_number()
make object plain internaldoor,2,4
position object internaldoor,0,1001.8,-4.89
color object internaldoor,rgb(220,20,50)

safe=check_free_object_number()
make object box safe,1,5,1
hide object safe
set object collision off safe
position object safe,-4,1003,4
color object safe,rgb(55,200,0)

endfunction

function enter_house(number)
if unlocked=1
  inroom=1
  show light 2
  hide light 1
  hide light 3
  if numberofhouseentered=1
    show object safe
    set object collision on safe
  else
    hide object safe
    set object collision off safe
  endif
  position object 1,0,1003,-4
  point object 1,0,1003,5
else
  play sound 3
  ink rgb(0,255,0),0
  text 0,20,"Door is locked"
  sync
  wait 1000
  ink 0,0
endif
endfunction

function exit_house()

position object 1,object position x(house(numberofhouseentered)),object position y(1),object position z(house(numberofhouseentered))
set object to object orientation 1,house(numberofhouseentered)
move object 1,-1
yrotate object 1,180
show light 1
inroom=0

endfunction

function light_image()


ink rgb(255,255,0),0
box 0,0,1,1
image=check_free_image_number()
get image image,0,0,1,1
cls
sphere1=check_free_object_number()
make object sphere sphere1,1,30,30
ghost object on sphere1
set object specular power sphere1,50
set object specular sphere1,rgb(200,200,200)
position light 1,0,-1,2
position object sphere1,0,0,3
texture object sphere1,image
a=int(screen width()/3.0)
b=int(screen height()/3.0)
c=int(screen width()*2/3.0)
d=int(screen height()*2/3.0)
sphere2=check_free_object_number()
make object sphere sphere2,0.3
position object sphere2,0,-0.2,3
ghost object on sphere2
sync
light=check_free_image_number()
get image light,a,b,c,d
delete object sphere1
delete object sphere2

endfunction light

function collision


collision=object collision(1,0)

`check collision with external doors
for number=1 to number_of_houses
  if collision=door(number)
    numberofhouseentered=number
    enter_house(number)
  endif
next number

`check collision between player and various objects
if collision=collisiondummy(room) then info=3
if collision=boat and boatunlocked=1 then inboat=1
if collision=boat and boatunlocked=1 and bombcollected=1 then info=7
if collision=boat and boatunlocked=0 then info=6
if collision=towerdoor then enter_tower()
if collision=safe and safeunlocked=1 then info=5
if collision=safe and safeunlocked=0 then info=4
if collision=bombdummy and bombcollected=0 then bombcollected=1



`check collision with internal door
if collision=internaldoor then exit_house()
if collision=internaltowerdoor then exit_tower()

`apply sliding collision
if collision>1
position object 1,object position x(1)-get object collision x(),object position y(1),object position z(1)-get object collision z()
endif

if collision=collisiondummy(tower)
  hide object key
  hide object keyshaft
  hide object navigator
  info=2
endif

`set dummy position to ground level
if inroom=0 and flying=0
  position object 1,object position x(1),get ground height(1,object position x(1),object position z(1))+0.2,object position z(1)
endif

`if in water, set dummy to water level and bob up and down
if object position y(1)<object position y(water)+0.25
  position object 1,object position x(1),object position y(water)+0.2,object position z(1)
  zrotate object 1,5*sin(theta#*4)
  inwater=1
else inwater=0
  zrotate object 1,0
endif

`check bomb isn't in the water
bombwet=0
if inroom=0
if object position y(bomb)<object position y(water) then bombwet=1:info=8
if object position y(house(1))<object position y(water) and bomboutofhouse=0 then bombwet=1:info=8
endif

endfunction

function intro

`camera zoom effect
position camera object position x(1),curvevalue(object position y(1),camera position y(),80),curvevalue(object position z(1),camera position z(),80)
camy#=get ground height(1,camera position x(),camera position z())+0.2
if camy#<object position y(water)+0.2 then camy#=object position y(water)+0.2
position camera camera position x(),camy#,camera position z()
if camera position z()>object position z(1)-0.2
  introover=1:info=1
  position camera object position x(1),object position y(1),object position z(1)
endif

endfunction

`subroutine for setting character options etc.
beginning:
play sound 4:play sound 5:play sound 6
fog color 0
fadein#=0
repeat
fog color rgb(fadein#*0.01*180,fadein#*0.01*180,fadein#*0.01*250)
for object=water to sphere3
set alpha mapping on object,fadein#
next object
inc fadein#,0.5
sync
until fadein#=>100
wait 1000
play sound 3
repeat
text 0,20,"This is an automated message from the Blue Island Central Information System."
text 0,40,"Please enter your user name:"
if keydown=0
  letter$=inkey$()
  name$=name$+letter$
  if keystate(14)=1 then name$=left$(name$,len(name$)-2)
  keydown=1
endif
if inkey$()="" and keystate(14)=0 then keydown=0
text 0,80,name$
sync
until returnkey()=1

repeat
ink 0,0
text 0,20,"Greetings, "+name$+". You are being scanned. Please wait......"
ink rgb(0,255,0),0
line 0,y,screen width(),y
line 0,screen height()-y,screen width(),screen height()-y
inc y,4
sync
until y>=screen height()
ink 0,0
text 0,20,"You have been cleared for access."
text 0,40,"Press any key to transport to shore."
sync
wait key
return

function createsound(name$,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)

outWord as word
dword1 as dword: dword2 as dword: dword3 as dword: dword4 as dword
dword5 as dword: dword6 as dword: dword7 as dword

samples=int((length#/1000)*44100)

if memblock exist(1) then delete memblock 1
make memblock 1,samples*2+28

` write 28 memblock header bytes
dword1=1      ` gg query: is this the number of channels?
dword2=2      ` gg query: is this the number of bytes per sample?
dword3=22050  ` gg query: seems to be half the number of samples per second - why?
dword4=88200  ` gg query: is this the number of bytes per second?
dword5=4      ` gg query: what does this represent?
dword6=16     ` gg query:     (ditto)            ?
dword7=0      ` gg query:     (ditto)            ?

position=0
write memblock dword 1, position, dword1 : inc position,4
write memblock dword 1, position, dword2 : inc position,4
write memblock dword 1, position, dword3 : inc position,4
write memblock dword 1, position, dword4 : inc position,4
write memblock dword 1, position, dword5 : inc position,4
write memblock dword 1, position, dword6 : inc position,4
write memblock dword 1, position, dword7 : inc position,4

rem generate and write wave
riseinloudness#=loudness#
for x=1 to samples
  outInteger=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#)))*3.0
  if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
  if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
  outWord=outInteger
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#

  if fallinloudness#<loudness#
    inc fallinloudness#,decay#
  endif

  if riseinloudness#>0
    dec riseinloudness#,attack#
  endif

  write memblock word 1, position, outWord : inc position,2
next x

if sound exist(soundnumber)=1 then delete sound soundnumber

make sound from memblock 999, 1 ` assumes you won't need sound number 999!
clone sound soundnumber, 999
delete sound 999

` memblock no longer required
delete memblock 1

endfunction

display_message:

if info=1
if dingplayed=0 then play sound 3:dingplayed=1
text 0,20,"Transport complete.  Please proceed to the Information Building (the tallest building on the island)"
text 0,40,"to receive further instructions.  Use arrowkeys to move.  Shift key will make you walk faster"
text 0,60,"Note: If you get lodged anywhere, hit return to jump backwards."
inc messagetime
if messagetime>300 then info=0:messagetime=0:dingplayed=0
endif

if info=2
if dingplayed=0 then play sound 3:dingplayed=1:unlocked=1:gotnavigator=1
text 0,20,"We're glad you finally made it, "+name$+".  Your task is to find the weapon, and"
text 0,40,"move it clear of the rising water.  Unfortunately, it's location is unknown."
text 0,60,"This key will enable you to unlock the doors of all buildings on the island."
text 0,80,"And you might find this electronic navigation system useful too."
text 0,100,"One tip - check the buildings most liable to flooding first, before it's too late."
text 0,120,"Get searching, "+name$+", and good luck."
inc messagetime
if messagetime>800 then info=0:messagetime=0:dingplayed=0
endif

`message for collision with entity
if info=3
if dingplayed=0 then play sound 3:dingplayed=1:ink rgb(0,255,0),0
if numberofhouseentered=1
  text 0,20,"There is a safe in this room."
endif
if numberofhouseentered>8
  text 0,20,"Nothing in this box - try another building."
endif
if numberofhouseentered=2
  text 0,20,"You have collected a safe key"
  safeunlocked=1
endif
if numberofhouseentered=3
  text 0,20,"You have collected a boat key"
  boatunlocked=1
endif
if numberofhouseentered=4
  text 0,20,"You have collected some running shoes"
  runningshoes=1
endif
if numberofhouseentered=5
  text 0,20,"You have found an ice cream.  Yum yum."
endif
if numberofhouseentered=6
  text 0,20,"You have found radioisotope detection goggles.  Any building"
  text 0,40,"containing radioactive material will glow."
  color object roof(1),rgb(255,155,0)
endif
if numberofhouseentered=7
  text 0,20,"You have found a message.  It reads as follows:"
  text 0,40,"'There is a boat moored offshore to the north of the island."
  text 0,60,"You may use it to keep the weapon dry when the water rises."
  text 0,80,"You will need to swim out to it to bring it to shore.'"
endif
if numberofhouseentered=8
  text 0,20,"You have found some swimming flippers"
  flippers=1
endif
inc messagetime
if messagetime>200 then info=0:messagetime=0:dingplayed=0
endif

if info=4
if dingplayed=0 then play sound 3:dingplayed=1:ink rgb(0,255,0),0
text 0,20,"Safe is locked."
inc messagetime
if messagetime>100 then info=0:messagetime=0:dingplayed=0
endif

if info=5
if dingplayed=0 then play sound 3:dingplayed=1:ink rgb(0,255,0),0
if bombcollected=0
  show object bomb
  bombcollected=1
  bomboutofhouse=1
endif
text 0,20,"You have collected the nuclear weapon ......."
text 0,40,"Don't let it get wet! Press d to drop the bomb at any time."
inc messagetime
if messagetime>1000 then info=0:messagetime=0:dingplayed=0
endif

if info=6
if dingplayed=0 then play sound 3:dingplayed=1:ink rgb(0,255,0),0
text 0,20,"Boat is locked."
inc messagetime
if messagetime>100 then info=0:messagetime=0:dingplayed=0
endif

if info=7
if dingplayed=0 then play sound 3:dingplayed=1:ink rgb(0,255,0),0
text 0,20,"Congratulations - you have got the bomb to safety.  You are a National Hero!"
text 0,40,"Please come back to Blue Island when it's dried out a bit."
text 0,60,"Goodbye, "+name$
sync
wait 2000
wait key
end
endif



if info=8
if dingplayed=0 then play sound 3:dingplayed=1:ink rgb(0,255,0),0
text 0,20,"The bomb is underwater.  Get it out quick....."
if bombwet=1 then text 0,40,str$(200-messagetime)
inc messagetime
if messagetime>200 and bombwet=0 then info=0:messagetime=0:dingplayed=0
if messagetime>200 and bombwet=1 then info=9:messagetime=0:dingplayed=0
endif

if info=9
if dingplayed=0 then play sound 3:dingplayed=1:ink rgb(0,255,0),0
cls
sync
text 0,20,"Blue Island has been destroyed.  Your mission has failed."
text 0,40,"Oh, and you're dead too, by the way."
text 0,60,"Goodbye, "+name$
sync
wait 2000
wait key
end
endif

return

function titles()

sync
set text font "arial"
set text size 60
ink rgb(120,120,250),0
text 300,50,"Blue Island"
set text size 20
text 200,200,"Attention:  Blue Island is in trouble."
text 200,220,"A massive tectonic shift has caused a surge in sea water, which"
text 200,240,"will almost completely submerge the island within 3 hours."
text 200,280,"All citizens have been evacuated, but one vital item remains"
text 200,300,"left on the island - a nuclear weapon.  Unfortunately, it is set"
text 200,320,"to detonate upon contact with water.  This would result in the "
text 200,340,"complete annihilation of Blue Island.  Your job is to make sure this"
text 200,360,"this doesn't happen."
text 200,400,"Press any key to continue"
sync
wait key
cls
text 0,20,"Please wait...."
sync

endfunction

function make_tower()

tower=check_free_object_number()
make object box tower,2,10,2
texture object tower,housetexture
set object cull tower,0
scale object texture tower,20,40
roof=check_free_object_number()
make object box roof,2.5,2,2.5
color object roof,rgb(80,80,80)
position object roof,0,5,0
glue object to limb roof,tower,0
spire=check_free_object_number()
make object cone spire,2
color object spire,rgb(80,80,80)
position object spire,0,6,0
glue object to limb spire,tower,0

towerdoor=check_free_object_number()
make object box towerdoor,0.2,0.4,0.02
texture object towerdoor,doortexture

repeat
goodlocation=1
x=rnd(matrixsize)
z=rnd(matrixsize)
position object tower,x,get ground height(1,x,z),z
if get ground height(1,object position x(tower)+1,object position z(tower))>object position y(tower)+0.4 or get ground height(1,object position x(tower)+1,object position z(tower))<object position y(tower)-0.4 then goodlocation=0
if get ground height(1,object position x(tower),object position z(tower)+1)>object position y(tower)+0.4 or get ground height(1,object position x(tower)+1,object position z(tower))<object position y(tower)-0.4 then goodlocation=0
if object position y(tower)<3 then goodlocation=0
until goodlocation=1
position object towerdoor,object position x(tower),get ground height(1,object position x(tower),object position z(tower)-0.991)+0.2,object position z(tower)-0.992


endfunction

function enter_tower

  inroom=1
  hide light 1
  hide light 2
  show light 3
  position object 1,0,2003,-4
  point object 1,0,2003,5

endfunction

function make_table(number)

table(number)=check_free_object_number()
make object box table(number),4,0.1,2
color object table(number),rgb(200,100,60)
leg1=check_free_object_number()
make object box leg1,0.1,2,0.1
position object leg1,-1.95,-1,-0.95
glue object to limb leg1,table(number),0
leg2=check_free_object_number()
make object box leg2,0.1,2,0.1
position object leg2,1.95,-1,-0.95
glue object to limb leg2,table(number),0
leg3=check_free_object_number()
make object box leg3,0.1,2,0.1
position object leg3,-1.95,-1,0.95
glue object to limb leg3,table(number),0
leg4=check_free_object_number()
make object box leg4,0.1,2,0.1
position object leg4,1.95,-1,0.95
glue object to limb leg4,table(number),0
collisiondummy(number)=check_free_object_number()
make object box collisiondummy(number),4,4,2
hide object collisiondummy(number)
glue object to limb collisiondummy(number),table(number),0

endfunction

function make_tower_room()

wall1=check_free_object_number()
make object box wall1,20,10,0.1
position object wall1,0,2004.8,-10
texture object wall1,wallpaper
scale object texture wall1,10,10

wall2=check_free_object_number()
make object box wall2,20,10,0.1
position object wall2,0,2004.8,10
texture object wall2,wallpaper
scale object texture wall2,10,10

wall3=check_free_object_number()
make object box wall3,20,10,0.1
yrotate object wall3,90
position object wall3,-10,2004.8,0
texture object wall3,wallpaper
scale object texture wall3,10,10

wall4=check_free_object_number()
make object box wall4,20,10,0.1
yrotate object wall4,90
position object wall4,10,2004.8,0
texture object wall4,wallpaper
scale object texture wall4,10,10

floor=check_free_object_number()
make object box floor,20,20,0.1
xrotate object floor,90
position object floor,0,1999.8,0
color object floor,rgb(100,10,200)

ceiling=check_free_object_number()
make object box ceiling,20,20,0.1
xrotate object ceiling,90
position object ceiling,0,2006,0

make_table(tower)
position object table(tower),0,2002,0

make light 3
position light 3,0,2004,-0.1
set light range 3,5
lamp=check_free_object_number()
make object plain lamp,0.5,0.5
position object lamp,0,2004,0
texture object lamp,light
set object transparency lamp,5
lampshade=check_free_object_number()
make object cone lampshade,1
position object lampshade,0,2004,0
ghost object on lampshade,3
lampwire=check_free_object_number()
make object plain lampwire,0.02,4
position object lampwire,0,2006,0.01

key=check_free_object_number()
make object sphere key,0.2
color object key,rgb(255,255,0)
position object key,0,2002.15,0
keyshaft=check_free_object_number()
make object box keyshaft,0.5,0.1,0.1
color object keyshaft,rgb(255,255,0)
position object keyshaft,0.25,2002.15,0
navigator=check_free_object_number()
make object box navigator,0.5,0.2,0.3
color object navigator,rgb(255,0,50)
position object navigator,-1,2002.15,0



internaltowerdoor=check_free_object_number()
make object plain internaltowerdoor,2,4
position object internaltowerdoor,0,2001.8,-9.89
color object internaltowerdoor,rgb(220,20,50)

endfunction

function exit_tower

position object 1,object position x(tower),object position y(1),object position z(tower)
set object to object orientation 1,tower
move object 1,-2
yrotate object 1,180
show light 1
inroom=0

endfunction

function setup_navigator


fog off
set ambient light 80
set current bitmap 1
cls
cx#=camera position x()
cy#=camera position y()
cz#=camera position z()
position camera matrixsize/2.0,100,matrixsize/2.0
xrotate camera 90
mapimage=check_free_image_number()
sync
get image mapimage,0,0,screen width(),screen height(),1
set current bitmap 0
xrotate camera 0
position camera cx#,cy#,cz#
map=check_free_object_number()
make object plain map,1,1
texture object map,mapimage
position object map,2,-1.5,4
set object light map,0
lock object on map
hide object map
fog on
fog color rgb(180,180,250)
fog distance matrixsize*0.6
set ambient light 20

pointer=check_free_object_number()
make object cone pointer,0.05
color object pointer,rgb(255,0,0)
position object pointer,2,-1.5,3.9
set object emissive pointer,rgb(250,0,0)
lock object on pointer
hide object pointer

endfunction

function navigate

show object pointer
show object map
if inroom=0
  position object pointer,1.95+(object position x(1)-matrixsize/2.0)/matrixsize*0.55,-1.5+(object position z(1)-matrixsize/2.0)/matrixsize*1.1,3.9
  zrotate object pointer,-object angle y(1)
endif

endfunction


function make_boat

`boat
boat=check_free_object_number()
make object box boat,0.6,0.4,1
color object boat,rgb(50,250,255)
front=check_free_object_number()
make object cone front,0.5
xrotate object front,90
color object front,rgb(0,0,255)
position object front,0,0,0.8
glue object to limb front,boat,0
back=check_free_object_number()
make object box back,0.5,0.5,0.1
color object back,rgb(255,0,0)
position object back,0,0,-0.5
glue object to limb back,boat,0
position object boat,50,0,120

`jetty
remstart
jetty=check_free_object_number()
make object box jetty,1,0.5,40
color object jetty,rgb(50,120,10)
position object jetty,50,0,80
remend


endfunction

function move_boat

if inboat=1
position object 1,object position x(1),object position y(water)+1,object position z(1)
position object boat,object position x(1),object position y(water),object position z(1)
yrotate object boat,object angle y(1)
move object boat,1.5
`position object 1,object position x(boat),object position y(boat),object position z(boat)
`move object up 1,1
`move object 1,-2
endif

`if boat hits ground then leave boat
if object position y(boat)<get ground height(1,object position x(boat),object position z(boat))
  if inboat=1 then leave_boat()
endif

position object boat,object position x(boat),object position y(water),object position z(boat)
if object position y(boat)<get ground height(1,object position x(boat),object position z(boat)) thenposition object boat,object position x(boat),get ground height(1,object position x(boat),object position z(boat)),object position z(boat)

endfunction

function leave_boat

position object boat,object position x(boat),get ground height(1,object position x(boat),object position z(boat)),object position z(boat)
inboat=0
move object 1,2

endfunction

function make_bomb

  bomb=check_free_object_number()
  make object sphere bomb,0.1,20,20
  position object bomb,0,100,0
  bombdummy=check_free_object_number()
  make object sphere bombdummy,1
  hide object bombdummy
  color object bomb,rgb(50,10,10)


endfunction

REM RGBRPG, created by Tinkergirl and initially inspired by RiiDii's tutorial
REM on the DarkBasicPro Challenge thread.

`Create the player type, this is the collection of stats for the player.
Type Character
   Rage as Float
   Grace as Float
   Brains as Float
   MaxHP as Float
   HP as Float
   Money as Float
   Level as Float
   XP as Float
   Name as String
   Object as Integer
EndType

`Declare our player as a global variable.
Global Player as Character

`Create our baddie (enemy) type - we'll make several of these.
Type Baddie
   Rage as Float
   Grace as Float
   Brains as Float
   HP as Float
   XPDrop as Integer
   MoneyDrop as Integer
   Name as String
   Object as Integer
Endtype

Dim Enemies(10) as Baddie

global Fighting as Integer

sync on: sync rate 60
randomize timer()

FirstTimeThrough = 0
Player.Object = 1
Fighting = 0
global Loopy as integer
global Attack as integer
Loopy = 400
Global AttackName$ as String
global DamageFloat as Integer
global Combatant as Integer
global damage as Integer
global FloatTime as Integer

Do

   if FirstTimeThrough = 0
      NameCharacter()   `asks player for a name, keeps it.
      StatCharacter()   `creates random stats and either rerolls or keeps.
      GenerateBaddie()  `Might work.
      MakeCube()        `makes our player object, colours it etc.
      MakeWorld()       `creates the floor plain, lights etc.
      MakeLevel()       `generates the buildings/walls of our environment
      MakeFloater()     `Make the plain that shows damage.
      FirstTimeThrough = 1
      sync on
   endif

   if Fighting =0
      CubeMovement()    `controls the movement of our cube character.  WASD keys.
   Endif
   ThirdPerson()        `positions the camera in a 3rd-person style position.
   DrawStats()

   if Object Collision(1,0)>49
      if Object Collision(1,0)<100
         Combatant = Object Collision(1,0)-50
         DrawBaddieStats()
         DoFight()
     endif
   endif

   if Player.XP>100*Player.Level
      Level()
   endif

   if DamageFloat>0
      FloatTime=250
      DamageFloat = 0
   endif

      DamageFloater()


   Sync
Loop



`Ask for a name for the character.  This happens only once.
Function NameCharacter()
   sync off
   `Now, create our character.
   CLS
   Set Cursor 0,0
   Input "Enter your cube's name:",Player.Name
   Print
   Print "Welcome ";Player.Name;" the Cube."
   Wait 1000
Endfunction


`Create initial stats for the character.  Currently random.  *Something to work on later.
Function StatCharacter()
   do
      Cls
      Set Cursor 0,0
      Print Player.Name;", press [R] to re-roll stats, or [Y] to accept stats."
      Print

      `100 stat points initially.  Previous method sometimes resulted in Brains=-1 (ironic, really)
      `So we've set a 'points left' and made sure each stat is always at least 1.

      Player.Rage=1
      Player.Grace=1
      Player.Brains=1
      AmountLeft=97

      Player.Rage=Player.Rage+rnd(AmountLeft)
      AmountLeft=AmountLeft-Player.Rage+1
      Player.Grace=Player.Grace+rnd(AmountLeft)
      AmountLeft=AmountLeft-Player.Grace+1
      Player.Brains=Player.Brains+AmountLeft

      Player.HP=Player.Rage+Player.Grace+Player.Brains
      Player.MaxHP=Player.HP
      Player.Money=(Player.Brains+Player.Grace)*2
      Player.Level=1
      `Still not got a good name or system for assigning the main unit of 'barter'.  Depends.

      `Print out the stats - note, Rage, Grace, and Brains correspond to Red, Green and Blue
      `respectively.  This will help people figure out the relative skills of an enemy, etc.
      Ink RGB(255,0,0),0
      Print "(R)age: ";Player.Rage
      Ink RGB(0,255,0),0
      Print "(G)race: ";Player.Grace
      Ink RGB(0,0,255),0
      Print "(B)rains: ";Player.Brains
      Ink RGB(255,255,255),0
      Print "Health: ";Player.HP;"/";Player.MaxHP
      Print "Monetary Units: ";Player.Money

      Ink RGB(INT(Player.Rage),INT(Player.Grace),INT(Player.Brains)),0
      Box 180,30,260,110
      Ink RGB(255,255,255),0
      `Let the player choose to keep the stats or re-roll.

      Do
         a$=Lower$(Inkey$())
         If a$="r" or a$="y"
            wait 300
            Exit
         endif
      Loop

      if a$="y" Then Exit
   loop
Endfunction


`Make our cubic avatar
Function MakeCube()

   make object cube Player.Object,Player.HP/10
   color object Player.Object, rgb(INT(Player.Rage),INT(Player.Grace),INT(Player.Brains))
   color backdrop 0
   make object collision box Player.Object,-7,-7,-7,7,7,7,0

EndFunction


`This creates our world (currently a plain object - bah)
Function MakeWorld()

   autocam off
   make object plain 4,800,800
   position object 4,0,0,0
   rotate object 4,-90,0,0
   color object 4,rgb(50,50,50)
   set object collision off 4

   color ambient light rgb(20,20,20)
   autocam on

EndFunction


`Move around using the WASD keys
Function CubeMovement()

   `Originally ripped from the monster hunt tutorial, changed most of it to allow vectors and rolling as well as WASD.
   CubeAngle#= Object Angle Y(Player.Object)
   PosX#=Object Position X(Player.Object)
   PosY#=Object Position Y(Player.Object)
   PosZ#=Object Position Z(Player.Object)

   `Keys for controlling the object.  WASD standard.
   If Keystate(17)=1  : `"W" key for forward.
     ` WKey = 1
      CubeSpeed# = 1.5

      CubeMoveX# = -sin(-Object Angle Y(Player.Object)) * CubeSpeed#
      CubeMoveZ# = cos(-Object Angle Y(Player.Object)) * CubeSpeed#

      `Update the positions in the X and Z using the vector.
      PosX#=PosX#+CubeMoveX#
      PosZ#=PosZ#+CubeMoveZ#

      `Put a bit of a 'rolling' tumble on it, so we know the cube's moving.
      CurrentXRot#=Object Angle X(Player.Object)
      Xrotate Object Player.Object,CurrentXRot#+5
   else
      WKey = 0
   Endif

   If Keystate(31)=1  : `"S" key for reverse.
      CubeRevSpeed# = 1.0

      CubeRevMoveX# = -sin(-Object Angle Y(Player.Object)) * CubeRevSpeed#
      CubeRevMoveZ# = cos(-Object Angle Y(Player.Object)) * CubeRevSpeed#

      `Again, update the X and Z with the reversing vector.
      PosX#=PosX#-CubeRevMoveX#
      PosZ#=PosZ#-CubeRevMoveZ#

      `Put a bit of a 'rolling' tumble on it, so we know the cube's reversing.
      CurrentXRot#=Object Angle X(Player.Object)
      Xrotate Object Player.Object,CurrentXRot#-3

   Endif

   If Keystate(30)=1 then Yrotate Object Player.Object, Wrapvalue(CubeAngle#-1.5)  :`"A" for left.

   If Keystate(32)=1 then Yrotate Object Player.Object, Wrapvalue(CubeAngle#+1.5)  :`"D" for right.

   `Object collision (Want's it's own function soon, I believe.)
   if object collision (1,5) > 0
      dec PosX#,get object collision x()
      dec PosY#,get object collision y()
      dec PosZ#,get object collision z()
   endif

   `Apply all the position changes last, including collision.
   position object Player.Object, PosX#,4.5+(Player.Level/2),PosZ#

EndFunction


`TEST function to see what keys are being pressed and print their scancode.
Function TestKeys()
   Set Cursor 0,0
   Print SCANCODE()

EndFunction


`The camera control function to position it above and behind our cube.
Function ThirdPerson()

   `Special thanks to my bf for showing me his DarkSDK code that he wrote for 3rd Person.  Needed modifying to work.
   CameraOffset# = 50

   CameraHeight = Object Position Y(Player.Object)+30

   OffsetX# = -sin(-Object Angle Y(Player.Object)) * CameraOffset#
   OffsetZ# = cos(-Object Angle Y(Player.Object)) * CameraOffset#

   Position Camera 0, Object Position X(Player.Object)-OffsetX#, CameraHeight , Object Position Z(Player.Object)-OffsetZ#
   Point Camera 0, Object Position X(Player.Object), Object Position Y(Player.Object)+15, Object Position Z(Player.Object)

EndFunction


`Create the walls of our level/maze/city whatever.
Function MakeLevel()

   make object box 5,100,20,20
   make object collision box 5,-50,-10,-10,50,10,10,0
   position object 5, 150,0,120

Endfunction


`Try to generate some randomised baddies.  This will need a lot of work (especially placement).
Function GenerateBaddie()

   for i = 0 to array count(Enemies())

      Enemies(i).Rage=rnd(50)
      Enemies(i).Grace=rnd(50)
      Enemies(i).Brains=rnd(50)

     Enemies(i).HP=(Enemies(i).Rage+Enemies(i).Grace+Enemies(i).Brains)

      Enemies(i).XPDrop=(Enemies(i).Rage+Enemies(i).Grace+Enemies(i).Brains)/3
      Enemies(i).MoneyDrop=Enemies(i).XPDrop/2

      `Enemies(i).Name="EvilBall"
      if Enemies(i).Rage>Enemies(i).Grace
         if Enemies(i).Rage>Enemies(i).Brains
            Enemies(i).Name="Bezerker Ball"
         else
            Enemies(i).Name="Brainy Ball"
         endif
      else
         if Enemies(i).Grace>Enemies(i).Brains
            Enemies(i).Name="Ninja Ball"
         else
            Enemies(i).Name="Brainy Ball"
         endif
      endif

      Enemies(i).Object=50+i

      Make Object Sphere Enemies(i).Object,(Enemies(i).HP)/6
      Set Object Collision to Spheres Enemies(i).Object
      Set Object Collision on Enemies(i).Object
     ` Set Shadow Shading on Enemies(i).Object
      Position Object Enemies(i).Object,rnd(600)-300,Enemies(i).HP/12,rnd(600)-300
      Color Object Enemies(i).Object,rgb(Enemies(i).Rage,Enemies(i).Grace,Enemies(i).Brains)
   next i

Endfunction

`Draw the players stats in terms of colours in the top left of the screen.
Function DrawStats()

   set cursor 1,1
   Print Player.Name," The Lv.",Player.Level," Cube"

   ink rgb(255,0,0),0
   set cursor 1,17
   Print "Rage:"
   box 5,33,Player.Rage+5,43

   ink rgb(0,255,0),0
   set cursor 1,43
   Print "Grace:"
   box 5,58,Player.Grace+5,68

   ink rgb(0,0,255),0
   set cursor 1,68
   Print "Brains:"
   box 5,83,Player.Brains+5,93

   ink rgb(255,255,255),0
   set cursor 1,94
   Print "HP:"
   ink rgb(INT(Player.Rage),INT(Player.Grace),INT(Player.Brains)),0
   box 3,108,Player.MaxHP+7,120
   ink rgb(255,255,255),0
   box 5,109,Player.HP+5,119

   if keystate(18)=1
      set cursor 1,124
      Print "XP: ",Player.XP
      set cursor 1,138
      Print "Money: ",Player.Money
   endif
EndFunction


`Draw the stats of the baddies when you collide with them.  Hopefully, this will trigger when a fight starts.
Function DrawBaddieStats()

   Collider= Combatant

   set cursor screen width()-Text Width (Enemies(Collider).Name)-Text Width (" The Enemy!"),1
   Print Enemies(Collider).Name," The Enemy!"

   ink rgb(255,0,0),0
   set cursor screen width()-Text Width("Rage:"),17
   Print "Rage:"
   box screen width()-Enemies(Collider).Rage-5,33,screen width()-5,43

   ink rgb(0,255,0),0
   set cursor screen width()-Text Width ("Grace:"),43
   Print "Grace:"
   box screen width()-Enemies(Collider).Grace-5,58,screen width()-5,68

   ink rgb(0,0,255),0
   set cursor screen width()-Text Width("Brains:"),69
   Print "Brains:"
   box screen width()-Enemies(Collider).Brains-5,84,screen width()-5,94

   ink rgb(255,255,255),0

   set cursor screen width()-Text Width("HP:"),95
   Print "HP:"
   box screen width()-Enemies(Collider).HP-5,110,screen width()-5,120

EndFunction


`Fight function - this is the meat of the gameplay.  Press 1,2 or 3 to choose an attack.
Function DoFight()

   Fighting = 1

   ConSystemInk()
   center Text screen width()/2,screen height()-65,"Fight"
   ink rgb(255,255,255),0

   BattleTimer()

   CombatCamera()


`Some placeholder attack types and names.

If Keystate(2) = 1 :`Key 1
   if Player.Rage>5
      Attack = 1
      AttackName$ = "Rage Frenzy"
   endif
endif

If Keystate(4) = 1 :`Key 3
   if Player.Grace>5
      Attack = 2
      AttackName$ = "Stealth Stab"
   endif
endif

If Keystate(7) = 1 :`Key 6
   if Player.Brains>40
      Attack = 3
      AttackName$ = "Emotional Vampirism"
   endif
endif

if Keystate(6) = 1 :`Key 5
   if Player.Brains>5
      Attack = 4
      AttackName$ = "Mind Heal"
   endif
endif

if Keystate(5) = 1 :`Key 4
   if Player.Grace>40
      Attack = 5
      AttackName$ = "Reactive Momentum"
   endif
endif

if Keystate(3) = 1 :`Key 2
   if Player.Rage>40
      Attack = 6
      AttackName$ = "All Or Nothing"
   endif
endif

   if Attack > 0
      ink 0,0
      center Text screen width()/2,screen height()-45,AttackName$
      ink rgb(255,255,255),0
   endif

   if Loopy=0
      if Attack>0
         if object exist(Object Collision(1,0))
            eneX=Object Position X(Enemies(Object Collision(1,0)-50).Object)
            eneY=Object Position Y(Enemies(Object Collision(1,0)-50).Object)
            eneZ=Object Position Z(Enemies(Object Collision(1,0)-50).Object)
         endif
         DamageBaddie()
      endif
   endif


   if DamageFloat=500
      show object 300
      position object 300,eneX,eneY+5,eneZ
      point object 300,camera position X(),camera position Y(),camera position Z()
      DamageFloat=499
   endif


EndFunction


`Kills the baddie and gives goodies to the player.
Function KillBaddie()

   Fighting = 0
   Loopy = 400
   Player.XP = Player.XP + Enemies(Combatant).XPDrop
   Player.Money = Player.Money + Enemies(Combatant).MoneyDrop
   delete object Object Collision(1,0)
EndFunction


`When in combat, the character (and thus camera) swings around to look at the enemy.
Function CombatCamera()

XDiff = Object Position X(Object Collision(1,0)) - Object Position X(1)
ZDiff = Object Position Z(Object Collision(1,0)) - Object Position Z(1)

angle# = ATanFull(XDiff, ZDiff)

angle# = WrapValue(angle#)

AngleDiff# = Object Angle Y(1) - angle#

while (AngleDiff# < -180)
   AngleDiff# = AngleDiff# + 360
endwhile

while (AngleDiff# > 180)
   AngleDiff# = AngleDiff# - 360
endwhile

YRotate Object 1,Object Angle Y(1) - (AngleDiff#/20)

EndFunction


`Depending on the relative average skill levels of your opponent, change the ink colour.  A bit late, but never mind.
Function ConSystemInk()

BaddieID = Combatant

`RED
if Enemies(BaddieID).Rage+Enemies(BaddieID).Grace+Enemies(BaddieID).Brains > (Player.Rage+Player.Grace+Player.Brains)
   ink rgb(255,0,0),0
else

   `YELLOW
   if Enemies(BaddieID).Rage+Enemies(BaddieID).Grace+Enemies(BaddieID).Brains > ((Player.Rage+Player.Grace+Player.Brains)*0.6)
      ink rgb(255,255,0),0
   else

   `BLUE
      if Enemies(BaddieID).Rage+Enemies(BaddieID).Grace+Enemies(BaddieID).Brains > ((Player.Rage+Player.Grace+Player.Brains)*0.4)
         ink rgb(0,0,255),0
      else

         `PALE BLUE
         if Enemies(BaddieID).Rage+Enemies(BaddieID).Grace+Enemies(BaddieID).Brains < ((Player.Rage+Player.Grace+Player.Brains)*0.4)
            ink rgb(180,180,255),0
         endif
      endif
   endif
endif

EndFunction

`To increase the characters stats and level when they gain enough XP.
Function Level()

Player.Level = Player.Level+1
Player.Rage = Player.Rage+rnd(10)+5
Player.Grace = Player.Grace+rnd(10)+5
Player.Brains = Player.Brains+rnd(10)+5

Player.MaxHP = Player.MaxHP+rnd(10)+10
Player.HP = Player.MaxHP

Scale Object 1,Player.MaxHP,Player.MaxHP,Player.MaxHP

Color Object 1,rgb(Player.Rage,Player.Grace,Player.Brains)

Player.XP=Player.XP-(100*(Player.Level-1))

EndFunction


`Battle Timer should let the player do one attack over a length of time.
Function BattleTimer()
if Loopy = 0
   Loopy = 400
endif
if Loopy>0
   Loopy = Loopy - 1
endif

if Loopy > 250
   ink rgb(0,255,0),0
   else
      if Loopy > 100
         ink rgb(255,255,0),0
      else
         if Loopy > 50
            ink rgb(255,128,0),0
         else
            if Loopy < 51
               ink rgb(255,0,0),0
            endif
         endif
      endif
endif

box (screen width()/2)-Loopy/2,screen height()-45,(screen width()/2)+Loopy/2,screen height()-30
ink rgb(255,255,255),0

EndFunction

`Instead of killing the baddie in one hit, lets do him some damage.  The numbers are unbalanced.
Function DamageBaddie()

BaddieID = Combatant

`Rage Frenzy
If Attack = 1
   damage = Player.Rage
   Enemies(BaddieID).HP = Enemies(BaddieID).HP - damage
   set cursor screen width()/2,screen height()/2
endif

`Stealth Stab
If Attack = 2
   damage = (Player.Grace/2)*rnd(3)
   if damage <1 then damage=1
   Enemies(BaddieID).HP = Enemies(BaddieID).HP - damage
   set cursor screen width()/2,screen height()/2
endif

`Emotional Vampirism
If Attack = 3
   damage =(Player.Brains)/1.5
   if damage <1 then damage=1
   Enemies(BaddieID).HP = Enemies(BaddieID).HP - damage
   Player.HP=Player.HP+damage
   if Player.HP>Player.MaxHP then Player.HP=Player.MaxHP
   set cursor screen width()/2,screen height()/2
endif

`Mind Heal
if Attack = 4
   damage = 1
   Player.HP = Player.HP + (Player.Brains*2)
   if Player.HP>Player.MaxHP
      Player.HP=Player.MaxHP
   endif
endif

`Defensive Momentum
if Attack = 5
   damage = Player.Grace/2+Enemies(BaddieID).Grace
   Enemies(BaddieID).HP = Enemies(BaddieID).HP - damage
endif

`All Or Nothing
if Attack = 6
   chance = rnd(2)
   if chance <=1 then damage = 0
   if chance >1 then damage = Player.Rage*2+10
   Enemies(BaddieID).HP = Enemies(BaddieID).HP- damage
endif

if Attack > 0
   TextureFloater()
   DamageFloat=500
   Attack = 0
   Player.HP=Player.HP-(Enemies(BaddieID).Rage/2)
endif


`if Player.HP<1
`   KillPlayer()
`endif

if Enemies(BaddieID).HP < 1
   KillBaddie()
endif

EndFunction

Function MakeFloater()

create bitmap 1,32,32
set current bitmap 0
make object plain 300,10,10
set object 300,1,1,0,1,0
hide object 300

EndFunction

` Draw the appropriate number of the damage on plain 400, the floater.
Function TextureFloater()

set current bitmap 1
ink 0,0
box 0,0,32,32
ink rgb(128,0,0),0
circle 16,16,10
circle 16,16,9
ink rgb(255,0,0),0
center text 17,9,STR$(damage)
ink rgb(255,255,255),0
get image 400,0,0,32,32
set current bitmap 0
texture object 300,400

EndFunction

Function DamageFloater()

if FloatTime > 0
   a = object position x(300)
   b# = object position y(300)+0.3
   c = object position z(300)

   position object 300,a,b#,c
   point object 300,camera position X(),camera position Y(),camera position Z()
   FloatTime = FloatTime-1
`   print FloatTime
endif

if FloatTime = 0
   Hide Object 300
endif


EndFunction

Nicholas: Really great graphics. Very smooth. Also a great user 
interface. Critters attacked and chase you around in Diablo II 
style. Combat and healing really gave you the most points. Good 
work Nicholas!

I'm not going to say just yet (the suspense builds). But as you can 
guess it's down to two entries. TG's and Ric's. It was very close, 
but one of you came out so very slightly ahead. Both entries 
involved a lot of thought and effort. Where Ric had Plot, TG had a 
very creative game system (and a name to match; "RGBRPG"). Where TG 
had turned based combat with, Ric had cool exploration and 
surprises (I found running shoes! Very usefull.). Ric also has made 
the best no-media graphics and sound I've seen in the DBPro forum, 
let alone this thread, as well as in intro and a complete story 
line (obviously stolen from his recent holiday where he went to 
Blue Island and saved it from a nuclear weapon that was about to be 
detonated by the rising waters). So, that's my analysis; make your 
guess now.

TinkerGirl! Surprised? Let's recap some of the rules I set at the 
beginning of the compo:
1) "Newbies" would have a better chance of winning (a handicap) to 
encourage entering the compitition.
2) Graphics would not count towards the final results.

Also, Ric went on a "holiday" right at the beginning of this 
compitition. Since he won the last compitition, he should have been 
running and judging this one instead of participating. Ric also 
conveniently didn't post any pics from his holiday. Coincidence? I 
think not. :)

The crack about Ric getting to win the last competition and then 
participating in this one, is a joke (although...???). Great job 
Ric!!! IMO, yours is by far the best entry in this thread to date! 
You have set a new standard (darn you!). 

Rem Project: Arbre
Rem Created: 23/08/2005 22:22:57

Rem ***** Main Source File *****

create bitmap 1,384,64

set current bitmap 1

image=0

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 30+yorigine step 2
  variable=rnd(7)
  ink rgb(10+(variable*21),25+(variable*12),1+int((variable/3))),0
  dot x,y
 next y
next x

yorigine=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 30+yorigine step 2
  xg=x-1
  yh=y-1
  xd=x+1
  yb=y+1
  if xg<64*image then xg=63+(64*image)
  if yh<0 then yh=31
  if xd>63+64*image then xd=64*image
  if yb>31 then yb=0
  pixgr=rgbr(point(xg,y))
  pixgg=rgbg(point(xg,y))
  pixgb=rgbb(point(xg,y))
  pixhr=rgbr(point(xg,y))
  pixhg=rgbg(point(xg,y))
  pixhb=rgbb(point(xg,y))
  pixdr=rgbr(point(xd,y))
  pixdg=rgbg(point(xd,y))
  pixdb=rgbb(point(xd,y))
  pixbr=rgbr(point(x,yb))
  pixbg=rgbg(point(x,yb))
  pixbb=rgbb(point(x,yb))
  ink rgb((pixgr+pixhr+pixdr+pixbr)/4,(pixgg+pixhg+pixdg+pixbg)/4,(pixgb+pixhb+pixdb+pixbb)/4),0
  dot x,y
 next y
next x

yorigine=0

get image image+1,64*image,0,64+(64*image),32

image=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  variable=rnd(7)
  ink rgb(230-(variable*15),230-(variable*15),15-variable),0
  dot x,y
 next y
next x

yorigine=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  xg=x-1
  yh=y-1
  xd=x+1
  yb=y+1
  if xg<64*image then xg=63+(64*image)
  if yh<0 then yh=63
  if xd>63+64*image then xd=64*image
  if yb>63 then yb=0
  pixgr=rgbr(point(xg,y))
  pixgg=rgbg(point(xg,y))
  pixgb=rgbb(point(xg,y))
  pixhr=rgbr(point(xg,y))
  pixhg=rgbg(point(xg,y))
  pixhb=rgbb(point(xg,y))
  pixdr=rgbr(point(xd,y))
  pixdg=rgbg(point(xd,y))
  pixdb=rgbb(point(xd,y))
  pixbr=rgbr(point(x,yb))
  pixbg=rgbg(point(x,yb))
  pixbb=rgbb(point(x,yb))
  ink rgb((pixgr+pixhr+pixdr+pixbr)/4,(pixgg+pixhg+pixdg+pixbg)/4,(pixgb+pixhb+pixdb+pixbb)/4),0
  dot x,y
 next y
next x

yorigine=0

get image image+1,64*image,0,64+(64*image),64

image=2

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  variable=rnd(7)
  ink rgb(0,(variable*21),200-variable),0
  dot x,y
 next y
next x

yorigine=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  xg=x-1
  yh=y-1
  xd=x+1
  yb=y+1
  if xg<64*image then xg=63+(64*image)
  if yh<0 then yh=63
  if xd>63+64*image then xd=64*image
  if yb>63 then yb=0
  pixgr=rgbr(point(xg,y))
  pixgg=rgbg(point(xg,y))
  pixgb=rgbb(point(xg,y))
  pixhr=rgbr(point(xg,y))
  pixhg=rgbg(point(xg,y))
  pixhb=rgbb(point(xg,y))
  pixdr=rgbr(point(xd,y))
  pixdg=rgbg(point(xd,y))
  pixdb=rgbb(point(xd,y))
  pixbr=rgbr(point(x,yb))
  pixbg=rgbg(point(x,yb))
  pixbb=rgbb(point(x,yb))
  ink rgb((pixgr+pixhr+pixdr+pixbr)/4,(pixgg+pixhg+pixdg+pixbg)/4,(pixgb+pixhb+pixdb+pixbb)/4),0
  dot x,y
 next y
next x

yorigine=0

get image image+1,64*image,0,64+(64*image),64

set current bitmap 0

autocam off

sync on

hide mouse

make object cone 1,15

angle#=15

xrotate object 1,180-angle#/1
scale object 1,100,133.333,100
texture object 1,1
yrotate object 1,90
position object 1,5000-(tan(angle#)*7),0,5000

make object cone 2,14
xrotate object 2,object angle x(1)-angle#/2
scale object 2,100,142.857,100
texture object 2,1
yrotate object 2,90
position object 2,object position x(1)-(tan(angle#)*7),7,5000

make object cone 3,12.8
xrotate object 3,object angle x(2)-angle#/3
scale object 3,100,156.25,100
texture object 3,1
yrotate object 3,90
position object 3,object position x(2)-(tan(angle#)*7),14,5000

make object cone 4,11.2
xrotate object 4,object angle x(3)-angle#/4
scale object 4,100,178.571,100
texture object 4,1
yrotate object 4,90
position object 4,object position x(3)-(tan(angle#)*7),21,5000

make object cone 5,11.2
xrotate object 5,object angle x(4)-angle#/5
scale object 5,100,178.571,100
texture object 5,1
yrotate object 5,90
position object 5,object position x(4)-(tan(angle#)*7),27,5000

make matrix 1,2000,2000,100,100

make matrix 2,10000,10000,100,100

prepare matrix texture 1,2,1,1

prepare matrix texture 2,3,1,1

ghost matrix on 2

for x=0 to 100
 for y=0 to 100
  set matrix height 1,x,y,-(sqrt((x-50)^2+(y-50)^2)^2)*0.2-rnd(6)
 next y
next x

position matrix 1,4000,0,4000
position matrix 2,0,-15,0

dim membres(30)

dim vagues(10)
vagues(1)=0
vagues(2)=6
vagues(3)=13
vagues(4)=20
vagues(5)=4
vagues(6)=0
vagues(7)=6
vagues(8)=20
vagues(9)=4
vagues(10)=0
vaguedeplace=0

vent#=1

position camera 5000,30,3500

for z=3500 to 4850 step 5
 position camera 5000,110-((z-4175)^2)*0.0002,z
 gosub vague
 sourisx#=mousemovex()
 sourisy#=mousemovey()
 xrotate camera camera angle x()+0.2*sourisy#
 yrotate camera camera angle y()+0.2*sourisx#
 sync
next z

do

gosub vague

sourisx#=mousemovex()
sourisy#=mousemovey()
xrotate camera camera angle x()+0.2*sourisy#
yrotate camera camera angle y()+0.2*sourisx#

if upkey()=1
 move camera 0.5*upkey()
 if sqrt(((camera position x()-5000)^2)+((camera position z()-5000)^2))>1000 then move camera -0.5*upkey()
endif

if downkey()=1
 move camera -0.5*downkey()
 if sqrt((camera position x()-5000)^2+(camera position z()-5000)^2)>1000 then move camera 0.5*downkey()
endif

if camera position y()<get ground height(1,camera position x()-4000,camera position z()-4000)+2 then position camera camera position x(),get ground height(1,camera position x()-4000,camera position z()-4000)+2,camera position z()
if camera position y()<get ground height(2,camera position x(),camera position z())-13 then position camera camera position x(),get ground height(2,camera position x(),camera position z())-13,camera position z()

sync

loop

vague:

if timer()>temps+250-100*vent#
 vaguedeplace=vaguedeplace+1
 if vaguedeplace=6 then vaguedeplace=1
 for range=1 to 96 step 5
  for colonne=1 to 100
   set matrix height 2,range,colonne,(vagues(vaguedeplace+1)*vent#)-15
   set matrix height 2,range+1,colonne,(vagues(vaguedeplace+2)*vent#)-15
   set matrix height 2,range+2,colonne,(vagues(vaguedeplace+3)*vent#)-15
   set matrix height 2,range+3,colonne,(vagues(vaguedeplace+4)*vent#)-15
   set matrix height 2,range+4,colonne,(vagues(vaguedeplace+5)*vent#)-15
  next colonne
 next range
 update matrix 2
 temps=timer()
endif

return

Sync On: Sync Rate 60:Autocam Off
Tree(1)
Set Object Emissive 1,Rgb(50,100,50)

Position Object 1,0,-1.8,8
Do
   Turn Object Right 1,.2
   Sync
Loop





Function Branch()
   Ink 0,0
   Box 0,0,50,200
   Ink Rgb(100,80,0),0
   For i = 23 to 27
      Line 25,5,i,200
   Next i
   n=rnd(20)+rnd(20)+rnd(20)+rnd(20)+200
   For i = 1 to n
      Ink Rgb(0,Rnd(100)+100,0),0
      h=rnd(170)+25
      w=((h/3.5)-rnd(h/3.5))*(rnd(1)*2-1)
      Line 25,h,25+w,h-abs(w)
      `Line 25,h+1,25+w,h-abs(w)+1
   Next i
   Get Image 3,0,0,50,200,0
   cls
Endfunction

Function Tree(Obj)
   If Image Exist(4)=0
      Ink Rgb(150,80,0),0
      Box 0,0,40,200
      Get Image 4,0,0,40,200
   Endif
   If Image Exist(3)=0
      Branch()
   Endif
   Make Object Triangle Obj,-.3,-3,0,0,4.5,0,.3,-3,0
   Make Mesh From Object 1,Obj
   Add Limb Obj,1,1
   Rotate Limb Obj,1,0,90,0
   Make Mesh from Object 1,Obj
   Delete Object Obj
   Make Object Plain Obj,.2,1
   Offset Limb Obj,0,0,.45,0
   Pitch Object Down Obj,125
   Fix Object Pivot Obj
   Make Mesh From Object 2,Obj
   Delete Object Obj
   Make Object Obj,1,4
   branches=rnd(20)+rnd(20)+rnd(20)+rnd(20)+150
   For i=1 to branches
      Add Limb Obj,i,2
      Texture Limb Obj,i,3
      h#=rnd(400.0)/100.0+.5
      Scale Limb Obj,i,h#*80.0,h#*80.0,h#*80.0
      Offset Limb Obj,i,0,5.0-h#,0
      Rotate Limb Obj,i,Rnd(4)-2,Rnd(360),Rnd(4)-2
   Next i
   b=Free_Obj()
   Make Object Sphere b,.12,6,6
   Make Mesh from Object 3,b
   Delete Object b
   Color_Texture(11,Rgb(255,0,0))
   Color_Texture(12,Rgb(0,255,0))
   Color_Texture(13,Rgb(0,0,255))
   Color_Texture(14,Rgb(255,255,255))
   For i = 1 to rnd(20)+40
      Add Limb Obj,branches+i,3
      Texture Limb obj,branches+i,11+Rnd(3)
      h#=rnd(500.0)/100.0-.8
      Do
         if h#>rnd(500.0)/100.0-.8
            h#=h#-.05
         Else
            Exit
         Endif
      Loop
      m#=(4.8-h#)*.35
      i#=i
      a#=rnd(200.0)/10.0+i#*10.0
      Offset Limb obj,branches+i,Sin(a#)*m#,h#,Cos(a#)*m#
   Next i
   s=Free_Obj()
   Star(s)
   Make Mesh from Object 3,s
   Delete Object s
   Add Limb obj,branches+i,3
   Offset Limb obj,branches+i,0,4.7,0
   Color_Texture(15,Rgb(200,200,255))
   Texture Limb obj,branches+i,15
   Set Object Transparency Obj,branches+i
   Set Object Cull Obj,0
   Set object Emissive Obj,Rgb(150,150,150)
   Make Light 1
   Set Light Range 1,2
   Color Light 1,255,255,255
   Position Light 1,Limb Position X(obj,branches+i),Limb Position Y(obj,branches+i),Limb Position Z(obj,branches+i)-.5
Endfunction

Function Free_Obj()
   Do
      i=rnd(60000)
      if Object Exist(i)=0 Then Exit
   Loop
Endfunction i

Function Color_Texture(image,color as dword)
   Ink color,0
   Box 0,0,10,10
   Get Image image,0,0,10,10
Endfunction

Function Star(obj)
   Make Object Cone obj,.2
   Offset Limb obj,0,0,.1,0
   Scale Object obj,100,200,100
   Make Mesh from Object obj,obj
   Delete Object obj
   Make Object obj,obj,0
   Add Limb obj,1,obj
   Rotate Limb obj,1,180,0,0
   Add Limb obj,2,obj
   Rotate Limb obj,2,90,0,0
   Add Limb obj,3,obj
   Rotate Limb obj,3,-90,0,0
   Add Limb obj,4,obj
   Rotate Limb obj,4,0,0,90
   Add Limb obj,5,obj
   Rotate Limb obj,5,0,0,-90
Endfunction

Rem Project: Arbre
Rem Created: 23/08/2005 22:22:57

Rem ***** Main Source File *****

create bitmap 1,384,64

set current bitmap 1

image=0

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 30+yorigine step 2
  variable=rnd(7)
  ink rgb(10+(variable*21),25+(variable*12),1+int((variable/3))),0
  dot x,y
 next y
next x

yorigine=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 30+yorigine step 2
  xg=x-1
  yh=y-1
  xd=x+1
  yb=y+1
  if xg<64*image then xg=63+(64*image)
  if yh<0 then yh=31
  if xd>63+64*image then xd=64*image
  if yb>31 then yb=0
  pixgr=rgbr(point(xg,y))
  pixgg=rgbg(point(xg,y))
  pixgb=rgbb(point(xg,y))
  pixhr=rgbr(point(xg,y))
  pixhg=rgbg(point(xg,y))
  pixhb=rgbb(point(xg,y))
  pixdr=rgbr(point(xd,y))
  pixdg=rgbg(point(xd,y))
  pixdb=rgbb(point(xd,y))
  pixbr=rgbr(point(x,yb))
  pixbg=rgbg(point(x,yb))
  pixbb=rgbb(point(x,yb))
  ink rgb((pixgr+pixhr+pixdr+pixbr)/4,(pixgg+pixhg+pixdg+pixbg)/4,(pixgb+pixhb+pixdb+pixbb)/4),0
  dot x,y
 next y
next x

yorigine=0

get image image+1,64*image,0,64+(64*image),32

image=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  variable=rnd(7)
  ink rgb(230-(variable*15),230-(variable*15),15-variable),0
  dot x,y
 next y
next x

yorigine=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  xg=x-1
  yh=y-1
  xd=x+1
  yb=y+1
  if xg<64*image then xg=63+(64*image)
  if yh<0 then yh=63
  if xd>63+64*image then xd=64*image
  if yb>63 then yb=0
  pixgr=rgbr(point(xg,y))
  pixgg=rgbg(point(xg,y))
  pixgb=rgbb(point(xg,y))
  pixhr=rgbr(point(xg,y))
  pixhg=rgbg(point(xg,y))
  pixhb=rgbb(point(xg,y))
  pixdr=rgbr(point(xd,y))
  pixdg=rgbg(point(xd,y))
  pixdb=rgbb(point(xd,y))
  pixbr=rgbr(point(x,yb))
  pixbg=rgbg(point(x,yb))
  pixbb=rgbb(point(x,yb))
  ink rgb((pixgr+pixhr+pixdr+pixbr)/4,(pixgg+pixhg+pixdg+pixbg)/4,(pixgb+pixhb+pixdb+pixbb)/4),0
  dot x,y
 next y
next x

yorigine=0

get image image+1,64*image,0,64+(64*image),64

image=2

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  variable=rnd(7)
  ink rgb(0,(variable*21),200-variable),0
  dot x,y
 next y
next x

yorigine=1

for x=64*image to 63+(64*image)
 if yorigine=1
  yorigine=0
 else
  yorigine=1
 endif
 for y=yorigine to 62+yorigine step 2
  xg=x-1
  yh=y-1
  xd=x+1
  yb=y+1
  if xg<64*image then xg=63+(64*image)
  if yh<0 then yh=63
  if xd>63+64*image then xd=64*image
  if yb>63 then yb=0
  pixgr=rgbr(point(xg,y))
  pixgg=rgbg(point(xg,y))
  pixgb=rgbb(point(xg,y))
  pixhr=rgbr(point(xg,y))
  pixhg=rgbg(point(xg,y))
  pixhb=rgbb(point(xg,y))
  pixdr=rgbr(point(xd,y))
  pixdg=rgbg(point(xd,y))
  pixdb=rgbb(point(xd,y))
  pixbr=rgbr(point(x,yb))
  pixbg=rgbg(point(x,yb))
  pixbb=rgbb(point(x,yb))
  ink rgb((pixgr+pixhr+pixdr+pixbr)/4,(pixgg+pixhg+pixdg+pixbg)/4,(pixgb+pixhb+pixdb+pixbb)/4),0
  dot x,y
 next y
next x

yorigine=0

get image image+1,64*image,0,64+(64*image),64

set current bitmap 0

autocam off

sync on

hide mouse

angle#=0

make object cone 1,15
xrotate object 1,180-angle#/1
scale object 1,100,133.333,100
texture object 1,1
yrotate object 1,90
position object 1,5000-(tan(angle#)*7),0,5000

make object cone 2,14
xrotate object 2,object angle x(1)-angle#/2
scale object 2,100,142.857,100
texture object 2,1
yrotate object 2,90
position object 2,object position x(1)-(tan(angle#)*7),7,5000

make object cone 3,12.8
xrotate object 3,object angle x(2)-angle#/3
scale object 3,100,156.25,100
texture object 3,1
yrotate object 3,90
position object 3,object position x(2)-(tan(angle#)*7),14,5000

make object cone 4,11.2
xrotate object 4,object angle x(3)-angle#/4
scale object 4,100,178.571,100
texture object 4,1
yrotate object 4,90
position object 4,object position x(3)-(tan(angle#)*7),21,5000

make object cone 5,11.2
xrotate object 5,object angle x(4)-angle#/5
scale object 5,100,178.571,100
texture object 5,1
yrotate object 5,90
position object 5,object position x(4)-(tan(angle#)*7),27,5000

make matrix 1,2000,2000,100,100

make matrix 2,10000,10000,100,100

prepare matrix texture 1,2,1,1

prepare matrix texture 2,3,1,1

ghost matrix on 2

for x=0 to 100
 for y=0 to 100
  set matrix height 1,x,y,-(sqrt((x-50)^2+(y-50)^2)^2)*0.2-rnd(6)
 next y
next x

sens=1

position matrix 1,4000,0,4000
position matrix 2,0,-15,0

dim membres(30)

dim vagues(10)
vagues(1)=0
vagues(2)=6
vagues(3)=13
vagues(4)=20
vagues(5)=4
vagues(6)=0
vagues(7)=6
vagues(8)=20
vagues(9)=4
vagues(10)=0
vaguedeplace=0

vent#=5

position camera 5000,30,3500

for z=3500 to 4850 step 5
 position camera 5000,110-((z-4175)^2)*0.0002,z
 gosub vague
 gosub inclinaison
 sourisx#=mousemovex()
 sourisy#=mousemovey()
 xrotate camera camera angle x()+0.2*sourisy#
 yrotate camera camera angle y()+0.2*sourisx#
 sync
next z

do

gosub vague
gosub inclinaison

sourisx#=mousemovex()
sourisy#=mousemovey()
xrotate camera camera angle x()+0.2*sourisy#
yrotate camera camera angle y()+0.2*sourisx#

if upkey()=1
 move camera 0.5*upkey()
 if sqrt(((camera position x()-5000)^2)+((camera position z()-5000)^2))>1000 then move camera -0.5*upkey()
endif

if downkey()=1
 move camera -0.5*downkey()
 if sqrt((camera position x()-5000)^2+(camera position z()-5000)^2)>1000 then move camera 0.5*downkey()
endif

if leftkey()=1 and timer()>tempsgauche+300 and vent#>0
 vent#=vent#-1
 tempsgauche=timer()
endif

if rightkey()=1 and timer()>tempsdroite+300 and vent#<11
 vent#=vent#+1
 tempsdroite=timer()
endif

if camera position y()<get ground height(1,camera position x()-4000,camera position z()-4000)+2 then position camera camera position x(),get ground height(1,camera position x()-4000,camera position z()-4000)+2,camera position z()
if camera position y()<get ground height(2,camera position x(),camera position z())-13 then position camera camera position x(),get ground height(2,camera position x(),camera position z())-13,camera position z()

sync

loop

vague:

if timer()>tempsvague+250-20*vent#
 vaguedeplace=vaguedeplace+1
 if vaguedeplace=6 then vaguedeplace=1
 for range=1 to 96 step 5
  for colonne=1 to 100
   set matrix height 2,range,colonne,(vagues(vaguedeplace+1)*(vent#/4))-15
   set matrix height 2,range+1,colonne,(vagues(vaguedeplace+2)*(vent#/4))-15
   set matrix height 2,range+2,colonne,(vagues(vaguedeplace+3)*(vent#/4))-15
   set matrix height 2,range+3,colonne,(vagues(vaguedeplace+4)*(vent#/4))-15
   set matrix height 2,range+4,colonne,(vagues(vaguedeplace+5)*(vent#/4))-15
  next colonne
 next range
 update matrix 2
 tempsvague=timer()
endif

return

inclinaison:

if timer()>tempsinclinaison+250-(22*vent#)
 inclinaison#=inclinaison#+sens
 if inclinaison#>10
  sens=-sens
  inclinaison#=9
 endif
 if inclinaison#<1
  sens=-sens
  inclinaison#=2
 endif
 angle#=vent#*1.7
 angleinstant#=(angle#/2)+((angle#/2)*(inclinaison#/10))
 gosub rotation
 tempsinclinaison=timer()
endif

return

rotation:

xrotate object 1,180-angleinstant#/1
position object 1,5000-(tan(angleinstant#)*7),0,5000

xrotate object 2,object angle x(1)-angleinstant#/2
position object 2,object position x(1)-(tan(angleinstant#)*7),7,5000

xrotate object 3,object angle x(2)-angleinstant#/3
position object 3,object position x(2)-(tan(angleinstant#)*7),14,5000

xrotate object 4,object angle x(3)-angleinstant#/4
position object 4,object position x(3)-(tan(angleinstant#)*7),21,5000

xrotate object 5,object angle x(4)-angleinstant#/5
position object 5,object position x(4)-(tan(angleinstant#)*7),27,5000

return

`Fractal Tree Basics by Tinkergirl - feel free to learn from and rip apart.

Randomize Timer()

backdrop on: color backdrop rgb(128,128,255)
autocam off

`Randomise some angles for rotation later.  As we have two branches per layer, we need 2 sets of angles.
angle1x# = rnd(45)
angle1y# = rnd(45)
angle1z# = rnd(45)
angle2x# = rnd(45)-90
angle2y# = rnd(45)
angle2z# = rnd(45)

make object plain 1,200,200
color object 1,rgb(0,128,0)
rotate object 1,-90,0,0
position camera 0,0,10,0

`Make the little helper mesh object.  (This could be hidden)  Acts as a remote pivot for limbs.
Helper = 1
make object cube 100,0.5
make mesh from object Helper,100
delete object 100

`Make a limb mesh.
LimbMesh = 2
make object box 101,1.5,10,1.5
make mesh from object LimbMesh,101
delete object 101

`Make the tree object that we will attach our limbs to.
Global Tree = 200
make object box Tree,2,20,2
position object Tree,10,10,60
color object Tree,rgb(255,128,0)

`Where all the limbs are added, see below for the ordering of the limbs.
`DB likes to have the limbs added in a very particular order.

`We add a helper limb for each branch and offset it to the top of the parent limb (half the limb height)
add limb Tree,1,Helper
link limb Tree,0,1
offset limb Tree,1,0,10,0

`We then add the tree branch to the helper limb.  This makes rotating the limbs a cinch.  (Thanks to Nicholas)
add limb Tree,2,LimbMesh
link limb Tree,1,2
offset limb Tree,2,0,5,0
color limb Tree,2,rgb(255,128,0)

`Rotate the limb, depening on whether it's a '2' style or a '1' style limb.
rotate limb Tree,1,angle1x#,angle1y#,angle1z#

add limb Tree,3,Helper
link limb Tree,2,3
offset limb Tree,3,0,5,0

add limb Tree,4,Limbmesh
scale limb Tree,4,75,75,75
link limb Tree,3,4
offset limb Tree,4,0,(5*0.75),0
color limb Tree,4,rgb(255,128,0)

rotate limb Tree,3,angle1x#,angle1y#,angle1z#

add limb Tree,5,Helper
link limb Tree,2,5
offset limb Tree,5,0,5,0

add limb Tree,6,Limbmesh
scale limb Tree,6,75,75,75
link limb Tree,5,6
offset limb Tree,6,0,(5*0.75),0
color limb Tree,6,rgb(255,128,0)

rotate limb Tree,3,angle2x#,angle2y#,angle2z#

add limb Tree,7,Helper
link limb Tree,0,7
offset limb Tree,7,0,10,0

add limb Tree,8,LimbMesh
link limb Tree,7,8
offset limb Tree,8,0,5,0
color limb Tree,8,rgb(255,128,0)

rotate limb Tree,7,angle2x#,angle2y#,angle2z#

add limb Tree,9,Helper
link limb Tree,8,9
offset limb Tree,9,0,5,0
color limb Tree,9,rgb(255,255,0)

add limb Tree,10,Limbmesh
scale limb Tree,10,75,75,75
link limb Tree,9,10
offset limb Tree,10,0,(5*0.75),0
color limb Tree,10,rgb(255,128,0)

rotate limb Tree,9,angle1x#,angle1y#,angle1z#

add limb Tree,11,Helper
link limb Tree,8,11
offset limb Tree,11,0,5,0

add limb Tree,12,Limbmesh
scale limb Tree,12,75,75,75
link limb Tree,11,12
offset limb Tree,12,0,(5*0.75),0
color limb Tree,12,rgb(255,128,0)

rotate limb Tree,11,angle2x#,angle2y#,angle2z#


sync on
sync rate 60


`**********************************
do

control camera using arrowkeys 0,0.25,0.75


turn object left Tree,0.1
sync
loop
`**********************************


remstart

     6     10
    /       \
-4-35       911-12-
    \       /
     2     8
      \   /
       1_7
       ¦ ¦
       ¦ ¦
       ¦0¦
       ¦ ¦

remend

autocam off
color backdrop rgb(20,20,45)
hide light 0
make light 1
position light 1,2,20,-5
for r=255 to 0 step -1
ink rgb(rnd(140),r,rnd(140)),0
line 0,y,255,y
inc y
next r
get image 1,0,0,255,255,1
position camera 0,0,-140
for a=1 to 100
make object sphere a,5+a,20,20
ghost object on a
texture object a,1
next a
sync on
do
for n#=1.0 to 100.0
xrotate object n#,5*n#*sin(theta#/5.0)
yrotate object n#,n#*sin(theta#)
inc theta#,0.01
next n#
position camera 100*sin(theta#/2.2),90*cos(theta#/10.0),140*cos(theta#/2.2)
point camera 0,0,0
sync
loop