Jump to content

GUI cursors


Vindicator209
 Share

Recommended Posts

I tried using codewizard to use a cool cursor on my game, it wont work..whys that?

[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

sorry, lemme restate that'

i made a game with auto it, in a gui, i pasted a cursor code from Code Wizard, doesnt work

[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

$g_szVersion = "My Script 1.1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)
Global $Attack1 = 200
Global $AttackMin = 1
Global $ARMOR = 80
$Money = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "coins")
$NAME= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "name")
$god= RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "god")
#include <GuiConstants.au3>
GuiCreate("Battle! - By Vindicator", 222, 418,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
If Not IsDeclared('Cursor_CROSS') Then Dim $Cursor_CROSS = 3
GUICtrlSetCursor("controlID",$Cursor_CROSS)
$Group_1 = GuiCtrlCreateGroup($NAME, 10, 10, 200, 400)
$List_2 = GUICtrlCreateInput("", 20, 30, 180, 110)
$Button_3 = GuiCtrlCreateButton("Load", 20, 150, 180, 20)
$Combo_4 = GuiCtrlCreateCombo("Chest", 20, 180, 180, 21)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "Plate") = ("a") Then 
GuiCtrlSetData($Combo_4,'Crystal Plate')
EndIf
$1=GuiCtrlSetData($Combo_4,'Steel Plate')
$Combo_5 = GuiCtrlCreateCombo("Legs", 20, 210, 180, 21)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "Legs") = ("a") Then 
GuiCtrlSetData($Combo_5,'Crystal Legs')
EndIf
$2=GuiCtrlSetData($Combo_5,'Steel Plate Legs')
$Combo_6 = GuiCtrlCreateCombo("Weapon", 20, 240, 180, 21)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "Katana") = ("a") Then 
GuiCtrlSetData($Combo_6,'Flaming Katana')
EndIf
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "Steel") = ("a") Then 
GuiCtrlSetData($Combo_6,'Steel Sword')
EndIf
$3=GuiCtrlSetData($Combo_6,'Bronze Sword')
$Combo_7 = GuiCtrlCreateCombo("Gloves", 20, 270, 180, 21)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "Boots") = ("a") Then 
GuiCtrlSetData($Combo_7,'Runite Gloves')
EndIf
$4=GuiCtrlSetData($Combo_7,'Leather Steel-Lined')
$Combo_8 = GuiCtrlCreateCombo("MISC. 1", 20, 300, 180, 21)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "luck") = ("a") Then 
GuiCtrlSetData($Combo_8,'Lucky Ring')
EndIf
$Combo_9 = GuiCtrlCreateCombo("MISC. 2", 20, 330, 180, 21)
If RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "diamond") = ("a") Then 
GuiCtrlSetData($Combo_9,'Diamond Amulet')
EndIf
$Combo_10 = GuiCtrlCreateCombo("MISC. 3", 20, 360, 180, 21)
$Button_11 = GuiCtrlCreateButton("FIGHT!", 20, 390, 180, 20)

GuiSetState()
While 1
    $msg = GuiGetMsg()
    Select
        Case $msg = $Button_11
If GUICtrlRead($Combo_4) = ('Steel Plate') Then
    $ARMOR +=10
EndIf
If GUICtrlRead($Combo_5) = ('Steel Plate Legs') Then
                $ARMOR +=10 
                EndIf
If GUICtrlRead($Combo_6) = ('Bronze Sword') Then
$Attack1 +=10
$AttackMin += 100           
EndIf
If GUICtrlRead($Combo_7) = ('Leather Steel-Lined') Then
                    $ARMOR +=5
                    EndIf
If GUICtrlRead($Combo_8) = ('God Jewel') Then
    $Attack1 +=9999999999
    $AttackMin += 999999999
                        EndIf
If GUICtrlRead($Combo_9) = ('God Ring') Then
        $Attack1 +=9999999999
    $AttackMin += 999999999
                            EndIf
If GUICtrlRead($Combo_10) = ('God Amulet') Then
        $Attack1 +=9999999999
    $AttackMin += 999999999
EndIf
If GUICtrlRead($Combo_10) = ('Steel Sword') Then
        $Attack1 +=20
    $AttackMin += 200
EndIf
If GUICtrlRead($Combo_10) = ('God Amulet') Then
        $Attack1 +=9999999999
    $AttackMin += 999999999
EndIf
If GUICtrlRead($Combo_10) = ('God Amulet') Then
        $Attack1 +=9999999999
    $AttackMin += 999999999
            EndIf
$FIGHT= Random($AttackMin,$Attack1)
$armor1= $ARMOR
$Enemy= Random(100,300)
$ARMOR2=50

If $FIGHT < $ARMOR2 Then
    MsgBox(0,"Results", "You Lose!")
EndIf
If $FIGHT > $armor2 Then
    MsgBox(0,"Results", "You Win!")
    $Money += Random(50,500,1)
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\kyle\Game", "coins","REG_SZ",$Money)
    MsgBox(0,"Results", "You Now Have:"& $Money & "Coins!")
    GUICtrlSetState ($Button_11, $GUI_DISABLE)
    Sleep(3000)
    GUICtrlSetState ($Button_11, $GUI_ENABLE)
EndIf
        
    Case $msg = $Button_3
                If  GUICtrlRead($List_2) = "GOD MODE" Then
            $5=GUICtrlSetData($Combo_8,'God Jewel')
            $6=GUICtrlSetData($Combo_9,'God Ring')
            $7=GUICtrlSetData($Combo_10,'God Amulet')
            EndIf

    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case Else
        ;;;
    EndSelect
WEnd
Exit

erm..thanks for helping, sorry for the long sciprt, i would have simmed it to the prob but im outta time...

[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

so would i use the varible name of my whole gui?

EDIT: ok nvm, i cant do that

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

  • Recently Browsing   0 members

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