API tools faq
paste
Advertisement
comniemeer

Teambinder.ahk

comniemeer
Mar 15th, 2016
143
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.21 KB | None | 0 0
raw download clone embed print report
  1. #IfWinActive, GTA:SA:MP
  2. #SingleInstance force
  3. #Include UDF.ahk
  4. #UseHook
  5. #Persistent
  6. #NoEnv
  7.  
  8. SetTimer, tickets, 100
  9. setworkingdir, %a_scriptdir%
  10.  
  11. if !A_IsAdmin {
  12. try Run *RunAs "%A_ScriptFullPath%"
  13. catch {
  14. MsgBox, 48, Administratorenrechte, Der Keybinder benötigt Administratorenrechte und wird nun beendet. Führe den Keybinder als Administrator aus!, 5
  15. ExitApp
  16. }
  17. }
  18.  
  19. tickets:
  20. {
  21. IfWinNotActive, GTA:SA:MP
  22. return
  23.  
  24. GetChatLine(0, chat)
  25.  
  26. If (InStr(chat, "Du hast das Ticket von")) {
  27. RegExMatch(chat, "Du hast das Ticket von (.*) (.+).", var)
  28.  
  29. IniRead, DTickets, Tickets.ini, Ticketzähler, DTickets[%A_DD%:%A_MM%:%A_YYYY%]
  30.  
  31. DTickets ++
  32.  
  33. IniWrite, %DTickets%, Tickets.ini, Ticketzähler, DTickets[%A_DD%:%A_MM%:%A_YYYY%]
  34. IniRead, gestickets, Tickets.ini, Gesamt, gestickets, 0
  35.  
  36. gestickets ++
  37.  
  38. IniWrite, %gestickets%, Tickets.ini, Gesamt, gestickets
  39. IniRead, MTickets, Tickets.ini, Ticketzähler, MTickets[%A_MM%:%A_YYYY%]
  40.  
  41. MTickets ++
  42.  
  43. IniWrite, %MTickets%, Tickets.ini, Ticketzähler, MTickets[%A_MM%:%A_YYYY%]
  44. IniRead, monthtickets, Tickets.ini, Monat, monthtickets[%A_MM%:%A_YYYY%]
  45.  
  46. monthtickets ++
  47.  
  48. IniWrite, %monthtickets%, Tickets.ini, Monat, monthtickets[%A_MM%:%A_YYYY%]
  49.  
  50. If (var2 = "geschlossen") {
  51. AddChatMessage("{2550A7}|Teambinder| {FFFFFF}Du hast bereits {FF9E00}" . gestickets . " {FFFFFF}Tickets bearbeitet. Davon in diesem Monat: {FF9E00}" . monthtickets . "")
  52. return
  53. }
  54. }
  55. }
  56. return
  57.  
  58. :?:/test::
  59. {
  60. AddChatMessage("Das ist ein Test.")
  61. }
  62. return
  63.  
  64. :?:/tt::
  65. {
  66. name := getUsername()
  67. TT_ID := PlayerInput("/Ticket-ID: ")
  68.  
  69. If(TT_ID = "")
  70. return
  71.  
  72. SetTimer, Ticketannahme, -1
  73. }
  74. return
  75.  
  76. ~^Numpad1::
  77. TT_ID := 1
  78. SetTimer, Ticketannahme, -1
  79. return
  80.  
  81. ~^Numpad2::
  82. TT_ID := 2
  83. SetTimer, Ticketannahme, -1
  84. return
  85.  
  86. ~^Numpad3::
  87. TT_ID := 3
  88. SetTimer, Ticketannahme, -1
  89. return
  90.  
  91. ~^Numpad4::
  92. TT_ID := 4
  93. SetTimer, Ticketannahme, -1
  94. return
  95.  
  96. ~^Numpad5::
  97. TT_ID := 5
  98. SetTimer, Ticketannahme, -1
  99. return
  100.  
  101. ~^Numpad6::
  102. TT_ID := 6
  103. SetTimer, Ticketannahme, -1
  104. return
  105.  
  106. ~^Numpad7::
  107. TT_ID := 7
  108. SetTimer, Ticketannahme, -1
  109. return
  110.  
  111. ~^Numpad8::
  112. TT_ID := 8
  113. SetTimer, Ticketannahme, -1
  114. return
  115.  
  116. ~^Numpad9::
  117. TT_ID := 9
  118. SetTimer, Ticketannahme, -1
  119. return
  120.  
  121. Ticketannahme:
  122. {
  123. TT_B = Guten Tag!
  124.  
  125. If(A_Hour > 4 && A_Hour < 12)
  126. TT_B = Guten Morgen!
  127.  
  128. If(A_Hour > 19 || A_Hour = 0)
  129. TT_B = Guten Abend!
  130.  
  131. SendChat("/c /tt " . TT_ID)
  132. Sleep, 100
  133. GetChatLine(0, a)
  134.  
  135. If (a = "Dieses Ticket wird bereits bearbeitet.")
  136. return
  137.  
  138. SendChat("/c /aw " . TT_ID . " " . TT_B)
  139. SendChat("/c /aw " . TT_ID . " Mein Name ist " . name . " und ich bin für deine Fragen oder Probleme offen!")
  140. }
  141. return
  142.  
  143. :?:/gt::
  144. {
  145. T_ID := PlayerInput("/Ticket-ID: ")
  146.  
  147. If (T_ID = "")
  148. return
  149.  
  150. T_Grund := PlayerInput("/Grund: ")
  151.  
  152. If (T_Grund = "")
  153. return
  154.  
  155. T_Wen := PlayerInput("/An wen?: ")
  156.  
  157. If (T_Wen = "")
  158. return
  159.  
  160. If (T_Wen = "Admin" || T_Wen = "Head Admin" || T_Wen = "Moderator" || T_Wen = "Projektleiter" || T_Wen = "Supporter"){
  161. Pl = +
  162.  
  163. If(T_Wen = "Projektleiter")
  164. Pl =
  165.  
  166. SendChat("/c /aw " . T_ID . " Ich werde dich nun an einen " . T_Wen . Pl . " weiterleiten.")
  167. SendChat("/c /aw " . T_ID . " Bitte gedulde dich, bis ein " . T_Wen . Pl . " dein Ticket annimmt.")
  168.  
  169. If(T_Wen = "Head Admin")
  170. T_Wen = Head
  171.  
  172. SendChat("/c /gt " . T_ID . " " . T_Wen)
  173. Sleep, 200
  174. SendChat("/c /com Ticket " . T_ID . " für einen " . T_Wen . Pl . " Grund: " . T_Grund . "")
  175. } else {
  176. SendChat("/c /aw " . T_ID . " Ich werde dich nun an " . T_Wen . " weiterleiten.")
  177. SendChat("/c /aw " . T_ID . " Bitte gedulde dich, bis " . T_Wen . " dein Ticket annimmt.")
  178. SendChat("/c /gt " . T_ID . " " . T_Wen)
  179. Sleep, 200
  180. SendChat("/c /com Ticket " . T_ID . " für " . T_Wen . " Grund: " . T_Grund)
  181. }
  182. }
  183. return
  184.  
  185. :?:/dt::
  186. {
  187. DT_ID := PlayerInput("/Ticket-ID: ")
  188.  
  189. If(DT_ID = "")
  190. return
  191.  
  192. SetTimer, Ticketschliessen, -1
  193. }
  194. return
  195.  
  196. ~!Numpad1::
  197. DT_ID := 1
  198. SetTimer, Ticketschliessen, -1
  199. return
  200.  
  201. ~!Numpad2::
  202. DT_ID := 2
  203. SetTimer, Ticketschliessen, -1
  204. return
  205.  
  206. ~!Numpad3::
  207. DT_ID := 3
  208. SetTimer, Ticketschliessen, -1
  209. return
  210.  
  211. ~!Numpad4::
  212. DT_ID := 4
  213. SetTimer, Ticketschliessen, -1
  214. return
  215.  
  216. ~!Numpad5::
  217. DT_ID := 5
  218. SetTimer, Ticketschliessen, -1
  219. return
  220.  
  221. ~!Numpad6::
  222. DT_ID := 6
  223. SetTimer, Ticketschliessen, -1
  224. return
  225.  
  226. ~!Numpad7::
  227. DT_ID := 7
  228. SetTimer, Ticketschliessen, -1
  229. return
  230.  
  231. ~!Numpad8::
  232. DT_ID := 8
  233. SetTimer, Ticketschliessen, -1
  234. return
  235.  
  236. ~!Numpad9::
  237. DT_ID := 9
  238. SetTimer, Ticketschliessen, -1
  239. return
  240.  
  241. Ticketschliessen:
  242. {
  243. DT_S =
  244. If((A_WDay = 6 && Uhrzeit > 12) || A_WDay = 7 || (A_WDay = 1 && A_Hour < 12))
  245. DT_S := " und ein schönes Wochenende"
  246.  
  247. SendChat("/c /aw " . DT_ID . " Ich wünsche dir noch einen schönen Aufenthalt auf RPG-City" . DT_S . ".")
  248. SendChat("/c /aw " . DT_ID . " Bei weiteren Fragen kannst du dich gerne wieder über das Ticketsystem melden.")
  249.  
  250. Sleep, 100
  251. GetChatLine(0, a)
  252.  
  253. If(a != "Dieses Ticket wurde nicht erstellt." && a != "Du bearbeitest dieses Ticket nicht.")
  254. SendChat("/c /dt " . DT_ID)
  255. }
  256. return
  257.  
  258. :?:/grund::
  259. {
  260. ID := PlayerInput("Ticket-ID: ")
  261. SendChat("/c /aw " . ID . " Warum soll ich dich an das gewünschte Teammitglied weiterleiten?")
  262. }
  263. return
  264.  
  265. :?:/fragen::
  266. {
  267. ID := PlayerInput("/Ticket-ID: ")
  268. SendChat("/c /aw " . ID . " Hast du weitere Fragen, Probleme oder Anliegen?")
  269. }
  270. return
  271.  
  272. :?:/tafk::
  273. {
  274. ID := PlayerInput("/Ticket-ID: ")
  275.  
  276. If(ID = "")
  277. return
  278.  
  279. SendChat("/c /aw " . ID . " Da du nicht mehr antwortest, werde ich das Ticket nun schließen!")
  280. SendChat("/c /aw " . ID . " Bei weiteren Fragen kannst du dich gerne wieder im Ticket-System melden!")
  281. SendChat("/c /aw " . ID . " Ich wünsche dir noch einen schönen Aufenthalt auf RPG-City.")
  282. Sendchat("/c /dt " . ID)
  283. }
  284. return
  285.  
  286. :?:/wh::
  287. {
  288. T_ID := PlayerInput("/Ticket-ID: ")
  289.  
  290. If(T_ID = "")
  291. return
  292.  
  293. SendChat("/c /aw " . T_ID . " Wie kann ich dir helfen?")
  294. }
  295. return
  296.  
  297. :?:/grund::
  298. {
  299. T_ID := PlayerInput("/Ticket-ID: ")
  300.  
  301. If(T_ID = "")
  302. return
  303.  
  304. SendChat("/c /aw " . T_ID . " Warum soll ich dich an das gewünschte Mitglied weiterleiten?")
  305. }
  306. return
  307.  
  308. :?:/ubbw::
  309. {
  310. T_ID := PlayerInput("/Ticket-ID: ")
  311.  
  312. If(T_ID = "")
  313. return
  314.  
  315. SendChat("/c /aw " . T_ID . " UBB (= Neon) bzw. Unterbodenbeleuchtungs Codes kannst du in speziellen Events gewinnen (äußerst selten).")
  316. SendChat("/c /aw " . T_ID . " Ebenfalls ist es möglich einen UBB-Code bzw. ein UBB-Car für InGame Geld von anderen Spielern abzukaufen.")
  317. }
  318. return
  319.  
  320. :?:/autow::
  321. {
  322. T_ID := PlayerInput("/Ticket-ID: ")
  323.  
  324. If(T_ID = "")
  325. return
  326.  
  327. SendChat("/c /aw " . T_ID . " Dein Auto findest du ganz einfach per /carkey -> Auto auswählen -> /findcar wieder.")
  328. }
  329. return
  330.  
  331. :?:/level::
  332. {
  333. Level := PlayerInput("/Level: ")
  334.  
  335. If(Level = "")
  336. return
  337.  
  338. If Level is not number
  339. return
  340.  
  341. Chat := PlayerInput("/chat: ")
  342.  
  343. If(Chat = "")
  344. Chat = l
  345.  
  346. If Chat is number
  347. Chat = aw %Chat%
  348.  
  349. Temp := (Level - 1) * (Level - 2) * 2 + (Level - 1) * 8
  350.  
  351. SendChat("/c /" . Chat . " |---------------------------------------------|")
  352. SendChat("/c /" . Chat . " Informationen zum Level " . FormatNumber(Level) . ".")
  353. SendChat("/c /" . Chat . " Spielstunden mit Premium: " . FormatNumber(Round(Temp / 2,0)) . ".")
  354. SendChat("/c /" . Chat . " Spielstunden ohne Premium: " . FormatNumber(Temp) . ".")
  355. SendChat("/c /" . Chat . " Benötigte Respektpunkte zum nächsten Level: " . FormatNumber(8 + (Level - 1) * 4) . ".")
  356. SendChat("/c /" . Chat . " |---------------------------------------------|")
  357. }
  358. return
  359.  
  360. PlayerInput(text)
  361. {
  362. s := A_IsSuspended
  363. KeyWait Enter
  364. SendInput t^a{backspace}%text%
  365. Input, var, v, {enter}
  366. BlockInput, on
  367. SendInput ^a{backspace 100}{enter}
  368. Sleep, 20
  369. BlockInput, off
  370. return var
  371. }
  372. return
  373.  
  374. FormatNumber(_number)
  375. {
  376. StringReplace _number, _number, -
  377. IfEqual ErrorLevel,0, SetEnv Sign,-
  378. Loop Parse, _number, .
  379.  
  380. If (A_Index = 1)
  381. {
  382. len := StrLen(A_LoopField)
  383. Loop Parse, A_LoopField
  384. If (Mod(len-A_Index,3) = 0 and A_Index != len)
  385. x .= A_LoopField "."
  386. Else
  387. x .= A_LoopField
  388. }
  389. Else
  390. Return Sign x "." A_LoopField
  391. Return Sign x
  392. }
  393. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!