Adding 3D text error - GameCreators Forum

Author

Message

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 12th Mar 2014 17:43

Link

So I found a tic-tac-toe game with this really cool 3D Text that I wanted to use for my game. So I got some of the code and used it in my game but I get the error "cannot close nest." Ive tried to fix it with ends, endifs, and loops but nothing seems to work. HNere is what I added:

+ Code Snippet

Title:
Rem Title Screen Text Objects
Text3D$ = "EDUMANIA" `this is what the 3D text will display
Obj = 3 : Gosub Make_Object_3DText : Color Object Obj,rgb(255,0,0)
Text3D$ = "3D" `Text 3D
Obj = 4 : Gosub Make_Object_3DText : Color Object Obj,rgb(0,255,0)
    if inkey$() = "x" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
    if inkey$() = "h" and kFlag = 0 then mode = MODE_INSTRUCTIONS   : kFlag = 1
    if inkey$() = "m" then play music 1
RETURN

+ Code Snippet

Make_Object_3DText:

`Text3D$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890`~!@#$%^&*()-_=+[]{}\|;:',.<>/?" `All of the text that can be used
Letters = len(Text3D$) `Gets the amount of letters in the text

LimbNum = 1 `Text object limb number

Make Object cube TObj,1 : Make Mesh From Object TObj,2 `mesh used for creating all of the text
Make Object Triangle Obj,0,0,0,0,0,0,0,0,0 `Object used as a center axis for the text

for k = 1 to Letters `Loop for drawing the 3D text
Letter$ = mid$(Text3D$,k) `Gets each letter in the text
RETURN

Here is my whole game just incase the game has a problem:

#CONSTANT TRUE  = 1
#CONSTANT FALSE = 0

#CONSTANT MODE_TITLE            = 1
#CONSTANT MODE_INSTRUCTIONS     = 2
#CONSTANT MODE_SUBJECT_SELECT   = 3
#CONSTANT MODE_MATH_TEST        = 4
#CONSTANT MODE_HISTORY_TEST     = 5
#CONSTANT MODE_SCIENCE_TEST     = 6
#CONSTANT MODE_RANDOM_TEST      = 7

rem SOUNDS
load sound "E:\failbuz.wav",1 : set sound volume 1,81
load sound "E:\correct.wav",2 : set sound volume 2,81
rem load sound "E:\wrong.wav",3 : set sound volume 3,81

rem music
load music "E:\math.mp3",1

Type TestQuestion
    question as string
    choice1  as string
    choice2  as string
    choice3  as string
    choice4  as string
    answer   as integer
EndType

rem read the math questions data into the math array
restore MathQuestions
read size
dim math(size) as TestQuestion
for i = 1 to size
    read math(i).question
    read math(i).choice1
    read math(i).choice2
    read math(i).choice3
    read math(i).choice4
    read math(i).answer
next i

rem read the history questions data into the history array
restore HistoryQuestions
read size
dim history(size) as TestQuestion
for i = 1 to size
    read history(i).question
    read history(i).choice1
    read history(i).choice2
    read history(i).choice3
    read history(i).choice4
    read history(i).answer
next i

rem read the science questions data into the history array
restore ScienceQuestions
read size
dim science(size) as TestQuestion
for i = 1 to size
    read science(i).question
    read science(i).choice1
    read science(i).choice2
    read science(i).choice3
    read science(i).choice4
    read science(i).answer
next i

rem read the random questions data into the history array
restore RandomizeQuestions
read size
dim random(size) as TestQuestion
for i = 1 to size
    read random(i).question
    read random(i).choice1
    read random(i).choice2
    read random(i).choice3
    read random(i).choice4
    read random(i).answer
next i

set text font "arial"

rem set default mode to display opening title
mode = MODE_TITLE

do
    cls

if mode = MODE_TITLE          then gosub Title
    if mode = MODE_INSTRUCTIONS   then gosub Instructions
    if mode = MODE_SUBJECT_SELECT then gosub SubjectSelect
    if mode = MODE_MATH_TEST      then gosub MathTest
    if mode = MODE_HISTORY_TEST   then gosub HistoryTest
    if mode = MODE_SCIENCE_TEST   then gosub ScienceTest
    if mode = MODE_RANDOM_TEST    then gosub RandomTest
    if inkey$() = "" then kFlag = 0

rem Display timer only during the test
    if startTest = TRUE and finishedTest = FALSE
        elapsedTime = (timer() - startingTime) / 1000
        timeLeft = gameTime - elapsedTime
        if timeLeft <= 0 then gosub YouLost
        Text 20, 20, "Seconds Left: "+str$(timeLeft)
    endif
loop

YouLost:
MODE = MODE_YOU_LOST
if dontplaysound=0
   play sound 1 : dontplaysound=1
endif
load bitmap "E:\fail.bmp"
ink rgb(255,0,0),0 : set text size 60 : set text font "arial"
center text 320,120, "You Lost"
ink rgb(255,0,0),0 : set text size 30 : set text font "arial"
center text 320,200, "Press B to go back to Title"

if inkey$() = "b" then dontplaysound = 0 : gosub SubjectSelect
RETURN

Title:
Rem Title Screen Text Objects
Text3D$ = "EDUMANIA" `this is what the 3D text will display
Obj = 3 : Gosub Make_Object_3DText : Color Object Obj,rgb(255,0,0)
Text3D$ = "3D" `Text 3D
Obj = 4 : Gosub Make_Object_3DText : Color Object Obj,rgb(0,255,0)
    if inkey$() = "x" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
    if inkey$() = "h" and kFlag = 0 then mode = MODE_INSTRUCTIONS   : kFlag = 1
    if inkey$() = "m" then play music 1
RETURN

Instructions:
    ink rgb (0,50,500),0 : set text size 30
    center text 320,60, "Instructions"
    ink rgb (255,255,255),0
    set text size 15
    Center text 320,160, "Welcome to the  Edumania Test Prep! In this Game"
    center text 320,180, "you have to answer as many problems as you can"
    center text 320,200, "before the timer runs out."
    center text 320,220, "Good Luck!"
    ink rgb (200,150,0),0
    center text 320,420, "Press SPACE to start"
    center text 320,400, "Press B to go back"

if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE          : kFlag = 1
    if spacekey() = 1 and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
RETURN

SubjectSelect:
    load bitmap "E:\blackboard.bmp"
    ink rgb (255,255,255),0 : set text size 30
    center text 320,200,"Which subject do you want to select?"
    set text size 15
    text 240,280,"1.)Math"
    text 240,300,"2.)History"
    text 240,320,"3.)Science"
    text 240,340,"4.)Random"
    center text 320,380, "Press B to go back"

startTest = FALSE

if inkey$() = "1" and kFlag = 0 then mode = MODE_MATH_TEST    : kFlag = 1
    if inkey$() = "2" and kFlag = 0 then mode = MODE_HISTORY_TEST : kFlag = 1
    if inkey$() = "3" and kFlag = 0 then mode = MODE_SCIENCE_TEST : kFlag = 1
    if inkey$() = "4" and kFlag = 0 then mode = MODE_RANDOM_TEST  : kFlag = 1
    if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE        : kFlag = 1
RETURN

MathTest:
    rem Display get ready message until user has pressed space bar
    hide mouse
    load bitmap "E:\math.bmp"
    if startTest = FALSE
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, math(currentQuestion).question
            set text size 15
            text 240,280, "A.) " + math(currentQuestion).choice1
            text 240,300, "B.) " + math(currentQuestion).choice2
            text 240,320, "C.) " + math(currentQuestion).choice3
            text 240,340, "D.) " + math(currentQuestion).choice4

rem Read user input
            answer = asc(lower$(inkey$())) - 96

rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = math(currentQuestion).answer
                    inc gameTime, 5
                   play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(math())
                    finishedTest = TRUE
                    elapsedTime   = (timer() - startingTime) / 1000
                    remainingTime = gameTime - elapsedTime
                    if remainingTime = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the Math test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN

HistoryTest:
    rem Display get ready message until user has pressed space bar
    load bitmap "E:\history.bmp"
    if startTest = FALSE
        hide mouse
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(255,255,0),0 : set text size 30
            center text 320,200, history(currentQuestion).question
            ink rgb(255,255,0),0 : set text size 30
            text 240,280, "A.) " + history(currentQuestion).choice1
            text 240,300, "B.) " + history(currentQuestion).choice2
            text 240,320, "C.) " + history(currentQuestion).choice3
            text 240,340, "D.) " + history(currentQuestion).choice4

rem Read user input
            answer = asc(lower$(inkey$())) - 96

rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = history(currentQuestion).answer
                    inc gameTime, 5
                 play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(history())
                    finishedTest = TRUE
                    elapsedTime   = (timer() - startingTime) / 1000
                    remainingTime = gameTime - elapsedTime
                    if remainingTime = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the History test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN

ScienceTest:
    rem Display get ready message until user has pressed space bar
    load bitmap "E:\science2.bmp"
    if startTest = FALSE
        hide mouse
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(0,0,0),0 : set text size 35 : set text font "arial"
            center text 320,200, science(currentQuestion).question
            ink rgb(255,0,0),0 : set text size 25 : set text font "arial"
            text 240,280, "A.) " + science(currentQuestion).choice1
            text 240,300, "B.) " + science(currentQuestion).choice2
            text 240,320, "C.) " + science(currentQuestion).choice3
            text 240,340, "D.) " + science(currentQuestion).choice4

rem Read user input
            answer = asc(lower$(inkey$())) - 96

rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = science(currentQuestion).answer
                    inc gameTime, 5
                  play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(science())
                    finishedTest = TRUE
                    elapsedTime   = (timer() - startingTime) / 1000
                    remainingTime = gameTime - elapsedTime
                    if remainingTime = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the Science test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN

RandomTest:
    rem Display get ready message until user has pressed space bar
    load bitmap "E:\random.bmp"
    if startTest = FALSE
        hide mouse
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(0,0,0),0 : set text size 45 : set text font "arial"
            center text 320,200, random(currentQuestion).question
            ink rgb(0,0,0),0 : set text size 30 : set text font "ariral"
            text 240,280, "A.) " + random(currentQuestion).choice1
            text 240,300, "B.) " + random(currentQuestion).choice2
            text 240,320, "C.) " + random(currentQuestion).choice3
            text 240,340, "D.) " + random(currentQuestion).choice4

rem Read user input
            answer = asc(lower$(inkey$())) - 96

rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = random(currentQuestion).answer
                    inc gameTime, 5
                play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(random())
                    finishedTest = TRUE
                    elapsedTime = (timer() - startingTime) / 1000
                    timeLeft = gameTime - elapsedTime
                    if timeLeft = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the Random test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN

ResetTest:
    rem start test with question 1
    currentQuestion = 1
    rem start test with 15 seconds
    gameTime = 15
    rem record when test started
    startingTime = timer()
    rem mark test as unfinished
    finishedTest = FALSE
RETURN

Make_Object_3DText:

`Text3D$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890`~!@#$%^&*()-_=+[]{}\|;:',.<>/?" `All of the text that can be used
Letters = len(Text3D$) `Gets the amount of letters in the text

LimbNum = 1 `Text object limb number

Make Object cube TObj,1 : Make Mesh From Object TObj,2 `mesh used for creating all of the text
Make Object Triangle Obj,0,0,0,0,0,0,0,0,0 `Object used as a center axis for the text

for k = 1 to Letters `Loop for drawing the 3D text
Letter$ = mid$(Text3D$,k) `Gets each letter in the text
RETURN

ResetGame:
    mode = MODE_TITLE
    startTest = FALSE
RETURN

MathQuestions:
data 9
data "What is 10+45?", "22", "11", "33", "55", 4
data "What is 30x5?", "50", "60", "150", "98", 3
data "What is 56.1 + 82.3?", "138.4", "125.4", "116.2", "118.4", 1
data "What is 50 - 35 ?", "117", "104.3", "15", "89", 3
data "What is 116x2?", "201", "232", "190", "212", 2
data "What is 120/5?", "20", "24", "18", "10", 2
data "What is -6 + 9?", "2", "-3", "3", "-2" , 3
data "What is (5+8)-(6-10)?", "17", "-11", "11", "-17", 1
data "What is x? x+9=12", "-3", "6", "4", "3", 4

HistoryQuestions:
data 7
data "Who is the second president of the United States?", "Theodore Rosevelt", "John Adams", "George Washington", "Andrew Jackson", 2
data "What was the first war in the United States?", "The War of 1812", "The Indian American War", "The Revolutionary War", "World War II", 3
data "Where did the gold rush take place?", "Boston", "New York City", "Los Angeles", "San Fransisco", 4
data "Who was the president during the Civil War?", "James Buchanan", "Franklin Pierce", "Abraham Lincoln", "John Adams", 3
data "What was the first state to leave the United States in the Civil War?", "South Carolina", "North Caroline", "Louisianna", "Maryland", 1
data "When did World War 2 end?", "1930", "1896", "1945", "1980", 3
data "Which person was the first one to find the United States By Boat?", "George Washington", "Christopher Columbus", "Native Americans", "Abraham Licoln", 2

ScienceQuestions:
data 8
data "What is the smallest thing on Earth?", "molecule", "atom", "piece of dust", "protons", 2
data "What do plants release after photosynthesis?", "carbon dioxide", "iron", "sugar", "oxygen", 4
data "What is the formula for Density?", "v/m (Volume Over Mass)", "p/n (Protons Over Neutrons)", "m/v (Mass Over Volume)", "n/p (Neutrons Over Protons)", 3
data "What is the basic unit of life?", "cell", "organ", "organelle", "tissue", 1
data "When tectonic plates slide against each other, which of the following may result?", "volcanoes", "earthquakes", "constructive plate margins", "destructive plate margins", 2
data "Which is an example of a physical change?", "boiling water", "cooking an egg", "burning wood", "tarnishing silver", 3
data "Which of these is considered a gaseous planet?", "Earth", "Moon", "Pluto", "Neptune", 4
data "What is the esitmate age of Earth?", "64 million years", "64 billion years", "48 million years", "48 billion years", 2

RandomizeQuestions:
data 3
data "What is in the center of Earth?", "Volcanoes", "Nothing", "The Core", "Snow", 3
data "What color is a mirror?", "White", "Green", "No Color", "Blue", 2
data "What is the 20th letter in the alphabet?", "T", "S", "Q", "J", 1

+ Code Snippet

#CONSTANT TRUE  = 1
#CONSTANT FALSE = 0

#CONSTANT MODE_TITLE            = 1
#CONSTANT MODE_INSTRUCTIONS     = 2
#CONSTANT MODE_SUBJECT_SELECT   = 3
#CONSTANT MODE_MATH_TEST        = 4
#CONSTANT MODE_HISTORY_TEST     = 5
#CONSTANT MODE_SCIENCE_TEST     = 6
#CONSTANT MODE_RANDOM_TEST      = 7

rem SOUNDS
load sound "E:\failbuz.wav",1 : set sound volume 1,81
load sound "E:\correct.wav",2 : set sound volume 2,81
rem load sound "E:\wrong.wav",3 : set sound volume 3,81

rem music
load music "E:\math.mp3",1

Type TestQuestion
    question as string
    choice1  as string
    choice2  as string
    choice3  as string
    choice4  as string
    answer   as integer
EndType


rem read the math questions data into the math array
restore MathQuestions
read size
dim math(size) as TestQuestion
for i = 1 to size
    read math(i).question
    read math(i).choice1
    read math(i).choice2
    read math(i).choice3
    read math(i).choice4
    read math(i).answer
next i

rem read the history questions data into the history array
restore HistoryQuestions
read size
dim history(size) as TestQuestion
for i = 1 to size
    read history(i).question
    read history(i).choice1
    read history(i).choice2
    read history(i).choice3
    read history(i).choice4
    read history(i).answer
next i

rem read the science questions data into the history array
restore ScienceQuestions
read size
dim science(size) as TestQuestion
for i = 1 to size
    read science(i).question
    read science(i).choice1
    read science(i).choice2
    read science(i).choice3
    read science(i).choice4
    read science(i).answer
next i

rem read the random questions data into the history array
restore RandomizeQuestions
read size
dim random(size) as TestQuestion
for i = 1 to size
    read random(i).question
    read random(i).choice1
    read random(i).choice2
    read random(i).choice3
    read random(i).choice4
    read random(i).answer
next i


set text font "arial"

rem set default mode to display opening title
mode = MODE_TITLE

do
    cls

    if mode = MODE_TITLE          then gosub Title
    if mode = MODE_INSTRUCTIONS   then gosub Instructions
    if mode = MODE_SUBJECT_SELECT then gosub SubjectSelect
    if mode = MODE_MATH_TEST      then gosub MathTest
    if mode = MODE_HISTORY_TEST   then gosub HistoryTest
    if mode = MODE_SCIENCE_TEST   then gosub ScienceTest
    if mode = MODE_RANDOM_TEST    then gosub RandomTest
    if inkey$() = "" then kFlag = 0




    rem Display timer only during the test
    if startTest = TRUE and finishedTest = FALSE
        elapsedTime = (timer() - startingTime) / 1000
        timeLeft = gameTime - elapsedTime
        if timeLeft <= 0 then gosub YouLost
        Text 20, 20, "Seconds Left: "+str$(timeLeft)
    endif
loop

YouLost:
MODE = MODE_YOU_LOST
if dontplaysound=0
   play sound 1 : dontplaysound=1
endif
load bitmap "E:\fail.bmp"
ink rgb(255,0,0),0 : set text size 60 : set text font "arial"
center text 320,120, "You Lost"
ink rgb(255,0,0),0 : set text size 30 : set text font "arial"
center text 320,200, "Press B to go back to Title"

if inkey$() = "b" then dontplaysound = 0 : gosub SubjectSelect
RETURN



Title:
Rem Title Screen Text Objects
Text3D$ = "EDUMANIA" `this is what the 3D text will display
Obj = 3 : Gosub Make_Object_3DText : Color Object Obj,rgb(255,0,0)
Text3D$ = "3D" `Text 3D
Obj = 4 : Gosub Make_Object_3DText : Color Object Obj,rgb(0,255,0)
    if inkey$() = "x" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
    if inkey$() = "h" and kFlag = 0 then mode = MODE_INSTRUCTIONS   : kFlag = 1
    if inkey$() = "m" then play music 1
RETURN



Instructions:
    ink rgb (0,50,500),0 : set text size 30
    center text 320,60, "Instructions"
    ink rgb (255,255,255),0
    set text size 15
    Center text 320,160, "Welcome to the  Edumania Test Prep! In this Game"
    center text 320,180, "you have to answer as many problems as you can"
    center text 320,200, "before the timer runs out."
    center text 320,220, "Good Luck!"
    ink rgb (200,150,0),0
    center text 320,420, "Press SPACE to start"
    center text 320,400, "Press B to go back"

    if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE          : kFlag = 1
    if spacekey() = 1 and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
RETURN




SubjectSelect:
    load bitmap "E:\blackboard.bmp"
    ink rgb (255,255,255),0 : set text size 30
    center text 320,200,"Which subject do you want to select?"
    set text size 15
    text 240,280,"1.)Math"
    text 240,300,"2.)History"
    text 240,320,"3.)Science"
    text 240,340,"4.)Random"
    center text 320,380, "Press B to go back"

    startTest = FALSE

    if inkey$() = "1" and kFlag = 0 then mode = MODE_MATH_TEST    : kFlag = 1
    if inkey$() = "2" and kFlag = 0 then mode = MODE_HISTORY_TEST : kFlag = 1
    if inkey$() = "3" and kFlag = 0 then mode = MODE_SCIENCE_TEST : kFlag = 1
    if inkey$() = "4" and kFlag = 0 then mode = MODE_RANDOM_TEST  : kFlag = 1
    if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE        : kFlag = 1
RETURN




MathTest:
    rem Display get ready message until user has pressed space bar
    hide mouse
    load bitmap "E:\math.bmp"
    if startTest = FALSE
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, math(currentQuestion).question
            set text size 15
            text 240,280, "A.) " + math(currentQuestion).choice1
            text 240,300, "B.) " + math(currentQuestion).choice2
            text 240,320, "C.) " + math(currentQuestion).choice3
            text 240,340, "D.) " + math(currentQuestion).choice4

            rem Read user input
            answer = asc(lower$(inkey$())) - 96

            rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = math(currentQuestion).answer
                    inc gameTime, 5
                   play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(math())
                    finishedTest = TRUE
                    elapsedTime   = (timer() - startingTime) / 1000
                    remainingTime = gameTime - elapsedTime
                    if remainingTime = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the Math test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN




HistoryTest:
    rem Display get ready message until user has pressed space bar
    load bitmap "E:\history.bmp"
    if startTest = FALSE
        hide mouse
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(255,255,0),0 : set text size 30
            center text 320,200, history(currentQuestion).question
            ink rgb(255,255,0),0 : set text size 30
            text 240,280, "A.) " + history(currentQuestion).choice1
            text 240,300, "B.) " + history(currentQuestion).choice2
            text 240,320, "C.) " + history(currentQuestion).choice3
            text 240,340, "D.) " + history(currentQuestion).choice4

            rem Read user input
            answer = asc(lower$(inkey$())) - 96

            rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = history(currentQuestion).answer
                    inc gameTime, 5
                 play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(history())
                    finishedTest = TRUE
                    elapsedTime   = (timer() - startingTime) / 1000
                    remainingTime = gameTime - elapsedTime
                    if remainingTime = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the History test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN




ScienceTest:
    rem Display get ready message until user has pressed space bar
    load bitmap "E:\science2.bmp"
    if startTest = FALSE
        hide mouse
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(0,0,0),0 : set text size 35 : set text font "arial"
            center text 320,200, science(currentQuestion).question
            ink rgb(255,0,0),0 : set text size 25 : set text font "arial"
            text 240,280, "A.) " + science(currentQuestion).choice1
            text 240,300, "B.) " + science(currentQuestion).choice2
            text 240,320, "C.) " + science(currentQuestion).choice3
            text 240,340, "D.) " + science(currentQuestion).choice4

            rem Read user input
            answer = asc(lower$(inkey$())) - 96

            rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = science(currentQuestion).answer
                    inc gameTime, 5
                  play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(science())
                    finishedTest = TRUE
                    elapsedTime   = (timer() - startingTime) / 1000
                    remainingTime = gameTime - elapsedTime
                    if remainingTime = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the Science test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN

RandomTest:
    rem Display get ready message until user has pressed space bar
    load bitmap "E:\random.bmp"
    if startTest = FALSE
        hide mouse
        ink rgb(255,255,255),0 : set text size 30
        center text 320,200, "Get Ready!"
        set text size 15
        center text 320,260, "Press the space bar to go start"
        center text 320,280, "Press B to go back"
        if inkey$() = "b" and kFlag = 0 then mode = MODE_TITLE : kFlag = 1
        rem user pressed space bar to start the test
        if Spacekey() = 1 and kFlag = 0
            startTest = TRUE
            kFlag = 1
            rem reset variables needed for test
            gosub ResetTest
        endif
    else : `Test has started
        rem if test is not finished (test is still running)
        if finishedTest = FALSE
            rem Display test question and possible choices
            ink rgb(0,0,0),0 : set text size 45 : set text font "arial"
            center text 320,200, random(currentQuestion).question
            ink rgb(0,0,0),0 : set text size 30 : set text font "ariral"
            text 240,280, "A.) " + random(currentQuestion).choice1
            text 240,300, "B.) " + random(currentQuestion).choice2
            text 240,320, "C.) " + random(currentQuestion).choice3
            text 240,340, "D.) " + random(currentQuestion).choice4

            rem Read user input
            answer = asc(lower$(inkey$())) - 96

            rem If user selected a valid choice
            if answer > 0 and answer < 5 and kFlag = 0
                kFlag = 1
                rem if user selected correct answer
                if answer = random(currentQuestion).answer
                    inc gameTime, 5
                play sound 2
                else : `User selected incorrect answer
                    dec gameTime, 5
                endif
                rem move onto the next question
                inc currentQuestion
                rem if no more questions in this test, mark test as finished
                if currentQuestion > array count(random())
                    finishedTest = TRUE
                    elapsedTime = (timer() - startingTime) / 1000
                    timeLeft = gameTime - elapsedTime
                    if timeLeft = 0 then gosub YouLost
                endif
            endif
        else : `Test is finished
            ink rgb(255,255,255),0 : set text size 30
            center text 320,200, "Test Results"
            ink rgb(0,255,0),0 : set text size 20
            center text 320,280, "Congratulations! You finished the Random test with "+str$(remainingTime)+" seconds left."
            ink rgb(255,255,0),0
            center text 320,340, "Press any key to continue."
            if inkey$() <> "" and kFlag = 0 then mode = MODE_SUBJECT_SELECT : kFlag = 1
        endif
    endif
RETURN

ResetTest:
    rem start test with question 1
    currentQuestion = 1
    rem start test with 15 seconds
    gameTime = 15
    rem record when test started
    startingTime = timer()
    rem mark test as unfinished
    finishedTest = FALSE
RETURN

Make_Object_3DText:

`Text3D$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890`~!@#$%^&*()-_=+[]{}\|;:',.<>/?" `All of the text that can be used
Letters = len(Text3D$) `Gets the amount of letters in the text

LimbNum = 1 `Text object limb number

Make Object cube TObj,1 : Make Mesh From Object TObj,2 `mesh used for creating all of the text
Make Object Triangle Obj,0,0,0,0,0,0,0,0,0 `Object used as a center axis for the text

for k = 1 to Letters `Loop for drawing the 3D text
Letter$ = mid$(Text3D$,k) `Gets each letter in the text
RETURN

ResetGame:
    mode = MODE_TITLE
    startTest = FALSE
RETURN

MathQuestions:
data 9
data "What is 10+45?", "22", "11", "33", "55", 4
data "What is 30x5?", "50", "60", "150", "98", 3
data "What is 56.1 + 82.3?", "138.4", "125.4", "116.2", "118.4", 1
data "What is 50 - 35 ?", "117", "104.3", "15", "89", 3
data "What is 116x2?", "201", "232", "190", "212", 2
data "What is 120/5?", "20", "24", "18", "10", 2
data "What is -6 + 9?", "2", "-3", "3", "-2" , 3
data "What is (5+8)-(6-10)?", "17", "-11", "11", "-17", 1
data "What is x? x+9=12", "-3", "6", "4", "3", 4

HistoryQuestions:
data 7
data "Who is the second president of the United States?", "Theodore Rosevelt", "John Adams", "George Washington", "Andrew Jackson", 2
data "What was the first war in the United States?", "The War of 1812", "The Indian American War", "The Revolutionary War", "World War II", 3
data "Where did the gold rush take place?", "Boston", "New York City", "Los Angeles", "San Fransisco", 4
data "Who was the president during the Civil War?", "James Buchanan", "Franklin Pierce", "Abraham Lincoln", "John Adams", 3
data "What was the first state to leave the United States in the Civil War?", "South Carolina", "North Caroline", "Louisianna", "Maryland", 1
data "When did World War 2 end?", "1930", "1896", "1945", "1980", 3
data "Which person was the first one to find the United States By Boat?", "George Washington", "Christopher Columbus", "Native Americans", "Abraham Licoln", 2


ScienceQuestions:
data 8
data "What is the smallest thing on Earth?", "molecule", "atom", "piece of dust", "protons", 2
data "What do plants release after photosynthesis?", "carbon dioxide", "iron", "sugar", "oxygen", 4
data "What is the formula for Density?", "v/m (Volume Over Mass)", "p/n (Protons Over Neutrons)", "m/v (Mass Over Volume)", "n/p (Neutrons Over Protons)", 3
data "What is the basic unit of life?", "cell", "organ", "organelle", "tissue", 1
data "When tectonic plates slide against each other, which of the following may result?", "volcanoes", "earthquakes", "constructive plate margins", "destructive plate margins", 2
data "Which is an example of a physical change?", "boiling water", "cooking an egg", "burning wood", "tarnishing silver", 3
data "Which of these is considered a gaseous planet?", "Earth", "Moon", "Pluto", "Neptune", 4
data "What is the esitmate age of Earth?", "64 million years", "64 billion years", "48 million years", "48 billion years", 2

RandomizeQuestions:
data 3
data "What is in the center of Earth?", "Volcanoes", "Nothing", "The Core", "Snow", 3
data "What color is a mirror?", "White", "Green", "No Color", "Blue", 2
data "What is the 20th letter in the alphabet?", "T", "S", "Q", "J", 1

This is the link that we got the code from:
http://www.thegamecreators.com/?m=codebase_view&i=13b9221919d776c8709b37467372c510

If you run the game, you'll most likely get the same error so I need some help fixing it. Please help!

Back to top

Profile PM Email

Seditious

12

Years of Service

User Offline

Joined: 2nd Aug 2013

Location: France

Posted: 12th Mar 2014 17:44

Link

You're missing "next k" before RETURN in the second snippet.

Back to top

Profile PM

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 12th Mar 2014 17:51

Link

Ive tried doing it and it almost worked, but now I have an illegal number:

+ Code Snippet

Make_Object_3DText:

`Text3D$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890`~!@#$%^&*()-_=+[]{}\|;:',.<>/?" `All of the text that can be used
Letters = len(Text3D$) `Gets the amount of letters in the text

LimbNum = 1 `Text object limb number

Make Object cube TObj,1 : Make Mesh From Object TObj,2 `mesh used for creating all of the text
Make Object Triangle Obj,0,0,0,0,0,0,0,0,0 `Object used as a center axis for the text

for k = 1 to Letters `Loop for drawing the 3D text
Letter$ = mid$(Text3D$,k) `Gets each letter in the text
next k
RETURN

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 12th Mar 2014 19:24

Link

What do you mean by "now I have an illegal number"? What line exactly causes what exact error message?

Looking at the code, it seems as if you haven't defined TObj anywhere, so it's probably 0, hence make object cube called with that ID might throw such an error.

Also, I don't think you've taken all the code responsible for the 3D text. I don't see how the code you've posted here generates any 3D text at all - it's certainly related to that task, but for instance the for loop (the one that had a "next k" missing initially) doesn't really do anything right now. You should probably go back to the code where you got it from and copy the complete for block instead of just the first two lines.

Back to top

Profile PM Email Website

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 13th Mar 2014 17:56

Link

It says "Object Number Illegal at line 468. Runtime Error 7006"
Here is my line 468:

+ Code Snippet

 Offset limb Obj,LimbNum,Val(D$(0))+(k-1)*6-Letters*3+3,Val(D$(1)),0

After I saw this, I tried adding more code to see if it worked:

Make_Object_3DText:

`Text3D$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890`~!@#$%^&*()-_=+[]{}\|;:',.<>/?" `All of the text that can be used
Letters = len(Text3D$) `Gets the amount of letters in the text

LimbNum = 1 `Text object limb number

Make Object cube TObj,1 : Make Mesh From Object TObj,2 `mesh used for creating all of the text
Make Object Triangle Obj,0,0,0,0,0,0,0,0,0 `Object used as a center axis for the text

for k = 1 to Letters `Loop for drawing the 3D text
Letter$ = mid$(Text3D$,k) `Gets each letter in the text

Rem The data used for drawing all of the text (XPosition,YPosition,XSize,YSize,ZAngle,Space creates the limb)
if Letter$="A" or Letter$="a" then Text3DData$="-1.5,0,1,5,0 0,2,2,1,0 0,0,2,1,0 1.5,0,1,5,0 "
if Letter$="B" or Letter$="b" then Text3DData$="-1.5,0,1,5,0 0,2,2,1,0 0,0,2,1,0 0,-2,2,1,0 1.5,0,1,3,0 1.25,1.75,.75,1.4142,45 1.25,-1.75,.75,1.4142,135 "
if Letter$="C" or Letter$="c" then Text3DData$="-2,0,1,5,0 0,2,3,1,0 0,-2,3,1,0 "
if Letter$="D" or Letter$="d" then Text3DData$="-1.5,0,1,5,0 0,2,2,1,0 0,-2,2,1,0 1.5,0,1,3,0 1.25,1.75,.75,1.4142,45 1.25,-1.75,.75,1.4142,135 "
if Letter$="E" or Letter$="e" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 .5,-2,2,1,0 "
if Letter$="F" or Letter$="f" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 "
if Letter$="G" or Letter$="g" then Text3DData$="-2,0,1,5,0 .5,2,4,1,0 1.5,0,2,1,0 .5,-2,4,1,0 2,-1,1,1,0 "
if Letter$="H" or Letter$="h" then Text3DData$="-1.5,0,1,5,0 0,0,2,1,0 1.5,0,1,5,0 "
if Letter$="I" or Letter$="i" then Text3DData$="0,0,1,3,0 0,2,3,1,0 0,-2,3,1,0 "
if Letter$="J" or Letter$="j" then Text3DData$="1,0,1,5,0 -1,-1,1,1,0 -.5,-2,2,1,0 "
if Letter$="K" or Letter$="k" then Text3DData$="-1,0,1,5,0 1.1464,-2.1464,0.7072,0.7072,0 1.1464,2.1464,.7072,.7072,0 .086,1.086,3,1,45 .086,-1.086,1,3,45 "
if Letter$="L" or Letter$="l" then Text3DData$="-1,0,1,5,0 0.5,-2,2,1,0 "
if Letter$="M" or Letter$="m" then Text3DData$="-2,0,1,5,0 2,0,1,5,0 0,2,3,1,0 0,0,1,3,0 "
if Letter$="N" or Letter$="n" then Text3DData$="-1.5,0,1,5,0 1.5,0,1,5,0 0,0,5.2915,1,-57.5 "
if Letter$="O" or Letter$="o" then Text3DData$="-2,0,1,2,0 2,0,1,2,0 0,-2,2,1,0 0,2,2,1,0 -1.4,1.4,2.12,1,45 1.4,-1.4,2.12,1,45 1.4,1.4,1,2.12,45 -1.4,-1.4,1,2.12,45 "
if Letter$="P" or Letter$="p" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 1,1,1,1,0 "
if Letter$="Q" or Letter$="q" then Text3DData$="1.4,-1.4,1,2.5,45 -2,0,1,2,0 2,0,1,2,0 0,-2,2,1,0 0,2,2,1,0 -1.4,1.4,2.12,1,45 1.4,-1.4,2.12,1,45 1.4,1.4,1,2.12,45 -1.4,-1.4,1,2.12,45 "
if Letter$="R" or Letter$="r" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 1,1,1,1,0 .3,-1.3,1,2.394,45 1.1464,-2.1464,.7072,.7072,0 "
if Letter$="S" or Letter$="s" then Text3DData$="0,2,3,1,0 -1,1,1,1,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="T" or Letter$="t" then Text3DData$="0,2,3,1,0 0,-.5,1,4,0 "
if Letter$="U" or Letter$="u" then Text3DData$="-1.2,0,1,5,0 1.2,0,1,5,0 0,-2,2,1,0 "
if Letter$="V" or Letter$="v" then Text3DData$="0,-2,1.25,1,0 -1,0,4.95,1,-70 1,0,4.95,1,70 "
if Letter$="W" or Letter$="w" then Text3DData$="0,0,.6,1,0 -.9,-1,3.07,1,50 .9,-1,3.07,1,-50 -2,0,1,5,0 2,0,1,5,0 "
if Letter$="X" or Letter$="x" then Text3DData$="-2.146,2.146,.707,0.707,0 2.146,2.146,0.707,0.707,0 -2.146,-2.146,0.707,0.707,0 2.146,-2.146,0.707,0.707,0 0,0,6.07,1,45 0,0,1,6.07,45 "
if Letter$="Y" or Letter$="y" then Text3DData$="0,-1,1,3,0 1.085,1.085,3,1,45 2.146,2.146,.707,0.707,0 -1.085,1.085,1,3,45 -2.146,2.146,.707,0.707,0 "
if Letter$="Z" or Letter$="z" then Text3DData$="0,2,3.5,1,0 0,-2,3.5,1,0 0,0,4.5,1,53 "
if Letter$="0" then Text3DData$="0,2,3,1,0 0,-2,3,1,0 1,0,1,3,0 -1,0,1,3,0 "
if Letter$="1" then Text3DData$="0,0,1,5,0 "
if Letter$="2" then Text3DData$="0,2,3,1,0 1,1,1,1,0 0,0,3,1,0 -1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="3" then Text3DData$="1,0,1,5,0 -.5,2,2,1,0 -.5,0,2,1,0 -.5,-2,2,1,0 "
if Letter$="4" then Text3DData$="0,0,3,1,0 1,1.5,1,2,0 -1,1.5,1,2,0 1,-1.5,1,2,0 "
if Letter$="5" then Text3DData$="0,2,3,1,0 -1,1,1,1,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="6" then Text3DData$="0,2,3,1,0 -1,0,1,3,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="7" then Text3DData$="0,2,3,1,0 1,0,1,5,0 "
if Letter$="8" then Text3DData$="-1,0,1,5,0 1,0,1,5,0 0,2,1,1,0 0,0,1,1,0 0,-2,1,1,0 "
if Letter$="9" then Text3DData$="-1,1,1,3,0 0,2,1,1,0 0,0,1,1,0 1,0,1,5,0 "
if Letter$="-" then Text3DData$="0,0,4,1,0 "
if Letter$="+" then Text3DData$="0,0,4,1,0 0,0,1,4,0 "
if Letter$="*" then Text3DData$="0,0,4,1,45 0,0,1,4,45 "
if Letter$="/" then Text3DData$="0,0,5,1,45 "
if Letter$="!" then Text3DData$="0,-2,.8,.8,0 0,-2,.8,.8,22.5 0,-2,.8,.8,45 0,-2,.8,.8,68 0,.8,1,3.4,0 "
if Letter$="@" then Text3DData$="1,.7,3,1,0 1,-.7,3,1,0 -.8,0,1,2.4,0 2,1,1,3,0 0,2,5,1,0 -2,0,1,5,0 0,-2,5,1,0 "
if Letter$="#" then Text3DData$="-1,0,1,5,0 1,0,1,5,0 0,1,5,1,0 0,-1,5,1,0 "
if Letter$="$" then Text3DData$="0,2,3,1,0 -1,1,1,1,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 0,0,.5,6,0 "
if Letter$="%" then Text3DData$="0,0,5,1,45 1.5,-1.5,1,1,0 1.5,-1.5,1,1,45 -1.5,1.5,1,1,0 -1.5,1.5,1,1,45 "
if Letter$="^" then Text3DData$="-.71,1,3,1,45 .71,1,1,3,45 "
if Letter$="&" then Text3DData$=".3,-.3,1,5,45 .6,-1.4,3,1,45 -.7,-1.5,1,2,45 0,0,4,1,45 0,1.5,3.2,1,0 "
if Letter$="(" then Text3DData$="0,0,1,1.82,0 .287,1.5,1,1.7,-22.5 .287,-1.5,1,1.7,22.5 "
if Letter$=")" then Text3DData$="0,0,1,1.82,0 -.287,1.5,1,1.7,22.5 -.287,-1.5,1,1.7,-22.5 "
if Letter$="_" then Text3DData$="0,-2.3,6,.5,0 "
if Letter$="=" then Text3DData$="0,1,4,1,0 0,-1,4,1,0 "
if Letter$="\" then Text3DData$="0,0,1,5,45 "
if Letter$="|" then Text3DData$="0,0,.5,5,0 "
if Letter$="[" then Text3DData$="0,0,.5,5,0 .5,2.25,1,.5,0 .5,-2.25,1,.5,0 "
if Letter$="]" then Text3DData$="0,0,.5,5,0 -.5,2.25,1,.5,0 -.5,-2.25,1,.5,0 "
if Letter$="{" then Text3DData$="0,0,.5,5,0 .5,2.25,1,.5,0 .5,-2.25,1,.5,0 -.5,0,.5,.5,0 "
if Letter$="}" then Text3DData$="0,0,.5,5,0 -.5,2.25,1,.5,0 -.5,-2.25,1,.5,0 .5,0,.5,.5,0 "
if Letter$=":" then Text3DData$="0,1,1,1,0 0,-1,1,1,0 "
if Letter$=";" then Text3DData$="0,1,1,1,0 0,-1,1,1,0 -.141,-1.8,1,1,-20 "
if Letter$="," then Text3DData$="0,-1,1,1,0 -.141,-1.8,1,1,-20 "
if Letter$="." then Text3DData$="0,-2,1,1,0 "
if Letter$="'" then Text3DData$="0,1.5,1,2,0 "
if Letter$="<" then Text3DData$="-2,0,1,1.25,0 0,1,1,4.95,-70 0,-1,1,4.95,70 "
if Letter$=">" then Text3DData$="2,0,1,1.25,0 0,-1,1,4.95,-70 0,1,1,4.95,70 "
if Letter$="?" then Text3DData$="0,-2,1,1,0 -1,1,1,1,0 1,1,1,1,0 0,2,1,1,0 -.65,1.65,1.414,1,45 .5,.2,1.83,1,45 .65,1.65,1,1.414,45 0,-.6,1,1,0 "
if Letter$="`" then Text3DData$="0,2,.5,1,60 "
if Letter$="~" then Text3DData$="-1,0,.5,1.44,-60 0,0,.5,1.44,60 1,0,.5,1.44,-60 "
if Letter$=" " then goto SkipLetter

TextDataSize = len(Text3DData$) `The amount of text used in the data for a specific letter

Num = 0 `variable for reading the data for the 3D text
Add Limb Obj,LimbNum,TObj `Creates the first object limb for a letter

for i = 1 to TextDataSize `Loop for drawing a 3D letter/number/etc.
if mid$(Text3DData$,i)="," then inc Num,1 `reads a comma in the data

Rem Reads a space in the data
Rem Positions the limbs, scales the limbs, and rotates the limbs based on what is in the text data (Draws the text)
if mid$(Text3DData$,i)=" "
Offset limb Obj,LimbNum,Val(D$(0))+(k-1)*6-Letters*3+3,Val(D$(1)),0
scale limb Obj,LimbNum,Val(D$(2))*100,Val(D$(3))*100,100 : rotate limb Obj,LimbNum,0,0,Val(D$(4))
if i <> TextDataSize `Creates the next limb if it is not the last limb
inc LimbNum,1 : Add Limb Obj,LimbNum,2
endif
Num = 0 : for j = 0 to 4 : D$(j) = "" : next j `Clears all of the data for the next limb
endif

Rem if the text data is not a space and is not a comma then read the number data
if mid$(Text3DData$,i)<>" " and mid$(Text3DData$,i)<>"," then D$(Num)=D$(Num)+mid$(Text3DData$,i)

next i

inc LimbNum,1
SkipLetter: `Skips a letter if there is a space in the text

next k

Delete Object TObj `deletes the temporary object mesh used to create the text
return `returns the the program

+ Code Snippet

Make_Object_3DText:

`Text3D$ = "ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890`~!@#$%^&*()-_=+[]{}\|;:',.<>/?" `All of the text that can be used
Letters = len(Text3D$) `Gets the amount of letters in the text

LimbNum = 1 `Text object limb number

Make Object cube TObj,1 : Make Mesh From Object TObj,2 `mesh used for creating all of the text
Make Object Triangle Obj,0,0,0,0,0,0,0,0,0 `Object used as a center axis for the text

for k = 1 to Letters `Loop for drawing the 3D text
Letter$ = mid$(Text3D$,k) `Gets each letter in the text

Rem The data used for drawing all of the text (XPosition,YPosition,XSize,YSize,ZAngle,Space creates the limb)
if Letter$="A" or Letter$="a" then Text3DData$="-1.5,0,1,5,0 0,2,2,1,0 0,0,2,1,0 1.5,0,1,5,0 "
if Letter$="B" or Letter$="b" then Text3DData$="-1.5,0,1,5,0 0,2,2,1,0 0,0,2,1,0 0,-2,2,1,0 1.5,0,1,3,0 1.25,1.75,.75,1.4142,45 1.25,-1.75,.75,1.4142,135 "
if Letter$="C" or Letter$="c" then Text3DData$="-2,0,1,5,0 0,2,3,1,0 0,-2,3,1,0 "
if Letter$="D" or Letter$="d" then Text3DData$="-1.5,0,1,5,0 0,2,2,1,0 0,-2,2,1,0 1.5,0,1,3,0 1.25,1.75,.75,1.4142,45 1.25,-1.75,.75,1.4142,135 "
if Letter$="E" or Letter$="e" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 .5,-2,2,1,0 "
if Letter$="F" or Letter$="f" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 "
if Letter$="G" or Letter$="g" then Text3DData$="-2,0,1,5,0 .5,2,4,1,0 1.5,0,2,1,0 .5,-2,4,1,0 2,-1,1,1,0 "
if Letter$="H" or Letter$="h" then Text3DData$="-1.5,0,1,5,0 0,0,2,1,0 1.5,0,1,5,0 "
if Letter$="I" or Letter$="i" then Text3DData$="0,0,1,3,0 0,2,3,1,0 0,-2,3,1,0 "
if Letter$="J" or Letter$="j" then Text3DData$="1,0,1,5,0 -1,-1,1,1,0 -.5,-2,2,1,0 "
if Letter$="K" or Letter$="k" then Text3DData$="-1,0,1,5,0 1.1464,-2.1464,0.7072,0.7072,0 1.1464,2.1464,.7072,.7072,0 .086,1.086,3,1,45 .086,-1.086,1,3,45 "
if Letter$="L" or Letter$="l" then Text3DData$="-1,0,1,5,0 0.5,-2,2,1,0 "
if Letter$="M" or Letter$="m" then Text3DData$="-2,0,1,5,0 2,0,1,5,0 0,2,3,1,0 0,0,1,3,0 "
if Letter$="N" or Letter$="n" then Text3DData$="-1.5,0,1,5,0 1.5,0,1,5,0 0,0,5.2915,1,-57.5 "
if Letter$="O" or Letter$="o" then Text3DData$="-2,0,1,2,0 2,0,1,2,0 0,-2,2,1,0 0,2,2,1,0 -1.4,1.4,2.12,1,45 1.4,-1.4,2.12,1,45 1.4,1.4,1,2.12,45 -1.4,-1.4,1,2.12,45 "
if Letter$="P" or Letter$="p" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 1,1,1,1,0 "
if Letter$="Q" or Letter$="q" then Text3DData$="1.4,-1.4,1,2.5,45 -2,0,1,2,0 2,0,1,2,0 0,-2,2,1,0 0,2,2,1,0 -1.4,1.4,2.12,1,45 1.4,-1.4,2.12,1,45 1.4,1.4,1,2.12,45 -1.4,-1.4,1,2.12,45 "
if Letter$="R" or Letter$="r" then Text3DData$="-1,0,1,5,0 .5,2,2,1,0 .5,0,2,1,0 1,1,1,1,0 .3,-1.3,1,2.394,45 1.1464,-2.1464,.7072,.7072,0 "
if Letter$="S" or Letter$="s" then Text3DData$="0,2,3,1,0 -1,1,1,1,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="T" or Letter$="t" then Text3DData$="0,2,3,1,0 0,-.5,1,4,0 "
if Letter$="U" or Letter$="u" then Text3DData$="-1.2,0,1,5,0 1.2,0,1,5,0 0,-2,2,1,0 "
if Letter$="V" or Letter$="v" then Text3DData$="0,-2,1.25,1,0 -1,0,4.95,1,-70 1,0,4.95,1,70 "
if Letter$="W" or Letter$="w" then Text3DData$="0,0,.6,1,0 -.9,-1,3.07,1,50 .9,-1,3.07,1,-50 -2,0,1,5,0 2,0,1,5,0 "
if Letter$="X" or Letter$="x" then Text3DData$="-2.146,2.146,.707,0.707,0 2.146,2.146,0.707,0.707,0 -2.146,-2.146,0.707,0.707,0 2.146,-2.146,0.707,0.707,0 0,0,6.07,1,45 0,0,1,6.07,45 "
if Letter$="Y" or Letter$="y" then Text3DData$="0,-1,1,3,0 1.085,1.085,3,1,45 2.146,2.146,.707,0.707,0 -1.085,1.085,1,3,45 -2.146,2.146,.707,0.707,0 "
if Letter$="Z" or Letter$="z" then Text3DData$="0,2,3.5,1,0 0,-2,3.5,1,0 0,0,4.5,1,53 "
if Letter$="0" then Text3DData$="0,2,3,1,0 0,-2,3,1,0 1,0,1,3,0 -1,0,1,3,0 "
if Letter$="1" then Text3DData$="0,0,1,5,0 "
if Letter$="2" then Text3DData$="0,2,3,1,0 1,1,1,1,0 0,0,3,1,0 -1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="3" then Text3DData$="1,0,1,5,0 -.5,2,2,1,0 -.5,0,2,1,0 -.5,-2,2,1,0 "
if Letter$="4" then Text3DData$="0,0,3,1,0 1,1.5,1,2,0 -1,1.5,1,2,0 1,-1.5,1,2,0 "
if Letter$="5" then Text3DData$="0,2,3,1,0 -1,1,1,1,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="6" then Text3DData$="0,2,3,1,0 -1,0,1,3,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 "
if Letter$="7" then Text3DData$="0,2,3,1,0 1,0,1,5,0 "
if Letter$="8" then Text3DData$="-1,0,1,5,0 1,0,1,5,0 0,2,1,1,0 0,0,1,1,0 0,-2,1,1,0 "
if Letter$="9" then Text3DData$="-1,1,1,3,0 0,2,1,1,0 0,0,1,1,0 1,0,1,5,0 "
if Letter$="-" then Text3DData$="0,0,4,1,0 "
if Letter$="+" then Text3DData$="0,0,4,1,0 0,0,1,4,0 "
if Letter$="*" then Text3DData$="0,0,4,1,45 0,0,1,4,45 "
if Letter$="/" then Text3DData$="0,0,5,1,45 "
if Letter$="!" then Text3DData$="0,-2,.8,.8,0 0,-2,.8,.8,22.5 0,-2,.8,.8,45 0,-2,.8,.8,68 0,.8,1,3.4,0 "
if Letter$="@" then Text3DData$="1,.7,3,1,0 1,-.7,3,1,0 -.8,0,1,2.4,0 2,1,1,3,0 0,2,5,1,0 -2,0,1,5,0 0,-2,5,1,0 "
if Letter$="#" then Text3DData$="-1,0,1,5,0 1,0,1,5,0 0,1,5,1,0 0,-1,5,1,0 "
if Letter$="$" then Text3DData$="0,2,3,1,0 -1,1,1,1,0 0,0,3,1,0 1,-1,1,1,0 0,-2,3,1,0 0,0,.5,6,0 "
if Letter$="%" then Text3DData$="0,0,5,1,45 1.5,-1.5,1,1,0 1.5,-1.5,1,1,45 -1.5,1.5,1,1,0 -1.5,1.5,1,1,45 "
if Letter$="^" then Text3DData$="-.71,1,3,1,45 .71,1,1,3,45 "
if Letter$="&" then Text3DData$=".3,-.3,1,5,45 .6,-1.4,3,1,45 -.7,-1.5,1,2,45 0,0,4,1,45 0,1.5,3.2,1,0 "
if Letter$="(" then Text3DData$="0,0,1,1.82,0 .287,1.5,1,1.7,-22.5 .287,-1.5,1,1.7,22.5 "
if Letter$=")" then Text3DData$="0,0,1,1.82,0 -.287,1.5,1,1.7,22.5 -.287,-1.5,1,1.7,-22.5 "
if Letter$="_" then Text3DData$="0,-2.3,6,.5,0 "
if Letter$="=" then Text3DData$="0,1,4,1,0 0,-1,4,1,0 "
if Letter$="\" then Text3DData$="0,0,1,5,45 "
if Letter$="|" then Text3DData$="0,0,.5,5,0 "
if Letter$="[" then Text3DData$="0,0,.5,5,0 .5,2.25,1,.5,0 .5,-2.25,1,.5,0 "
if Letter$="]" then Text3DData$="0,0,.5,5,0 -.5,2.25,1,.5,0 -.5,-2.25,1,.5,0 "
if Letter$="{" then Text3DData$="0,0,.5,5,0 .5,2.25,1,.5,0 .5,-2.25,1,.5,0 -.5,0,.5,.5,0 "
if Letter$="}" then Text3DData$="0,0,.5,5,0 -.5,2.25,1,.5,0 -.5,-2.25,1,.5,0 .5,0,.5,.5,0 "
if Letter$=":" then Text3DData$="0,1,1,1,0 0,-1,1,1,0 "
if Letter$=";" then Text3DData$="0,1,1,1,0 0,-1,1,1,0 -.141,-1.8,1,1,-20 "
if Letter$="," then Text3DData$="0,-1,1,1,0 -.141,-1.8,1,1,-20 "
if Letter$="." then Text3DData$="0,-2,1,1,0 "
if Letter$="'" then Text3DData$="0,1.5,1,2,0 "
if Letter$="<" then Text3DData$="-2,0,1,1.25,0 0,1,1,4.95,-70 0,-1,1,4.95,70 "
if Letter$=">" then Text3DData$="2,0,1,1.25,0 0,-1,1,4.95,-70 0,1,1,4.95,70 "
if Letter$="?" then Text3DData$="0,-2,1,1,0 -1,1,1,1,0 1,1,1,1,0 0,2,1,1,0 -.65,1.65,1.414,1,45 .5,.2,1.83,1,45 .65,1.65,1,1.414,45 0,-.6,1,1,0 "
if Letter$="`" then Text3DData$="0,2,.5,1,60 "
if Letter$="~" then Text3DData$="-1,0,.5,1.44,-60 0,0,.5,1.44,60 1,0,.5,1.44,-60 "
if Letter$=" " then goto SkipLetter

TextDataSize = len(Text3DData$) `The amount of text used in the data for a specific letter

Num = 0 `variable for reading the data for the 3D text
Add Limb Obj,LimbNum,TObj `Creates the first object limb for a letter

for i = 1 to TextDataSize `Loop for drawing a 3D letter/number/etc.
if mid$(Text3DData$,i)="," then inc Num,1 `reads a comma in the data

Rem Reads a space in the data
Rem Positions the limbs, scales the limbs, and rotates the limbs based on what is in the text data (Draws the text)
if mid$(Text3DData$,i)=" "
Offset limb Obj,LimbNum,Val(D$(0))+(k-1)*6-Letters*3+3,Val(D$(1)),0
scale limb Obj,LimbNum,Val(D$(2))*100,Val(D$(3))*100,100 : rotate limb Obj,LimbNum,0,0,Val(D$(4))
if i <> TextDataSize `Creates the next limb if it is not the last limb
inc LimbNum,1 : Add Limb Obj,LimbNum,2
endif
Num = 0 : for j = 0 to 4 : D$(j) = "" : next j `Clears all of the data for the next limb
endif

Rem if the text data is not a space and is not a comma then read the number data
if mid$(Text3DData$,i)<>" " and mid$(Text3DData$,i)<>"," then D$(Num)=D$(Num)+mid$(Text3DData$,i)

next i

inc LimbNum,1
SkipLetter: `Skips a letter if there is a space in the text

next k

Delete Object TObj `deletes the temporary object mesh used to create the text
return `returns the the program

I tried running it with the game and I have a new error that says:
Perimeter for 'Val' does no match 'string' at line 555.
This is my line 555

+ Code Snippet

Offset limb Obj,LimbNum,Val(D$(0))+(k-1)*6-Letters*3+3,Val(D$(1)),0

Back to top

Profile PM Email

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 13th Mar 2014 21:30

Link

Where is D$ defined and given values in your code?

Quote: "Perimeter for 'Val' does no match 'string' at line 555"

Parameter, surely?

Powered by Free Banners

Back to top

Profile PM Email

timer help

12

Years of Service

User Offline

Joined: 14th Jan 2014

Location:

Posted: 14th Mar 2014 18:16

Link

I have no idea, I tried adding some code to the game and it didn't work. I added as much as I could that the game would understand. If there isn't a way to add it to the code, is there any way I can still make my title have 3D text?

Back to top

Profile PM Email

ShellfishGames

13

Years of Service

User Offline

Joined: 6th Feb 2013

Location:

Posted: 14th Mar 2014 18:25

Link

d3d_func plugin offers a command "d3d_make_3dtext", which seems to suit your needs. I never used it, so I don't know how well it works, but it probably does the job. Just google "d3d func", you'll probably find it. Was created by a forum user named Cloggy as far as I remember.

Back to top

Profile PM Email Website

Barry Pythagoras

12

Years of Service

User Offline

Joined: 14th Mar 2014

Location:

Posted: 25th Mar 2014 15:46

Link

Yeah d3d works great!

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Adding 3D text error