Beiträge von Oscar

Es gibt nochmal ein Update! Dieses Mal auch eines, wo die Punkte nicht übernommen werden.
Ich habe nämlich einen zusätzlichen Spezial-Chip eingebaut. Es gibt jetzt die "freundliche Bombe".
Beim abschiessen der Bombe werden alle Chips auf dem Bildschirm zerstört, man bekommt deren Punkte, sowie 100 Punkte für die Bombe und es erscheint als nächstes ein Gold-Chip.

Neue Version in Post#1.

Zitat von Musashi

Die Rechte des Hintergrundbildes hast Du geprüft, oder ?

Ja, das ist von http://www.pexels.com und steht dort unter der CC0-Lizenz.
Für alle, die noch nach einem anderen Hintergrundbild suchen, ist das übrigens eine gute Anlaufstelle.

Naja, und eigentlich bin ich bei der Wahl der Lizenz nicht so restriktiv, aber hier muss ich die Lizenz der BASS.dll und der BASS-UDF berücksichtigen.
Gerade die BASS.dll ist bei kommerzieller Nutzung nicht mehr kostenlos, deswegen muss ich die Lizenz für ChipHunter dahingehend beschränken.

Das würde dann mit StringRegExp so aussehen:

#include <Array.au3>


$sText = FileRead(@ScriptDir & '\Mikrotik-Sample.txt')


$aOut = StringRegExp($sText, '(?s)disabled=no.+?name=\\*\s*(.+?)\s+', 3)
_ArrayDisplay($aOut, 'name=', '', 64)
$sOut = ''
For $i = 0 To UBound($aOut) - 1
	$sOut &= 'enable ' & $aOut[$i] & @CRLF
Next
$hFile = FileOpen(@ScriptDir & '\Ausgabe.txt', 2)
If $hFile <> -1 Then
	FileWrite($hFile, $sOut)
	FileClose($hFile)
EndIf
MsgBox(0, 'Ausgabe', 'Datei unter "Ausgabe.txt" gespeichert!' & @CRLF & $sOut)

Zitat von autoiter

PS: Im aktuellen Paket ist ein kleines Malheur passiert. Entweder muss man einen Ordner BASS anlegen und die BASS.au3 , bass.dll und BASSconstants.au3 hineinschieben oder das Include sowie den bass.dll-Aufruf in Zeile 50 anpassen.

Oh, sorry! Da ist beim packen ein Häkchen abhanden gekommen.
Ich habe das nochmal neu gepackt und in Post#1 berichtigt.

Und ja, vor ein paar Updates dachte ich noch, dass ist das vorerst letzte. Naja, und dann kamen noch ein paar Ideen und einige Bugs.
Aber Du hast recht, es macht auch Spaß, so einem Programm dann auch den letzten Schliff zu geben.

Die neue Version ist jetzt fertig (Post#1).

Kannst Du bitte mal die Beispieldaten als Datei anhängen?
Das ist wichtig, damit wir alle den gleichen Datensatz verwenden. Beim rauskopieren aus dem Post fehlen die Zeilenumbrüche.

Oh, das ist mir tatsächlich entgangen!
Wird mit der nächsten Version behoben.

Ja, die Werte bei mir stehen aber auch auf -285 und die Icons im Menü werden trotzdem korrekt angezeigt.
Ich weiß aber nicht, ob die MenuHeight-Werte (285 / 15 = 19) jetzt bedeuten, dass die Schrift so groß ist/sein darf oder ob das Icon so groß sein darf.
Offensichtlich darf das Icon ja auch größer sein (hier 32x32), sonst würde es bei uns ja auch verkehrt angezeigt werden.

Hmm...sehr merkwürdig...
Bitnugger: Hast Du bei Windows irgendwas besonderes eingestellt? Oder einen Windows Tweaker?

Kannst Du mal die Ausgabe von dem hier posten: ConsoleWrite(RegRead('HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics', 'MenuHeight') & @CRLF)

Zitat von Bitnugger

Das soll doch bestimmt nicht so aussehen, oder?

Nö, eigentlich nicht!
Ist das Win10?

Zitat von UEZ

Imho sollte man den Schuss immer hören und bei Treffer einen anderen.

Stimmt! Das ist eine gute Idee. Klingt auch viel besser.

Zusätzlich erscheint jetzt auch noch ein abgeschossener Chip an der Stelle, wo er abgeschossen wurde (verschwindet nach einiger Zeit).

Neue Version in Post#1.

Ich habe oben nur die Funktion "_FFOpenURL" aus der "FF.au3"-Datei kopiert und den Teil, der HTTP(S) hinzufügt, weggelassen.
Als Anfänger muss Du Dich nicht für die Einzelheiten der Funktionen interessieren. In der Regel funktionieren die UDFs schon so, wie sie sollen.
Manchmal decken sie nicht jeden Sonderfall ab (wie hier), aber dafür gibt es ja das Forum.

Im übrigen duzen wir uns hier.

Ja, es wird immer http(s) hinzugefügt.
Aber wenn man sich die Funktion in der UDF mal anschaut, dann kann man das mit einer eigenen Funktion umgehen:

Func _FFOpenURL_new($sURL, $bLoadWait = True)
	Local $sRetVal = _FFCmd(StringFormat(".location.href='%s'", $sURL))
	If Not @error And $sRetVal = $sURL Then
		If $bLoadWait Then
			$sRetVal = _FFLoadWait()
		Else
			$sRetVal = 1
		EndIf
		__FFSetTopDocument()
		Return $sRetVal
	Else
		SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, $sURL))
		Return 0
	EndIf
EndFunc

Es gibt noch ein kleines Update!
Man kann nun das Hintergrundbild ändern und eine Statistik (Anzahl der Spiele, der Mausklicks und der Treffer, sowie die längste Spielzeit und die Gesamtspielzeit) ist dazugekommen.

Neue Version, wie immer, in Post#1.

SoundSetWaveVolume funktioniert einwandfrei!
Nur nicht so, wie Du es möchtest. Es verändert nämlich nicht den Masterregler, sondern den Regler für die jeweilige Anwendung.
Weshalb möchtest Du den Masterregler verändern?

Du hast mich nicht/falsch verstanden!
Wenn Du das anders haben willst, dann ist das problemlos möglich. Du musst nur sagen, wie Du es haben willst.
Es gibt in AutoIt auch FileSetPos mit der man die Position innerhalb der Datei genau bestimmen kann.

"_FileWriteToLine" macht nur Sinn, wenn Du einzelne Zeilen in einer bestehenden Datei ändern/hinzufügen willst.
Beim neu erstellen sollte man stets FileOpen verwenden und FileWrite bzw. FileWriteLine.

Du schreibst, dass Du nicht alles direkt untereinander haben willst, wie soll es denn sonst aussehen?

Du musst beim speichern das Handle (Rückgabe von FileOpen) benutzen:

$hFile = FileOpen($sFileSaveDialog_Auftrag, 2)
If $hFile <> -1 Then
	FileWriteLine($hFile, "[Allgemeine Auftragsdaten]")
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_Bauvorhaben)
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_Adresse)
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_PLZ)
	FileWriteLine($hFile, $READ_Input_Window_neu_anlegen_Bemerkung)
	FileClose($hFile)
EndIf

In der Funktion "_CloseInputGui" muss das Ende jetzt so aussehen:

; der Rest der Funktion wird sowohl beim "uebernehmen" als auch beim "abbrechen" abgearbeitet
	GUISetState(@SW_HIDE, $hInputGui) ; das Eingabefenster verstecken
	For $i = 0 To $iColCount - 1 ; alle Eingabefelder durchgehen
		If $i = 1 Then
			_GUICtrlIpAddress_Destroy($aidInput[$i])
		Else
			GUICtrlDelete($aidInput[$i]) ; die Eingabefelder und
		EndIf
		GUICtrlDelete($aidLabel[$i]) ; die Label dazu loeschen
	Next
	$iInputIndex = -1 ; den Eingabeindex wieder auf "neuer Eintrag" setzen