Also erstmal WOW das ist wirklich ein tolles Spiel.
Ich schreib jetzt hier einfach nen paar negative Sachen, da das positive ja wohl offensichtlich ist.
Also, ich würde Maus nach oben/unten machen tauschen, also dass wenn man die Maus zu sich zieht, das Kreuz nach unten geht.
Gerade ist ein Gegner zeimlich nahe gekommen, auf einmal war er unsichtbar, auf der Karte aber noch zu sehen.
DFPWare
Beiträge von DFPWare
-
-
Mal gucken ob jemand fragt
DFPWare -
Jap Fences is nich schlecht, wenn mans braucht, ich brauchs nich
Wie könnt ihr eigentlich alle so sexy Hintergrundbilder haben, was macht ihr denn wenn die Mutti reinkommt?
DFPWare -
Zitat
Manchmal Hilfe per TeamViewer
PC reparatur
PCs neu herrichten wie z.b. Windows 7 neuinstallieren und alles...
Und Programme schreiben in AutoIt auch aber jetzt nich so viele....Sag mal woher bekommst du eigentlich die Aufträge, das könnte ich auch alles machen, wenn mich mal einer fragen würde
DFPWare -
Wow die ist wirklich toll geworden
Wie bekommst du die Binärdaten eines Bildes?
DFPWare -
Seid wann sind ín *.exe Dateien Icons enthalten
Du meinst wohl eher aus einer *.dll oder?
DFPWare
-
Hmm... ich hab ne Idee:
Wie wärs denn, wenn du mal deinen Quellcode posten würdest, weil
Zitateinen mehrzeiligen Code am besten bearbeitet
sagt mir rein gar nix näheres
DFPWare
-
Ey hallo!?
Kannst du nicht mal 1 oder 2 Tage auf ne Antwort warten?
Vielleicht können dir mehr Leute helfen, wenn du deine Antworten mal ein wenig mehr ausformulieren würdest, was stimmt an den Rückgabewerten nicht, hast du dir überhaupt die Hilfe dazu durchgelesen? usw..
DFPWare
-
Ich versteh die Frage nich
Meinst du das in etwa so?
Spoiler anzeigen
[autoit]For $i = 0 To 10
[/autoit]
_deineFunktion($i)
Sleep(100)
Next
Func _deineFunktion($param)
ConsoleWrite($param)
EndFuncDFPWare
-
Ich weiß ja nicht ob du das suchst, aber vielleicht ist ProcessGetStats ein Anfang
DFPWare
-
Ja tut mir leid, ich füg das oben ein...
DFPWare -
Ja das mit dem schwarzen Rand hat mich auch gewundert, danke
Ich mag Century Gothic halt
DFPWare -
Hey Leute,
ich meld mich auch mal wieder mit einem kleinen Skript. Und zwar finde ich die M$ Bildschirmtastatur etwas....unpraktisch
Deshalb hab ich mir gedacht, wozu gibt es denn das Mausrad?
Also hier ist das Ergebnis, man scrollt durch die Buchstaben und wenn man auf das Rad drückt, dann wird der Buchstabe gesendet, aber ich hab keine Ahnung, wie ich es hinbekommen soll, dass ich auf ein anderes Fenster klicken kann und die Tastatur trotzdem noch zu sehen ist, aber nicht das aktive Fenster ist.
Achja, ihr braucht noch die MouseOnEvent.au3 und die Schriftart Century Gothic
Spoiler anzeigen
[autoit]#include <GDIPlus.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include "MouseOnEvent.au3"
HotKeySet("{ESC}","ENDE")
Dim $brushes[26]
Global $aktuellerBrush = 0
$Gui = GUICreate("",1366,100,0,@DesktopHeight-100,$WS_POPUPWINDOW)
_GDIPlus_Startup()
$brushBlau = _GDIPlus_BrushCreateSolid(0xFF79ABFF)
$brushSchwarz = _GDIPlus_BrushCreateSolid(0xFF000000)
$brushes[0] = $brushBlau
For $i = 1 To 25
$brushes[$i] = $brushSchwarz
Next
$format = _GDIPlus_StringFormatCreate()
$fontFamily = _GDIPlus_FontFamilyCreate("Century Gothic")
$font = _GDIPlus_FontCreate($fontFamily,60)
$layoutA = _GDIPlus_RectFCreate(10,0,100,100)
$layoutB = _GDIPlus_RectFCreate(80,0,100,100)
$layoutC = _GDIPlus_RectFCreate(130,0,100,100)
$layoutD = _GDIPlus_RectFCreate(200,0,100,100)
$layoutE = _GDIPlus_RectFCreate(260,0,100,100)
$layoutF = _GDIPlus_RectFCreate(300,0,100,100)
$layoutG = _GDIPlus_RectFCreate(340,0,100,100)
$layoutH = _GDIPlus_RectFCreate(410,0,100,100)
$layoutI = _GDIPlus_RectFCreate(460,0,100,100)
$layoutJ = _GDIPlus_RectFCreate(480,0,100,100)
$layoutK = _GDIPlus_RectFCreate(510,0,100,100)
$layoutL = _GDIPlus_RectFCreate(560,0,100,100)
$layoutM = _GDIPlus_RectFCreate(600,0,100,100)
$layoutN = _GDIPlus_RectFCreate(670,0,100,100)
$layoutO = _GDIPlus_RectFCreate(730,0,100,100)
$layoutP = _GDIPlus_RectFCreate(800,0,100,100)
$layoutQ = _GDIPlus_RectFCreate(850,0,100,100)
$layoutR = _GDIPlus_RectFCreate(920,0,100,100)
$layoutS = _GDIPlus_RectFCreate(970,0,100,100)
$layoutT = _GDIPlus_RectFCreate(1010,0,100,100)
$layoutU = _GDIPlus_RectFCreate(1040,0,100,100)
$layoutV = _GDIPlus_RectFCreate(1090,0,100,100)
$layoutW = _GDIPlus_RectFCreate(1150,0,100,100)
$layoutX = _GDIPlus_RectFCreate(1220,0,100,100)
$layoutY = _GDIPlus_RectFCreate(1270,0,100,100)
$layoutZ = _GDIPlus_RectFCreate(1315,0,100,100)
$graphic = _GDIPlus_GraphicsCreateFromHWND($Gui)
$bitmap = _GDIPlus_BitmapCreateFromGraphics(1366, 100, $graphic)
$buffer = _GDIPlus_ImageGetGraphicsContext($bitmap)
GUISetState()
_MouseSetOnEvent($MOUSE_WHEELSCROLLDOWN_EVENT,"runter")
_MouseSetOnEvent($MOUSE_WHEELSCROLLUP_EVENT,"rauf")
_MouseSetOnEvent($MOUSE_WHEELDOWN_EVENT,"klick")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ENDE()
EndSwitch
_BuchstabenMalen()
_GDIPlus_GraphicsDrawImageRect($graphic, $bitmap, -10, 0, 1376, 100)
WEnd
Func runter()
If $aktuellerBrush < 25 Then
$brushes[$aktuellerBrush] = $brushSchwarz
$aktuellerBrush += 1
$brushes[$aktuellerBrush] = $brushBlau
Else
$brushes[$aktuellerBrush] = $brushSchwarz
$aktuellerBrush = 0
$brushes[$aktuellerBrush] = $brushBlau
EndIf
EndFunc
Func rauf()
If $aktuellerBrush > 1 Then
$brushes[$aktuellerBrush] = $brushSchwarz
$aktuellerBrush -= 1
$brushes[$aktuellerBrush] = $brushBlau
Else
$brushes[$aktuellerBrush] = $brushSchwarz
$aktuellerBrush = 25
$brushes[$aktuellerBrush] = $brushBlau
EndIf
EndFunc
Func _BuchstabenMalen()
_GDIPlus_GraphicsDrawStringEx($buffer,"A",$font,$layoutA,$format,$brushes[0])
_GDIPlus_GraphicsDrawStringEx($buffer,"B",$font,$layoutB,$format,$brushes[1])
_GDIPlus_GraphicsDrawStringEx($buffer,"C",$font,$layoutC,$format,$brushes[2])
_GDIPlus_GraphicsDrawStringEx($buffer,"D",$font,$layoutD,$format,$brushes[3])
_GDIPlus_GraphicsDrawStringEx($buffer,"E",$font,$layoutE,$format,$brushes[4])
_GDIPlus_GraphicsDrawStringEx($buffer,"F",$font,$layoutF,$format,$brushes[5])
_GDIPlus_GraphicsDrawStringEx($buffer,"G",$font,$layoutG,$format,$brushes[6])
_GDIPlus_GraphicsDrawStringEx($buffer,"H",$font,$layoutH,$format,$brushes[7])
_GDIPlus_GraphicsDrawStringEx($buffer,"I",$font,$layoutI,$format,$brushes[8])
_GDIPlus_GraphicsDrawStringEx($buffer,"J",$font,$layoutJ,$format,$brushes[9])
_GDIPlus_GraphicsDrawStringEx($buffer,"K",$font,$layoutK,$format,$brushes[10])
_GDIPlus_GraphicsDrawStringEx($buffer,"L",$font,$layoutL,$format,$brushes[11])
_GDIPlus_GraphicsDrawStringEx($buffer,"M",$font,$layoutM,$format,$brushes[12])
_GDIPlus_GraphicsDrawStringEx($buffer,"N",$font,$layoutN,$format,$brushes[13])
_GDIPlus_GraphicsDrawStringEx($buffer,"O",$font,$layoutO,$format,$brushes[14])
_GDIPlus_GraphicsDrawStringEx($buffer,"P",$font,$layoutP,$format,$brushes[15])
_GDIPlus_GraphicsDrawStringEx($buffer,"Q",$font,$layoutQ,$format,$brushes[16])
_GDIPlus_GraphicsDrawStringEx($buffer,"R",$font,$layoutR,$format,$brushes[17])
_GDIPlus_GraphicsDrawStringEx($buffer,"S",$font,$layoutS,$format,$brushes[18])
_GDIPlus_GraphicsDrawStringEx($buffer,"T",$font,$layoutT,$format,$brushes[19])
_GDIPlus_GraphicsDrawStringEx($buffer,"U",$font,$layoutU,$format,$brushes[20])
_GDIPlus_GraphicsDrawStringEx($buffer,"V",$font,$layoutV,$format,$brushes[21])
_GDIPlus_GraphicsDrawStringEx($buffer,"W",$font,$layoutW,$format,$brushes[22])
_GDIPlus_GraphicsDrawStringEx($buffer,"X",$font,$layoutX,$format,$brushes[23])
_GDIPlus_GraphicsDrawStringEx($buffer,"Y",$font,$layoutY,$format,$brushes[24])
_GDIPlus_GraphicsDrawStringEx($buffer,"Z",$font,$layoutZ,$format,$brushes[25])
EndFunc
Func klick()
Switch $aktuellerBrush
Case 0
Send("A")
Case 1
Send("B")
Case 2
Send("C")
Case 3
Send("D")
Case 4
Send("E")
Case 5
Send("F")
Case 6
Send("G")
Case 7
Send("H")
Case 8
Send("I")
Case 9
Send("J")
Case 10
Send("K")
Case 11
Send("L")
Case 12
Send("M")
Case 13
Send("N")
Case 14
Send("O")
Case 15
Send("P")
Case 16
Send("Q")
Case 17
Send("R")
Case 18
Send("S")
Case 19
Send("T")
Case 20
Send("U")
Case 21
Send("V")
Case 22
Send("W")
Case 23
Send("X")
Case 24
Send("Y")
Case 25
Send("Z")
EndSwitch
EndFuncFunc ENDE()
[/autoit]
_GDIPlus_BrushDispose($brushBlau)
_GDIPlus_GraphicsDispose($buffer)
_GDIPlus_GraphicsDispose($graphic)
_GDIPlus_Shutdown()
Exit
EndFuncDFPWare
-
Puh das weiß ich wirklich nicht, aber rechnen kannst du mit Execute() und Sachen in ein Label schreiben mit GuiCtrlSetData()
DFPWare
-
Ich versteh noch nicht ganz so, also soll man bei x und y was eintragen und dann kommt bei z die Summe der beiden rein oder wie?
Wofür sind dann die Labels ganz rechts??DFPWare
-
Ich denke du solltest erstmal die Buchstaben im Skript durch die Zeichen +-= usw. ersetzen
DFPWare
-
1.) Skript posten!
2.) Execute()
DFPWare
-
Happy Birthday auch von mir natürlich
DFPWare
-
Wie wärs denn stattdessen so?
Spoiler anzeigen
[autoit]#include <guiconstants.au3>
[/autoit]
#include <windowsconstants.au3>
HotKeySet ("{F1}", "Go")
Global $Text05
Global $VARIABLEZUMTESTENOBDIEHAUPTGIOOFFENIST = 0
#Region ### START Koda GUI section ### Form=
$Main = GUICreate("Kombofenster", 283, 106, 543, 415)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetBkColor(0xFFFFFF)
$combo = GUICtrlCreateCombo("Wähle aus!", 16, 16, 249, 25)
GUICtrlSetData(-1, "Test01")
$Start = GUICtrlCreateButton("Start", 64, 64, 153, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$msg = GUIGetMsg(1)
Select
Case $msg[0] = $GUI_EVENT_CLOSE And $msg[1] = $Main
Exit
Case $msg[0] = $Start
If GUICtrlRead($combo) = "Test01" Then Start()
EndSelect
WEnd
Func Start()
#region - GUI Create
GUIDelete($Main)
$Main = GUICreate("Hauptfenster", 394, 218, 334, 389)
GUISetFont(8, 400, 0, "Comic Sans MS")
GUISetBkColor(0xFFFFFF)
$Text = GUICtrlCreateLabel("Willkommen beim Script 001", 8, 16, 379, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Comic Sans MS")
$Text01 = GUICtrlCreateLabel("Anleitung:", 136, 48, 56, 19)
$Text02 = GUICtrlCreateLabel("Hier kommt Text rein", 136, 72, 232, 19)
$Text03 = GUICtrlCreateLabel("Hier kommt Text rein", 136, 96, 175, 19)
$Text04 = GUICtrlCreateLabel("Hier kommt Text rein", 136, 120, 179, 19)
$Text05 = GUICtrlCreateLabel("Hier kommt Text rein", 136, 144, 175, 19)
$Text06 = GUICtrlCreateLabel("Achtung!", 24, 184, 348, 20)
GUICtrlSetFont(-1, 9, 800, 6, "Comic Sans MS")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
$VARIABLEZUMTESTENOBDIEHAUPTGIOOFFENIST = 1
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
MsgBox (0, "Auf Wiedersehen!", "Besuch doch mal meine Website?!")
Exit
EndSwitch
WEnd
#endregion - GUI Create
EndFunc
Func Go ()
If $VARIABLEZUMTESTENOBDIEHAUPTGIOOFFENIST = 1 Then
If GUICtrlRead($Text05) = "Hier kommt Text rein" Then Go1()
EndIf
EndFunc
Func Go1()
ConsoleWrite("OKAY"&@CRLF)
EndFunc -
Ich versteh nicht ganz,deswegen würde ich dir raten dir _IsPressed anzugucken, aber das hab ich dir ja oben schonmal gesagt
DFPWare