Sorry your browser is not supported!

dogmaker:
backdrop off
cls
input "Dog's Name:",name$
set display mode 800,600,32
cls
load image "media\loadscreen.png",250
sprite 250,0,0,250
load image "media\models\textures\walltext.png",7
load object "media\models\cre_room.x",1
texture object 1,7
rotate object 1,245,175,150
scale object 1,2000,2000,2000
autocam off
load object "media\models\dog.3ds",3
load image "media\models\textures\dob.jpg",1
load image "media\spritesavis\dogmaker.png",2
load image "media\spritesavis\dm_choose.png",3
load image "media\spritesavis\dm_male.png",4
load image "media\spritesavis\dm_female.png",5
load image "media\spritesavis\ok.png",6
load sound "media\sounds\dog.wav",1
rotate object 3,80,180,30
scale object 3,80,80,50
move object 3,10
SET CAMERA FOV 300
cls
texture object 3,1
breed$="default"
type$="puppy"
cls
sprite 1,0,0,2
sprite 2,40,95,3
sprite 3,40,150,4
sprite 4,90,150,5
sprite 5,65,250,6
delete sprite 250
do
if mouseclick()=1 and mousex()>40 and mousey()>150 and mousex()<40+69 and mousey()<150+181
gender$="male"
endif
if mouseclick()=1 and mousex()>90 and mousey()>150 and mousex()<90+119 and mousey()<150+181
gender$="female"
endif
if mouseclick()=1 and mousex()>65 and mousey()>250 and mousex()<65+96 and mousey()<250+279
gender$=gender$
delete sprite 1
delete sprite 2
delete sprite 3
delete sprite 4
delete sprite 5
delete object 1
cls
print "Saving file... Please wait...."
if file exist(name$) then delete file name$
open to write 1,name$
write string 1,name$
write string 1,breed$
write string 1,type$
write string 1,gender$
close file 1
cls
print "Deleting extra data..."
cls
print name$+"'s Information"
print "Name: "+name$
print "Breed: "+breed$
print "Type: "+type$ 
print "Gender: "+gender$
print "Press Any Key to Continue"
wait key
gosub game
endif
loop
endif

set camera range 0.01,3000

set display mode 1024,768,32
hide mouse
sync on : sync rate 60
set gamma 0,0,0

white=rgb(255,255,255)
blue=rgb(40,150,190)

backdrop on

for c = 1 to 99
   make object cube c,20
   color object c,blue
   set object specular c,white,2
   set object ambient c,blue
   position object c,(c-50)*30,0,0
   yrotate object c,45
next c

for p = 100 to 101
   make object cylinder p,40
   scale object p,100,1,100
   set object p,1,1,1,1,0,1,1
   ghost object on p
next p
color object 101,blue
position object 101,0,16,0

position camera 0,100,-100
set camera view 0,100,screen width(),screen height()-100
ink white,0
set text opaque
fov#=1.08
set camera fov fov#
focus=50

set gamma 255,255,255

DO
   u=upkey() : d=downkey() : l=leftkey() : r=rightkey()

   focus = focus+(r*1)-(l*1)
   if focus < 1 then focus = 1
   if focus > 99 then focus = 99
   fx=object position x(focus)
   position object 100,fx,-16,0
   point camera fx,0,0

   fov# = fov# + (u*0.01) - (d*0.01)
   if fov#<0.01 then fov#=0.01
   set camera fov fov#

   text 10,10,"Camera FOV: "+str$(fov#)
   text 10,25,"Observing Object: "+str$(focus)+"  "

   sync
LOOP