Kleines Tool zur Übung

[amnesi]

Ich hab mal ein bischen mit _Imagesearch rumgespielt
und rausgekommen ist ein kleines Tool für das Browsergame


Was macht es?

Es erscheint eine Gui in der versch. Buttons sind mit den jeweiligen Gebäuden(nicht alle....)
Wenn man auf die Buttons von Gebäude klickt wird nach den Gebäuden auf dem Bildschirm gesucht und raufgeklickt.
Bei Symbolen sind die Symbole im Hauptgebäude gemeint..
also wenn man z.b. auf das Symbol Holzfäller klickt wird nach diesem Symbol gesucht und wenn es gefunden wurde wird der Holzfäller ausgebaut..........

Ich wollte fragen ob ihr es testen könnt


Wie oben schon gesagt es ist nur zur Übung entstanden.

Source:

 Spoiler

PHP Code:

HotKeySet("{F4}","_Suche_beenden")
#include <ImageSearch.au3>
$x=0
$y=0
$search = 0


#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Die Staemme Tool", 475, 334, 192, 124)
$Group1 = GUICtrlCreateGroup("Gebäude", 8, 8, 457, 153)
$Haupthaus = GUICtrlCreateButton("Hauptgebäude", 16, 24, 131, 25, 0)
$Versammlungsplatz = GUICtrlCreateButton("Versammlungsplatz", 16, 56, 131, 25, 0)
$Kirche = GUICtrlCreateButton("Kirche", 16, 88, 131, 25, 0)
$Versteck = GUICtrlCreateButton("Versteck", 16, 120, 131, 25, 0)
$Speicher = GUICtrlCreateButton("Speicher", 168, 24, 131, 25, 0)
$Holz = GUICtrlCreateButton("Holzfäller", 168, 56, 131, 25, 0)
$Lehm = GUICtrlCreateButton("Lehmgrube", 168, 88, 131, 25, 0)
$Eisen = GUICtrlCreateButton("Eisenmine", 168, 120, 131, 25, 0)
$Wall = GUICtrlCreateButton("Wall", 320, 56, 131, 25, 0)
$Statue = GUICtrlCreateButton("Statue", 320, 88, 131, 25, 0)
$Bauernhof = GUICtrlCreateButton("Bauernhof", 320, 120, 131, 25, 0)
$Kaserne = GUICtrlCreateButton("Kaserne", 320, 24, 131, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Symbole", 8, 176, 457, 145)
$Haupthau = GUICtrlCreateButton("Hauptgebäude", 16, 192, 131, 25, 0)
$Versammlungsplat = GUICtrlCreateButton("Versammlungsplatz", 16, 224, 131, 25, 0)
$Kirch = GUICtrlCreateButton("Kirche", 16, 256, 131, 25, 0)
$Verstec = GUICtrlCreateButton("Versteck", 16, 288, 131, 25, 0)
$Speiche = GUICtrlCreateButton("Speicher", 168, 192, 131, 25, 0)
$Hol = GUICtrlCreateButton("Holzfäller", 168, 224, 131, 25, 0)
$Leh = GUICtrlCreateButton("Lehmgrube", 168, 256, 131, 25, 0)
$Eise = GUICtrlCreateButton("Eisenmine", 168, 288, 131, 25, 0)
$Kasern = GUICtrlCreateButton("Kaserne", 320, 192, 131, 25, 0)
$Wal = GUICtrlCreateButton("Wall", 320, 224, 131, 25, 0)
$Statu = GUICtrlCreateButton("Statue", 320, 256, 131, 25, 0)
$Bauernho = GUICtrlCreateButton("Bauernhof", 320, 288, 131, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Button()

Func Button()
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case -3        
            Exit
        case $Haupthaus
            global $Bild = @scriptdir&"\Gebäude\Hauptgebäude.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Versammlungsplatz
            global $Bild = @scriptdir&"\Gebäude\Versammlungsplatz.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Kirche 
            global $Bild = @scriptdir&"\Gebäude\Kirche.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Versteck 
            global $Bild = @scriptdir&"\Gebäude\Versteck.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Speicher
            global $Bild = @scriptdir&"\Gebäude\Speicher.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Holz
            global $Bild = @scriptdir&"\Gebäude\Holzfäller.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Lehm
            global $Bild = @scriptdir&"\Gebäude\Lehmgrube.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Eisen
            global $Bild = @scriptdir&"\Gebäude\Eisenmine.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Statue
            global $Bild = @scriptdir&"\Gebäude\Statue.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Bauernhof
            global $Bild = @scriptdir&"\Gebäude\Bauernhof.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            exitloop
        case $Haupthau
            global $Bild = @scriptdir&"\Symbole\Hauptgebäude.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Versammlungsplat
            global $Bild = @scriptdir&"\Symbole\Versammlungsplatz.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Kirch
            global $Bild = @scriptdir&"\Symbole\Kirche.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Verstec
            global $Bild = @scriptdir&"\Symbole\Versteck.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Speiche
            global $Bild = @scriptdir&"\Symbole\Speicher.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Hol
            global $Bild = @scriptdir&"\Symbole\Holzfäller.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Leh
            global $Bild = @scriptdir&"\Symbole\Lehmgrube.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Eise
            global $Bild = @scriptdir&"\Symbole\Eisenmine.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Kasern
            global $Bild = @scriptdir&"\Symbole\Kaserne.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Wal
            global $Bild = @scriptdir&"\Symbole\Wall.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Statu
            global $Bild = @scriptdir&"\Symbole\Statue.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
        case $Bauernho
            global $Bild = @scriptdir&"\Symbole\Bauernhof.png"
            winmove("Die Staemme Tool", "", 880, 5)
            winsetstate("Die Staemme Tool", "",@sw_hide)
            Symbole()
    EndSwitch
WEnd
endfunc

while 1
$search = _ImageSearch($Bild,1,$x,$y,1) 
if $search = 1 Then
    mouseclick("left",$x,$y)
    winsetstate("Die Staemme Tool", "",@sw_show)
    Button()
endif
wend

Func Symbole()
while 1
$search = _ImageSearch($Bild,1,$x,$y,1) 
if $search = 1 Then
    mouseclick("left",$x+550,$y)
    winsetstate("Die Staemme Tool", "",@sw_show)
    Button()
endif
wend
endfunc

func _Suche_beenden()
    winsetstate("Die Staemme Tool", "", @sw_show)
endfunc 


Bilder usw sind im Anhang

Hier Virusscan VT geht i. wie nich da hab ich Kaspersky genommen:

[xEr0r]

glaube nicht das, dass das jmd. spielt

[omer36]

du bist auch so ein pusher wa?

[Daacher]

Originally Posted by xEr0r

glaube nicht das, dass das jmd. spielt

naja.. ich glaube, einige spielen stämme : )