Sorry your browser is not supported!

#include "castle.dba"

rem *** set up screen and use camera 2 ***
set display mode 1280,1024,32
make camera 1
set current camera 1
color backdrop rgb(64,0,128)
backdrop on
autocam off

drawcastle()

rem *** reposition camera 1 ***
position camera 0,8,10
point camera 0,8,200

rem *** make and position camera 2 ***
wait key
make camera 2
set current camera 2
color backdrop rgb(64,0,128)
backdrop on
position camera 50,250,900
point camera 200,0,0

rem *** allow the user to switch cameras ***
do
   repeat
      c$ = inkey$()
   until c$ = "1" or c$ = "2"
   SwitchCamera(val(c$))
   color backdrop rgb(64,0,128)
   backdrop on
loop

rem *** end program ***
end



function SwitchCamera(camno)
   rem *** save camera position ***
   x# = camera position x(camno)
   y# = camera position y(camno)
   z# = camera position z(camno)

   rem *** save camera direction ***
   angx# = camera angle x(camno)
   angy# = camera angle y(camno)
   angz# = camera angle z(camno)

   rem *** delete and re-create the camera ***
   delete camera camno
   make camera camno

   rem *** set camera as active camera ***
   set current camera camno

   rem *** restore original position and direction ***
   position camera camno, x#, y#, z#
   rotate camera camno, angx#, angy#, angz#
endfunction

set display mode 1024,768,32
sync on : sync rate 0 : autocam off
color backdrop 0 : hide mouse
randomize timer()

char1 = 1 `character 1
char2 = 2 `character 2

make object sphere char1, 20.0
color object char1, rgb(255,0,0)
position object char1, 500.0,0.0,500.0

make object sphere char2, 20.0
color object char2, rgb(0,255,0)
position object char2, 550.0,0.0,450.0

make matrix 1,1000.0,1000.0,50,50
randomize matrix 1, 20.0
update matrix 1

rem some initialization
onchar = char1 `set char 1 as the "on" or currently active character
offchar = char2 `set char 2 as the "off" character
ink rgb(255,0,0),0
lastchange = timer()
mover# = 20.0

do

rem use spacekey to toggle between characters
if spacekey() = 1 and lastchange + 1000 < timer()
   if onchar = char1
      onchar = char2
      offchar = char1
      ink rgb(0,255,0),0
   else
      onchar = char1
      offchar = char2
      ink rgb(255,0,0),0
   endif
   lastchange = timer()
endif

gosub _playermove:
gosub _setcam:
gosub _screenstuff:

sync
loop

_playermove:

   cmove# = ((timer() - lastmove)/1000.0)*mover#

   if shiftkey() then cmove# = cmove# * 3.0 `shiftkey = run mode

   if rightkey()
      yrotate object onchar, wrapvalue(object angle y(onchar) + cmove#)
   endif
   if leftkey()
      yrotate object onchar, wrapvalue(object angle y(onchar) - cmove#)
   endif

  if upkey()
      move object onchar, cmove#
   endif

   if downkey()
      move object onchar, (cmove# * -1.0)
   endif

   onx# = object position x(onchar)
   onz# = object position z(onchar)
   ony# = get ground height (1,onx#, onz#) + 10.0

   onxA# = wrapvalue(object angle x(onchar))
   onyA# = wrapvalue(object angle y(onchar))
   onzA# = wrapvalue(object angle z(onchar))

   offx# = object position x(offchar)
   offz# = object position z(offchar)
   offy# = get ground height (1,offx#, offz#) + 10.0

   position object onchar, onx#, ony#, onz#
   position object offchar, offx#, offy#, offz#

   lastmove = timer()
return

_setcam:

rem position and rotate camera @ current character
position camera onx#, ony#, onz#
rotate camera onxA#, onyA#, onzA#

rem tilt and move the cam back a bit
xrotate camera 30.0
move camera -200.0
return

_screenstuff:
set cursor 0,0

print "active character: ", onchar
print "FPS: ",screen fps()
print
print "move with arrow keys"
print "<shift> = run mode"
print "press <space> to toggle between characters"
return