Jump to content

Looking for ways to tweak the slider

JayHawkfl

By JayHawkfl,
in AutoIt GUI Help and Support

 Share

Recommended Posts

JayHawkfl Adventurer

JayHawkfl

Posted
Posted (edited)

So I skyped my brother in to a board game session with my tablet so I could move the cam around easy to show him the board. Now, because he is pretty familur with the game it went pretty well, but he was frustrated that he couldn't keep up with his own Char or roll dice so I did this

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dev\augment house on the hill\form1.kxf
$Form1_1 = GUICreate("Betrayal at House on the Hill", 506, 539, 192, 124)
$rollSpeed = GUICtrlCreateButton("Roll", 358, 244, 75, 25)
$rollMight = GUICtrlCreateButton("Roll", 358, 304, 75, 25)
$rollSanity = GUICtrlCreateButton("Roll", 358, 369, 75, 25)
$rollKnowledge = GUICtrlCreateButton("Roll", 358, 432, 75, 25)
$rollHaunt = GUICtrlCreateButton("Test Your Fate", 354, 488, 83, 25)
$labelCharName = GUICtrlCreateLabel("Ox Bellows", 16, 16, 162, 41)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$labelAge = GUICtrlCreateLabel("Age: 23", 15, 72, 69, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$labelHeightWeight = GUICtrlCreateLabel("Height: 6'4''  Weight: 288lbs", 15, 105, 234, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$labelHobbies = GUICtrlCreateLabel("Hobbies: Football, Shiney Objects", 15, 143, 289, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$labelBirthday = GUICtrlCreateLabel("Birthday: October 18th", 15, 182, 189, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$labelSpeed = GUICtrlCreateLabel("Speed", 10, 241, 60, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("C:\Dev\Augment House on the Hill\ox_Face.jpg", 304, 16, 116, 108)
$labelMight = GUICtrlCreateLabel("Might", 10, 305, 50, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$labelSanity = GUICtrlCreateLabel("Sanity", 10, 369, 54, 28)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$resultSpeed = GUICtrlCreateLabel("0", 457, 240, 22, 33)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$resultMight = GUICtrlCreateLabel("0", 457, 300, 22, 33)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$resultSanity = GUICtrlCreateLabel("0", 457, 365, 22, 33)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$resultKnowledge = GUICtrlCreateLabel("0", 457, 428, 22, 33)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$LabelHaunt = GUICtrlCreateLabel("Will the haunt begin with you? ", 14, 487, 257, 32)
GUICtrlSetFont(-1, 12, 800, 2, "Segoe Print")
$resultHaunt = GUICtrlCreateLabel("0", 457, 484, 22, 33)
GUICtrlSetFont(-1, 24, 400, 0, "MS Sans Serif")
$labelKnowledge = GUICtrlCreateLabel("Knowledge", 10, 433, 91, 24)
GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
$GroupSpeed = GUICtrlCreateGroup("", 112, 224, 233, 57)
$Radio1 = GUICtrlCreateRadio("", 132, 254, 17, 17)
$Radio2 = GUICtrlCreateRadio("", 157, 254, 17, 17)
$Radio3 = GUICtrlCreateRadio("", 182, 254, 17, 17)
$Radio4 = GUICtrlCreateRadio("", 207, 254, 17, 17)
$Radio5 = GUICtrlCreateRadio("", 232, 254, 17, 17)
GUICtrlSetState($Radio5, $GUI_CHECKED)
$Radio6 = GUICtrlCreateRadio("", 257, 254, 17, 17)
$Radio7 = GUICtrlCreateRadio("", 282, 254, 17, 17)
$Radio8 = GUICtrlCreateRadio("", 307, 254, 17, 17)
$Label1 = GUICtrlCreateLabel("2", 134, 237, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("2", 160, 237, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("2", 184, 237, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("3", 209, 237, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("5", 284, 237, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("4", 233, 237, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("5", 259, 237, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label8 = GUICtrlCreateLabel("6", 309, 237, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupMight = GUICtrlCreateGroup("", 112, 288, 233, 57)
$Radio9 = GUICtrlCreateRadio("", 132, 318, 17, 17)
$Radio10 = GUICtrlCreateRadio("", 157, 318, 17, 17)
$Radio11 = GUICtrlCreateRadio("", 182, 318, 17, 17)
GUICtrlSetState($Radio11, $GUI_CHECKED)
$Radio12 = GUICtrlCreateRadio("", 207, 318, 17, 17)
$Radio13 = GUICtrlCreateRadio("", 232, 318, 17, 17)
$Radio14 = GUICtrlCreateRadio("", 257, 318, 17, 17)
$Radio15 = GUICtrlCreateRadio("", 282, 318, 17, 17)
$Radio16 = GUICtrlCreateRadio("", 307, 318, 17, 17)
$Label9 = GUICtrlCreateLabel("4", 134, 301, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("5", 160, 301, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("5", 184, 301, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("6", 209, 301, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label15 = GUICtrlCreateLabel("8", 284, 301, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label13 = GUICtrlCreateLabel("6", 233, 301, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("7", 259, 301, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label16 = GUICtrlCreateLabel("8", 309, 301, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupSanity = GUICtrlCreateGroup("", 111, 352, 233, 57)
$Radio17 = GUICtrlCreateRadio("", 131, 382, 17, 17)
$Radio18 = GUICtrlCreateRadio("", 156, 382, 17, 17)
$Radio19 = GUICtrlCreateRadio("", 181, 382, 17, 17)
GUICtrlSetState($Radio19, $GUI_CHECKED)
$Radio20 = GUICtrlCreateRadio("", 206, 382, 17, 17)
$Radio21 = GUICtrlCreateRadio("", 231, 382, 17, 17)
$Radio22 = GUICtrlCreateRadio("", 256, 382, 17, 17)
$Radio23 = GUICtrlCreateRadio("", 281, 382, 17, 17)
$Radio24 = GUICtrlCreateRadio("", 306, 382, 17, 17)
$Label17 = GUICtrlCreateLabel("2", 133, 365, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label18 = GUICtrlCreateLabel("2", 159, 365, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label19 = GUICtrlCreateLabel("3", 183, 365, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label20 = GUICtrlCreateLabel("4", 208, 365, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label23 = GUICtrlCreateLabel("6", 283, 365, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label21 = GUICtrlCreateLabel("5", 232, 365, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label22 = GUICtrlCreateLabel("5", 258, 365, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label24 = GUICtrlCreateLabel("7", 308, 365, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$GroupKnowledge = GUICtrlCreateGroup("", 111, 416, 233, 57)
$Radio25 = GUICtrlCreateRadio("", 131, 446, 17, 17)
$Radio26 = GUICtrlCreateRadio("", 156, 446, 17, 17)
$Radio27 = GUICtrlCreateRadio("", 181, 446, 17, 17)
GUICtrlSetState($Radio27, $GUI_CHECKED)
$Radio28 = GUICtrlCreateRadio("", 206, 446, 17, 17)
$Radio29 = GUICtrlCreateRadio("", 231, 446, 17, 17)
$Radio30 = GUICtrlCreateRadio("", 256, 446, 17, 17)
$Radio31 = GUICtrlCreateRadio("", 281, 446, 17, 17)
$Radio32 = GUICtrlCreateRadio("", 306, 446, 17, 17)
$Label25 = GUICtrlCreateLabel("2", 133, 429, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label26 = GUICtrlCreateLabel("2", 159, 429, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label27 = GUICtrlCreateLabel("3", 183, 429, 12, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label28 = GUICtrlCreateLabel("3", 208, 429, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label31 = GUICtrlCreateLabel("5", 283, 429, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label29 = GUICtrlCreateLabel("5", 232, 429, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label30 = GUICtrlCreateLabel("5", 258, 429, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label32 = GUICtrlCreateLabel("6", 308, 429, 11, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd

I haven't done any of the coding to make the dice roll work but that wont be hard

 

So HERE is the question, The game uses sliders on the side of the Charecter card and I wanted to use the slider we have but the numbers on the side of the card are not in a regular order. If you don't want to run or dig through the code, this is the order for one of that stats, Speed - 2,2,2,3,4,5,5,6 so that Char starts with his speed at 4 and based on what happens his speed can get better or worse. Is there a way to make the slider display 8 numbers in any config or order?

This is the link to a picture of the cards

'>

 

Also this game is EPIC! if anyone wants a run down of the game youtube table flip- betrayal at house on the hill it really is a lot of fun.

Edited by JayHawkfl

Thanks for your time

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...