Highscore

Xenobiologist · March 26, 2006

HI,

I´m scripting the game Yahtzee int Autoit and I wanna add a highscore. Maybe somebody has already done that and shares his code.

I´ve just started with the highscore thing.

That is what I have so far.

#include <GUIConstants.au3>
#include <Array.au3>
Global $mamesArray[10]
Global $pointsArray[10]
Dim $points = 260
For $i = 1 To UBound($mamesArray)
    $mamesArray[$i-1] = IniRead(@ScriptDir & "\highscore\highscore.ini", $i, "Name", "NotFound")
    $pointsArray[$i-1] = IniRead(@ScriptDir & "\highscore\highscore.ini", $i, "Points", "NotFound")
Next

$GUI_HighScore = GUICreate("HighScore", 502, 233, 190, 118)
$highScoreList = GUICtrlCreateListView("Number   |Name                       |Points               ", 240, 16, 250, 206)
$Group1 = GUICtrlCreateGroup("Menu", 8, 48, 209, 177)
GUICtrlCreateLabel("You´ve reached " &$Points & " Points", 16, 72, 187, 17)
$name_I = GUICtrlCreateInput("Please enter your name", 16, 104, 185, 21, -1, $WS_EX_CLIENTEDGE)
$save = GUICtrlCreateButton("Save", 16, 144, 187, 25, $SS_SUNKEN)
$Headline_L = GUICtrlCreateLabel("HighScore of Yahtzee(Mega)", 8, 15, 211, 33)
GUICtrlSetFont($Headline_L,12, 400, 4, "Arial")

For $i = 0 To UBound($mamesArray) - 1
    GUICtrlCreateListViewItem($i+1 & "|" & $mamesArray[$i] & "|" & $pointsArray[$i], $highScoreList)
Next

GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        case $msg = $save
            save()
        Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit

Func save()
;save at the right postition and refresh GUI
EndFunc

Ini-File

[1]
Name=Player 1
Points = 300
[2]
Name=Player 2
Points = 290
[3]
Name=Player 3
Points = 280
[4]
Name=Player 4
Points = 270
[5]
Name=Player 5
Points = 260
[6]
Name=Player 6
Points = 250
[7]
Name=Player 7
Points = 240
[8]
Name=Player 8
Points = 230
[9]
Name=Player 9
Points = 220
[10]
Name=Player 10
Points = 210

Thank you!

So long,

Mega

cppman · March 26, 2006

I Think it would be pretty interesting to have online scores... using MySQL.

right now, seems like a good way to keep the scores............

nfwu · March 26, 2006

I have some Windows Server scripts for a highscore database, but I'm not sure if that is what you want...

#)

Xenobiologist · March 26, 2006

HI,

no I don´t want online score and I don´t want a MySQL-thing. I just want a GUI where the user can enter his name and then name and score is saved in a ini file. (at the right position) There always should be only 10 highscores which should be displayed in a GUICtrlCreateListView. After the user has saved his highscore the ini file has to be read again and the new highscore is shown (refreshed).

That´s all.

I think, that is a little bit specific, so that I have to make it on my own. :mellow:

I was asking, because maybe somebody has already made a autoit game with a nice highscore functionality.

Thanks for you replies!

So long,

Mega

Xenobiologist · March 26, 2006

Hi,

I ment something like this. Not ready, but it seems to work by now.

#include <GUIConstants.au3>
#include <Array.au3>
Global $mamesArray[10]
Global $pointsArray[10]
Global $listViewItems[11]
Dim $points = 256
Dim $defaultName = "Player1"
$GUI_HighScore = GUICreate("HighScore", 502, 233, 190, 118)
$highScoreList = GUICtrlCreateListView("Number   |Name                       |Points               ", 240, 16, 250, 206)
$menu_G = GUICtrlCreateGroup("Menu", 8, 48, 209, 177)
GUICtrlCreateLabel("Your Score is: " & $points & " Points", 16, 72, 187, 17)
$name_I = GUICtrlCreateInput(IniRead(@ScriptDir & "\highscore\highscore.ini", "Name", "Name", "No Name found!"), _
        16, 104, 185, 21, -1, $WS_EX_CLIENTEDGE)
$save = GUICtrlCreateButton("Save", 16, 144, 187, 25, $SS_SUNKEN)
$Headline_L = GUICtrlCreateLabel("HighScore of Yahtzee(Mega)", 8, 15, 211, 33)
GUICtrlSetFont($Headline_L, 12, 400, 4, "Arial")
If GUICtrlRead($name_I) = "" Then GUICtrlSetData($name_I, $defaultName)
    
read()

For $i = 0 To UBound($mamesArray) - 1
    $listViewItems[$i] = GUICtrlCreateListViewItem($i + 1 & "|" & $mamesArray[$i] & "|" & $pointsArray[$i], $highScoreList)
Next

GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $save
            save()
        Case Else
        ;;;;;;;
    EndSelect
WEnd
Exit

Func read()
    For $i = 1 To UBound($mamesArray)
        $mamesArray[$i - 1] = IniRead(@ScriptDir & "\highscore\highscore.ini", $i, "Name", "NotFound")
        $pointsArray[$i - 1] = IniRead(@ScriptDir & "\highscore\highscore.ini", $i, "Points", "NotFound")
    Next
EndFunc  ;==>read

Func save()
    Dim $sortArray[10]
    For $i = 0 To UBound($mamesArray) - 1
        $sortArray[$i] = $pointsArray[$i] & "," & $mamesArray[$i]
    Next
    $sortArray[9] = _ArrayAdd($sortArray, $points & "," & GUICtrlRead($name_I))
    _ArraySort($sortArray, 1, 0)
    For $i = 1 To UBound($mamesArray)
        IniWrite(@ScriptDir & "\highscore\highscore.ini", $i, "Points", StringMid($sortArray[$i - 1], 1, 3))
        IniWrite(@ScriptDir & "\highscore\highscore.ini", $i, "Name", StringMid($sortArray[$i - 1], 5))
    Next
    read()
    For $i = 1 To UBound($mamesArray) - 1
        GUICtrlSetData($listViewItems[$i - 1], $i & "|" & StringMid($sortArray[$i - 1], 5) & "|" & StringMid($sortArray[$i - 1], 1, 3))
    Next
    IniWrite(@ScriptDir & "\highscore\highscore.ini", "Name", "Name", GUICtrlRead($name_I))
EndFunc  ;==>save

Ini

Name=Player 1
Points = 300
[2]
Name=Player 2
Points = 290
[3]
Name=Player 3
Points = 280
[4]
Name=Player 4
Points = 270
[5]
Name=Player 5
Points = 260
[6]
Name=Player 6
Points = 250
[7]
Name=Player 7
Points = 240
[8]
Name=Player 8
Points = 230
[9]
Name=Player 9
Points = 220
[10]
Name=Player 10
Points = 210
[Name]
Name=Mega

So long,

Mega

SmOke_N · March 26, 2006

Name=Player 10

If you are going to be pulling data, and since you are using arrays, wouldn't it be easier to do that like:

Player10=Name

? That could leave you with just having to mess with one Section rather than multiple ones I would imagine...

Xenobiologist · March 27, 2006

If you are going to be pulling data, and since you are using arrays, wouldn't it be easier to do that like:? That could leave you with just having to mess with one Section rather than multiple ones I would imagine...

Hi SmOke_N,

I don´t get what your are saying. There is no advantage saving the data in the key instaed of saving it in the value.

For the highscore, I have to save 10 sections with 10 players and the points.

I could do just one key in a section and save it like this:

[1]

key=SmOke_N,300

[2]

key=Mega,297

[3]

key=Player 4,200

and so on. The advantage would be saving the time to read but adding time to manipulate the string.

I´ve to think about it.

So long,

Mega

SmOke_N · March 27, 2006

Depends on how you look at that... you could do it all with one array... IniReadSection()

Xenobiologist · March 27, 2006

Depends on how you look at that... you could do it all with one array... IniReadSection()

Hi,

I changed it to using only one array and one read action. (? Is that good English :mellow: )

That´s what I got so far. Maybe somebody has an idea for me.

#include <GUIConstants.au3>
#include <Array.au3>
Global $highScoreArray[10]
Global $listViewItems[11]
Dim $points = 326
Dim $defaultName = "Player1"

;GUI
$GUI_HighScore = GUICreate("HighScore", 502, 233, 190, 118);,$DS_SETFOREGROUND);,$WS_EX_TRANSPARENT)
$highScoreList = GUICtrlCreateListView("Number   |Name                       |Points               ", 240, 16, 250, 206)
$menu_G = GUICtrlCreateGroup("Menu", 8, 48, 209, 177)
GUICtrlCreateLabel("Your Score is: " & $points & " Points", 16, 72, 187, 17)
$name_I = GUICtrlCreateInput(IniRead(@ScriptDir & "\highscore\highscore.ini", "Name", "Name", "No Name found!"), _
        16, 104, 185, 21, -1, $WS_EX_CLIENTEDGE)
$save = GUICtrlCreateButton("Save", 16, 144, 187, 25, $SS_SUNKEN)
$Headline_L = GUICtrlCreateLabel("HighScore of Yahtzee(Mega)", 8, 15, 211, 33)

;States and Fonts
GUICtrlSetState($name_I, $GUI_FOCUS)
GUICtrlSetState($save, $GUI_DEFBUTTON)
GUICtrlSetFont($Headline_L, 12, 400, 4, "Arial")

;Program-Code
readHighScoreIni()

For $i = 0 To UBound($highScoreArray) - 1
    $listViewItems[$i] = GUICtrlCreateListViewItem($i + 1 & "|" & StringMid($highScoreArray[$i], 5) & "|" & StringMid($highScoreArray[$i], 1, 3), $highScoreList)
Next

GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $save
            save()
            GUICtrlSetState($save, $GUI_DISABLE)
            GUICtrlSetState($name_I, $GUI_DISABLE)
        Case Else
    ;;;;;;;
    EndSelect
WEnd
Exit

Func readHighScoreIni()
    For $i = 1 To UBound($highScoreArray)
        $highScoreArray[$i - 1] = IniRead(@ScriptDir & "\highscore\highscore.ini", $i, "value", "NotFound")
    Next
EndFunc ;==>read

Func save()
    If GUICtrlRead($name_I) = "" Then GUICtrlSetData($name_I, $defaultName)
    _ArrayAdd($highScoreArray, $points & "," & GUICtrlRead($name_I))
    _ArraySort($highScoreArray, 1, 0)
    For $i = 1 To UBound($highScoreArray) - 1
        IniWrite(@ScriptDir & "\highscore\highscore.ini", $i, "value", $highScoreArray[$i - 1])
    Next
    readHighScoreIni()
    For $i = 1 To UBound($highScoreArray) - 1
        GUICtrlSetData($listViewItems[$i - 1], $i & "|" & StringMid($highScoreArray[$i - 1], 5) & "|" & StringMid($highScoreArray[$i - 1], 1, 3))
    Next
    IniWrite(@ScriptDir & "\highscore\highscore.ini", "Name", "Name", GUICtrlRead($name_I))
EndFunc ;==>save

Ini

[1]
value=310,Player 0
[2]
value=300,Player 1
[3]
value=290,Player 2
[4]
value=280,Player 3
[5]
value=270,Player 4
[6]
value=260,Player 5
[7]
value=260,Player 6
[8]
value=260,Player 7
[9]
value=260,Player 8
[10]
value=260,Player 9
[Name]
Name=Mega

So long,

Mega

Edited March 27, 2006 by th.meger

SmOke_N · March 31, 2006

I had forgoten about this thread... Mega.. This is what I was talking about:

[HighScore]
320=Player1
310=Player2
300=Player3
290=Player4
280=Player5
270=Player6
260=Player7
250=Player8
240=Player9
230=Player10
[Name]
Name=Mega

#include <GUIConstants.au3>
Global $highScoreArray[10]
Global $listViewItems[11]
Dim $points = 326
Dim $defaultName = "Player1"

;GUI
$GUI_HighScore = GUICreate("HighScore", 502, 233, 190, 118);,$DS_SETFOREGROUND);,$WS_EX_TRANSPARENT)
$highScoreList = GUICtrlCreateListView("Number   |Name                       |Points               ", 240, 16, 250, 206)
$menu_G = GUICtrlCreateGroup("Menu", 8, 48, 209, 177)
GUICtrlCreateLabel("Your Score is: " & $points & " Points", 16, 72, 187, 17)
$name_I = GUICtrlCreateInput(IniRead(@ScriptDir & "\highscore\highscore.ini", "Name", "Name", "No Name found!"), _
        16, 104, 185, 21, -1, $WS_EX_CLIENTEDGE)
$save = GUICtrlCreateButton("Save", 16, 144, 187, 25, $SS_SUNKEN)
$Headline_L = GUICtrlCreateLabel("HighScore of Yahtzee(Mega)", 8, 15, 211, 33)

;States and Fonts
GUICtrlSetState($name_I, $GUI_FOCUS)
GUICtrlSetState($save, $GUI_DEFBUTTON)
GUICtrlSetFont($Headline_L, 12, 400, 4, "Arial")

;Program-Code
$highScoreArray = readHighScoreIni()

For $i = 1 To $highScoreArray[0][0]
    $listViewItems[$i] = GUICtrlCreateListViewItem($i & "|" & $highScoreArray[$i][1] & "|" & $highScoreArray[$i][0], $highScoreList)
Next

GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $save
            SaveScore()
            GUICtrlSetState($save, $GUI_DISABLE)
            GUICtrlSetState($name_I, $GUI_DISABLE)
        Case Else
   ;;;;;;;
    EndSelect
WEnd
Exit

Func readHighScoreIni()
    Return IniReadSection(@ScriptDir & "\highscore\highscore.ini", 'HighScore')
EndFunc;==>read

Func SaveScore(); Will only keep the top 10... Didn't know if that's what you wanted, but having them all would have been easier anyway.
    If Not GUICtrlRead($name_I) <> '' Then GUICtrlSetData($name_I, $defaultName)
    Local $SaveIni = readHighScoreIni()
    Local $SaveSpot = 0
    Local $NewSaveValue[11][3]
    For $i = 1 To $SaveIni[0][0]
        If $points >= $SaveIni[$i][0] And $SaveSpot = 0 Then
            $SaveSpot = 1
            $NewSaveValue[$i][0] = $points
            $NewSaveValue[$i][1] = GUICtrlRead($name_I)
        ElseIf $points >= $SaveIni[$i][0] And $SaveSpot = 1 Then
            $NewSaveValue[$i][0] = $SaveIni[$i - 1][0]
            $NewSaveValue[$i][1] = $SaveIni[$i - 1][1]
        Else
            $NewSaveValue[$i][0] = $SaveIni[$i][0]
            $NewSaveValue[$i][1] = $SaveIni[$i][1]
        EndIf
    Next
    For $i = 1 To $SaveIni[0][0]
        IniDelete(@ScriptDir & "\highscore\highscore.ini", 'HighScore', $SaveIni[$i][0])
    Next
    For $i = 1 To UBound($NewSaveValue) - 1
        IniWrite(@ScriptDir & "\highscore\highscore.ini", 'HighScore', $NewSaveValue[$i][0], $NewSaveValue[$i][1])
        GUICtrlSetData($listViewItems[$i], $i & "|" & $NewSaveValue[$i][1] & "|" & $NewSaveValue[$i][0])
    Next
    IniWrite(@ScriptDir & "\highscore\highscore.ini", "Name", "Name", GUICtrlRead($name_I))
EndFunc

Sorry it took so long, but I just ran acrossed 20 minutes ago and said "Oh yeah!"....

Xenobiologist · March 31, 2006

Sorry it took so long, but I just ran acrossed 20 minutes ago and said "Oh yeah!"....

Nice one. I'll have to think about replacing mine with yours. Later on I´ll use _StringEncrypt() for it so that nobody easily could manipulate the highscore.

I haven't looked at IniReadSection that close before, but it seems to be a good alternative to one I´ve chosen. (because returning an array [X][Y])

Thanks!

Maybe in three weeks my game Yahtzee is nearly ready and I'll PM you for having a look first.

So long,

Mega

Edited March 31, 2006 by th.meger

SmOke_N · March 31, 2006

Good deal... you know... I kinda feel like an , I didn't know you actually got yours working :mellow: ... But none the less, I wanted to show you what I was talking about.

I set up my Ini(s) like this alot, just makes it for easier tracking if you know what I mean.

Look forward to the PM

Highscore

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members