Bitte helft mir! ;/

[»DuRöhre™]

Hallo liebe AutoIT Scripter..
Ja ich wollte ein kleines FantasySpiel erstellen...
Das soll nur mit Fantasy spaß machen (Keine Grafiken usw.)
d.H ein Fenster wo Man z.B "Gehe nach Norden" eine Antwort kommt: "*Du gehst nach Norden" und manchmal halt.. "Du kannst nicht nach Norden gehen da ein Fluss den Weg versperrt" dann muss man z.B eingeben "Schwimme über den Fluss" und man kann drüberschwimmen ..

Würde mich über eine Hilde freuen

[reCougar]

1. Der Titel ist richtig schlecht.
2. Wo soll dir die Community helfen ? Oder erwartest du Code Snippets und du diese dann einfach c&p?

Genauere Informationen geben!

[SeYz]

Wofür brauchst du Hilfe?
Das mit gehe nach Norden könntest du mit MsgBoxen regeln , das mit schwimme über Wasser bzw. das man (....) eingeben muss,würde mit einer InputBox funktionieren.

Mfg. SeYz

[Achat]

Du musst dir erstmal die Logik überlegen.
Die verschiedenen Aktionen, Antworten etc.

Dann erst kannst du darüber nachdenken, wie du es in AutoIt umsetzt.

MfG

[lolkop]

antworten zu erkennen ist nicht so einfach... gerade wenn der user diese frei eingeben kann... einfacher wäre es hier mit antwortvorgaben weiter zu kommen.

ein "spielfeld" kannst du dir hier einfach in einem 2d-array anlegen...

[FacePalmMan]

Originally Posted by lolkop

antworten zu erkennen ist nicht so einfach... gerade wenn der user diese frei eingeben kann... einfacher wäre es hier mit antwortvorgaben weiter zu kommen.

ein "spielfeld" kannst du dir hier einfach in einem 2d-array anlegen...

habe mir mal ein 2D spiel gemacht mit guictrlcreatepic(.....) coordinaten berechen wenn folgende tasten gedrückt werden dann guictrldelete(...) dann guictrlcreatepic(.....) u.s.w! ist ganz einfach! mein kumpel hat das mit gdi+ gemacht ,was ich besser finde aber was der typ oben meint ist ein textspiel wo man was eingibt und so! bei minecraft gibs nen mod wo sowas ähnliches vorkommt! wenne willst geb ich dir source für meine 3D engine!

[omer36]

Originally Posted by FacePalmMan

habe mir mal ein 2D spiel gemacht mit guictrlcreatepic(.....) coordinaten berechen wenn folgende tasten gedrückt werden dann guictrldelete(...) dann guictrlcreatepic(.....) u.s.w! ist ganz einfach! mein kumpel hat das mit gdi+ gemacht ,was ich besser finde aber was der typ oben meint ist ein textspiel wo man was eingibt und so! bei minecraft gibs nen mod wo sowas ähnliches vorkommt! wenne willst geb ich dir source für meine 3D engine!

3d engine für autoit`?

[FacePalmMan]

Originally Posted by omer36

3d engine für autoit`?

ja? mit gdi+! die winkel berechnen und was weiss ich was alles noch! war harte arbeit aber ist fertig! habe ich aber auf meiner alten festplatte und kann deswegen nicht zeigen. habe aber eine kleine 2D engine erstellt für 2D games (wie z.b mein 2D GTA xD)!
2DEngine (ohne GDI+)
---------

 Spoiler

#include-once
Func _Up($PixelsToMoveToDirection,$PlayerXcoords,$Playe rYcoords)
$PlayerYcoords=$PlayerYcoords-$PixelsToMoveToDirection
$returnedcoords=$PlayerYcoords
Return $returnedcoords
EndFunc
Func _Down($PixelsToMoveToDirection,$PlayerXcoords,$Pla yerYcoords)
$PlayerYcoords=$PlayerYcoords+$PixelsToMoveToDirec tion
$returnedcoords=$PlayerYcoords
Return $returnedcoords
EndFunc
Func _Left($PixelsToMoveToDirection,$PlayerXcoords,$Pla yerYcoords)
$PlayerXcoords=$PlayerXcoords-$PixelsToMoveToDirection
$returnedcoords=$PlayerXcoords
Return $returnedcoords
EndFunc
Func _Right($PixelsToMoveToDirection,$PlayerXcoords,$Pl ayerYcoords)
$PlayerXcoords=$PlayerXcoords+$PixelsToMoveToDirec tion
$returnedcoords=$PlayerXcoords
Return $returnedcoords
EndFunc
Func _UpdatePlayer($PlayerToUpdate,$PictureName,$Xcoord sOfPlayer,$YcoordsOfPlayer,$WidthOfPlayer,$HeightO fPlayer)
GUICtrlDelete($PlayerToUpdate)
$PlayerToUpdate=GUICtrlCreatePic($PictureName,$Xco ordsOfPlayer,$YcoordsOfPlayer,$WidthOfPlayer,$Heig htOfPlayer)
EndFunc
Func _Shoot($PlayerXcoords,$PlayerYcoords,$ShootDirecti on,$BulletPictureFilename,$BulletPictureWidth,$Bul letPictureHeight,$PlayerWidth,$PlayerHeight,$GameW indowWidth,$GamewindowHeight,$BulletSpeed,$Xenemy1 ,$Yenemy1,$EnemyWidth,$EnemyHeight)
If $ShootDirection="Up" Then
$bulletx=$PlayerXcoords
$bullety=$PlayerYcoords
For $i=0 To $PlayerYcoords Step 1
$Shot=GUICtrlCreatePic($BulletPictureFilename,$Pla yerXcoords,$PlayerYcoords,$BulletPictureWidth,$Bul letPictureHeight)
$bullety=$bullety-$BulletSpeed
If $bullety>$Yenemy1-$EnemyHeight And $bullety<$Yenemy1+$EnemyHeight And $bulletx>$Xenemy1-$EnemyWidth And $bulletx<$Xenemy1+$EnemyWidth Then
GUICtrlDelete($Shot)
Return
EndIf
GUICtrlDelete($Shot)
Next
ElseIf $ShootDirection="Down" Then
$bulletx=$PlayerXcoords
$bullety=$PlayerYcoords
For $GamewindowHeight=$GamewindowHeight To $PlayerYcoords Step 1
$Shot=GUICtrlCreatePic($BulletPictureFilename,$Pla yerXcoords,$PlayerYcoords,$BulletPictureWidth,$Bul letPictureHeight)
$bullety=$bullety+$BulletSpeed
If $bullety>$Yenemy1-$PlayerWidth And $bullety<$Yenemy1+$PlayerHeight And $bulletx>$Xenemy1-$PlayerWidth And $bulletx<$Xenemy1+$PlayerHeight Then
GUICtrlDelete($Shot)
Return "Enemy1"
EndIf
GUICtrlDelete($Shot)
Next
ElseIf $ShootDirection="Left" Then
$bulletx=$PlayerXcoords
$bullety=$PlayerYcoords
For $i=0 To $PlayerXcoords Step 1
$Shot=GUICtrlCreatePic($BulletPictureFilename,$Pla yerXcoords,$PlayerYcoords,$BulletPictureWidth,$Bul letPictureHeight)
$bulletx=$bulletx-$BulletSpeed
If $bulletx>$Xenemy1 And $bulletx<$Xenemy1+$PlayerWidth Then
GUICtrlDelete($Shot)
Return "Enemy1"
EndIf
Next
ElseIf $ShootDirection="Right" Then
$bulletx=$PlayerXcoords
$bullety=$PlayerYcoords
For $PlayerXcoords=$PlayerXcoords To $GameWindowWidth Step 1
$Shot=GUICtrlCreatePic($BulletPictureFilename,$Pla yerXcoords,$PlayerYcoords,$BulletPictureWidth,$Bul letPictureHeight)
$bulletx=$bulletx+$BulletSpeed
If $bulletx>$Xenemy1 And $bulletx<$Xenemy1+$EnemyWidth And $bullety>$Yenemy1 And $bullety<$Yenemy1+$EnemyHeight Then
GUICtrlDelete($Shot)
MsgBox(0,"","WIN")
Return "Enemy1"
EndIf
GUICtrlDelete($Shot)
Next
EndIf
EndFunc

2D Game (auch ohne gdi+ aber mit bots und schussfunktion munibegrenzung e.t.c (ist net copyrightgeschützt also könnt ihr verbessern e.t.c))

 Spoiler

#include <winapi.au3>
#include <String.au3>
#include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("2D Spiel", @DesktopWidth, @DesktopHeight, 0, 0)
GUISetState(@SW_SHOW)
$x= @DesktopWidth / 2
$y= @DesktopHeight / 2
$xgegner=Random(@DesktopWidth * 0.5,@DesktopWidth / 1.5)
$ygegner=Random(@DesktopHeight * 0.5,@DesktopHeight / 1.5)
$xgegner2=Random(@DesktopWidth * 0.5,@DesktopWidth / 1.5)
$ygegner2=Random(@DesktopHeight * 0.5,@DesktopHeight / 1.5)
$Player=GUICtrlCreatePic("Player.bmp",$x,$y,32,64)
$Gegner=GUICtrlCreatePic("Gegner.bmp",$xgegner,$yg egner,32,64)
$Gegner2=GUICtrlCreatePic("Gegner.bmp",$xgegner2,$ ygegner2,32,64)
;$hintergrund=GUICtrlCreatePic("Hintergrund.bmp",0 ,0,@DesktopWidth,@DesktopHeight)
;WinSetTrans("2D Spiel","",0)
$Clipammo=10
$Spareammo=20
$Speed=1*2
$Speed2=$Speed*1.5
$left=""
$right=""
#EndRegion ### END Koda GUI section ###
HotKeySet("{Esc}","_Exit")
HotKeySet("{w}","UP")
HotKeySet("{s}","Down")
HotKeySet("{a}","Left")
HotKeySet("{d}","Right")
HotKeySet("{up}","UP")
HotKeySet("{down}","Down")
HotKeySet("{left}","Left")
HotKeySet("{right}","Right")
HotKeySet("{1}","Walkmode")
HotKeySet("{2}","FasterWalkmode")
HotKeySet("{3}","Runmode")
$0=0
$LRUD=""
$LRUD2=""
$tot=0
$tot2=0
$lebenSpieler=100
$lebenGegner=100
$lebenGegner2=100
$LebenanzeigeB1=""
$LebenanzeigeB2=""
$name1="Bot1"
$name2="Bot2"
$TI=TimerInit()
AdlibRegister("_Zurueck",1)
AdlibRegister("_Char",1)
;AdlibRegister("_Move",1)
;AdlibRegister("_Bot2",500)
AdlibRegister("_Bot1",50)
While 1
WEnd

Func _Bot1()
$Move = Random(0,5,1)
$Direction = Random(1,4,1)
$lenght = Random(100,100000,1)
If Not $Move = 0 Then
For $lenght= 0 To $0 Step -0.25
_Move()
_Bot2()
GUICtrlDelete($Gegner)
GUICtrlDelete($LebenanzeigeB1)
If $Direction = 1 Then
$ygegner=$ygegner - 5.0
$LOR="U"
ElseIf $Direction = 2 Then
$xgegner=$xgegner + 5.0
$LOR="R"
ElseIf $Direction = 3 Then
$ygegner=$ygegner + 5.0
$LOR="NOR"
ElseIf $Direction = 4 Then
$xgegner=$xgegner - 5.0
$LOR="L"
EndIf
If $tot=0 Then
If $LOR="NOR" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("Gegner.bmp",$xgegner,$yg egner,32,64)
ElseIf $LOR="R" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("GegnerR.bmp",$xgegner,$y gegner,32,64)
ElseIf $LOR="L" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("GegnerR.bmp",$xgegner,$y gegner,32,64)
ElseIf $LOR="U" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("GegnerU.bmp",$xgegner,$y gegner,32,64)
ElseIf $LOR="LU" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("GegnerLU.bmp",$xgegner,$ ygegner,32,64)
ElseIf $LOR="RU" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("GegnerRU.bmp",$xgegner,$ ygegner,32,64)
ElseIf $LOR="LD" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("GegnerLD.bmp",$xgegner,$ ygegner,32,64)
ElseIf $LOR="RD" Then
$LebenanzeigeB1=GUICtrlCreateProgress($xgegner,$yg egner-10,32,10)
GUICtrlSetData(-1,$lebenGegner)
$Gegner=GUICtrlCreatePic("GegnerRD.bmp",$xgegner,$ ygegner,32,64)
EndIf
EndIf
Next
Else

EndIf
EndFunc

Func _Move()
If Not _IsPressed(_StringToHex("A")) And Not _IsPressed(_StringToHex("D")) Then
If _IsPressed(_StringToHex("W")) Then
;If $left = "" And $right = "" Then
UP()
;EndIf
EndIf
EndIf
If _IsPressed(_StringToHex("A")) Then
If Not _IsPressed(_StringToHex("W")) And Not _IsPressed(_StringToHex("S")) Then
;If $left = "" And $right = "" Then
LEFT()
;EndIf
EndIf
EndIf
If Not _IsPressed(_StringToHex("W")) And Not _IsPressed(_StringToHex("S")) Then
If _IsPressed(_StringToHex("D")) Then
;If $left = "" And $right = "" Then
RIGHT()
;EndIf
EndIf
EndIf
If Not _IsPressed(_StringToHex("a")) And Not _IsPressed(_StringToHex("D")) Then
If _IsPressed(_StringToHex("S")) Then
;If $left = "" And $right = "" Then
DOWN()
;EndIf
EndIf
EndIf
If _IsPressed(20) Then
If TimerDiff($TI)>100 Then
$TI=TimerInit()
$Clipammo=$Clipammo-1
If $Clipammo=0 Then
If not $Spareammo=0 Then
$Clipammo=10
$Spareammo=$Spareammo-10
EndIf
EndIf
If $LRUD = "U" Then
$schussy=$y
For $i=0 To $y Step 1
$schussy=$schussy-1
$schuss=GUICtrlCreatePic("Schuss.bmp",$x+8,$schuss y,5,50)
If $schussy>$ygegner-32 And $schussy<$ygegner+64 And $x>$xgegner-32 And $x<$xgegner+64 Then
$lebenGegner=$lebenGegner-12.5
$schussy=$schussy+64
If $lebenGegner=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner-16,$ygegner-32,64,128)
$tot=1
EndIf
ElseIf $schussy>$ygegner2-32 And $schussy<$ygegner2+64 And $x>$xgegner2-32 And $x<$xgegner2+64 Then
$lebenGegner2=$lebenGegner2-12.5
$schussy=$schussy+64
If $lebenGegner2=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner2-16,$ygegner2-3,64,128)
$tot2=1
EndIf
GUICtrlDelete($schuss)
ExitLoop
EndIf
GUICtrlDelete($schuss)
Next
ElseIf $LRUD = "R" Then
$schussx=$x
$desktopwidth=@DesktopWidth
For $desktopwidth=$desktopwidth To 0 Step -1
$schussx=$schussx+1
$schuss=GUICtrlCreatePic("Schuss.bmp",$schussx,$y+ 16,20,5)
If $schussx>$xgegner-16 And $schussx<$xgegner+32 And $y>$ygegner-32 And $y<$ygegner+64 Then
$lebenGegner=$lebenGegner-12.5
$schussx=$schussx+32
If $lebenGegner=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner-16,$ygegner-32,64,128)
$tot=1
EndIf
ElseIf $schussx>$xgegner2-16 And $schussx<$xgegner2+32 And $y>$ygegner2 And $y<$ygegner2+64 Then
$lebenGegner=$lebenGegner-12.5
$schussx=$schussx-32
If $lebenGegner=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner2-16,$ygegner2-32,64,128)
$tot2=1
EndIf
GUICtrlDelete($schuss)
ExitLoop
EndIf
GUICtrlDelete($schuss)
Next
ElseIf $LRUD = "" Then
$schussy=$y
$desktopheight=@DesktopHeight
For $y=$y To $desktopheight Step 1
$schussy=$schussy+1
$schuss=GUICtrlCreatePic("Schuss.bmp",$x+8,$schuss y,5,50)
If $schussy>$ygegner-32 And $schussy<$ygegner+64 And $x>$xgegner-16 And $x<$xgegner+32 Then
$lebenGegner=$lebenGegner-12.5
$schussy=$schussy+64
If $lebenGegner=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner-16,$ygegner-32,64,128)
$tot=1
EndIf
ElseIf $schussy>$ygegner2-32 And $schussy<$ygegner2+64 And $x>$xgegner2-16 And $x<$xgegner2+32 Then
$lebenGegner2=$lebenGegner2-12.5
$schussy=$schussy+64
If $lebenGegner2=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner2-16,$ygegner2-32,64,128)
$tot2=1
EndIf
GUICtrlDelete($schuss)
ExitLoop
EndIf
GUICtrlDelete($schuss)
Next
ElseIf $LRUD = "L" Then
$schussx=$x
For $i=0 To $x Step 1
$schussx=$schussx-1
$schuss=GUICtrlCreatePic("Schuss.bmp",$schussx,$y+ 16,20,5)
If $schussx>$xgegner And $schussx<$xgegner+32 And $y>$ygegner-32 And $y<$ygegner+64 Then
$lebenGegner=$lebenGegner-12.5
$schussx=$schussx-32
If $lebenGegner=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner-16,$ygegner-32,64,128)
$tot=1
EndIf
ElseIf $schussx>$xgegner2 And $schussx<$xgegner2+32 And $y>$ygegner2-32 And $y<$ygegner2+64 Then
$lebenGegner2=$lebenGegner2-12.5
$schussx=$schussx+32
If $lebenGegner2=0 Then
$blut=GUICtrlCreatePic("Blut.bmp",$xgegner2-16,$ygegner2-32,64,128)
$tot2=1
EndIf
GUICtrlDelete($schuss)
ExitLoop
EndIf
GUICtrlDelete($schuss)
Next
EndIf
EndIf
EndIf
;$left=""
;$right=""
;If _IsPressed(_StringToHex("S")) And _IsPressed(_StringToHex("a")) Then
; LEFTDOWN()
; $left="down"
;ElseIf _IsPressed(_StringToHex("S")) And _IsPressed(_StringToHex("D")) Then
; RIGHTDOWN()
; $right="down"
;EndIf
;If _IsPressed(_StringToHex("W")) And _IsPressed(_StringToHex("A")) Then
; LEFTUP()
; $left="up"
;EndIf
;If _IsPressed(_StringToHex("W")) And _IsPressed(_StringToHex("D")) Then
; RIGHTUP()
; $right="up"
;EndIf
EndFunc
Func _Char()
GUICtrlDelete($Player)
$Player=GUICtrlCreatePic("Player"&$LRUD&".bmp",$x, $y, 32,64)
EndFunc
Func _Zurueck()
$DW=@DesktopWidth-32
$DH=@DesktopHeight-94
$Null=0
If $xgegner > $DW Then
$xgegner=$DW
$lenght=1
ElseIf $ygegner > $DH Then
$ygegner=$DH
$lenght=1
ElseIf $xgegner < $Null Then
$xgegner=0
$lenght=1
ElseIf $ygegner < $Null Then
$ygegner=0
$lenght=1
EndIf
If $x > $DW Then
$x=$DW
ElseIf $y > $DH Then
$y=$DH
ElseIf $x < $Null Then
$x=0
ElseIf $y < $Null Then
$y=0
EndIf
EndFunc

Func _Exit()
Exit 0
EndFunc

Func UP()
$y=$y-$Speed
$LRUD="U"
;GUICtrlDelete($Player)
;$Player=GUICtrlCreatePic("PlayerU.bmp",$x,$y, 32,64)
EndFunc

Func Down()
$y=$y+$Speed
$LRUD=""
;GUICtrlDelete($Player)
;$Player=GUICtrlCreatePic("Player.bmp",$x,$y, 32,64)
EndFunc

Func Left()
$x=$x-$Speed
$LRUD="L"
;GUICtrlDelete($Player)
;$Player=GUICtrlCreatePic("PlayerL.bmp",$x,$y, 32,64)
EndFunc

Func Right()
$x=$x+$Speed
$LRUD="R"
;GUICtrlDelete($Player)
;$Player=GUICtrlCreatePic("PlayerR.bmp",$x,$y, 32,64)
EndFunc

Func RIGHTUP()
$x=$x+$Speed2/2
$y=$y-$Speed2/2
$LRUD="RU"
EndFunc

Func LEFTUP()
$x=$x-$Speed2/2
$y=$y-$Speed2/2
$LRUD="LU"
EndFunc

Func RIGHTDOWN()
$x=$x+$Speed2/2
$y=$y+$Speed2/2
$LRUD="RD"
EndFunc

Func LEFTDOWN()
$x=$x-$Speed2/2
$y=$y+$Speed2/2
$LRUD="LD"
EndFunc
Func Walkmode()
$Speed=1
$Speed2=$Speed*1.5
EndFunc

Func FasterWalkmode()
$Speed=1*2
$Speed2=$Speed*1.5
EndFunc

Func Runmode()
$Speed=1*4
$Speed2=$Speed*1.5
EndFunc

Func _Bot2()
$Move2 = Random(0,5,1)
$Direction2 = Random(1,4,1)
$lenght2 = Random(100,100000,1)
If Not $Move2 = 0 Then
For $lenght2= 0 To $0 Step -0.5
If $tot2=0 Then
GUICtrlDelete($LebenanzeigeB2)
GUICtrlDelete($Gegner2)
GUICtrlDelete($name2)
If $Direction2 = 1 Then
$ygegner2=$ygegner2 - 5.0
$LOR2="U"
ElseIf $Direction2 = 2 Then
$xgegner2=$xgegner2 + 5.0
$LOR2="R"
ElseIf $Direction2 = 3 Then
$ygegner2=$ygegner2 + 5.0
$LOR2="NOR"
ElseIf $Direction2 = 4 Then
$xgegner2=$xgegner2 - 5.0
$LOR2="L"
EndIf
If $LOR2="NOR" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("Gegner.bmp",$xgegner2,$ ygegner2,32,64)
ElseIf $LOR2="R" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("GegnerR.bmp",$xgegner2, $ygegner2,32,64)
ElseIf $LOR2="L" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("GegnerL.bmp",$xgegner2, $ygegner2,32,64)
ElseIf $LOR2="U" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("GegnerU.bmp",$xgegner2, $ygegner2,32,64)
ElseIf $LOR2="LU" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("GegnerLU.bmp",$xgegner2 ,$ygegner2,32,64)
ElseIf $LOR2="RU" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("GegnerRU.bmp",$xgegner2 ,$ygegner2,32,64)
ElseIf $LOR2="LD" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("GegnerLD.bmp",$xgegner2 ,$ygegner2,32,64)
ElseIf $LOR2="RD" Then
$LebenanzeigeB2=GUICtrlCreateProgress($xgegner2,$y gegner2-10,32,10)
GUICtrlSetData($LebenanzeigeB2,$lebenGegner2)
$name2=GUICtrlCreateLabel("Bot2",$xgegner2,$ygegne r2-25,32,15)
$Gegner2=GUICtrlCreatePic("GegnerRD.bmp",$xgegner2 ,$ygegner2,32,64)
EndIf
Else
EndIf
Next
Else

EndIf
EndFunc

[Achat]

GDI+ und dann noch 3D?
GDI+ ist mega langsam.
Wie sieht denn deine Grafik aus?
Mehr als 30 fps?
Wohl eher nicht.

MfG

[lolkop]

Originally Posted by FacePalmMan

habe mir mal ein 2D spiel gemacht mit guictrlcreatepic(.....) coordinaten berechen wenn folgende tasten gedrückt werden dann guictrldelete(...) dann guictrlcreatepic(.....) u.s.w! ist ganz einfach! mein kumpel hat das mit gdi+ gemacht ,was ich besser finde aber was der typ oben meint ist ein textspiel wo man was eingibt und so! bei minecraft gibs nen mod wo sowas ähnliches vorkommt! wenne willst geb ich dir source für meine 3D engine!

aha...

du hast also eine eine passende 3d-engine für ein textbasiertes 2d-rpg erstellt?....

[Shadow992]

Originally Posted by lolkop

aha...

du hast also eine eine passende 3d-engine für ein textbasiertes 2d-rpg erstellt?....

Ja klar ich habe auch die passende Abrissbirne für das Ausquetschen meiner Orange, du etwa nicht?