Sign in to follow this  
Followers 0
JayHawkfl

Looking for ways to tweak the slider

1 post in this topic

#1 ·  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

 

Share this post


Link to post
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
Sign in to follow this  
Followers 0