-----------------------------------

Velocity

Sun Nov 06, 2011 11:49 am


I need help finding out how to alter the code in the following way : Within the thread

-----------------------------------

What is it you are trying to achieve?

I am trying to find out the answer as to what i had wrote below.

What is the problem you are having?

I am trying figure out how to change the code so that after it finishes scene 1, it will switch to scene 2.
I am also trying to figure out how to make it so that when the green light goes on, the car will drive, but when the red light comes it will stop.

Describe what you have tried to solve this problem

I have tried altering the code in many ways, and have tried to find tutorials around this forum for help.
I could not find any tutorials. I have also tried to delete some of the code to possibly make it work, but i am now stumped, and have no clue how to fix either of them.

Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)

Nothing else relevant.



View.Set ("graphics:800;700,offscreenonly,nobuttonbar")
var keyinput : string (1) := "x"
process playstuff
    loop
        sound (160, 516)
        delay (100)
        sound (270, 200)
        delay (100)
        sound (230, 230)
        delay (100)
        sound (476, 520)
        delay (100)
        sound (236, 250)
        delay (100)
    end loop
end playstuff
fork playstuff
loop
    for i : 1 .. 800
        delay (10)
        cls
        %----------------------------------------------------------------%
        colourback (5)
        cls
        %Defense Wall
        drawfillbox (0, 125, 800, 275, 28)
        %end Defense Wall
        %cloud
        drawfillbox (100, 525, 450, 575, white)
        %end cloud
        %sun
        drawfilloval (600, 600, 50, 50, yellow)
        %end sun
        %grass
        drawfillbox (800, 200, 0, 100, green)
        %end grass
        %sidewalk
        drawfillbox (0, 105, 800, 140, 27)
        drawfillbox (75, 105, 199, 150, 27)
        drawfillbox (75, 105, 80, 150, black)
        drawfillbox (194, 105, 199, 150, black)
        drawline (300, 105, 300, 140, black)
        drawline (400, 105, 400, 140, black)
        drawline (500, 105, 500, 140, black)
        drawline (600, 105, 600, 140, black)
        drawline (700, 105, 700, 140, black)
        drawfillbox (70, 105, 75, 105, black)
        %end sidewalk
        %house
        drawfillbox (450, 300, 200, 150, brightred)
        %end house
        %garage
        drawfillbox (75, 150, 199, 250, 4)
        drawfill (135, 170, blue, 4)
        drawline (75, 150, 75, 250, black)
        drawline (199, 150, 199, 250, black)
        drawline (75, 175, 199, 175, black)
        drawline (75, 200, 199, 200, black)
        drawline (75, 225, 199, 225, black)
        drawline (75, 250, 199, 250, black)
        %end garage
        %door
        drawfillbox (313, 130, 347, 150, 27)
        drawfillbox (318, 150, 343, 200, 22)
        drawfilloval (335, 165, 3, 3, black)
        %end door
        %windows
        drawfillbox (250, 240, 300, 280, 77)
        drawline (275, 240, 275, 280, black)
        drawline (250, 260, 300, 260, black)
        drawfillbox (350, 240, 400, 280, 77)
        drawline (375, 240, 375, 280, black)
        drawline (350, 260, 400, 260, black)
        %end windows
        %road
        drawfillbox (800, 0, 0, 105, black)
        %end road
        %Car1
        drawfillbox (70 + i, 11, 120 + i, 31, 141)
        drawfillbox (85 + i, 31, 105 + i, 41, 71)
        drawfilloval (75 + i, 5, 8, 8, 24)
        drawfilloval (115 + i, 5, 8, 8, 24)
        %end Car1
        %Car2
        drawfillbox (670 - i, 75, 720 - i, 105, 14)
        drawfillbox (685 - i, 105, 705 - i, 115, 41)
        drawfilloval (675 - i, 75, 6, 6, 24)
        drawfilloval (715 - i, 75, 6, 6, 24)
        %end Car2
        %YellowRoundStripes
        drawfillbox (150, 55, 40, 45, yellow)
        drawfillbox (350, 55, 240, 45, yellow)
        drawfillbox (550, 55, 440, 45, yellow)
        drawfillbox (750, 55, 640, 45, yellow)
        %end YellowRoundStripes
        %roof
        drawline (200, 300, 325, 350, brown)
        drawline (450, 300, 325, 350, brown)
        drawline (200, 300, 450, 300, brown)
        drawfill (250, 315, 56, brown)
        %end roof
        %trees
        %left tree
        drawline (465, 250, 600, 250, brown)
        drawline (465, 250, 532, 350, brown)
        drawline (600, 250, 532, 350, brown)
        drawfill (500, 300, 10, brown)
        drawfillbox (520, 250, 545, 200, brown)
        %right tree
        drawline (650, 250, 775, 250, brown)
        drawline (650, 250, 712, 350, brown)
        drawline (775, 250, 712, 350, brown)
        drawfill (712, 275, 10, brown)
        drawfillbox (725, 250, 700, 200, brown)
        %end trees
        %chimney
        drawfillbox (200, 300, 250, 365, 56)
        %end chimney
        %traffic light
        if i < 200 then

            drawfillbox (615, 140, 635, 300, 11)
            drawfilloval (625, 280, 8, 8, green)

        elsif i < 300 then
            drawfillbox (615, 140, 635, 300, 11)
            drawfilloval (625, 280, 8, 8, 11)
            drawfilloval (625, 255, 8, 8, yellow)

        else
            drawfillbox (615, 140, 635, 300, 11)
            drawfilloval (625, 255, 8, 8, 11)
            drawfilloval (625, 230, 8, 8, red)

        end if
        View.UpdateArea (0, 0, maxx, maxy)
        %end traffic light
        %END SCENE 1
    end for
end loop
%----------------------------------------------------------------%
%SCENE 2
for i : 1 .. 400
    cls
    delay (1000)
    colourback (blue)
    cls
    %Defense Wall
    drawfillbox (0, 125, 800, 275, 28)
    %end Defense Wall
    %moon
    drawfilloval (700, 600, 50, 50, 24)
    %end moon
    drawfillbox (800, 200, 0, 100, green)
    drawfillbox (0, 105, 800, 140, 27)
    drawfillbox (75, 105, 199, 150, 27)
    drawfillbox (75, 105, 80, 150, black)
    drawfillbox (194, 105, 199, 150, black)
    drawline (300, 105, 300, 140, black)
    drawline (400, 105, 400, 140, black)
    drawline (500, 105, 500, 140, black)
    drawline (600, 105, 600, 140, black)
    drawline (700, 105, 700, 140, black)
    drawfillbox (70, 105, 75, 105, black)
    drawfillbox (75, 150, 199, 250, 4)
    drawfill (135, 170, blue, 4)
    drawline (75, 150, 75, 250, black)
    drawline (199, 150, 199, 250, black)
    drawline (75, 175, 199, 175, black)
    drawline (75, 200, 199, 200, black)
    drawline (75, 225, 199, 225, black)
    drawline (75, 250, 199, 250, black)
    drawfillbox (450, 300, 200, 150, brightred)
    drawfillbox (313, 130, 348, 150, 27)
    drawfillbox (318, 150, 343, 200, 22)
    drawfilloval (335, 165, 3, 3, black)
    drawfillbox (800, 0, 0, 105, black)
    drawfillbox (75, 6, 115, 26, 14)
    drawfillbox (85, 26, 105, 36, 41)
    drawfilloval (78, 5, 6, 6, 24)
    drawfilloval (113, 5, 6, 6, 24)
    drawfillbox (675, 75, 715, 95, 141)
    drawfillbox (685, 95, 705, 105, 71)
    drawfilloval (680, 75, 8, 8, 24)
    drawfilloval (710, 75, 8, 8, 24)
    drawfillbox (150, 55, 40, 45, yellow)
    drawfillbox (350, 55, 240, 45, yellow)
    drawfillbox (550, 55, 440, 45, yellow)
    drawfillbox (750, 55, 640, 45, yellow)
    drawline (200, 300, 325, 350, brown)
    drawfillbox (250, 240, 300, 280, 77)
    drawline (275, 240, 275, 280, black)
    drawline (250, 260, 300, 260, black)
    drawline (450, 300, 325, 350, brown)
    drawline (200, 300, 450, 300, brown)
    drawfill (250, 315, 56, brown)
    drawfillbox (350, 240, 400, 280, 77)
    drawfilloval (375, 260, 15, 15, 31)
    drawfillbox (375, 240, 370, 250, 31)
    drawfillbox (200, 300, 250, 365, 56)
    %stars
    drawfillstar (150, 600, 200, 650, yellow)
    drawfillstar (300, 400, 350, 450, yellow)
    drawfillstar (400, 600, 450, 650, yellow)
    %end stars
    %trees
    %left tree
    drawline (465, 250, 600, 250, brown)
    drawline (465, 250, 532, 350, brown)
    drawline (600, 250, 532, 350, brown)
    drawfill (500, 300, 10, brown)
    drawfillbox (520, 250, 545, 200, brown)
    %right tree
    drawline (650, 250, 775, 250, brown)
    drawline (650, 250, 712, 350, brown)
    drawline (775, 250, 712, 350, brown)
    drawfill (712, 275, 10, brown)
    drawfillbox (725, 250, 700, 200, brown)
    %end trees
    %traffic light
    drawfillbox (615, 140, 635, 300, 11)
    drawfilloval (625, 280, 8, 8, green)
    delay (2000)
    drawfilloval (625, 280, 8, 8, 11)
    drawfilloval (625, 255, 8, 8, yellow)
    delay (2000)
    drawfilloval (625, 255, 8, 8, 11)
    drawfilloval (625, 230, 8, 8, red)
    delay (2000)
    %end traffic light
    %END SCENE 2
    %----------------------------------------------------------------%
    exit when keyinput = chr (10)
    delay (250)
end for




Please specify what version of Turing you are using
 I am using 4.11a, but i also need it to run on my school computer which is turing 4.01a


-----------------------------------

Velocity

Sun Nov 06, 2011 12:39 pm


Re: I need help finding out how to alter the code in the following way : Within the thread

-----------------------------------

I will give 3 bits