Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Gui, 4: Destroy
- Gui, 4: Font, s10, bold
- Gui, 4:Add, GroupBox, x36 y10 w700 h110 cwhite, Informationen
- Gui, 4:Add, Text, x46 y30 w620 h80 cwhite, Spielt je nach Aktion einen Sound ab`, welchen du selber auswählen kannst.`nAlternativ kann der Standardsound vom Keybinder genutzt werden. `n`nDas Auswahlmenü für den Pfad kann geöffnet werden`, indem du auf den Dateinamen klickst. `nErwünscht sind kleine bzw. kurze Sounds`, empfehlenswert sind .mp3-Dateien.
- Gui, 4:Add, Checkbox, x52 y163 w13 h13 gCheckCall Checked%CheckCall% vCheckCall,
- Gui, 4:Add, Checkbox, x52 y193 w13 h13 gCheckSMS Checked%CheckSMS% vCheckSMS,
- Gui, 4:Add, Checkbox, x52 y223 w13 h13 gCheckLowHP Checked%CheckLowHP% vCheckLowHP,
- Gui, 4:Add, Checkbox, x52 y253 w13 h13 gCheckKill Checked%CheckKill% vCheckKill,
- Gui, 4:Add, GroupBox, x36 y130 w700 h160 cwhite, Sounds
- Gui, 4:Add, Text, x76 y160 w60 h20 cwhite +center, Anruf:
- Gui, 4:Add, Text, x76 y190 w60 h20 cwhite +center, SMS:
- Gui, 4:Add, Text, x76 y220 w60 h20 cwhite +center, Low-HP:
- Gui, 4:Add, Text, x76 y250 w60 h20 cwhite +center, Kill:
- Gui, 4:Add, Text, x156 y160 w540 h20 cwhite +0x200 +E0x20210 +center gCallAuswahl vCallAuswahl, %Callsound%
- Gui, 4:Add, Text, x156 y190 w540 h20 cwhite +0x200 +E0x20210 +center gSMSAuswahl vSMSAuswahl, %SMSsound%
- Gui, 4:Add, Text, x156 y220 w540 h20 cwhite +0x200 +E0x20210 +center gLowHPAuswahl vLowHPAuswahl, %LowHPsound%
- Gui, 4:Add, Text, x156 y250 w540 h20 cwhite +0x200 +E0x20210 +center gKillAuswahl vKillAuswahl, %Killsound%
- Gui, 4:Add, Picture, x705 y160 w20 h20 +BackgroundTrans gEinstellCall, %Bilder%\soundwahl.png
- Gui, 4:Add, Picture, x705 y190 w20 h20 +BackgroundTrans gEinstellSMS, %Bilder%\soundwahl.png
- Gui, 4:Add, Picture, x705 y220 w20 h20 +BackgroundTrans gEinstellLowHP, %Bilder%\soundwahl.png
- Gui, 4:Add, Picture, x705 y250 w20 h20 +BackgroundTrans gEinstellKill, %Bilder%\soundwahl.png
- IniRead, CheckCall, settings.ini, Sounds, CheckCall
- IniRead, CheckSMS, settings.ini, Sounds, CheckSMS
- IniRead, CheckLowHP, settings.ini, Sounds, CheckLowHP
- IniRead, CheckKill, settings.ini, Sounds, CheckKill
- IniRead, Callsound, settings.ini, Sounds, Callsound
- IniRead, SMSsound, settings.ini, Sounds, SMSsound
- IniRead, LowHPsound, settings.ini, Sounds, LowHPsound
- IniRead, Killsound, settings.ini, Sounds, Killsound
- GuiControl, 4: , CheckCall, %CheckCall%
- GuiControl, 4: , CheckSMS, %CheckSMS%
- GuiControl, 4: , CheckLowHP, %CheckLowHP%
- GuiControl, 4: , CheckKill, %CheckKill%
- GuiControl, 4: , CallAuswahl, %CallSound%
- GuiControl, 4: , SMSAuswahl, %SMSSound%
- GuiControl, 4: , LowHPAuswahl, %LowHPSound%
- GuiControl, 4: , KillAuswahl, %KillSound%
- Gui, 4: Add, Button, x296 y300 w180 h50 gZurück, Zurück
- Gui, 4:Color, 292929
- Gui, 4:Show, w780 h372, Sounds
- IniRead, VolCall, settings.ini, Sounds, VolCall
- IniRead, VolSMS, settings.ini, Sounds, VolSMS
- IniRead, VolLowHP, settings.ini, Sounds, VolLowHP
- IniRead, VolKill, settings.ini, Sounds, VolKill
- if(VolCall = "" || VolCall = "ERROR")
- {
- VolCall := 100
- IniWrite, %VolCall%, settings.ini, Sounds, VolCall
- }
- if(VolSMS = "" || VolSMS = "ERROR")
- {
- VolSMS := 100
- IniWrite, %VolSMS%, settings.ini, Sounds, VolSMS
- }
- if(VolLowHP = "" || VolLowHP = "ERROR")
- {
- VolLowHP := 100
- IniWrite, %VolLowHP%, settings.ini, Sounds, VolLowHP
- }
- if(VolKill = "" || VolKill = "ERROR")
- {
- VolKill := 100
- IniWrite, %VolKill%, settings.ini, Sounds, VolKill
- }
- SetParam("use_window", "1")
- SetParam("window", "GTA:SA:MP")
- return
- Zurück:
- 4GuiClose:
- Gui, 4: Destroy
- return
- CallAuswahl:
- if(CheckCall = 1)
- {
- FileSelectFile, Callsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
- if(Callsoundx != "")
- {
- Callsound := Callsoundx
- IniWrite, %Callsound%, settings.ini, Sounds, Callsound
- GuiControl, 4: , CallAuswahl, %CallSound%
- if(A_OSVersion != "WIN_XP")
- {
- SoundSetWaveVolume, %VolCall%
- }
- SoundPlay, %CallSound%
- }
- }
- return
- SMSAuswahl:
- if(CheckSMS = 1)
- {
- FileSelectFile, SMSsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
- if(SMSsoundx != "")
- {
- SMSsound := SMSsoundx
- IniWrite, %SMSsound%, settings.ini, Sounds, SMSsound
- GuiControl, 4: , SMSAuswahl, %SMSSound%
- if(A_OSVersion != "WIN_XP")
- {
- SoundSetWaveVolume, %VolCall%
- }
- SoundPlay, %SMSSound%
- }
- }
- return
- LowHPAuswahl:
- if(CheckLowHP = 1)
- {
- FileSelectFile, LowHPsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
- if(LowHPsoundx != "")
- {
- LowHPsound := LowHPsoundx
- IniWrite, %LowHPsound%, settings.ini, Sounds, LowHPsound
- GuiControl, 4: , LowHPAuswahl, %LowHPSound%
- if(A_OSVersion != "WIN_XP")
- {
- SoundSetWaveVolume, %VolCall%
- }
- SoundPlay, %LowHPSound%
- }
- }
- return
- KillAuswahl:
- if(CheckKill = 1)
- {
- FileSelectFile, Killsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
- if(Killsoundx != "")
- {
- Killsound := Killsoundx
- IniWrite, %Killsound%, settings.ini, Sounds, Killsound
- GuiControl, 4: , KillAuswahl, %KillSound%
- if(A_OSVersion != "WIN_XP")
- {
- SoundSetWaveVolume, %VolCall%
- }
- SoundPlay, %KillSound%
- }
- }
- return
- CheckCall:
- Gui, 4: Submit, NoHide
- IniWrite, %CheckCall%, settings.ini, Sounds, CheckCall
- return
- CheckSMS:
- Gui, 4: Submit, NoHide
- IniWrite, %CheckSMS%, settings.ini, Sounds, CheckSMS
- GuiControl, 4: Choose, CheckSMS, %CheckSMS%
- return
- CheckLowHP:
- Gui, 4: Submit, NoHide
- IniWrite, %CheckLowHP%, settings.ini, Sounds, CheckLowHP
- GuiControl, 4: Choose, CheckLowHP, %CheckLowHP%
- return
- CheckKill:
- Gui, 4: Submit, NoHide
- IniWrite, %CheckKill%, settings.ini, Sounds, CheckKill
- GuiControl, 4: Choose, CheckKill, %CheckKill%
- return
- EinstellCall:
- if(CheckCall = 1)
- {
- if(A_OSVersion != "WIN_XP")
- {
- Gui, 41: Destroy
- Gui, 41: Add, Text, x15 y10 w60 h20, Lautstärke:
- Gui, 41: Add, Slider, x5 y30 w310 h30 AltSubmit vVolCall gVolCall, %VolCall%
- Gui, 41: Add, Text, x15 y60 w30 h20 +center, Min
- Gui, 41: Add, Text, x285 y60 w30 h20 +center, Max
- VolCallProz := "" . VolCall . "%"
- Gui, 41: Add, Text, x40 y60 w240 h20 +center vVolCallProz, %VolCallProz%
- Gui, 41: Show
- }
- else
- {
- MsgBox, 48, Einstellung Callsound, Es tut mir leid`, aber Windows XP Nutzer können die Lautstärke des jeweiligen Sounds aus technischen Gründen leider nicht einstellen.`nEine Möglichkeit wäre es jedoch die Sounddatei mit einem Audio-Bearbeitungsprogramm auf deine gewünschte Lautstärke manuell anzupassen.
- }
- }
- return
- EinstellSMS:
- if(CheckSMS = 1)
- {
- if(A_OSVersion != "WIN_XP")
- {
- Gui, 42: Destroy
- Gui, 42: Add, Text, x15 y10 w60 h20, Lautstärke:
- Gui, 42: Add, Slider, x5 y30 w310 h30 AltSubmit vVolSMS gVolSMS, %VolSMS%
- Gui, 42: Add, Text, x15 y60 w30 h20 +center, Min
- Gui, 42: Add, Text, x285 y60 w30 h20 +center, Max
- VolSMSProz := "" . VolSMS . "%"
- Gui, 42: Add, Text, x40 y60 w240 h20 +center vVolSMSProz, %VolSMSProz%
- Gui, 42: Show
- }
- else
- {
- MsgBox, 48, Einstellung SMSsound, Es tut mir leid`, aber Windows XP Nutzer können die Lautstärke des jeweiligen Sounds aus technischen Gründen leider nicht einstellen.`nEine Möglichkeit wäre es jedoch die Sounddatei mit einem Audio-Bearbeitungsprogramm auf deine gewünschte Lautstärke manuell anzupassen.
- }
- }
- return
- EinstellLowHP:
- if(CheckLowHP = 1)
- {
- if(A_OSVersion != "WIN_XP")
- {
- Gui, 43: Destroy
- Gui, 43: Add, Text, x15 y10 w60 h20, Lautstärke:
- Gui, 43: Add, Slider, x5 y30 w310 h30 AltSubmit vVolLowHP gVolLowHP, %VolLowHP%
- Gui, 43: Add, Text, x15 y60 w30 h20 +center, Min
- Gui, 43: Add, Text, x285 y60 w30 h20 +center, Max
- VolLowHPProz := "" . VolLowHP . "%"
- Gui, 43: Add, Text, x40 y60 w240 h20 +center vVolLowHPProz, %VolLowHPProz%
- Gui, 43: Show
- }
- else
- {
- MsgBox, 48, Einstellung LowHPsound, Es tut mir leid`, aber Windows XP Nutzer können die Lautstärke des jeweiligen Sounds aus technischen Gründen leider nicht einstellen.`nEine Möglichkeit wäre es jedoch die Sounddatei mit einem Audio-Bearbeitungsprogramm auf deine gewünschte Lautstärke manuell anzupassen.
- }
- }
- return
- EinstellKill:
- if(CheckKill = 1)
- {
- if(A_OSVersion != "WIN_XP")
- {
- Gui, 44: Destroy
- Gui, 44: Add, Text, x15 y10 w60 h20, Lautstärke:
- Gui, 44: Add, Slider, x5 y30 w310 h30 AltSubmit vVolKill gVolKill, %VolKill%
- Gui, 44: Add, Text, x15 y60 w30 h20 +center, Min
- Gui, 44: Add, Text, x285 y60 w30 h20 +center, Max
- VolKillProz := "" . VolKill . "%"
- Gui, 44: Add, Text, x40 y60 w240 h20 +center vVolKillProz, %VolKillProz%
- Gui, 44: Show
- }
- else
- {
- MsgBox, 48, Einstellung Killsound, Es tut mir leid`, aber Windows XP Nutzer können die Lautstärke des jeweiligen Sounds aus technischen Gründen leider nicht einstellen.`nEine Möglichkeit wäre es jedoch die Sounddatei mit einem Audio-Bearbeitungsprogramm auf deine gewünschte Lautstärke manuell anzupassen.
- }
- }
- return
- VolCall:
- GuiControlGet MemVol,, VolCall
- VolCallProz := "" . VolCall . "%"
- GuiControl,,VolCallProz, %VolCallProz%
- SoundSetWaveVolume %MemVol%
- SoundPlay, %Callsound%
- IniWrite, %VolCall%, settings.ini, Sounds, VolCall
- return
- VolSMS:
- GuiControlGet MemVol,, VolSMS
- VolSMSProz := "" . VolSMS . "%"
- GuiControl,,VolSMSProz, %VolSMSProz%
- SoundSetWaveVolume %MemVol%
- SoundPlay, %SMSsound%
- IniWrite, %VolSMS%, settings.ini, Sounds, VolSMS
- return
- VolLowHP:
- GuiControlGet MemVol,, VolLowHP
- VolLowHPProz := "" . VolLowHP . "%"
- GuiControl,,VolLowHPProz, %VolLowHPProz%
- SoundSetWaveVolume %MemVol%
- SoundPlay, %LowHPsound%
- IniWrite, %VolLowHP%, settings.ini, Sounds, VolLowHP
- return
- VolKill:
- GuiControlGet MemVol,, VolKill
- VolKillProz := "" . VolKill . "%"
- GuiControl,,VolKillProz, %VolKillProz%
- SoundSetWaveVolume %MemVol%
- SoundPlay, %KIllsound%
- IniWrite, %VolKill%, settings.ini, Sounds, VolKill
- return
- 41GuiClose:
- Soundplay, avixa.avi
- Gui, 41: Destroy
- return
- 42GuiClose:
- Soundplay, avixa.avi
- Gui, 42: Destroy
- return
- 43GuiClose:
- Soundplay, avixa.avi
- Gui, 43: Destroy
- return
- 44GuiClose:
- Soundplay, avixa.avi
- Gui, 44: Destroy
- return
- Systeme:
- If not WinActive("GTA:SA:MP")
- {
- return
- }
- GetChatLine(0, Line0)
- GetChatLine(1, Line1)
- GetChatLine(2, Line2)
- GetPlayerName(Name)
- HP := GetPlayerHealth()
- Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
- {
- last_line := A_LoopReadLine
- }
- IfInString, last_line, %Name%'s Handy klingelt
- {
- if(CheckCall = 1)
- {
- IniRead, Callsound, settings.ini, Sounds, Callsound
- if(A_OSVersion != "WIN_XP")
- {
- SoundSetWaveVolume, %VolCall%
- }
- Soundplay, %CallSound%
- Sleep 1000
- FileAppend, Zeile fur Keybinder `n,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
- }
- }
- IfInString, last_line, Sender:
- {
- if not InStr(last_line, "Sender: " Name)
- {
- if(CheckSMS = 1)
- {
- IniRead, SMSsound, settings.ini, Sounds, SMSsound
- if(A_OSVersion != "WIN_XP")
- {
- SoundSetWaveVolume, %VolSMS%
- }
- Soundplay, %SMSsound%
- Sleep 1000
- FileAppend, Zeile fur Keybinder ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
- }
- }
- }
- If ((InStr(last_line, "Du hast ein Verbrechen begangen ( Mord ). Zeuge. Niemand.")))
- {
- If(CheckKill = 1)
- {
- if(Killsoundan == 0)
- {
- IniRead, Killsound, settings.ini, Sounds, Killsound
- if(A_OSVersion != "WIN_XP")
- {
- SoundSetWaveVolume, %VolKill%
- }
- SoundPlay, %Killsound%
- Sleep, 500
- FileAppend, Zeile fur Keybinder ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
- IniRead, Kill, settings.ini, Daten, Kill
- Kill++
- IniWrite, %Kill%, settings.ini, Daten, Kill
- AddChatMessage(0x088A4B, "|Staatsgewalt| Gesamte Kills: {FFBF00}" Kill ".")
- Killsoundan := 1
- Killcountdown := 20
- }
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement