Sign in to follow this  
Followers 0
Golbez

help plz?

14 posts in this topic

i made a program for a game i play..

if possable can someone help me make a GUI menu :whistle:

it has to have 4 buttons.

1. Start

2. Pause

3. Reload ini

4. Exit

This menu also has to have a spot were if the user presses start,pause, or reload ini then a message must appear that says the program has done this task.

Program

;Other
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")

WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
$x = 1
While $x > 0
    While $x = 1
        For $e = 1 to $ct
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            Send ($ms)
            If $e < $ct then
                $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                Sleep ($sd + $y)
            EndIf
        Next
        $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
        Sleep ($sm + $R)
        IF WinActive ( $game ) = 0 Then WinActivate($game )
        For $a = 1 to ($ct + 3)
            Send ($sk)
        Next
        $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
        Sleep (($wm * $ct) + $S)
    WEnd
WEnd

Func HoldTime()
    $x = 2
    MsgBox(4096, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(4096, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
    MsgBox(4096, "", "Stopped", $md)
EndFunc
Func IniLoad()
    MsgBox(4096, "", "InI reloaded", $md)
   ;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

   ;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

   ;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc

InI

[Other]
game = Water Margin Online
timestocast = 1

[Delays]
;sitdelay = 2800  LOWEST!!
sitmin = -100
sitmax = 100
sitdelay = 3000
waitmin = -5000
waitmax = 5000
waitdelay = 10000
skilldelay = 4000
messagedelay = 1

[Keys] 
;F-keys  (must be like this {f1}, {f2}, etc)
mainskill = {F4}
secondskill = {F2}
thirdskill = {F3}
fourthskill = {F4}
fifthskill = {F5}
sixthskill = {F6}
seventhskill = {F7}
eighthkill = {F8}
ninthkill = {F9}
sitkey = {F2}
endkey = {END}
pausekey = {PGUP}
startkey = {HOME}
inireload = {PGDN}

thanx

-Golbez

Share this post


Link to post
Share on other sites



SciTe >> Tools >> Koda


[center]Common sense plays a role in the basics of understanding AutoIt... If you're lacking in that, do us all a favor, and step away from the computer.[/center]

Share this post


Link to post
Share on other sites

i thought there was a GUI tool but i cant seem 2 find it on my SciTE

Share this post


Link to post
Share on other sites

i thought there was a GUI tool but i cant seem 2 find it on my SciTE

make sure you're using

SciTe4Au3

Here:

Autoit Downloads

Share this post


Link to post
Share on other sites

#5 ·  Posted (edited)

nvm i relized i had 2 be in my program and not in a new window :)

can someone help me again..

i dont no how 2 tell my program 2 do somethin after the button is pressed :whistle:... help plz :).. i figured out how 2 make it use the menu but i cant figure out how to make it work..

;Other
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")

WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
#include <GUIConstants.au3>
$Form1 = GUICreate("No AFK  <=>  By Ray Smith", 641, 49, 321, 617)
$Button1 = GUICtrlCreateButton("&Start", 0, 0, 113, 49)
$Button2 = GUICtrlCreateButton("&Pause", 120, 0, 113, 49)
$Button3 = GUICtrlCreateButton("&Reload InI", 240, 0, 113, 49)
$Button4 = GUICtrlCreateButton("&Exit", 528, 0, 113, 49)
GUISetState(@SW_SHOW)
$x = 1
While 1
    $msg = GuiGetMsg()
    While $x > 0
        While $x = 1
            For $e = 1 to $ct
                IF WinActive ( $game ) = 0 Then WinActivate($game )
                Send ($ms)
                If $e < $ct then
                    $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                    Sleep ($sd + $y)
                EndIf
            Next
            $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
            Sleep ($sm + $R)
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            For $a = 1 to ($ct + 3)
                Send ($sk)
            Next
            $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
            Sleep (($wm * $ct) + $S)
        WEnd
    WEnd
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $button1;Start
            StartTime()
        Case $msg = $button2;Pause
            HoldTime()
        Case $msg = $button3; Reload InI
            IniLoad()
        Case $msg = $button4;Exit
            Terminate()
        Case Else
        ;;;;;;;
    EndSelect

WEnd


Func HoldTime()
    $x = 2
    MsgBox(4096, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(4096, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
    MsgBox(4096, "", "Stopped", $md)
EndFunc
Func IniLoad()
    MsgBox(4096, "", "InI reloaded", $md)
;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")

;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc
Edited by Golbez

Share this post


Link to post
Share on other sites
:whistle: it hates me

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Func HoldTime()
    $x = 2
    MsgBox(4096, "", "Paused", $md)
EndFunc

I'm still not sure what exactly you are trying to do with this script. I hope some of the more verteran coders here can help ya. :whistle:

Edited by Somniis

Share this post


Link to post
Share on other sites

Func HoldTime()
    $x = 2
    MsgBox(4096, "", "Paused", $md)
EndFunc
 oÝ÷ Úò¢ç(ºW]¢Ø^rX殶­s`¤gVæ2öÆEFÖR¢b33c·Òæ÷Bb33c·¢bb33c·ÒFVà¢×6t&÷CbÂgV÷C²gV÷C²ÂgV÷CµW6VBgV÷C²Âb33c¶ÖB¢VÇ6P¢×6t&÷CbÂgV÷C²gV÷C²ÂgV÷Cµ7F'FVBgV÷C²Âb33c¶ÖB¢VæD`¤VæDgVæ0¢

I'm still not sure what exactly you are trying to do with this script. I hope some of the more verteran coders here can help ya. :whistle:

i did that do it would stop running the part that sends commands but would not end the program.

Share this post


Link to post
Share on other sites

i added a new button... :) but i still cant figure out how 2 make it work :whistle:

$md = 1
#include <GUIConstants.au3>
$NoAfk = GUICreate("No AFK  <=>  By Ray Smith", 641, 49, 321, 617)
$Button1 = GUICtrlCreateButton("Start", 0, 0, 113, 49)
GUICtrlSetTip(-1, "This pauses the program.")
$Button2 = GUICtrlCreateButton("Pause", 120, 0, 113, 49)
GUICtrlSetTip(-1, "Starts the program if it is stopped.")
$Button3 = GUICtrlCreateButton("Load InI", 240, 0, 113, 49)
GUICtrlSetTip(-1, "This loads the information in the InI file .")
$Button4 = GUICtrlCreateButton("Open InI", 360, 0, 105, 49, 0)
GUICtrlSetTip(-1, "This opens the ini with the set program.")
$Button5 = GUICtrlCreateButton("Exit", 528, 0, 113, 49)
GUICtrlSetCursor ($Button5, 7)
GUISetState(@SW_SHOW)
While $md = 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $button1
        MsgBox(48, "", "Paused", $md)
    Case $msg = $button2
        MsgBox(48, "", "Started", $md)
    Case $msg = $button3
        MsgBox(64, "", "InI loaded", $md)
    Case $msg = $button4
        MsgBox(64, "", "InI file opened", $md)
    Case $msg = $button5
        exit
    EndSelect  
WEnd

program:

;Other$$
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
    $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "iniload", "NotFound")
    $iok = IniRead("WMO.ini", "Keys", "iniopen", "NotFound")
    
WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
HotKeySet($iok, "OpenIni")
$x = 1
While $x > 0
    While $x = 1
        For $e = 1 to $ct
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            Send ($ms)
            If $e < $ct then
                $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                Sleep ($sd + $y)
            EndIf
        Next
        $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
        Sleep ($sm + $R)
        IF WinActive ( $game ) = 0 Then WinActivate($game )
        For $a = 1 to ($ct + 3)
            Send ($sk)
        Next
        $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
        Sleep (($wm * $ct) + $S)
    WEnd
WEnd


Func HoldTime()
    $x = 2
    MsgBox(48, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(48, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
EndFunc
Func IniLoad()
    MsgBox(64, "", "InI reloaded", $md)
   ;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
        $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

   ;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

   ;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc
Func OpenIni()
    MsgBox(64, "", "ini File opened", $md)
    Run($fd & " WMO.ini","", @SW_MAXIMIZE)
EndFunc

Share this post


Link to post
Share on other sites

$md = 1
Opt("GUIOnEventMode", 1)
#include <GUIConstants.au3>
$NoAfk = GUICreate("No AFK  <=>  By Ray Smith", 641, 49, 321, 617)
$Button1 = GUICtrlCreateButton("Start", 0, 0, 113, 49)
GUICtrlSetTip(-1, "This pauses the program.")
GUISetOnEvent(-1, "StartTime")
$Button2 = GUICtrlCreateButton("Pause", 120, 0, 113, 49)
GUICtrlSetTip(-1, "Starts the program if it is stopped.")
GUISetOnEvent(-1, "HoldTime")
$Button3 = GUICtrlCreateButton("Load InI", 240, 0, 113, 49)
GUICtrlSetTip(-1, "This loads the information in the InI file .")
GUISetOnEvent(-1, "IniLoad")
$Button4 = GUICtrlCreateButton("Open InI", 360, 0, 105, 49, 0)
GUICtrlSetTip(-1, "This opens the ini with the set program.")
GUISetOnEvent(-1, "OpenIni")
$Button5 = GUICtrlCreateButton("Exit", 528, 0, 113, 49)
GUISetOnEvent(-1, "Terminate")
GUICtrlSetCursor ($Button5, 7)
GUISetState(@SW_SHOW)
;While $md = 1
    ;$msg = GuiGetMsg()
    ;Select
    ;Case $msg = $GUI_EVENT_CLOSE
        ;ExitLoop
    ;Case $msg = $button1
        ;MsgBox(48, "", "Paused", $md)
    ;Case $msg = $button2
        ;MsgBox(48, "", "Started", $md)
    ;Case $msg = $button3
        ;MsgBox(64, "", "InI loaded", $md)
    ;Case $msg = $button4
        ;MsgBox(64, "", "InI file opened", $md)
    ;Case $msg = $button5
        ;exit
    ;EndSelect  
;WEnd

;Other$$
    $game = IniRead("WMO.ini", "Other", "game", "NotFound")
    $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
    $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

;Delays
    $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
    $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
    $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
    $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
    $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
    $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
    $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
    $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

;Skills / Keys pressed
    $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
    $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
    $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
    $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
    $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
    $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
    $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
    $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
    $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
    $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
    $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
    $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
    $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
    $irk = IniRead("WMO.ini", "Keys", "iniload", "NotFound")
    $iok = IniRead("WMO.ini", "Keys", "iniopen", "NotFound")
    
WinActivate($game)
HotKeySet($ek, "Terminate")
HotKeySet($pk, "HoldTime")
HotKeySet($stk, "StartTime")
HotKeySet($irk, "IniLoad")
HotKeySet($iok, "OpenIni")
$x = 1
While $x > 0
    While $x = 1
        For $e = 1 to $ct
            IF WinActive ( $game ) = 0 Then WinActivate($game )
            Send ($ms)
            If $e < $ct then
                $y = Random($smn, $smx, 1) ; generate an integer between -100 and 100
                Sleep ($sd + $y)
            EndIf
        Next
        $R = Random($smn, $smx, 1) ; generate an integer between -100 and 100
        Sleep ($sm + $R)
        IF WinActive ( $game ) = 0 Then WinActivate($game )
        For $a = 1 to ($ct + 3)
            Send ($sk)
        Next
        $S = Random(-$wmn, $wmx, 1) ; generate an integer between -5000 and 5000
        Sleep (($wm * $ct) + $S)
    WEnd
WEnd


Func HoldTime()
    $x = 2
    MsgBox(48, "", "Paused", $md)
EndFunc
Func StartTime()
    MsgBox(48, "", "Started", $md)
    $x = 1
EndFunc
Func Terminate()
    Exit 0
EndFunc
Func IniLoad()
    MsgBox(64, "", "InI reloaded", $md)
   ;Other
        $game = IniRead("WMO.ini", "Other", "game", "NotFound")
        $ct = IniRead("WMO.ini", "Other", "timestocast", "NotFound")
        $fd = IniRead("WMO.ini", "Other", "iniprogram", "NotFound")

   ;Delays
        $smn = IniRead("WMO.ini", "Delays", "sitmin", "NotFound")
        $smx = IniRead("WMO.ini", "Delays", "sitmax", "NotFound")
        $sm = IniRead("WMO.ini", "Delays", "sitdelay", "NotFound")
        $wmn = IniRead("WMO.ini", "Delays", "waitmin", "NotFound")
        $wmx = IniRead("WMO.ini", "Delays", "waitmax", "NotFound")
        $wm = IniRead("WMO.ini", "Delays", "waitdelay", "NotFound")
        $sd = IniRead("WMO.ini", "Delays", "skilldelay", "NotFound")
        $md = IniRead("WMO.ini", "Delays", "messagedelay", "NotFound")

   ;Skills / Keys pressed
        $ms = IniRead("WMO.ini", "Keys", "mainskill", "NotFound")
        $s2 = IniRead("WMO.ini", "Keys", "secondskill", "NotFound")
        $s3 = IniRead("WMO.ini", "Keys", "thirdskill", "NotFound")
        $s4 = IniRead("WMO.ini", "Keys", "fourthskill", "NotFound")
        $s5 = IniRead("WMO.ini", "Keys", "fifthskill", "NotFound")
        $s6 = IniRead("WMO.ini", "Keys", "sixthskill", "NotFound")
        $s7 = IniRead("WMO.ini", "Keys", "seventhskill", "NotFound")
        $s8 = IniRead("WMO.ini", "Keys", "eighthkill", "NotFound")
        $s9 = IniRead("WMO.ini", "Keys", "ninthkill", "NotFound")
        $sk = IniRead("WMO.ini", "Keys", "sitkey", "NotFound")
        $ek = IniRead("WMO.ini", "Keys", "endkey", "NotFound")
        $pk = IniRead("WMO.ini", "Keys", "pausekey", "NotFound")
        $stk = IniRead("WMO.ini", "Keys", "startkey", "NotFound")
        $irk = IniRead("WMO.ini", "Keys", "inireload", "NotFound")
EndFunc
Func OpenIni()
    MsgBox(64, "", "ini File opened", $md)
    Run($fd & " WMO.ini","", @SW_MAXIMIZE)
EndFunc

Try that.

#)

Share this post


Link to post
Share on other sites

#11 ·  Posted (edited)

well i might work but idk if it does..

it loads then gos right into trying to load the ini file

Edited by Golbez

Share this post


Link to post
Share on other sites

@Golbez

Read the help file under :

Start > Programs>Autoit v3> helpfile

It is one of the best tools there come with autoit


My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! you’re the best in town Fight!

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

@Golbez

Read the help file under :

Start > Programs>Autoit v3> helpfile

It is one of the best tools there come with autoit

i did it didnt help me..

y cant u be a normal person and tell me what 2 do or lead me in the direction instead of telling me what 2 read :):whistle:

i use this alot so this helpfile dont help me if i dont understand the gui 2 begin with..

http://www.autoitscript.com/autoit3/docs/

Edited by Golbez

Share this post


Link to post
Share on other sites

#14 ·  Posted (edited)

fixxed it..

was using the wroung command.. needed 2 use

GUICtrlSetOnEvent

not: GUISetOnEvent

thanx everyone for the help :whistle:

Edited by Golbez

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