Jump to content

hit a little snag

Thornhunt
 Share

Recommended Posts

Thornhunt Prodigy

Thornhunt

Posted
Posted

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

Link to comment
Share on other sites
Thornhunt Prodigy

Thornhunt

Posted
  • Author
Posted

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

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