Sorry your browser is not supported!

rem Set up the sync and backdrop
sync on
sync rate 60
backdrop on
color backdrop 0
fog on
fog distance 70
set text font "courier new"
set text size 13
hide mouse

rem Set up the arrays to contain the block and map data
dim map(20,20,2) as integer
dim block(11,3,3) as integer
dim seeds(100) as integer

rem read in the data and make the graphics
gosub readdata
gosub makegraphics

debug = 0
hp = 10
mhp = 10
magic = 0
px# = 20
pz# = 10
af = 1
aw = 1
level = 1

do

position camera 10000,10000,10000

ink rgb(0,192,0),0
box 220,140,420,340
ink rgb(255,255,0),0
box 271,144,368,157
ink 0,0
box 230,160,410,330
center text 320,144,"Escape!"

ink rgb(0,255,255),0
center text 320,164,"You have been trapped"
center text 320,176,"inside a vast dungeon"
center text 320,188,"by your evil mother."
center text 320,200,"You must escape or die."
center text 320,212,"Wield your sword with"
center text 320,224,"CTRL to kill the evil"
center text 320,236,"monsters. Collect the"
center text 320,248,"four magic spheres then"
center text 320,260,"head to the exit to"
center text 320,272,"reach the next level."
ink rgb(255,0,0),0
center text 320,300,"Press SPACE to start level:"
ink rgb(255,255,0),0
center text 320,312,"< "+str$(level)+" >"

w = w - 1
if w < 0
if leftkey() = 1 then level = level - 1
if rightkey() = 1 then level = level + 1
if spacekey() = 1 then exit
if level < 1 then level = 100
if level > 100 then level = 1
w = 5
endif

sync

loop

if level <= 11
mhp = 10+(level-1)
hp = mhp
endif
if level > 11
mhp = 20
hp = mhp
endif
if level = 1 then mhp = 10 : hp = 10

rem Create the level randomly in memory, then build it in 3d
createlevel(level)
buildlevel()

do

if debug = 1
magic = 4
text 5,5,str$(screen fps())
text 5,25,str$(bx)+", "+str$(bz)+" = "+str$(bt)+","+str$(map(bx,bz,2))
text 5,45,str$(rx)+", "+str$(rz)
endif

ox# = px#
oz# = pz#

if upkey() = 1 or downkey() = 1 or leftkey() = 1 or rightkey() = 1

   an = an + 6
   aa# = sin(an)*10
   rotate limb 4000,1,aa#,0,0
   if ss = 0 then rotate limb 4000,2,-aa#,0,0

endif

if upkey() = 1 then pz# = pz# + 0.5 : yrotate object 4000,0
if downkey() = 1 then pz# = pz# - 0.5 : yrotate object 4000,180
if leftkey() = 1 then px# = px# - 0.5 : yrotate object 4000,270
if rightkey() = 1 then px# = px# + 0.5 : yrotate object 4000,90

if controlkey() = 1 and ss = 0
ss = 1
endif
if ss = 1
sa = sa + 5
rotate limb 4000,2,-sa,0,0
if sa > 45 then ss = 2
endif
if ss = 2
sa = sa - 5
rotate limb 4000,2,-sa,0,0
if sa < 0 then ss = 0
endif

for mm = 3601 to 3604
rotate object mm,wrapvalue(object angle x(mm)+2),wrapvalue(object angle y(mm)+2),wrapvalue(object angle z(mm)+2)
next mm

bx = ((px#-5)/30)+1
bz = ((pz#+5)/30)+1
bt = map(bx,bz,1)
rx = px#-((bx-1)*30)-5
rz = pz#-((bz-1)*30)+5
orx = ox#-((bx-1)*30)-5
orz = oz#-((bz-1)*30)+5

if bx = 20 and bz = 20 and orx > 15 and orx < 30 and orz > 10 and orz < 20
if magic = 4
if level <= 10 then mhp = mhp + 1
hp = mhp
level = level + 1
px# = 20
pz# = 10
createlevel(level)
buildlevel()
magic = 0
md = 120
m$ = "LEVEL "+str$(level)
else
px# = px# - 0.5
md = 120
m$ = "YOU NEED ALL TO COLLECT ALL THE MAGIC!"
endif
endif

if md > 0
md = md - 1
ink rgb(0,255,255),0
center text 320,190,m$
endif

if map(bx,bz,2) > 0
if orx > 10 and orx < 20 and orz > 10 and orz < 20

hide object 3600+map(bx,bz,2)
map(bx,bz,2) = 0
magic = magic + 1

endif
endif

for dx = 1 to 3
for dz = 1 to 3
if block(bt,dx,dz) = 1

ax = (dx*10)-10
az = 30-(dz*10)

ink rgb(0,255,255),0

 if rx > ax-5 and rx < ax+15
 if rz > az-5 and rz < az+15

   if orx > ax-5 and orx < ax+15 and rz > az-5 and rz < az+15 then pz# = oz#
   if rx > ax-5 and rx < ax+15 and orz > az-5 and orz < az+15 then px# = ox#

   ink rgb(255,0,0),0

 endif
 endif

if debug = 1 then  box 50+ax,100+az,60+ax,110+az

endif
next dz
next dx

if debug = 1
ink rgb(0,255,0),0
circle 50+rx,100+rz,4
endif

ink 0,0
box 570,410,630,470
ink rgb(128,128,128),0
line 570,410,630,410
line 570,470,630,470
line 570,410,570,470
line 630,410,630,470
ink rgb(0,255,0),0
box 569+(px#/10),469-(pz#/10),571+(px#/10),471-(pz#/10)
for dm = 3601 to 3604
ink rgb(255,255,0),0
if object visible(dm)
box 569+(object position x(dm)/10),469-(object position z(dm)/10),571+(object position x(dm)/10),471-(object position z(dm)/10)
endif
next dm
ink rgb(255,0,255),0
box 629,410,631,412

ink rgb(255,255,0),0
text 10,430,"Level : "
text 10,440,"Health: "
text 10,450,"Magic : "
TEXT 10,460,"Gold  : "
ink rgb(0,255,255),0
text 60,430,str$(level)
text 60,440,str$(hp)
text 73,440,"/"
text 80,440,str$(mhp)
text 60,450,str$(magic)
text 60,460,str$(gold)

position object 4000,px#,2.5,pz#
set camera to follow px#,2.5,pz#,0,20,30,10,0
point camera px#,5,pz#
sync

loop

rem Find a free object slot
function findslot()

for ff = 1 to 3600
if object exist(ff) = 0 then exit
next ff

endfunction ff

rem Randomly create the level
function createlevel(n)

randomize seeds(n)

for clx = 1 to 20
for clz = 1 to 20
map(clx,clz,1) = 0
map(clx,clz,2) = 0
next clz
next clx

gmx = rnd(9)+1
gmz = rnd(9)+1
map(gmx,gmz,2) = 1
gmx = rnd(9)+11
gmz = rnd(9)+1
map(gmx,gmz,2) = 2
gmx = rnd(9)+1
gmz = rnd(9)+11
map(gmx,gmz,2) = 3
gmx = rnd(9)+11
gmz = rnd(9)+11
map(gmx,gmz,2) = 4

map(1,1,1) = 4

for cmx = 1 to 20
s = 1
if cmx = 1 then s = 2
for cmz = s to 20

ba = 0
la = 0

if block(map(cmx,cmz-1,1),2,1) = 0
ba = 1
else
ba = 0
endif

if block(map(cmx-1,cmz,1),3,2) = 0
la = 1
else
la = 0
endif

if cmx = 1 then la = 0
if cmz = 1 then ba = 0

if cmz = 20

if la = 1 and ba = 0 then cp = 5
if la = 0 and ba = 1 then cp = 1
if la = 1 and ba = 1 then cp = 7

else

if cmx = 20

if la = 1 and ba = 0 then cp = 3
if la = 0 and ba = 1 then cp = 6
if la = 1 and ba = 1 then cp = 9

else

if la = 1 and ba = 0
sel = rnd(1)
if sel = 0 then cp = 5
if sel = 1 then cp = 8
endif

if la = 0 and ba = 1
sel = rnd(1)
if sel = 0 then cp = 6
if sel = 1 then cp = 10
endif

if la = 1 and ba = 1
sel = rnd(2)
if sel = 0 then cp = 7
if sel = 1 then cp = 9
if sel = 2 then cp = 11
endif
endif
endif

map(cmx,cmz,1) = cp

next cmz
next cmx

endfunction

function buildlevel()

for dl = 1 to 3700
if object exist(dl) = 1 then delete object dl
next dl

rx = 15

for blx = 1 to 20
rz = 15
for blz = 1 to 20

if map(blx,blz,1) > 0
buildblock(rx,rz,map(blx,blz,1))
endif

if map(blx,blz,2) > 0
make object sphere 3600+map(blx,blz,2),4
position object 3600+map(blx,blz,2),rx+5,5,rz-5
texture object 3600+map(blx,blz,2),map(blx,blz,2)+3
set object fog 3600+map(blx,blz,2),0
set object filter 3600+map(blx,blz,2),0

endif

rz = rz + 30
next blz
rx = rx + 30
next blx

position camera 20,100,10

endfunction

function buildblock(x,z,b)

rx = x-15

for cbx = 1 to 3
rz = z+15
rx = rx + 10
for cbz = 1 to 3
rz = rz - 10

o = findslot()

if block(b,cbx,cbz) > 0

make object box o,10,8,10
position object o,rx,4,rz
texture object o,2
set object filter o,0

else

make object box o,10,1,10
position object o,rx,0.5,rz
texture object o,1
set object filter o,0

endif

next cbz
next cbx

endfunction


makegraphics:
create bitmap 1,640,480
ink rgb(0,0,0),0
box 0,0,640,480

rem floor tile
randomize 4
for cx = 0 to 16 step 2
for cy = 0 to 16 step 2
c = rnd(64)+64
ink rgb(c,c,c),0
box cx,cy+32,cx+2,cy+34
next cy
next cx
get image 1,0,32,16,48

rem wall 1
randomize 17
for cx = 0 to 16 step 4
for cy = 0 to 16 step 2
c = rnd(32)+128
ink rgb(c,c,c),0
box cx,cy+48,cx+4,cy+50
next cy
next cx
get image 2,0,48,16,64

randomize 23
for cx = 0 to 80 step 2
for cy = 0 to 16 step 2
if cx < 16             then ink rgb(0,rnd(32)+128,0),0
if cx => 16 and cx < 32 then ink rgb(rnd(128)+128,0,0),0
if cx => 32 and cx < 48 then ink rgb(0,0,rnd(128)+128),0
if cx => 48 and cx < 64 then ink rgb(rnd(128)+128,rnd(128)+128,0),0
if cx => 64 and cx < 78 then ink rgb(0,rnd(128)+128,rnd(128)+128),0
box cx+16,cy+48,cx+18,cy+50
next cy
next cx

get image 3,16,48,32,64
get image 4,33,48,48,64
get image 5,49,48,64,64
get image 6,65,48,80,64
get image 7,81,48,96,64


delete bitmap 1

rem player model
make object sphere 4000,7
texture object 4000,3
set object filter 4000,0
make object box 4001,0.75,1,4
offset limb 4001,0,0,0,2.5
make mesh from object 1,4001
delete object 4001
add limb 4000,1,1 : offset limb 4000,1,-2.8,0,0 : color limb 4000,1,rgb(0,192,0)
add limb 4000,2,1 : offset limb 4000,2, 2.8,0,0 : color limb 4000,2,rgb(0,192,0)
make object sphere 4001,1.75
make mesh from object 2,4001
delete object 4001
add limb 4000,3,2 : offset limb 4000,3,-1.6,2,2
add limb 4000,4,2 : offset limb 4000,4,1.6,2,2
add limb 4000,5,2 : scale limb 4000,5,50,50,50 : offset limb 4000,5,-1.6,2.2,2.45 : color limb 4000,5,0
add limb 4000,6,2 : scale limb 4000,6,50,50,50 : offset limb 4000,6,1.6,2.2,2.45 : color limb 4000,6,0
make object box 4001,0.1,4,1
xrotate object 4001,45
offset limb 4001,0,0,5.6,2.5
make mesh from object 5,4001
delete object 4001
add limb 4000,7,5 : link limb 4000,2,7

rem enemy 1 mesh
make object sphere 4001,7
offset limb 4001,0,0,5,0
make object cone 4002,5
make mesh from object 3,4002
delete object 4002
add limb 4001,1,3 : rotate limb 4001,1,0,0,270  : offset limb 4001,1,4,5,0
add limb 4001,2,3 : rotate limb 4001,2,0,0,90 : offset limb 4001,2,-4,5,0
scale object 4001,70,70,70
delete mesh 3
make mesh from object 3,4001
delete object 4001

rem enemy 2 mesh
make object cube 4002,5
offset limb 4002,0,0,5,0
make object sphere 4003,6.5
make mesh from object 4,4003
delete object 4003
add limb 4002,1,4
offset limb 4002,1,0,5,0
delete mesh 4
make mesh from object 4,4002
delete object 4002

rem enemy 3 mesh

return

readdata:

restore blockdata
for rb = 1 to 11
for rby = 1 to 3
for rbx = 1 to 3
read block(rb,rbx,rby)
next rbx
next rby
next rb

restore seeddata
for rs = 1 to 100
read seeds(rs)
next rs

return

blockdata:
rem Block Data

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

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

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

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

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

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

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

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

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

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

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

seeddata:

data 988, 593, 334, 821, 597, 873, 87, 276, 228, 140
data 540, 565, 144, 221, 514, 835, 683, 779, 757, 797
data 202, 250, 496, 285, 504, 965, 568, 659, 626, 895
data 158, 342, 206, 814, 919, 636, 458, 255, 437, 419
data 718, 606, 486, 401, 368, 955, 229, 335, 928, 249
data 400, 713, 474, 739, 858, 172, 499, 933, 461, 271
data 209, 346, 656, 959, 59, 353, 647, 312, 931, 234
data 735, 341, 102, 690, 456, 890, 581, 364, 640, 609
data 800, 856, 913, 158, 901, 197, 950, 809, 634, 2
data 398, 372, 293, 929, 247, 833, 97, 638, 55, 471

dim level(99)
for a=1 to 99
level(a)=rnd(100)
next a




gosub textures

`=======================
global updown as boolean
global camangle#
global wallnum
global current_level
global platesize
global press as boolean
global leveltype
global fov as float
global falling as boolean
global swtichup as boolean
global switchdown as boolean
updown2 as boolean
platesize=60
wallnum=40
camangle#=0
enemynum=0

`=======================
type vector x as integer z as integer endtype
`=======================
type corridor position as vector cave as boolean turn as integer direction as integer collision as boolean endtype
type wall position as vector width as integer depth as integer endtype
type enemy health as integer attack as integer kind as integer vertspeed as integer speed as integer currentsegment as integer endtype
type player health as integer attack as integer gold as integer vertspeed as integer currentsegment as integer endtype
`=======================
type weapon name as string attack as integer color as dword size as integer equipped as boolean recip as boolean endtype
`=======================
dim wall(0) as wall
dim enemy(0) as enemy
dim player(1) as player
`=======================
`=======================
dim segment(0) as corridor
sync on
sync rate 100

`=======================
tex("initializing",rgb(255,255,255))
gosub init
cls
`=======================
cls
goto Maingame
Maingame:
leveltype=1
current_level=50
switchup=1
do
ink rgb(255,255,255),rgb(255,255,255)
text 100,100,str$(falling)
   text 1,1,"To move back a level, simply press CTRL"
   if controlkey()=1 then switchdown=1
   if switchdown=1 and current_level=1
      switchdown=0
   endif

   position light 1, camera position x(0), camera position y(0)+20, camera position z(0)

   if switchup=1 or switchdown=1
      deletelevel(1)

      if switchup=1
         inc current_level
      endif

      if switchdown=1
         dec current_level
      endif


      switchup=0
      switchdown=0

      if current_level=>1 and current_level<25
         randomize level(current_level)
         wallnum=60
         color backdrop rgb(100,100,100)
         platesize=60
         makerandomcorridor(wallnum,10,4,5)
         maptype=2
         position object 1,500,5,10
      endif

      if current_level=>25 and current_level<50
         randomize level(current_level)
         wallnum=100
         color backdrop rgb(255,255,255)
         makerandomplains(1000,1000,wallnum)
         maptype=1
         position object 1,10,5,10
      endif

      if current_level=>50 and current_level<75
         randomize level(current_level)
         color backdrop rgb(0,0,0)
         wallnum=40
         makerandomcave(1000,1000,wallnum)
         maptype=1
         position object 1,10,5,10
      endif

      if current_level=>75 and current_level<99
         randomize level(current_level)
         wallnum=40
         color backdrop rgb(0,0,0)
         platesize=100
         makerandomcorridor(wallnum,10,4,11)
         maptype=2
         position object 1,500,5,10
      endif

      if current_level=99
         randomize level(current_level)
         wallnum=40
         color backdrop rgb(0,0,0)
         platesize=60
         makerandomcorridor2(wallnum,10,4)
         maptype=3
         fog on
         fog distance 200
         for a=1 to 100
         make object sphere a+wallnum+1,rnd(100)
         ghost object on a+wallnum+1
         color object a+wallnum+1,rgb(rnd(255),rnd(255),rnd(255))
         position object a+wallnum+1,rnd(4000)-2000,rnd(4000)-2000,rnd(4000)-2000
         set object fog a+wallnum+1,0
         next a
         position object 1,0,5,10
      endif
   endif


if maptype=3
inc afg#
afg#=wrapvalue(afg#)
pos#=newxvalue(pos#,afg#,1)
set camera fov 0,pos#/5+90
endif


      gosub handlemovement

      gosub handlemouse
      tex(str$(object position x(1)),rgb(0,0,0))
   set camera to follow object position x(1),object position y(1), object position z(1),wrapvalue(object angle y(1))+camangle,30,20,5,0


   sync

loop
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================_________=========__________====================================================
`===============================================#==#============#==#========================================================
`==============================================#=<>=#==========#=<>=#=======================================================
`===============================================#==#============#==#========================================================
`================================================##==============##=========================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`==============================================0======@@@==@@@====0=========================================================
`==============================================0000000@@@00@@@00000=========================================================
`===============================================0000##@@@##@@@##000=========================================================
`=================================================0000000000000000==========================================================
`======================================================00000================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================

`bored

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--TEXTURES--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
textures:
tex("Creating texture 1",rgb(100,0,0))
gosub vampire
cls
tex("Creating texture 2",rgb(110,0,0))
gosub vampireattack
cls
tex("Creating texture 3",rgb(120,0,0))
gosub smiley
cls
tex("Creating texture 4",rgb(130,0,0))
gosub grass
cls
tex("Creating texture 5",rgb(140,0,0))
gosub cement
cls
tex("Creating texture 6",rgb(150,0,0))
gosub boulder
cls
tex("Creating texture 7",rgb(160,0,0))
gosub wall
cls
tex("Creating texture 8",rgb(170,0,0))
gosub zombie
cls
tex("Creating texture 9",rgb(180,0,0))
gosub zombieattack
cls
tex("Creating texture 10",rgb(190,0,0))
gosub barrier
gosub circles
cls
return



vampire:
cls rgb(100,100,100)
ink rgb(255,255,255),rgb(255,255,255)
circle 10,10,2
circle 30,10,2
line 10,30,30,30
ink rgb(0,255,0),rgb(0,255,0)
box 9,9,12,12
box 29,9,32,12
ink rgb(255,0,0),rgb(255,0,0)
line 12,30,13,34
line 13,34,14,30
line 26,30,27,34
line 27,34,28,30
ink rgb(0,0,0),rgb(0,0,0)
dot 10,10
dot 30,10
get image 1,1,1,40,40
return
vampireattack:
cls rgb(100,100,100)
ink rgb(255,255,255),rgb(255,255,255)
circle 10,10,2
circle 30,10,2
ink rgb(0,255,0),rgb(0,255,0)
box 9,9,12,12
box 29,9,32,12
ink rgb(0,0,0),rgb(0,0,0)
dot 10,10
dot 30,10
box 10,30,30,36
ink rgb(255,0,0),rgb(255,0,0)
line 12,30,13,34
line 13,34,14,30
line 26,30,27,34
line 27,34,28,30
get image 2,1,1,40,40
return
smiley:
cls rgb(230,230,0)
circle 10,10,2
circle 30,10,2
line 13,30,27,30
line 13,30,13,25
line 27,30,27,25
get image 3,1,1,40,40
return
grass:
for x=1 to 40
for y=1 to 40
dot x,y,rgb(0,rnd(30)+100,0)
next y
next x
get image 4,1,1,40,40
return
cement:
for x=1 to 40
for y=1 to 40
q=rnd(30)+100
dot x,y,rgb(q,q,q)
next y
next x
ink rgb(255,255,255),rgb(255,255,255)
get image 5,1,1,40,40
return
boulder:
cls rgb(255,255,255)
for x=0 to 40
for y=0 to 40
q=rnd(30)+100
dot x,y,rgb(q,q/2,q/2)
next y
next x
ink rgb(255,255,255),rgb(255,255,255)
for a=1 to 2
custombox(rnd(30),rnd(60),rnd(5)+5,rnd(40))
next a
for a=1 to 2
custombox(rnd(60),rnd(30),rnd(40),rnd(5)+5)
next a
for a=1 to 2
custombox(rnd(30),rnd(60),rnd(5)+30,rnd(40))
next a
for a=1 to 2
   custombox(rnd(60),rnd(30),rnd(40),rnd(5)+30)
next a
get image 6,1,1,40,40
return
wall:
for x=0 to 100
for y=0 to 100
q=rnd(30)+50
dot x,y,rgb(q,q/2,q/2)
next y
next x
for a=1 to 7
paste image 6, rnd(60),rnd(60)
next a
get image 7,1,1,100,100
return
barrier:
for x=0 to 100
for y=0 to 40
q=rnd(30)+50
dot x,y,rgb(q,q/2,q/2)
next y
next x
for a=1 to 7
paste image 6, rnd(60),rnd(60)
next a
get image 10,1,1,40,40
get image 11,1,1,100,40
return
zombie:
cls rgb(0,30,0)
blur bitmap 0,3
ink rgb(0,0,0),rgb(0,0,0)
ellipse 10,10,4,4
ellipse 30,10,4,4
ellipse 10,10,3,3
ellipse 30,10,3,3
ellipse 10,10,2,2
ellipse 30,10,2,2
ellipse 10,10,1,1
ellipse 30,10,1,1
line 10,30,30,30
box 10,30,23,32
ink rgb(255,0,0),rgb(255,0,0)
line 10,0,13,4
line 13,4,8,12
line 12,30,13,34
line 13,34,14,30
get image 8,1,1,40,40
return
zombieattack:
cls rgb(0,30,0)
blur bitmap 0,3
ink rgb(0,0,0),rgb(0,0,0)
ellipse 10,10,4,3
ellipse 30,10,4,3
ellipse 10,10,3,2
ellipse 30,10,3,2
ellipse 10,10,2,1
ellipse 30,10,2,1
ellipse 10,10,1,1
ellipse 30,10,1,1
line 10,30,30,30
box 10,30,30,35
ink rgb(255,0,0),rgb(255,0,0)
line 10,0,13,4
line 13,4,8,12
line 12,30,13,34
line 13,34,14,30
line 20,35,21,32
line 21,32,22,35
get image 9,1,1,40,40
return
circles:
create bitmap 1,400,400
set current bitmap 1
cls rgb(255,255,255)
for a=1 to 400
afh=rnd(5)
if afh<=2
   ink rgb(0,0,rnd(50)+200),rgb(0,0,rnd(50)+200)
endif
if afh>2 and afh<=4
   l=rnd(50)+200
   ink rgb(l/1.5,l/1.5,l),rgb(l/1.5,l/1.5,l)
endif
if afh=5
   ink rgb(rnd(50)+200,0,0),rgb(rnd(50)+200,0,0)
endif
circle 200,200,a
next a
blur bitmap 1,6
get image 12,1,1,400,400
delete bitmap 1
set current bitmap 0
return

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Player Control Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

handlemovement:
`setup variables
x1#=object position x(1)
z1#=object position z(1)

`gets the angle of the object
a#=wrapvalue(object angle y(1))

`moving forwards
if upkey()=1
    x#=newxvalue(object position x(1),a#,1)
    z#=newzvalue(object position z(1),a#,1)
endif

`moving backwards
if downkey()=1
    x#=newxvalue(object position x(1),a#,-1)
    z#=newzvalue(object position z(1),a#,-1)
endif

`turning right
if rightkey()=1 then rotate object 1,object angle x(1), object angle y(1)+1, object angle z(1)
`left
if leftkey()=1 then rotate object 1,object angle x(1), object angle y(1)-1, object angle z(1)


`This bit of code checks for collision with the walls using just the X and Z dimensions. Works only on the Plains map
`and the Cavern map.
d=1

if maptype=1
`does this for every wall there is
   for c=1 to wallnum-6

   `checks for a collision
      if object position x(d)>wall(c).position.x-wall(c).width/2
         if object position x(d)<wall(c).position.x+wall(c).width/2
            if object position z(d)>wall(c).position.z-wall(c).width/2
               if object position z(d)<wall(c).position.z+wall(c).width/2
               intersect=1
               endif
            endif
         endif
      endif

      `If there's a collision, then it goes through all possible collisions
      if intersect=1
            if object position x(d)<wall(c).position.x+wall(c).width/2
               if object position x(d)>wall(c).position.x-wall(c).width/2
                  if object position z(d)>wall(c).position.z-wall(c).depth/2
                     if object position z(d)<wall(c).position.z-wall(c).depth/2+1.1
                        z#=wall(c).position.z-wall(c).depth/2
                     endif
                  endif
               endif
            endif

            if object position x(d)<wall(c).position.x+wall(c).width/2
               if object position x(d)>wall(c).position.x-wall(c).width/2
                  if object position z(d)>wall(c).position.z+wall(c).depth/2-1.1
                     if object position z(d)<wall(c).position.z+wall(c).depth/2
                        z#=wall(c).position.z+wall(c).depth/2
                     endif
                  endif
               endif
            endif

            if object position z(d)<wall(c).position.z+wall(c).depth/2
               if object position z(d)>wall(c).position.z-wall(c).depth/2
                  if object position x(d)>wall(c).position.x+wall(c).width/2-1.1
                     if object position x(d)<wall(c).position.x+wall(c).width/2
                        x#=wall(c).position.x+wall(c).width/2
                     endif
                  endif
               endif
            endif

            if object position z(d)<wall(c).position.z+wall(c).depth/2
               if object position z(d)>wall(c).position.z-wall(c).depth/2
                  if object position x(d)>wall(c).position.x-wall(c).width/2
                     if object position x(d)<wall(c).position.x-wall(c).width/2+1.1
                        x#=wall(c).position.x-wall(c).width/2
                     endif
                  endif
               endif
            endif
      endif

      if object position x(d)>900
         if object position z(d)>900
            switchup=1
         endif
      endif


if object position x(1)<0 then x#=0
if object position x(1)>1000 then x#=1000
if object position z(1)<0 then z#=0
if object position z(1)>1000 then z#=1000

      `AAAAnaaand done.
   next c

endif

if maptype=2

left=1
up=3
right=2
down=4

`checks to see which segment the player is in

   for b=1 to wallnum
      if segment(b).cave=0
         if object position x(d)=>segment(b).position.x-(platesize/2)
            if object position x(d)=<segment(b).position.x+(platesize/2)
               if object position z(d)=>segment(b).position.z-(platesize/2)
                  if object position z(d)=<segment(b).position.z+(platesize/2)
                     player(1).currentsegment=b
                     f=1
                  endif
               endif
            endif
         endif
      endif
   next b


   c=player(1).currentsegment
   if c=wallnum then switchup=1

   `checks to see if collision is on or off for the current segment
   if segment(c).collision=0
      `if it's on
      `then check to see if it's a turn
      if c>1
      if segment(c).direction<>segment(c-1).direction

      `if it's a up to left turn

         if segment(c).direction=left
            if segment(c-1).direction=up
         `then ya can't go over the right or upper wall
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif

      `if it's a up to right turn
         if segment(c).direction=right
            if segment(c-1).direction=up
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif

      `if its a down to right turn
         if segment(c).direction=right
            if segment(c-1).direction=down
         `then you can't go over the left or lower wall
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a down to left turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a left to up turn
         if segment(c).direction=up
            if segment(c-1).direction=left
         `then you can't go over the left or lower wall.
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a left to down turn
         if segment(c).direction=down
            if segment(c-1).direction=left
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif

      `if it's a right to up turn
         if segment(c).direction=up
            if segment(c-1).direction=right
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a right to down turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or upper wall.
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)<segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif
      else

      if segment(c).direction=up
         if object position x(1)<segment(c).position.x-(platesize/2)
            x#=segment(c).position.x-(platesize/2)
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)
            x#=segment(c).position.x+(platesize/2)
         endif
      endif

      if segment(c).direction=down
         if object position x(1)<segment(c).position.x-(platesize/2)
            x#=segment(c).position.x-(platesize/2)
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)
            x#=segment(c).position.x+(platesize/2)
         endif
      endif

      if segment(c).direction=right
         if object position z(1)<segment(c).position.z-(platesize/2)
            z#=segment(c).position.z-(platesize/2)
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)
            z#=segment(c).position.z+(platesize/2)
         endif
      endif

      if segment(c).direction=left
         if object position z(1)<segment(c).position.z-(platesize/2)
            z#=segment(c).position.z-(platesize/2)
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)
            z#=segment(c).position.z+(platesize/2)
         endif
      endif
   endif
   endif



   endif
endif

position object 1, x#,5,z#


if maptype=3
falling=0
tolerance=3
left=1
up=3
right=2
down=4

`checks to see which segment the player is in

   for b=1 to wallnum
      if segment(b).cave=0
         if object position x(d)=>segment(b).position.x-(platesize/2)
            if object position x(d)=<segment(b).position.x+(platesize/2)
               if object position z(d)=>segment(b).position.z-(platesize/2)
                  if object position z(d)=<segment(b).position.z+(platesize/2)
                     player(1).currentsegment=b
                  endif
               endif
            endif
         endif
      endif
   next b


   c=player(1).currentsegment
   `checks to see if collision is on or off for the current segment
   if segment(c).collision=0
      `if it's on
      `then check to see if it's a turn
      if c>1
      if segment(c).direction<>segment(c-1).direction

      `if it's a up to left turn

         if segment(c).direction=left
            if segment(c-1).direction=up
         `then ya can't go over the right or upper wall
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif

      `if it's a up to right turn
         if segment(c).direction=right
            if segment(c-1).direction=up
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif

      `if its a down to right turn
         if segment(c).direction=right
            if segment(c-1).direction=down
         `then you can't go over the left or lower wall
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a down to left turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a left to up turn
         if segment(c).direction=up
            if segment(c-1).direction=left
         `then you can't go over the left or lower wall.
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a left to down turn
         if segment(c).direction=down
            if segment(c-1).direction=left
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif

      `if it's a right to up turn
         if segment(c).direction=up
            if segment(c-1).direction=right
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a right to down turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or upper wall.
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif
      else

      if segment(c).direction=up
         if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
         endif
      endif

      if segment(c).direction=down
         if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
         endif
      endif

      if segment(c).direction=right
         if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
         endif
      endif

      if segment(c).direction=left
         if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
         endif
      endif
   endif
   endif



   endif
endif

position object 1, x#,5,z#
return





`This makes sure the player doesnt go out of the map. If you change the size of the map, you also need to change
`these variables.



`and now we place the object.
position object 1,x#,5,z#

return

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Object Creation Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

`This is TDK's limb cube function. Im too lazy to make one of my own.
Function MakeLimbCube(ObjNum,Size#)
  Offset#=Size#/2.0: MeshNum=2000: PlainNum=2000
  Make Object Cube ObjNum,Size#
  Make Object Plain PlainNum,Size#,Size#
  Make Mesh From Object MeshNum,PlainNum
  ADD LIMB ObjNum, 1, 2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
  ADD LIMB ObjNum, 2, 2000: Rotate Limb ObjNum,2,0,90,0:  Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
  ADD LIMB ObjNum, 3, 2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:     Rem Cube Side 3 (Back)
  ADD LIMB ObjNum, 4, 2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:     Rem Cube Side 4 (Right)
  ADD LIMB ObjNum, 5, 2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
  ADD LIMB ObjNum, 6, 2000: Rotate Limb ObjNum,6,90,0,0:  Offset Limb ObjNum,6,0,Offset#,0:     Rem Cube Side 6 (Top)

  Set Object Cull ObjNum,0
  Delete Mesh MeshNum
  Delete Object PlainNum
  Hide Limb ObjNum,0

EndFunction

`This function changes the color of said Limb Cube.
function ColorCube(objnum as integer, color as dword)
   for a=1 to 6
      if a<>3
      color limb objnum,a,color
      endif
   next a
endfunction

`function MakeRandomEnemies (width as integer, depth as integer, number as integer, type as integer

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Level Creation Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


function makerandomcave(width as integer,depth as integer,wallnum as integer)

`creates the ground
make object plain 2,width,depth
rotate object 2,90,0,0
position object 2,width/2,0,depth/2
texture object 2, 7

`creates the cieling
make object plain 7,width,depth
rotate object 7,90,0,0
position object 7,width/2,50,depth/2
texture object 7, 7

`creates the left wall
make object plain 3,width,50
position object 3,width/2,25,0

`creates the front wall
make object plain 4,depth,50
rotate object 4,0,90,0
position object 4,0,25,depth/2

`creates the right wall
make object plain 5,width,50
position object 5,width/2,25,depth

`creates the back wall
make object plain 6,depth,50
position object 6,width,25,depth/2
rotate object 6,0,90,0

`Meh, too lazy to type texture object four times.
for a=1 to 4
   b=a+2
   texture object b, 11
next a

`wallnum-6 because of the six wall objects
abc=wallnum-6
for a=1 to abc
   `Adds an entry into the Array.
   array insert at bottom wall(0)
   `positions it at a random position
   x=rnd(width)
   z=rnd(depth)
   `These are interchangeable. The block needs to be rectangular, so the variable B chooses whether c= width and d=depth,
   `or d=width and c=depth. I wrote the program so that if you want to change these values, then you just change these
   `values. This is useful if you think the map is too open.
   c=rnd(50)+50
   d=rnd(25)+25
   b=rnd(2)

   `if c is width and d is depth
   if b<=1
      wall(a).width=c
      wall(a).depth=d
      `stores the randomly selected positions in the array
      wall(a).position.x=x
      wall(a).position.z=z
      `makes sure that the object's furthest edges are inside the map.
      if x-(c/2)<=0
         wall(a).position.x=wall(a).position.x+(c/2)
      endif
      if x+(c/2)>=width
         wall(a).position.x=wall(a).position.x-(c/2)
      endif
      if z-(d/2)<=0
         wall(a).position.z=wall(a).position.z+(d/2)
      endif
      if z+(d/2)>=depth
         wall(a).position.z=wall(a).position.z-(d/2)
      endif
   endif

   `duzzit again but changing width and depth.
   if b=2
      wall(a).width=d
      wall(a).depth=c
      wall(a).position.x=x
      wall(a).position.z=z
      if x-(d/2)<=0
         wall(a).position.x=wall(a).position.x+(d/2)
      endif
      if x+(d/2)>=width
         wall(a).position.x=wall(a).position.x-(d/2)
      endif
      if z-(c/2)<=0
         wall(a).position.z=wall(a).position.z+(c/2)
      endif
      if z+(c/2)>=depth
         wall(a).position.z=wall(a).position.z-(c/2)
      endif
   endif

   `Makes the objects. Object one is the player, and two through 7 are the walls.
   make object box a+7,wall(a).width,50,wall(a).depth
   `positions it so that the entire level has a positive x/z position
   position object a+7,wall(a).position.x,25,wall(a).position.z
   `Textures it.
   texture object a+7,10
next a
make object cube wallnum+100,100
ghost object on wallnum+100
position object wallnum+100,900,50,900
endfunction

function makerandomplains(width as integer,depth as integer,wallnum as integer)

`creates the ground
make object plain 2,width,depth
rotate object 2,90,0,0
position object 2,width/2,0,depth/2
texture object 2, 4

`creates the left wall
make object plain 3,width,20
position object 3,width/2,10,0

`creates the front wall
make object plain 4,depth,20
rotate object 4,0,90,0
position object 4,0,10,depth/2

`creates the right wall
make object plain 5,width,20
position object 5,width/2,10,depth

`creates the back wall
make object plain 6,depth,20
position object 6,width,10,depth/2
rotate object 6,0,90,0

`Meh, too lazy to type texture object four times.
for a=1 to 4
   b=a+2
   texture object b, 4
next a

`wallnum-6 because of the six wall objects
abc=wallnum-6
for a=1 to abc
   `Adds an entry into the Array.
   array insert at bottom wall(0)
   `positions it at a random position
   x=rnd(width)
   z=rnd(depth)
   `These are interchangeable. The block needs to be rectangular, so the variable B chooses whether c= width and d=depth,
   `or d=width and c=depth. I wrote the program so that if you want to change these values, then you just change these
   `values. This is useful if you think the map is too open.
   c=rnd(10)+10
   d=c
   b=rnd(2)


   wall(a).width=c
   wall(a).depth=c
   wall(a).position.x=x
   wall(a).position.z=z
   if x-(d/2)<=0
      wall(a).position.x=wall(a).position.x+(d/2)
   endif
   if x+(d/2)>=width
      wall(a).position.x=wall(a).position.x-(d/2)
   endif
   if z-(c/2)<=0
      wall(a).position.z=wall(a).position.z+(c/2)
   endif
   if z+(c/2)>=depth
      wall(a).position.z=wall(a).position.z-(c/2)
   endif
   height=rnd(25)+50
   size=c+d+height/3
   make object cube 1000,size
   make mesh from object 1,1000
   `Makes the objects. Object one is the player, and two through 7 are the walls.
   make object box a+7,wall(a).width,height,wall(a).depth
   add limb a+7,1,1
   offset limb a+7,1,0,height/2+(c/2)-2,0
   `positions it so that the entire level has a positive x/z position
   position object a+7,wall(a).position.x,height/2,wall(a).position.z
   `Textures it.
   texture object a+7,10
   texture limb a+7,1,4
   delete object 1000
   delete mesh 1
next a
make object cube wallnum+80,100
ghost object on wallnum+80
position object wallnum+80,900,50,900
endfunction

function makerandomcorridor(segments as integer, maxturns as integer, turnnum as integer,texturenum as integer)
left=1
up=3
right=2
down=4
tempturn=0
tempcaves=0
for a=1 to segments
array insert at bottom segment(0)

if a=1
   segment(a).position.x=500
   segment(a).position.z=10
   segment(a).direction=up
else

   segment(a).direction=segment(a-1).direction
   segment(a).turn=segment(a-1).direction

   b=rnd(6)
   `turn
   if segment(a).direction=left
      segment(a).position.x=segment(a-1).position.x-platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=right
      segment(a).position.x=segment(a-1).position.x+platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=up
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z+platesize
   endif

   if segment(a).direction=down
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z-platesize
   endif

   if b=1
      if tempturn<=maxturns
      en=0
      for j=1 to turnnum
         if en=0
            if a-j-1<=1
               en=1
            endif
            if segment(a-j).direction<>segment(a-(j+1)).direction
               en=1
            endif
         endif
      next j

      if en=0

         c=rnd (2)
         segment(a).turn=c

         if segment(a-1).direction=left
            if c=left then segment(a).direction=down
            if c=right then segment(a).direction=up
         endif

         if segment(a-1).direction=right
            if c=left then segment(a).direction=up
            if c=right then segment(a).direction=down
         endif

         if segment(a-1).direction=up
            if c=left then segment(a).direction=left
            if c=right  then segment(a).direction=right
         endif

         if segment(a-1).direction=down
            if c=left then segment(a).direction=right
            if c=right then segment(a).direction=left
         endif
         inc tempturn
      endif
      endif
   endif
endif
next a

for f=1 to wallnum
   for e=1 to wallnum
      if f<>e
         if segment(f).position.x=segment(e).position.x
            if segment(f).position.z=segment(e).position.z
               segment(f).collision=1
               segment(e).collision=1
            endif
         endif
      endif
   next e
next f


make object box 1000,platesize,60,0.1
make mesh from object 1,1000
delete object 1000
make object box 1000,platesize,0.1,platesize
make mesh from object 2,1000
delete object 1000


for a=1 to segments
make object box a+1,platesize,0.1,platesize
position object a+1,segment(a).position.x,0,segment(a).position.z
add limb a+1,1,2
offset limb a+1,1,0,60,0
texture object a+1,texturenum
if a <>segmentnum
if segment(a).collision=0
   if a<>1
   if segment(a).direction=segment(a-1).direction

   if segment(a).direction=left
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
   endif

   if segment(a).direction=right
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
   endif

   if segment(a).direction=up
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
   endif

   if segment(a).direction=down
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
   endif

   else
   `up to left
   if segment(a).direction=left
      if segment(a-1).direction=up
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `right wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,platesize/2,30,0
      endif
   endif

   `up to right
   if segment(a).direction=right
      if segment(a-1).direction=up
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif

   `down to left
   if segment(a).direction=left
      if segment(a-1).direction=down
      `right wall
         add limb a+1,2,1
         rotate limb a+1,2,0,90,0
         offset limb a+1,2,platesize/2,30,0
      `bottom wall
         add limb a+1,3,1
         offset limb a+1,3,0,30,-platesize/2
      endif
   endif

   `down to right
   if segment(a).direction=right
      if segment(a-1).direction=down
      `bottom wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,-platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif


   `left to up
   if segment(a).direction=up
      if segment(a-1).direction=left
      `bottom wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,-platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif

   `left to down
   if segment(a).direction=down
      if segment(a-1).direction=left
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif


   `right to up
   if segment(a).direction=up
      if segment(a-1).direction=right
      `right wall
         add limb a+1,2,1
         rotate limb a+1,2,0,90,0
         offset limb a+1,2,platesize/2,30,0
      `bottom wall
         add limb a+1,3,1
         offset limb a+1,3,0,30,-platesize/2
      endif
   endif

   `right to down
   if segment(a).direction=down
      if segment(a-1).direction=right
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `right wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,platesize/2,30,0
      endif
   endif

   endif
   endif
endif
endif


texture object a+1,texturenum

if a=1
   add limb a+1,2,1
   offset limb a+1,2,0,30,-platesize/2

   add limb a+1,3,1
   rotate limb a+1,3,0,90,0
   offset limb a+1,3,platesize/2,30,0

   add limb a+1,4,1
   rotate limb a+1,4,0,90,0
   offset limb a+1,4,-platesize/2,30,0
endif

if a=segmentnum
   if segment(a).direction=left
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
      add limb a+1,4,1
      rotate limb a+1,4,0,90,0
      offset limb a+1,4,-platesize/2,30,0
   endif

   if segment(a).direction=right
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
      add limb a+1,4,1
      rotate limb a+1,4,0,90,0
      offset limb a+1,4,platesize/2,30,0
   endif

   if segment(a).direction=up
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
      add limb a+1,4,1
      offset limb a+1,4,0,30,platesize/2
   endif

   if segment(a).direction=down
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
      add limb a+1,4,1
      rotate limb a+1,4,0,90,0
      offset limb a+1,4,-platesize/2,30,0
   endif
endif


next a
delete mesh 1
delete mesh 2

endfunction
function makerandomcorridor2(segments as integer, maxturns as integer, turnnum as integer)
left=1
up=3
right=2
down=4
tempturn=0
tempcaves=0
for a=1 to segments
array insert at bottom segment(0)

if a=1
   segment(a).position.x=0
   segment(a).position.z=10
   segment(a).direction=up
else

   segment(a).direction=segment(a-1).direction
   segment(a).turn=segment(a-1).direction

   b=rnd(6)
   `turn
   if segment(a).direction=left
      segment(a).position.x=segment(a-1).position.x-platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=right
      segment(a).position.x=segment(a-1).position.x+platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=up
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z+platesize
   endif

   if segment(a).direction=down
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z-platesize
   endif

   if b=1
      if tempturn<=maxturns
      en=0
      for j=1 to turnnum
         if en=0
            if a-j-1<=1
               en=1
            endif
            if segment(a-j).direction<>segment(a-(j+1)).direction
               en=1
            endif
         endif
      next j

      if en=0

         c=rnd (2)
         segment(a).turn=c

         if segment(a-1).direction=left
            if c=left then segment(a).direction=down
            if c=right then segment(a).direction=up
         endif

         if segment(a-1).direction=right
            if c=left then segment(a).direction=up
            if c=right then segment(a).direction=down
         endif

         if segment(a-1).direction=up
            if c=left then segment(a).direction=left
            if c=right  then segment(a).direction=right
         endif

         if segment(a-1).direction=down
            if c=left then segment(a).direction=right
            if c=right then segment(a).direction=left
         endif
         inc tempturn
      endif
      endif
   endif
endif

   make object box a+1,platesize,0.1,platesize
   position object a+1,segment(a).position.x,0,segment(a).position.z
   texture object a+1,12
next a

for f=1 to wallnum
   for e=1 to wallnum
      if f<>e
         if segment(f).position.x=segment(e).position.x
            if segment(f).position.z=segment(e).position.z
               segment(f).collision=1
               segment(e).collision=1
            endif
         endif
      endif
   next e
next f


endfunction







`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Return Value Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

function getangledifference(objnum as integer,x as integer, z as integer)
            null = make vector3(1)
            null = make vector3(2)
            null = make vector3(3)
            set vector3 1, x-object position x(objnum), 0,z-object position z(objnum)
            normalize vector3 1,1
            set vector3 2, limb position x(objnum, 1) - object position x(objnum), 0, limb position z(objnum, 1) - object position z(objnum)
            normalize vector3 2, 2
            AllyToTargetA# = acos(dot product vector3(1, 2))
            set vector3 3, 0, 1, 0
            cross product vector3 3, 2, 3
            angle2# = acos(dot product vector3(1, 3))

               if AllyToTargetA# > 0.1

                  if angle2# <> 0

                     if angle2# >= 90

                        exitfunction 1

                     else

                     exitfunction 2


                     endif

                  endif

               endif
endfunction 0


function mousebox(top,left,sizex,sizey)
   if mousex()>left
      if mousex()<left+sizex
         if mousey()>top
            if mousey()<top+sizey
               exitfunction 1
            endif
         endif
      endif
   endif
endfunction 0


`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Image Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


function custombox(xtolerance as integer,ytolerance as integer,xpos as integer,ypos as integer)
x=rnd(xtolerance)
y=rnd(ytolerance)

for x=xpos-(x/2) to xpos+(x/2)
   for y=ypos-(y/2) to ypos+(y/2)
      q=rnd(30)+50
      dot x,y,rgb(q,q/2,q/2)
   next y
next x

endfunction

function tex(s as string,color as dword)
   ink color,color
   center text screen width()/2, screen height()/2,s
endfunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Other--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

function swordattack(swordobj as integer, object as integer, rate as integer)
   show object swordobj
   position object swordobj, newxvalue(object position x(object),45+object angle y(object),4),object position y(object)+4,newzvalue(object position z(object),45+object angle y(object),4)
   rotate object swordobj, object angle x(swordobj),object angle y(object),object angle z(swordobj)

   if updown=1
      rotate object swordobj, object angle x(swordobj)+rate, object angle y(swordobj),object angle z(swordobj)
   endif

   if updown=0
      rotate object swordobj, object angle x(swordobj)-rate, object angle y(swordobj),object angle z(swordobj)
   endif

   p=wrapvalue(object angle x(swordobj))
   if p>90 and p<110
      updown=0
   endif

   if p<360 and p>340
      updown=1
   endif
   text 100,0,str$(p)

endfunction

handlemouse:

if mouseclick()=1
   camangle=curvevalue(wrapvalue(camangle)+mousemovex()/2,camangle,1)
endif

if mouseclick()=2
   swordattack(1001,1,3)
endif

if mouseclick()<>2
   swordobj=1001
   object=1
   position object swordobj, newxvalue(object position x(object),45+object angle y(object),4),object position y(object)+4,newzvalue(object position z(object),45+object angle y(object),4)
   rotate object swordobj, 0,object angle y(object),object angle z(swordobj)
endif
return

init:
`make your player!
   makelimbcube(1,10)
   texture limb 1, 3,3
   ColorCube(1,rgb(255,255,0))

`Sets the overall light for the level.
   set ambient light 40
`The back of the cube looks wierd when it turns, so im placing a light at the camera's position.
   make light 1

`Positions the object 5 above the ground, which is half it's height.
   position object 1,0,5,0

`creates the object used for "Sparks" when the sword hits a wall.
   make object sphere wallnum+3,1
   color object wallnum+3,rgb(255,255,0)
`Hidez it, dont need it yet.
   hide object wallnum+3

   `This is the object used for the sword. It is created now, andwill be resized/colored later when the person upgrades
   `weapons.
make object box 1001,0.2, 15,1

return

function deletelevel(objnum)

empty array segment(0)
array insert at bottom segment(0)
empty array wall(0)
array insert at bottom wall(0)
empty array enemy(0)
array insert at bottom enemy(0)

for a=1 to 900
   if object exist(a+1)
      delete object a+1
   endif
next a
endfunction

rem Set up the sync and backdrop
sync on
sync rate 60
backdrop on
color backdrop 0
fog on
fog distance 70
set text font "courier new"
set text size 13
hide mouse

rem Set up the arrays to contain the block and map data
dim map(20,20,3) as integer
dim block(11,3,3) as integer
dim seeds(100) as integer

rem read in the data and make the graphics
gosub readdata
gosub makegraphics

debug = 0
hp = 10
mhp = 10
magic = 0
px# = 20
pz# = 10
af = 1
aw = 1
level = 1

do

position camera 10000,10000,10000

ink rgb(0,192,0),0
box 220,140,420,340
ink rgb(255,255,0),0
box 271,144,368,157
ink 0,0
box 230,160,410,330
center text 320,144,"Escape!"

ink rgb(0,255,255),0
center text 320,164,"You have been trapped"
center text 320,176,"inside a vast dungeon"
center text 320,188,"by your evil Auntie."
center text 320,200,"You must escape or die."
center text 320,212,"Wield your sword with"
center text 320,224,"CTRL to kill the evil"
center text 320,236,"monsters. Collect the"
center text 320,248,"four magic spheres then"
center text 320,260,"head to the exit to"
center text 320,272,"reach the next level."
ink rgb(255,0,0),0
center text 320,300,"Press SPACE to start level:"
ink rgb(255,255,0),0
center text 320,312,"< "+str$(level)+" >"

w = w - 1
if w < 0
if leftkey() = 1 then level = level - 1
if rightkey() = 1 then level = level + 1
if spacekey() = 1 then exit
if level < 1 then level = 100
if level > 100 then level = 1
w = 5
endif

sync

loop

if level <= 11
mhp = 10+(level-1)
hp = mhp
endif
if level > 11
mhp = 20
hp = mhp
endif
if level = 1 then mhp = 10 : hp = 10

rem Create the level randomly in memory, then build it in 3d
createlevel(level)
buildlevel()

do

if debug = 1
magic = 4
text 5,5,str$(screen fps())
text 5,25,str$(bx)+", "+str$(bz)+" = "+str$(bt)+","+str$(map(bx,bz,2))
text 5,45,str$(rx)+", "+str$(rz)
endif

ox# = px#
oz# = pz#

if upkey() = 1 or downkey() = 1 or leftkey() = 1 or rightkey() = 1

   an = an + 6
   aa# = sin(an)*10
   rotate limb 4000,1,aa#,0,0
   if ss = 0 then rotate limb 4000,2,-aa#,0,0

endif

if upkey() = 1 then pz# = pz# + 0.5 : yrotate object 4000,0
if downkey() = 1 then pz# = pz# - 0.5 : yrotate object 4000,180
if leftkey() = 1 then px# = px# - 0.5 : yrotate object 4000,270
if rightkey() = 1 then px# = px# + 0.5 : yrotate object 4000,90

if controlkey() = 1 and ss = 0
ss = 1
endif
if ss = 1
sa = sa + 5
rotate limb 4000,2,-sa,0,0
if sa > 45 then ss = 2
endif
if ss = 2
sa = sa - 5
rotate limb 4000,2,-sa,0,0
if sa < 0 then ss = 0
endif

for mm = 3601 to 3604
rotate object mm,wrapvalue(object angle x(mm)+2),wrapvalue(object angle y(mm)+2),wrapvalue(object angle z(mm)+2)
next mm

bx = ((px#-5)/30)+1
bz = ((pz#+5)/30)+1
bt = map(bx,bz,1)
rx = px#-((bx-1)*30)-5
rz = pz#-((bz-1)*30)+5
orx = ox#-((bx-1)*30)-5
orz = oz#-((bz-1)*30)+5

if bx = 20 and bz = 20 and orx > 15 and orx < 30 and orz > 10 and orz < 20
if magic = 4
if level <= 10 then mhp = mhp + 1
hp = mhp
level = level + 1
px# = 20
pz# = 10
ox# = px#
oz# = pz#
createlevel(level)
buildlevel()
magic = 0
md = 120
m$ = "LEVEL "+str$(level)
else
px# = px# - 0.5
md = 120
m$ = "YOU NEED ALL TO COLLECT ALL THE MAGIC!"
endif
endif

if md > 0
md = md - 1
ink rgb(0,255,255),0
center text 320,190,m$
endif

if orx > 10 and orx < 20 and orz > 10 and orz < 20

if map(bx,bz,2) > 0 and map(bx,bz,2) < 5
hide object 3600+map(bx,bz,2)
map(bx,bz,2) = 0
magic = magic + 1
endif

if map(bx,bz,2) = 5
hide object map(bx,bz,3)
map(bx,bz,2) = 0
gold = gold + 1
endif

endif

for dx = 1 to 3
for dz = 1 to 3
if block(bt,dx,dz) = 1

ax = (dx*10)-10
az = 30-(dz*10)

ink rgb(0,255,255),0

 if rx > ax-5 and rx < ax+15
 if rz > az-5 and rz < az+15

   if orx > ax-5 and orx < ax+15 and rz > az-5 and rz < az+15 then pz# = oz#
   if rx > ax-5 and rx < ax+15 and orz > az-5 and orz < az+15 then px# = ox#

   ink rgb(255,0,0),0

 endif
 endif

if debug = 1 then  box 50+ax,100+az,60+ax,110+az

endif
next dz
next dx

if debug = 1
ink rgb(0,255,0),0
circle 50+rx,100+rz,4
endif


for rt = 3620 to 3629
yrotate object rt,wrapvalue(object angle y(rt)+2)
next rt

ink 0,0
box 570,410,631,471

pmx# = (px#/10)
pmz# = 61-(pz#/10)

for dmx = 1 to 20
for dmz = 1 to 20

mpx# = (15+((dmx-1)*30))/10
mpy# = (15+((dmz-1)*30))/10

if bx > dmx-4 and bx < dmx+4
if bz > dmz-4 and bz < dmz+4
if map(dmx,dmz,2) > 0 and map(dmx,dmz,2) < 6
ink rgb(255,255,0),0
if map(dmx,dmz,2) > 0 and map(dmx,dmz,2) < 5 then ink rgb(0,255,255),0

box 570+mpx#,469-mpy#,572+mpx#,471-mpy#

endif
endif
endif

if bx > dmx-4 and bx < dmx+4
if 21-bz > dmz-4 and 21-bz < dmz+4
gs = sqrt((mpx#-pmx#)^2+(mpy#-pmz#)^2)*20
if gs < 255
ink rgb(255-gs,255-gs,255-gs),0
for dbx = 0 to 2
for dby = 0 to 2
if block(map(dmx,21-dmz,1),dbx+1,dby+1) = 1 then dot 570+dbx+mpx#,410+dby+mpy#
next dby
next dbx
endif
endif
endif

next dmz
next dmx

ink rgb(0,255,0),0
box 569+pmx#,409+pmz#,571+pmx#,411+pmz#

ink rgb(255,0,255),0
box 629,410,631,412

ink rgb(255,255,0),0
text 10,430,"Level : "
text 10,440,"Health: "
text 10,450,"Magic : "
TEXT 10,460,"Gold  : "
ink rgb(0,255,255),0
text 60,430,str$(level)
text 60,440,str$(hp)
text 73,440,"/"
text 80,440,str$(mhp)
text 60,450,str$(magic)
text 60,460,str$(gold)

position object 4000,px#,2.5,pz#
set camera to follow px#,2.5,pz#,0,20,30,10,0
point camera px#,5,pz#
sync

loop

rem Find a free object slot
function findslot()

for ff = 1 to 3600
if object exist(ff) = 0 then exit
next ff

endfunction ff

rem Randomly create the level
function createlevel(n)

randomize seeds(n)

for clx = 1 to 20
for clz = 1 to 20
map(clx,clz,1) = 0
map(clx,clz,2) = 0
next clz
next clx

gmx = rnd(9)+1
gmz = rnd(9)+1
map(gmx,gmz,2) = 1
gmx = rnd(9)+11
gmz = rnd(9)+1
map(gmx,gmz,2) = 2
gmx = rnd(9)+1
gmz = rnd(9)+11
map(gmx,gmz,2) = 3
gmx = rnd(9)+11
gmz = rnd(9)+11
map(gmx,gmz,2) = 4

map(1,1,1) = 4

for cmx = 1 to 20
s = 1
if cmx = 1 then s = 2
for cmz = s to 20

ba = 0
la = 0

if block(map(cmx,cmz-1,1),2,1) = 0
ba = 1
else
ba = 0
endif

if block(map(cmx-1,cmz,1),3,2) = 0
la = 1
else
la = 0
endif

if cmx = 1 then la = 0
if cmz = 1 then ba = 0

if cmz = 20

if la = 1 and ba = 0 then cp = 5
if la = 0 and ba = 1 then cp = 1
if la = 1 and ba = 1 then cp = 7

else

if cmx = 20

if la = 1 and ba = 0 then cp = 3
if la = 0 and ba = 1 then cp = 6
if la = 1 and ba = 1 then cp = 9

else

if la = 1 and ba = 0
sel = rnd(1)
if sel = 0 then cp = 5
if sel = 1 then cp = 8
endif

if la = 0 and ba = 1
sel = rnd(1)
if sel = 0 then cp = 6
if sel = 1 then cp = 10
endif

if la = 1 and ba = 1
sel = rnd(2)
if sel = 0 then cp = 7
if sel = 1 then cp = 9
if sel = 2 then cp = 11
endif
endif
endif

map(cmx,cmz,1) = cp

next cmz
next cmx

for cgp = 1 to 10
do
gx = rnd(19)+1 : gz = rnd(19)+1
if map(gx,gz,2) = 0 then exit
loop
map(gx,gz,2) = 5
next cgp
remstart
for cgp = 1 to 20
do
gx = rnd(19)+1 : gz = rnd(19)+1
if map(gx,gz,2) = 0 then exit
loop
map(gx,gz,2) = 6+rnd(2)
next cgp
remend
endfunction

function buildlevel()

for dl = 1 to 3700
if object exist(dl) = 1 then delete object dl
next dl

rx = 15
gp = 0
en = 0

for blx = 1 to 20
rz = 15
for blz = 1 to 20

if map(blx,blz,1) > 0
buildblock(rx,rz,map(blx,blz,1))
endif

if map(blx,blz,2) > 0 and map(blx,blz,2) <= 4
make object sphere 3600+map(blx,blz,2),4
position object 3600+map(blx,blz,2),rx+5,5,rz-5
texture object 3600+map(blx,blz,2),map(blx,blz,2)+3
set object fog 3600+map(blx,blz,2),0
set object filter 3600+map(blx,blz,2),0
endif

if map(blx,blz,2) = 5
make object 3620+gp,5,0
set object fog 3620+gp,0
color object 3620+gp,rgb(255,255,0)
position object 3620+gp,rx+5,5,rz-5
map(blx,blz,3) = 3620+gp
gp = gp + 1
endif

if map(blx,blz,2) => 6 and map(blx,blz,2) <= 8
ms = map(blx,blz,2)-3
if map(blx,blz,2) = 5 then ms = 6
make object 3640+en,ms,0
set object fog 3640+en,0
color object 3640+en,rgb(255,255,0)
position object 3640+en,rx+5,0,rz-5
map(blx,blz,3) = 3640+en
en = en + 1
endif

rz = rz + 30
next blz
rx = rx + 30
next blx

position camera 20,100,10

endfunction

function buildblock(x,z,b)

rx = x-15

for cbx = 1 to 3
rz = z+15
rx = rx + 10
for cbz = 1 to 3
rz = rz - 10

o = findslot()

if block(b,cbx,cbz) > 0

make object box o,10,8,10
position object o,rx,4,rz
texture object o,2
set object filter o,0

else

make object box o,10,1,10
position object o,rx,0.5,rz
texture object o,1
set object filter o,0

endif

next cbz
next cbx

endfunction


makegraphics:
create bitmap 1,640,480
ink rgb(0,0,0),0
box 0,0,640,480

rem floor tile
randomize 4
for cx = 0 to 16 step 2
for cy = 0 to 16 step 2
c = rnd(64)+64
ink rgb(c,c,c),0
box cx,cy+32,cx+2,cy+34
next cy
next cx
get image 1,0,32,16,48

rem wall 1
randomize 17
for cx = 0 to 16 step 4
for cy = 0 to 16 step 2
c = rnd(32)+128
ink rgb(c,c,c),0
box cx,cy+48,cx+4,cy+50
next cy
next cx
get image 2,0,48,16,64

randomize 23
for cx = 0 to 80 step 2
for cy = 0 to 16 step 2
if cx < 16             then ink rgb(0,rnd(32)+128,0),0
if cx => 16 and cx < 32 then ink rgb(rnd(128)+128,0,0),0
if cx => 32 and cx < 48 then ink rgb(0,0,rnd(128)+128),0
if cx => 48 and cx < 64 then ink rgb(rnd(128)+128,rnd(128)+128,0),0
if cx => 64 and cx < 78 then ink rgb(0,rnd(128)+128,rnd(128)+128),0
box cx+16,cy+48,cx+18,cy+50
next cy
next cx

get image 3,16,48,32,64
get image 4,33,48,48,64
get image 5,49,48,64,64
get image 6,65,48,80,64
get image 7,81,48,96,64


delete bitmap 1

rem player model
make object sphere 4000,7
texture object 4000,3
set object filter 4000,0
make object box 4001,0.75,1,4
offset limb 4001,0,0,0,2.5
make mesh from object 1,4001
delete object 4001
add limb 4000,1,1 : offset limb 4000,1,-2.8,0,0 : color limb 4000,1,rgb(0,192,0)
add limb 4000,2,1 : offset limb 4000,2, 2.8,0,0 : color limb 4000,2,rgb(0,192,0)
make object sphere 4001,1.75
make mesh from object 2,4001
delete object 4001
add limb 4000,3,2 : offset limb 4000,3,-1.6,2,2
add limb 4000,4,2 : offset limb 4000,4,1.6,2,2
add limb 4000,5,2 : scale limb 4000,5,50,50,50 : offset limb 4000,5,-1.6,2.2,2.45 : color limb 4000,5,0
add limb 4000,6,2 : scale limb 4000,6,50,50,50 : offset limb 4000,6,1.6,2.2,2.45 : color limb 4000,6,0
make object box 4001,0.1,4,1
xrotate object 4001,45
offset limb 4001,0,0,5.6,2.5
make mesh from object 5,4001
delete object 4001
add limb 4000,7,5 : link limb 4000,2,7

rem enemy 1 mesh
make object sphere 4001,7
offset limb 4001,0,0,5,0
make object cone 4002,5
make mesh from object 3,4002
delete object 4002
add limb 4001,1,3 : rotate limb 4001,1,0,0,270  : offset limb 4001,1,4,5,0
add limb 4001,2,3 : rotate limb 4001,2,0,0,90 : offset limb 4001,2,-4,5,0
scale object 4001,70,70,70
delete mesh 3
make mesh from object 3,4001
delete object 4001

rem enemy 2 mesh
make object cube 4002,5
offset limb 4002,0,0,5,0
make object sphere 4003,6.5
make mesh from object 4,4003
delete object 4003
add limb 4002,1,4
offset limb 4002,1,0,5,0
delete mesh 4
make mesh from object 4,4002
delete object 4002

rem enemy 3 mesh
make object cube 4002,5
offset limb 4002,0,0,5,0
make object cube 4003,5
scale object 4003,110,10,110
make mesh from object 5,4003
delete object 4003
add limb 4002,1,5
delete mesh 5
make mesh from object 6,4002
delete object 4002

rem gold piece
make object cylinder 4004,4
scale object 4004,100,25,100
xrotate object 4004,90
make mesh from object 5,4004
delete object 4004
make object 4004,5,0
make object sphere 4005,4
scale object 4005,100,100,2
make mesh from object 5,4005
delete object 4005
add limb 4004,1,5 : offset limb 4004,1,0,0,0.5
add limb 4004,2,5 : offset limb 4004,2,0,0,-0.5
delete mesh 5
scale object 4004,50,50,50
make mesh from object 5,4004
delete object 4004

return

readdata:

restore blockdata
for rb = 1 to 11
for rby = 1 to 3
for rbx = 1 to 3
read block(rb,rbx,rby)
next rbx
next rby
next rb

restore seeddata
for rs = 1 to 100
read seeds(rs)
next rs

return

blockdata:
rem Block Data

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

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

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

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

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

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

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

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

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

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

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

seeddata:

data 988, 593, 334, 821, 597, 873, 87, 276, 228, 140
data 540, 565, 144, 221, 514, 835, 683, 779, 757, 797
data 202, 250, 496, 285, 504, 965, 568, 659, 626, 895
data 158, 342, 206, 814, 919, 636, 458, 255, 437, 419
data 718, 606, 486, 401, 368, 955, 229, 335, 928, 249
data 400, 713, 474, 739, 858, 172, 499, 933, 461, 271
data 209, 346, 656, 959, 59, 353, 647, 312, 931, 234
data 735, 341, 102, 690, 456, 890, 581, 364, 640, 609
data 800, 856, 913, 158, 901, 197, 950, 809, 634, 2
data 398, 372, 293, 929, 247, 833, 97, 638, 55, 471

Neuro

Pricey

dim level(99)
for a=1 to 99
level(a)=rnd(100)
next a

zombie=1
vampire=2
darkcube=3
gorrilla=4

gosub textures

`=======================
global updown as boolean
global camangle#
global wallnum
global current_level
global platesize
global press as boolean
global leveltype
global fov as float
global falling as boolean
global swtichup as boolean
global switchdown as boolean
updown2 as boolean
platesize=60
wallnum=40
camangle#=0
enemynum=0


`=======================
type vector x as integer z as integer endtype
`=======================
type corridor position as vector cave as boolean turn as integer direction as integer collision as boolean endtype
type wall position as vector width as integer depth as integer endtype
type enemy health as integer attack as integer kind as integer vertspeed as integer speed as integer currentsegment as integer endtype
type player health as integer attack as integer gold as integer vertspeed as integer currentsegment as integer endtype
`=======================
type weapon name as string attack as integer color as dword size as integer equipped as boolean recip as boolean endtype
`=======================
dim wall(0) as wall
dim enemy(0) as enemy
dim player(1) as player
`=======================
`=======================
dim segment(0) as corridor
sync on
sync rate 100

`=======================
tex("initializing",rgb(255,255,255))
gosub init
cls
`=======================
cls
goto Maingame
Maingame:
leveltype=1
current_level=0
switchup=1
autocam off
do
      gosub handlemovement

      gosub handlemouse



ink rgb(255,255,255),rgb(255,255,255)
text 100,100,str$(falling)
   text 1,1,"To move back a level, simply press CTRL"
   if controlkey()=1 then switchdown=1

   if switchdown=1 and current_level=1
      switchdown=0
   endif

   position light 1, camera position x(0), camera position y(0)+20, camera position z(0)

   if switchup=1 or switchdown=1
      deletelevel(1)

      if switchup=1
         inc current_level
      endif

      if switchdown=1
         dec current_level
      endif


      switchup=0
      switchdown=0

      if current_level=1
         randomize level(current_level)
         wallnum=60
         color backdrop rgb(100,100,100)
         platesize=60
         makerandomcorridor(wallnum,10,4,5)
         maptype=2
         position object 1,500,5,10
      endif

      if current_level=2
         randomize level(current_level)
         wallnum=100
         color backdrop rgb(255,255,255)
         makerandomplains(1000,1000,wallnum)
         maptype=1
         position object 1,10,5,10
      endif

      if current_level=3
         randomize level(current_level)
         color backdrop rgb(0,0,0)
         wallnum=40
         makerandomcave(1000,1000,wallnum)
         maptype=1
         position object 1,10,5,10
      endif

      if current_level=4
         randomize level(current_level)
         wallnum=40
         color backdrop rgb(0,0,0)
         platesize=100
         makerandomcorridor(wallnum,10,4,11)
         maptype=2
         position object 1,500,5,10
      endif

      if current_level=5
         randomize level(current_level)
         wallnum=40
         color backdrop rgb(0,0,0)
         platesize=60
         makerandomcorridor2(wallnum,10,4)
         maptype=3
         fog on
         fog distance 200
         for a=1 to 100
         make object sphere a+wallnum+1,rnd(100)
         ghost object on a+wallnum+1
         color object a+wallnum+1,rgb(rnd(255),rnd(255),rnd(255))
         position object a+wallnum+1,rnd(4000)-2000,rnd(4000)-2000,rnd(4000)-2000
         set object fog a+wallnum+1,0
         next a
         position object 1,0,5,10
      endif
   endif


if maptype=3
inc afg#
afg#=wrapvalue(afg#)
pos#=newxvalue(pos#,afg#,1)
set camera fov 0,pos#/5+90
endif



      tex(str$(object position x(1)),rgb(0,0,0))
   set camera to follow object position x(1),object position y(1), object position z(1),wrapvalue(object angle y(1))+camangle,30,20,10,0


   sync

loop
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================_________=========__________====================================================
`===============================================#==#============#==#========================================================
`==============================================#=<>=#==========#=<>=#=======================================================
`===============================================#==#============#==#========================================================
`================================================##==============##=========================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`==============================================0======@@@==@@@====0=========================================================
`==============================================0000000@@@00@@@00000=========================================================
`===============================================0000##@@@##@@@##000=========================================================
`=================================================0000000000000000==========================================================
`======================================================00000================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================
`===========================================================================================================================

`bored

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--TEXTURES--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
textures:
tex("Creating texture 1",rgb(100,0,0))
gosub vampire
cls
tex("Creating texture 2",rgb(110,0,0))
gosub vampireattack
cls
tex("Creating texture 3",rgb(120,0,0))
gosub smiley
cls
tex("Creating texture 4",rgb(130,0,0))
gosub grass
cls
tex("Creating texture 5",rgb(140,0,0))
gosub cement
cls
tex("Creating texture 6",rgb(150,0,0))
gosub boulder
cls
tex("Creating texture 7",rgb(160,0,0))
gosub wall
cls
tex("Creating texture 8",rgb(170,0,0))
gosub zombie
cls
tex("Creating texture 9",rgb(180,0,0))
gosub zombieattack
cls
tex("Creating texture 10",rgb(190,0,0))
gosub barrier
gosub circles
cls
return



vampire:
cls rgb(100,100,100)
ink rgb(255,255,255),rgb(255,255,255)
circle 10,10,2
circle 30,10,2
line 10,30,30,30
ink rgb(0,255,0),rgb(0,255,0)
box 9,9,12,12
box 29,9,32,12
ink rgb(255,0,0),rgb(255,0,0)
line 12,30,13,34
line 13,34,14,30
line 26,30,27,34
line 27,34,28,30
ink rgb(0,0,0),rgb(0,0,0)
dot 10,10
dot 30,10
get image 1,1,1,40,40
return
vampireattack:
cls rgb(100,100,100)
ink rgb(255,255,255),rgb(255,255,255)
circle 10,10,2
circle 30,10,2
ink rgb(0,255,0),rgb(0,255,0)
box 9,9,12,12
box 29,9,32,12
ink rgb(0,0,0),rgb(0,0,0)
dot 10,10
dot 30,10
box 10,30,30,36
ink rgb(255,0,0),rgb(255,0,0)
line 12,30,13,34
line 13,34,14,30
line 26,30,27,34
line 27,34,28,30
get image 2,1,1,40,40
return
smiley:
cls rgb(230,230,0)
circle 10,10,2
circle 30,10,2
line 13,30,27,30
line 13,30,13,25
line 27,30,27,25
get image 3,1,1,40,40
return
grass:
for x=1 to 40
for y=1 to 40
dot x,y,rgb(0,rnd(30)+100,0)
next y
next x
get image 4,1,1,40,40
return
cement:
for x=1 to 40
for y=1 to 40
q=rnd(30)+100
dot x,y,rgb(q,q,q)
next y
next x
ink rgb(255,255,255),rgb(255,255,255)
get image 5,1,1,40,40
return
boulder:
cls rgb(255,255,255)
for x=0 to 40
for y=0 to 40
q=rnd(30)+100
dot x,y,rgb(q,q/2,q/2)
next y
next x
ink rgb(255,255,255),rgb(255,255,255)
for a=1 to 2
custombox(rnd(30),rnd(60),rnd(5)+5,rnd(40))
next a
for a=1 to 2
custombox(rnd(60),rnd(30),rnd(40),rnd(5)+5)
next a
for a=1 to 2
custombox(rnd(30),rnd(60),rnd(5)+30,rnd(40))
next a
for a=1 to 2
   custombox(rnd(60),rnd(30),rnd(40),rnd(5)+30)
next a
get image 6,1,1,40,40
return
wall:
for x=0 to 100
for y=0 to 100
q=rnd(30)+50
dot x,y,rgb(q,q/2,q/2)
next y
next x
for a=1 to 7
paste image 6, rnd(60),rnd(60)
next a
get image 7,1,1,100,100
return
barrier:
for x=0 to 100
for y=0 to 40
q=rnd(30)+50
dot x,y,rgb(q,q/2,q/2)
next y
next x
for a=1 to 7
paste image 6, rnd(60),rnd(60)
next a
get image 10,1,1,40,40
get image 11,1,1,100,40
return
zombie:
cls rgb(0,30,0)
blur bitmap 0,3
ink rgb(0,0,0),rgb(0,0,0)
ellipse 10,10,4,4
ellipse 30,10,4,4
ellipse 10,10,3,3
ellipse 30,10,3,3
ellipse 10,10,2,2
ellipse 30,10,2,2
ellipse 10,10,1,1
ellipse 30,10,1,1
line 10,30,30,30
box 10,30,23,32
ink rgb(255,0,0),rgb(255,0,0)
line 10,0,13,4
line 13,4,8,12
line 12,30,13,34
line 13,34,14,30
get image 8,1,1,40,40
return
zombieattack:
cls rgb(0,30,0)
blur bitmap 0,3
ink rgb(0,0,0),rgb(0,0,0)
ellipse 10,10,4,3
ellipse 30,10,4,3
ellipse 10,10,3,2
ellipse 30,10,3,2
ellipse 10,10,2,1
ellipse 30,10,2,1
ellipse 10,10,1,1
ellipse 30,10,1,1
line 10,30,30,30
box 10,30,30,35
ink rgb(255,0,0),rgb(255,0,0)
line 10,0,13,4
line 13,4,8,12
line 12,30,13,34
line 13,34,14,30
line 20,35,21,32
line 21,32,22,35
get image 9,1,1,40,40
return
circles:
create bitmap 1,400,400
set current bitmap 1
cls rgb(255,255,255)
for a=1 to 400
afh=rnd(5)
if afh<=2
   ink rgb(0,0,rnd(50)+200),rgb(0,0,rnd(50)+200)
endif
if afh>2 and afh<=4
   l=rnd(50)+200
   ink rgb(l/1.5,l/1.5,l),rgb(l/1.5,l/1.5,l)
endif
if afh=5
   ink rgb(rnd(50)+200,0,0),rgb(rnd(50)+200,0,0)
endif
circle 200,200,a
next a
blur bitmap 1,6
get image 12,1,1,400,400
delete bitmap 1
set current bitmap 0
return

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Player Control Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

handlemovement:
`setup variables
x1#=object position x(1)
z1#=object position z(1)

`gets the angle of the object
a#=wrapvalue(object angle y(1))

`moving forwards
if upkey()=1
    x#=newxvalue(object position x(1),a#,1)
    z#=newzvalue(object position z(1),a#,1)
endif

`moving backwards
if downkey()=1
    x#=newxvalue(object position x(1),a#,-1)
    z#=newzvalue(object position z(1),a#,-1)
endif

`turning right
if rightkey()=1 then rotate object 1,object angle x(1), object angle y(1)+1, object angle z(1)
`left
if leftkey()=1 then rotate object 1,object angle x(1), object angle y(1)-1, object angle z(1)


`This bit of code checks for collision with the walls using just the X and Z dimensions. Works only on the Plains map
`and the Cavern map.
d=1

if maptype=1
`does this for every wall there is
   for c=1 to wallnum-6

   `checks for a collision
      if object position x(d)>wall(c).position.x-wall(c).width/2
         if object position x(d)<wall(c).position.x+wall(c).width/2
            if object position z(d)>wall(c).position.z-wall(c).width/2
               if object position z(d)<wall(c).position.z+wall(c).width/2
               intersect=1
               endif
            endif
         endif
      endif

      `If there's a collision, then it goes through all possible collisions
      if intersect=1
            if object position x(d)<wall(c).position.x+wall(c).width/2
               if object position x(d)>wall(c).position.x-wall(c).width/2
                  if object position z(d)>wall(c).position.z-wall(c).depth/2
                     if object position z(d)<wall(c).position.z-wall(c).depth/2+1.1
                        z#=wall(c).position.z-wall(c).depth/2
                     endif
                  endif
               endif
            endif

            if object position x(d)<wall(c).position.x+wall(c).width/2
               if object position x(d)>wall(c).position.x-wall(c).width/2
                  if object position z(d)>wall(c).position.z+wall(c).depth/2-1.1
                     if object position z(d)<wall(c).position.z+wall(c).depth/2
                        z#=wall(c).position.z+wall(c).depth/2
                     endif
                  endif
               endif
            endif

            if object position z(d)<wall(c).position.z+wall(c).depth/2
               if object position z(d)>wall(c).position.z-wall(c).depth/2
                  if object position x(d)>wall(c).position.x+wall(c).width/2-1.1
                     if object position x(d)<wall(c).position.x+wall(c).width/2
                        x#=wall(c).position.x+wall(c).width/2
                     endif
                  endif
               endif
            endif

            if object position z(d)<wall(c).position.z+wall(c).depth/2
               if object position z(d)>wall(c).position.z-wall(c).depth/2
                  if object position x(d)>wall(c).position.x-wall(c).width/2
                     if object position x(d)<wall(c).position.x-wall(c).width/2+1.1
                        x#=wall(c).position.x-wall(c).width/2
                     endif
                  endif
               endif
            endif
      endif

      if object position x(d)>900
         if object position z(d)>900
            switchup=1
         endif
      endif


if object position x(1)<0 then x#=0
if object position x(1)>1000 then x#=1000
if object position z(1)<0 then z#=0
if object position z(1)>1000 then z#=1000

      `AAAAnaaand done.
   next c

endif

if maptype=2

left=1
up=3
right=2
down=4

`checks to see which segment the player is in

   for b=1 to wallnum
      if segment(b).cave=0
         if object position x(d)=>segment(b).position.x-(platesize/2)
            if object position x(d)=<segment(b).position.x+(platesize/2)
               if object position z(d)=>segment(b).position.z-(platesize/2)
                  if object position z(d)=<segment(b).position.z+(platesize/2)
                     player(1).currentsegment=b
                     f=1
                  endif
               endif
            endif
         endif
      endif
   next b


   c=player(1).currentsegment
   if c=wallnum then switchup=1

   `checks to see if collision is on or off for the current segment
   if segment(c).collision=0
      `if it's on
      `then check to see if it's a turn
      if c>1
      if segment(c).direction<>segment(c-1).direction

      `if it's a up to left turn

         if segment(c).direction=left
            if segment(c-1).direction=up
         `then ya can't go over the right or upper wall
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif

      `if it's a up to right turn
         if segment(c).direction=right
            if segment(c-1).direction=up
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif

      `if its a down to right turn
         if segment(c).direction=right
            if segment(c-1).direction=down
         `then you can't go over the left or lower wall
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a down to left turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a left to up turn
         if segment(c).direction=up
            if segment(c-1).direction=left
         `then you can't go over the left or lower wall.
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a left to down turn
         if segment(c).direction=down
            if segment(c-1).direction=left
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)
               x#=segment(c).position.x-(platesize/2)
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif

      `if it's a right to up turn
         if segment(c).direction=up
            if segment(c-1).direction=right
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)
               z#=segment(c).position.z-(platesize/2)
            endif
            endif
         endif

      `if it's a right to down turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or upper wall.
            if object position x(1)>segment(c).position.x+(platesize/2)
               x#=segment(c).position.x+(platesize/2)
            endif
            if object position z(1)<segment(c).position.z+(platesize/2)
               z#=segment(c).position.z+(platesize/2)
            endif
            endif
         endif
      else

      if segment(c).direction=up
         if object position x(1)<segment(c).position.x-(platesize/2)
            x#=segment(c).position.x-(platesize/2)
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)
            x#=segment(c).position.x+(platesize/2)
         endif
      endif

      if segment(c).direction=down
         if object position x(1)<segment(c).position.x-(platesize/2)
            x#=segment(c).position.x-(platesize/2)
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)
            x#=segment(c).position.x+(platesize/2)
         endif
      endif

      if segment(c).direction=right
         if object position z(1)<segment(c).position.z-(platesize/2)
            z#=segment(c).position.z-(platesize/2)
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)
            z#=segment(c).position.z+(platesize/2)
         endif
      endif

      if segment(c).direction=left
         if object position z(1)<segment(c).position.z-(platesize/2)
            z#=segment(c).position.z-(platesize/2)
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)
            z#=segment(c).position.z+(platesize/2)
         endif
      endif
   endif
   endif



   endif
endif

position object 1, x#,5,z#


if maptype=3
falling=0
tolerance=3
left=1
up=3
right=2
down=4

`checks to see which segment the player is in

   for b=1 to wallnum
      if segment(b).cave=0
         if object position x(d)=>segment(b).position.x-(platesize/2)
            if object position x(d)=<segment(b).position.x+(platesize/2)
               if object position z(d)=>segment(b).position.z-(platesize/2)
                  if object position z(d)=<segment(b).position.z+(platesize/2)
                     player(1).currentsegment=b
                  endif
               endif
            endif
         endif
      endif
   next b


   c=player(1).currentsegment
   `checks to see if collision is on or off for the current segment
   if segment(c).collision=0
      `if it's on
      `then check to see if it's a turn
      if c>1
      if segment(c).direction<>segment(c-1).direction

      `if it's a up to left turn

         if segment(c).direction=left
            if segment(c-1).direction=up
         `then ya can't go over the right or upper wall
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif

      `if it's a up to right turn
         if segment(c).direction=right
            if segment(c-1).direction=up
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif

      `if its a down to right turn
         if segment(c).direction=right
            if segment(c-1).direction=down
         `then you can't go over the left or lower wall
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a down to left turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a left to up turn
         if segment(c).direction=up
            if segment(c-1).direction=left
         `then you can't go over the left or lower wall.
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a left to down turn
         if segment(c).direction=down
            if segment(c-1).direction=left
         `then you can't go over the left or upper wall.
            if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
            endif
            if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif

      `if it's a right to up turn
         if segment(c).direction=up
            if segment(c-1).direction=right
         `then you can't go over the right or lower wall.
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
            endif
            endif
         endif

      `if it's a right to down turn
         if segment(c).direction=left
            if segment(c-1).direction=down
         `then you can't go over the right or upper wall.
            if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
            endif
            if object position z(1)<segment(c).position.z+(platesize/2)+tolerance
               falling=1
            endif
            endif
         endif
      else

      if segment(c).direction=up
         if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
         endif
      endif

      if segment(c).direction=down
         if object position x(1)<segment(c).position.x-(platesize/2)-tolerance
               falling=1
         endif
         if object position x(1)>segment(c).position.x+(platesize/2)+tolerance
               falling=1
         endif
      endif

      if segment(c).direction=right
         if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
         endif
      endif

      if segment(c).direction=left
         if object position z(1)<segment(c).position.z-(platesize/2)-tolerance
               falling=1
         endif
         if object position z(1)>segment(c).position.z+(platesize/2)+tolerance
               falling=1
         endif
      endif
   endif
   endif



   endif
endif

position object 1, x#,5,z#
return





`This makes sure the player doesnt go out of the map. If you change the size of the map, you also need to change
`these variables.



`and now we place the object.
position object 1,x#,5,z#

return

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Object Creation Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

`This is TDK's limb cube function. Im too lazy to make one of my own.
Function MakeLimbCube(ObjNum,Size#)
  Offset#=Size#/2.0: MeshNum=2000: PlainNum=2000
  Make Object Cube ObjNum,Size#
  Make Object Plain PlainNum,Size#,Size#
  Make Mesh From Object MeshNum,PlainNum
  ADD LIMB ObjNum, 1, 2000: Offset Limb ObjNum,1,0,0,0.0-Offset#: Rem Cube Side 1 (Front)
  ADD LIMB ObjNum, 2, 2000: Rotate Limb ObjNum,2,0,90,0:  Offset Limb ObjNum,2,0.0-Offset#,0,0: Rem Cube Side 2 (Left)
  ADD LIMB ObjNum, 3, 2000: Rotate Limb ObjNum,3,0,180,0: Offset Limb ObjNum,3,0,0,Offset#:     Rem Cube Side 3 (Back)
  ADD LIMB ObjNum, 4, 2000: Rotate Limb ObjNum,4,0,270,0: Offset Limb ObjNum,4,Offset#,0,0:     Rem Cube Side 4 (Right)
  ADD LIMB ObjNum, 5, 2000: Rotate Limb ObjNum,5,270,0,0: Offset Limb ObjNum,5,0,0.0-Offset#,0: Rem Cube Side 5 (Bottom)
  ADD LIMB ObjNum, 6, 2000: Rotate Limb ObjNum,6,90,0,0:  Offset Limb ObjNum,6,0,Offset#,0:     Rem Cube Side 6 (Top)

  Set Object Cull ObjNum,0
  Delete Mesh MeshNum
  Delete Object PlainNum
  Hide Limb ObjNum,0

EndFunction

`This function changes the color of said Limb Cube.
function ColorCube(objnum as integer, color as dword)
   for a=1 to 6
      if a<>3
      color limb objnum,a,color
      endif
   next a
endfunction

`function MakeRandomEnemies (width as integer, depth as integer, number as integer, type as integer

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Level Creation Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


function makerandomcave(width as integer,depth as integer,wallnum as integer)

`creates the ground
make object plain 2,width,depth
rotate object 2,90,0,0
position object 2,width/2,0,depth/2
texture object 2, 7

`creates the cieling
make object plain 7,width,depth
rotate object 7,90,0,0
position object 7,width/2,50,depth/2
texture object 7, 7

`creates the left wall
make object plain 3,width,50
position object 3,width/2,25,0

`creates the front wall
make object plain 4,depth,50
rotate object 4,0,90,0
position object 4,0,25,depth/2

`creates the right wall
make object plain 5,width,50
position object 5,width/2,25,depth

`creates the back wall
make object plain 6,depth,50
position object 6,width,25,depth/2
rotate object 6,0,90,0

`Meh, too lazy to type texture object four times.
for a=1 to 4
   b=a+2
   texture object b, 11
next a

`wallnum-6 because of the six wall objects
abc=wallnum-6
for a=1 to abc
   `Adds an entry into the Array.
   array insert at bottom wall(0)
   `positions it at a random position
   x=rnd(width)
   z=rnd(depth)
   `These are interchangeable. The block needs to be rectangular, so the variable B chooses whether c= width and d=depth,
   `or d=width and c=depth. I wrote the program so that if you want to change these values, then you just change these
   `values. This is useful if you think the map is too open.
   c=rnd(50)+50
   d=rnd(25)+25
   b=rnd(2)

   `if c is width and d is depth
   if b<=1
      wall(a).width=c
      wall(a).depth=d
      `stores the randomly selected positions in the array
      wall(a).position.x=x
      wall(a).position.z=z
      `makes sure that the object's furthest edges are inside the map.
      if x-(c/2)<=0
         wall(a).position.x=wall(a).position.x+(c/2)
      endif
      if x+(c/2)>=width
         wall(a).position.x=wall(a).position.x-(c/2)
      endif
      if z-(d/2)<=0
         wall(a).position.z=wall(a).position.z+(d/2)
      endif
      if z+(d/2)>=depth
         wall(a).position.z=wall(a).position.z-(d/2)
      endif
   endif

   `duzzit again but changing width and depth.
   if b=2
      wall(a).width=d
      wall(a).depth=c
      wall(a).position.x=x
      wall(a).position.z=z
      if x-(d/2)<=0
         wall(a).position.x=wall(a).position.x+(d/2)
      endif
      if x+(d/2)>=width
         wall(a).position.x=wall(a).position.x-(d/2)
      endif
      if z-(c/2)<=0
         wall(a).position.z=wall(a).position.z+(c/2)
      endif
      if z+(c/2)>=depth
         wall(a).position.z=wall(a).position.z-(c/2)
      endif
   endif

   `Makes the objects. Object one is the player, and two through 7 are the walls.
   make object box a+7,wall(a).width,50,wall(a).depth
   `positions it so that the entire level has a positive x/z position
   position object a+7,wall(a).position.x,25,wall(a).position.z
   `Textures it.
   texture object a+7,10
next a






make object cube wallnum+100,100
ghost object on wallnum+100

position object wallnum+100,950,50,950

color object wallnum+100, rgb(0,255,0)


endfunction
function makerandomplains(width as integer,depth as integer,wallnum as integer)

`creates the ground
make object plain 2,width,depth
rotate object 2,90,0,0
position object 2,width/2,0,depth/2
texture object 2, 4

`creates the left wall
make object plain 3,width,20
position object 3,width/2,10,0

`creates the front wall
make object plain 4,depth,20
rotate object 4,0,90,0
position object 4,0,10,depth/2

`creates the right wall
make object plain 5,width,20
position object 5,width/2,10,depth

`creates the back wall
make object plain 6,depth,20
position object 6,width,10,depth/2
rotate object 6,0,90,0

`Meh, too lazy to type texture object four times.
for a=1 to 4
   b=a+2
   texture object b, 4
next a

`wallnum-6 because of the six wall objects
abc=wallnum-6
for a=1 to abc
   `Adds an entry into the Array.
   array insert at bottom wall(0)
   `positions it at a random position
   x=rnd(width)
   z=rnd(depth)
   `These are interchangeable. The block needs to be rectangular, so the variable B chooses whether c= width and d=depth,
   `or d=width and c=depth. I wrote the program so that if you want to change these values, then you just change these
   `values. This is useful if you think the map is too open.
   c=rnd(10)+10
   d=c
   b=rnd(2)


   wall(a).width=c
   wall(a).depth=c
   wall(a).position.x=x
   wall(a).position.z=z
   if x-(d/2)<=0
      wall(a).position.x=wall(a).position.x+(d/2)
   endif
   if x+(d/2)>=width
      wall(a).position.x=wall(a).position.x-(d/2)
   endif
   if z-(c/2)<=0
      wall(a).position.z=wall(a).position.z+(c/2)
   endif
   if z+(c/2)>=depth
      wall(a).position.z=wall(a).position.z-(c/2)
   endif
   height=rnd(25)+50
   size=c+d+height/3
   make object cube 1000,size
   make mesh from object 1,1000
   `Makes the objects. Object one is the player, and two through 7 are the walls.
   make object box a+7,wall(a).width,height,wall(a).depth
   add limb a+7,1,1
   offset limb a+7,1,0,height/2+(c/2)-2,0
   `positions it so that the entire level has a positive x/z position
   position object a+7,wall(a).position.x,height/2,wall(a).position.z
   `Textures it.
   texture object a+7,10
   texture limb a+7,1,4
   delete object 1000
   delete mesh 1
next a
make object cube wallnum+80,100
ghost object on wallnum+80
color object wallnum+80, rgb(0,255,0)
position object wallnum+80,950,50,950
endfunction
function makerandomcorridor(segments as integer, maxturns as integer, turnnum as integer,texturenum as integer)
left=1
up=3
right=2
down=4
tempturn=0
tempcaves=0
for a=1 to segments
array insert at bottom segment(0)

if a=1
   segment(a).position.x=500
   segment(a).position.z=10
   segment(a).direction=up
else

   segment(a).direction=segment(a-1).direction
   segment(a).turn=segment(a-1).direction

   b=rnd(6)
   `turn
   if segment(a).direction=left
      segment(a).position.x=segment(a-1).position.x-platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=right
      segment(a).position.x=segment(a-1).position.x+platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=up
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z+platesize
   endif

   if segment(a).direction=down
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z-platesize
   endif

   if b=1
      if tempturn<=maxturns
      en=0
      for j=1 to turnnum
         if en=0
            if a-j-1<=1
               en=1
            endif
            if segment(a-j).direction<>segment(a-(j+1)).direction
               en=1
            endif
         endif
      next j

      if en=0

         c=rnd (2)
         segment(a).turn=c

         if segment(a-1).direction=left
            if c=left then segment(a).direction=down
            if c=right then segment(a).direction=up
         endif

         if segment(a-1).direction=right
            if c=left then segment(a).direction=up
            if c=right then segment(a).direction=down
         endif

         if segment(a-1).direction=up
            if c=left then segment(a).direction=left
            if c=right  then segment(a).direction=right
         endif

         if segment(a-1).direction=down
            if c=left then segment(a).direction=right
            if c=right then segment(a).direction=left
         endif
         inc tempturn
      endif
      endif
   endif
endif
next a

for f=1 to wallnum
   for e=1 to wallnum
      if f<>e
         if segment(f).position.x=segment(e).position.x
            if segment(f).position.z=segment(e).position.z
               segment(f).collision=1
               segment(e).collision=1
            endif
         endif
      endif
   next e
next f


make object box 1000,platesize,60,0.1
make mesh from object 1,1000
delete object 1000
make object box 1000,platesize,0.1,platesize
make mesh from object 2,1000
delete object 1000


for a=1 to segments
make object box a+1,platesize,0.1,platesize
position object a+1,segment(a).position.x,0,segment(a).position.z
add limb a+1,1,2
offset limb a+1,1,0,60,0
texture object a+1,texturenum
if a <>segmentnum
if segment(a).collision=0
   if a<>1
   if segment(a).direction=segment(a-1).direction

   if segment(a).direction=left
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
   endif

   if segment(a).direction=right
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
   endif

   if segment(a).direction=up
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
   endif

   if segment(a).direction=down
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
   endif

   else
   `up to left
   if segment(a).direction=left
      if segment(a-1).direction=up
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `right wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,platesize/2,30,0
      endif
   endif

   `up to right
   if segment(a).direction=right
      if segment(a-1).direction=up
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif

   `down to left
   if segment(a).direction=left
      if segment(a-1).direction=down
      `right wall
         add limb a+1,2,1
         rotate limb a+1,2,0,90,0
         offset limb a+1,2,platesize/2,30,0
      `bottom wall
         add limb a+1,3,1
         offset limb a+1,3,0,30,-platesize/2
      endif
   endif

   `down to right
   if segment(a).direction=right
      if segment(a-1).direction=down
      `bottom wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,-platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif


   `left to up
   if segment(a).direction=up
      if segment(a-1).direction=left
      `bottom wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,-platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif

   `left to down
   if segment(a).direction=down
      if segment(a-1).direction=left
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `left wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,-platesize/2,30,0
      endif
   endif


   `right to up
   if segment(a).direction=up
      if segment(a-1).direction=right
      `right wall
         add limb a+1,2,1
         rotate limb a+1,2,0,90,0
         offset limb a+1,2,platesize/2,30,0
      `bottom wall
         add limb a+1,3,1
         offset limb a+1,3,0,30,-platesize/2
      endif
   endif

   `right to down
   if segment(a).direction=down
      if segment(a-1).direction=right
      `top wall
         add limb a+1,2,1
         offset limb a+1,2,0,30,platesize/2
      `right wall
         add limb a+1,3,1
         rotate limb a+1,3,0,90,0
         offset limb a+1,3,platesize/2,30,0
      endif
   endif

   endif
   endif
endif
endif


texture object a+1,texturenum

if a=1
   add limb a+1,2,1
   offset limb a+1,2,0,30,-platesize/2

   add limb a+1,3,1
   rotate limb a+1,3,0,90,0
   offset limb a+1,3,platesize/2,30,0

   add limb a+1,4,1
   rotate limb a+1,4,0,90,0
   offset limb a+1,4,-platesize/2,30,0
endif

if a=segmentnum
   if segment(a).direction=left
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
      add limb a+1,4,1
      rotate limb a+1,4,0,90,0
      offset limb a+1,4,-platesize/2,30,0
   endif

   if segment(a).direction=right
      add limb a+1,2,1
      offset limb a+1,2,0,30,platesize/2
      add limb a+1,3,1
      offset limb a+1,3,0,30,-platesize/2
      add limb a+1,4,1
      rotate limb a+1,4,0,90,0
      offset limb a+1,4,platesize/2,30,0
   endif

   if segment(a).direction=up
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
      add limb a+1,4,1
      offset limb a+1,4,0,30,platesize/2
   endif

   if segment(a).direction=down
      add limb a+1,2,1
      rotate limb a+1,2,0,90,0
      offset limb a+1,2,platesize/2,30,0
      add limb a+1,3,1
      rotate limb a+1,3,0,90,0
      offset limb a+1,3,-platesize/2,30,0
      add limb a+1,4,1
      rotate limb a+1,4,0,90,0
      offset limb a+1,4,-platesize/2,30,0
   endif
endif


next a
delete mesh 1
delete mesh 2

endfunction
function makerandomcorridor2(segments as integer, maxturns as integer, turnnum as integer)
left=1
up=3
right=2
down=4
tempturn=0
tempcaves=0
for a=1 to segments
array insert at bottom segment(0)

if a=1
   segment(a).position.x=0
   segment(a).position.z=10
   segment(a).direction=up
else

   segment(a).direction=segment(a-1).direction
   segment(a).turn=segment(a-1).direction

   b=rnd(6)
   `turn
   if segment(a).direction=left
      segment(a).position.x=segment(a-1).position.x-platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=right
      segment(a).position.x=segment(a-1).position.x+platesize
      segment(a).position.z=segment(a-1).position.z
   endif

   if segment(a).direction=up
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z+platesize
   endif

   if segment(a).direction=down
      segment(a).position.x=segment(a-1).position.x
      segment(a).position.z=segment(a-1).position.z-platesize
   endif

   if b=1
      if tempturn<=maxturns
      en=0
      for j=1 to turnnum
         if en=0
            if a-j-1<=1
               en=1
            endif
            if segment(a-j).direction<>segment(a-(j+1)).direction
               en=1
            endif
         endif
      next j

      if en=0

         c=rnd (2)
         segment(a).turn=c

         if segment(a-1).direction=left
            if c=left then segment(a).direction=down
            if c=right then segment(a).direction=up
         endif

         if segment(a-1).direction=right
            if c=left then segment(a).direction=up
            if c=right then segment(a).direction=down
         endif

         if segment(a-1).direction=up
            if c=left then segment(a).direction=left
            if c=right  then segment(a).direction=right
         endif

         if segment(a-1).direction=down
            if c=left then segment(a).direction=right
            if c=right then segment(a).direction=left
         endif
         inc tempturn
      endif
      endif
   endif
endif

   make object box a+1,platesize,0.1,platesize
   position object a+1,segment(a).position.x,0,segment(a).position.z
   texture object a+1,12
next a

for f=1 to wallnum
   for e=1 to wallnum
      if f<>e
         if segment(f).position.x=segment(e).position.x
            if segment(f).position.z=segment(e).position.z
               segment(f).collision=1
               segment(e).collision=1
            endif
         endif
      endif
   next e
next f


endfunction







`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Return Value Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

function getangledifference(objnum as integer,x as integer, z as integer)
            null = make vector3(1)
            null = make vector3(2)
            null = make vector3(3)
            set vector3 1, x-object position x(objnum), 0,z-object position z(objnum)
            normalize vector3 1,1
            set vector3 2, limb position x(objnum, 1) - object position x(objnum), 0, limb position z(objnum, 1) - object position z(objnum)
            normalize vector3 2, 2
            AllyToTargetA# = acos(dot product vector3(1, 2))
            set vector3 3, 0, 1, 0
            cross product vector3 3, 2, 3
            angle2# = acos(dot product vector3(1, 3))

               if AllyToTargetA# > 0.1

                  if angle2# <> 0

                     if angle2# >= 90

                        exitfunction 1

                     else

                     exitfunction 2


                     endif

                  endif

               endif
endfunction 0


function mousebox(top,left,sizex,sizey)
   if mousex()>left
      if mousex()<left+sizex
         if mousey()>top
            if mousey()<top+sizey
               exitfunction 1
            endif
         endif
      endif
   endif
endfunction 0


`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Image Functions--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


function custombox(xtolerance as integer,ytolerance as integer,xpos as integer,ypos as integer)
x=rnd(xtolerance)
y=rnd(ytolerance)

for x=xpos-(x/2) to xpos+(x/2)
   for y=ypos-(y/2) to ypos+(y/2)
      q=rnd(30)+50
      dot x,y,rgb(q,q/2,q/2)
   next y
next x

endfunction

function tex(s as string,color as dword)
   ink color,color
   center text screen width()/2, screen height()/2,s
endfunction

`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~--Other--~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
`~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

function swordattack(swordobj as integer, object as integer, rate as integer)
   show object swordobj
   position object swordobj, newxvalue(object position x(object),45+object angle y(object),4),object position y(object)+4,newzvalue(object position z(object),45+object angle y(object),4)
   rotate object swordobj, object angle x(swordobj),object angle y(object),object angle z(swordobj)

   if updown=1
      rotate object swordobj, object angle x(swordobj)+rate, object angle y(swordobj),object angle z(swordobj)
   endif

   if updown=0
      rotate object swordobj, object angle x(swordobj)-rate, object angle y(swordobj),object angle z(swordobj)
   endif

   p=wrapvalue(object angle x(swordobj))
   if p>90 and p<110
      updown=0
   endif

   if p<360 and p>340
      updown=1
   endif
   text 100,0,str$(p)

endfunction

handlemouse:

if mouseclick()=1
   camangle=curvevalue(wrapvalue(camangle)+mousemovex()/2,camangle,1)
endif

if mouseclick()=2
   swordattack(1001,1,3)
endif

if mouseclick()<>2
   swordobj=1001
   object=1
   position object swordobj, newxvalue(object position x(object),45+object angle y(object),4),object position y(object)+4,newzvalue(object position z(object),45+object angle y(object),4)
   rotate object swordobj, 0,object angle y(object),object angle z(swordobj)
endif
return

init:
`make your player!
   makelimbcube(1,10)
   texture limb 1, 3,3
   ColorCube(1,rgb(255,255,0))

`Sets the overall light for the level.
   set ambient light 40
`The back of the cube looks wierd when it turns, so im placing a light at the camera's position.
   make light 1

`Positions the object 5 above the ground, which is half it's height.
   position object 1,0,5,0

   `This is the object used for the sword. It is created now, andwill be resized/colored later when the person upgrades
   `weapons.
make object box 1001,0.2, 15,1

return

function deletelevel(objnum)

empty array segment(0)
array insert at bottom segment(0)
empty array wall(0)
array insert at bottom wall(0)
empty array enemy(0)
array insert at bottom enemy(0)

for a=1 to 900
   if object exist(a+1)
      delete object a+1
   endif
next a
endfunction

function makerandomenemies(kind as integer, number as integer, maptype as integer)


for a=1 to number
MakeLimbCube(500+a,10)

if kind=zombie
   ColorCube(500+a, rgb(0,100,0))
   texture limb 500+a,3,8
   enemy(a).kind=kind
   enemy(a).attack=0.1
   enemy(a).health=100
endif
if kind=vampire
   ColorCube(500+a, rgb(100,100,100))
   texture limb 500+a,3,1
   enemy(a).kind=kind
   enemy(a).attack=0.1
   enemy(a).health=100
endif
if kind=darkcube
   Color object 500+a, rgb(0,0,0)
   enemy(a).kind=kind
   enemy(a).attack=0.1
   enemy(a).health=100
endif

if maptype=2
   segment=rnd(wallnum-4)+4
   x=rnd(platesize-10)-platesize/2+5
   z=rnd(platesize-10)-platesize/2+5
   y=5
   x=x+segment(segment).position.x
   z=z+segment(segment).position.z

   position object 500+a,x,y,z
endif

if maptype=1
intersect=0
   x=rnd(800)+100
   z=rnd(800)+100

for c=1 to wallnum
   if x>wall(c).position.x-wall(c).width/2
      if x(d)<wall(c).position.x+wall(c).width/2
         if z(d)>wall(c).position.z-wall(c).width/2
            if z(d)<wall(c).position.z+wall(c).width/2
            intersect=1
            endif
         endif
      endif
   endif
next c

while intersect=1
intersect=0
   x=rnd(800)+100
   z=rnd(800)+100

for c=1 to wallnum
   if x>wall(c).position.x-wall(c).width/2
      if x(d)<wall(c).position.x+wall(c).width/2
         if z(d)>wall(c).position.z-wall(c).width/2
            if z(d)<wall(c).position.z+wall(c).width/2
            intersect=1
            endif
         endif
      endif
   endif
next c

endwhile
endif
next a

endfunction

Player 1 (Green Tank)
move tank - W,A,S,D
rotate turret - R,Y
fire gun - T

Player 2 (Orange Tank)
move tank - arrow keys
rotate turret - numeric pad 1,3
fire gun - numeric pad 2

yellow - bouncing shots
red - homing shots
blue - shield
magenta - satellite strike

function make_alpha_writing(texnum, texcolor as dword)
offcol=texcolor&&0x00FFFFFF

`make it into an alpha mapped image?!
make memblock from image temp_memblocknum, texnum
wide=memblock dword(temp_memblocknum,0)
high=memblock dword(temp_memblocknum,4)
`depth is 32 - since have set display mode thusly- otherwise hella difficult!
mbpos=12
for a=1 to wide*high
if memblock dword(temp_memblocknum,mbpos) `not 0
   `write memblock dword temp_memblocknum,mbpos,0xFFFF0000
   write memblock dword temp_memblocknum,mbpos,texcolor
else
   `write memblock dword temp_memblocknum,mbpos,0x00FF0000
   write memblock dword temp_memblocknum,mbpos,offcol
endif
inc mbpos,4
next a
make image from memblock texnum,temp_memblocknum
delete memblock temp_memblocknum

endfunction