xfantix1

Script Problem

6 posts in this topic

Hello,

i have a Problem with my If Scrips. Can someone check this and help me to fix this.

I´m new here ;/

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compile_Both=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ImageSearch.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiToolbar.au3>
#include <StaticConstants.au3>
#include <ToolbarConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 625, 442, 588, 168)
$Start = GUICtrlCreateButton("Start Botting!", 16, 240, 169, 57)
GUICtrlSetFont(-1, 16, 800, 0, "Sitka Text")
GUICtrlSetBkColor(-1, 0xC8C8C8)
$Pic1 = GUICtrlCreatePic("C:\Users\1\Desktop\Bot\Logo.jpg", 24, 24, 569, 129)
$Edit1 = GUICtrlCreateEdit("", 208, 200, 201, 217)
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Support!", 432, 240, 169, 57)
GUICtrlSetFont(-1, 16, 800, 0, "Sitka Text")
GUICtrlSetBkColor(-1, 0xC8C8C8)
$ToolBar1 = _GUICtrlToolbar_Create($Form1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ##



While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


;Mirage und Bot wird gestartet
    Case $Start
            ShellExecute ("C:\Users\1\Desktop\MirageBot\Resourcen\Spiel\Mirage.jar")
            sleep(1000)

;Anmeldung

        $a = 0
        $b = 0
        $anmelden = 0
        $anmelden = _ImageSearch("C:\Users\1\Desktop\MirageBot\Resourcen\Bilder\Anmelden.png",1,$a,$b,0)
    If $anmelden = 1 Then
        MouseClick("left", $a, $b)
        sleep(1000)
    Elseif $anmelden = 0 Then
            MsgBox("0","Fehler 1","Du bist nicht im Hauptmenü!")
    EndIf

;Auswahl

        $c = 0
        $d = 0
        $auswahl = 0
        $auswahl = _ImageSearch("C:\Users\1\Desktop\MirageBot\Resourcen\Bilder\Auswahl.png",1,$c,$d,0)
    If $auswahl = 1 Then
        MouseClick("left", $c, $d)
    Elseif $auswahl = 0 Then
            MsgBox("0","Fehler 2","Auswahlmenü fehlerhaft!")
    EndIf


;Kampf

        $e = 0
        $f = 0
        $kampf = 0
       $kampf = _ImageSearch("C:\Users\1\Desktop\MirageBot\Resourcen\Bilder\Monster.png",1,$e,$f,0)
    If $kampf = 1 Then
        MouseClick("left", $e, $f)
        sleep(1000)
    Elseif $kampf = 0 Then
            MsgBox("0","Fehler 3","Kampfsystem fehlerhaft!")
    EndIf




        Case $Edit1
        Case $Button1
            MsgBox(0,"Support", "Solltest du Fragen oder Probleme haben, melde dich per E-Mail an philipKost1@web.de oder in Skype unter dem Namen xfantix")
    EndSwitch
WEnd

 

Share this post


Link to post
Share on other sites

#2 ·  Posted (edited)

16 minutes ago, xfantix1 said:

i have a Problem with my If Scrips. Can someone check this and help me to fix this.

I´m new here ;/

Don't you think it would be handy to state what your problem is or is this a quiz?

ps: On second though: It feels this is a script for game automation, so I strongly advice you to read our forum rules before continuing your questions in this forum. 

Jos

Edited by Jos

Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
My problem is that if queries are not detected.

Share this post


Link to post
Share on other sites

yeah ;)  The script is not a quiz. It should help me with a game.

Share this post


Link to post
Share on other sites

As stated: Please read the forumrules as thet clearly state we don't want any game automation topics in our forums.

Jos


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.