Variable does not exist - GameCreators Forum

Author

Message

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 26th Dec 2009 22:59 Edited at: 26th Dec 2009 23:02

Link

ok i have just started a new program and i have come across a very unusual problem, i declare my type then i edit my type and then i print a variable from that type, but it says that the variable type doesnt exist, see for yourself..

Rem Project: TLE - Aliens
Rem Created: Saturday, December 26, 2009

Rem ***** Main Source File *****

GOSUB UDT
GOSUB GLOBALS

GOSUB GENNAME

PRINT "Race Name: ", Alien.RaceName

WAIT KEY
END

UDT:
TYPE tAliens
	RaceName AS STRING
ENDTYPE
Alien AS tAliens
RETURN

GLOBALS:
GLOBAL MAXNAMES = 20
RETURN

GENNAME:
INPUT "What is the name of this race(r for random)", Alien.RaceName
IF Alien.RaceName = "r" OR Alien.RaceName = "R"
	ROLLTMP = RND(MAXNAMES)
	SELECT ROLLTMP
		CASE 0
			Alien.RaceName = "Churtran"
		ENDCASE
		CASE 1
			Alien.RaceName = "Ct'Igeltazu"
		ENDCASE
		CASE 2
			Alien.RaceName = "Romorkon"
		ENDCASE
		CASE 3
			Alien.RaceName = "Mutzachua Rakilri"
		ENDCASE
		CASE 4
			Alien.RaceName = "Chudin"
		ENDCASE
		CASE 5
			Alien.RaceName = "Maront"
		ENDCASE
		CASE 6
			Alien.RaceName = "I'Formorkon"
		ENDCASE
		CASE 7
			Alien.RaceName = "T'Satadi"
		ENDCASE
		CASE 8
			Alien.RaceName = "Danaski"
		ENDCASE
		CASE 9
			Alien.RaceName = "Oni Sharialhoo"
		ENDCASE
		CASE 10
			Alien.RaceName = "X'Kani"
		ENDCASE
		CASE 11
			Alien.RaceName = "M'Zorgarot"
		ENDCASE
		CASE 12
			Alien.RaceName = "Zan Sycizant"
		ENDCASE
		CASE 13
			Alien.RaceName = "Boppp"
		ENDCASE
		CASE 14
			Alien.RaceName = "Micrn"
		ENDCASE
		CASE 15
			Alien.RaceName = "Sh'Byormeriim"
		ENDCASE
		CASE 16
			Alien.RaceName = "Jarl"
		ENDCASE
		CASE 17
			Alien.RaceName = "Hevasis"
		ENDCASE
		CASE 18
			Alien.RaceName = "Helessup"
		ENDCASE
		CASE 19
			Alien.RaceName = "Ninidi"
		ENDCASE
		CASE 20
			Alien.RaceName = "Unned Gorini"
		ENDCASE
	ENDSELECT
ENDIF
RETURN

+ Code Snippet

Rem Project: TLE - Aliens
Rem Created: Saturday, December 26, 2009

Rem ***** Main Source File *****

GOSUB UDT
GOSUB GLOBALS

GOSUB GENNAME

PRINT "Race Name: ", Alien.RaceName

WAIT KEY
END

UDT:
TYPE tAliens
	RaceName AS STRING
ENDTYPE
Alien AS tAliens
RETURN

GLOBALS:
GLOBAL MAXNAMES = 20
RETURN

GENNAME:
INPUT "What is the name of this race(r for random)", Alien.RaceName
IF Alien.RaceName = "r" OR Alien.RaceName = "R"
	ROLLTMP = RND(MAXNAMES)
	SELECT ROLLTMP
		CASE 0
			Alien.RaceName = "Churtran"
		ENDCASE
		CASE 1
			Alien.RaceName = "Ct'Igeltazu"
		ENDCASE
		CASE 2
			Alien.RaceName = "Romorkon"
		ENDCASE
		CASE 3
			Alien.RaceName = "Mutzachua Rakilri"
		ENDCASE
		CASE 4
			Alien.RaceName = "Chudin"
		ENDCASE
		CASE 5
			Alien.RaceName = "Maront"
		ENDCASE
		CASE 6
			Alien.RaceName = "I'Formorkon"
		ENDCASE
		CASE 7
			Alien.RaceName = "T'Satadi"
		ENDCASE
		CASE 8
			Alien.RaceName = "Danaski"
		ENDCASE
		CASE 9
			Alien.RaceName = "Oni Sharialhoo"
		ENDCASE
		CASE 10
			Alien.RaceName = "X'Kani"
		ENDCASE
		CASE 11
			Alien.RaceName = "M'Zorgarot"
		ENDCASE
		CASE 12
			Alien.RaceName = "Zan Sycizant"
		ENDCASE
		CASE 13
			Alien.RaceName = "Boppp"
		ENDCASE
		CASE 14
			Alien.RaceName = "Micrn"
		ENDCASE
		CASE 15
			Alien.RaceName = "Sh'Byormeriim"
		ENDCASE
		CASE 16
			Alien.RaceName = "Jarl"
		ENDCASE
		CASE 17
			Alien.RaceName = "Hevasis"
		ENDCASE
		CASE 18
			Alien.RaceName = "Helessup"
		ENDCASE
		CASE 19
			Alien.RaceName = "Ninidi"
		ENDCASE
		CASE 20
			Alien.RaceName = "Unned Gorini"
		ENDCASE
	ENDSELECT
ENDIF
RETURN

does this run for you??

thankyou

EDIT: Strangely when i change Alien to an array it works, wats going on here..

Back to top

Profile PM Email

MummyKillerSLO

15

Years of Service

User Offline

Joined: 5th Jul 2009

Location: Object Position Y(ObjChair)

Posted: 27th Dec 2009 00:12

Link

If I move UDT part of code outside label then program works.

Here it is, what I done:

Rem Project: TLE - Aliens
Rem Created: Saturday, December 26, 2009

Rem ***** Main Source File *****
TYPE tAliens
   RaceName AS STRING
ENDTYPE
Alien AS tAliens

GOSUB GLOBALS

GOSUB GENNAME

PRINT "Race Name: ", Alien.RaceName

WAIT KEY
END

GLOBALS:
GLOBAL MAXNAMES = 20
RETURN

GENNAME:
INPUT "What is the name of this race(r for random)", Alien.RaceName
IF Alien.RaceName = "r" OR Alien.RaceName = "R"
   ROLLTMP = RND(MAXNAMES)
   SELECT ROLLTMP
      CASE 0
         Alien.RaceName = "Churtran"
      ENDCASE
      CASE 1
         Alien.RaceName = "Ct'Igeltazu"
      ENDCASE
      CASE 2
         Alien.RaceName = "Romorkon"
      ENDCASE
      CASE 3
         Alien.RaceName = "Mutzachua Rakilri"
      ENDCASE
      CASE 4
         Alien.RaceName = "Chudin"
      ENDCASE
      CASE 5
         Alien.RaceName = "Maront"
      ENDCASE
      CASE 6
         Alien.RaceName = "I'Formorkon"
      ENDCASE
      CASE 7
         Alien.RaceName = "T'Satadi"
      ENDCASE
      CASE 8
         Alien.RaceName = "Danaski"
      ENDCASE
      CASE 9
         Alien.RaceName = "Oni Sharialhoo"
      ENDCASE
      CASE 10
         Alien.RaceName = "X'Kani"
      ENDCASE
      CASE 11
         Alien.RaceName = "M'Zorgarot"
      ENDCASE
      CASE 12
         Alien.RaceName = "Zan Sycizant"
      ENDCASE
      CASE 13
         Alien.RaceName = "Boppp"
      ENDCASE
      CASE 14
         Alien.RaceName = "Micrn"
      ENDCASE
      CASE 15
         Alien.RaceName = "Sh'Byormeriim"
      ENDCASE
      CASE 16
         Alien.RaceName = "Jarl"
      ENDCASE
      CASE 17
         Alien.RaceName = "Hevasis"
      ENDCASE
      CASE 18
         Alien.RaceName = "Helessup"
      ENDCASE
      CASE 19
         Alien.RaceName = "Ninidi"
      ENDCASE
      CASE 20
         Alien.RaceName = "Unned Gorini"
      ENDCASE
   ENDSELECT
ENDIF
RETURN

+ Code Snippet

Rem Project: TLE - Aliens
Rem Created: Saturday, December 26, 2009

Rem ***** Main Source File *****
TYPE tAliens
   RaceName AS STRING
ENDTYPE
Alien AS tAliens

GOSUB GLOBALS

GOSUB GENNAME

PRINT "Race Name: ", Alien.RaceName

WAIT KEY
END


GLOBALS:
GLOBAL MAXNAMES = 20
RETURN

GENNAME:
INPUT "What is the name of this race(r for random)", Alien.RaceName
IF Alien.RaceName = "r" OR Alien.RaceName = "R"
   ROLLTMP = RND(MAXNAMES)
   SELECT ROLLTMP
      CASE 0
         Alien.RaceName = "Churtran"
      ENDCASE
      CASE 1
         Alien.RaceName = "Ct'Igeltazu"
      ENDCASE
      CASE 2
         Alien.RaceName = "Romorkon"
      ENDCASE
      CASE 3
         Alien.RaceName = "Mutzachua Rakilri"
      ENDCASE
      CASE 4
         Alien.RaceName = "Chudin"
      ENDCASE
      CASE 5
         Alien.RaceName = "Maront"
      ENDCASE
      CASE 6
         Alien.RaceName = "I'Formorkon"
      ENDCASE
      CASE 7
         Alien.RaceName = "T'Satadi"
      ENDCASE
      CASE 8
         Alien.RaceName = "Danaski"
      ENDCASE
      CASE 9
         Alien.RaceName = "Oni Sharialhoo"
      ENDCASE
      CASE 10
         Alien.RaceName = "X'Kani"
      ENDCASE
      CASE 11
         Alien.RaceName = "M'Zorgarot"
      ENDCASE
      CASE 12
         Alien.RaceName = "Zan Sycizant"
      ENDCASE
      CASE 13
         Alien.RaceName = "Boppp"
      ENDCASE
      CASE 14
         Alien.RaceName = "Micrn"
      ENDCASE
      CASE 15
         Alien.RaceName = "Sh'Byormeriim"
      ENDCASE
      CASE 16
         Alien.RaceName = "Jarl"
      ENDCASE
      CASE 17
         Alien.RaceName = "Hevasis"
      ENDCASE
      CASE 18
         Alien.RaceName = "Helessup"
      ENDCASE
      CASE 19
         Alien.RaceName = "Ninidi"
      ENDCASE
      CASE 20
         Alien.RaceName = "Unned Gorini"
      ENDCASE
   ENDSELECT
ENDIF
RETURN

Happy to having and using DarkBASIC Professional...

Back to top

Profile PM Website

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 27th Dec 2009 00:19 Edited at: 27th Dec 2009 01:07

Link

yes it does, strange but im going to be moving things around alot and i need the udt in the sub

its always worked before??

EDIT: I have decided to dim it as Alien(0), that works so does global

Back to top

Profile PM Email

lucifer 1101

15

Years of Service

User Offline

Joined: 26th Jan 2009

Location: Melbourne, Australia

Posted: 27th Dec 2009 02:47 Edited at: 27th Dec 2009 04:08

Link

ok now thats weird, i dont have to dim it or global it or move it and it works BUT theres another problem

Rem Project: TLE - Aliens
Rem Created: Saturday, December 26, 2009

Rem ***** Main Source File *****

GOSUB UDT
GOSUB GLOBALS

GOSUB GENNAME

GOSUB PRINTVAL

DO
	RANDOMIZE TIMER()
	IF SPACEKEY() = 1
		GOSUB GENNAME
		
		GOSUB PRINTVAL
	ENDIF
LOOP

UDT:
TYPE tAliens
	RaceName AS STRING
ENDTYPE
Alien AS tAliens
RETURN

GLOBALS:
GLOBAL MAXNAMES = 20
RETURN

PRINTVAL:
CLS

PRINT "Race Name: ", Alien.RaceName
RETURN

GENNAME:
INPUT "What is the name of this race(r for random): ", Alien.RaceName
IF Alien.RaceName = "r" OR Alien.RaceName = "R"
	ROLLTMP = RND(MAXNAMES)
	SELECT ROLLTMP
		CASE 0
			Alien.RaceName = "Churtran"
		ENDCASE
		CASE 1
			Alien.RaceName = "Ct'Igeltazu"
		ENDCASE
		CASE 2
			Alien.RaceName = "Romorkon"
		ENDCASE
		CASE 3
			Alien.RaceName = "Mutzachua Rakilri"
		ENDCASE
		CASE 4
			Alien.RaceName = "Chudin"
		ENDCASE
		CASE 5
			Alien.RaceName = "Maront"
		ENDCASE
		CASE 6
			Alien.RaceName = "I'Formorkon"
		ENDCASE
		CASE 7
			Alien.RaceName = "T'Satadi"
		ENDCASE
		CASE 8
			Alien.RaceName = "Danaski"
		ENDCASE
		CASE 9
			Alien.RaceName = "Oni Sharialhoo"
		ENDCASE
		CASE 10
			Alien.RaceName = "X'Kani"
		ENDCASE
		CASE 11
			Alien.RaceName = "M'Zorgarot"
		ENDCASE
		CASE 12
			Alien.RaceName = "Zan Sycizant"
		ENDCASE
		CASE 13
			Alien.RaceName = "Boppp"
		ENDCASE
		CASE 14
			Alien.RaceName = "Micrn"
		ENDCASE
		CASE 15
			Alien.RaceName = "Sh'Byormeriim"
		ENDCASE
		CASE 16
			Alien.RaceName = "Jarl"
		ENDCASE
		CASE 17
			Alien.RaceName = "Hevasis"
		ENDCASE
		CASE 18
			Alien.RaceName = "Helessup"
		ENDCASE
		CASE 19
			Alien.RaceName = "Ninidi"
		ENDCASE
		CASE 20
			Alien.RaceName = "Unned Gorini"
		ENDCASE
	ENDSELECT
ENDIF
RETURN

+ Code Snippet

Rem Project: TLE - Aliens
Rem Created: Saturday, December 26, 2009

Rem ***** Main Source File *****

GOSUB UDT
GOSUB GLOBALS

GOSUB GENNAME

GOSUB PRINTVAL

DO
	RANDOMIZE TIMER()
	IF SPACEKEY() = 1
		GOSUB GENNAME
		
		GOSUB PRINTVAL
	ENDIF
LOOP

UDT:
TYPE tAliens
	RaceName AS STRING
ENDTYPE
Alien AS tAliens
RETURN

GLOBALS:
GLOBAL MAXNAMES = 20
RETURN

PRINTVAL:
CLS

PRINT "Race Name: ", Alien.RaceName
RETURN

GENNAME:
INPUT "What is the name of this race(r for random): ", Alien.RaceName
IF Alien.RaceName = "r" OR Alien.RaceName = "R"
	ROLLTMP = RND(MAXNAMES)
	SELECT ROLLTMP
		CASE 0
			Alien.RaceName = "Churtran"
		ENDCASE
		CASE 1
			Alien.RaceName = "Ct'Igeltazu"
		ENDCASE
		CASE 2
			Alien.RaceName = "Romorkon"
		ENDCASE
		CASE 3
			Alien.RaceName = "Mutzachua Rakilri"
		ENDCASE
		CASE 4
			Alien.RaceName = "Chudin"
		ENDCASE
		CASE 5
			Alien.RaceName = "Maront"
		ENDCASE
		CASE 6
			Alien.RaceName = "I'Formorkon"
		ENDCASE
		CASE 7
			Alien.RaceName = "T'Satadi"
		ENDCASE
		CASE 8
			Alien.RaceName = "Danaski"
		ENDCASE
		CASE 9
			Alien.RaceName = "Oni Sharialhoo"
		ENDCASE
		CASE 10
			Alien.RaceName = "X'Kani"
		ENDCASE
		CASE 11
			Alien.RaceName = "M'Zorgarot"
		ENDCASE
		CASE 12
			Alien.RaceName = "Zan Sycizant"
		ENDCASE
		CASE 13
			Alien.RaceName = "Boppp"
		ENDCASE
		CASE 14
			Alien.RaceName = "Micrn"
		ENDCASE
		CASE 15
			Alien.RaceName = "Sh'Byormeriim"
		ENDCASE
		CASE 16
			Alien.RaceName = "Jarl"
		ENDCASE
		CASE 17
			Alien.RaceName = "Hevasis"
		ENDCASE
		CASE 18
			Alien.RaceName = "Helessup"
		ENDCASE
		CASE 19
			Alien.RaceName = "Ninidi"
		ENDCASE
		CASE 20
			Alien.RaceName = "Unned Gorini"
		ENDCASE
	ENDSELECT
ENDIF
RETURN

it generates a name the first time but every other time it shows up as r, im off to a really bad start here????

EDIT: I found out that its because when i press space to generate a new name it adds the space to the input, i fixed this by adding a wait command just after 'if spaecekey'

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Variable does not exist