[DBP] UberZones (a zone system) - GameCreators Forum

Author

Message

kaedroho

16

Years of Service

User Offline

Joined: 21st Aug 2007

Location: Oxford,UK

Posted: 17th Oct 2008 21:27 Edited at: 9th Feb 2009 17:46

Link

Original Post

This is a big part of UberEngine and ive decided to release it to the members and guests of this forum. I released it here because it was quite popular on my forum so im hoping that it will do just as well here.

Its a zone system which tells you when a sphere or point is inside or intersecting an box or a sphere.

Tested with: DBPro 7.0 Betas 1,4,6 and 8

REM DEVELOPED BY: HELLFIRE TECHNOLOGY (www.turbodog.co.uk)
REM PROGRAMMED BY: KARL HOBLEY (karl@turbodog.co.uk)
REM MORE CODE AT: www.turbodog.co.uk/forum

REMSTART
YOU MAY USE THIS CODE IN COMMERCIAL OR NON COMMERCIAL GAMES OR GAME ENGINES
CREDIT TO THE AUTHOR (HELLFIRE TECHNOLOGY) IS REQUIRED IN COMMERCIAL GAMES AND GAME ENGINES
YOU MAY NOT POST THIS CODE ON ANY WEBSITES WITHOUT PERMISSION FROM THE AUTHOR
REMEND

type UberZone
zones as dword
spherezones as dword
boxzones as dword
endtype

type UberZone_Zone
zonetype as byte
zonenumber as dword
exists as boolean
objnum as dword
group as dword
name as string
value as integer
endtype

type UberZone_Zone_Box
number as dword
posx as float
posy as float
posz as float
width as float
height as float
depth as float
origwidth as float
origheight as float
origdepth as float
endtype

type UberZone_Zone_Sphere
number as dword
posx as float
posy as float
posz as float
radius as float
origradius as float
endtype

UberZone_StartVars:
UberZone as UberZone
dim UberZone_Zone(0) as UberZone_Zone
dim UberZone_Zone_Box(0) as UberZone_Zone_Box
dim UberZone_Zone_Sphere(0) as UberZone_Zone_Sphere
return

function UberZone_Start()
gosub UberZone_StartVars
gosub UberCore_Start
endfunction

function UberZone_GetZoneCount()
zones=UberZone.zones
endfunction zones

function UberZone_MakeSphereZone(x#,y#,z#,radius#)

inc UberZone.zones
inc UberZone.spherezones
array insert at bottom UberZone_Zone(0)
array insert at bottom UberZone_Zone_Sphere(0)

n=UberZone.zones
UberZone_Zone(n).zonetype=1
UberZone_Zone(n).zonenumber=UberZone.spherezones
UberZone_Zone(n).exists=1

n=UberZone.spherezones
UberZone_Zone_Sphere(n).number=UberZone.zones
UberZone_Zone_Sphere(n).posx=x#
UberZone_Zone_Sphere(n).posy=y#
UberZone_Zone_Sphere(n).posz=z#
UberZone_Zone_Sphere(n).radius=radius#

zonenumber=UberZone.zones
endfunction zonenumber

function UberZone_MakeBoxZone(x#,y#,z#,width#,height#,depth#)

inc UberZone.zones
inc UberZone.boxzones
array insert at bottom UberZone_Zone(0)
array insert at bottom UberZone_Zone_Box(0)

n=UberZone.zones
UberZone_Zone(n).zonetype=2
UberZone_Zone(n).zonenumber=UberZone.boxzones
UberZone_Zone(n).exists=1

n=UberZone.boxzones
UberZone_Zone_Box(n).number=UberZone.zones
UberZone_Zone_Box(n).posx=x#
UberZone_Zone_Box(n).posy=y#
UberZone_Zone_Box(n).posz=z#
UberZone_Zone_Box(n).width=width#
UberZone_Zone_Box(n).height=height#
UberZone_Zone_Box(n).depth=depth#

zonenumber=UberZone.zones
endfunction zonenumber

function UberZone_SetZoneGroup(n,group)
UberZone_Zone(n).group=group
endfunction

function UberZone_SetZoneValue(n,value)
UberZone_Zone(n).value=value
endfunction

function UberZone_SetZonename(n,name$)
UberZone_Zone(n).name=name$
endfunction

function UberZone_GetZoneGroup(n)
group=UberZone_Zone(n).group
endfunction group

function UberZone_GetZoneValue(n)
value=UberZone_Zone(n).value
endfunction value

function UberZone_GetZonename(n)
name$=UberZone_Zone(n).name
endfunction name$

function UberZone_SetZonePosition(n,x#,y#,z#)
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx=x#
         UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy=y#
         UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz=z#
      endcase
      case 2
         UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx=x#
         UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy=y#
         UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz=z#
      endcase
   endselect
   if UberZone_Zone(n).objnum then position object UberZone_Zone(n).objnum,x#,y#,z#
endif
endfunction

function UberZone_GetZoneType(n)
if UberZone_ZoneExists(n)
   zonetype=UberZone_Zone(n).zonetype
endif
endfunction zonetype

function UberZone_ZoneExists(n)
if n>0 and n<=UberZone.zones
   if UberZone_Zone(n).exists then exitfunction 1
endif
endfunction 0

function UberZone_SetBoxZoneSize(n,width#,height#,depth#)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2

if UberZone_Zone(n).objnum
         xscale#=width#/UberZone_Zone_Box(UberZone_Zone(n).zonenumber).origwidth*100
         yscale#=height#/UberZone_Zone_Box(UberZone_Zone(n).zonenumber).origheight*100
         zscale#=depth#/UberZone_Zone_Box(UberZone_Zone(n).zonenumber).origdepth*100
         scale object UberZone_Zone(n).objnum,xscale#,yscale#,zscale#
      endif

UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width=width#
      UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height=height#
      UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth=depth#

endif
endif
endfunction

function UberZone_SetSphereZoneSize(n,radius#)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=1
      if UberZone_Zone(n).objnum
         scale#=radius#/UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).origradius*100
         scale object UberZone_Zone(n).objnum,xscale,yscale,zscale
      endif
      UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius=radius#
   endif
endif
endfunction

function UberZone_GetZoneWidth(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2
      width#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
   endif
endif
endfunction width#

function UberZone_GetZoneHeight(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2
      height#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
   endif
endif
endfunction height#

function UberZone_GetZoneDepth(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2
      depth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth
   endif
endif
endfunction depth#

function UberZone_GetZoneRadius(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=1
      radius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius
   endif
endif
endfunction radius#

function UberZone_PointInZone(n,x#,y#,z#)
inzone=0
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         zonex#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz
         zoneradius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius

inzone=abs((x#-zonex#)^2+(y#-zoney#)^2+(z#-zonez#)^2)<zoneradius#^2
      endcase
      case 2
         zonex#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz
         zonewidth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
         zoneheight#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
         zonedepth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth

inzone=abs(x#-zonex#)<zonewidth#/2 and abs(y#-zoney#)<zoneheight#/2 and abs(z#-zonez#)<zonedepth#/2
      endcase
   endselect
endif
endfunction inzone

function UberZone_SphereInZone(n,x#,y#,z#,radius#)
inzone=0
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         zonex#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz
         zoneradius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius

inzone=abs((x#-zonex#)^2+(y#-zoney#)^2+(z#-zonez#)^2)<(zoneradius#+radius#)^2
      endcase
      case 2
         zonex#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz
         zonewidth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
         zoneheight#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
         zonedepth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth

inzone=abs(x#-zonex#)<(zonewidth#/2+radius#) and abs(y#-zoney#)<(zoneheight#/2+radius#) and abs(z#-zonez#)<(zonedepth#/2+radius#)
      endcase
   endselect
endif
endfunction inzone

function UberZone_MakeZoneObject(n,objnum)
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         zonex#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz
         zoneradius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius

UberZone_Zone_Sphere(n).origradius=zoneradius#

make object sphere objnum,zoneradius#*2
         position object objnum,zonex#,zoney#,zonez#
         set object wireframe objnum,1
         UberZone_Zone(n).objnum=objnum
      endcase
      case 2
         zonex#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz
         zonewidth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
         zoneheight#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
         zonedepth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth

UberZone_Zone_Box(n).origwidth=zonewidth#
         UberZone_Zone_Box(n).origheight=zoneheight#
         UberZone_Zone_Box(n).origdepth=zonedepth#

make object box objnum,zonewidth#,zoneheight#,zonedepth#
         position object objnum,zonex#,zoney#,zonez#
         set object wireframe objnum,1
         UberZone_Zone(n).objnum=objnum
      endcase
   endselect
endif
endfunction

function UberZone_GetPointZone(zonegroup,x#,y#,z#)
UberCore_ClearChecklist()
for i=1 to UberZone.zones
   if UberZone_ZoneExists(i) and UberZone_Zone(i).group=group
      if UberZone_PointInZone(i,x#,y#,z#)
         UberCore_AddToChecklist(UberZone_Zone(i).name,i,0,0,0,0.0,0.0,0.0,0.0)
      endif
   endif
next i
endfunction

function UberZone_GetSphereZone(zonegroup,x#,y#,z#,radius#)
UberCore_ClearChecklist()
for i=1 to UberZone.zones
   if UberZone_ZoneExists(i) and UberZone_Zone(i).group=group
      if UberZone_SphereInZone(i,x#,y#,z#,radius#)
         UberCore_AddToChecklist(UberZone_Zone(i).name,i,0,0,0,0.0,0.0,0.0,0.0)
      endif
   endif
next i
endfunction

function UberZone_GetZoneObject(n)
if UberZone_ZoneExists(n)
   objnum=UberZone_Zone(n).objnum
else
   errormessage "UberZone Error: Zone Does Not Exist"
endif
endfunction objnum

`UBERCORE STUFF
`------------------

type UberCore
checklistsize as dword
endtype

type UberCore_Checklist
str as string
val1 as integer
val2 as integer
val3 as integer
val4 as integer
fval1 as float
fval2 as float
fval3 as float
fval4 as float
endtype

UberCore_Start:
UberCore as UberCore
dim UberCore_Checklist(0) as UberCore_Checklist
return

function UberCore_ClearChecklist()
undim UberCore_Checklist(0)
dim UberCore_Checklist(0) as UberCore_Checklist
UberCore.checklistsize=0
endfunction

function UberCore_AddToChecklist(string$,val1,val2,val3,val4,fval1,fval2,fval3,fval4)
array insert at bottom UberCore_Checklist(0)
inc UberCore.checklistsize
n=UberCore.checklistsize
UberCore_Checklist(n).str=string$
UberCore_Checklist(n).val1=val1
UberCore_Checklist(n).val2=val2
UberCore_Checklist(n).val3=val3
UberCore_Checklist(n).val4=val4
UberCore_Checklist(n).fval1=fval1
UberCore_Checklist(n).fval2=fval2
UberCore_Checklist(n).fval3=fval3
UberCore_Checklist(n).fval4=fval4
endfunction

function UberCore_GetChecklistSize()
size=UberCore.checklistsize
endfunction size

function UberCore_GetChecklistString(n)
string$=UberCore_Checklist(n).str
endfunction string$

function UberCore_GetChecklistValueA(n)
returnval=UberCore_Checklist(n).val1
endfunction returnval

function UberCore_GetChecklistValueB(n)
returnval=UberCore_Checklist(n).val2
endfunction returnval

function UberCore_GetChecklistValueC(n)
returnval=UberCore_Checklist(n).val3
endfunction returnval

function UberCore_GetChecklistValueD(n)
returnval=UberCore_Checklist(n).val4
endfunction returnval

function UberCore_GetChecklistFValueA(n)
returnval#=UberCore_Checklist(n).fval1
endfunction returnval#

function UberCore_GetChecklistFValueB(n)
returnval#=UberCore_Checklist(n).fval2
endfunction returnval#

function UberCore_GetChecklistFValueC(n)
returnval#=UberCore_Checklist(n).fval3
endfunction returnval#

function UberCore_GetChecklistFValueD(n)
returnval#=UberCore_Checklist(n).fval4
endfunction returnval#

+ Code Snippet

REM DEVELOPED BY: HELLFIRE TECHNOLOGY (www.turbodog.co.uk)
REM PROGRAMMED BY: KARL HOBLEY (karl@turbodog.co.uk)
REM MORE CODE AT: www.turbodog.co.uk/forum

REMSTART
YOU MAY USE THIS CODE IN COMMERCIAL OR NON COMMERCIAL GAMES OR GAME ENGINES
CREDIT TO THE AUTHOR (HELLFIRE TECHNOLOGY) IS REQUIRED IN COMMERCIAL GAMES AND GAME ENGINES
YOU MAY NOT POST THIS CODE ON ANY WEBSITES WITHOUT PERMISSION FROM THE AUTHOR
REMEND

type UberZone
zones as dword
spherezones as dword
boxzones as dword
endtype

type UberZone_Zone
zonetype as byte
zonenumber as dword
exists as boolean
objnum as dword
group as dword
name as string
value as integer
endtype

type UberZone_Zone_Box
number as dword
posx as float
posy as float
posz as float
width as float
height as float
depth as float
origwidth as float
origheight as float
origdepth as float
endtype

type UberZone_Zone_Sphere
number as dword
posx as float
posy as float
posz as float
radius as float
origradius as float
endtype

UberZone_StartVars:
UberZone as UberZone
dim UberZone_Zone(0) as UberZone_Zone
dim UberZone_Zone_Box(0) as UberZone_Zone_Box
dim UberZone_Zone_Sphere(0) as UberZone_Zone_Sphere
return

function UberZone_Start()
gosub UberZone_StartVars
gosub UberCore_Start
endfunction

function UberZone_GetZoneCount()
zones=UberZone.zones
endfunction zones

function UberZone_MakeSphereZone(x#,y#,z#,radius#)

inc UberZone.zones
inc UberZone.spherezones
array insert at bottom UberZone_Zone(0)
array insert at bottom UberZone_Zone_Sphere(0)

n=UberZone.zones
UberZone_Zone(n).zonetype=1
UberZone_Zone(n).zonenumber=UberZone.spherezones
UberZone_Zone(n).exists=1

n=UberZone.spherezones
UberZone_Zone_Sphere(n).number=UberZone.zones
UberZone_Zone_Sphere(n).posx=x#
UberZone_Zone_Sphere(n).posy=y#
UberZone_Zone_Sphere(n).posz=z#
UberZone_Zone_Sphere(n).radius=radius#

zonenumber=UberZone.zones
endfunction zonenumber

function UberZone_MakeBoxZone(x#,y#,z#,width#,height#,depth#)

inc UberZone.zones
inc UberZone.boxzones
array insert at bottom UberZone_Zone(0)
array insert at bottom UberZone_Zone_Box(0)

n=UberZone.zones
UberZone_Zone(n).zonetype=2
UberZone_Zone(n).zonenumber=UberZone.boxzones
UberZone_Zone(n).exists=1

n=UberZone.boxzones
UberZone_Zone_Box(n).number=UberZone.zones
UberZone_Zone_Box(n).posx=x#
UberZone_Zone_Box(n).posy=y#
UberZone_Zone_Box(n).posz=z#
UberZone_Zone_Box(n).width=width#
UberZone_Zone_Box(n).height=height#
UberZone_Zone_Box(n).depth=depth#

zonenumber=UberZone.zones
endfunction zonenumber

function UberZone_SetZoneGroup(n,group)
UberZone_Zone(n).group=group
endfunction

function UberZone_SetZoneValue(n,value)
UberZone_Zone(n).value=value
endfunction

function UberZone_SetZonename(n,name$)
UberZone_Zone(n).name=name$
endfunction

function UberZone_GetZoneGroup(n)
group=UberZone_Zone(n).group
endfunction group

function UberZone_GetZoneValue(n)
value=UberZone_Zone(n).value
endfunction value

function UberZone_GetZonename(n)
name$=UberZone_Zone(n).name
endfunction name$

function UberZone_SetZonePosition(n,x#,y#,z#)
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx=x#
         UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy=y#
         UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz=z#
      endcase
      case 2
         UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx=x#
         UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy=y#
         UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz=z#
      endcase
   endselect
   if UberZone_Zone(n).objnum then position object UberZone_Zone(n).objnum,x#,y#,z#
endif
endfunction

function UberZone_GetZoneType(n)
if UberZone_ZoneExists(n)
   zonetype=UberZone_Zone(n).zonetype
endif
endfunction zonetype

function UberZone_ZoneExists(n)
if n>0 and n<=UberZone.zones
   if UberZone_Zone(n).exists then exitfunction 1
endif
endfunction 0

function UberZone_SetBoxZoneSize(n,width#,height#,depth#)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2

      if UberZone_Zone(n).objnum
         xscale#=width#/UberZone_Zone_Box(UberZone_Zone(n).zonenumber).origwidth*100
         yscale#=height#/UberZone_Zone_Box(UberZone_Zone(n).zonenumber).origheight*100
         zscale#=depth#/UberZone_Zone_Box(UberZone_Zone(n).zonenumber).origdepth*100
         scale object UberZone_Zone(n).objnum,xscale#,yscale#,zscale#
      endif

      UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width=width#
      UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height=height#
      UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth=depth#

   endif
endif
endfunction

function UberZone_SetSphereZoneSize(n,radius#)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=1
      if UberZone_Zone(n).objnum
         scale#=radius#/UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).origradius*100
         scale object UberZone_Zone(n).objnum,xscale,yscale,zscale
      endif
      UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius=radius#
   endif
endif
endfunction

function UberZone_GetZoneWidth(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2
      width#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
   endif
endif
endfunction width#

function UberZone_GetZoneHeight(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2
      height#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
   endif
endif
endfunction height#

function UberZone_GetZoneDepth(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=2
      depth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth
   endif
endif
endfunction depth#

function UberZone_GetZoneRadius(n)
if UberZone_ZoneExists(n)
   if UberZone_GetZoneType(n)=1
      radius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius
   endif
endif
endfunction radius#

function UberZone_PointInZone(n,x#,y#,z#)
inzone=0
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         zonex#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz
         zoneradius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius

         inzone=abs((x#-zonex#)^2+(y#-zoney#)^2+(z#-zonez#)^2)<zoneradius#^2
      endcase
      case 2
         zonex#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz
         zonewidth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
         zoneheight#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
         zonedepth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth

         inzone=abs(x#-zonex#)<zonewidth#/2 and abs(y#-zoney#)<zoneheight#/2 and abs(z#-zonez#)<zonedepth#/2
      endcase
   endselect
endif
endfunction inzone

function UberZone_SphereInZone(n,x#,y#,z#,radius#)
inzone=0
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         zonex#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz
         zoneradius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius

         inzone=abs((x#-zonex#)^2+(y#-zoney#)^2+(z#-zonez#)^2)<(zoneradius#+radius#)^2
      endcase
      case 2
         zonex#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz
         zonewidth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
         zoneheight#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
         zonedepth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth

         inzone=abs(x#-zonex#)<(zonewidth#/2+radius#) and abs(y#-zoney#)<(zoneheight#/2+radius#) and abs(z#-zonez#)<(zonedepth#/2+radius#)
      endcase
   endselect
endif
endfunction inzone

function UberZone_MakeZoneObject(n,objnum)
if UberZone_ZoneExists(n)
   select UberZone_GetZoneType(n)
      case 1
         zonex#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).posz
         zoneradius#=UberZone_Zone_Sphere(UberZone_Zone(n).zonenumber).radius

         UberZone_Zone_Sphere(n).origradius=zoneradius#

         make object sphere objnum,zoneradius#*2
         position object objnum,zonex#,zoney#,zonez#
         set object wireframe objnum,1
         UberZone_Zone(n).objnum=objnum
      endcase
      case 2
         zonex#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posx
         zoney#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posy
         zonez#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).posz
         zonewidth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).width
         zoneheight#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).height
         zonedepth#=UberZone_Zone_Box(UberZone_Zone(n).zonenumber).depth

         UberZone_Zone_Box(n).origwidth=zonewidth#
         UberZone_Zone_Box(n).origheight=zoneheight#
         UberZone_Zone_Box(n).origdepth=zonedepth#

         make object box objnum,zonewidth#,zoneheight#,zonedepth#
         position object objnum,zonex#,zoney#,zonez#
         set object wireframe objnum,1
         UberZone_Zone(n).objnum=objnum
      endcase
   endselect
endif
endfunction

function UberZone_GetPointZone(zonegroup,x#,y#,z#)
UberCore_ClearChecklist()
for i=1 to UberZone.zones
   if UberZone_ZoneExists(i) and UberZone_Zone(i).group=group
      if UberZone_PointInZone(i,x#,y#,z#)
         UberCore_AddToChecklist(UberZone_Zone(i).name,i,0,0,0,0.0,0.0,0.0,0.0)
      endif
   endif
next i
endfunction

function UberZone_GetSphereZone(zonegroup,x#,y#,z#,radius#)
UberCore_ClearChecklist()
for i=1 to UberZone.zones
   if UberZone_ZoneExists(i) and UberZone_Zone(i).group=group
      if UberZone_SphereInZone(i,x#,y#,z#,radius#)
         UberCore_AddToChecklist(UberZone_Zone(i).name,i,0,0,0,0.0,0.0,0.0,0.0)
      endif
   endif
next i
endfunction

function UberZone_GetZoneObject(n)
if UberZone_ZoneExists(n)
   objnum=UberZone_Zone(n).objnum
else
   errormessage "UberZone Error: Zone Does Not Exist"
endif
endfunction objnum



`UBERCORE STUFF
`------------------


type UberCore
checklistsize as dword
endtype

type UberCore_Checklist
str as string
val1 as integer
val2 as integer
val3 as integer
val4 as integer
fval1 as float
fval2 as float
fval3 as float
fval4 as float
endtype

UberCore_Start:
UberCore as UberCore
dim UberCore_Checklist(0) as UberCore_Checklist
return

function UberCore_ClearChecklist()
undim UberCore_Checklist(0)
dim UberCore_Checklist(0) as UberCore_Checklist
UberCore.checklistsize=0
endfunction

function UberCore_AddToChecklist(string$,val1,val2,val3,val4,fval1,fval2,fval3,fval4)
array insert at bottom UberCore_Checklist(0)
inc UberCore.checklistsize
n=UberCore.checklistsize
UberCore_Checklist(n).str=string$
UberCore_Checklist(n).val1=val1
UberCore_Checklist(n).val2=val2
UberCore_Checklist(n).val3=val3
UberCore_Checklist(n).val4=val4
UberCore_Checklist(n).fval1=fval1
UberCore_Checklist(n).fval2=fval2
UberCore_Checklist(n).fval3=fval3
UberCore_Checklist(n).fval4=fval4
endfunction

function UberCore_GetChecklistSize()
size=UberCore.checklistsize
endfunction size

function UberCore_GetChecklistString(n)
string$=UberCore_Checklist(n).str
endfunction string$

function UberCore_GetChecklistValueA(n)
returnval=UberCore_Checklist(n).val1
endfunction returnval

function UberCore_GetChecklistValueB(n)
returnval=UberCore_Checklist(n).val2
endfunction returnval

function UberCore_GetChecklistValueC(n)
returnval=UberCore_Checklist(n).val3
endfunction returnval

function UberCore_GetChecklistValueD(n)
returnval=UberCore_Checklist(n).val4
endfunction returnval


function UberCore_GetChecklistFValueA(n)
returnval#=UberCore_Checklist(n).fval1
endfunction returnval#

function UberCore_GetChecklistFValueB(n)
returnval#=UberCore_Checklist(n).fval2
endfunction returnval#

function UberCore_GetChecklistFValueC(n)
returnval#=UberCore_Checklist(n).fval3
endfunction returnval#

function UberCore_GetChecklistFValueD(n)
returnval#=UberCore_Checklist(n).fval4
endfunction returnval#

Code and compiled demo to show how to use this code:

http://files.filefront.com/UberZoneTestrar/;12065701;/fileinfo.html

Back to top

Profile PM Email Website

Xsnip3rX

17

Years of Service

User Offline

Joined: 20th Feb 2007

Location: Washington State

Posted: 12th Nov 2008 12:54

Link

Tested and Compiles under 6.6b

Back to top

Profile PM Email

kaedroho

16

Years of Service

User Offline

Joined: 21st Aug 2007

Location: Oxford,UK

Posted: 12th Nov 2008 16:53

Link

Thanks

UberZones is what gives UberEngine its really good speed. How? Its mostly used in the terrain engine to see if a Dynamic Rigid Body is near a sector, if there is a near dynamic rigid body, then the collision will be activated for that sector. Im also adding a feature for frustum culling 'UberZone_ZoneInFrustum(camera,zone)' because DBPros culling of indexbuffered objects seems to not work well (the sector objects are indexbuffered).

Games, Code, 3D Models and more! click here

Back to top

Profile PM Email Website

RedFlames

16

Years of Service

User Offline

Joined: 25th Aug 2007

Location: Germania

Posted: 12th Nov 2008 19:01

Link

Are you sure this:

+ Code Snippet

for i=1 to UberZone_GetZoneCount()
   if UberZone_ZoneExists(n)
      set object diffuse UberZone_GetZoneObject(n),rgb(255,0,0)
   endif
next i

shouldnt be this:

+ Code Snippet

for i=1 to UberZone_GetZoneCount()
   if UberZone_ZoneExists(i)
      set object diffuse UberZone_GetZoneObject(i),rgb(255,0,0)
   endif
next i

Other than that, nice coding style and structure

i didnt know one could write that much just to define a box/sphere in 3d space and check if a point or box is in it... i mean its only simple math after all

Oh and by the way i think matrix1utils has something similar, where you can define a zone and check a point, but i dont remember if it had spheres. I think it has just box zones with point-checks.

Back to top

Profile PM Email Website

kaedroho

16

Years of Service

User Offline

Joined: 21st Aug 2007

Location: Oxford,UK

Posted: 28th Nov 2008 18:13

Link

Thanks for the comment

Im now thinking about making my next code snippet, I could probly give skinned ragdolling in Dark Physics a go or make an Open Source FPS Engine. so if you have any ideas on what i sould make next, then please post them here and ill see what i can do.

Back to top

Profile PM Email Website

revenant chaos

Valued Member

17

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 6th Feb 2009 12:57

Link

That would be awesome if you got dark physics ragdolls to work with boned, animated models.

Back to top

Profile PM Email Website

kaedroho

16

Years of Service

User Offline

Joined: 21st Aug 2007

Location: Oxford,UK

Posted: 8th Feb 2009 19:10

Link

Im quite far with it. I just need to tweak around a few things (as the limbs dont position themselves perfectly yet).

Back to top

Profile PM Email Website

Airslide

19

Years of Service

User Offline

Joined: 18th Oct 2004

Location: California

Posted: 8th Feb 2009 21:26

Link

Are you using Dark Physics's ragdoll commands or are you manually positioning the model's bones to the corresponding ragdoll parts? Either way, if you get it to work, many people will probably be happy

Back to top

Profile PM Email

Violent Pigeon

16

Years of Service

User Offline

Joined: 30th Dec 2007

Location: London, Great Britain

Posted: 9th Feb 2009 00:06

Link

I wouldnt mind the open source fps engine

especially if you could maybe do a bit of step by step guidance tutorial style

Back to top

Profile PM Website

kaedroho

16

Years of Service

User Offline

Joined: 21st Aug 2007

Location: Oxford,UK

Posted: 9th Feb 2009 17:06 Edited at: 9th Feb 2009 17:19

Link

The Open Source FPS Engine is mainly all my codes put together.
I think minimaps which move, rotate and zoom would also be needed (Im working on this).

For ragdolls, I will need to find a new programmer who can program an editor which will be used for adding the joints, rigid bodys and skinning it. Then export an xml format file to be loaded into the code.

As soon as its released, I will post about it on the following website: http://www.blitzwerks.co.uk/1_16_Code.html

Back to top

Profile PM Email Website

tiresius

21

Years of Service

User Offline

Joined: 13th Nov 2002

Location: MA USA

Posted: 15th Mar 2009 03:16

Link

From Matrix1 DLL thread:

Quote: "tiresius,
I have a zone solution that does just that.
It was built for speed and stability so it has a very long code...
[links to this post]
"

Thanks kaedroho for the link, your zone system looks nice. I like it when people post a nice code system which is pluggable into other projects without much fuss.

I'm sure your zone system is plenty fast enough for your purposes, but I'm afraid I wouldn't consider it "optimized" enough for what I need. You are still looping through ALL zones in the system when checking if something is inside a zone.

+ Code Snippet

function UberZone_GetPointZone(zonegroup,x#,y#,z#)
UberCore_ClearChecklist()
for i=1 to UberZone.zones
   if UberZone_ZoneExists(i) and UberZone_Zone(i).group=group
      if UberZone_PointInZone(i,x#,y#,z#)
         UberCore_AddToChecklist(UberZone_Zone(i).name,i,0,0,0,0.0,0.0,0.0,0.0)
      endif
   endif
next i
endfunction

And this might make sense for your use of the system but why make actual DBPro objects out of each zone?

I need support for a couple hundred overlapping zones and I'm afraid your system might not be enough. Without some inbuilt OctTree or whatever fancy system there is for collision pruning I think the best I can do now is make a cell-based index to my master zone list. Cells are divided on the X/Z coordinates (60x60 cells for the level) and keep a list of zones which can found within those cells, then just do checks on those zones within a cell to see if the player is really inside them.

But thanks for pointing this out to me!

I'm not a real programmer but I play one with DBPro!

Back to top

Profile PM Email

kaedroho

16

Years of Service

User Offline

Joined: 21st Aug 2007

Location: Oxford,UK

Posted: 16th Mar 2009 17:31 Edited at: 16th Mar 2009 17:36

Link

Quote: "And this might make sense for your use of the system but why make actual DBPro objects out of each zone?"

Debugging, I needed this feature in a project I made with it. Objects only get created if you call the createzoneobject command.

Quote: "You are still looping through ALL zones in the system when checking if something is inside a zone."

Well you are looking at the wrong function. The function your looking at, makes a list of all the zones that that point is inside then returns that list to the user. Use 'UberZone_PointInZone(zone,x#,y#,z#)' for checking a single zone.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / [DBP] UberZones (a zone system)