Sign in to follow this  
Followers 0
Aklentys

Integrate 2 Script plz :)

4 posts in this topic

#1 ·  Posted (edited)

Voler les sources du monde c'est mal :D

Edited by Aklentys

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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.

#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 by dbzfanatic

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

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?

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