Ein Gehirn arbeitet einfach völlig anders als ein PC. Wenn du eine lernfähige Software schreiben willst, müsstest du dafür sorgen, dass sie entscheiden kann ob 2 verschiedene Dinge zusammengehören obwohl sie nicht exakt gleich sind. Das menschliche Gehirn macht das auch, nur wesentlich komplexer.
Beiträge von name22
-
-
In welchem MMORPG benutzt man häufig die Tasten "Leer", "1 - 9", "y"? Hmmmm....
Metin2 zum Beispiel. Leertaste = angreifen, 1 gleich fertigkeit (deshalb soll sie nur alle 20 Sekunden gedrückt werden), und y = Items aufsammeln. Wofür könnte das nur gedacht sein?
-
Beispiel:
Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]$sString = "AUTOIT IST COOL! "
[/autoit] [autoit][/autoit] [autoit]$hWnd = GUICreate("Test", 200, 50)
[/autoit] [autoit][/autoit] [autoit]
$cTicker = GUICtrlCreateLabel($sString, 5, 15, 190, 20)
GUICtrlSetFont($cTicker, 12, Default, Default, "Lucida Console")
GUISetState()AdlibRegister("_UpdateTicker", 500)
[/autoit] [autoit][/autoit] [autoit]While True
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndFunc _UpdateTicker()
[/autoit]
$sRight = StringRight($sString, 1)
$sLeft = StringTrimRight($sString, 1)
$sString = $sRight & $sLeft
GUICtrlSetData($cTicker, $sString)
EndFunc -
Zitat
ich rede von einem Programm, der seine normalen Begrenzung übertrifft
Na dann viel Spaß... Daran beißen sich sellbst die Besten noch die Zähne aus... -
Zitat
Mir geht es dabei um ein "Selfmade"-Gehäuse, sodass ich sagen kann, dass das mein Werk ist.
Ach so. Ich dachte dir geht es nur um die Holzoptik... -
Nimm doch ein normales PC Gehäuse und bau eine Verkleidung aus Holz dafür.
-
So müsste es aber stimmen:
Spoiler anzeigen
[autoit]#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit]Global $aMemory[1][2] = [[0]]
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To 100
[/autoit] [autoit][/autoit] [autoit]
$iX_Rnd = Random(1, 10, 1)
$iY_Rnd = Random(1, 20, 1)
Switch BaosArraySearch($aMemory, $iX_Rnd, $iY_Rnd, 2, 2, 1)
Case 1
ConsoleWrite("Duplicate: " & @extended & " (Index)" & @CRLF _
& "X=" & $aMemory[@extended][0] & "|" & $iX_Rnd & @CRLF _
& "Y=" & $aMemory[@extended][1] & "|" & $iY_Rnd & @CRLF)
Case 0
$aMemory[0][0] += 1
ReDim $aMemory[$aMemory[0][0] + 1][2]$aMemory[$aMemory[0][0]][0] = $iX_Rnd
[/autoit] [autoit][/autoit] [autoit]
$aMemory[$aMemory[0][0]][1] = $iY_Rnd
EndSwitch
Next_ArrayDisplay($aMemory)
[/autoit] [autoit][/autoit] [autoit]Func BaosArraySearch($a_Search, $n_X_Element, $n_Y_Element, $n_Min, $n_Max, $i_Start = 0, $i_End = -1)
[/autoit] [autoit][/autoit] [autoit]
$i_Size = UBound($a_Search)
If $i_End = -1 Then $i_End = $i_Size - 1For $i_1 = $i_Start To $i_End
[/autoit] [autoit][/autoit] [autoit]
If $a_Search[$i_1][0] = $n_X_Element And $a_Search[$i_1][1] >= $n_Y_Element - $n_Min And $a_Search[$i_1][1] <= $n_Y_Element + $n_Max Then Return SetExtended($i_1, 1)
NextReturn 0
[/autoit]
EndFunc -
Zitat
Also ich danke dir schon mal für den Code ... nur was macht er ? Also zumindest nicht das was ich mit ihm vor hatte ._.
Dann drück dich deutlicher aus... Das von dem ich dachte das du willst, dass er es macht, macht er auch
. -
Das sollte deinen Wünschen entsprechen...
Spoiler anzeigen
[autoit]Global $aTest[5][2] = [[5, 5], [5, 4], [6, 4], [4, 5], [1, 4]]
[/autoit] [autoit][/autoit] [autoit]ConsoleWrite("Result: " & BaosArraySearch($aTest, 5, 5, 1, 2) & @CRLF & "Index: " & @extended & @CRLF)
[/autoit] [autoit][/autoit] [autoit]Func BaosArraySearch($a_Search, $n_X_Element, $n_Y_Element, $n_Min, $n_Max)
[/autoit] [autoit][/autoit] [autoit]
$i_Size = UBound($a_Search) - 1For $i = 0 To $i_Size
[/autoit] [autoit][/autoit] [autoit]
If Not($a_Search[$i][0] >= $n_X_Element - $n_Min And $a_Search[$i][0] <= $n_X_Element + $n_Max) Or Not($a_Search[$i][1] >= $n_Y_Element - $n_Min And $a_Search[$i][1] <= $n_Y_Element + $n_Max) Then Return SetExtended($i, 1)
NextReturn 0
[/autoit]
EndFunc -
Happy Birthday ytwinky!
-
Zitat
den Port 99999 kannst du nicht benutzen weil der höchste benutzbare Port 65535 ist.
Macht er ja auch nicht, das ist als maximale Länge der Übertragungen angegeben
. -
Alles Gute zum Geburtstag yxyx!
-
[autoit]
$sText = BinaryToString(InetRead("http://www.bla.de/bla.txt"), 4)
[/autoit] -
Benutze einfach AdlibRegister, in der Hilfe ist ein Beispiel dazu. Wenn du ,wie BadBunny vermutet, 2 While Schleifen Parallel ablaufen lassen willst, dann solltest du dir mal überlegen, was genau dein Script in welcher Reihenfolge macht ;). 2 Endlosschleifen parallel können logischerweise gar nicht funktionieren...
-
Zitat von DFPWare
Kann der Code Wizard das nicht auch?
Hab ich schon gefragt...Zitat von name22Ich glaube sowas gibt es schon bei den Scite4AutoIt Tools...
Zitat von SparkyJa das hab ich auch gesehen, aber der Source war glaube ich mal nicht öffentlich
-
Ich kann dir vorab schonmal sagen, dass so etwas verdammt schwierig ist (je nachdem um was es geht)... Fang am Anfang lieber mit einer KI für irgendein einfaches Spiel wie TicTacToe an, die das Spielerverhalten anlysiert und sich so anpasst. Das ganze musst du dann noch in einer Datei oder so speichern.
-
Ich glaube sowas gibt es schon bei den Scite4AutoIt Tools...
-
Die Befehle
[autoit]IniReadSection()
[/autoit]
;und
IniReadSectionNames()dürften dir weiterhelfen ;).
-
FileOpen mit 2.Parameter = 16 öffnet Dateien im Binärmodus. Dann musst du nur noch FileRead anwenden und hast deine Hexadezimaldaten ;).
-
Ich nehme auch teil, und ich werde mit Version 2.0 des Bildes das ich beim letzten Mal gemacht habe antreten.
