Der Längste e*pvp thread V

Quote:

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 ... ;)

Quote:

Originally Posted by BlackFog Autoit ist doch nicht Objekt orientiert bzw. Objekt orientierte Programmierung ist doch nicht möglich o_O.

Quote:

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

Quote:

Originally Posted by BlackFog Ist Dr. Cox eigentlich Pole ?