global variable inside IF...no reading...

Author

Message

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 20th Jan 2009 18:27

Link

I try to put a global variable inside a IF function, the program not read it...but if i put outside the IF, it show sth...What is going on..

+ Code Snippet

DIM STARTPOINT(10)
DIM ENDPOINT(10)

STARTPOINT(1)= 2
   IF STARTPOINT(I)=2
      `POSITION OBJECT 1, RND(WIDTH#)-WIDTH#/2, 10,(RND(40)+DEPTH#/2+25)
   ENDPOINT(1)=4
ENDIF
PRINT "",STARTPOINT(1)
PRINT "",ENDPOINT(1)

WAIT KEY

Thanks for your helps...

Back to top

Profile PM Email

Rudolpho

18

Years of Service

User Offline

Joined: 28th Dec 2005

Location: Sweden

Posted: 20th Jan 2009 19:03

Link

Uhm... your snippet reads STARTPOINT(I) (capital i); I'm pretty sure that you want to put a 1 (one) there instead (if I is not declared as a variable somewhere earlier in your code, it will be regarded as having the default value of zero, hence returning STARTPOINT(0) which haven't been set and thus, that too will have a value of zero).

-> Oh, come on...

Back to top

Profile PM Email Website

feiting shadow

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 21st Jan 2009 02:47

Link

Just gotta add, while the scope is global if it's at the top of the program... (or should be), it doesn't work like that. I've run into issues myself so make sure to add "global". Also the syntax is very specific, it compiles 2 ways and only 1 way actually makes it global.

That is this way:

+ Code Snippet

global var as integer

or basically global _variablename_ as _type_

global var = N works but I have found that not to actually globalize the variable before.

Just a quirk I thought I'd add, since the topic is relevant enough

Signed
------

Back to top

Profile PM

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 21st Jan 2009 06:22

Link

I just tried sth on my code...feel weird on it...Hope any of u can help me prove it..

when i try to code as below..what i noticed is the endpoint(1)=0.
But when i delete the "....."(dot) which locate at line "REM GO TO ......." the answer will become normal back..

Is that same on ur computer??

+ Code Snippet

DIM STARTPOINT(10)
DIM ENDPOINT(10)

   SYNC
   STARTPOINT(1)= 2
   REM --- TESTING AREA ---
   REM AT EXIT 2
   IF STARTPOINT(1)=1
      ENDPOINT(1)=1
      Y=1
   ENDIF
   IF STARTPOINT(1)=2
      `POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,(RND(40)+DEPTH#/2+25)
      REM GO TO .......
      ENDPOINT(1)=2
      Y=2
   ENDIF

   PRINT "",STARTPOINT(1)
   PRINT "",ENDPOINT(1)
   PRINT "",Y

WAIT KEY

Thanks...

Back to top

Profile PM Email

feiting shadow

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 21st Jan 2009 07:09 Edited at: 21st Jan 2009 07:10

Link

try Print STR$( STARTPOINT(1) ) To convert that to a string. Quotes won't be needed if you do that.

I'm unsure what you're printing exactly with that code.

So try:

+ Code Snippet

DIM STARTPOINT(10)
DIM ENDPOINT(10)

   SYNC
   STARTPOINT(1)= 2
   REM --- TESTING AREA ---
   REM AT EXIT 2
   IF STARTPOINT(1)=1
      ENDPOINT(1)=1
      Y=1
   ENDIF
   IF STARTPOINT(1)=2
      `POSITION OBJECT I, RND(WIDTH#)-WIDTH#/2, 10,(RND(40)+DEPTH#/2+25)
      REM GO TO .......
      ENDPOINT(1)=2
      Y=2
   ENDIF

   PRINT STR$(STARTPOINT(1))
   PRINT STR$(ENDPOINT(1))
   PRINT STR$(Y)
WAIT KEY

Or better yet...
since it doesn't look like you're assigning, rather just checking something... you don't need the if statements initially.

ENDPPOINT(1) = STARTPOINT(1)
Y = STARTPOINT(1)

Should take care of all possible assignments for startpoint(1).

Use FOR to assign all 10, just a suggestion.

Signed
------

Back to top

Profile PM

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 21st Jan 2009 07:33

Link

From the code u given,
i get the result
2
0
2

so..sth wrong on it?

Back to top

Profile PM Email

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 21st Jan 2009 08:33

Link

Now i'm facing another problem. I wondering why my entities(sphere) unable goto the place i want. the location is show in the image...the sphere cant reach endpoint=3 and endpoint=4..

I attach my code below

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

Again Thanks for all the kindly helps

Attachments

Login to view attachments

Back to top

Profile PM Email

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 21st Jan 2009 08:41

Link

Back to top

Profile PM Email

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 22nd Jan 2009 13:42

Link

Any helps....????
Please...

Back to top

Profile PM Email

feiting shadow

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 22nd Jan 2009 14:36

Link

Hmmm, I haven't used DarkAI... but I did go through some of the example programs. I don't see any waypoints, I believe you use those to go around obstacles.

Also check your Print "STARTPOINT(1): " function. PRINT is for the String type, so change the second half to + STR$(Value)

+ Code Snippet

PRINT "STARTPOINT(1): " + STR$(STARTPOINT(1))
or STR(value), forgot if it needs the $ to do it.

Also, if you "are" having a problem with DarkAI, congratulations! You can ask that question in the DarkAI section and get more help. I'm lost as to what now, but you do have the PRINT function right, that helps you debug many programs... especially 3d

I'm lost otherwise. You'll have to describe what you're trying to do, the comments only tell tiny pieces of what you're trying to do.

Signed
------

Back to top

Profile PM

Tom0001

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location:

Posted: 23rd Jan 2009 00:27

Link

@feiting shadow,

Yes the $ is necessary on STR$. >_>

Back to top

Profile PM

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 23rd Jan 2009 01:29

Link

Other than the arrays, I see no globals defined anywhere, so I'm a little lost on what you're all talking about. And why is your entire code capitalized? 'Tis a bit hard on the thee old eyes.

Your signature has been erased by a mod because it's larger than 600x120

Back to top

Profile PM Email Website

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 23rd Jan 2009 08:56

Link

Basically the problem is my entities cant reach the location tat i denote on my image.tat's somewhere near the two outlet there.but my entities only able reach the boundary of the main area,they cant go further to reach the two outlet(bus bay)
Sorry to let u feel unconvinent for ur eyes.
I belive is the problem of the boundary not the ai.
Thanks for all your kindly helps.

Back to top

Profile PM Email

fumade

16

Years of Service

User Offline

Joined: 28th Oct 2008

Location:

Posted: 23rd Jan 2009 09:05

Link

By the way,the startpoint(1) is a global variable.i state as dim startpoint(entities),dim endpoint(entities).oh ya..endpoint() is a global variable too,but endpointF is a function.
I just wan to print where the entities'll start and where they'll go to.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / global variable inside IF...no reading...

Attachments