Integrate 2 Script plz :)

[Aklentys]

Voler les sources du monde c'est mal

Edited December 3, 2009 by Aklentys

[dbzfanatic]

Did you write these scripts or did someone else? Also you should use Case statements in the While loop. It wouldn't be too difficult to rewrite this script, I've got a little time so I might just do that and post it in a bit.

Edit: Here you go.

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)


Local $defaultstatus = "Automatic T4C by Aklentys", $status, $filemenu, $fileitem
Local $helpmenu, $saveitem, $infoitem, $changelog, $exititem
Local $separator1, $viewmenu, $viewstatusitem, $okbutton, $cancelbutton
Local $statuslabel, $msg, $file

GUICreate("Automatic T4C", 625, 443, 192, 124)
GUISetIcon("C:\abo\T4C.exe")

HotKeySet("{F6}", "Start")
HotKeySet("!{F6}","Quit")

$filemenu = GUICtrlCreateMenu("&File")
$fileitem = GUICtrlCreateMenuItem("Open", $filemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
$helpmenu = GUICtrlCreateMenu("?")
$saveitem = GUICtrlCreateMenuItem("Save", $filemenu)
GUICtrlSetState(-1, $GUI_DISABLE)
$infoitem = GUICtrlCreateMenuItem("Info", $helpmenu)
$changelog = GUICtrlCreateMenuItem("Change log", $helpmenu)
$exititem = GUICtrlCreateMenuItem("Exit", $filemenu)
$separator1 = GUICtrlCreateMenuItem("", $filemenu, 2) ; create a separator line
$viewmenu = GUICtrlCreateMenu("View", -1, 1) ; is created before "?" menu
$viewstatusitem = GUICtrlCreateMenuItem("Copyright", $viewmenu)
GUICtrlSetState(-1, $GUI_CHECKED)
$okbutton = GUICtrlCreateButton("Lancer Auto Pots", 50, 130, 90, 20)
GUICtrlSetState(-1, $GUI_FOCUS)
$cancelbutton = GUICtrlCreateButton("Quitter", 180, 130, 70, 20)

$statuslabel = GUICtrlCreateLabel($defaultstatus, 0, 410, 650, 16, BitOR($SS_SIMPLE, $SS_SUNKEN))
; Positionnement des pièces
GUISetState()

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case $viewstatusitem
            If BitAND(GUICtrlRead($viewstatusitem), $GUI_CHECKED) = $GUI_CHECKED Then
                GUICtrlSetState($viewstatusitem, $GUI_UNCHECKED)
                GUICtrlSetState($statuslabel, $GUI_HIDE)
            Else
                GUICtrlSetState($viewstatusitem, $GUI_CHECKED)
                GUICtrlSetState($statuslabel, $GUI_SHOW)
            EndIf
        Case $GUI_EVENT_CLOSE
            Exit
        Case $cancelbutton
            Exit
        Case $exititem
            Exit
        Case $changelog
            MsgBox(0, "ChangeLog", "Version 1.0.1 Permet la gestion des potions VIA le GUI T4C. Version 1.0.2 Un panel graphique (celui-ci) a été créer. Version 1.0.3 Un personnage avec 700 HP (Niveau 50) résiste au Lw2 + MMS2 jusqu'à épuisement des potions")
        Case $infoitem
            MsgBox(0, "Informations", "Automatic T4C à été créer sans buts précis. Sa première utilisation était destinée à ne pas laisser mourir le joueurs sous les projectiles en gardant la bar de vie en haut du 5/6")
        Case $okbutton
            Start()
    EndSwitch
WEnd

TogglePause()

Func Start()
    HotKeySet("{F6}")
    HotKeySet("{F6}", "TogglePause")
    ToolTip('Auto Pots T4C ON', 200, 55)
    While 1
        $checksum = PixelSearch(1007, 69, 1007, 69,0x212021,1)
        While $checksum = PixelSearch(1007, 69, 1007, 69,0x212021,1)
            Sleep(100)
        WEnd
        If Not @error Then
            Send("{F10}")
        EndIf
        Sleep(100)
    WEnd
EndFunc

Func TogglePause()
    ToolTip('Auto Pots T4C By Shinogamy PRESS F6',175,41)
    HotKeySet("{F6}")
    HotKeySet("{F6}", "Start")
    While 1
        sleep(100)
    WEnd
EndFunc

func Quit()
    Exit
EndFunc

Edited September 1, 2009 by dbzfanatic

[Aklentys]

Ok thanks but problems,

I got error so i removed Opt('MustDeclareVars', 1) so It works

Second error: When I press Lancer Auto Pots, The Popup to press F6 start..But I cant close the first page Automatic T4C

Maybe making a HotKeySet to close ONLY the second script (Auto Pots T4C By Shinogamy PRESS F6) would resolve the problem but I try with Exit but It stop all the 2 files

Thanks for help

[Aklentys]

Ok thanks but problems,

I got error so i removed Opt('MustDeclareVars', 1) so It works

Second error: When I press Lancer Auto Pots, The Popup to press F6 start..But I cant close the first page Automatic T4C

Maybe making a HotKeySet to close ONLY the second script (Auto Pots T4C By Shinogamy PRESS F6) would resolve the problem but I try with Exit but It stop all the 2 files

Thanks for help

Up?