Sign in to follow this  
Followers 0
Golbez

timer...

3 posts in this topic

#1 ·  Posted (edited)

; *** Demo to show a timer window
#include <GUIConstants.au3>
#include <Date.au3>
opt("TrayIconDebug",1)
Global $Secs, $Mins, $Hour, $Time
;Create GUI
GUICreate("Timer",120, 50)
GUICtrlCreateLabel("00:00:00", 10,10)
GUISetState()
;Start timer
$timer = TimerInit()
AdlibEnable("Timer", 50)
;
While 1
 ;FileWriteLine("debug.log",@min & ":" & @sec & " ==> before")
  $msg = GUIGetMsg()
 ;FileWriteLine("debug.log",@min & ":" & @sec & " ==> after")
  Select
     Case $msg = $GUI_EVENT_CLOSE
        Exit
  EndSelect
Wend
;
Func Timer()
  _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )
  Local $sTime = $Time  ; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
  If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time)
EndFunc  ;==>Timer
i wanna put this into my program..

i copyed everything i needed into it.. the timer() function, i made the label.. and i added the $timer= timerinit() n adlibenable("timer",50")

but it dont seem 2 work n idk y

opt("TrayIconDebug",1)

Opt("GUIONEVENTMODE", 1)

Opt("WinTitleMatchMode",4)

#include <GUIConstants.au3>

#include <Date.au3>

#include <XSkin.au3>

#include <Misc.au3>

Global $time, $game, $skillkey, $mousekey, $x, $y, $ek, $delay1, $skilldelay, $pause, $t, $pk, $spot

Global $Button1, $Button2, $Button3, $iHour, $AMPM, $iCHK, $iPid, $iCTime, $Secs, $Mins, $Hour, $Time, $timer

Dim $dupe = 0

loadini()

$XSkinGui = XSkinGUICreate("Dupe Helper", 183, 597, $Skin_Folder)

$Group1 = GUICtrlCreateGroup("Cast Spots", 23, 423, 137, 105)

$Radio1 = GUICtrlCreateRadio("Top Left", 32, 455, 97, 17)

;If $spot = 1 Then Return BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED

$Radio2 = GUICtrlCreateRadio("Top Right", 32, 471, 97, 17)

;If $spot = 2 Then Return BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED

$Radio3 = GUICtrlCreateRadio("Bottom Left", 32, 487, 97, 17)

;If $spot = 3 Then Return BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED

$Radio4 = GUICtrlCreateRadio("Bottom Right", 32, 503, 97, 17)

;If $spot = 4 Then Return BitAND(GUICtrlRead($Radio4), $GUI_CHECKED) = $GUI_CHECKED

$Radio5 = GUICtrlCreateRadio("Center", 32, 439, 97, 17)

;If $spot = 5 Then Return5 BitAND(GUICtrlRead($Radio5), $GUI_CHECKED) = $GUI_CHECKED

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button1 = GUICtrlCreateButton("Exit", 23, 531, 137, 41, 0)

GUICtrlSetOnEvent(-1, "Terminate")

GUICtrlSetCursor ($Button1, 7)

$Button2 = GUICtrlCreateButton("Start Dupe", 23, 330, 137, 41, 0)

GUICtrlSetOnEvent(-1, "pause")

$Button3 = GUICtrlCreateButton("Set Cast Spot", 23, 377, 137, 41, 0)

GUICtrlSetOnEvent(-1, "iniload")

$Group2 = GUICtrlCreateGroup("Time Spend In Game", 23, 23, 137, 57, $BS_CENTER)

GUICtrlCreateLabel("00:00:00", 70, 48)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group3 = GUICtrlCreateGroup("Current Time", 23, 82, 137, 57, $BS_CENTER)

$iCTime = GUICtrlCreateLabel('' & @CRLF & _GetHour(@HOUR) & ':' & @MIN & ':' & @SEC & ' ' & $AMPM _

, 33, 100, 120, 27, BitOR($SS_CENTER,$SS_CENTERIMAGE))

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Label2 = GUICtrlCreateLabel("Made by: Ray Smith ", 23, 155, 134, 17, $SS_CENTER)

$Label4 = GUICtrlCreateLabel("I take no blame if you get banned for breaking the rules. (duping, hacking, etc.)", 23, 286, 139, 41, $SS_CENTER)

$Label5 = GUICtrlCreateLabel("Feel free to contact me: MasterGolbez37@Gmail.com Aim: Zephino ", 23, 200, 140, 60)

GUISetState(@SW_SHOW)

GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate", $XSkinGui)

$timer = TimerInit()

AdlibEnable("Timer", 50)

WinMove ( "Dupe Helper", "", 800, 4)

While 1

loadini()

Sleep(1000)

;_AdlibManager()

WEnd

Func loadini()

;Other

$game = IniRead("d2dupe.ini", "other", "game", "Error")

$skillkey = IniRead("d2dupe.ini", "other", "skillkey", "Error")

$mousekey = IniRead("d2dupe.ini", "other", "mousekey", "Error")

$ek = IniRead("d2dupe.ini", "other", "endkey", "Error")

$pk = IniRead("d2dupe.ini", "other", "sleepkey", "Error")

$ik = IniRead("d2dupe.ini", "other", "inikey", "Error")

$skin = IniRead("d2dupe.ini", "other", "skin", "Error")

$Skin_Folder = @ScriptDir & $skin

;Spots To Cast

$spot = IniRead("d2dupe.ini", "other", "spottocast", "Error")

If $spot = 1 Then

$x = IniRead("d2dupe.ini", "Coords", "topleftx", "Error")

$y = IniRead("d2dupe.ini", "Coords", "toplefty", "Error")

ElseIf $spot = 2 Then

$x = IniRead("d2dupe.ini", "Coords", "toprightx", "Error")

$y = IniRead("d2dupe.ini", "Coords", "toprighty", "Error")

ElseIf $spot = 3 Then

$x = IniRead("d2dupe.ini", "Coords", "botleftx", "Error")

$y = IniRead("d2dupe.ini", "Coords", "botlefty", "Error")

ElseIf $spot = 4 Then

$x = IniRead("d2dupe.ini", "Coords", "botrightx", "Error")

$y = IniRead("d2dupe.ini", "Coords", "botrighty", "Error")

ElseIf $spot = 5 Then

$x = IniRead("d2dupe.ini", "Coords", "centerx", "Error")

$y = IniRead("d2dupe.ini", "Coords", "centery", "Error")

EndIf

;Delays

$delay1 = IniRead("d2dupe.ini", "delays", "maindelay", "Error")

$skilldelay = IniRead("d2dupe.ini", "delays", "skilldelay", "Error")

HotKeySet($ek, "Terminate")

HotKeySet($pk, "pause")

HotKeySet($ik, "loadini")

EndFunc

Func iniload()

Opt("GUIOnEventMode", 1)

If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then

IniWrite ( "d2dupe.ini", "other", "spottocast", "1" )

ElseIf BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED Then

IniWrite ( "d2dupe.ini", "other", "spottocast", "2" )

ElseIf BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED Then

IniWrite ( "d2dupe.ini", "other", "spottocast", "3" )

ElseIf BitAND(GUICtrlRead($Radio4), $GUI_CHECKED) = $GUI_CHECKED Then

IniWrite ( "d2dupe.ini", "other", "spottocast", "4" )

ElseIf BitAND(GUICtrlRead($Radio5), $GUI_CHECKED) = $GUI_CHECKED Then

IniWrite ( "d2dupe.ini", "other", "spottocast", "5" )

EndIf

;Opt("GUIOnEventMode", 0)

loadini()

EndFunc

Func Timer()

_TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )

Local $sTime = $Time ; save current time to be able to test and avoid flicker..

$Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)

If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time)

EndFunc

Func dupestart()

While $dupe = 1

;MouseClick($mousekey, $x, $y, 1)

sleep($skilldelay)

ClickInControl($mousekey, $game, "", "", $x, $y)

If $dupe = 0 Then ExitLoop

Sleep(10)

WEnd

EndFunc

Func pause()

If $dupe = 0 Then

GUICtrlSetData ($button2,"Stop Duping")

$dupe = 1

Getready()

Else

GUICtrlSetData ($button2,"Start Duping")

$dupe = 0

EndIf

EndFunc

;Func _AdlibManager()

; Local $aSplit = StringSplit(GUICtrlRead($iCTime), ':')

; If $aSplit[0] >= 3 And (Int($aSplit[1]) >= _GetHour(@HOUR) _

; Or Int($aSplit[2]) >= @MIN Or Int(StringTrimRight($aSplit[3], 3)) > @SEC) Then _

; GUICtrlSetData($iCTime, 'Current Time' & @CRLF & _GetHour(@HOUR) & ':' & @MIN & ':' & @SEC & ' ' & $AMPM)

; EndIf

;EndFunc

Func _IsChecked($control)

Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED

EndFunc

Func _GetHour($iHour)

Switch $iHour

Case 12

$AMPM = 'PM'

Return $iHour

Case 13 To 23

$AMPM = 'PM'

Return $iHour - 12

Case 0

$AMPM = 'AM'

Return 12

Case 1 To 11

$AMPM = 'AM'

Return $iHour

EndSwitch

EndFunc

Func _SwitchHour($iHour)

Switch $iHour

Case 12

If $AMPM = 'AM' Then

Return 0

Else

Return 12

EndIf

Case 1 To 11

If $AMPM = 'PM' Then

Return $iHour + 12

Else

Return $iHour

EndIf

EndSwitch

EndFunc

Func Terminate()

Exit 0

EndFunc

Func HoldTime()

$p = 2

MsgBox(48, "", "Paused")

EndFunc

Func StartTime()

MsgBox(48, "", "Started")

$p = 1

EndFunc

func Getready()

If WinActive($game) = 0 Then WinActivate($game)

Sleep($delay1)

WinMove($game, "", 0, 0, 800, 630)

Sleep($delay1)

MouseMove($x, $y, .5)

Sleep($delay1)

ControlSend($game, "", "", $skillkey)

Sleep($delay1)

dupestart()

EndFunc

edit: well from fittling with the demo if i change the name of the gui it stops working..

Edited by Golbez

Share this post


Link to post
Share on other sites



change this

GUICtrlCreateLabel("00:00:00", 70, 48)

to this

$ticker = GUICtrlCreateLabel("00:00:00", 70, 48)

************ and change this

If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time)

to this

If $sTime <> $Time Then GUICtrlSetData( $ticker, $Time)

****************************

By the way ... where is the skin folder

example

$Skin_Folder = @ScriptDir & "\Skins\Black-Yellow"

????

8)


NEWHeader1.png

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

change this

GUICtrlCreateLabel("00:00:00", 70, 48)

to this

$ticker = GUICtrlCreateLabel("00:00:00", 70, 48)

************ and change this

If $sTime <> $Time Then ControlSetText("Timer", "", "Static1", $Time)

to this

If $sTime <> $Time Then GUICtrlSetData( $ticker, $Time)

****************************

By the way ... where is the skin folder

example

$Skin_Folder = @ScriptDir & "\Skins\Black-Yellow"

????

8)

oo its in the ini xD

i made it so i coul change it with out having to edit the program..

\bin\skins\Hard-Steal

:D

but i love you so much right now xD

edit: how would i make it stop if i pressed a button? i made a new timer so when the "start duping" button is pressed it will start another timer :)

opt("TrayIconDebug",1)
Opt("GUIONEVENTMODE", 1)
Opt("WinTitleMatchMode",4)
#include <GUIConstants.au3>
#include <Date.au3>
#include <XSkin.au3> 
#include <Misc.au3>

Global $game, $skillkey, $mousekey, $x, $y, $ek, $delay1, $skilldelay, $pause, $t, $pk, $spot
Global $Button1, $Button2, $Button3, $iHour, $AMPM, $iCHK, $iPid, $iCTime, $Secs, $Mins, $Hour, $Time, $timer
Dim $dupe = 0
loadini()

$XSkinGui = XSkinGUICreate("Dupe Helper", 183, 597, $Skin_Folder)
$Group1 = GUICtrlCreateGroup("Cast Spots", 23, 423, 137, 105)
$Radio1 = GUICtrlCreateRadio("Top Left", 32, 455, 97, 17)
    ;If $spot = 1 Then Return BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED
$Radio2 = GUICtrlCreateRadio("Top Right", 32, 471, 97, 17)
    ;If $spot = 2 Then Return BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED
$Radio3 = GUICtrlCreateRadio("Bottom Left", 32, 487, 97, 17)
    ;If $spot = 3 Then Return BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED
$Radio4 = GUICtrlCreateRadio("Bottom Right", 32, 503, 97, 17)
    ;If $spot = 4 Then Return BitAND(GUICtrlRead($Radio4), $GUI_CHECKED) = $GUI_CHECKED
$Radio5 = GUICtrlCreateRadio("Center", 32, 439, 97, 17)
    ;If $spot = 5 Then Return5 BitAND(GUICtrlRead($Radio5), $GUI_CHECKED) = $GUI_CHECKED    
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Exit", 23, 531, 137, 41, 0)
    GUICtrlSetOnEvent(-1, "Terminate")
    GUICtrlSetCursor ($Button1, 7)
$Button2 = GUICtrlCreateButton("Start Dupe", 23, 330, 137, 41, 0)
    GUICtrlSetOnEvent(-1, "pause")
$Button3 = GUICtrlCreateButton("Set Cast Spot", 23, 377, 137, 41, 0)
    GUICtrlSetOnEvent(-1, "iniload")
$Group2 = GUICtrlCreateGroup("Time Spend In Game", 23, 23, 137, 57, $BS_CENTER)
    $ticker = GUICtrlCreateLabel("00:00:00", 70, 48)
$Group4 = GUICtrlCreateGroup("Time Spend Duping", 23, 82, 137, 57, $BS_CENTER)
    $ticker2 = GUICtrlCreateLabel("00:00:00", 70, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Current Time", 23, 140, 137, 57, $BS_CENTER)
$iCTime = GUICtrlCreateLabel('' & @CRLF & _GetHour(@HOUR) & ':' & @MIN & ':' & @SEC & ' ' & $AMPM _ 
        , 33, 160, 120, 27, BitOR($SS_CENTER,$SS_CENTERIMAGE))
    GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label2 = GUICtrlCreateLabel("Made by: Ray Smith ", 23, 205, 134, 17, $SS_CENTER)
$Label4 = GUICtrlCreateLabel("I take no blame if you get banned for  breaking the rules. (duping, hacking, etc.)", 23, 286, 139, 41, $SS_CENTER)
$Label5 = GUICtrlCreateLabel("Feel free to contact me:            MasterGolbez37@Gmail.com Aim: Zephino ", 23, 225, 140, 60)
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "Terminate", $XSkinGui)

$timer = TimerInit()
AdlibEnable("Timer", 50)

WinMove ( "Dupe Helper", "", 800, 4)
While 1
    loadini()
    Sleep(1000)
    ;_AdlibManager()
WEnd

Func loadini()
  ;Other    
    $game = IniRead("d2dupe.ini", "other", "game", "Error")
    $skillkey = IniRead("d2dupe.ini", "other", "skillkey", "Error")
    $mousekey =  IniRead("d2dupe.ini", "other", "mousekey", "Error")
    $ek = IniRead("d2dupe.ini", "other", "endkey", "Error")
    $pk = IniRead("d2dupe.ini", "other", "sleepkey", "Error")
    $ik = IniRead("d2dupe.ini", "other", "inikey", "Error")
    $skin = IniRead("d2dupe.ini", "other", "skin", "Error")
    $Skin_Folder = @ScriptDir & $skin
    
  ;Spots To Cast
    $spot = IniRead("d2dupe.ini", "other", "spottocast", "Error")
    If $spot = 1 Then
        $x = IniRead("d2dupe.ini", "Coords", "topleftx", "Error")
        $y = IniRead("d2dupe.ini", "Coords", "toplefty", "Error")
    ElseIf $spot = 2 Then
        $x = IniRead("d2dupe.ini", "Coords", "toprightx", "Error")
        $y = IniRead("d2dupe.ini", "Coords", "toprighty", "Error")
    ElseIf $spot = 3 Then
        $x = IniRead("d2dupe.ini", "Coords", "botleftx", "Error")
        $y = IniRead("d2dupe.ini", "Coords", "botlefty", "Error")
    ElseIf $spot = 4 Then
        $x = IniRead("d2dupe.ini", "Coords", "botrightx", "Error")
        $y = IniRead("d2dupe.ini", "Coords", "botrighty", "Error")
    ElseIf $spot = 5 Then
        $x = IniRead("d2dupe.ini", "Coords", "centerx", "Error")
        $y = IniRead("d2dupe.ini", "Coords", "centery", "Error")
    EndIf
    
  ;Delays
    $delay1 = IniRead("d2dupe.ini", "delays", "maindelay", "Error")
    $skilldelay = IniRead("d2dupe.ini", "delays", "skilldelay", "Error")
HotKeySet($ek, "Terminate")
HotKeySet($pk, "pause")
HotKeySet($ik, "loadini")

EndFunc
Func iniload()
    Opt("GUIOnEventMode", 1)
    If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) = $GUI_CHECKED Then
        IniWrite ( "d2dupe.ini", "other", "spottocast", "1" )
    ElseIf BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) = $GUI_CHECKED Then
        IniWrite ( "d2dupe.ini", "other", "spottocast", "2" )
    ElseIf BitAND(GUICtrlRead($Radio3), $GUI_CHECKED) = $GUI_CHECKED Then
        IniWrite ( "d2dupe.ini", "other", "spottocast", "3" )
    ElseIf BitAND(GUICtrlRead($Radio4), $GUI_CHECKED) = $GUI_CHECKED Then
        IniWrite ( "d2dupe.ini", "other", "spottocast", "4" )
    ElseIf BitAND(GUICtrlRead($Radio5), $GUI_CHECKED) = $GUI_CHECKED Then
        IniWrite ( "d2dupe.ini", "other", "spottocast", "5" )
    EndIf
    ;Opt("GUIOnEventMode", 0)
    loadini()
EndFunc
Func Timer()
  _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )
  Local $sTime = $Time  ; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
  If $sTime <> $Time Then GUICtrlSetData( $ticker, $Time)
EndFunc
Func Timer2()
  _TicksToTime(Int(TimerDiff($timer)), $Hour, $Mins, $Secs )
  Local $sTime = $Time  ; save current time to be able to test and avoid flicker..
  $Time = StringFormat("%02i:%02i:%02i", $Hour, $Mins, $Secs)
  If $sTime <> $Time Then GUICtrlSetData( $ticker2, $Time)
EndFunc  
Func dupestart()
    While $dupe = 1
        ;MouseClick($mousekey, $x, $y, 1)
        sleep($skilldelay)
        ClickInControl($mousekey, $game, "", "", $x, $y)
        If $dupe = 0 Then ExitLoop
        Sleep(10)
    WEnd
EndFunc
Func Timercheck()
    If $dupe = 1 then 
        $timer2 = TimerInit()
        AdlibEnable("Timer2", 50)
    Else
        AdlibDisable()
        $timer = TimerInit()
        AdlibEnable("Timer", 50)
    EndIf
EndFunc
Func pause()
    If $dupe = 0 Then
        GUICtrlSetData ($button2,"Stop Duping")
        $dupe = 1
        ;Timercheck()
        Getready()
    Else
        GUICtrlSetData ($button2,"Start Duping")
        $dupe = 0
        ;Timercheck()
    EndIf
EndFunc
;Func _AdlibManager()
;    Local $aSplit = StringSplit(GUICtrlRead($iCTime), ':')
;    If $aSplit[0] >= 3 And (Int($aSplit[1]) >= _GetHour(@HOUR) _
;        Or Int($aSplit[2]) >= @MIN Or Int(StringTrimRight($aSplit[3], 3)) > @SEC) Then _
;        GUICtrlSetData($iCTime, 'Current Time' & @CRLF & _GetHour(@HOUR) & ':' & @MIN & ':' & @SEC & ' ' & $AMPM)
;    EndIf
;EndFunc
Func _IsChecked($control)
    Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED
EndFunc
Func _GetHour($iHour)
    Switch $iHour
        Case 12
            $AMPM = 'PM'
            Return $iHour
        Case 13 To 23
            $AMPM = 'PM'
            Return $iHour - 12
        Case 0
            $AMPM = 'AM'
            Return 12
        Case 1 To 11
            $AMPM = 'AM'
            Return $iHour
    EndSwitch
EndFunc
Func _SwitchHour($iHour)
    Switch $iHour
        Case 12
            If $AMPM = 'AM' Then
                Return 0
            Else
                Return 12
            EndIf
        Case 1 To 11
            If $AMPM = 'PM' Then
                Return $iHour + 12
            Else
                Return $iHour
            EndIf
    EndSwitch
EndFunc
Func Terminate()
    Exit 0
EndFunc
func Getready()
    If WinActive($game) = 0 Then WinActivate($game)
    Sleep($delay1)
    WinMove($game, "", 0, 0, 800, 630)
    Sleep($delay1)
    MouseMove($x, $y, .5)
    Sleep($delay1)
    ControlSend($game, "", "", $skillkey)
    Sleep($delay1)
    dup$estart()
EndFunc

edit: AdlibDisable("Timer2") didnt work O.o

edit2: added a function 2 start n stop the second timer... how can i make it so the first one never stops??

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