Heyy Leute!! bin mal wieder da!!
Ich weiss nich wer von euch noch Rainbow Six Veags 2 spielt, aber ich hab ferien (-> langweilig)...
Also habe ich die konfigurationsdateien des Spiels mal auseinandergenommen (mach ich eigentlich immer :P )
nun habe ich so ein Progrämmchen womit man folgendes anstellen kann:
-für jede waffe:
--Beliebig grosse magazine :D
--Beliebigen Schadensfaktor für das aufsetzen des Schalldämpfers :P
--Eine Präzision womit man auf jede distanz alles trifft :thumbup:
--Einen Rückstoss, der so schwach ist, dass man sein ganzes Magazin auf einen Punkt feuern kann 8o
--Eine Magazinwechselgeschwindigkeit so dass man schneller als Lucky Luke ist :P:P
[autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\user\desktop\modifikator.kxf
$Form1_1 = GUICreate("Rainbow Six: Vegas 2: Waffenmodifikator", 567, 556, 397, 124)
$List1 = GUICtrlCreateList("", 424, 24, 137, 526)
$Label1 = GUICtrlCreateLabel("Waffe wählen:", 424, 8, 73, 17)
$Button1 = GUICtrlCreateButton("Speichern", 288, 520, 129, 25, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Munition", 8, 296, 409, 217)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("0", 64, 336, 49, 24)
$Label3 = GUICtrlCreateLabel("Normal", 128, 344, 37, 17)
$Input2 = GUICtrlCreateInput("0", 168, 336, 49, 24)
$Label4 = GUICtrlCreateLabel("Realistisch", 232, 344, 55, 17)
$Input3 = GUICtrlCreateInput("0", 288, 336, 49, 24)
$Label5 = GUICtrlCreateLabel("Schüsse beim Start", 16, 320, 95, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Magazingrösse", 16, 376, 75, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label7 = GUICtrlCreateLabel("Normal", 24, 400, 37, 17)
$Label9 = GUICtrlCreateLabel("''Munition knapp'' anzeigen wenn nur noch", 24, 432, 205, 17)
$Input4 = GUICtrlCreateInput("0", 64, 392, 49, 24)
$Input6 = GUICtrlCreateInput("1", 232, 424, 33, 24)
$Label8 = GUICtrlCreateLabel("Grosses Magazin", 128, 400, 85, 17)
$Label10 = GUICtrlCreateLabel("Schüsse im Magazin sind", 272, 432, 123, 17)
$Input5 = GUICtrlCreateInput("0", 216, 392, 57, 24)
$Label2 = GUICtrlCreateLabel("Freizeit", 24, 344, 37, 17)
$Label21 = GUICtrlCreateLabel("Nachladen", 16, 464, 56, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label22 = GUICtrlCreateLabel("Zeit zum Magazinwechsel", 24, 488, 126, 17)
$Input14 = GUICtrlCreateInput("1.000", 152, 480, 49, 24)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Treffergenauigkeit", 8, 64, 409, 225)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("Rückstoss", 16, 88, 54, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("Minimum", 24, 112, 45, 17)
$Input7 = GUICtrlCreateInput("0", 72, 104, 57, 24)
$Label13 = GUICtrlCreateLabel("Maximum", 144, 112, 48, 17)
$Input8 = GUICtrlCreateInput("1", 192, 104, 57, 24)
$Label15 = GUICtrlCreateLabel("Präzision", 16, 176, 46, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Label16 = GUICtrlCreateLabel("Ungenauigkeit für den ersten Schuss", 24, 200, 179, 17)
$Input10 = GUICtrlCreateInput("50", 208, 192, 57, 24)
$Label17 = GUICtrlCreateLabel("Ungenauigkeitserhöhung bei jedem weiteren Schuss", 24, 232, 252, 17)
$Input11 = GUICtrlCreateInput("100", 280, 224, 57, 24)
$Label18 = GUICtrlCreateLabel("Schussstille bis die Ungenauigkeit auf den ersten Schuss sinkt", 24, 264, 298, 17)
$Input12 = GUICtrlCreateInput("0.1", 328, 256, 41, 24)
$Label19 = GUICtrlCreateLabel("sek.", 376, 264, 24, 17)
$Label20 = GUICtrlCreateLabel("Rückstossfaktor bei aufgesetztem Schalldämpfer", 24, 144, 234, 17)
$Input13 = GUICtrlCreateInput("0.05", 264, 136, 57, 24)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Schaden", 8, 8, 409, 49)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("Schadensfaktor bei aufgesetztem Schalldämpfer", 16, 32, 232, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input9 = GUICtrlCreateInput("1.0", 256, 24, 57, 24)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button2 = GUICtrlCreateButton("Rainbow Six spielen", 144, 520, 137, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$installdir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Ubisoft\Tom Clancy's Rainbow Six Vegas 2\GameUpdate", "installdir")
$file = $installdir&"\KellerGame\Config\KellerWeaponsConfi g.ini"
$file2 = $installdir&"\KellerGame\Config\PCKellerWeaponsCon fig.ini"
FileCopy($file, $installdir&"\KellerGame\Config\(Original) KellerWeaponsConfig.ini")
FileCopy($file2, $installdir&"\KellerGame\Config\(Original) PCKellerWeaponsConfig.ini")
$selected = ""
$names = IniReadSectionNames($file)
For $el = 1 To $names[0]
$value = StringSplit($names[$el], "R6Game.ConfigR6", 1)
If Not @error Then
GUICtrlSetData($List1, $value[2])
EndIf
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $List1
$selected = GUICtrlRead($List1)
GUICtrlSetData($Input1, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionCasual", "ERROR"))
GUICtrlSetData($Input2, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionNormal", "ERROR"))
GUICtrlSetData($Input3, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionRealistic", "ERROR"))
GUICtrlSetData($Input4, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iNormalMagSize", "ERROR"))
GUICtrlSetData($Input5, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iHighCapacityMagSize", "ERROR"))
GUICtrlSetData($Input6, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iCriticalAmmoCount", "ERROR"))
GUICtrlSetData($Input7, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMin", "ERROR"))
GUICtrlSetData($Input8, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMax", "ERROR"))
GUICtrlSetData($Input9, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fSuppressorDamageModifier", "ERROR"))
GUICtrlSetData($Input10, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iInitialBulletSpread", "ERROR"))
GUICtrlSetData($Input11, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadPerBullet", "ERROR"))
GUICtrlSetData($Input12, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadRecoveryTime", "ERROR"))
GUICtrlSetData($Input13, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fRecoilSuppressorModifier", "ERROR"))
$data = StringSplit(IniRead($file, "R6Game.ConfigR6"&$selected, "m_fReloadEmptyTime", "ERRORf"), "f")
GUICtrlSetData($Input14, $data[1])
Case $Button1
If Not $selected = "" Then
ProgressOn("Daten werden gespeichert...", "Datei KellerWeaponsConfig.ini", "Schreibe Key m_iDefaultAmmunitionCasual", Default, Default, 18)
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionCasual", GUICtrlRead($Input1))
ProgressSet(3, "Schreibe Key m_iDefaultAmmunitionNormal")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionNormal", GUICtrlRead($Input2))
ProgressSet(6, "Schreibe Key m_iDefaultAmmunitionRealistic")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionRealistic", GUICtrlRead($Input3))
ProgressSet(9, "Schreibe Key m_iNormalMagSize")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_iNormalMagSize", GUICtrlRead($Input4))
ProgressSet(12, "Schreibe Key m_iHighCapacityMagSize")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_iHighCapacityMagSize", GUICtrlRead($Input5))
ProgressSet(15, "Schreibe Key m_iCriticalAmmoCount")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_iCriticalAmmoCount", GUICtrlRead($Input6))
ProgressSet(18, "Schreibe Key m_fRecoilYawMin")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMin", GUICtrlRead($Input7))
ProgressSet(21, "Schreibe Key m_fRecoilYawMax")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMax", GUICtrlRead($Input8))
ProgressSet(24, "Schreibe Key m_fSuppressorDamageModifier")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fSuppressorDamageModifier", GUICtrlRead($Input9))
ProgressSet(27, "Schreibe Key m_iInitialBulletSpread")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_iInitialBulletSpread", GUICtrlRead($Input10))
ProgressSet(30, "Schreibe Key m_fBulletSpreadPerBullet")
If GUICtrlRead($Input11) < 1 Then
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadPerBullet", 1)
Else
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadPerBullet", GUICtrlRead($Input11))
EndIf
ProgressSet(38, "Schreibe Key m_fBulletSpreadRecoveryTime")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadRecoveryTime", GUICtrlRead($Input12))
ProgressSet(41, "Schreibe Key m_fRecoilSuppressorModifier")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fRecoilSuppressorModifier", GUICtrlRead($Input13))
ProgressSet(44, "Schreibe Key m_fReloadEmptyTime")
If GUICtrlRead($Input14) <> "ERROR" Then
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fReloadEmptyTime", GUICtrlRead($Input14)&"f")
ProgressSet(47, "Schreibe Key m_fReloadTacticTime")
IniWrite($file, "R6Game.ConfigR6"&$selected, "m_fReloadTacticTime", GUICtrlRead($Input14)&"f")
EndIf
ProgressSet(50, "Schreibe Key m_iDefaultAmmunitionCasual", "Datei PCKellerWeaponsConfig.ini")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionCasual", GUICtrlRead($Input1))
ProgressSet(53, "Schreibe Key m_iDefaultAmmunitionNormal")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionNormal", GUICtrlRead($Input2))
ProgressSet(56, "Schreibe Key m_iDefaultAmmunitionRealistic")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionRealistic", GUICtrlRead($Input3))
ProgressSet(59, "Schreibe Key m_iNormalMagSize")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_iNormalMagSize", GUICtrlRead($Input4))
ProgressSet(62, "Schreibe Key m_iHighCapacityMagSize")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_iHighCapacityMagSize", GUICtrlRead($Input5))
ProgressSet(65, "Schreibe Key m_iCriticalAmmoCount")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_iCriticalAmmoCount", GUICtrlRead($Input6))
ProgressSet(68, "Schreibe Key m_fRecoilYawMin")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMin", GUICtrlRead($Input7))
ProgressSet(71, "Schreibe Key m_fRecoilYawMax")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMax", GUICtrlRead($Input8))
ProgressSet(74, "Schreibe Key m_fSuppressorDamageModifier")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fSuppressorDamageModifier", GUICtrlRead($Input9))
ProgressSet(77, "Schreibe Key m_iInitialBulletSpread")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_iInitialBulletSpread", GUICtrlRead($Input10))
ProgressSet(80, "Schreibe Key m_fBulletSpreadPerBullet")
If GUICtrlRead($Input11) < 1 Then
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadPerBullet", 1)
Else
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadPerBullet", GUICtrlRead($Input11))
EndIf
ProgressSet(88, "Schreibe Key m_fBulletSpreadRecoveryTime")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadRecoveryTime", GUICtrlRead($Input12))
ProgressSet(91, "Schreibe Key m_fRecoilSuppressorModifier")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fRecoilSuppressorModifier", GUICtrlRead($Input13))
ProgressSet(94, "Schreibe Key m_fReloadEmptyTime")
If GUICtrlRead($Input14) <> "ERROR" Then
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fReloadEmptyTime", GUICtrlRead($Input14)&"f")
ProgressSet(97, "Schreibe Key m_fReloadTacticTime")
IniWrite($file2, "R6Game.ConfigR6"&$selected, "m_fReloadTacticTime", GUICtrlRead($Input14)&"f")
EndIf
ProgressSet(100, "Alle Einträge sind neu geschrieben", "Konfigurationsdateien manipuliert")
MsgBox(0, "Fertig", "Die einstellungen wurden Gespeichert."&@CRLF&"Es ist möglich dass Rainbow Six die ini beim start zurücksetzt"&@CRLF&"und um die Änderungen zu übernehmen sollten Sie das Spiel neustarten.")
ProgressOff()
GUICtrlSetData($Input1, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionCasual", "ERROR"))
GUICtrlSetData($Input2, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionNormal", "ERROR"))
GUICtrlSetData($Input3, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iDefaultAmmunitionRealistic", "ERROR"))
GUICtrlSetData($Input4, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iNormalMagSize", "ERROR"))
GUICtrlSetData($Input5, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iHighCapacityMagSize", "ERROR"))
GUICtrlSetData($Input6, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iCriticalAmmoCount", "ERROR"))
GUICtrlSetData($Input7, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMin", "ERROR"))
GUICtrlSetData($Input8, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fRecoilYawMax", "ERROR"))
GUICtrlSetData($Input9, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fSuppressorDamageModifier", "ERROR"))
GUICtrlSetData($Input10, IniRead($file, "R6Game.ConfigR6"&$selected, "m_iInitialBulletSpread", "ERROR"))
GUICtrlSetData($Input11, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadPerBullet", "ERROR"))
GUICtrlSetData($Input12, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fBulletSpreadRecoveryTime", "ERROR"))
GUICtrlSetData($Input13, IniRead($file, "R6Game.ConfigR6"&$selected, "m_fRecoilSuppressorModifier", "ERROR"))
$data = StringSplit(IniRead($file, "R6Game.ConfigR6"&$selected, "m_fReloadEmptyTime", "ERRORf"), "f")
GUICtrlSetData($Input14, $data[1])
Else
MsgBox(48, "Fehler", "Wählen Sie bitte eine Waffe aus", 2)
EndIf
Case $Button2
Run($installdir&"\Binaries\R6Vegas2_Game.exe")
EndSwitch
WEnd[/autoit]
Ich hoffe, dass jeder der es gebrauchen kann spass dran hat :D:D
Ich habe nun noch die Dateipfad angepasst, dass es auch wirklich jeder verwenden kann :D
Achja einen Button zum Spielstart hat es nun auch noch
|