AI ADD OBSTACLE VERTEX problem...

Author

Message

fumade

15

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 23rd Jan 2009 19:15

Link

my entities unable goto the location as i planed. I guess the obstacle code have problem.
Both of the location i denote as endpoint 3 and 4 are the place the entities suppose reach. But the entities only able reach the boundary of the main stage.
[img]http://lh3.ggpht.com/_HHceBjKMJM4/SXbQhE2gZJI/AAAAAAAAAsM/yED8hjby7G0/s640/DB%20problem%20located.jpg [/img]

CLS
SYNC ON : SYNC RATE 0 : AUTOCAM OFF
SET TEXT FONT "VERDANA" : SET TEXT SIZE 15
AI START
AI SET RADIUS 10

REM DIMENSION
ENTITIES=2
DIM STARTPOINT(ENTITIES)
DIM ENDPOINT(ENTITIES)
DIM ENTITIESON(ENTITIES)
WIDTH#=600  `X
HEIGHT#=100 `Y
DEPTH#=600  `Z
BUSBAYWIDTH#=200
BUSBAYDEPTH#=100

REM FLOOR
MAKE OBJECT BOX ENTITIES+1,WIDTH#,2,DEPTH#
POSITION OBJECT ENTITIES+1,0,-1,0
COLOR OBJECT ENTITIES+1,RGB(255,255,255)

REM BUS BAY 1
MAKE OBJECT BOX ENTITIES+2,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+2,WIDTH#/2+BUSBAYWIDTH#/2,-1,-DEPTH#/4
COLOR OBJECT ENTITIES+2,RGB(255,255,255)

REM BUS BAY 2
MAKE OBJECT BOX ENTITIES+3,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+3,WIDTH#/2+BUSBAYWIDTH#/2,-1,DEPTH#/4
COLOR OBJECT ENTITIES+3,RGB(255,255,255)

REM MAKE BOUNDARY OBSTACLE, ENCLOSES THE SPACE TO KEEP THE ENTITY IN
REM ADD POINTS IN A ANTI-CLOCKWISE DIRECTION TO CREATE A BOUNDARY (USE CLOCKWISE TO CREATE AN OBSTACLE)
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX -WIDTH#/2,-(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX -WIDTH#/2,(DEPTH#/2+65)
AI END NEW OBSTACLE 0,1
REM FINISH CREATING OUR BOUNDARY

REM CREATE OBSTACLE TO SEPARATE THE TWO BUS BAY
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX WIDTH#/2,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI END NEW OBSTACLE 0,1
REM FINISH OBSTACLE TO SEPARATE THE TWO BUS BAY

AI COMPLETE OBSTACLES

FOR I=1 TO ENTITIES
   REM REBORN THE ENTITIES
   CREATEENTITIES(I)
   REM RESET STARTING POINT
   STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
NEXT I

DO
   REM RESET THE ENTITIES ON THE STAGE
   ENTITIESON=0
   FOR I= 1 TO ENTITIES
         IF AI GET ENTITY Z (I)<(DEPTH#/2) AND AI GET ENTITY Z (I)>(-DEPTH#/2)
            SHOW OBJECT I
            ENTITIESON(I)=1
         ENDIF
         REM ARRIVE DESTINATION AND DELETE OBEJCT
         REM DESTINATION IS 1
         IF ENDPOINT(I)=1 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)<(-DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
         REM DESTINATION IS 2
         IF ENDPOINT(I)=2 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)>(DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
      REM CALCULATE THE NUMBER OF ENTITIES ON THE STAGE
      ENTITIESON= ENTITIESON+ENTITIESON(I)
   NEXT I

SET CURSOR 0,0`DEPTH#/4
   PRINT "NO. OF ENTITIES: ",ENTITIESON," / ",ENTITIES
   PRINT ""
   PRINT "CATEGORIES:- "
   PRINT " ADULT - RED"
   PRINT " ELDERLY - GREEN"
   PRINT " DISABLE - BLUE"
   PRINT "STARTPOINT(1): ",STARTPOINT(1)
   PRINT "ENDPOINT(1): ", ENDPOINT(1)
   PRINT "STARTPOINT(2): ",STARTPOINT(2)
   PRINT "ENDPOINT(2): ", ENDPOINT(2)
   PRINT "",WIDTH#/2+1

AI UPDATE
   SYNC
LOOP

REM CREATE DIFF CATEGORIES OF ENTITIES
FUNCTION CREATEENTITIES(I)
   CATEGORIES=0
   REM NORMAL ADULT
   IF CATEGORIES=0
      MAKE OBJECT SPHERE I, 15
      COLOR OBJECT I,RGB (255,0,0)
      AI ADD ENEMY I
      AI SET ENTITY SPEED I,25
   ENDIF
   SYNC
ENDFUNCTION

FUNCTION STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   SYNC
   STARTPOINT(I)= 1
   IF STARTPOINT(I)=1
      POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,-(RND(40)+DEPTH#/2+25)
      REM GO TO
      ENDPOINT(I)=RND(1)+3
      REM MAKE SURE NOT BACK TO SAME POSITION
      WHILE ENDPOINT(I)=1
         ENDPOINT(I)=RND(1)+3
      ENDWHILE
      ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   ENDIF

SYNC
ENDFUNCTION

FUNCTION ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   IF ENDPOINT(I)=3
      AI ENTITY GO TO POSITION I,RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4, -RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
   IF ENDPOINT(I)=4
      AI ENTITY GO TO POSITION I,(RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4), RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
ENDFUNCTION

+ Code Snippet

CLS
SYNC ON : SYNC RATE 0 : AUTOCAM OFF
SET TEXT FONT "VERDANA" : SET TEXT SIZE 15
AI START
AI SET RADIUS 10

REM DIMENSION
ENTITIES=2
DIM STARTPOINT(ENTITIES)
DIM ENDPOINT(ENTITIES)
DIM ENTITIESON(ENTITIES)
WIDTH#=600  `X
HEIGHT#=100 `Y
DEPTH#=600  `Z
BUSBAYWIDTH#=200
BUSBAYDEPTH#=100

REM FLOOR
MAKE OBJECT BOX ENTITIES+1,WIDTH#,2,DEPTH#
POSITION OBJECT ENTITIES+1,0,-1,0
COLOR OBJECT ENTITIES+1,RGB(255,255,255)

REM BUS BAY 1
MAKE OBJECT BOX ENTITIES+2,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+2,WIDTH#/2+BUSBAYWIDTH#/2,-1,-DEPTH#/4
COLOR OBJECT ENTITIES+2,RGB(255,255,255)

REM BUS BAY 2
MAKE OBJECT BOX ENTITIES+3,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+3,WIDTH#/2+BUSBAYWIDTH#/2,-1,DEPTH#/4
COLOR OBJECT ENTITIES+3,RGB(255,255,255)

REM MAKE BOUNDARY OBSTACLE, ENCLOSES THE SPACE TO KEEP THE ENTITY IN
REM ADD POINTS IN A ANTI-CLOCKWISE DIRECTION TO CREATE A BOUNDARY (USE CLOCKWISE TO CREATE AN OBSTACLE)
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX -WIDTH#/2,-(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX -WIDTH#/2,(DEPTH#/2+65)
AI END NEW OBSTACLE 0,1
REM FINISH CREATING OUR BOUNDARY

REM CREATE OBSTACLE TO SEPARATE THE TWO BUS BAY
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX WIDTH#/2,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI END NEW OBSTACLE 0,1
REM FINISH OBSTACLE TO SEPARATE THE TWO BUS BAY

AI COMPLETE OBSTACLES

FOR I=1 TO ENTITIES
   REM REBORN THE ENTITIES
   CREATEENTITIES(I)
   REM RESET STARTING POINT
   STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
NEXT I

DO
   REM RESET THE ENTITIES ON THE STAGE
   ENTITIESON=0
   FOR I= 1 TO ENTITIES
         IF AI GET ENTITY Z (I)<(DEPTH#/2) AND AI GET ENTITY Z (I)>(-DEPTH#/2)
            SHOW OBJECT I
            ENTITIESON(I)=1
         ENDIF
         REM ARRIVE DESTINATION AND DELETE OBEJCT
         REM DESTINATION IS 1
         IF ENDPOINT(I)=1 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)<(-DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
         REM DESTINATION IS 2
         IF ENDPOINT(I)=2 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)>(DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
      REM CALCULATE THE NUMBER OF ENTITIES ON THE STAGE
      ENTITIESON= ENTITIESON+ENTITIESON(I)
   NEXT I

   SET CURSOR 0,0`DEPTH#/4
   PRINT "NO. OF ENTITIES: ",ENTITIESON," / ",ENTITIES
   PRINT ""
   PRINT "CATEGORIES:- "
   PRINT " ADULT - RED"
   PRINT " ELDERLY - GREEN"
   PRINT " DISABLE - BLUE"
   PRINT "STARTPOINT(1): ",STARTPOINT(1)
   PRINT "ENDPOINT(1): ", ENDPOINT(1)
   PRINT "STARTPOINT(2): ",STARTPOINT(2)
   PRINT "ENDPOINT(2): ", ENDPOINT(2)
   PRINT "",WIDTH#/2+1

   AI UPDATE
   SYNC
LOOP

REM CREATE DIFF CATEGORIES OF ENTITIES
FUNCTION CREATEENTITIES(I)
   CATEGORIES=0
   REM NORMAL ADULT
   IF CATEGORIES=0
      MAKE OBJECT SPHERE I, 15
      COLOR OBJECT I,RGB (255,0,0)
      AI ADD ENEMY I
      AI SET ENTITY SPEED I,25
   ENDIF
   SYNC
ENDFUNCTION

FUNCTION STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   SYNC
   STARTPOINT(I)= 1
   IF STARTPOINT(I)=1
      POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,-(RND(40)+DEPTH#/2+25)
      REM GO TO
      ENDPOINT(I)=RND(1)+3
      REM MAKE SURE NOT BACK TO SAME POSITION
      WHILE ENDPOINT(I)=1
         ENDPOINT(I)=RND(1)+3
      ENDWHILE
      ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   ENDIF

   SYNC
ENDFUNCTION

FUNCTION ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   IF ENDPOINT(I)=3
      AI ENTITY GO TO POSITION I,RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4, -RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
   IF ENDPOINT(I)=4
      AI ENTITY GO TO POSITION I,(RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4), RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
ENDFUNCTION

Thanks for all your kindly helps...

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 23rd Jan 2009 19:47 Edited at: 23rd Jan 2009 19:52

Link

added some cubes to your code to show where the outside edge of the obstacle is tracking. as you see if you run this it a bit off.

CLS
SYNC ON : SYNC RATE 0 : AUTOCAM OFF
SET TEXT FONT "VERDANA" : SET TEXT SIZE 15
AI START
AI SET RADIUS 10

rem add cubes
autocam off
position camera 0,800,-350
point camera 0,0,0
for i=1000 to 1010
make object cube i,15
next i
rem =================================

REM DIMENSION
ENTITIES=2
DIM STARTPOINT(ENTITIES)
DIM ENDPOINT(ENTITIES)
DIM ENTITIESON(ENTITIES)
WIDTH#=600  `X
HEIGHT#=100 `Y
DEPTH#=600  `Z
BUSBAYWIDTH#=200
BUSBAYDEPTH#=100

REM FLOOR
MAKE OBJECT BOX ENTITIES+1,WIDTH#,2,DEPTH#
POSITION OBJECT ENTITIES+1,0,-1,0
COLOR OBJECT ENTITIES+1,RGB(255,255,255)

REM BUS BAY 1
MAKE OBJECT BOX ENTITIES+2,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+2,WIDTH#/2+BUSBAYWIDTH#/2,-1,-DEPTH#/4
COLOR OBJECT ENTITIES+2,RGB(255,255,255)

REM BUS BAY 2
MAKE OBJECT BOX ENTITIES+3,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+3,WIDTH#/2+BUSBAYWIDTH#/2,-1,DEPTH#/4
COLOR OBJECT ENTITIES+3,RGB(255,255,255)

REM MAKE BOUNDARY OBSTACLE, ENCLOSES THE SPACE TO KEEP THE ENTITY IN
REM ADD POINTS IN A ANTI-CLOCKWISE DIRECTION TO CREATE A BOUNDARY (USE CLOCKWISE TO CREATE AN OBSTACLE)
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX -WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX -WIDTH#/2,(DEPTH#/2+65)
AI END NEW OBSTACLE 0,1

REM FINISH CREATING OUR BOUNDARY

REM CREATE OBSTACLE TO SEPARATE THE TWO BUS BAY
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX WIDTH#/2,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI END NEW OBSTACLE 0,1
REM FINISH OBSTACLE TO SEPARATE THE TWO BUS BAY

AI COMPLETE OBSTACLES

FOR I=1 TO ENTITIES
   REM REBORN THE ENTITIES
   CREATEENTITIES(I)
   REM RESET STARTING POINT
   STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
NEXT I

DO
rem placed cube to see where the egdes where
position object 1000,  -WIDTH#/2,0,-(DEPTH#/2+65)
position object 1001, wIDTH#/2,0,-(DEPTH#/2+65)
position object 1002, WIDTH#/2+1,0,1
position object 1003, WIDTH#/2+BUSBAYWIDTH#,0,1
rem =================================================

REM RESET THE ENTITIES ON THE STAGE
   ENTITIESON=0
   FOR I= 1 TO ENTITIES
         IF AI GET ENTITY Z (I)<(DEPTH#/2) AND AI GET ENTITY Z (I)>(-DEPTH#/2)
            SHOW OBJECT I
            ENTITIESON(I)=1
         ENDIF
         REM ARRIVE DESTINATION AND DELETE OBEJCT
         REM DESTINATION IS 1
         IF ENDPOINT(I)=1 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)<(-DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
         REM DESTINATION IS 2
         IF ENDPOINT(I)=2 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)>(DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
      REM CALCULATE THE NUMBER OF ENTITIES ON THE STAGE
      ENTITIESON= ENTITIESON+ENTITIESON(I)
   NEXT I

SET CURSOR 0,0`DEPTH#/4
   PRINT "NO. OF ENTITIES: ",ENTITIESON," / ",ENTITIES
   PRINT ""
   PRINT "CATEGORIES:- "
   PRINT " ADULT - RED"
   PRINT " ELDERLY - GREEN"
   PRINT " DISABLE - BLUE"
   PRINT "STARTPOINT(1): ",STARTPOINT(1)
   PRINT "ENDPOINT(1): ", ENDPOINT(1)
   PRINT "STARTPOINT(2): ",STARTPOINT(2)
   PRINT "ENDPOINT(2): ", ENDPOINT(2)
   PRINT "",WIDTH#/2+1

AI UPDATE
   SYNC
LOOP

REM CREATE DIFF CATEGORIES OF ENTITIES
FUNCTION CREATEENTITIES(I)
   CATEGORIES=0
   REM NORMAL ADULT
   IF CATEGORIES=0
      MAKE OBJECT SPHERE I, 15
      COLOR OBJECT I,RGB (255,0,0)
      AI ADD ENEMY I
      AI SET ENTITY SPEED I,25
   ENDIF
   SYNC
ENDFUNCTION

FUNCTION STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   SYNC
   STARTPOINT(I)= 1
   IF STARTPOINT(I)=1
      POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,-(RND(40)+DEPTH#/2+25)
      REM GO TO
      ENDPOINT(I)=RND(1)+3
      REM MAKE SURE NOT BACK TO SAME POSITION
      WHILE ENDPOINT(I)=1
         ENDPOINT(I)=RND(1)+3
      ENDWHILE
      ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   ENDIF

SYNC
ENDFUNCTION

FUNCTION ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   IF ENDPOINT(I)=3
      AI ENTITY GO TO POSITION I,RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4, -RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
   IF ENDPOINT(I)=4
      AI ENTITY GO TO POSITION I,(RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4), RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
ENDFUNCTION

+ Code Snippet

CLS
SYNC ON : SYNC RATE 0 : AUTOCAM OFF
SET TEXT FONT "VERDANA" : SET TEXT SIZE 15
AI START
AI SET RADIUS 10

rem add cubes
autocam off
position camera 0,800,-350
point camera 0,0,0
for i=1000 to 1010
make object cube i,15
next i
rem =================================

REM DIMENSION
ENTITIES=2
DIM STARTPOINT(ENTITIES)
DIM ENDPOINT(ENTITIES)
DIM ENTITIESON(ENTITIES)
WIDTH#=600  `X
HEIGHT#=100 `Y
DEPTH#=600  `Z
BUSBAYWIDTH#=200
BUSBAYDEPTH#=100

REM FLOOR
MAKE OBJECT BOX ENTITIES+1,WIDTH#,2,DEPTH#
POSITION OBJECT ENTITIES+1,0,-1,0
COLOR OBJECT ENTITIES+1,RGB(255,255,255)

REM BUS BAY 1
MAKE OBJECT BOX ENTITIES+2,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+2,WIDTH#/2+BUSBAYWIDTH#/2,-1,-DEPTH#/4
COLOR OBJECT ENTITIES+2,RGB(255,255,255)

REM BUS BAY 2
MAKE OBJECT BOX ENTITIES+3,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+3,WIDTH#/2+BUSBAYWIDTH#/2,-1,DEPTH#/4
COLOR OBJECT ENTITIES+3,RGB(255,255,255)

REM MAKE BOUNDARY OBSTACLE, ENCLOSES THE SPACE TO KEEP THE ENTITY IN
REM ADD POINTS IN A ANTI-CLOCKWISE DIRECTION TO CREATE A BOUNDARY (USE CLOCKWISE TO CREATE AN OBSTACLE)
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX -WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX -WIDTH#/2,(DEPTH#/2+65)
AI END NEW OBSTACLE 0,1


REM FINISH CREATING OUR BOUNDARY

REM CREATE OBSTACLE TO SEPARATE THE TWO BUS BAY
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX WIDTH#/2,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI END NEW OBSTACLE 0,1
REM FINISH OBSTACLE TO SEPARATE THE TWO BUS BAY

AI COMPLETE OBSTACLES

FOR I=1 TO ENTITIES
   REM REBORN THE ENTITIES
   CREATEENTITIES(I)
   REM RESET STARTING POINT
   STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
NEXT I

DO
rem placed cube to see where the egdes where
position object 1000,  -WIDTH#/2,0,-(DEPTH#/2+65)
position object 1001, wIDTH#/2,0,-(DEPTH#/2+65)
position object 1002, WIDTH#/2+1,0,1
position object 1003, WIDTH#/2+BUSBAYWIDTH#,0,1
rem =================================================

   REM RESET THE ENTITIES ON THE STAGE
   ENTITIESON=0
   FOR I= 1 TO ENTITIES
         IF AI GET ENTITY Z (I)<(DEPTH#/2) AND AI GET ENTITY Z (I)>(-DEPTH#/2)
            SHOW OBJECT I
            ENTITIESON(I)=1
         ENDIF
         REM ARRIVE DESTINATION AND DELETE OBEJCT
         REM DESTINATION IS 1
         IF ENDPOINT(I)=1 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)<(-DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
         REM DESTINATION IS 2
         IF ENDPOINT(I)=2 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)>(DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
      REM CALCULATE THE NUMBER OF ENTITIES ON THE STAGE
      ENTITIESON= ENTITIESON+ENTITIESON(I)
   NEXT I

   SET CURSOR 0,0`DEPTH#/4
   PRINT "NO. OF ENTITIES: ",ENTITIESON," / ",ENTITIES
   PRINT ""
   PRINT "CATEGORIES:- "
   PRINT " ADULT - RED"
   PRINT " ELDERLY - GREEN"
   PRINT " DISABLE - BLUE"
   PRINT "STARTPOINT(1): ",STARTPOINT(1)
   PRINT "ENDPOINT(1): ", ENDPOINT(1)
   PRINT "STARTPOINT(2): ",STARTPOINT(2)
   PRINT "ENDPOINT(2): ", ENDPOINT(2)
   PRINT "",WIDTH#/2+1

   AI UPDATE
   SYNC
LOOP

REM CREATE DIFF CATEGORIES OF ENTITIES
FUNCTION CREATEENTITIES(I)
   CATEGORIES=0
   REM NORMAL ADULT
   IF CATEGORIES=0
      MAKE OBJECT SPHERE I, 15
      COLOR OBJECT I,RGB (255,0,0)
      AI ADD ENEMY I
      AI SET ENTITY SPEED I,25
   ENDIF
   SYNC
ENDFUNCTION

FUNCTION STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   SYNC
   STARTPOINT(I)= 1
   IF STARTPOINT(I)=1
      POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,-(RND(40)+DEPTH#/2+25)
      REM GO TO
      ENDPOINT(I)=RND(1)+3
      REM MAKE SURE NOT BACK TO SAME POSITION
      WHILE ENDPOINT(I)=1
         ENDPOINT(I)=RND(1)+3
      ENDWHILE
      ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   ENDIF

   SYNC
ENDFUNCTION

FUNCTION ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   IF ENDPOINT(I)=3
      AI ENTITY GO TO POSITION I,RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4, -RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
   IF ENDPOINT(I)=4
      AI ENTITY GO TO POSITION I,(RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4), RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
ENDFUNCTION

edit
plus you are not doing them in a clockwise direction.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

fumade

15

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 24th Jan 2009 09:25

Link

Do u meant i didn't doing the obstacles in clockwise direction? I thought I did.

+ Code Snippet

AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX WIDTH#/2,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI END NEW OBSTACLE 0,1

~ 300,100
~ 301,100
~ 301,1
~ 500,1
~ 500,-1
~ 301,-1
~ 301,-100
~ 300,100

At 2nd point, the direction to right, the third do down..Isn't this show clockwise?

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 24th Jan 2009 12:03 Edited at: 24th Jan 2009 12:07

Link

no the above set of numbers are going anti clockwise.

-300,300 say top left of screen or 10:53
0,0 center
300,-300 bottom right or 4:23

so

300,100 is in right hand side and a quarter way up.
301,100 is in right hand side +one and a quarter way up

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

fumade

15

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 25th Jan 2009 04:14

Link

Sorry i not understand..
I have two set of AI START NEW OBSTACLE:

The top one is the one for the boundary, so it should be anti-clockwise direction.

The bottom one is to create the boundary, so it is in clockwise direction.

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 25th Jan 2009 13:03 Edited at: 25th Jan 2009 13:05

Link

run this have used the same values to put cubes and sphere where you have said the boundarys go, have number them in order they are placed.

CLS
SYNC ON : SYNC RATE 0 : AUTOCAM OFF
SET TEXT FONT "VERDANA" : SET TEXT SIZE 15
AI START
AI SET RADIUS 10

rem add cubes
autocam off
position camera 0,800,0
point camera 0,0,0
for i=1000 to 1008
make object cube i,15
next i
for i=1009 to 1016
make object sphere i,15
next i
rem =================================

REM DIMENSION
ENTITIES=2
DIM STARTPOINT(ENTITIES)
DIM ENDPOINT(ENTITIES)
DIM ENTITIESON(ENTITIES)
WIDTH#=600  `X
HEIGHT#=100 `Y
DEPTH#=600  `Z
BUSBAYWIDTH#=200
BUSBAYDEPTH#=100

REM FLOOR
MAKE OBJECT BOX ENTITIES+1,WIDTH#,2,DEPTH#
POSITION OBJECT ENTITIES+1,0,-1,0
COLOR OBJECT ENTITIES+1,RGB(255,255,255)

REM BUS BAY 1
MAKE OBJECT BOX ENTITIES+2,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+2,WIDTH#/2+BUSBAYWIDTH#/2,-1,-DEPTH#/4
COLOR OBJECT ENTITIES+2,RGB(255,255,255)

REM BUS BAY 2
MAKE OBJECT BOX ENTITIES+3,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+3,WIDTH#/2+BUSBAYWIDTH#/2,-1,DEPTH#/4
COLOR OBJECT ENTITIES+3,RGB(255,255,255)

REM MAKE BOUNDARY OBSTACLE, ENCLOSES THE SPACE TO KEEP THE ENTITY IN
REM ADD POINTS IN A ANTI-CLOCKWISE DIRECTION TO CREATE A BOUNDARY (USE CLOCKWISE TO CREATE AN OBSTACLE)
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX -WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX -WIDTH#/2,(DEPTH#/2+65)
AI END NEW OBSTACLE 0,1

REM FINISH CREATING OUR BOUNDARY

REM CREATE OBSTACLE TO SEPARATE THE TWO BUS BAY
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX WIDTH#/2,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI END NEW OBSTACLE 0,1
REM FINISH OBSTACLE TO SEPARATE THE TWO BUS BAY

AI COMPLETE OBSTACLES

FOR I=1 TO ENTITIES
   REM REBORN THE ENTITIES
   CREATEENTITIES(I)
   REM RESET STARTING POINT
   STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
NEXT I

DO
rem placed cube to see where the egdes where
position object 1000, -WIDTH#/2,0,-(DEPTH#/2+65)
text object screen x(1000), object screen y(1000)-10,"cube 1"
position object 1001, WIDTH#/2,0,-(DEPTH#/2+65)
text object screen x(1001), object screen y(1001)-10,"cube 2"
position object 1002, WIDTH#/2,0,-(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1002), object screen y(1002)-10,"cube 3"
position object 1003, WIDTH#/2+BUSBAYWIDTH#,0,-(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1003), object screen y(1003)-10,"cube 4"
position object 1004, WIDTH#/2+BUSBAYWIDTH#,0,(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1004), object screen y(1004)-10,"cube 5"
position object 1005, WIDTH#/2,0,(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1005), object screen y(1005)-10,"cube 6"
position object 1006, WIDTH#/2,0,(DEPTH#/2+65)
text object screen x(1006), object screen y(1006)-10,"cube 7"
position object 1007, -WIDTH#/2,0,(DEPTH#/2+65)
text object screen x(1007), object screen y(1007)-10,"cube 8"
rem =================================================
rem ai  two
position object 1009, WIDTH#/2,0,DEPTH#/4-BUSBAYDEPTH#/2
text object screen x(1009), object screen y(1009)+10,"sphere 1"
position object 1010, WIDTH#/2+1,0,DEPTH#/4-BUSBAYDEPTH#/2
text object screen x(1010), object screen y(1010)+10,"sphere 2"
position object 1011, WIDTH#/2+1,0,1
text object screen x(1011), object screen y(1011)+10,"sphere 3"
position object 1012, WIDTH#/2+BUSBAYWIDTH#,0,1
text object screen x(1012), object screen y(1012)+10,"sphere 4"
position object 1013, WIDTH#/2+BUSBAYWIDTH#,0,-1
text object screen x(1013), object screen y(1013)+10,"sphere 5"
position object 1014, WIDTH#/2+1,0,-1
text object screen x(1014), object screen y(1014)+10,"sphere 6"
position object 1015, WIDTH#/2+1,0,-(DEPTH#/4-BUSBAYDEPTH#/2)
text object screen x(1015), object screen y(1015)+10,"sphere 7"
position object 1016, WIDTH#/2,0,-(DEPTH#/4-BUSBAYDEPTH#/2)
text object screen x(1016), object screen y(1016)+10,"sphere 8"
   REM RESET THE ENTITIES ON THE STAGE
   ENTITIESON=0
   FOR I= 1 TO ENTITIES
         IF AI GET ENTITY Z (I)<(DEPTH#/2) AND AI GET ENTITY Z (I)>(-DEPTH#/2)
            SHOW OBJECT I
            ENTITIESON(I)=1
         ENDIF
         REM ARRIVE DESTINATION AND DELETE OBEJCT
         REM DESTINATION IS 1
         IF ENDPOINT(I)=1 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)<(-DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
         REM DESTINATION IS 2
         IF ENDPOINT(I)=2 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)>(DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
      REM CALCULATE THE NUMBER OF ENTITIES ON THE STAGE
      ENTITIESON= ENTITIESON+ENTITIESON(I)
   NEXT I

SET CURSOR 0,0`DEPTH#/4
   PRINT "NO. OF ENTITIES: ",ENTITIESON," / ",ENTITIES
   PRINT ""
   PRINT "CATEGORIES:- "
   PRINT " ADULT - RED"
   PRINT " ELDERLY - GREEN"
   PRINT " DISABLE - BLUE"
   PRINT "STARTPOINT(1): ",STARTPOINT(1)
   PRINT "ENDPOINT(1): ", ENDPOINT(1)
   PRINT "STARTPOINT(2): ",STARTPOINT(2)
   PRINT "ENDPOINT(2): ", ENDPOINT(2)
   PRINT "",WIDTH#/2+1

AI UPDATE
   SYNC
LOOP

REM CREATE DIFF CATEGORIES OF ENTITIES
FUNCTION CREATEENTITIES(I)
   CATEGORIES=0
   REM NORMAL ADULT
   IF CATEGORIES=0
      MAKE OBJECT SPHERE I, 15
      COLOR OBJECT I,RGB (255,0,0)
      AI ADD ENEMY I
      AI SET ENTITY SPEED I,25
   ENDIF
   SYNC
ENDFUNCTION

FUNCTION STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   SYNC
   STARTPOINT(I)= 1
   IF STARTPOINT(I)=1
      POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,-(RND(40)+DEPTH#/2+25)
      REM GO TO
      ENDPOINT(I)=RND(1)+3
      REM MAKE SURE NOT BACK TO SAME POSITION
      WHILE ENDPOINT(I)=1
         ENDPOINT(I)=RND(1)+3
      ENDWHILE
      ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   ENDIF

SYNC
ENDFUNCTION

FUNCTION ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   IF ENDPOINT(I)=3
      AI ENTITY GO TO POSITION I,RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4, -RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
   IF ENDPOINT(I)=4
      AI ENTITY GO TO POSITION I,(RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4), RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
ENDFUNCTION

+ Code Snippet

CLS
SYNC ON : SYNC RATE 0 : AUTOCAM OFF
SET TEXT FONT "VERDANA" : SET TEXT SIZE 15
AI START
AI SET RADIUS 10

rem add cubes
autocam off
position camera 0,800,0
point camera 0,0,0
for i=1000 to 1008
make object cube i,15
next i
for i=1009 to 1016
make object sphere i,15
next i
rem =================================

REM DIMENSION
ENTITIES=2
DIM STARTPOINT(ENTITIES)
DIM ENDPOINT(ENTITIES)
DIM ENTITIESON(ENTITIES)
WIDTH#=600  `X
HEIGHT#=100 `Y
DEPTH#=600  `Z
BUSBAYWIDTH#=200
BUSBAYDEPTH#=100

REM FLOOR
MAKE OBJECT BOX ENTITIES+1,WIDTH#,2,DEPTH#
POSITION OBJECT ENTITIES+1,0,-1,0
COLOR OBJECT ENTITIES+1,RGB(255,255,255)

REM BUS BAY 1
MAKE OBJECT BOX ENTITIES+2,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+2,WIDTH#/2+BUSBAYWIDTH#/2,-1,-DEPTH#/4
COLOR OBJECT ENTITIES+2,RGB(255,255,255)

REM BUS BAY 2
MAKE OBJECT BOX ENTITIES+3,BUSBAYWIDTH#,2,BUSBAYDEPTH#
POSITION OBJECT ENTITIES+3,WIDTH#/2+BUSBAYWIDTH#/2,-1,DEPTH#/4
COLOR OBJECT ENTITIES+3,RGB(255,255,255)

REM MAKE BOUNDARY OBSTACLE, ENCLOSES THE SPACE TO KEEP THE ENTITY IN
REM ADD POINTS IN A ANTI-CLOCKWISE DIRECTION TO CREATE A BOUNDARY (USE CLOCKWISE TO CREATE AN OBSTACLE)
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX -WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/2+65)

AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/4+BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,(DEPTH#/2+65)
AI ADD OBSTACLE VERTEX -WIDTH#/2,(DEPTH#/2+65)
AI END NEW OBSTACLE 0,1


REM FINISH CREATING OUR BOUNDARY

REM CREATE OBSTACLE TO SEPARATE THE TWO BUS BAY
AI START NEW OBSTACLE
AI ADD OBSTACLE VERTEX WIDTH#/2,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,DEPTH#/4-BUSBAYDEPTH#/2
AI ADD OBSTACLE VERTEX WIDTH#/2+1,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,1
AI ADD OBSTACLE VERTEX WIDTH#/2+BUSBAYWIDTH#,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-1
AI ADD OBSTACLE VERTEX WIDTH#/2+1,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI ADD OBSTACLE VERTEX WIDTH#/2,-(DEPTH#/4-BUSBAYDEPTH#/2)
AI END NEW OBSTACLE 0,1
REM FINISH OBSTACLE TO SEPARATE THE TWO BUS BAY

AI COMPLETE OBSTACLES

FOR I=1 TO ENTITIES
   REM REBORN THE ENTITIES
   CREATEENTITIES(I)
   REM RESET STARTING POINT
   STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
NEXT I

DO
rem placed cube to see where the egdes where
position object 1000, -WIDTH#/2,0,-(DEPTH#/2+65)
text object screen x(1000), object screen y(1000)-10,"cube 1"
position object 1001, WIDTH#/2,0,-(DEPTH#/2+65)
text object screen x(1001), object screen y(1001)-10,"cube 2"
position object 1002, WIDTH#/2,0,-(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1002), object screen y(1002)-10,"cube 3"
position object 1003, WIDTH#/2+BUSBAYWIDTH#,0,-(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1003), object screen y(1003)-10,"cube 4"
position object 1004, WIDTH#/2+BUSBAYWIDTH#,0,(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1004), object screen y(1004)-10,"cube 5"
position object 1005, WIDTH#/2,0,(DEPTH#/4+BUSBAYDEPTH#/2)
text object screen x(1005), object screen y(1005)-10,"cube 6"
position object 1006, WIDTH#/2,0,(DEPTH#/2+65)
text object screen x(1006), object screen y(1006)-10,"cube 7"
position object 1007, -WIDTH#/2,0,(DEPTH#/2+65)
text object screen x(1007), object screen y(1007)-10,"cube 8"
rem =================================================
rem ai  two
position object 1009, WIDTH#/2,0,DEPTH#/4-BUSBAYDEPTH#/2
text object screen x(1009), object screen y(1009)+10,"sphere 1"
position object 1010, WIDTH#/2+1,0,DEPTH#/4-BUSBAYDEPTH#/2
text object screen x(1010), object screen y(1010)+10,"sphere 2"
position object 1011, WIDTH#/2+1,0,1
text object screen x(1011), object screen y(1011)+10,"sphere 3"
position object 1012, WIDTH#/2+BUSBAYWIDTH#,0,1
text object screen x(1012), object screen y(1012)+10,"sphere 4"
position object 1013, WIDTH#/2+BUSBAYWIDTH#,0,-1
text object screen x(1013), object screen y(1013)+10,"sphere 5"
position object 1014, WIDTH#/2+1,0,-1
text object screen x(1014), object screen y(1014)+10,"sphere 6"
position object 1015, WIDTH#/2+1,0,-(DEPTH#/4-BUSBAYDEPTH#/2)
text object screen x(1015), object screen y(1015)+10,"sphere 7"
position object 1016, WIDTH#/2,0,-(DEPTH#/4-BUSBAYDEPTH#/2)
text object screen x(1016), object screen y(1016)+10,"sphere 8"
   REM RESET THE ENTITIES ON THE STAGE
   ENTITIESON=0
   FOR I= 1 TO ENTITIES
         IF AI GET ENTITY Z (I)<(DEPTH#/2) AND AI GET ENTITY Z (I)>(-DEPTH#/2)
            SHOW OBJECT I
            ENTITIESON(I)=1
         ENDIF
         REM ARRIVE DESTINATION AND DELETE OBEJCT
         REM DESTINATION IS 1
         IF ENDPOINT(I)=1 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)<(-DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
         REM DESTINATION IS 2
         IF ENDPOINT(I)=2 REM AND AI ENTITY EXIST(I)=1
            IF AI GET ENTITY Z (I)>(DEPTH#/2)
               `AI KILL ENTITY I
               `DELETE OBJECT I
               ENTITIESON(I)=0
            ENDIF
         ENDIF
      REM CALCULATE THE NUMBER OF ENTITIES ON THE STAGE
      ENTITIESON= ENTITIESON+ENTITIESON(I)
   NEXT I

   SET CURSOR 0,0`DEPTH#/4
   PRINT "NO. OF ENTITIES: ",ENTITIESON," / ",ENTITIES
   PRINT ""
   PRINT "CATEGORIES:- "
   PRINT " ADULT - RED"
   PRINT " ELDERLY - GREEN"
   PRINT " DISABLE - BLUE"
   PRINT "STARTPOINT(1): ",STARTPOINT(1)
   PRINT "ENDPOINT(1): ", ENDPOINT(1)
   PRINT "STARTPOINT(2): ",STARTPOINT(2)
   PRINT "ENDPOINT(2): ", ENDPOINT(2)
   PRINT "",WIDTH#/2+1

   AI UPDATE
   SYNC
LOOP

REM CREATE DIFF CATEGORIES OF ENTITIES
FUNCTION CREATEENTITIES(I)
   CATEGORIES=0
   REM NORMAL ADULT
   IF CATEGORIES=0
      MAKE OBJECT SPHERE I, 15
      COLOR OBJECT I,RGB (255,0,0)
      AI ADD ENEMY I
      AI SET ENTITY SPEED I,25
   ENDIF
   SYNC
ENDFUNCTION

FUNCTION STARTPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   SYNC
   STARTPOINT(I)= 1
   IF STARTPOINT(I)=1
      POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,-(RND(40)+DEPTH#/2+25)
      REM GO TO
      ENDPOINT(I)=RND(1)+3
      REM MAKE SURE NOT BACK TO SAME POSITION
      WHILE ENDPOINT(I)=1
         ENDPOINT(I)=RND(1)+3
      ENDWHILE
      ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   ENDIF

   SYNC
ENDFUNCTION

FUNCTION ENDPOINTF(I,WIDTH#,HEIGHT#,DEPTH#,BUSBAYWIDTH#,BUSBAYDEPTH#)
   IF ENDPOINT(I)=3
      AI ENTITY GO TO POSITION I,RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4, -RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
   IF ENDPOINT(I)=4
      AI ENTITY GO TO POSITION I,(RND(BUSBAYWIDTH#*1/4)+WIDTH#/2+BUSBAYWIDTH#*3/4), RND(DEPTH#/4-BUSBAYDEPTH#/2)
   ENDIF
ENDFUNCTION

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

fumade

15

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 25th Jan 2009 14:24

Link

I tried run it..Since the sphere (1,2), (4,5),(3,6),(7,8) are too near to each other so cant different it. I thought the entities will go to the locations [the BLUE area between sphere 5 and cube 5] or [the BLUE area between sphere 5 and cube 4]through the gap either between [cube 6 and sphere1] or [cube3 and sphere 8].

Hope u can understand what i meant..But either o not, I would like to said thank you very much for your kindly helps...

Back to top

Profile PM Email

fumade

15

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 26th Jan 2009 19:53

Link

HowDo, u cant understand my messy English?
Is there anyone can understand and able help me??
I really dunno why the entities cant enter the either one of the bus bay...

Thanks...

Back to top

Profile PM Email

Sorry your browser is not supported!

Dark Physics & Dark A.I. & Dark Dynamix / AI ADD OBSTACLE VERTEX problem...