Jump to content
Sign in to follow this  
Thornhunt

hit a little snag

Recommended Posts

Thornhunt

ok.. for a favour for a m8 im making a bot for him.

and like the othertimes i have made a program i test as soon as i add a bit

and everything was working fine till i wrote my info to the data from the gui.

out of kno were these random numbers apear where it should be a 0

well its late and my brain has started running on its last piston .. so my face is like this o.O & :S

heres my script

#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>

;Attack cast time
$A1 = 0
$A2 = 0
$A3 = 0
$A4 = 0
$A5 = 0
$A6 = 0
$A7 = 0
$A8 = 0
$A9 = 0
$A0 = 0
;buffs Cooldown line 2
$BCO1 = 0
$BCO2 = 0
$BCO3 = 0
$BCO4 = 0
$BCO5 = 0
$BCO6 = 0
$BCO7 = 0
$BCO8 = 0
$BCO9 = 0
$BCO0 = 0
;buffs Cast time line 2
$BCA1 = 0
$BCA2 = 0
$BCA3 = 0
$BCA4 = 0
$BCA5 = 0
$BCA6 = 0
$BCA7 = 0
$BCA8 = 0
$BCA9 = 0
$BCA0 = 0
;unique Pargon
$PGNCA = 1.07
;unique Biglos
$BGLCA = 1.08


Setup()

Func Setup()

Local $MenuFile, $ItemOpen, $ItemSave, $ItemClose, $ItemRecent, $separator1
local $MenuHelp, $ItemHelp, $ItemAbout
Local $file, $msg, $GUI

;make GUI
$GUI = GuiCreate("Setup", 410, 400)

;Create the File menu
$MenuFile = GUICtrlCreateMenu("File")
$ItemOpen = GUICtrlCreateMenuItem("Open", $MenuFile, 0)
$ItemRecent = GUICtrlCreateMenu("Recent Files", $MenuFile, 1)
$ItemSave = GUICtrlCreateMenuItem("Save", $MenuFile, 2)
$separator1 = GUICtrlCreateMenuItem("", $MenuFile, 3)   ; create a separator line
$ItemClose = GUICtrlCreateMenuItem("Close", $MenuFile, 4)

;Create the Help menu
$MenuHelp = GUICtrlCreateMenu("Help")
$ItemHelp = GUICtrlCreateMenuItem("Help", $MenuHelp, 0)
$ItemAbout = GUICtrlCreateMenuItem("About", $MenuHelp, 1)

GuiCtrlCreateLabel("InfinityBot v0.01", 10,10,200,50)
GUICtrlSetFont(-1,14,1000,4)

;create attack slots

GuiCtrlCreateLabel("Attack castimes in seconds (leave blank if slot not used)", 10,60)
GuiCtrlCreateLabel("Slot1", 10,80)
$A1 = GuiCtrlCreateInput($A1, 50, 80)
GuiCtrlCreateLabel("Slot2", 10,100)
$A2 = GuiCtrlCreateInput($A2, 50, 100)

GuiCtrlCreateLabel("Slot3", 90,80)
$A3 = GuiCtrlCreateInput($A3, 130, 80)
GuiCtrlCreateLabel("Slot4", 90,100)
$A4 = GuiCtrlCreateInput($A4, 130, 100)

GuiCtrlCreateLabel("Slot5", 170,80)
$A5 = GuiCtrlCreateInput($A5, 210, 80)
GuiCtrlCreateLabel("Slot6", 170,100)
$A6 = GuiCtrlCreateInput($A6, 210, 100)

GuiCtrlCreateLabel("Slot7", 250,80)
$A7 = GuiCtrlCreateInput($A7, 290, 80)
GuiCtrlCreateLabel("Slot8", 250,100)
$A8 = GuiCtrlCreateInput($A8, 290, 100)

GuiCtrlCreateLabel("Slot9", 330,80)
$A9 = GuiCtrlCreateInput($A9, 370, 80)
GuiCtrlCreateLabel("Slot0", 330,100)
$A0 = GuiCtrlCreateInput($A0, 370, 100)


;Buff cast times
GuiCtrlCreateLabel("buff castimes in seconds (leave blank if slot not used)", 10,130)
GuiCtrlCreateLabel("Slot1", 10,150)
$BCA1 = GuiCtrlCreateInput($BCA1, 50, 150)
GuiCtrlCreateLabel("Slot2", 10,170)
$BCA2 = GuiCtrlCreateInput($BCA2, 50, 170)

GuiCtrlCreateLabel("Slot3", 90,150)
$BCA3 = GuiCtrlCreateInput($BCA3, 130, 150)
GuiCtrlCreateLabel("Slot4", 90,170)
$BCA4 = GuiCtrlCreateInput($BCA4, 130, 170)

GuiCtrlCreateLabel("Slot5", 170,150)
$BCA5 = GuiCtrlCreateInput($BCA5, 210, 150)
GuiCtrlCreateLabel("Slot6", 170,170)
$BCA6 = GuiCtrlCreateInput($BCA6, 210, 170)

GuiCtrlCreateLabel("Slot7", 250,150)
$BCA7 = GuiCtrlCreateInput($BCA7, 290, 150)
GuiCtrlCreateLabel("Slot8", 250,170)
$BCA8 = GuiCtrlCreateInput($BCA8, 290, 170)

GuiCtrlCreateLabel("Slot9", 330,150)
$BCA9 = GuiCtrlCreateInput($BCA9, 370, 150)
GuiCtrlCreateLabel("Slot0", 330,170)
$BCA0 = GuiCtrlCreateInput($BCA0, 370, 170)


;Buff cast times
GuiCtrlCreateLabel("buff cooldowns in seconds (leave blank if slot not used)", 10,200)
GuiCtrlCreateLabel("Slot1", 10,220)
$BCO1 = GuiCtrlCreateInput($BCO1, 50, 220)
GuiCtrlCreateLabel("Slot2", 10,240)
$BCA2 = GuiCtrlCreateInput($BCO2, 50, 240)

GuiCtrlCreateLabel("Slot3", 90,220)
$BCO3 = GuiCtrlCreateInput($BCO3, 130, 220)
GuiCtrlCreateLabel("Slot4", 90,240)
$BCO4 = GuiCtrlCreateInput($BCO4, 130, 240)

GuiCtrlCreateLabel("Slot5", 170,220)
$BCO5 = GuiCtrlCreateInput($BCO5, 210, 220)
GuiCtrlCreateLabel("Slot6", 170,240)
$BCO6 = GuiCtrlCreateInput($BCO6, 210, 240)

GuiCtrlCreateLabel("Slot7", 250,220)
$BCO7 = GuiCtrlCreateInput($BCO7, 290, 220)
GuiCtrlCreateLabel("Slot8", 250,240)
$BCO8 = GuiCtrlCreateInput($BCO8, 290, 240)

GuiCtrlCreateLabel("Slot9", 330,220)
$BCO9 = GuiCtrlCreateInput($BCO9, 370, 220)
GuiCtrlCreateLabel("Slot0", 330,240)
$BCO0 = GuiCtrlCreateInput($BCO0, 370, 240)







GUISetState()


While 1
    $msg = GUIGetMsg()
    
    ;FILE IF's
    If $msg = $ItemOpen Then
        $file = FileOpenDialog("Choose file...", @UserProfileDir, "All (*.*)")
        If @error <> 1 Then GUICtrlCreateMenuItem($file, $ItemRecent)
    EndIf
    
    if $msg = $ItemSave Then
    GUIDelete("Setup")
    Save()
    EndIf       

    ;On the menu item close, closes script
    If $msg = $ItemClose Then Exit
    ;ON close button closes script
    If $msg = $GUI_EVENT_CLOSE then Exit
    ;Help If'Select
    if $msg = $ItemAbout Then MsgBox(0, "Info", "InfinityBot v: 0.01" & @CRLF & "By ******" & @CRLF & "AutoIt v3 Coding" & @CRLF & "Copyright© ********")
        
WEnd

EndFunc

Func Save()
    Local $Savename
    $Savename = InputBox("Save", "Enter the name you wish to save with", "EnterHere")
    
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A1", $A1)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A2", $A2)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A3", $A3)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A4", $A4)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A5", $A5)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A6", $A6)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A7", $A7)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A8", $A8)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A9", $A9)
    IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A0", $A0)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO1", $BCO1)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO2", $BCO2)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO3", $BCO3)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO4", $BCO4)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO5", $BCO5)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO6", $BCO6)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO7", $BCO7)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO8", $BCO8)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO9", $BCO9)
        IniWrite(@ScriptDir & "\" & $Savename, "BuffCooldowns", "BCO0", $BCO0)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA1", $BCA1)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA2", $BCA2)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA3", $BCA3)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA4", $BCA4)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA5", $BCA5)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA6", $BCA6)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA7", $BCA7)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA8", $BCA8)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA9", $BCA9)
            IniWrite(@ScriptDir & "\" & $Savename, "BuffCasttimes", "BCA0", $BCA0)
        
        
EndFunc

and this is the Ini outcome

[AttackCasttimes]
A1=15
A2=17
A3=19
A4=21
A5=23
A6=25
A7=27
A8=29
A9=31
A0=33
[BuffCooldowns]
BCO1=57
BCO2=0
BCO3=61
BCO4=63
BCO5=65
BCO6=67
BCO7=69
BCO8=71
BCO9=73
BCO0=75
[BuffCasttimes]
BCA1=36
BCA2=59
BCA3=40
BCA4=42
BCA5=44
BCA6=46
BCA7=48
BCA8=50
BCA9=52
BCA0=54

i hope someone can help >_<


Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D

Share this post


Link to post
Share on other sites
CarVelo

looks like WoW bot? for casting etc.. good job! hope to see more >_

Share this post


Link to post
Share on other sites
smashly

When your writing your ini use GuiCtrlRead() to retrieve the values that are in the controls

eg:

IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A1", GuiCtrlRead($A1))

Atm your writing the Control ID to your ini instead of the value that the control contains.

Share this post


Link to post
Share on other sites
Thornhunt

looks like WoW bot? for casting etc.. good job! hope to see more >_<

hehe similar kinda game XD snd thanks :(

When your writing your ini use GuiCtrlRead() to retrieve the values that are in the controls

eg:

IniWrite(@ScriptDir & "\" & $Savename, "AttackCasttimes", "A1", GuiCtrlRead($A1))

Atm your writing the Control ID to your ini instead of the value that the control contains.

ahhhhh :Pthankyou :(

Budweiser + room = warm beerwarm beer + fridge = too long!warm beer + CO2 fire extinguisher = Perfect![quote]Protect the easly offended ... BAN EVERYTHING[/quote]^^ hmm works for me :D

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.