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

uknowhoiam

Mon May 04, 2009 12:14 pm


How to save Score

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

What is it you are trying to achieve?
I am trying to save score, so the next i play i can see the best score

What is the problem you are having?
I dont know how to save score, i searched through the website but couldnt find anything


Describe what you have tried to solve this problem
I searched trough the website


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
Here is my game (not finshed yet)



import GUI
View.Set ("graphics:300;400,offscreenonly")

var ballx, bally, xpos, xpos2, ypos, gravity : real
var line, Colour, face, brick_colour, brickx, bricky, brickx2, bricky2, brickx3, bricky3, brickx4, bricky4, brickx5, bricky5, brickx6, bricky6, brickx7, bricky7, brickx8, bricky8, dotx, doty, dotx2,
    doty2, dotx3, dotx4, doty3, doty4, doty5, doty6, doty7, doty8, score, picID, destination, speed, level, back : int
var keys : array char of boolean
var fail, die : boolean := false
var Score : boolean := true
var fontID, height, ascent, descent, internalLeading : int

Colour := 119
face := 255
line := 50
ballx := line + maxx - 100
bally := line
xpos := 1
xpos2 := -1
ypos := 8
gravity := .25
brickx := Rand.Int (0, 250 - 40)
bricky := Rand.Int (50, 90)
brickx2 := brickx + 40
bricky2 := bricky + 15
brickx3 := Rand.Int (0, 250 - 40)
bricky3 := Rand.Int (130, 200)
brickx4 := brickx3 + 40
bricky4 := bricky3 + 15
brickx5 := Rand.Int (0, 250 - 40)
bricky5 := Rand.Int (245, 275)
brickx6 := brickx5 + 40
bricky6 := bricky5 + 15
brickx7 := Rand.Int (0, 250 - 40)
bricky7 := Rand.Int (305, 350)
brickx8 := brickx7 + 40
bricky8 := bricky7 + 15
brick_colour := brown
dotx := maxx div 4
doty := 10
dotx2 := dotx + 3
doty2 := doty + 15
dotx3 := maxx div 2 + dotx
dotx4 := dotx3 + 3
doty3 := 110
doty4 := doty3 + 15
doty5 := 210
doty6 := doty5 + 15
doty7 := 310
doty8 := doty7 + 15
score := 0
destination := 500
speed := 17
level := 1

colourback (103)
cls



procedure Player
    drawfilloval (round (ballx), round (bally), 10, 10, Colour)     %body
    drawoval (round (ballx), round (bally), 10, 10, face)     %body outline
    drawfilloval (round (ballx) - 3, round (bally) + 2, 1, 1, face)     %left eye
    drawfilloval (round (ballx) + 3, round (bally) + 2, 1, 1, face)     %right eye
    drawfillarc (round (ballx), round (bally) - 2, 2, 4, 180, 360, face)     %smile
end Player

procedure background
    colourback (103)
    drawfillbox (dotx, doty, dotx2, doty2, black)
    drawfillbox (dotx, doty3, dotx2, doty4, black)
    drawfillbox (dotx, doty5, dotx2, doty6, black)
    drawfillbox (dotx, doty7, dotx2, doty8, black)
    drawfillbox (dotx3, doty, dotx4, doty2, black)
    drawfillbox (dotx3, doty3, dotx4, doty4, black)
    drawfillbox (dotx3, doty5, dotx4, doty6, black)
    drawfillbox (dotx3, doty7, dotx4, doty8, black)
end background

procedure game
    loop
        background
        drawfillbox (brickx, bricky, brickx2, bricky2, brick_colour)
        drawfillbox (brickx3, bricky3, brickx4, bricky4, brick_colour)
        drawfillbox (brickx5, bricky5, brickx6, bricky6, brick_colour)
        drawfillbox (brickx7, bricky7, brickx8, bricky8, brick_colour)
        Player
        View.Update
        delay (speed)
        cls

        ballx -= xpos
        bally += ypos
        ypos -= gravity

        if bally = bricky + 10 and ballx = brickx then %%i assume 10 is the size of the ball?
            ypos := 10 - gravity
        elsif bally = bricky3 + 10 and ballx = brickx3 then
            ypos := 10 - gravity
        elsif bally = bricky5 + 10 and ballx = brickx5 then
            ypos := 10 - gravity
        elsif bally = bricky7 + 10 and ballx = brickx7 then
            ypos := 10 - gravity
            fail := true
        end if

        if bally = bricky + 10 and ballx = brickx and Score = true then %%i assume 10 is the size of the ball?
            score += 10

        elsif bally = bricky3 + 10 and ballx = brickx3 and Score = true then
            score += 10

        elsif bally = bricky5 + 10 and ballx = brickx5 and Score = true then
            score += 10

        elsif bally = bricky7 + 10 and ballx = brickx7 and Score = true then
            score += 10
        end if

        if bally >= 230 then
            doty -= 2

            doty2 -= 2

            doty3 -= 2

            doty4 -= 2

            doty5 -= 2

            doty6 -= 2

            doty7 -= 2

            doty8 -= 2

            bally -= 2

            bricky -= 2

            bricky2 -= 2

            bricky3 -= 2

            bricky4 -= 2

            bricky5 -= 2

            bricky6 -= 2

            bricky7 -= 2

            bricky8 -= 2
        end if

        if bally > maxy then

            score += 5

            doty -= 2

            doty2 -= 2

            doty3 -= 2

            doty4 -= 2

            doty5 -= 2

            doty6 -= 2

            doty7 -= 2

            doty8 -= 2

            bally -= 2

            bricky -= 2

            bricky2 -= 2

            bricky3 -= 2

            bricky4 -= 2

            bricky5 -= 2

            bricky6 -= 2

            bricky7 -= 2

            bricky8 -= 2
        end if

        if doty2 = 3 then
            xpos := 2
        end if
        if xpos = destination then
            destination += 525
            speed -= 2
            level += 1
        end if

        locate (3, maxcol div 2)
        colour (105)
        put "LVL: ", level

        locate (1, 1)
        colour (105)
        put "Next Level: ", destination

        locate (1, maxcol - 11)
        colour (105)
        put "Score: ", score

        Input.KeyDown (keys)
        if keys (KEY_RIGHT_ARROW) then
            xpos -= 2.5
        end if
        if keys (KEY_LEFT_ARROW) then
            xpos += 2.5
        end if
    end loop
end game

procedure instruction   %instruction procedure
    cls
    colour (105)
    put repeat ("%", maxcol)
    locate (2, maxcol div 2 - 6)

    put "Instructions"
    locate (4, 1)

    put "Move Happy Ball with the Left and Right arrows"
    put repeat ("%", maxcol)
    var Play2 : int := GUI.CreateButton (maxx div 2 - 20, maxy div 2, 0, "Play",    %Creating a button called play
        game)
    View.Update     %avoiding the flicker

    loop
        exit when GUI.ProcessEvent  %exiting when pressed
    end loop

end instruction

procedure menu      %the menu procedure
    fontID := Font.New ("Ariel:25:bold")        %The font
    Font.Sizes (fontID, height, ascent, descent, internalLeading)       %font size
    Font.Draw ("Happy Ball", 43, 350, fontID, black)
    drawfilloval (round (ballx), round (bally + 130), 10, 10, Colour)     %body
    drawoval (round (ballx), round (bally + 130), 10, 10, face)     %body outline
    drawfilloval (round (ballx) - 3, round (bally + 130) + 2, 1, 1, face)     %left eye
    drawfilloval (round (ballx) + 3, round (bally + 130) + 2, 1, 1, face)     %right eye
    drawfillarc (round (ballx), round (bally + 130) - 2, 2, 4, 180, 360, face)     %smile
    drawfillbox (brickx, bricky, brickx2, bricky2, brick_colour)

    var Instruc : int := GUI.CreateButton (maxx div 2, maxy div 2, 0, "Instructions",   %Creating a button called instructions
        instruction)
    View.Update
    var Play : int := GUI.CreateButton (maxx div 2 - 70, maxy div 2, 0, "Play",   %Creating a button called play
        game)
    View.Update
    loop
        exit when GUI.ProcessEvent  %exiting when pressed
    end loop

end menu

menu



Please specify what version of Turing you are using



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

Tony

Mon May 04, 2009 12:57 pm


RE:How to save Score

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

The game itself isn't relevant; you are just looking to read/write something from a file. There are tutorials for that + documentation on [tdoc]open[/tdoc], [tdoc]get[/tdoc] and [tdoc]put[/tdoc]


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

tjmoore1993

Mon May 04, 2009 4:14 pm


Re: RE:How to save Score

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

The game itself isn't relevant; you are just looking to read/write something from a file. There are tutorials for that + documentation on 

Check out my load / saving system in tutorials section FIRST PAGE :)


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

uknowhoiam

Fri May 08, 2009 10:26 am


RE:How to save Score

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

i still dont get it... and i want to make the ball to not bouce off when it is under the brick.. i tried everything but cant come up with anything

can anyone help me??


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

Kharybdis

Fri May 08, 2009 10:45 am


Re: How to save Score

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

You need to look up how to do I/O of files.

Example of Opening a file:


var fileName : string := "Master"   % Name of file
        var fileNo : int                % Number of file
        var inputVariable : string ( 100 )
        open : fileNo, fileName, read %This opens the file to be read
        read : fileNo, inputVariable
        close : fileNo
  

That is just an example of opening a file, reading it, and closing. (This is taken directly from Turing's Documentation)
The commands to look up would be: close, get, put, read, write, seek, mod, tell.
Read some tutorials to understand all the particular elements.

As to your brick problem, you have to code in the fact that if the ball is below a brick, then that brick has no collision detection implemented, and it's above a brick, then collision may equal true.

Also, try not to use Turing's GUI... i find it very poor and primarily uncustomizable. You would do better creating your own buttons.