Advertisement
Guest User

Untitled

a guest
Feb 1st, 2015
160
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 13.50 KB | None | 0 0
  1.  
  2. Gui, 4: Destroy
  3. Gui, 4: Font, s10, bold
  4. Gui, 4:Add, GroupBox, x36 y10 w700 h110 cwhite, Informationen
  5. 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.
  6. Gui, 4:Add, Checkbox, x52 y163 w13 h13 gCheckCall Checked%CheckCall% vCheckCall,
  7. Gui, 4:Add, Checkbox, x52 y193 w13 h13 gCheckSMS Checked%CheckSMS% vCheckSMS,
  8. Gui, 4:Add, Checkbox, x52 y223 w13 h13 gCheckLowHP Checked%CheckLowHP% vCheckLowHP,
  9. Gui, 4:Add, Checkbox, x52 y253 w13 h13 gCheckKill Checked%CheckKill% vCheckKill,
  10. Gui, 4:Add, GroupBox, x36 y130 w700 h160 cwhite, Sounds
  11. Gui, 4:Add, Text, x76 y160 w60 h20 cwhite +center, Anruf:
  12. Gui, 4:Add, Text, x76 y190 w60 h20 cwhite +center, SMS:
  13. Gui, 4:Add, Text, x76 y220 w60 h20 cwhite +center, Low-HP:
  14. Gui, 4:Add, Text, x76 y250 w60 h20 cwhite +center, Kill:
  15.  
  16. Gui, 4:Add, Text, x156 y160 w540 h20 cwhite +0x200 +E0x20210 +center gCallAuswahl vCallAuswahl, %Callsound%
  17. Gui, 4:Add, Text, x156 y190 w540 h20 cwhite +0x200 +E0x20210 +center gSMSAuswahl vSMSAuswahl, %SMSsound%
  18. Gui, 4:Add, Text, x156 y220 w540 h20 cwhite +0x200 +E0x20210 +center gLowHPAuswahl vLowHPAuswahl, %LowHPsound%
  19. Gui, 4:Add, Text, x156 y250 w540 h20 cwhite +0x200 +E0x20210 +center gKillAuswahl vKillAuswahl, %Killsound%
  20.  
  21. Gui, 4:Add, Picture, x705 y160 w20 h20 +BackgroundTrans gEinstellCall, %Bilder%\soundwahl.png
  22. Gui, 4:Add, Picture, x705 y190 w20 h20 +BackgroundTrans gEinstellSMS, %Bilder%\soundwahl.png
  23. Gui, 4:Add, Picture, x705 y220 w20 h20 +BackgroundTrans gEinstellLowHP, %Bilder%\soundwahl.png
  24. Gui, 4:Add, Picture, x705 y250 w20 h20 +BackgroundTrans gEinstellKill, %Bilder%\soundwahl.png
  25.  
  26.  
  27.  
  28. IniRead, CheckCall, settings.ini, Sounds, CheckCall
  29. IniRead, CheckSMS, settings.ini, Sounds, CheckSMS
  30. IniRead, CheckLowHP, settings.ini, Sounds, CheckLowHP
  31. IniRead, CheckKill, settings.ini, Sounds, CheckKill
  32. IniRead, Callsound, settings.ini, Sounds, Callsound
  33. IniRead, SMSsound, settings.ini, Sounds, SMSsound
  34. IniRead, LowHPsound, settings.ini, Sounds, LowHPsound
  35. IniRead, Killsound, settings.ini, Sounds, Killsound
  36.  
  37. GuiControl, 4: , CheckCall, %CheckCall%
  38. GuiControl, 4: , CheckSMS, %CheckSMS%
  39. GuiControl, 4: , CheckLowHP, %CheckLowHP%
  40. GuiControl, 4: , CheckKill, %CheckKill%
  41. GuiControl, 4: , CallAuswahl, %CallSound%
  42. GuiControl, 4: , SMSAuswahl, %SMSSound%
  43. GuiControl, 4: , LowHPAuswahl, %LowHPSound%
  44. GuiControl, 4: , KillAuswahl, %KillSound%
  45. Gui, 4: Add, Button, x296 y300 w180 h50 gZurück, Zurück
  46. Gui, 4:Color, 292929
  47. Gui, 4:Show, w780 h372, Sounds
  48.  
  49. IniRead, VolCall, settings.ini, Sounds, VolCall
  50. IniRead, VolSMS, settings.ini, Sounds, VolSMS
  51. IniRead, VolLowHP, settings.ini, Sounds, VolLowHP
  52. IniRead, VolKill, settings.ini, Sounds, VolKill
  53.  
  54. if(VolCall = "" || VolCall = "ERROR")
  55. {
  56. VolCall := 100
  57. IniWrite, %VolCall%, settings.ini, Sounds, VolCall
  58. }
  59. if(VolSMS = "" || VolSMS = "ERROR")
  60. {
  61. VolSMS := 100
  62. IniWrite, %VolSMS%, settings.ini, Sounds, VolSMS
  63. }
  64. if(VolLowHP = "" || VolLowHP = "ERROR")
  65. {
  66. VolLowHP := 100
  67. IniWrite, %VolLowHP%, settings.ini, Sounds, VolLowHP
  68. }
  69. if(VolKill = "" || VolKill = "ERROR")
  70. {
  71. VolKill := 100
  72. IniWrite, %VolKill%, settings.ini, Sounds, VolKill
  73. }
  74. SetParam("use_window", "1")
  75. SetParam("window", "GTA:SA:MP")
  76. return
  77.  
  78. Zurück:
  79. 4GuiClose:
  80. Gui, 4: Destroy
  81. return
  82.  
  83. CallAuswahl:
  84. if(CheckCall = 1)
  85. {
  86. FileSelectFile, Callsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
  87. if(Callsoundx != "")
  88. {
  89. Callsound := Callsoundx
  90. IniWrite, %Callsound%, settings.ini, Sounds, Callsound
  91. GuiControl, 4: , CallAuswahl, %CallSound%
  92. if(A_OSVersion != "WIN_XP")
  93. {
  94. SoundSetWaveVolume, %VolCall%
  95. }
  96. SoundPlay, %CallSound%
  97. }
  98. }
  99. return
  100.  
  101. SMSAuswahl:
  102. if(CheckSMS = 1)
  103. {
  104. FileSelectFile, SMSsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
  105. if(SMSsoundx != "")
  106. {
  107. SMSsound := SMSsoundx
  108. IniWrite, %SMSsound%, settings.ini, Sounds, SMSsound
  109. GuiControl, 4: , SMSAuswahl, %SMSSound%
  110. if(A_OSVersion != "WIN_XP")
  111. {
  112. SoundSetWaveVolume, %VolCall%
  113. }
  114. SoundPlay, %SMSSound%
  115. }
  116. }
  117. return
  118.  
  119. LowHPAuswahl:
  120. if(CheckLowHP = 1)
  121. {
  122. FileSelectFile, LowHPsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
  123. if(LowHPsoundx != "")
  124. {
  125. LowHPsound := LowHPsoundx
  126. IniWrite, %LowHPsound%, settings.ini, Sounds, LowHPsound
  127. GuiControl, 4: , LowHPAuswahl, %LowHPSound%
  128. if(A_OSVersion != "WIN_XP")
  129. {
  130. SoundSetWaveVolume, %VolCall%
  131. }
  132. SoundPlay, %LowHPSound%
  133. }
  134. }
  135. return
  136.  
  137. KillAuswahl:
  138. if(CheckKill = 1)
  139. {
  140. FileSelectFile, Killsoundx, 3, %Sounds%, MP3-Sound auswählen,*.mp3
  141. if(Killsoundx != "")
  142. {
  143. Killsound := Killsoundx
  144. IniWrite, %Killsound%, settings.ini, Sounds, Killsound
  145. GuiControl, 4: , KillAuswahl, %KillSound%
  146. if(A_OSVersion != "WIN_XP")
  147. {
  148. SoundSetWaveVolume, %VolCall%
  149. }
  150. SoundPlay, %KillSound%
  151. }
  152. }
  153. return
  154.  
  155. CheckCall:
  156. Gui, 4: Submit, NoHide
  157. IniWrite, %CheckCall%, settings.ini, Sounds, CheckCall
  158. return
  159.  
  160. CheckSMS:
  161. Gui, 4: Submit, NoHide
  162. IniWrite, %CheckSMS%, settings.ini, Sounds, CheckSMS
  163. GuiControl, 4: Choose, CheckSMS, %CheckSMS%
  164. return
  165.  
  166. CheckLowHP:
  167. Gui, 4: Submit, NoHide
  168. IniWrite, %CheckLowHP%, settings.ini, Sounds, CheckLowHP
  169. GuiControl, 4: Choose, CheckLowHP, %CheckLowHP%
  170. return
  171.  
  172. CheckKill:
  173. Gui, 4: Submit, NoHide
  174. IniWrite, %CheckKill%, settings.ini, Sounds, CheckKill
  175. GuiControl, 4: Choose, CheckKill, %CheckKill%
  176. return
  177.  
  178. EinstellCall:
  179. if(CheckCall = 1)
  180. {
  181. if(A_OSVersion != "WIN_XP")
  182. {
  183. Gui, 41: Destroy
  184. Gui, 41: Add, Text, x15 y10 w60 h20, Lautstärke:
  185. Gui, 41: Add, Slider, x5 y30 w310 h30 AltSubmit vVolCall gVolCall, %VolCall%
  186. Gui, 41: Add, Text, x15 y60 w30 h20 +center, Min
  187. Gui, 41: Add, Text, x285 y60 w30 h20 +center, Max
  188. VolCallProz := "" . VolCall . "%"
  189. Gui, 41: Add, Text, x40 y60 w240 h20 +center vVolCallProz, %VolCallProz%
  190. Gui, 41: Show
  191. }
  192. else
  193. {
  194. 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.
  195. }
  196. }
  197. return
  198.  
  199. EinstellSMS:
  200. if(CheckSMS = 1)
  201. {
  202. if(A_OSVersion != "WIN_XP")
  203. {
  204. Gui, 42: Destroy
  205. Gui, 42: Add, Text, x15 y10 w60 h20, Lautstärke:
  206. Gui, 42: Add, Slider, x5 y30 w310 h30 AltSubmit vVolSMS gVolSMS, %VolSMS%
  207. Gui, 42: Add, Text, x15 y60 w30 h20 +center, Min
  208. Gui, 42: Add, Text, x285 y60 w30 h20 +center, Max
  209. VolSMSProz := "" . VolSMS . "%"
  210. Gui, 42: Add, Text, x40 y60 w240 h20 +center vVolSMSProz, %VolSMSProz%
  211. Gui, 42: Show
  212. }
  213. else
  214. {
  215. 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.
  216. }
  217. }
  218. return
  219.  
  220. EinstellLowHP:
  221. if(CheckLowHP = 1)
  222. {
  223. if(A_OSVersion != "WIN_XP")
  224. {
  225. Gui, 43: Destroy
  226. Gui, 43: Add, Text, x15 y10 w60 h20, Lautstärke:
  227. Gui, 43: Add, Slider, x5 y30 w310 h30 AltSubmit vVolLowHP gVolLowHP, %VolLowHP%
  228. Gui, 43: Add, Text, x15 y60 w30 h20 +center, Min
  229. Gui, 43: Add, Text, x285 y60 w30 h20 +center, Max
  230. VolLowHPProz := "" . VolLowHP . "%"
  231. Gui, 43: Add, Text, x40 y60 w240 h20 +center vVolLowHPProz, %VolLowHPProz%
  232. Gui, 43: Show
  233. }
  234. else
  235. {
  236. 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.
  237. }
  238. }
  239. return
  240.  
  241. EinstellKill:
  242. if(CheckKill = 1)
  243. {
  244. if(A_OSVersion != "WIN_XP")
  245. {
  246. Gui, 44: Destroy
  247. Gui, 44: Add, Text, x15 y10 w60 h20, Lautstärke:
  248. Gui, 44: Add, Slider, x5 y30 w310 h30 AltSubmit vVolKill gVolKill, %VolKill%
  249. Gui, 44: Add, Text, x15 y60 w30 h20 +center, Min
  250. Gui, 44: Add, Text, x285 y60 w30 h20 +center, Max
  251. VolKillProz := "" . VolKill . "%"
  252. Gui, 44: Add, Text, x40 y60 w240 h20 +center vVolKillProz, %VolKillProz%
  253. Gui, 44: Show
  254. }
  255. else
  256. {
  257. 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.
  258. }
  259. }
  260. return
  261.  
  262. VolCall:
  263. GuiControlGet MemVol,, VolCall
  264. VolCallProz := "" . VolCall . "%"
  265. GuiControl,,VolCallProz, %VolCallProz%
  266. SoundSetWaveVolume %MemVol%
  267. SoundPlay, %Callsound%
  268. IniWrite, %VolCall%, settings.ini, Sounds, VolCall
  269. return
  270.  
  271.  
  272. VolSMS:
  273. GuiControlGet MemVol,, VolSMS
  274. VolSMSProz := "" . VolSMS . "%"
  275. GuiControl,,VolSMSProz, %VolSMSProz%
  276. SoundSetWaveVolume %MemVol%
  277. SoundPlay, %SMSsound%
  278. IniWrite, %VolSMS%, settings.ini, Sounds, VolSMS
  279. return
  280.  
  281. VolLowHP:
  282. GuiControlGet MemVol,, VolLowHP
  283. VolLowHPProz := "" . VolLowHP . "%"
  284. GuiControl,,VolLowHPProz, %VolLowHPProz%
  285. SoundSetWaveVolume %MemVol%
  286. SoundPlay, %LowHPsound%
  287. IniWrite, %VolLowHP%, settings.ini, Sounds, VolLowHP
  288. return
  289.  
  290. VolKill:
  291. GuiControlGet MemVol,, VolKill
  292. VolKillProz := "" . VolKill . "%"
  293. GuiControl,,VolKillProz, %VolKillProz%
  294. SoundSetWaveVolume %MemVol%
  295. SoundPlay, %KIllsound%
  296. IniWrite, %VolKill%, settings.ini, Sounds, VolKill
  297. return
  298.  
  299. 41GuiClose:
  300. Soundplay, avixa.avi
  301. Gui, 41: Destroy
  302. return
  303.  
  304. 42GuiClose:
  305. Soundplay, avixa.avi
  306. Gui, 42: Destroy
  307. return
  308.  
  309. 43GuiClose:
  310. Soundplay, avixa.avi
  311. Gui, 43: Destroy
  312. return
  313.  
  314. 44GuiClose:
  315. Soundplay, avixa.avi
  316. Gui, 44: Destroy
  317. return
  318.  
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  
  325. Systeme:
  326. If not WinActive("GTA:SA:MP")
  327. {
  328. return
  329. }
  330.  
  331. GetChatLine(0, Line0)
  332. GetChatLine(1, Line1)
  333. GetChatLine(2, Line2)
  334. GetPlayerName(Name)
  335. HP := GetPlayerHealth()
  336.  
  337. Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  338. {
  339. last_line := A_LoopReadLine
  340. }
  341. IfInString, last_line, %Name%'s Handy klingelt
  342. {
  343. if(CheckCall = 1)
  344. {
  345. IniRead, Callsound, settings.ini, Sounds, Callsound
  346. if(A_OSVersion != "WIN_XP")
  347. {
  348. SoundSetWaveVolume, %VolCall%
  349. }
  350. Soundplay, %CallSound%
  351. Sleep 1000
  352. FileAppend, Zeile fur Keybinder `n,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  353. }
  354. }
  355.  
  356. IfInString, last_line, Sender:
  357. {
  358. if not InStr(last_line, "Sender: " Name)
  359. {
  360. if(CheckSMS = 1)
  361. {
  362. IniRead, SMSsound, settings.ini, Sounds, SMSsound
  363. if(A_OSVersion != "WIN_XP")
  364. {
  365. SoundSetWaveVolume, %VolSMS%
  366. }
  367. Soundplay, %SMSsound%
  368. Sleep 1000
  369. FileAppend, Zeile fur Keybinder ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  370. }
  371. }
  372. }
  373.  
  374. If ((InStr(last_line, "Du hast ein Verbrechen begangen ( Mord ). Zeuge. Niemand.")))
  375. {
  376. If(CheckKill = 1)
  377. {
  378. if(Killsoundan == 0)
  379. {
  380. IniRead, Killsound, settings.ini, Sounds, Killsound
  381. if(A_OSVersion != "WIN_XP")
  382. {
  383. SoundSetWaveVolume, %VolKill%
  384. }
  385. SoundPlay, %Killsound%
  386. Sleep, 500
  387. FileAppend, Zeile fur Keybinder ,%A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  388.  
  389. IniRead, Kill, settings.ini, Daten, Kill
  390. Kill++
  391. IniWrite, %Kill%, settings.ini, Daten, Kill
  392. AddChatMessage(0x088A4B, "|Staatsgewalt| Gesamte Kills: {FFBF00}" Kill ".")
  393. Killsoundan := 1
  394. Killcountdown := 20
  395. }
  396. }
  397. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement