• ich hab mal ein spiel gecodet das iwie an pokemon errinert :D naja...
    würde mich über kritik und lob freuen :)
    wird nicht der renner sein :D bin noch ein anfänger ^^

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.5.1 (beta)
    Author: Zocker5656

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

    Script Function:
    -
    -
    -
    -
    -

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include <GUIConstants.au3>

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

    ;werte
    $hpmax = FileReadLine("DAT\Data.dat",1)
    $hp = FileReadLine("DAT\Data.dat",2)
    $shp = FileReadLine("DAT\Data.dat",3)
    $shpmax = FileReadLine("DAT\Data.dat",4)
    $gpic = FileReadLine("DAT\Monster.dat",1)
    $spic = FileReadLine("DAT\Monster.dat",2)
    ;angriffe
    $Angriff1 = FileReadLine("DAT\Skill.dat",1)
    $Angriff2 = FileReadLine("DAT\Skill.dat",2)
    $Angriff3 = FileReadLine("DAT\Skill.dat",3)
    $Angriff4 = FileReadLine("DAT\Skill.dat",4)

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

    #Region ## Rechnung

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

    #######monster SELBER################

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

    if $spic = 1 Then
    $selberpic = "DAT\drache.jpg"
    ElseIf $spic = 2 Then
    $selberpic = "DAT\baum.jpg"
    endif

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

    #######monster SELBER################
    #######monster GEGNER################

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

    if $gpic = 1 Then
    $gegnerpic = "DAT\drache.jpg"
    ElseIf $gpic = 2 Then
    $gegnerpic = "DAT\baum.jpg"
    endif

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

    #######monster GEGNER################
    #######ATTACKEN######################
    if $Angriff1 = 1 Then
    $ATK1 = "Feuernebel"
    ElseIf $Angriff1 = 2 Then
    $ATK1 = "Eiseskälte"
    ElseIf $Angriff1 = 3 Then
    $ATK1 = "Erdbeben"
    EndIf

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

    ;ATK 1 -> ATK 2

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

    if $Angriff2 = 1 Then
    $ATK2 = "Wiederbelebung"
    ElseIf $Angriff2 = 2 Then
    $ATK2 = "Heilung"
    ElseIf $Angriff2 = 3 Then
    $ATK2 = "Schnellheilung"
    EndIf

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

    ;ATK 2 -> ATK 3

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

    if $Angriff3 = 1 Then
    $ATK3 = "Schweres Wasser"
    ElseIf $Angriff3 = 2 Then
    $ATK3 = "Meteor-hieb"
    ElseIf $Angriff3 = 3 Then
    $ATK3 = "Gewitter"
    EndIf

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

    ;ATK 2 -> ATK 3

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

    if $Angriff4 = 1 Then
    $ATK4 = "Meteorietenschauer"
    ElseIf $Angriff4 = 2 Then
    $ATK4 = "Telekinese"
    ElseIf $Angriff4 = 3 Then
    $ATK4 = "Schlaf"
    EndIf
    #######ATTACKEN######################
    #######Damage########################
    If $ATK1 = "Feuernebel" Then
    $DMG1 = Random(90,135,1)
    ElseIf $ATK1 = "Eiseskälte" Then
    $DMG1 = Random(75,150,1)
    ElseIf $ATK1 = "Erdbeben" Then
    $DMG1 = Random(1,320,1)
    EndIf
    ;ATK 1 -> ATK 2
    If $ATK2 = "Wiederbelebung" Then
    $Heal2 = Random(82,147,1)
    ElseIf $ATK2 = "Heilung" Then
    $Heal2 = Random(75,150,1)
    ElseIf $ATK2 = "Schnellheilung" Then
    $Heal2 = Random(80,160,1)
    EndIf
    ;ATK 2 -> ATK 3
    If $ATK3 = "Schweres Wasser" Then
    $DMG3 = Random(50,120,1)
    ElseIf $ATK3 = "Meteor-Hieb" Then
    $DMG3 = Random(75,150,1)
    ElseIf $ATK3 = "Gewitter" Then
    $DMG3 = Random(50,300,1)
    EndIf
    ;ATK 3 -> ATK 4
    If $ATK4 = "Meteorietenschauer" Then
    $DMG4 = Random(130,140,1)
    ElseIf $ATK4 = "Telekinese" Then
    $DMG4 = Random(1,50,1)
    ElseIf $ATK4 = "Schlaf" Then
    $DMG4 = Random(1,200,1)
    EndIf
    #######Damage########################
    #EndRegion ##Rechnung

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

    #Region ### START Koda GUI section ### Form=C:\Users\zocker5656\Documents\Autoit\New Folder\Form1.kxf
    $Fenster = GUICreate("Game Beta 0.1 By Zocker5656", 625, 445, 193, 125)
    $skills = GUICtrlCreateGroup("Skills", 32, 264, 561, 161)
    $Button1 = GUICtrlCreateButton($ATK1, 40, 288, 155, 25, 0)
    $Button2 = GUICtrlCreateButton($ATK2, 40, 320, 155, 25, 0)
    $Button3 = GUICtrlCreateButton($ATK3, 40, 352, 155, 25, 0)
    $Button4 = GUICtrlCreateButton($ATK4, 40, 384, 155, 25, 0)
    $Button5 = GUICtrlCreateButton("Los", 216, 288, 75, 121, 0)
    $Button6 = GUICtrlCreateButton("Items", 312, 288, 75, 121, 0)
    $Button7 = GUICtrlCreateButton("Speichern", 408, 288, 75, 121, 0)
    $Button8 = GUICtrlCreateButton("Exit", 504, 288, 75, 121, 0)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $eigenerstatus = GUICtrlCreateGroup("Eigener Status", 32, 16, 217, 233)
    $Pic2 = GUICtrlCreatePic($selberpic, 40, 64, 201, 177)
    $eighpmax = GUICtrlCreateLabel("/" & $shpmax, 208, 32, 36, 17)
    $eighp = GUICtrlCreateLabel($shp, 168, 32, 36, 17)
    $eigenerbalken = GUICtrlCreateProgress(40, 32, 110, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Gegner = GUICtrlCreateGroup("Gegner", 376, 16, 217, 233)
    $Pic3 = GUICtrlCreatePic($gegnerpic, 382, 67, 201, 177)
    $geghpmax = GUICtrlCreateLabel("/" & $hpmax, 552, 32, 36, 17)
    $geghp = GUICtrlCreateLabel($hp, 512, 32, 36, 17)
    $gegnerbalken = GUICtrlCreateProgress(384, 32, 110, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Pic1 = GUICtrlCreatePic("DAT\pfeile.jpg", 264, 96, 100, 100)
    $Label5 = GUICtrlCreateLabel("Du bist dran !!!", 256, 48, 114, 24)
    GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
    GUICtrlSetBkColor(-1, 0x00FF00)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    GUICtrlSetData($eigenerbalken,100)
    GUICtrlSetData($gegnerbalken,100)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    case $Button1
    $hp = $hp - $DMG1
    GUICtrlSetData($geghp,$hp)
    GUICtrlSetBkColor($Label5, 0xFF0000)
    sleep(1000)
    $schaden = GUICtrlRead($eighp) - Random(50,90,1)
    GUICtrlSetData($eighp,$schaden)

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

    $1prozent = $shpmax / 100
    $eigeneleben = GUICtrlRead($eighp) / $1prozent
    GUICtrlSetData($eigenerbalken,$eigeneleben)

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

    $g1prozent = $hpmax / 100
    $gegnerleben = GUICtrlRead($geghp) / $g1prozent
    GUICtrlSetData($gegnerbalken,$gegnerleben)
    GUICtrlSetBkColor($Label5, 0x00FF00)

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

    case $Button2
    $shp = GUICtrlRead($eighp) + $Heal2
    GUICtrlSetData($eighp,$shp)
    if $shp > $shpmax Then
    GUICtrlSetData($eighp,$shpmax)
    EndIf
    GUICtrlSetBkColor($Label5, 0xFF0000)
    sleep(1000)
    $schaden = GUICtrlRead($eighp) - Random(50,90,1)
    GUICtrlSetData($eighp,$schaden)

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

    $1prozent = $shpmax / 100
    $eigeneleben = GUICtrlRead($eighp) / $1prozent
    GUICtrlSetData($eigenerbalken,$eigeneleben)

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

    $g1prozent = $hpmax / 100
    $gegnerleben = GUICtrlRead($geghp) / $g1prozent
    GUICtrlSetData($gegnerbalken,$gegnerleben)
    GUICtrlSetBkColor($Label5, 0x00FF00)

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

    case $Button3
    $hp = $hp - $DMG3
    GUICtrlSetData($geghp,$hp)
    GUICtrlSetBkColor($Label5, 0xFF0000)
    sleep(1000)
    $schaden = GUICtrlRead($eighp) - Random(50,90,1)
    GUICtrlSetData($eighp,$schaden)

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

    $1prozent = $shpmax / 100
    $eigeneleben = GUICtrlRead($eighp) / $1prozent
    GUICtrlSetData($eigenerbalken,$eigeneleben)

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

    $g1prozent = $hpmax / 100
    $gegnerleben = GUICtrlRead($geghp) / $g1prozent
    GUICtrlSetData($gegnerbalken,$gegnerleben)
    GUICtrlSetBkColor($Label5, 0x00FF00)

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

    case $Button4
    $hp = $hp - $DMG4
    GUICtrlSetData($geghp,$hp)
    GUICtrlSetBkColor($Label5, 0xFF0000)
    sleep(1000)
    $schaden = GUICtrlRead($eighp) - Random(50,90,1)
    GUICtrlSetData($eighp,$schaden)

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

    $1prozent = $shpmax / 100
    $eigeneleben = GUICtrlRead($eighp) / $1prozent
    GUICtrlSetData($eigenerbalken,$eigeneleben)

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

    $g1prozent = $hpmax / 100
    $gegnerleben = GUICtrlRead($geghp) / $g1prozent
    GUICtrlSetData($gegnerbalken,$gegnerleben)
    GUICtrlSetBkColor($Label5, 0x00FF00)
    EndSwitch
    WEnd

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


    Es fehlen noch ein paar sachen
    -meldung wenn gewonnen oder verloren
    -monster auswahl
    -story modus
    -soundeffekte
    -hintergrundmusik

    wer ich alle dämnächst noch hinzufügen :)

  • Bitte stell' den Quellcode hier ins Forum, niemand führt gerne "fremde" Exe-Dateien aus.

  • Zitat

    Das eine Bild stammt aus dem MMORPG Metin2. Soweit ich weiß ist das ein Level 71er "Böser Baum". XD

    Stimmt. Auch dieses Portal im Hintergrund ist typisch für Metin2.

    Das Spiel ist ganz lustig. Wenn ich aber zuoft hintereinaner auf einen Button klicke, dann reagiert die GUI gar nicht mehr. Aber das ist ja nicht so wichtig.
    Die Setting-GUI kann man aber nicht schließen.