Der Längste e*pvp thread V

[Rikkami]

ey der rapper soll mir die hausaufgaben machen lernt davon was ^.^

[BlackFog]

Originally Posted by verT!c4L

Probiert mal Objekt-orientiert zu programmieren und Variablen
von einer Funktions zu anderen zu übergeben.
Diese prozeduralen Programme welche ihr im Augenblick schreibt,
sind ja nur die Vorstufe ...

Autoit ist doch nicht Objekt orientiert bzw. Objekt orientierte Programmierung ist doch nicht möglich o_O.

[Obilee]

GAMEHAXX TUT

[BlackFog]

Ist Dr. *** eigentlich Pole ?

[verT!c4L]

Originally Posted by BlackFog

Autoit ist doch nicht Objekt orientiert bzw. Objekt orientierte Programmierung ist doch nicht möglich o_O.

Hm ja hast recht... Heut ist nicht mein Tag ey -.-

Sowas meinte ich:

Func _Form2()
GUISetState(@SW_SHOW,$Form2)
While 1
$f2msg = GUIGetMsg(1)
Select
Case $f2msg[0] = $Button1
for $i = 0 to (UBound($combo)-1)
_GUICtrlComboBox_SelectString($combo[$i],IniRead($sFile, "Combo", $i, "NONE"))
Next
for $i = 0 to (UBound($input)-1)
GUICtrlSetData($input[$i],IniRead($sFile, "Input", $i, "NONE"))
Next
for $i = 0 to (UBound($checkbox)-1)
GUICtrlSetState ($checkbox[$i], IniRead($sFile, "Check", $i, "NONE"))
Next
Case $f2msg[0] = $Button2
for $i = 0 to (UBound($combo)-1)
IniWrite($sFile, "Combo", $i, GUICtrlRead($combo[$i]))
Next
for $i = 0 to (UBound($input)-1)
IniWrite($sFile, "Input", $i, GUICtrlRead($input[$i]))
Next
for $i = 0 to (UBound($checkbox)-1)
IniWrite($sFile, "Check", $i, GUICtrlRead($checkbox[$i]))
Next
Case $f2msg[0] = $Button3
_GetHPMPs()
Case $f2msg[0] = $Button4
Dim $posinput = 0
Dim $poscheck = 0
ReDim $plbuffs[1][4]
ReDim $pebuffs[1][4]
For $i = 0 to 9
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[$i]))
If Not @error Then
if GUICtrlRead($checkbox[$poscheck]) = 1 Then
$plbuffs[UBound($plbuffs)-1][0] = $Keys[$Pos[0]][0]
$plbuffs[UBound($plbuffs)-1][1] = GUICtrlRead($input[$posinput])
$plbuffs[UBound($plbuffs)-1][2] = GUICtrlRead($input[$posinput+1])
$plbuffs[UBound($plbuffs)-1][3] = 0
ReDim $plbuffs[UBound($plbuffs)+1][4]
EndIf
if GUICtrlRead($checkbox[$poscheck+1]) = 1 Then
$pebuffs[UBound($pebuffs)-1][0] = $Keys[$Pos[0]][0]
$pebuffs[UBound($pebuffs)-1][1] = GUICtrlRead($input[$posinput])
$pebuffs[UBound($pebuffs)-1][2] = GUICtrlRead($input[$posinput+1])
$pebuffs[UBound($pebuffs)-1][3] = 0
ReDim $pebuffs[UBound($pebuffs)+1][4]
EndIf
EndIf
$posinput = $posinput+2
$poscheck = $poscheck+2
Next
if UBound($plbuffs) > 1 Then
ReDim $plbuffs[UBound($plbuffs)-1][4]
EndIf
if UBound($pebuffs) > 1 Then
ReDim $pebuffs[UBound($pebuffs)-1][4]
EndIf
ReDim $preattack[1][4]
For $i = 10 to 11
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[$i]))
If Not @error Then
$preattack[UBound($preattack)-1][0] = $Keys[$Pos[0]][0]
$preattack[UBound($preattack)-1][1] = GUICtrlRead($input[$posinput])
$preattack[UBound($preattack)-1][2] = GUICtrlRead($input[$posinput+1])
$preattack[UBound($preattack)-1][3] = 0
ReDim $preattack[UBound($preattack)+1][4]
EndIf
$posinput = $posinput+2
Next
if UBound($preattack) > 1 Then
ReDim $preattack[UBound($preattack)-1][4]
EndIf
ReDim $attack[1][4]
For $i = 12 to 17
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[$i]))
If Not @error Then
$attack[UBound($attack)-1][0] = $Keys[$Pos[0]][0]
$attack[UBound($attack)-1][1] = GUICtrlRead($input[$posinput])
$attack[UBound($attack)-1][2] = GUICtrlRead($input[$posinput+1])
$attack[UBound($attack)-1][3] = 0
ReDim $attack[UBound($attack)+1][4]
EndIf
$posinput = $posinput+2
Next
if UBound($attack) > 1 Then
ReDim $attack[UBound($attack)-1][4]
EndIf
ReDim $heals[1][11]
For $i = 18 to 25
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[$i]))
If Not @error Then
$heals[UBound($heals)-1][0] = $Keys[$Pos[0]][0]
$heals[UBound($heals)-1][1] = GUICtrlRead($input[$posinput])
$heals[UBound($heals)-1][2] = GUICtrlRead($input[$posinput+1])
$heals[UBound($heals)-1][3] = GUICtrlRead($input[$posinput+2])
$heals[UBound($heals)-1][4] = GUICtrlRead($checkbox[$poscheck])
$heals[UBound($heals)-1][5] = GUICtrlRead($checkbox[$poscheck+1])
$heals[UBound($heals)-1][6] = GUICtrlRead($checkbox[$poscheck+2])
$heals[UBound($heals)-1][7] = GUICtrlRead($checkbox[$poscheck+3])
$heals[UBound($heals)-1][8] = GUICtrlRead($checkbox[$poscheck+4])
$heals[UBound($heals)-1][9] = GUICtrlRead($checkbox[$poscheck+5])
$heals[UBound($heals)-1][10] = 0
ReDim $heals[UBound($heals)+1][11]
EndIf
$posinput = $posinput+3
$poscheck = $poscheck+6
Next
if UBound($heals) > 1 Then
ReDim $heals[UBound($heals)-1][11]
EndIf
ReDim $res[1][2]
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[26]))
For $i = 26 to 27
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[$i]))
If Not @error Then
$res[UBound($res)-1][0] = $Keys[$Pos[0]][0]
$res[UBound($res)-1][1] = GUICtrlRead($input[$posinput])
ReDim $res[UBound($res)+1][2]
EndIf
$posinput = $posinput+1
Next
if UBound($res) > 1 Then
ReDim $res[UBound($res)-1][2]
EndIf
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[28]))
If Not @error Then
$loot = $Keys[$Pos[0]][0]
EndIf
ReDim $sit[1][3]
$Pos = _ArraySearch2d ($Keys, GUICtrlRead($combo[29]))
If Not @error Then
$sit[0][0] = $Keys[$Pos[0]][0]
$sit[0][1] = GUICtrlRead($input[$posinput])
$sit[0][2] = GUICtrlRead($input[$posinput+1])
EndIf
$posinput = $posinput+2
$Movement = GUICtrlRead($checkbox[$poscheck])
$poscheck = $poscheck + 1
$coord1[0] = IniRead($sFile, "coords", "coord1[0]", "NONE")
$coord1[1] = IniRead($sFile, "coords", "coord1[1]", "NONE")
$coord2[0] = IniRead($sFile, "coords", "coord2[0]", "NONE")
$coord2[1] = IniRead($sFile, "coords", "coord2[1]", "NONE")
$coord3[0] = IniRead($sFile, "coords", "coord3[0]", "NONE")
$coord3[1] = IniRead($sFile, "coords", "coord3[1]", "NONE")
$coord4[0] = IniRead($sFile, "coords", "coord4[0]", "NONE")
$coord4[1] = IniRead($sFile, "coords", "coord4[1]", "NONE")
$coord5[0] = IniRead($sFile, "coords", "coord5[0]", "NONE")
$coord5[1] = IniRead($sFile, "coords", "coord5[1]", "NONE")
$coord6[0] = IniRead($sFile, "coords", "coord6[0]", "NONE")
$coord6[1] = IniRead($sFile, "coords", "coord6[1]", "NONE")
$coord7[0] = IniRead($sFile, "coords", "coord7[0]", "NONE")
$coord7[1] = IniRead($sFile, "coords", "coord7[1]", "NONE")
$coord8[0] = IniRead($sFile, "coords", "coord8[0]", "NONE")
$coord8[1] = IniRead($sFile, "coords", "coord8[1]", "NONE")
GUISetState(@SW_HIDE, $Form2)
ExitLoop
Case $f2msg[0] = $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form2)
ExitLoop
EndSelect
WEnd
EndFunc

[BlackFog]

Gui Programmierung XD

[verT!c4L]

Konsole ftw!

[BlackFog]

In C++ ja. Da ist mir das Gui Programmieren zu mühselig xD

[verT!c4L]

Joa C++ is ne **** in Sachen GUI...

[Obilee]

Originally Posted by BlackFog

Ist Dr. *** eigentlich Pole ?

hai



c# gui 4tw

[BlackFog]

Bei C# müsst ich immer Funktionen implementieren und darauf hab ich keinen Bock also nehm ich die c++ Konsole !!!

[Obilee]

Für einfache Progs nehm ich auch konsole

aber wenn mir öde ist gui 4tw

[BlackFog]

YA !

[Obilee]

[BlackFog]

Reported !11 Muss in den Video Thread !