Beiträge von L3viathan

  • Doodle Jump für Pc

    Weitere Ideen: Steuerung: 1.) Das Viech muss beim Rausspringen auf der einen Seite auf der anderen wieder rauskommen
    2.) wenn mann die Pfeiltaste loslässt, sollte es wieder nach unten fallen

    Liste von weiteren Sachen die es im Original gibt


    Braune Plattformen, die zerbrechen, wenn man draufspringt
    Sprungfedern und Trampolin
    Raketenrucksack und Propellerhut
    Weiße Plattform: Nur einmal benutzbar
    Bewegende Plattformen (hellblau: seitlich, grau: vertikal)
    gelbe plattformen: werden irgendwann rot und explodieren dann
    Sound

  • Game of Life

    Neue Version.
    Es ist noch sehr ineffektiv programmiert, aber mir mangelt es an Ideen, wie man das ganze schneller und kürzer machen kann...

    EDIT: LOL @YourDoom Gleiche Idee, etwas anders umgesetzt. (kannst du dein Skript bitte spoilern?)
    Jonathan: Statt X klicken Escape drücken :)

  • Game of Life

    Das ist kein Spiel im herkömmlichen Sinne. Wenns dich interessiert kannst du dir den Wiki-Artikel durchlesen, es ist ein mathematisches System, wann Häkchen dazu und wann wegkommen.

  • Game of Life

    Ich habe mal eine Game of Life-Umsetzung geschrieben.
    Mit F5 könnt ihr, wenn es mal nicht weitergeht, neues Leben streuen, mit Escape beenden.
    Feldgröße ist frei wählbar.
    Screenshot bei Feldgröße 15*15:
    [Blockierte Grafik: http://www.abload.de/img/gols55b.png]

    Skript
    [autoit]

    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    Opt("GUIOnEventMode",1)
    GLOBAL $PLAY=True
    Global $xMAX=InputBox("Feldgröße","Bitte x-Wert eingeben:",15)
    ;~ Global $xMAX=32
    Global $yMAX=InputBox("Feldgröße","Bitte y-Wert eingeben:",15)
    ;~ Global $yMAX=12
    Global $feldgroesse=InputBox("Feldgröße","Bitte Feldgröße eingeben:",15)
    ;~ Global $feldgroesse=160
    ;Werte für Demo: 16,6,300/32,12,150
    ;~ AdlibRegister("_Random",10000);für Demo
    ;~ AdlibRegister("_MgP",1000);für Demo
    $xMAX-=1
    $yMAX-=1
    $mgp=MouseGetPos()
    HotKeySet("{ESC}","_exit")
    HotKeySet("{F5}","_Random")
    HotKeySet("{F2}","_Pause")
    HotKeySet("{F1}","_Play")
    HotKeySet("{F4}","_test")
    $hForm=GUICreate("Game of Life",$feldgroesse*($xMAX+1),$feldgroesse*($yMAX+1),Default,Default,$WS_POPUP)
    GUISetBkColor(0x000000)
    Global $hCells[$xMAX+1][$yMAX+1][3]
    For $i=0 To $xMAX
    For $j=0 To $yMAX
    $hCells[$i][$j][1]=GUICtrlCreateLabel($i & " " & $j,2+$i * $feldgroesse,2+$j*$feldgroesse,$feldgroesse,$feldgroesse)
    GUICtrlSetOnEvent(-1,"_change")
    $hCells[$i][$j][0]=0
    GUICtrlSetColor(-1,0x000000)
    GUICtrlSetBkColor(-1,0x000000)
    If Random(0,1,1)=1 Then
    _set($i,$j,"1")
    EndIf

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

    Next
    Next
    GUISetState()
    While Sleep(50)
    If $PLAY Then _doTheGame()
    If _numAll()=0 Then _Random()
    WEnd
    Func _doTheGame()
    For $i=0 To $xMAX
    For $j=0 To $yMAX
    $neighbors=_GetLiveNeighbors($i,$j)
    Switch $neighbors
    Case 0,1
    _preset($i,$j,"0")
    Case 4,5,6,7,8
    _preset($i,$j,"0")
    Case 3
    _preset($i,$j,"1")
    EndSwitch
    Next
    Next
    _setAll()
    EndFunc

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

    Func _GetLiveNeighbors($x,$y)
    Local $result=0,$lo=0,$o=0,$ro=0,$l=0,$r=0,$lu=0,$u=0,$ru=0
    If $x>0 And $y>0 Then $lo=_get($x-1,$y-1)
    If $y>0 Then $o=_get($x,$y-1)
    If $y>0 And $x<$xMAX Then $ro=_get($x+1,$y-1)

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

    If $x>0 Then $l=_get($x-1,$y)
    If $x<$xMAX Then $r=_get($x+1,$y)

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

    If $x>0 And $y<$yMAX Then $lu=_get($x-1,$y+1)
    If $y<$yMAX Then $u=_get($x,$y+1)
    If $y<$yMAX And $x<$xMAX Then $ru=_get($x+1,$y+1)
    If $lo="1" Then $result+=1
    If $o="1" Then $result+=1
    If $ro="1" Then $result+=1
    If $l="1" Then $result+=1
    If $r="1" Then $result+=1
    If $lu="1" Then $result+=1
    If $u="1" Then $result+=1
    If $ru="1" Then $result+=1
    Return $result
    EndFunc
    Func _numall()
    $return=0
    For $i=0 To $xMAX
    For $j=0 To $yMAX
    If _get($i,$j)=1 Then $return +=1
    Next
    Next
    Return $return
    EndFunc
    Func _Random()
    For $i=0 To $xMAX
    For $j=0 To $yMAX
    If Random(0,1,1)=1 Then _set($i,$j,"1")
    Next
    Next
    EndFunc
    Func _exit()
    Exit
    EndFunc
    Func _set($x,$y,$what)
    Switch $what
    Case "1"
    $hCells[$x][$y][0]=1
    GUICtrlSetColor($hCells[$x][$y][1],0xffffff)
    GUICtrlSetBkColor($hCells[$x][$y][1],0xffffff)
    Case Else
    GUICtrlSetColor($hCells[$x][$y][1],0x000000)
    GUICtrlSetBkColor($hCells[$x][$y][1],0x000000)
    $hCells[$x][$y][0]=0
    EndSwitch
    EndFunc
    Func _preset($x,$y,$what)
    Switch $what
    Case "1"
    $hCells[$x][$y][2]=1
    GUICtrlSetColor($hCells[$x][$y][1],0xffffff)
    GUICtrlSetBkColor($hCells[$x][$y][1],0xffffff)
    Case Else
    GUICtrlSetColor($hCells[$x][$y][1],0x000000)
    GUICtrlSetBkColor($hCells[$x][$y][1],0x000000)
    $hCells[$x][$y][2]=0
    EndSwitch
    EndFunc
    Func _setAll()
    For $i=0 To $xMAX
    For $j=0 To $yMAX
    $hCells[$i][$j][0]=$hCells[$i][$j][2]
    Next
    Next
    EndFunc
    Func _get($x,$y)
    Return $hCells[$x][$y][0]
    EndFunc

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

    Func _test()
    _set(0,0,"1")
    EndFunc
    Func _mgp()
    $mpg=MouseGetPos()
    If $mgp[0] <> $mpg[0] Or $mgp[1] <> $mpg[1] Then Exit
    EndFunc
    Func _play()
    $PLAY=True
    ;~ AdlibRegister("_Random",10000)
    EndFunc
    Func _pause()
    $PLAY=False
    ;~ AdlibUnRegister("_Random")
    EndFunc
    Func _change()
    $array=StringSplit(GUICtrlRead(@GUI_CtrlId)," ")
    _set($array[1],$array[2],1-_get($array[1],$array[2]))
    EndFunc

    [/autoit]



    Edit: Neue Version sieht hübscher aus und geht schneller.
    Edit2: Feldgröße wählbar :P
    Edit3: POPUP-Fenster und Bug behoben.
    Edit4: Play und Pause (F1 und F2), sowie per Mausklick Feld verändern.

  • Der kleine Helfer

    Klar, große Firmen veröffentlichen ihre Software closed-source.
    Aber guck dir mal den Erfolg von Linux, Firefox, VLC Media Player, ... an. Open-Source heißt nicht, das klauen legal wird.

    Und wie gesagt, man soll ja was lernen.

  • Autoit.AT - Konkurenz oder Partner??

    Zitat von lukii6

    Ja, klar lebt eine Community von den Benutzern, doch das Design bzw. das Look 'n' Feel hat beim Werben einen hohen Stellenwert.

    Ich schließe mich ideas2code an: EIne Community besteht aus den Benutzern. Design wird immer subjektiv empfunden, aber hey, wir haben hier über 5000 Mitglieder, und ich glaube den allergrößten Teil davon stört das Design nicht. Man darf nicht vergessen, dass das ganze hier ehrenamtlich ist, ich habe hier noch nie Werbung gesehen, die Admins und Mods (und natürlich auch viele andere User) opfern hier ihre Freizeit, um das Projekt am laufen zu halten. Das Design von AutoIt.at ist mir persönlich zu verspielt. Aber es geht ja um was ganz anderes. Ich weiß nicht, wie viele Versuche FirePanther schon gestartet hat, eine Coder-Community aufzuziehen, aber die vielen Wechsel zeugen ja nicht gerade von Erfolg. Hinter Autoit.de steht eine Philosophie, auf deren Grundlage unter anderem Bot-Coding verboten ist, und die die Grundlage für die tolle Athmosphäre hier ist.

    Wenn AutoIt.at erfolgreich wird, toll, hab ich nix dagegen. Aber ich denke wir werden hier eine Abstimmung mit den Füßen sehen. AutoIt.de wird für mich von der Diskussionskultur immer einmalig bleiben, darum bleibe ich AutoIt.de treu.

  • Der kleine Helfer

    Zitat von Trauma

    Ich meine wiso braucht ihr dan den Quellcode ?

    Ganz einfach, weil das hier ein AutoIt-Forum ist. Es ist nicht das heise-Softwareverzeichnis oder sowas, es geht darum, voneinander zu lernen. Ich weiß nicht, wo ich stehen würde, wenn ich nicht durch hunderte Skripte von BugFix, peethebee, Gtaspider, Oscar und wie sie alle heißen gelernt hätte. Es wird dir keiner dein Skript klauen (zumindest sowas nicht). Ich - und eigentlich jeder andere, den ich hier kenne - veröffentlicht seine Skripte mit Quellcode, weil man auch möchte, dass andere das tun.
    Denk mal darüber nach.

    Gruß, L3viathan2142

  • Probleme mit Umlauten

    [autoit]

    $sName = __FFXpath("/html/body/center/table[1]/tbody/tr/td[1]/table[1]/tbody/tr[2]/td[2]", "textContent")
    Func __FFXPath($eins,$zwei)
    $sString = _FFXPath($eins,$zwei)
    $sString = StringReplace($sString,"ä","ae")
    $sString = StringReplace($sString,"ü","ue")
    $sString = StringReplace($sString,"ö","oe")
    $sString = StringReplace($sString,"&amp;","&")
    Return $sString
    EndFunc

    [/autoit]

  • InternetExplorer Protokollieren

    Der Verlauf ist im Ordner C:\Dokumente und Einstellungen\Benutzername\Lokale Einstellungen\Verlauf\ zu finden
    Im History.IEx-Ordner befinden sich mehrere Ordner und eine Datei: index.dat. In dieser Datei befinden sich Informationen.
    Die Datei ist binär, aber mit dem Hexeditor geöffnet erkennt man viel Leere und Einträge in folgender Form:

    Code
    Visited:Benutzername@http://example.com

    RegExp und schon hast du den Verlauf.