Quote:

---

Hi all,

I'd like to share my latest game with you (well, it's not really mine, but heavily inspired by Alexej Pajitnov's famous Tetris® )
Taking advantage of the brand new .KeyPreview property it requires

KiXforms 2.3.0 beta 4

Game download

Screenshot:
Enjoy

---

    dim $s, $txt, $pos, $i, $j, $frmHSTable

Quote:

---

Expert=47833 (my favorite level)

---

you're a KiXtris Pro !!

function Game_Over()

    dim $s, $txt, $pos, $i, $j, $frmHSTable

    $GameActive = 0

    $_ = Form_Options_Skill($diff)

    $tmrBricks.Enabled = 0

    $lblStatus.Text = "Game Over"



    $frmHsTable          = createobject("Kixtart.Form")

    $frmHSTable.TopMost  = 1

    $frmHsTable.Size     = 275,235

    $frmHsTable.Location = $form.Left + ($form.ClientWidth  / 2 - $frmHsTable.ClientWidth  / 2),

                           $form.Top  + ($form.ClientHeight / 2 - $frmHsTable.ClientHeight / 2)



    $tabSkills           = $frmHsTable.Controls.TabControl("",5,5,$frmHsTable.ClientWidth-10,$frmHsTable.ClientHeight-43)



    $btnOK               = $frmHsTable.Controls.ToolButton("OK",$frmHsTable.ClientWidth/2+15,$frmHsTable.Clientheight-30,75,23)

    $btnOK.OnClick       = "$$frmHsTable.Hide"



    $btnReset            = $frmHsTable.Controls.ToolButton("Reset Highscore",$frmHsTable.ClientWidth/2-90,$frmHsTable.Clientheight-30,90,23)

    $btnReset.OnClick    = "Game_ResetHighScores($$tabSkills.SelectedIndex+1,1)"



    $pos = Game_CheckHighScore($Score)

    if $pos

        $btnReset.Enabled = 0

        select

            case $pos = 1

                $frmHsTable.Text = "Congratulations - 1st Place"

            case $pos < 4

                $frmHsTable.Text = "Well done - You rank " + $HSRanks[$pos-1]

            case 1

                $frmHsTable.Text = "Not bad - You rank " + $HSRanks[$pos-1]

        endselect

        if $pos < 5

            for $i = 5 to $pos + 1 step -1

                $HS[$Diff-1][2*$i-2] = $HS[$Diff-1][2*$i-4]

                $HS[$Diff-1][2*$i-1] = $HS[$Diff-1][2*$i-3]

            next

        endif

        $HS[$Diff-1][2*$pos-2] = $Score

        $HS[$Diff-1][2*$pos-1] = ""

    else

        $frmHsTable.Text   = "Your Score : " + $Score

        $btnOK.Default = 1

    endif



    for $i = 0 to 2

        $_ = execute("$$tab" + $HSini[$i] + " = $$tabSkills.TabPages.Add(substr('" + $HSini[$i] + "',3,len(" + $HSini[$i] + ")))")

        $_ = execute("$$lvw" + $HSini[$i] + " = $$tab" + $HSini[$i] + ".ListView('',40,35,300,200)")

        $_ = execute("$$lvw" + $HSini[$i] + ".FontSize = 10")

        $_ = execute("$$lvw" + $HSini[$i] + ".Enabled = 0")

        $_ = execute("$$lvw" + $HSini[$i] + ".View = 1")

        $_ = execute("$$lvw" + $HSini[$i] + ".BorderStyle = 0")

        $_ = execute("$$lvw" + $HSini[$i] + ".HeaderStyle = 0")

        $_ = execute("$$lvw" + $HSini[$i] + ".BackColor = $$frmHsTable.BackColor")

        $_ = execute("$$_ = $$lvw" + $HSini[$i] + ".Columns.Add('',30,0)")

        $_ = execute("$$_ = $$lvw" + $HSini[$i] + ".Columns.Add('',65,1)")

        $_ = execute("$$_ = $$lvw" + $HSini[$i] + ".Columns.Add('',90,0)")

        for $j = 0 to 4

            $_ = execute("$$item$j" + $HSini[$i] + " = $$lvw" + $HSini[$i] + ".Items.Add('" + $HSRanks[$j] + "')")

            $_ = execute("$$item$j" + $HSini[$i] + ".SubItems(1).Text = '" + $HS[$i][2*$j] + "'")

            $_ = execute("$$item$j" + $HSini[$i] + ".SubItems(2).Text = '" + $HS[$i][1+2*$j] + "'")

        next

    next



    $tabSkills.SelectedIndex = $Diff - 1



    if $pos

        $_ = execute("$$lblName = $$tab" + $HSini[$Diff-1] + ".Label('',10,10,130,15)")

        $_ = execute("$$lblName.ForeColor = 'Kixtart'")

        $_ = execute("$$lblName.Text = 'Please enter your name ...'")

        $_ = execute("$$txtName = $$tab" + $HSini[$Diff-1] + ".TextBox('',$$lblName.Right+5,7,100,20)")

        $txtName.BackColor   = $frmHsTable.BackColor

        $txtName.OnLostFocus = "Game_UpdateHighscores($$pos)"

        $txtName.OnKeyDown   = "if $$txtName.KeyCode=13 Game_UpdateHighscores($$pos) endif"

        $txtName.SetFocus

    endif



    $frmHsTable.Show

    while $frmHsTable.Visible

        $_ = execute($frmHsTable.DoEvents)

    loop

    $frmHSTable = 'nothing'

endfunction