Jump to content

Set BG color for input boxes?

Vindicator209

By Vindicator209,
in AutoIt GUI Help and Support

 Share

Recommended Posts

Vindicator209 Universalist

Vindicator209

Posted
Posted (edited)

Ok, Im trying to make all the control backgrounds dark grey, but it wont work... and is there a way to make the scroll bars on my edit box dark grey too?

#include <GuiConstants.au3>



$BATTLE=GuiCreate("Battle V3.2", 708, 412,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
Global $Money=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money")
$God=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "GOD")
$name=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Name")
$health=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP")
If $God="1" Then
$health= "99999"
EndIf
$used=0
$1s=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell1")
$2s=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell2")
$3s=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell3")
$msp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "msp")
$dsp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "dsp")
Global $Spell=20
RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "DEAD")
$Edit_1 = GuiCtrlCreateEdit("Welcome back to BATTLE," & $name & ", Have Fun!", 10, 10, 690, 200, -1, $WS_EX_CLIENTEDGE)
    GUICtrlSendMsg($Edit_1, $EM_SETREADONLY, True, 0)
    GUICtrlSetBkColor($Edit_1, 0x272727)
#Region --- CodeWizard generated code Start ---
If Not IsDeclared('Dark_Olive_Green_1') Then Dim $Dark_Olive_Green_1 = 0xCAFF70
GUICtrlSetColor($Edit_1,$Dark_Olive_Green_1)
#EndRegion --- CodeWizard generated code End ---
$Input_2 = GuiCtrlCreateInput($health, 60, 230, 130, 20,$ES_READONLY)
GUICtrlSetColor($Input_2,$Dark_Olive_Green_1)
GUICtrlSetBkColor($Input_2, 0x272727)
$Input_3 = GuiCtrlCreateInput($Money, 60, 250, 130, 20,$ES_READONLY)
GUICtrlSetColor($Input_3,$Dark_Olive_Green_1)
GUICtrlSetBkColor($Input_3, 0x272727)
$Label_4 = GuiCtrlCreateLabel("Health", 20, 230, 50, 20)
$Label_5 = GuiCtrlCreateLabel("Money", 20, 250, 40, 20)
$Button_6 = GuiCtrlCreateButton("Attack", 200, 230, 80, 20)
$Button_7 = GuiCtrlCreateButton("Yes", 200, 250, 40, 20)
$Button_8 = GuiCtrlCreateButton("No", 240, 250, 40, 20)
$Button_9 = GuiCtrlCreateButton("Save", 300, 230, 60, 20)
$Button_10 = GuiCtrlCreateButton("Load", 300, 270, 60, 20)
$Button_11 = GuiCtrlCreateButton("Reset", 300, 250, 60, 20)
$Group_12 = GuiCtrlCreateGroup("Status", 10, 210, 280, 90)
$Group_13 = GuiCtrlCreateGroup("File Options", 290, 210, 80, 90)
$Button_14 = GuiCtrlCreateButton("Action", 200, 270, 80, 20)
$Label_15 = GuiCtrlCreateLabel("Go Do", 20, 270, 40, 20)
$Input_16 = GuiCtrlCreateInput("do what", 60, 270, 130, 20)
GUICtrlSetColor($Input_16,$Dark_Olive_Green_1)
GUICtrlSetBkColor($Input_16, 0x272727)
$Group_17 = GuiCtrlCreateGroup("Spells", 10, 310, 360, 90)
$Button_18 = GuiCtrlCreateButton("Hell Fire", 20, 330, 90, 40)
$Button_19 = GuiCtrlCreateButton("Ice Nova", 130, 330, 100, 40)
$Button_20 = GuiCtrlCreateButton("Torrent", 260, 330, 90, 40)
$Input_21 = GuiCtrlCreateInput($1s, 20, 370, 90, 20,$ES_READONLY)
GUICtrlSetColor($Input_21,$DarkOlive_Green_1_Olive_Green_1)
GUICtrlSetBkColor($Input_21, 0x272727)
$Input_22 = GuiCtrlCreateInput($2s, 130, 370, 100, 20,$ES_READONLY)
GUICtrlSetColor($Input_21,$DarkOlive_Green_1_Olive_Green_1)
GUICtrlSetBkColor($Input_22, 0x272727)
$Input_23 = GuiCtrlCreateInput($3s, 260, 370, 90, 20,$ES_READONLY)
GUICtrlSetColor($Input_21,$DarkOlive_Green_1_Olive_Green_1)
GUICtrlSetBkColor($Input_23, 0x272727)
$Group_24 = GuiCtrlCreateGroup("Stat Points", 380, 210, 180, 90)
$Button_25 = GuiCtrlCreateButton("+", 110, 370, 10, 20)
$Button_26 = GuiCtrlCreateButton("+", 230, 370, 10, 20)
$Button_27 = GuiCtrlCreateButton("+", 350, 370, 10, 20)
$Input_28 = GuiCtrlCreateInput($msp, 450, 230, 100, 20,$ES_READONLY)
GUICtrlSetColor($Input_21,$DarkOlive_Green_1_Olive_Green_1)
GUICtrlSetBkColor($Input_28, 0x272727)
$Label_29 = GuiCtrlCreateLabel("Magic SP", 390, 230, 50, 20)
$Label_30 = GuiCtrlCreateLabel("Durability SP", 390, 260, 50, 30)
$Input_31 = GuiCtrlCreateInput($dsp, 450, 260, 80, 20,$ES_READONLY)
GUICtrlSetColor($Input_21,$DarkOlive_Green_1_Olive_Green_1)
GUICtrlSetBkColor($Input_31, 0x272727)
$Button_32 = GuiCtrlCreateButton("+", 530, 260, 21, 20)
$Group_33 = GuiCtrlCreateGroup("Items", 380, 310, 320, 90)
$List_34 = GuiCtrlCreateList("", 390, 330, 140, 45)
$List_35 = GuiCtrlCreateList("", 550, 330, 140, 45)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Plate") = ("a") Then 
GuiCtrlSetData($List_34,'Crystal Plate')
EndIf
$1=GuiCtrlSetData($List_34,'Steel Plate')
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Legs") = ("a") Then 
GuiCtrlSetData($List_34,'Crystal Legs')
EndIf
$2=GuiCtrlSetData($List_34,'Steel Plate Legs')
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Katana") = ("a") Then 
GuiCtrlSetData($List_34,'Flaming Katana')
EndIf
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Steel") = ("a") Then 
GuiCtrlSetData($List_34,'Steel Sword')
EndIf
$3=GuiCtrlSetData($List_34,'Bronze Sword')
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Boots") = ("a") Then 
GuiCtrlSetData($List_35,'Runite Gloves')
EndIf
$4=GuiCtrlSetData($List_34,'Leather Steel-Lined')
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "luck") = ("a") Then 
GuiCtrlSetData($List_35,'Lucky Ring')
EndIf
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "diamond") = ("a") Then 
GuiCtrlSetData($List_35,'Diamond Amulet')
EndIf
GuiCtrlSetData($List_34,$1 &$2 &$3 &$4)
$Button_36 = GuiCtrlCreateButton("Use/Equip/Wear", 390, 380, 300, 20)
$Group_37 = GuiCtrlCreateGroup("?????", 560, 210, 140, 90)
$Button_38 = GuiCtrlCreateButton("", 570, 230, 120, 60)
GUICtrlSetState ($Button_38, $GUI_DISABLE)



    If $name="" Then
        WinClose("Tool Bar")
        MsgBox(0,"New Game","Hello, it must be your first time playing!")
                MsgBox(0,"New Game","I will guide you through the game.")
                        MsgBox(0,"New Game","First off, what is your name?")
                        $NAME2=InputBox("You Name:","Enter your character's Name:",""," ","-1","-1","-1","-1")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Name","REG_SZ",$NAME2)
                        $pass322=InputBox("You Password:","Enter a password for your account:",""," ","-1","-1","-1","-1")
                        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "PASS","REG_SZ",$pass322)
                                MsgBox(0,"New Game","OK!, I have saved your info!")
                                        MsgBox(0,"New Game","As you prgress, you gain stat points, which  can be used to raise HP, or some, to Level up SPELLS")
        MsgBox(0,"New Game","The points can be used by pressing the given '+' buttons")
        MsgBox(0,"New Game","The rest SHOULD be self explanitory, if not, consult the forum")
        MsgBox(0,"Talk","Hello, my name is Sinji.")
        MsgBox(0,"Talk","Sinji: Welcome to our village, but another Monster Union is trying to destroy us, you better leave soon.")
        MsgBox(0,"Talk",RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Name") & ": I'll stay here to train and fight")
        MsgBox(0,"Talk","Sinji: (murmuring) stupid kids these days... Well fine, here have some money, and some stats..")
        MsgBox(0,"Talk",RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Name") & ": How the heck can you give me stats?")
        MsgBox(0,"Talk","Sinji: How the heck do I know? Its probably some stupid bug in V3.2...all I can say is vindicator is an idiot...")
        MsgBox(0,"Talk","The man walks away.")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money","REG_SZ","100")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP","REG_SZ","50")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell1","REG_SZ","1")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell2","REG_SZ","1")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell3","REG_SZ","1")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "msp","REG_SZ","2")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "dsp","REG_SZ","1")
Run("Battle V3.2.exe")
        Exit
    EndIf
$user=InputBox("Login","Please Input your PvP ID")
$Password=InputBox("Login","Please Input your PASSWORD")
If $user=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Name") Then
    If $Password=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "PASS") Then
        MsgBox(0,"ACESS","Logged In, you may continue")
        Run("ToolBar.exe")
    Else
        MsgBox(0,"ERROR","Incorrect Username or password")
        Exit
    EndIf
Else
    MsgBox(0,"ERROR","Invalid Username")
    Exit
EndIf
GUISetBkColor (  0x202020 )
GuiSetState()
$234=1
While $234
            If GUICtrlRead($Input_31) > 0 Then
            $dsp= $dsp -1
            GUICtrlSetData($Input_31,$msp)
            $health= $health + 5
            GUICtrlSetData($Input_2,$health)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP","REG_SZ",$health)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "dsp","REG_SZ",$msp)
            If $health>5 Then
                $234=0
            EndIf
            EndIf
WEnd
        
        While 1
If $health<1 Then
    If Not RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "DEAD") = '1' Then
    MsgBox(0,"You Died!","Oh Oh! You Died!")
    Dim $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(52,"DEAD!","So you died, would you like to continue at your last save point?" & @CRLF & "If you have ENOUGH durability points, you may click OK and restart the game to heal yourself")
Select
   Case $iMsgBoxAnswer = 6 ;Yes
Exit
   Case $iMsgBoxAnswer = 7 ;No
       If $dsp >5 Then
       RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "DEAD","REG_SZ",'1')
   Else
       MsgBox(0,"Error","Not enough DSP to revive. closing.")
       Exit
   EndIf
EndSelect
EndIf
EndIf
Global $msg = GuiGetMsg()
$Money=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money")
$God=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "GOD")
$name=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Name")
$health=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP")
$1s=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell1")
$2s=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell2")
$3s=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell3")
$msp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "msp")
$dsp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "dsp")
Global $msg = GuiGetMsg()
    Select
        Case $msg = $Button_38
Dim $iMsgBoxAnswer2
$iMsgBoxAnswer2 = MsgBox(52,"GODS!","Are you sure you want to delete your current file, and plug in the god card?")
Select
   Case $iMsgBoxAnswer2 = 6 ;Yes
Run("God Mode.exe")
   Case $iMsgBoxAnswer2 = 7 ;No

EndSelect
    Case $msg = $Button_25
        If GUICtrlRead($Input_28) > 0 Then
            $msp= $msp -1
            GUICtrlSetData($Input_28,$msp)
            $1s= $1s + 1
            GUICtrlSetData($Input_21,$1s)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell1","REG_SZ",$1s)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "msp","REG_SZ",$msp)
        Else
            MsgBox(0,"Error","Not Enought Magic Points")
        EndIf
    Case $msg = $Button_26
        If GUICtrlRead($Input_28) > 0 Then
            $msp= $msp -1
            GUICtrlSetData($Input_28,$msp)
            $2s= $2s + 1
            GUICtrlSetData($Input_22,$2s)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell2","REG_SZ",$2s)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "msp","REG_SZ",$msp)
        Else
            MsgBox(0,"Error","Not Enought Magic Points")
        EndIf
    Case $msg = $Button_27
                If GUICtrlRead($Input_28) > 0 Then
            $msp= $msp -1
            GUICtrlSetData($Input_28,$msp)
            $3s= $3s + 1
            GUICtrlSetData($Input_23,$3s)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Spell3","REG_SZ",$3s)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "msp","REG_SZ",$msp)
        Else
            MsgBox(0,"Error","Not Enought Magic Points")
        EndIf
    Case $msg = $Button_32
            If GUICtrlRead($Input_31) > 0 Then
            $dsp= $dsp -1
            GUICtrlSetData($Input_31,$dsp)
            $health= $health + 5
            GUICtrlSetData($Input_2,$health)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP","REG_SZ",$health)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "dsp","REG_SZ",$msp)
        Else
            MsgBox(0,"Error","Not Enought Durability Points")
        EndIf
    Case $msg = $Button_6
        $monsterhp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Monster")
        $monsterhp=Random(20,70,1)
        $playerAttack=Random(5,100,1)
        $monsterhp= $monsterhp - $playerAttack
        $monsterAttack= Random(10,20,1)
        $health= $health - $monsterAttack
        $Cash=Random(100,700,1)
        If $monsterhp<5 Then
        GUICtrlSetData($Edit_1,'You Hit:' & $playerAttack &' ,You Win!' & @CRLF & GUICtrlRead($Edit_1))
                            $Money= $Money + $Cash
            GUICtrlSetData($Input_3,$Money)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money","REG_SZ",$Money)
    GUICtrlSetState ($Button_6, $GUI_DISABLE)
    Sleep(2000)
    GUICtrlSetState ($Button_6, $GUI_ENABLE)
        Else
        GUICtrlSetData($Edit_1,'You Hit:' & $playerAttack &' ,The Monster had:' & $monsterhp & ' HP left! It ran away.' & @CRLF & GUICtrlRead($Edit_1))
    GUICtrlSetState ($Button_6, $GUI_DISABLE)
    Sleep(2000)
    GUICtrlSetState ($Button_6, $GUI_ENABLE)
    EndIf
                $health= $health - $monsterAttack
            GUICtrlSetData($Input_2,$health)
        If Not $health < 1 Then
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP","REG_SZ",$health)
    EndIf
Case $msg = $Button_18
    $spelltax= $1s * 3 + 10
    $spelltotal= $spelltax * 5
        $monsterhp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Monster")
        $monsterhp=Random(20,700,1)
        $playerAttackspell=Random($spelltax,$spelltotal,1)
        $monsterhp= $monsterhp - $playerAttackspell
        $monsterAttack= Random(10,30,1)
        $health= $health - $monsterAttack
        $Cash=Random(100,700,1)
        If $monsterhp<5 Then
        GUICtrlSetData($Edit_1,'You Casted Hell Fire LVL ' & $1s &' and hit '& $playerAttackspell &' ,You Win!' & @CRLF & GUICtrlRead($Edit_1))
                    $Money= $Money + $Cash
            GUICtrlSetData($Input_3,$Money)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money","REG_SZ",$Money)
        Else
        GUICtrlSetData($Edit_1,'You Casted Hell Fire LVL ' & $1s &' and hit ' & $playerAttackspell &' ,The Monster had:' & $monsterhp & ' HP left! It ran away.' & @CRLF & GUICtrlRead($Edit_1))
    EndIf
                $health= $health - $monsterAttack
            GUICtrlSetData($Input_2,$health)
        If Not $health < 1 Then
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP","REG_SZ",$health)
    EndIf
Case $msg = $Button_19
    $spelltax= $2s * 3 + 10
    $spelltotal= $spelltax * 5
        $monsterhp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Monster")
        $monsterhp=Random(20,100,1)
        $playerAttackspell=Random($spelltax,$spelltotal,1)
        $monsterhp= $monsterhp - $playerAttackspell
        $monsterAttack= Random(10,30,1)
        $health= $health - $monsterAttack
        $Cash=Random(100,700,1)
        If $monsterhp<5 Then
        GUICtrlSetData($Edit_1,'You Casted Ice Nova LVL ' & $2s &' and hit '& $playerAttackspell &' ,You Win!' & @CRLF & GUICtrlRead($Edit_1))
            $Money= $Money + $Cash
            GUICtrlSetData($Input_3,$Money)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money","REG_SZ",$Money)
        Else
            $losewin=Random(1,10)
            If $losewin <10 Then
        GUICtrlSetData($Edit_1,'You Casted Ice Nova LVL ' & $2s &' and hit ' & $playerAttackspell &' ,The Monster has:' & $monsterhp & ' HP left! It is FROZEN' & @CRLF & GUICtrlRead($Edit_1))
        GUICtrlSetData($Edit_1,'You Attacked and Hit' & $playerAttackspell &' You Win!' & @CRLF & GUICtrlRead($Edit_1))
                    $Money= $Money + $Cash
            GUICtrlSetData($Input_3,$Money)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money","REG_SZ",$Money)
        Else
        GUICtrlSetData($Edit_1,'The Monster ran away' & @CRLF & GUICtrlRead($Edit_1))
            EndIf
    EndIf
                $health= $health - $monsterAttack
            GUICtrlSetData($Input_2,$health)
        If Not $health < 1 Then
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP","REG_SZ",$health)
    EndIf
    Case $msg = $Button_20
    $spelltax= $1s * 3 + 10
    $spelltotal= $spelltax * 5
        $monsterhp=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Monster")
        $monsterhp=Random(20,100,1)
        $playerAttackspell=Random($spelltax,$spelltotal,1)
        $monsterhp= $monsterhp - $playerAttackspell
        $monsterAttack= Random(10,30,1)
        $health= $health - $monsterAttack
        $Cash=Random(100,700,1)
        If $monsterhp<5 Then
        GUICtrlSetData($Edit_1,'You Casted Torrent LVL' & $1s &'and hit '& $playerAttackspell &' ,You Win!' & @CRLF & GUICtrlRead($Edit_1))
                    $Money= $Money + $Cash
            GUICtrlSetData($Input_3,$Money)
            RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money","REG_SZ",$Money)
        Else
        GUICtrlSetData($Edit_1,'You Torrent Fire LVL' & $1s &'and hit ' & $playerAttackspell &' ,The Monster had:' & $monsterhp & ' HP left! It ran away.' & @CRLF & GUICtrlRead($Edit_1))
    EndIf
                $health= $health - $monsterAttack
            GUICtrlSetData($Input_2,$health)
        If Not $health < 1 Then
        RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "HP","REG_SZ",$health)
    EndIf
Case $msg = $Button_14
If GUICtrlRead($Input_16) = "loot" Then
If $used=1 Then
GUICtrlSetData($Edit_1,'Its already gone' & @CRLF & GUICtrlRead($Edit_1))
Else
$loot= '50000'
$Money= $Money + $loot
GUICtrlSetData($Input_3,$Money)
$used=1
GUICtrlSetData($Edit_1,'You take the phat loot' & @CRLF & GUICtrlRead($Edit_1))
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\BATTLEV3\Game", "Money","REG_SZ",$Money)
EndIf
EndIf   
If GUICtrlRead($Input_16) = "open god chest" Then
GUICtrlSetData($Edit_1,'You find a treasure chest..with a memory card that is labled "GOD MODE CHEAT CARD"' & @CRLF & GUICtrlRead($Edit_1))
GUICtrlSetState ($Button_38, $GUI_ENABLE)
GUICtrlSetData ($Button_38,"Use God Card")
EndIf
Case $msg = $GUI_EVENT_CLOSE
    GUICtrlSetData($Edit_1,':: Good Bye ::' & @CRLF & 'Closing server, please wait')
    Sleep(3000)
;Ending Server
Func ENDTCP()
Global $MainSocket
TCPStartup()
$MainSocket = TCPConnect($Server, $Port)
TCPSend($MainSocket, "Ending")
TCPCloseSocket($MainSocket)
TCPShutdown()
EndFunc
;Server Ended
WinClose("Tool Bar")
    ExitLoop
    
    Case Else
        ;;;
EndSelect
WEnd
Exit
Edited by MethodZero

[center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center]

Link to comment
Share on other sites
Vindicator209 Universalist

Vindicator209

Posted
  • Author
Posted (edited)

EDIT4:

Ok, I figured it out... but now How do I make the outline of the input boxes grey also? instead of blue? and how would I manage to make the scroll bar green instead? please and thankyou!

Edited by MethodZero

[center]"When you look at old, classic games like Snake, you often put it off because it's such a simple game, but it's only when you actually try and create your own unique game from scratch, do you finally appreciate those games."[/center][center]Don't ask for answers if you haven't TRIED yet![/center][center]Most answers can be answered in the help file! Use it![/center]

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...