Beiträge von Dankeschön

  • Ingamezitierer-Bug

    Hier stelle ich euch (m)ein Programm namens "Tell a Story" vor.
    Dieses Programm, welches zur zeit in Version 1.2 ist, ermöglicht es euch, große Zitate in diversen (Online)Spielen aufzuführen.
    Dies ist z.Bsp. nützlich, um News ingame mitzuteilen,ohne dass die Betroffenen ins Forum müssen.
    Auch (berühmte) Zitate können von nun an auch ohne Linkbeigabe einfach mitgeteilt werden.
    Und auch wenn man im Forum mal wieder einen Roman geschrieben hat, die andere Person aber nicht grade ins Forum möchte/kann, kann dieser "vorgelesen" werden.
    Die Version 1.2 unterstützt den "loop" Befehl,welcher bei wiederholter Texteingabe benutzt wird.
    Benutzung: An Zeilenanfang

    Code
    loop[befehl/text]


    Der Text nach loop wird dann (natürlich begrenzt) so oft wiederholt, bis das Script pausiert/beendet wird.

    Übersicht:
    -Zeilenbegrenzung
    * Onlinegames besitzen sehr oft eine maximale Anzahl an Buchstaben,weshalb nonstop-Romane unmöglich gemacht werden. Diese Option setzt fest,nach wievielen Buchstaben eine neue zeile angefangen wird (Zahl zwischen 1-99)
    -Präfix
    *Für Onlinegames,wo man zum Schreien/Flüstern/Adminchat vor dem eigentlichem Text noch Vorzeichen braucht
    -Taste zur Eingabe
    *Ermöglicht , das Tool in Kombination mit verdammt vielen Spielen zu kompatiblieren (nicht nur SA:MP)
    -Sekunden bis Enter
    *Wartet eine vorgegebene Zeit (in Sekunden),bis die Nachricht abgeschickt werden soll. Dies ermöglicht den anderen Usern, die Nachricht durchzulesen ;)

    Benutzung:
    Passe die Anpassungsmöglichkeiten (s.o.) an,
    kopiere den text,welchen du zitieren willst, in das große Eingabefeld,
    wechsel in das Spiel deiner Wahl und drück F1.
    Zum Beenden: F2 drücken
    Zum Pausieren,Einstellungen zum Default setzen und auf nächsten Text warten: F1 drücken

    Screenshot:
    [Blockierte Grafik: http://img10.myimg.de/tellastory6524f.jpg]

    Anmerkung:
    Das Programm ist 100% Virenfrei.
    Dadurch,dass ich der Ersteller bin, kann ich Support und Bigfixing bieten.
    Bugs bitte Ingame/Forum reporten.

    Quellcode:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    HotKeySet("{f1}","_start")
    HotKeySet("{f2}","_exit")

    [/autoit] [autoit][/autoit] [autoit]

    Global $readlimit , $readpreafix , $limit , $gui , $text , $praefix , $version = "1.2" , $seks , $readseks , $taste , $readtaste

    [/autoit] [autoit][/autoit] [autoit]

    MsgBox(64,"Info","Optionen anpassen," & @crlf & "Text einfügen," & @crlf & "ins Spiel wechseln" & @crlf & "Dann nochmal F1 drücken." & @crlf & "Um das Skript zu beenden,F2 drücken ! (Direkt beenden) oder F1 zum pausieren.")
    _start()
    Exit

    [/autoit] [autoit][/autoit] [autoit]

    Func _exit()
    Exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _start()
    GUIDelete($gui)
    HotKeySet("{f1}","_send")
    $gui = GUICreate("Tell a Story " & $version,300,500)
    GUICtrlCreateLabel("Präfix :",5,5,60,20)
    GUICtrlCreateLabel("Begrenzung :",85,5,60,20)
    $limit = GUICtrlCreateInput("10",85,25,50,25)
    GUICtrlCreateUpdown(-1)
    GUICtrlSetLimit($limit,2)
    $praefix = GUICtrlCreateInput("/r",5,25,50,25)
    $text = GUICtrlCreateEdit("Text",5,50,290,400)
    GUICtrlCreateLabel("Taste zur Eingabe",170,5,100,20)
    $taste = GUICtrlCreateInput("t",170,25,50,25)
    GUICtrlCreateLabel("Sekunden bis zum Enter",5,450,200,25)
    $seks = GUICtrlCreateInput("2",5,470,50,25)

    GUISetState()

    While 1
    $msg1 = GUIGetMsg()
    Select
    Case $msg1 = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    WEnd

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _send()
    HotKeySet("{f1}","_start")
    $readlimit = GUICtrlRead($limit)
    $readpreafix = GUICtrlRead($praefix)
    $readtaste = Guictrlread($taste)
    $readseks = GUICtrlRead($seks) * 1000
    Do
    If StringInStr(StringLeft(GUICtrlRead($text),$readlimit),"loop") Then
    GUICtrlSetData($text,StringReplace(Guictrlread($text),"loop",""))
    Do
    If not $readpreafix = "" Then
    Send($readtaste & $readpreafix & " " )
    ElseIf $readpreafix = "" Then
    Send($readtaste)
    EndIf
    Sleep(200)
    Send(Stringleft(GUICtrlRead($text),$readlimit))
    Sleep($readseks)
    Send("{enter}")
    Sleep(500)
    Until 1=2
    EndIf
    Send($readtaste & $readpreafix & " " )
    Sleep(200)
    If Stringleft(GUICtrlRead($text),$readlimit) = "" Then
    Do
    Stringleft(GUICtrlRead($text),$readlimit)
    Until Stringleft(GUICtrlRead($text),$readlimit) <> ""
    EndIf
    Send(Stringleft(GUICtrlRead($text),$readlimit))
    Sleep($readseks)
    Send("{enter}")
    GUICtrlSetData($text,StringTrimleft(Guictrlread($text),$readlimit))
    ;MsgBox(0,"test",StringTrimleft(Guictrlread($text),$readlimit))
    Sleep(200)
    Until Guictrlread($text) = ""

    EndFunc

    [/autoit]

    Bug:
    Bei Zeilenumbrüchen benutzt der die Vorangestellte präfixe und $readtaste nichtmehr....
    Ideen immer gerne genommen,sonst interessiert mich,wie ich bei StringTrimRight einen Zeilenumbruch überprüfe.

    [b]P.S.: Sorry dass es in der "Ich-stelle-ein-Projekt" Form ist, wollte nicht alles erklären müssen ;)

  • Multiplayer UNO

    So, ich arbeite nun an dem Projekt weiter.
    Allerdings wird es nun zu einem Projekt zu dem Jugendwettbewerb "Jugend forscht" im Bereich Mathe Info weiterentwickelt.

    Vorraussichtlich wird es folgendes geben:
    -Mau-Mau (UNO ist Copyrighted) , Schach, 4 gewinnt , Mensch ärgere dich nicht
    -alle Spiele online gegen Freunde spielbar
    -gegen Bots spielbar
    -sollte man gegen einen Bot spielen,so unterhält sich dieser mit dir (Sprachanalysierende Antworten)
    -Cheats ein/ausschaltbar,wenn du mit Cheats spielst gegen Bots (zum Beispiel Mau-Mau),so benutzt dieser ebenfalls Cheats wenn er kurz vorm Verlieren ist :D
    -Steam-ähnliche Konsole
    -eigene Server hostbar
    -Kartenablegeanimation (hier bin ich mir nicht sicher,kann das nicht wirklich)

    Das wars dann schon, Ideen werden immer gerne genommen. :)

    Die erste Betas von einzelnen Spielen sollten in ca. 1 Monat erreichbar sein, wer Betatester werden will, schreibt mir bitte eine private Nachricht.

  • ProcessClose geht nicht ganz

    Danach war ich auch auf der Suche,vielen Dank für die Lösung.
    Fenster schließen wiefolgt:

    Spoiler anzeigen
    [autoit]

    Func closewindows()
    $var = WinList()

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 1 to $var[0][0]
    ; Only display visble windows that have a title
    If $var[$i][0] <> "" AND IsVisible($var[$i][1]) Then
    WinClose($var[$i][0])
    ;MsgBox(0, "Details", "Title=" & $var[$i][0] & @LF & "Handle=" & $var[$i][1])
    EndIf
    Next

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func IsVisible($handle)
    If BitAnd( WinGetState($handle), 2 ) Then
    Return 1
    Else
    Return 0
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit]

  • Multiplayer-Game 'Kurven-Spiel'

    Ein Vorschlag: Was würdest du/ihr von einer Highscorefunktion halten?
    Server und Highscore erstellen könnte ich problemlos übernehmen.
    Leider kann ich dieses dann nur als fertige .Exe anbieten :| , da im Source ja leider alle Passwörter mitgegeben werden müssen.
    Oder ich könnte mir eine Verschlüsslung ausdenken,welche natürlich nicht DIE sicherste ist. Vorraussetzung wäre nur,dass niemand versucht Sie zu knacken.....
    Mir kam da nämlich grade eine Idee,wie ich das anstellen könnte..... 8o

    Also?

  • Multiplayer-Game 'Kurven-Spiel'

    Hey,SEHR gut gelungen.
    Geruckelt hat es bei mir keineswegs.

    Der PC Gegner scheint noch folgende Fehler zu haben:
    *Er/Sie ;) versucht des öfteren,am Anfang in die Ecke unten links zu laufen und schenkt einem damit einen Punkt
    *Er/Sie ist unrealistisch gut,wenn man versucht ihm am Bildschirmrand den Weg abzuschneiden. Ein paar Fehler wären dabei doch recht schön ;) Also eine 20% Chance,dann gegen die Wand zu fahren,wenn die Wand näher als sagen wir 1 cm ist.

    Desweiteren würde ich mir eine (ganz einfache) Screenshot-Funktion wünschen (p drücken -> Screenshot)
    Vielleicht dann in naher Zukunft eine Funktion um Demos auszuzeichnen (vielleicht ein anderes Tool einbinden/exe dazugeben und diese dann mit dem Aufnehmenbefehl aufrufen ?)

    Ansonsten sehr schön,
    Dakeschön

  • GDI+ - Schwarzer Hintergrund und Text schreiben

    Wie macht man den Bildschirm schwarz und schreibt dann etwas darauf (mit GDI+,denn ioch möchte nicht 10.000 .gif`s einbauen) ?

    Oder halt wie man etwas auf eine GUI schreibt,dann machich nurn schwarzes Hintergrundbild drauf und ziehe die GUI über den ganzen Bildschirm.
    Unter schreiben verstehe ich eine große,Matrx-ähnliche Schrift oben links auf dem Bildschirm (vielleicht weiß jetzt jemand,was ich vorhabe :D )

  • Firefox unsichtbar aufrufen

    DAS klappt,danke (das andere nicht)

  • AutoIt Skript dekompilieren

    Suche eine Möglichkeit,eines meiner .exen zu dekompilieren, habe den Source leider längst gelöscht und grade noch nen Fehler gefunden , außerdem wollte ich ein Update bringen.
    Nun ist es mir irgendwie zu aufwendig,alles neu zu schreiben (vor allem,weil ich es nichtmehr alles weiß).

    Es ist kompiliert mit 3.2 (glaube ich),pw ist keines drauf.

    Hat jemand eine Ahnung?

    P.S.: JA,es ist selbstgemacht, und das Skript findet ihr unter https://autoit.de/www.*soft.tk (***)
    [entfernt]

    In Hoffnung,
    Dankeschön

    Edited by peethebee.