Advertisement
Guest User

Untitled

a guest
Oct 25th, 2014
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.12 KB | None | 0 0
  1. IfWinNotActive GTA:SA:MP
  2. return
  3. FormatTime, DTode, YYYYMMDDHH24MISS, dd.MM
  4. If(IsPlayerInRangeOfPoint(1163, -1323, 15, 3))
  5. {
  6. IniRead, Tode, Einstellungen.ini, Daten, Tode
  7. IniRead, DTode, Einstellungen.ini, Daten, DTode
  8.  
  9. Tode++
  10. DTode++
  11. IniWrite, %Tode%, Einstellungen.ini, Daten, Tode
  12. IniWrite, %DTode%, Einstellungen.ini, Daten, DTode
  13.  
  14. SendChat("/f Down.. Tode Heute: " . DTode . ", gesamt: " . Tode . ".")
  15. Sleep, 250
  16. AddChatMessage(0xFF8200,"Organizer: {FFFFFF}Tode Heute:{FF4000} " . DTode . "{FFFFFF} | Tode gesamt: {FF4000}"Tode)
  17. sleep 10000
  18. Marker:
  19. if(IsPlayerInRangeOfPoint(1163, -1323, 15, 3) == 0)
  20. {
  21. Settimer, Todzähler, 1000
  22. return
  23. }
  24. else
  25. {
  26. sleep 6000
  27. goto Marker
  28. }
  29. }
  30. return
  31. :?:/KD::
  32. Suspend Permit
  33. IniRead, Kills, Einstellungen.ini, Daten, Kills
  34. IniRead, Tode, Einstellungen.ini, Daten, Tode
  35. Dif := Kills-Tode
  36. KD := Round(Kills/Tode,3)
  37. if(kills=="ERROR"){
  38. kills= 0
  39. }
  40. if(KD=="ERROR"){
  41. KD= 0.00
  42. }
  43. if(Dif=="ERROR"){
  44. Dif= 0
  45. }
  46. AddChatMessage(0xFF8200,"Organizer: {FFFFFF}Meine Kills: " . Kills . "{FFFFFF} | Meine Tode: " . Tode . " | Dif: " . Dif . " | Meine K/D: {FF8200}"KD)
  47. return
  48. :?:/DKD::
  49. Suspend Permit
  50. IniRead, DKills, Einstellungen.ini, Daten, DKills
  51. IniRead, DTode, Einstellungen.ini, Daten, DTode
  52. DKD := DKills/DTode
  53. AddChatMessage(0xFF8200,"Organizer: {FFFFFF}Kills Heute: {FF8200}" . DKills . " {FFFFFF}| Tode Heute: {FF8200}" . DTode . "{FFFFFF} | K/D Heute: {FF8200}"DKD)
  54. return
  55. :?:/setdeaths::
  56. Suspend Permit
  57. Tode := PlayerInput("Wie oft bist du schon gestorben? ")
  58. IniWrite, %Tode%, Einstellungen.ini, Daten, Tode
  59. AddChatMessage(0xFF8200,"Organizer: {FFFFFF}Deine Tode wurden auf {FF8200}" . Tode . "{FFFFFF} gesetzt.")
  60. return
  61. :?:/setkills::
  62. kills := PlayerInput("Wie viele Morde hast du schon begangen? ")
  63. IniWrite, %kills%, Einstellungen.ini, Daten, kills
  64. AddChatMessage(0xFF8200,"Organizer: {FFFFFF}Deine Kills wurden auf {FF8200}" . kills . "{FFFFFF} gesetzt")
  65. return
  66. Killzähler:
  67. ifwinnotactive, GTA:SA:MP
  68. return
  69. GetChatLine(1, Chatline1)
  70. GetChatLine(0, Chatline2)
  71. GetPlayerName(name)
  72. if(InStr(Chatline1, "Du hast ein Verbrechen begangen ( Mord ). Zeuge: Niemand.") || InStr(Chatline2, "wurde von " name " getötet.")){
  73. IniRead, kills, Einstellungen.ini, Daten, kills
  74. kills++
  75. DKills++
  76. IniWrite, %kills%, Einstellungen.ini, Daten, kills
  77. If(Killspruch!=ERROR&&Killspruch!="")
  78. {
  79. Spruch := Killspruch
  80. IfInString, Spruch, <Zone>
  81. {
  82. GetZoneName(Zone)
  83. StringReplace, Spruch, Spruch, <Zone>, %Zone%, All
  84. }
  85. IfInString, Spruch, <City>
  86. {
  87. GetCityName(City)
  88. StringReplace, Spruch, Spruch, <City>, %City%, All
  89. }
  90. IfInString, Spruch, <kills>
  91. {
  92. StringReplace, Spruch, Spruch, <kills>, %kills%, All
  93. }
  94. SendChat("/f " . Spruch . "")
  95. }
  96. AddChatMessage(0xFF8200,"Organizer: {FFFFFF}Kill Nr. {FF8200}"Kills)
  97. }
  98. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement