Happy Birthday 
Und hoffentlich bald n paar neue Flutch updates 
Beiträge von clezZ
-
-
Also wenn ich mal n fps zock dann cod 6 oder 7, manchmal auch Halo 3 (ODST :D).
Aber eigentlich spiel ich grad mehr so gta und (//edit für name22^^: nba) 2k11
-
Herzlichen Glückwunsch zum 21.
-
Hey name22, Alles Gute zum 17.
Ist jetzt zwar einen Tag zu spät, aber ich hab dir ja schon persönlich gratuliert -
Geil
Lol, Ich wollte nachher sogar etwas ähnliches anfangen, und das bevor ich das hier gesehen hab
//Edit: Aber nicht mit GDI, sondern OGL -
-
Ich habs mal mit 3 mp3's ausprobiert und bei mir wurden die ersten zwei abgespielt, nur die dritte hat einen Error gebracht.
//Edit: Win 7 Home Premium 32Bit
-
Ja, das hat mich auf die Idee gebracht
-
Habs mit der MemFont.au3 geupdated.
Das neue Skript ist jetzt als Anhang im ersten Post. -
Ja, hab ich mir auch gedacht, aber ich wollte eine Schrift verwenden, die eigentlich jeder auf seinem Rechner hat und nicht eine spezielle Matrix Schrift.
//Habs oben hinzu gefügt.
-
Ganz nett
Aber:
-Der Sprung sollte realistischer aussehen (Schwerebeschleunigung (9.81 m/s^-2)) und auch nicht ewig hoch in die Luft gehen.
-Die Figur sollte die Beine beim Stehen nicht bewegen.
-Die Schatten bei der Figur sollten entgegen des lichts sein und nicht immer auf der Vorderseite der Figurund im Skript hatte ich einen include Fehler, den hab ich bei mir behoben.
-
Moin,
ich hab ja schon lange nichts mehr mit AutoIt gemacht.
Deshalb hab ich ein kleines GDI+ Skript geschrieben, um mich mal wieder einzuarbeiten.Das ist ein "Falling Code".
Während dem Skript, kann man durch drücken der 'c'-Taste die Farbe ändern.Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <Misc.au3>
#include <Color.au3>Opt("GuiOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Dim $color=0x00FF00
[/autoit] [autoit][/autoit] [autoit]
Dim $number=55
Dim $iGUIHeight = 500
Dim $iGUIWidth = 500
Dim $timerInit, $fps=30Dim $nX[$number], $nY[$number]
[/autoit] [autoit][/autoit] [autoit]Dim $hGUI = GUICreate("Falling Code by clezZ (c) 2011", $iGUIWidth, $iGUIHeight, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
WinSetTrans($hGUI,"",0xFF)GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]Dim $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
[/autoit] [autoit][/autoit] [autoit]
Dim $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iGUIWidth, $iGUIHeight, $hGraphics)
Dim $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
Dim $hBrush_FFFFFF = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
Dim $hBrush_00FF00 = _GDIPlus_BrushCreateSolid('0xFF'&Hex(_ColorGetRed($color), 2)&Hex(_ColorGetGreen($color), 2)&Hex(_ColorGetBlue($color), 2))_GDIPlus_GraphicsClear($hBuffer, 0xFF000000)
[/autoit] [autoit][/autoit] [autoit]Dim $sString, $nSize=8
[/autoit] [autoit][/autoit] [autoit]For $i=0 To $number-1
[/autoit] [autoit][/autoit] [autoit]
$nX[$i]=Random($nSize, 500-$nSize, 1)
$nY[$i]=Random($nSize, 500-$nSize, 1)*-1
NextDim $hFormat = _GDIPlus_StringFormatCreate(0)
[/autoit] [autoit][/autoit] [autoit]
Dim $hFamily = _GDIPlus_FontFamilyCreate("Arial")
Dim $hFont = _GDIPlus_FontCreate($hFamily, $nSize)Dim $hFamily2 = _GDIPlus_FontFamilyCreate("Arial Black")
[/autoit] [autoit][/autoit] [autoit]
Dim $hFont2 = _GDIPlus_FontCreate($hFamily2, $nSize+($nSize/10))_WM_PAINT()
[/autoit] [autoit][/autoit] [autoit]HotKeySet("c", "_color")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
_Draw()
WEndFunc _Draw()
[/autoit] [autoit][/autoit] [autoit]
$timerInit=TimerInit()
_GDIPlus_GraphicsClear($hBuffer, '0x'&Hex(35)&'000000')For $i=0 To $number-1
[/autoit] [autoit][/autoit] [autoit]
$sString=Chr(Random(48, 57, 1))
$nY[$i]+=($nSize+3)$tLayout2 = _GDIPlus_RectFCreate($nX[$i]-(1.5*($nSize/10)), $nY[$i]-($nSize/3.3), 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$aInfo2 = _GDIPlus_GraphicsMeasureString($hBuffer, $sString, $hFont2, $tLayout2, $hFormat)
$pLayout = DllStructGetPtr($tLayout2)
$aResult = DllCall($ghGDIPDll, "int", "GdipDrawString", "handle", $hBuffer, "wstr", $sString, "int", -1, "handle", $hFont2, "ptr", $pLayout, "handle", $hFormat, "handle", $hBrush_00FF00)$tLayout = _GDIPlus_RectFCreate($nX[$i], $nY[$i], 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$aInfo = _GDIPlus_GraphicsMeasureString($hBuffer, $sString, $hFont, $tLayout, $hFormat)
$pLayout = DllStructGetPtr($tLayout)
If $nY[$i] >500 Then
$nY[$i]=$nY[$i]-500-2*$nSize
$nX[$i]=Random($nSize, 500-$nSize, 1)
EndIf
$aResult = DllCall($ghGDIPDll, "int", "GdipDrawString", "handle", $hBuffer, "wstr", $sString, "int", -1, "handle", $hFont, "ptr", $pLayout, "handle", $hFormat, "handle", $hBrush_FFFFFF)
Next
Sleep(1000/$fps-TimerDiff($timerInit))
_WM_PAINT()
EndFuncFunc _color()
[/autoit] [autoit][/autoit] [autoit]
Dim $color=_ChooseColor(2, $color)
Dim $hBrush_00FF00 = _GDIPlus_BrushCreateSolid('0xFF'&Hex(_ColorGetRed($color), 2)&Hex(_ColorGetGreen($color), 2)&Hex(_ColorGetBlue($color), 2))
EndFuncFunc _Exit()
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_FontDispose($hFont2)
_GDIPlus_FontFamilyDispose($hFamily2)_GDIPlus_BrushDispose($hBrush_00FF00)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_BrushDispose($hBrush_FFFFFF)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndFuncFunc _WM_PAINT()
[/autoit]
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iGUIWidth, $iGUIHeight)
EndFunc
Wer will, kann sich diese Schrift downloaden und installieren: http://www.myfont.de/fonts/infos/631-Matrix-Code.html
Dafür hab ich hier das Skript angepasst:Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <Misc.au3>
#include <Color.au3>Opt("GuiOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Dim $color=0x00FF00
[/autoit] [autoit][/autoit] [autoit]
Dim $number=50
Dim $iGUIHeight = 500
Dim $iGUIWidth = 500
Dim $timerInit, $fps=30Dim $nX[$number], $nY[$number]
[/autoit] [autoit][/autoit] [autoit]Dim $hGUI = GUICreate("Falling Code by clezZ (c) 2011", $iGUIWidth, $iGUIHeight, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
WinSetTrans($hGUI,"",0xFF)GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
[/autoit] [autoit][/autoit] [autoit]_GDIPlus_Startup()
[/autoit] [autoit][/autoit] [autoit]Dim $hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGUI)
[/autoit] [autoit][/autoit] [autoit]
Dim $hBitmap = _GDIPlus_BitmapCreateFromGraphics($iGUIWidth, $iGUIHeight, $hGraphics)
Dim $hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
_GDIPlus_GraphicsSetSmoothingMode($hBuffer, 2)
Dim $hBrush_FFFFFF = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
Dim $hBrush_00FF00 = _GDIPlus_BrushCreateSolid('0xFF'&Hex(_ColorGetRed($color), 2)&Hex(_ColorGetGreen($color), 2)&Hex(_ColorGetBlue($color), 2))_GDIPlus_GraphicsClear($hBuffer, 0xFF000000)
[/autoit] [autoit][/autoit] [autoit]Dim $sString, $nSize=11
[/autoit] [autoit][/autoit] [autoit]For $i=0 To $number-1
[/autoit] [autoit][/autoit] [autoit]
$nX[$i]=Random($nSize, 500-$nSize, 1)
$nY[$i]=Random($nSize, 500-$nSize, 1)*-1
NextDim $hFormat = _GDIPlus_StringFormatCreate(0)
[/autoit] [autoit][/autoit] [autoit]
Dim $hFamily = _GDIPlus_FontFamilyCreate("Matrix Code NFI")
Dim $hFont = _GDIPlus_FontCreate($hFamily, $nSize)Dim $hFamily2 = _GDIPlus_FontFamilyCreate("Matrix Code NFI")
[/autoit] [autoit][/autoit] [autoit]
Dim $hFont2 = _GDIPlus_FontCreate($hFamily2, $nSize+2, 1)_WM_PAINT()
[/autoit] [autoit][/autoit] [autoit]HotKeySet("c", "_color")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
_Draw()
WEndFunc _Draw()
[/autoit] [autoit][/autoit] [autoit]
$timerInit=TimerInit()
_GDIPlus_GraphicsClear($hBuffer, '0x'&Hex(35)&'000000')For $i=0 To $number-1
[/autoit] [autoit][/autoit] [autoit]
$sString=Chr(Random(97, 122, 1))
$nY[$i]+=($nSize+3)$tLayout2 = _GDIPlus_RectFCreate($nX[$i]-1.5, $nY[$i]-1, 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$aInfo2 = _GDIPlus_GraphicsMeasureString($hBuffer, $sString, $hFont2, $tLayout2, $hFormat)
$pLayout = DllStructGetPtr($tLayout2)
$aResult = DllCall($ghGDIPDll, "int", "GdipDrawString", "handle", $hBuffer, "wstr", $sString, "int", -1, "handle", $hFont2, "ptr", $pLayout, "handle", $hFormat, "handle", $hBrush_00FF00)$tLayout = _GDIPlus_RectFCreate($nX[$i], $nY[$i], 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$aInfo = _GDIPlus_GraphicsMeasureString($hBuffer, $sString, $hFont, $tLayout, $hFormat)
$pLayout = DllStructGetPtr($tLayout)
If $nY[$i] >500 Then
$nY[$i]=$nY[$i]-500-2*$nSize
$nX[$i]=Random($nSize, 500-$nSize, 1)
EndIf
$aResult = DllCall($ghGDIPDll, "int", "GdipDrawString", "handle", $hBuffer, "wstr", $sString, "int", -1, "handle", $hFont, "ptr", $pLayout, "handle", $hFormat, "handle", $hBrush_FFFFFF)
Next
Sleep(1000/$fps-TimerDiff($timerInit))
_WM_PAINT()
EndFuncFunc _color()
[/autoit] [autoit][/autoit] [autoit]
Dim $color=_ChooseColor(2, $color)
Dim $hBrush_00FF00 = _GDIPlus_BrushCreateSolid('0xFF'&Hex(_ColorGetRed($color), 2)&Hex(_ColorGetGreen($color), 2)&Hex(_ColorGetBlue($color), 2))
EndFuncFunc _Exit()
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_FontDispose($hFont2)
_GDIPlus_FontFamilyDispose($hFamily2)_GDIPlus_BrushDispose($hBrush_00FF00)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_BrushDispose($hBrush_FFFFFF)
_GDIPlus_GraphicsDispose($hBuffer)
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
Exit
EndFuncFunc _WM_PAINT()
[/autoit]
_GDIPlus_GraphicsDrawImageRect($hGraphics, $hBitmap, 0, 0, $iGUIWidth, $iGUIHeight)
EndFuncIm Anhang befindet sich eine erweiterte Version, die ich mit Hilfe der MemFont.au3 von eukalyptus erstellt habe.
Vielen Dank dafür an eukalyptus.Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. -
Alles Gute Pistolen/Kanonenfutter
-
[autoit]
[/autoit]
if $variableIB = 1 Then
MsgBox (0,"Variablen und InputBoxStrings + Externes Programm starten und Automatisieren by Django","Start der Automatisierung")
ElseIf @error Then
MsgBox (0,"Variablen und InputBoxStrings + Externes Programm starten und Automatisieren by Django","Ende der Automatisierung")
Exit
EndIfSo müsste es klappen
-
Wenn man im Shop ist, und dann auf diesen Button drückt, auf dem ein Pfeil nach unten ist und daneben ein Minus, dann kommt auch ein Error.
-
wenn ich c++ auch verstehe.
Ist nicht schwer. Du brauchst meiner Meinung nach nur Grundkenntnisse um diese Texte zu verstehen. -
Du könntest diese "offiziellen" Tutorials ja statt in C++ in AutoIt und deutsch schreiben.
http://irrlicht.sourceforge.net/tutorials.html -
schau dir einfach mal die Befehle
[autoit]
[/autoit]
InputBox()
Shutdown()
; und ggf
Sleep()
in der Hilfe an. -
Hier sind die ganzen Ordner der Installierten Programme, aber eben auch mit Unterordnern: HKLM\Software\Microsoft\Windows\CurrentVersion\Installer\Folders
-
Haben auch noch andere außer Marsi ein Skript eingesendet?
Wenn ja wären diese Skripte vllt auch noch ganz interessant. -
Danke schon mal an alle
Und danke name22 Ist das dein erster Geburtstagsthreat?