SHARE
TWEET

Poly-Keybinder GCT

a guest Nov 28th, 2014 748 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. /*
  2. Next-Update (2.4)
  3. _______________________
  4. • Einsicht in die Quiz-Blacklist für das Team
  5. • Katana/Baseballschläger Bug behoben
  6. • kleinere Fehler behoben
  7. • neue Mutebefehle hinzugefügt
  8. */
  9.  
  10.  
  11. ProgPfad = %A_MyDocuments%\Poly-Keybinder
  12. Chatlogs = %A_MyDocuments%\Poly-Keybinder\Chatlogs
  13. Ini = %A_MyDocuments%\Poly-Keybinder\Einstellungen.Ini
  14. TXTFILE = %A_MyDocuments%\Poly-Keybinder\matslogs.txt
  15. IfNotExist, %ProgPfad%/dx9_overlay.dll
  16. {
  17. TrayTip , Keybinder von Poly,Overlay Daten werden heruntergeladen .., 1,
  18. UrlDownloadToFile, URL/Update/dx9_overlay.dll, %ProgPfad%/dx9_overlay.dll
  19. }
  20. IfNotExist, %ProgPfad%/background.jpg
  21. {
  22. TrayTip , Keybinder von Poly,Hintergrundbild wird heruntergeladen .., 1,
  23. UrlDownloadToFile, URL/Update/background.jpg, %ProgPfad%/background.jpg
  24. }
  25. IfNotExist, %ProgPfad%/overlay.jpg
  26. {
  27. TrayTip , Keybinder von Poly,Overlay-Bild wird heruntergeladen .., 1,
  28. UrlDownloadToFile, URL/Update/overlay.jpg, %ProgPfad%/overlay.jpg
  29. }
  30. IfNotExist, %ProgPfad%/vorschlag.jpg
  31. {
  32. TrayTip , Keybinder von Poly,Vorschlag-Bild wird heruntergeladen .., 1,
  33. UrlDownloadToFile, URL/Update/vorschlag.jpg, %ProgPfad%/vorschlag.jpg
  34. }
  35.  
  36. #NoEnv
  37. #Persistent
  38. #IfWinActive, GTA:SA:MP
  39. #UseHook
  40. version := 2.4
  41. #include improv3d.ahk
  42. #include overlay.ahk
  43. #include SAMP.ahk
  44. IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
  45. obblacklistis := imp_read("Accounts",igname,"Rank")
  46. if(obblacklistis = -2)
  47. {
  48. msgbox, 64, Blacklist,Herzlichen Glückwunsch! Du bist auf der Keybinderblacklist ;)
  49. ExitApp
  50. }
  51. #SingleInstance, Force
  52. RegRead sampuser, HKEY_CURRENT_USER, Software\SAMP, PlayerName
  53. IfNotExist, %ProgPfad%
  54. {
  55. FileCreateDir, %ProgPfad%
  56. }
  57. IfNotExist, %Chatlogs%
  58. {
  59. FileCreateDir, %Chatlogs%
  60. }
  61. OnExit, Exitsub
  62.  
  63. IfNotExist, %Ini%
  64. {
  65. IniWrite, %A_Space%, %Ini%, Deathtexte, SetdeathText
  66. IniWrite, %A_Space%, %Ini%, Killtexte, SetgkillText
  67. IniWrite, %A_Space%, %Ini%, Killtexte, SetkillText
  68. IniWrite, 0, %Ini%, Statistiken, Mord
  69. IniWrite, 0, %Ini%, Statistiken, Tode
  70. Iniwrite, 1, %Ini%, Einstellung, AutoDuty
  71. }
  72.  
  73. TrayTip, Update, Es wird nach Updates gesucht...
  74. ;UPDATER;
  75. ;------------------------------------------------------------------------------------------------------------------------------------;
  76. ;------------------------------------------------------------------------------------------------------------------------------------;
  77. Filedelete,update.bat
  78.  
  79. UrlDownloadToFile, URL/Update/ver.txt, %ProgPfad%\ver.txt
  80. FileRead, newver, %ProgPfad%\ver.txt
  81. FileDelete, %ProgPfad%\ver.txt
  82. if (newver = 0000)
  83. {
  84.         msgBox, 64, [Keybinder wurde Deaktiviert], Die Entwicklung des Keybinders wurde eingestellt!!
  85.         ExitApp
  86. }
  87. if (newver = 1337)
  88. {
  89.         msgBox, 64, [Keybinder wurde Deaktiviert], Der Keybinder wurde wegen eines Fehler deaktiviert!!
  90.         ExitApp
  91. }
  92. if (version < newver)
  93.   {
  94.         newververfügbar := 1
  95.         MsgBox, 4,[Neues Update - Version: %newver%], Lieber Benutzer,`n`nEs ist eine aktuellere Version des Keybinders verfügbar [Version %newver%].`nMöchtest du diese jetzt herunterladen?
  96.         IfMsgBox, Yes
  97.         {
  98.  
  99.                 MsgBox, 64, Update Download, Das Update wird nun heruntergeladen ,dies kann bis zu 20 Sekunden dauern..., 3
  100.                 Urldownloadtofile,URL/Update/GCT-Keybinder.exe, %ProgPfad%\%A_ScriptName%.new
  101.                 BatchFile=
  102.                 (
  103.                 Ping 127.0.0.1
  104.                 Del "%A_ScriptName%"
  105.                 Rename "%A_ScriptName%.new" "%A_ScriptName%
  106.                cd "%A_ScriptFullPath%"
  107.                "%A_ScriptName%"
  108.                Del update.bat
  109.                )
  110.  
  111.                FileDelete,update.bat
  112.                FileAppend,%BatchFile%,update.bat
  113.                MsgBox, 64, Update ausführen, Das Update wird nun ausgeführt...bitte warten..., 3
  114.                Run,update.bat,,hide
  115.                Exitapp
  116.                }
  117.        }
  118.                 IfMsgBox, No
  119.                 {
  120.                         MsgBox, 64, [Update wurde abgebrochen], Das Update ist Notwendig...daher wurde der Keybinder geschlossen!
  121.                         ExitApp
  122.                 }
  123.                
  124. else
  125. {
  126.        newververfügbar := 0
  127. }
  128.  
  129. ;------------------------------------------------------------------------------------------------------------------------------------;
  130. ;------------------------------------------------------------------------------------------------------------------------------------;
  131.  
  132. TrayTip, Überprüfung, Datenbanken werden Überprüft...
  133. if(!imp_table_exist("Accounts"))
  134. {
  135. imp_create_table("Accounts","Username,password,Level,Kills,Tode,KD,Version,IP,Rank,online,lastseen,onseit")
  136. }
  137.  
  138.  
  139. iniRead, eigname, %Ini%, Keybinder-Settings, IG_Name, 0
  140. if(eigname != 0)
  141. {
  142. If !imp_row_exist("Accounts", eigname)
  143. {
  144. TrayTip, Registation, Der Account wird registriert, 5
  145. imp_create_row("Accounts",eigname)
  146. imp_write("Accounts",eigname, "Level", "0")
  147. imp_write("Accounts",eigname, "Kills", "0")
  148. imp_write("Accounts",eigname, "Tode", "0")
  149. imp_write("Accounts",eigname, "password", "0")
  150. imp_write("Accounts",eigname, "KD", "0")
  151. imp_write("Accounts",eigname, "Version", version)
  152. imp_write("Accounts",eigname, "IP", ipcheck)
  153. imp_write("Accounts",eigname, "Rank", "0")
  154. imp_write("Accounts",eigname, "Online", "0")
  155. imp_write("Accounts",eigname, "lastseen", "0")
  156. imp_write("Accounts",eigname, "onseit", "0")
  157. }
  158. }
  159.  
  160.  
  161. TrayTip, Überprüfung, Account wird gesucht...
  162. regi:
  163. iniRead, eigname, %Ini%, Keybinder-Settings, IG_Name, 0
  164. if(eigname=0)
  165. {
  166. TrayTip, Registration, Melden sie sich nun im Keybinder an!
  167. InputBox, eigname, [Registration] Ingamename, Bitte geben Sie hier ihren Ingame Namen ein:,, 300, 130
  168. if(eigname="")
  169. {
  170. MsgBox, , Fehler, Sie haben keinen Namen eingegeben!
  171. Goto, regi
  172. }
  173. MsgBox, 4,[Registration] Ingamename, Ist dies DEIN Account-Name auf German-Crimetime? >> %eigname% <<
  174. IfMsgBox, No
  175. {
  176. MsgBox, , Wichtig:, Bitte gebe den Namen erneut ein!
  177. Goto, Regi
  178. }
  179. IfMsgBox, Yes
  180. {
  181. IniWrite, %eigname%, %Ini%, Keybinder-Settings, IG_Name
  182. If !imp_row_exist("Accounts", eigname)
  183. {
  184. TrayTip, Registation, Der Account wird registriert, 5
  185. imp_create_row("Accounts",eigname)
  186. imp_write("Accounts",eigname, "Level", "0")
  187. imp_write("Accounts",eigname, "Kills", "0")
  188. imp_write("Accounts",eigname, "Tode", "0")
  189. imp_write("Accounts",eigname, "password", "0")
  190. imp_write("Accounts",eigname, "KD", "0")
  191. imp_write("Accounts",eigname, "Version", version)
  192. imp_write("Accounts",eigname, "IP", ipcheck)
  193. imp_write("Accounts",eigname, "Rank", "0")
  194. imp_write("Accounts",eigname, "Online", "0")
  195. imp_write("Accounts",eigname, "lastseen", "0")
  196. imp_write("Accounts",eigname, "onseit", "0")
  197. imp_mail("DEINEEMAIL", "Neuer User (+1)" , eigname " hat sich Registriert!")
  198. }
  199. }
  200. }
  201. SetTimer, check_gta, 2000
  202.  
  203. ;LoadAll:
  204. IniRead, gdeathtext, %Ini%, Deathtexte, SetdeathText
  205. IniRead, gkilltext, %Ini%, Killtexte, SetgkillText
  206. IniRead, lkilltext, %Ini%, Killtexte, SetkillText
  207. IniRead, cName1, %Ini%, Checkboxes, checkbox1
  208. IniRead, cName2, %Ini%, Checkboxes, checkbox2
  209. IniRead, cName3, %Ini%, Checkboxes, checkbox3
  210. IniRead, cName4, %Ini%, Checkboxes, checkbox4
  211. IniRead, cName5, %Ini%, Checkboxes, checkbox5
  212. IniRead, cName6, %Ini%, Checkboxes, checkbox6
  213. IniRead, cName7, %Ini%, Checkboxes, checkbox7
  214. IniRead, cName8, %Ini%, Checkboxes, checkbox8
  215. IniRead, cName9, %Ini%, Checkboxes, checkbox9
  216. IniRead, cName10, %Ini%, Checkboxes, checkbox10
  217. IniRead, cName11, %Ini%, Checkboxes, checkbox11
  218. IniRead, cortaktiv, %Ini%, Checkboxes, Ortname
  219. IniRead, cAktiv1, %Ini%, Checkboxes, Killname
  220. iniread,  owntext1 , %Ini%, Tasten, owntext1, Command
  221. iniread,  owntext2 , %Ini%, Tasten, owntext2,Command
  222. iniread,  owntext3 , %Ini%, Tasten, owntext3,Command
  223. iniread,  owntext4 , %Ini%, Tasten, owntext4,Command
  224. iniread,  owntext5 , %Ini%, Tasten, owntext5,Command
  225. iniread,  owntext6 , %Ini%, Tasten, owntext6,Command
  226. iniread,  owntext7 , %Ini%, Tasten, owntext7,Command
  227. iniread,  owntext8 , %Ini%, Tasten, owntext8,Command
  228. iniread,  owntext9 , %Ini%, Tasten, owntext9,Command
  229. iniread,  owntext10 , %Ini%, Tasten, owntext10,Command
  230. iniread,  owntext11 , %Ini%, Tasten, owntext11,Command
  231. iniread,  owntext12 , %Ini%, Tasten, owntext12,Command
  232. iniread,  owntext13 , %Ini%, Tasten, owntext13,Command
  233. iniread,  owntext14 , %Ini%, Tasten, owntext14,Command
  234. iniread,  owntext15 , %Ini%, Tasten, owntext15,Command
  235. iniread,  owntext16 , %Ini%, Tasten, owntext16,Command
  236. iniread,  Hotkey1 , %Ini%, Tasten, Hotkey1
  237. iniread,  Hotkey2 , %Ini%, Tasten, Hotkey2
  238. iniread,  Hotkey3 , %Ini%, Tasten, Hotkey3
  239. iniread,  Hotkey4 , %Ini%, Tasten, Hotkey4
  240. iniread,  Hotkey5 , %Ini%, Tasten, Hotkey5
  241. iniread,  Hotkey6 , %Ini%, Tasten, Hotkey6
  242. iniread,  Hotkey7 , %Ini%, Tasten, Hotkey7
  243. iniread,  Hotkey8 , %Ini%, Tasten, Hotkey8
  244. iniread,  Hotkey9 , %Ini%, Tasten, Hotkey9
  245. iniread,  Hotkey10 , %Ini%, Tasten, Hotkey10
  246. iniread,  Hotkey11 , %Ini%, Tasten, Hotkey11
  247. iniread,  Hotkey12 , %Ini%, Tasten, Hotkey12
  248. iniread,  Hotkey13 , %Ini%, Tasten, Hotkey13
  249. iniread,  Hotkey14 , %Ini%, Tasten, Hotkey14
  250. iniread,  Hotkey15 , %Ini%, Tasten, Hotkey15
  251. iniread,  Hotkey16 , %Ini%, Tasten, Hotkey16
  252. todknast := false
  253. gosub Hotkeysfestlegen
  254.  
  255. TrayTip, Herzlich Willkommen, Keybinder wurde geladen!
  256. NummerFormat(_number) {
  257. StringReplace _number, _number, -
  258. IfEqual ErrorLevel,0, SetEnv Sign,-
  259. Loop Parse, _number, .
  260. If (A_Index = 1)
  261. {
  262. len := StrLen(A_LoopField)
  263. Loop Parse, A_LoopField
  264. If (Mod(len-A_Index,3) = 0 and A_Index != len)
  265. x .= A_LoopField "."
  266. Else
  267. x .= A_LoopField
  268. }
  269. Else
  270. Return Sign x "." A_LoopField
  271. Return Sign x
  272. }
  273.  
  274. Hauptgui:
  275. Gui, 1:-caption
  276. Gui, 1:Font, S9 CDefault, Times New Roman
  277. Gui, 1:Add, Picture, x-8 y0 w620 h280 , %ProgPfad%\background.jpg
  278. Gui, 1:Add, Edit, x22 y40 vgkilltext w180 h20, %gkilltext%
  279. Gui, 1:Add, Edit, x22 y90 vlkilltext w180 h20 , %lkilltext%
  280. Gui, 1:Add, Text, x22 y70 w90 h20 +BackgroundTrans cWhite, Lokaler Killspruch:
  281. Gui, 1:Add, Edit, x22 y140 vgdeathtext w180 h20 , %gdeathtext%
  282. Gui, 1:Add, Text, x22 y120 w90 h20 +BackgroundTrans cWhite, /g Todesspruch:
  283. Gui, 1:Add, Text, x22 y20 w90 h20 +BackgroundTrans cWhite, /g Killspruch:
  284. Gui, 1:Add, Button, x502 y240 gsave w100 h30 , Speichern
  285. Gui, 1:Add, Button, x502 y205 gchlog w100 h30 , Changelog
  286. Gui, 1:Add, Button, x502 y170 gownhotkeys w100 h30 , Eigene Hotkeys
  287. Gui, 1:Add, Button, x502 y135 goverlays w100 h30 , Overlay
  288. Gui, 1:Add, Button, x502 y100 gtextbefehle w100 h30 , Textbefehle
  289. Gui, 1:Add, Button, x510 y65 gvorschlags w80 h30 , Vorschlag
  290. RegRead moderator, HKEY_CURRENT_USER, Software\SAMP, PlayerName
  291. arank := imp_read("Accounts",moderator,"Rank")
  292. if(arank>0)
  293. {
  294. Gui, 1:Add, Button, x400 y240 gqbl w100 h30 , QBL
  295. }
  296. Gui, 1:Add, CheckBox, x350 y30 vdeagle w13 h13 vName3 Checked%cName3%,
  297. Gui, 1:Add, Text, x364 y30 h70 h20 +BackgroundTrans cBlack, [Deagle]
  298. Gui, 1:Add, Text, x350 y15 h70 h20 +BackgroundTrans cBlack, Waffenkauf:
  299. Gui, 1:Add, CheckBox, x350 y70 vshotgun w13 h13 vName4 Checked%cName4%,
  300. Gui, 1:Add, Text, x364 y70 h70 h20 +BackgroundTrans cBlack, [Shotgun]
  301. Gui, 1:Add, CheckBox, x350 y110 vmp5 w13 h13 vName5 Checked%cName5%,
  302. Gui, 1:Add, Text, x364 y110 h70 h20 +BackgroundTrans cBlack, [MP5]
  303. Gui, 1:Add, CheckBox, x350 y150 vm4 w13 h13 vName6 Checked%cName6%,
  304. Gui, 1:Add, Text, x364 y150 h70 h20 +BackgroundTrans cBlack, [AK47]
  305. Gui, 1:Add, CheckBox, x350 y190 vak47 w13 h13 vName7 Checked%cName7%,
  306. Gui, 1:Add, Text, x364 y190 h70 h20 +BackgroundTrans cBlack, [M4]
  307. Gui, 1:Add, CheckBox, x450 y30 vrifle w13 h13 vName8 Checked%cName8%,
  308. Gui, 1:Add, Text, x464 y30 h70 h20 +BackgroundTrans cBlack, [Country-Rifle]
  309. Gui, 1:Add, CheckBox, x450 y70 vsniper w13 h13 vName9 Checked%cName9%,
  310. Gui, 1:Add, Text, x464 y70 h70 h20 +BackgroundTrans cBlack, [Sniper]
  311. Gui, 1:Add, CheckBox, x425 y110 vbaseball w13 h13 vName10 Checked%cName10%,
  312. Gui, 1:Add, Text, x439 y110 h70 h20 +BackgroundTrans cBlack, [Baseball]
  313. Gui, 1:Add, CheckBox, x425 y150 vkatana w13 h13 vName11 Checked%cName11%,
  314. Gui, 1:Add, Text, x439 y150 h70 h20 +BackgroundTrans cBlack, [Katana]
  315. ;Killzähler:
  316. Gui, 1:Add, CheckBox, x210 y40 vnamekillch w13 h13 vaktiv1 Checked%caktiv1%,
  317. Gui, 1:Add, Text, x225 y40 h70 h20 +BackgroundTrans cWhite, [Name beim Kill]
  318. Gui, 1:Add, CheckBox, x210 y60 vortkillch w13 h13 vortaktiv Checked%cortaktiv%,
  319. Gui, 1:Add, Text, x225 y60 h70 h20 +BackgroundTrans cWhite, [Ort beim Kill]
  320. ;Ende-
  321. Gui, 1:Add, Text, cWhite x550 y5 w90 h20 +backgroundtrans gSlideout vSlideout , |Close|
  322. Gui, 1:Add, Text, cWhite x490 y5 w90 h20 +backgroundtrans gMinimieren vMinimieren, |Minimize|
  323. Gui, 1:Add, Text, cWhite x443 y5 w90 h20 +backgroundtrans gMove vMove, |Move|
  324. ; Generated using SmartGUI Creator for SciTE
  325. Gui, 1:Show, w613 h275, Keybinder by Polyethylen
  326. return
  327.  
  328. check_gta:
  329. if(!FileExist(A_MyDocuments . "\GTA San Andreas User Files\SAMP\chatlog.txt"))
  330. return
  331. If(!WinExist("GTA:SA:MP"))
  332. return
  333. Loop, Read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  334. {
  335. If(InStr(A_LoopReadLine, "Du hast dich erfolgreich eingeloggt, "))
  336. {
  337.         IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
  338.         rname := GetUserName()
  339.         if(igname != GetUserName())
  340.         {
  341.                 if(GetUserName() != "")
  342.                 {
  343.                 addchatmessage("{3664BF} [Namechange] {FFFFFF}Konfigurierung des neuen Namen...")
  344.                 sleep 1000
  345.                 addchatmessage("{3664BF} [Namechange] {FFFFFF}Übertragung der Daten von {74D40B}" igname . " {FFFFFF}an {74D40B}" rname . "{FFFFFF}!")
  346.                 save1 := imp_read("Accounts",igname,"password")
  347.                 save2 := imp_read("Accounts",igname, "LadenRobbedMoney")
  348.                 save3 := imp_read("Accounts",igname, "SackRobbedMoney")
  349.                 save4 := imp_read("Accounts",igname, "SackEXPMoney")
  350.                 save5 := imp_read("Accounts",igname, "geld")
  351.                 save6 := imp_read("Accounts",igname, "mats")
  352.                 imp_delete_row("Accounts",igname)
  353.                 imp_create_row("Accounts",rname)
  354.                 imp_write("Accounts",rname,"password",save1)
  355.                 imp_write("Accounts",rname,"LadenRobbedMoney",save2)
  356.                 imp_write("Accounts",rname,"SackRobbedMoney",save3)
  357.                 imp_write("Accounts",rname,"SackEXPMoney",save4)
  358.                 imp_write("Accounts",rname,"geld",save5)
  359.                 imp_write("Accounts",rname,"mats",save6)
  360.                 IniWrite, %rname%, %Ini%, Keybinder-Settings, IG_Name
  361.                 imp_mail("DEINEEMAIL", "Umbennenung!" , igname " hat sich Umbenannt in " rname)
  362.                 addchatmessage("{3664BF} [Namechange] {FFFFFF}Die Daten wurden erfolgreich an {74D40B}" rname . "{FFFFFF} übertragen")
  363.                 addchatmessage("{3664BF} [Namechange] {FFFFFF}Bitte starte den Keybinder neu! (Dieser wurde geschlossen)")
  364.                 ExitApp
  365.         }
  366.         }
  367.         arank := imp_read("Accounts", GetUserName() , "Rank")
  368.                 If (arank=-1)
  369.         {
  370.         addchatmessage("{3664BF}[Fehler]{FFFFFF} Du hast die Gross/Kleinschreibung vom Namen geändert")
  371.         addchatmessage("{3664BF}[Fehler]{FFFFFF} Somit wird der Keybinder nun wieder geschlossen")
  372.         addchatmessage("{3664BF}[Fehler]{FFFFFF} Bitte ändere den Namen wieder damit er wieder funktioniert")
  373.         addchatmessage("{3664BF}[Fehler]{FFFFFF} >> Der Keybinder wurde geschlossen <<")
  374.         ExitApp
  375.         }
  376.         arank := imp_read("Accounts", GetUserName() , "Rank")
  377.                 If (arank=-2)
  378.         {
  379.         addchatmessage("{3664BF}[Blacklist]{FFFFFF} HGW ! Du stehst auf der Blacklist...")
  380.         sleep 1000
  381.         addchatmessage("{3664BF}[Blacklist]{FFFFFF} SA:MP schliesst sich in:")
  382.         sleep 3500
  383.         addchatmessage("{3664BF}[Blacklist]{FFFFFF} 3")
  384.         sleep 1500
  385.         addchatmessage("{3664BF}[Blacklist]{FFFFFF} 2")
  386.         sleep 1500
  387.         addchatmessage("{3664BF}[Blacklist]{FFFFFF}1")
  388.         sleep 1500
  389.         Process, Close, gta_sa.exe
  390.         ExitApp
  391.         }
  392.         if(imp_row_exist("Accounts",igname) || imp_row_exist("Accounts",rname))
  393.         {
  394.         addchatmessage("{3664BF} [Keybinder von Polyethylen] {FFFFFF}Daten&Statistiken von "GetUserName() . " werden geladen")
  395.         IniWrite, %rname%, %Ini%, Keybinder-Settings, IG_Name
  396.         getid := getPlayerIdByName(rname)
  397.         level := getPlayerScoreById(getid)
  398.         checkobanderername := imp_write("Accounts",rname,"Level", level)
  399.         imp_write("Accounts",igname,"IP",GetIP())
  400.         IniRead, AutoDuty, %Ini%, Einstellung, AutoDuty,1
  401.         IniRead, Killsu, %Ini%, Statistiken, Mord, 0
  402.         IniRead, Todeu, %Ini%, Statistiken, Tode, 0Gui, Add, Edit, x6 y37 w430 h220 , Edit
  403.         imp_write("Accounts",igname,"Version",version)
  404.         imp_write("Accounts",igname,"Kills",Killsu)
  405.         imp_write("Accounts",igname,"Tode",Todeu)
  406.         if(Killsu = 0 && Todeu = 0)
  407.         {
  408.                 kd := 0
  409. }
  410. else
  411. {
  412. kd := Killsu/Todeu
  413. }
  414. imp_write("Accounts",igname,"KD", kd)
  415.         nachricht_old := imp_read("msg","all","msg")
  416.         adminrang := imp_read("Accounts",igname,"Rank")
  417.         imp_write("Accounts",igname,"online","Online")
  418.         Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
  419.         imp_write("Accounts",igname,"onseit",Uhrzeit)
  420.         imp_write("Accounts",igname,"lastseen","Derzeit Online")
  421.         SetTimer, check_close, 2000
  422.         SetTimer, Stuff, 200
  423.         SetTimer, Admin, 200
  424.         adminrang := imp_read("Accounts", GetUserName() , "Rank")
  425.         SetTimer, Datenbankaktuell, 600000
  426.         addchatmessage("{3664BF} [Keybinder von Polyethylen] {FFFFFF}Die Daten von "GetUserName() . " wurden erfolgreich geladen")
  427.         if(adminrang>0)
  428.         {
  429.         addchatmessage("{3664BF} [System]{F09A24} Du besitzt den Keybinder-Rank " adminrang)
  430.         }
  431.         addchatmessage("{3664BF} [MOTD-Info]{FFFFFF} Schau dir jetzt die Message of the Day an! ==> /motd")
  432.         pwcheck := imp_read("Accounts",igname,"password")
  433.                 if (pwcheck = "0")
  434.         {
  435.                         addchatmessage("{247AF0}[System]{F09A24} Wichtig: Du besitzt noch kein UCP-Passwort")
  436. addchatmessage("{247AF0}[System]{F09A24} Bisher wurde von dir kein Passwort eingefügt")
  437. addchatmessage("{247AF0}[System]{F09A24} Benutze '/setpassword' um dies nun festzulegen")
  438.         }
  439.         SetTimer, check_gta, off
  440.         iniread, laufscriptaktive, %Ini%, Laufscript, Status
  441.         SetTimer, Trans, 30000
  442.         SetTimer, neueversion, 60000
  443.         ;SetTimer, carov, 200
  444.         todeszahl := 1
  445.         matsmode := false
  446.         SetTimer, overlay, 150
  447.         IniRead, hpx, %Ini%, Overlay, HPX
  448.         IniRead, hpy, %Ini%, Overlay, HPY
  449.         IniRead, owtdx, %Ini%, Overlay, WTDX
  450.         IniRead, owtdy, %Ini%, Overlay, WTDY
  451.         IniRead, ofpsx, %Ini%, Overlay, FPSX
  452.         IniRead, ofpsy, %Ini%, Overlay, FPSY
  453.         IniRead, oans1, %Ini%, Overlay, oans1
  454.         IniRead, oans2, %Ini%, Overlay, oans2
  455.         IniRead, oans3, %Ini%, Overlay, oans3
  456.         SetParam("use_window", "1")
  457.         SetParam("window", "GTA:SA:MP")
  458.         if(oans1 = 1)
  459.         {
  460.         hp_ov := TextCreate("Arial",7,false,false,hpx,hpy,0xFFFFFFFF,"",False,true)
  461.         }
  462.         if(oans3 = 1)
  463.         {
  464.         fps_ov := TextCreate("Arial",8,true,false,ofpsx,ofpsy,0xFFFFFFFF,"",False,true)
  465.         }
  466.         quizstart := false
  467. }
  468. break
  469. }
  470. }
  471. return
  472.  
  473. check_close:
  474. IfWinNotExist, GTA:SA:MP
  475. {
  476.         SetTimer, check_gta, on
  477.         SetTimer, check_close, off
  478.         SetTimer, Stuff, Off
  479.         ;SetTimer, carov, off
  480.         SetTimer, Admin, off
  481.         SetTimer, Trans, off
  482.         SetTimer, overlay, off
  483.         todeszahl := 0
  484.         SetTimer, Datenbankaktuell, off
  485.         ;SetTimer, Overlay, off
  486.         IniRead, offname, %Ini%, Keybinder-Settings, IG_Name
  487.         ;TextDestroy(hpo)
  488.         imp_write("Accounts",offname,"online","Offline")
  489.         Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
  490.         imp_write("Accounts",offname,"lastseen",Uhrzeit)
  491.         imp_write("Accounts",offname,"onseit","Offline")
  492.         imp_write("Accounts",offname,"IP",GetIP())
  493.         IniRead, Killsu, %Ini%, Statistiken, Mord, 0
  494.         IniRead, Todeu, %Ini%, Statistiken, Tode, 0
  495.         imp_write("Accounts",offname,"Kills",Killsu)
  496.         imp_write("Accounts",offname,"Tode",Todeu)
  497.         kd := Killsu/Todeu
  498.         imp_write("Accounts",offname,"KD", kd)
  499.         sleep 2500
  500.         TrayTip, Ausgeloggt, Der Keybinder hat sich ausgeloggt, 5, 17
  501. }
  502. return
  503.  
  504.  
  505. ownhotkeys:
  506. GUI, 1:Hide
  507. iniread,  owntext1 , %Ini%, Tasten, owntext1, Command
  508. iniread,  owntext2 , %Ini%, Tasten, owntext2,Command
  509. iniread,  owntext3 , %Ini%, Tasten, owntext3,Command
  510. iniread,  owntext4 , %Ini%, Tasten, owntext4,Command
  511. iniread,  owntext5 , %Ini%, Tasten, owntext5,Command
  512. iniread,  owntext6 , %Ini%, Tasten, owntext6,Command
  513. iniread,  owntext7 , %Ini%, Tasten, owntext7,Command
  514. iniread,  owntext8 , %Ini%, Tasten, owntext8,Command
  515. iniread,  owntext9 , %Ini%, Tasten, owntext9,Command
  516. iniread,  owntext10 , %Ini%, Tasten, owntext10,Command
  517. iniread,  owntext11 , %Ini%, Tasten, owntext11,Command
  518. iniread,  owntext12 , %Ini%, Tasten, owntext12,Command
  519. iniread,  owntext13 , %Ini%, Tasten, owntext13,Command
  520. iniread,  owntext14 , %Ini%, Tasten, owntext14,Command
  521. iniread,  owntext15 , %Ini%, Tasten, owntext15,Command
  522. iniread,  owntext16 , %Ini%, Tasten, owntext16,Command
  523. iniread,  Hotkey1 , %Ini%, Tasten, Hotkey1
  524. iniread,  Hotkey2 , %Ini%, Tasten, Hotkey2
  525. iniread,  Hotkey3 , %Ini%, Tasten, Hotkey3
  526. iniread,  Hotkey4 , %Ini%, Tasten, Hotkey4
  527. iniread,  Hotkey5 , %Ini%, Tasten, Hotkey5
  528. iniread,  Hotkey6 , %Ini%, Tasten, Hotkey6
  529. iniread,  Hotkey7 , %Ini%, Tasten, Hotkey7
  530. iniread,  Hotkey8 , %Ini%, Tasten, Hotkey8
  531. iniread,  Hotkey9 , %Ini%, Tasten, Hotkey9
  532. iniread,  Hotkey10 , %Ini%, Tasten, Hotkey10
  533. iniread,  Hotkey11 , %Ini%, Tasten, Hotkey11
  534. iniread,  Hotkey12 , %Ini%, Tasten, Hotkey12
  535. iniread,  Hotkey13 , %Ini%, Tasten, Hotkey13
  536. iniread,  Hotkey14 , %Ini%, Tasten, Hotkey14
  537. iniread,  Hotkey15 , %Ini%, Tasten, Hotkey15
  538. iniread,  Hotkey16 , %Ini%, Tasten, Hotkey16
  539. Gui, ownhk:-caption
  540. Gui, ownhk:Add, Picture, x-8 y0 w620 h280 , %ProgPfad%\background.jpg
  541. Gui, ownhk:Add, Button, x502 y240 gsaveown w100 h30 , Zurück
  542. Gui, ownhk:Add, Hotkey, x32 y20 w70 h20 vHotkey1 gHotkeyChecks, %Hotkey1%
  543. Gui, ownhk:Add, Hotkey, x32 y50 w70 h20 vHotkey2 gHotkeyChecks, %Hotkey2%
  544. Gui, ownhk:Add, Hotkey, x32 y80 w70 h20 vHotkey3 gHotkeyChecks, %Hotkey3%
  545. Gui, ownhk:Add, Hotkey, x32 y110 w70 h20 vHotkey4 gHotkeyChecks, %Hotkey4%
  546. Gui, ownhk:Add, Hotkey, x32 y140 w70 h20 vHotkey5 gHotkeyChecks, %Hotkey5%
  547. Gui, ownhk:Add, Hotkey, x32 y170 w70 h20 vHotkey6 gHotkeyChecks, %Hotkey6%
  548. Gui, ownhk:Add, Hotkey, x32 y200 w70 h20 vHotkey7 gHotkeyChecks, %Hotkey7%
  549. Gui, ownhk:Add, Hotkey, x32 y230 w70 h20 vHotkey8 gHotkeyChecks, %Hotkey8%
  550. Gui, ownhk:Add, Edit, x112 y20 w90 h20 vowntext1 , %owntext1%
  551. Gui, ownhk:Add, Edit, x112 y50 w90 h20 vowntext2 , %owntext2%
  552. Gui, ownhk:Add, Edit, x112 y80 w90 h20 vowntext3 , %owntext3%
  553. Gui, ownhk:Add, Edit, x112 y110 w90 h20 vowntext4 , %owntext4%
  554. Gui, ownhk:Add, Edit, x112 y140 w90 h20 vowntext5, %owntext5%
  555. Gui, ownhk:Add, Edit, x112 y170 w90 h20 vowntext6, %owntext6%
  556. Gui, ownhk:Add, Edit, x112 y200 w90 h20 vowntext7, %owntext7%
  557. Gui, ownhk:Add, Edit, x112 y230 w90 h20 vowntext8, %owntext8%
  558. Gui, ownhk:Add, Hotkey, x212 y20 w70 h20 vHotkey9 gHotkeyChecks, %Hotkey9%
  559. Gui, ownhk:Add, Hotkey, x212 y50 w70 h20 vHotkey10 gHotkeyChecks, %Hotkey10%
  560. Gui, ownhk:Add, Hotkey, x212 y80 w70 h20 vHotkey11 gHotkeyChecks, %Hotkey11%
  561. Gui, ownhk:Add, Hotkey, x212 y110 w70 h20 vHotkey12 gHotkeyChecks, %Hotkey12%
  562. Gui, ownhk:Add, Hotkey, x212 y140 w70 h20 vHotkey13 gHotkeyChecks, %Hotkey13%
  563. Gui, ownhk:Add, Hotkey, x212 y170 w70 h20 vHotkey14 gHotkeyChecks, %Hotkey14%
  564. Gui, ownhk:Add, Hotkey, x212 y200 w70 h20 vHotkey15 gHotkeyChecks, %Hotkey15%
  565. Gui, ownhk:Add, Hotkey, x212 y230 w70 h20 vHotkey16 gHotkeyChecks, %Hotkey16%
  566. Gui, ownhk:Add, Edit, x292 y20 w90 h20 vowntext9, %owntext9%
  567. Gui, ownhk:Add, Edit, x292 y50 w90 h20 vowntext10, %owntext10%
  568. Gui, ownhk:Add, Edit, x292 y80 w90 h20 vowntext11, %owntext11%
  569. Gui, ownhk:Add, Edit, x292 y110 w90 h20 vowntext12, %owntext12%
  570. Gui, ownhk:Add, Edit, x292 y140 w90 h20 vowntext13, %owntext13%
  571. Gui, ownhk:Add, Edit, x292 y170 w90 h20 vowntext14, %owntext14%
  572. Gui, ownhk:Add, Edit, x292 y200 w90 h20 vowntext15, %owntext15%
  573. Gui, ownhk:Add, Edit, x292 y230 w90 h20 vowntext16, %owntext16%
  574. Gui, ownhk:Add, Text, cWhite x550 y5 w90 h20 +backgroundtrans gSlideout vSlideout , |Close|
  575. Gui, ownhk:Add, Text, cWhite x490 y5 w90 h20 +backgroundtrans gMinimieren vMinimieren, |Minimize|
  576. Gui, ownhk:Add, Text, cWhite x443 y5 w90 h20 +backgroundtrans gMove vMove, |Move|
  577. ; Generated using SmartGUI Creator for SciTE
  578. Gui, ownhk:Show, w613 h275, Tastenbelegung
  579. return
  580.  
  581. saveown:
  582. gosub Hotkeysfestlegen
  583. Gui, Submit, NoHide
  584. IniWrite, %owntext1%, %Ini%, Tasten, owntext1
  585. IniWrite, %owntext2%, %Ini%, Tasten, owntext2
  586. IniWrite, %owntext3%, %Ini%, Tasten, owntext3
  587. IniWrite, %owntext4%, %Ini%, Tasten, owntext4
  588. IniWrite, %owntext5%, %Ini%, Tasten, owntext5
  589. IniWrite, %owntext6%, %Ini%, Tasten, owntext6
  590. IniWrite, %owntext7%, %Ini%, Tasten, owntext7
  591. IniWrite, %owntext8%, %Ini%, Tasten, owntext8
  592. IniWrite, %owntext9%, %Ini%, Tasten, owntext9
  593. IniWrite, %owntext10%, %Ini%, Tasten, owntext10
  594. IniWrite, %owntext11%, %Ini%, Tasten, owntext11
  595. IniWrite, %owntext12%, %Ini%, Tasten, owntext12
  596. IniWrite, %owntext13%, %Ini%, Tasten, owntext13
  597. IniWrite, %owntext14%, %Ini%, Tasten, owntext14
  598. IniWrite, %owntext15%, %Ini%, Tasten, owntext15
  599. IniWrite, %owntext16%, %Ini%, Tasten, owntext16
  600. Iniwrite, %Hotkey1%, %Ini%, Tasten, Hotkey1
  601. Iniwrite, %Hotkey2%, %Ini%, Tasten, Hotkey2
  602. Iniwrite, %Hotkey3%, %Ini%, Tasten, Hotkey3
  603. Iniwrite, %Hotkey4%, %Ini%, Tasten, Hotkey4
  604. Iniwrite, %Hotkey5%, %Ini%, Tasten, Hotkey5
  605. Iniwrite, %Hotkey6%, %Ini%, Tasten, Hotkey6
  606. Iniwrite, %Hotkey7%, %Ini%, Tasten, Hotkey7
  607. Iniwrite, %Hotkey8%, %Ini%, Tasten, Hotkey8
  608. Iniwrite, %Hotkey9%, %Ini%, Tasten, Hotkey9
  609. Iniwrite, %Hotkey10%, %Ini%, Tasten, Hotkey10
  610. Iniwrite, %Hotkey11%, %Ini%, Tasten, Hotkey11
  611. Iniwrite, %Hotkey12%, %Ini%, Tasten, Hotkey12
  612. Iniwrite, %Hotkey13%, %Ini%, Tasten, Hotkey13
  613. Iniwrite, %Hotkey14%, %Ini%, Tasten, Hotkey14
  614. Iniwrite, %Hotkey15%, %Ini%, Tasten, Hotkey15
  615. Iniwrite, %Hotkey16%, %Ini%, Tasten, Hotkey16
  616. ;Generated with SmartGUIEditor
  617. Gui, 1:Show, w613 h275, Keybinder by Polyethylen
  618. Gui, ownhk:Destroy
  619. reload
  620. return
  621.  
  622. Hotkeysfestlegen:
  623. Hotkey, ~%Hotkey1%, HotkeyL1, UseErrorlevel
  624. Hotkey, ~%Hotkey2%, HotkeyL2, UseErrorlevel
  625. Hotkey, ~%Hotkey3%, HotkeyL3, UseErrorlevel
  626. Hotkey, ~%Hotkey4%, HotkeyL4, UseErrorlevel
  627. Hotkey, ~%Hotkey5%, HotkeyL5, UseErrorlevel
  628. Hotkey, ~%Hotkey6%, HotkeyL6, UseErrorlevel
  629. Hotkey, ~%Hotkey7%, HotkeyL7, UseErrorlevel
  630. Hotkey, ~%Hotkey8%, HotkeyL8, UseErrorlevel
  631. Hotkey, ~%Hotkey9%, HotkeyL9, UseErrorlevel
  632. Hotkey, ~%Hotkey10%, HotkeyL10, UseErrorlevel
  633. Hotkey, ~%Hotkey11%, HotkeyL11, UseErrorlevel
  634. Hotkey, ~%Hotkey12%, HotkeyL12, UseErrorlevel
  635. Hotkey, ~%Hotkey13%, HotkeyL13, UseErrorlevel
  636. Hotkey, ~%Hotkey14%, HotkeyL14, UseErrorlevel
  637. Hotkey, ~%Hotkey15%, HotkeyL15, UseErrorlevel
  638. Hotkey, ~%Hotkey16%, HotkeyL16, UseErrorlevel
  639. return
  640.  
  641. HotkeyChecks:
  642. Gui, Submit, NoHide
  643. CheckHotkey(Hotkey1)
  644. CheckHotkey(Hotkey2)
  645. CheckHotkey(Hotkey3)
  646. CheckHotkey(Hotkey4)
  647. CheckHotkey(Hotkey5)
  648. CheckHotkey(Hotkey6)
  649. CheckHotkey(Hotkey7)
  650. CheckHotkey(Hotkey8)
  651. CheckHotkey(Hotkey9)
  652. CheckHotkey(Hotkey10)
  653. CheckHotkey(Hotkey11)
  654. CheckHotkey(Hotkey12)
  655. CheckHotkey(Hotkey13)
  656. CheckHotkey(Hotkey14)
  657. CheckHotkey(Hotkey15)
  658. CheckHotkey(Hotkey16)
  659. return
  660.  
  661. CheckHotkey(NewHotkey)
  662. {
  663. Loop, 16
  664. {
  665. IniRead, taste%anzahl%, %Ini%, Tasten, Hotkey%A_Index%
  666. anzahl ++
  667. }
  668. Loop, %anzahl%
  669. {
  670. If(NewHotkey == taste%A_Index%)
  671. GuiControl, 1:, v%NewHotkey%,
  672. GuiControl, ownhk:, v%NewHotkey%,
  673. }
  674. }
  675. return
  676.  
  677.  
  678. IniRead, gdeathtext, %Ini%, Deathtexte, SetdeathText
  679. IniRead, gkilltext, %Ini%, Killtexte, SetgkillText
  680. IniRead, lkilltext, %Ini%, Killtexte, SetkillText
  681. IniRead, cName1, %Ini%, Checkboxes, checkbox1
  682. IniRead, cName2, %Ini%, Checkboxes, checkbox2
  683. IniRead, cName3, %Ini%, Checkboxes, checkbox3
  684. IniRead, cName4, %Ini%, Checkboxes, checkbox4
  685. IniRead, cName5, %Ini%, Checkboxes, checkbox5
  686. IniRead, cName6, %Ini%, Checkboxes, checkbox6
  687. IniRead, cName7, %Ini%, Checkboxes, checkbox7
  688. IniRead, cName8, %Ini%, Checkboxes, checkbox8
  689. IniRead, cName9, %Ini%, Checkboxes, checkbox9
  690. return
  691.  
  692. HotkeyL1:
  693. If(IsInChat()==1)
  694. {
  695. return
  696. }
  697. {
  698. iniread,  owntext1 , %Ini%, Tasten, owntext1,
  699. SendChat(owntext1)
  700. }
  701. return
  702. HotkeyL2:
  703. If(IsInChat()==1)
  704. {
  705. return
  706. }
  707. {
  708. iniread,  owntext2 , %Ini%, Tasten, owntext2,
  709. SendChat(owntext2)
  710. }
  711. return
  712. HotkeyL3:
  713. If(IsInChat()==1)
  714. {
  715. return
  716. }
  717. {
  718. iniread,  owntext3 , %Ini%, Tasten, owntext3,
  719. SendChat(owntext3)
  720. }
  721. return
  722. HotkeyL4:
  723. If(IsInChat()==1)
  724. {
  725. return
  726. }
  727. {
  728. iniread,  owntext4 , %Ini%, Tasten, owntext4,
  729. SendChat(owntext4)
  730. }
  731. return
  732. HotkeyL5:
  733. If(IsInChat()==1)
  734. {
  735. return
  736. }
  737. {
  738. iniread,  owntext5 , %Ini%, Tasten, owntext5,
  739. SendChat(owntext5)
  740. }
  741. return
  742. HotkeyL6:
  743. If(IsInChat()==1)
  744. {
  745. return
  746. }
  747. {
  748. iniread,  owntext6 , %Ini%, Tasten, owntext6,
  749. SendChat(owntext6)
  750. }
  751. return
  752. HotkeyL7:
  753. If(IsInChat()==1)
  754. {
  755. return
  756. }
  757. {
  758. iniread,  owntext7 , %Ini%, Tasten, owntext7,
  759. SendChat(owntext7)
  760. }
  761. return
  762. HotkeyL8:
  763. If(IsInChat()==1)
  764. {
  765. return
  766. }
  767. {
  768. iniread,  owntext8 , %Ini%, Tasten, owntext8,
  769. SendChat(owntext8)
  770. }
  771. return
  772. HotkeyL9:
  773. If(IsInChat()==1)
  774. {
  775. return
  776. }
  777. {
  778. iniread,  owntext9 , %Ini%, Tasten, owntext9,
  779. SendChat(owntext9)
  780. }
  781. return
  782. HotkeyL10:
  783. If(IsInChat()==1)
  784. {
  785. return
  786. }
  787. {
  788. iniread,  owntext10 , %Ini%, Tasten, owntext10,
  789. SendChat(owntext10)
  790. }
  791. return
  792. HotkeyL11:
  793. If(IsInChat()==1)
  794. {
  795. return
  796. }
  797. {
  798. iniread,  owntext11 , %Ini%, Tasten, owntext11,
  799. SendChat(owntext11)
  800. }
  801. return
  802. HotkeyL12:
  803. If(IsInChat()==1)
  804. {
  805. return
  806. }
  807. {
  808. iniread,  owntext12 , %Ini%, Tasten, owntext12,
  809. SendChat(owntext12)
  810. }
  811. return
  812. HotkeyL13:
  813. If(IsInChat()==1)
  814. {
  815. return
  816. }
  817. {
  818. iniread,  owntext13 , %Ini%, Tasten, owntext13,
  819. SendChat(owntext13)
  820. }
  821. return
  822. HotkeyL14:
  823. If(IsInChat()==1)
  824. {
  825. return
  826. }
  827. {
  828. iniread,  owntext14 , %Ini%, Tasten, owntext14,
  829. SendChat(owntext14)
  830. }
  831. return
  832. HotkeyL15:
  833. If(IsInChat()==1)
  834. {
  835. return
  836. }
  837. {
  838. iniread,  owntext15 , %Ini%, Tasten, owntext15,
  839. SendChat(owntext15)
  840. }
  841. return
  842. HotkeyL16:
  843. If(IsInChat()==1)
  844. {
  845. return
  846. }
  847. {
  848. iniread,  owntext16 , %Ini%, Tasten, owntext16,
  849. SendChat(owntext16)
  850. }
  851. return
  852.  
  853. Slideout:
  854. MsgBox, 4,Beenden..., Willst du den Keybinder wirklich schließen?
  855. IfMsgBox Yes
  856. {
  857. DllCall("AnimateWindow", "UInt", GuiID, "Int", 1400 , "UInt", AW_SLIDE + AW_CENTER + AW_HIDE)
  858. ExitApp
  859. }
  860. else
  861. {
  862. return
  863. }
  864.  
  865. Minimieren:
  866. DllCall("AnimateWindow", "UInt", GuiID, "Int", 1000 , "UInt", AW_SLIDE + AW_CENTER + AW_HIDE)
  867. Gui, Minimize
  868. return
  869.  
  870. Move:
  871. PostMessage, 0xA1, 2,,, A
  872. Return
  873.  
  874. textbefehle:
  875. msgbox, , Textbefehle [Rang: 0],• /setkills`n• /settode`n• /aa (Annehmen Anwalt)`n• /re (Auf PN Antworten)`n• /vd (Vielen Dank!)`n• /ok (Verstanden + Bestaedigt)`n• NUMPAD1 = Waffenkauf`n• /kradio (Radio)`n• /kradiohelp (Hilfe für Radio)`n• /laufscript (An/Ausschalten des Keybinders)`n• /ruh (Ruestung+HP)`n• /gt (Guten Tag)`n• /geintragen (G-Namen eintragen)`n• /gh (Gruppen-Hilfe)`n• /kd (K/D anzeigen)`n• /nh (Need Help - Hilferuf)`n• /abholung (Abholung benoetigt)`n• /grobinfo (Transporter im /g)`n• /lrobinfo (Transporter im Oeffentlichen)`n• /orobinfo (Transporter im /o-Chat)`n• /matspreis (Matspreis ansehen)`n• /matsset (Matspreis setzen)`n• /invitegeld (Geld für Invite festlegen)`n• /ogruppenad (Gruppen-AD im /o senden)`n• /credits`n• /cleo`n• /matsmode`n• /lastmats (Letzten Kauf anzeigen)`n• /resetmats (Stats löschen)`n• /keybinderad (32.000$)`n• /cd (Countdown)`n• /random (Random-Generator)`n• /ovfix
  876. iniread, igname, %Ini%, Keybinder-Settings, IG_Name
  877. arank := imp_read("Accounts",igname,"Rank")
  878. if(arank>0)
  879. {
  880. msgbox, , Textbefehle [Rang: 1+],Mute:`n• /flame`n• /lbel`n• /mbel`n• /sbel`n------------------------`nQuiz&Gewinnspiele:`n• /lottogw (Lottogewinn)`n• /lottoz1 (LottoZahl1)`n• /lottoz2 (LottoZahl2)`n• /idquiz`n• /namequiz`n• /randomwin`n------------------------`n• /autoduty`n• /nf (Noch Fragen im /sup)`n• /bye (/ct im Ticket mit Verabschiedung)`n• /snd (/sup noch da?)`n• /regelwerk`n• /regelwerk2`n• /svergehen`n• /oinfo`n• /baninc`n• /oanschalten`n• /oabschalten`n• /carsurf`n• /kontrolle`n• /ncb (Namechange-BAN)
  881. }
  882. return
  883.  
  884. save:
  885. GUI, Submit, NoHide
  886. iniWrite, %gdeathtext%, %Ini%, Deathtexte, SetdeathText
  887. iniWrite, %gkilltext%, %Ini%, Killtexte, SetgkillText
  888. iniWrite, %lkilltext%, %Ini%, Killtexte, SetkillText
  889. IniWrite, %Name1%, %Ini%, Checkboxes, checkbox1
  890. IniWrite, %Name2%, %Ini%, Checkboxes, checkbox2
  891. IniWrite, %Name3%, %Ini%, Checkboxes, checkbox3
  892. IniWrite, %Name4%, %Ini%, Checkboxes, checkbox4
  893. IniWrite, %Name5%, %Ini%, Checkboxes, checkbox5
  894. IniWrite, %Name6%, %Ini%, Checkboxes, checkbox6
  895. IniWrite, %Name7%, %Ini%, Checkboxes, checkbox7
  896. IniWrite, %Name8%, %Ini%, Checkboxes, checkbox8
  897. IniWrite, %Name9%, %Ini%, Checkboxes, checkbox9
  898. IniWrite, %Name10%, %Ini%, Checkboxes, checkbox10
  899. IniWrite, %Name11%, %Ini%, Checkboxes, checkbox11
  900. IniWrite, %aktiv1%, %Ini%, Checkboxes, Killname
  901. IniWrite, %ortaktiv%, %Ini%, Checkboxes, Ortname
  902. If ( Name1 = 1 )
  903. {
  904.         loginan := 1
  905.         iniWrite, %loginan%, %Ini%, Login/Logout, loginan
  906. }
  907. else
  908. {
  909.         loginan := 0
  910.         iniWrite, %loginan%, %Ini%, Login/Logout, loginan
  911. }
  912.  
  913. If ( Name2 = 1 )
  914. {
  915.         logoutan := 1
  916.         iniWrite, %logoutan%, %Ini%, Login/Logout, logoutan
  917. }
  918. else
  919. {
  920.         logoutan := 0
  921.         iniWrite, %logoutan%, %Ini%, Login/Logout, logoutan
  922. }
  923. if ( aktiv1 = 1)
  924. {
  925.         killname := 1
  926.         iniWrite, %killname%, %Ini%, Checkboxes, namek
  927. }
  928. else
  929. {
  930.         killname := 0
  931.         iniWrite, %killname%, %Ini%, Checkboxes, namek
  932. }
  933. if ( ortaktiv = 1)
  934. {
  935.         ortaktiv := 1
  936.         iniWrite, %ortaktiv%, %Ini%, Checkboxes, ortk
  937. }
  938. else
  939. {
  940.         ortaktiv:= 0
  941.         iniWrite, %ortaktiv%, %Ini%, Checkboxes, ortk
  942. }
  943. If ( Name3 = 1 )
  944. {
  945.         deagle := 1
  946.         iniWrite, %deagle%, %Ini%, Waffenkauf, deagle
  947. }
  948. else
  949. {
  950.         deagle := 0
  951.         iniWrite, %deagle%, %Ini%, Waffenkauf, deagle
  952. }
  953.  
  954. If ( Name4 = 1 )
  955. {
  956.         shotgun := 1
  957.         iniWrite, %shotgun%, %Ini%, Waffenkauf, shotgun
  958. }
  959. else
  960. {
  961.         shotgun := 0
  962.         iniWrite, %shotgun%, %Ini%, Waffenkauf, shotgun
  963. }
  964.  
  965. If ( Name5 = 1 )
  966. {
  967.         mp5 := 1
  968.         iniWrite, %mp5%, %Ini%, Waffenkauf, mp5
  969. }
  970. else
  971. {
  972.         mp5 := 0
  973.         iniWrite, %mp5%, %Ini%, Waffenkauf, mp5
  974. }
  975.  
  976. If ( Name7 = 1 )
  977. {
  978.         m4 := 1
  979.         iniWrite, %m4%, %Ini%, Waffenkauf, m4
  980. }
  981. else
  982. {
  983.         m4 := 0
  984.         iniWrite, %m4%, %Ini%, Waffenkauf, m4
  985. }
  986.  
  987. If ( Name6 = 1 )
  988. {
  989.         ak47 := 1
  990.         iniWrite, %ak47%, %Ini%, Waffenkauf, ak47
  991. }
  992. else
  993. {
  994.         ak47 := 0
  995.         iniWrite, %ak47%, %Ini%, Waffenkauf, ak47
  996. }
  997.  
  998. If ( Name8 = 1 )
  999. {
  1000.         rifle := 1
  1001.         iniWrite, %rifle%, %Ini%, Waffenkauf, rifle
  1002. }
  1003. else
  1004. {
  1005.         rifle := 0
  1006.         iniWrite, %rifle%, %Ini%, Waffenkauf, rifle
  1007. }
  1008.  
  1009. If ( Name9 = 1 )
  1010. {
  1011.         sniper := 1
  1012.         iniWrite, %sniper%, %Ini%, Waffenkauf, sniper
  1013. }
  1014. else
  1015. {
  1016.         sniper := 0
  1017.         iniWrite, %sniper%, %Ini%, Waffenkauf, sniper
  1018. }
  1019. If ( Name10 = 1 )
  1020. {
  1021.         baseball := 1
  1022.         iniWrite, %baseball%, %Ini%, Waffenkauf, baseball
  1023. }
  1024. else
  1025. {
  1026.         baseball := 0
  1027.         iniWrite, %baseball%, %Ini%, Waffenkauf, baseball
  1028. }
  1029. If ( Name11 = 1 )
  1030. {
  1031.         katana := 1
  1032.         iniWrite, %katana%, %Ini%, Waffenkauf, katana
  1033. }
  1034. else
  1035. {
  1036.         baseball := 0
  1037.         iniWrite, %katana%, %Ini%, Waffenkauf, katana
  1038. }
  1039. msgbox, , Erfolgreich, Die Speicherung wurde beendet (Kein Neustart nötig)
  1040. return
  1041.  
  1042. Exitsub:
  1043. TrayTip, Beenden...,Die Prozesse werden geschlossen
  1044. IniRead, offname, %Ini%, Keybinder-Settings, IG_Name
  1045. imp_write("Accounts",offname,"online","Offline")
  1046. Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
  1047. imp_write("Accounts",offname,"lastseen",Uhrzeit)
  1048. imp_write("Accounts",offname,"onseit","Offline")
  1049. stopAudioStream()
  1050. DestroyAllVisual()     
  1051. ExitApp
  1052.  
  1053. hotkeys:
  1054. iniread, owntext1, %Ini%, Tasten, owntext1, Command
  1055. iniread, owntext2, %Ini%, Tasten, owntext2,Command
  1056. iniread, owntext3, %Ini%, Tasten, owntext3,Command
  1057. iniread, owntext4, %Ini%, Tasten, owntext4,Command
  1058. iniread, owntext5, %Ini%, Tasten, owntext5,Command
  1059. iniread, owntext6, %Ini%, Tasten, owntext6,Command
  1060. iniread, owntext7, %Ini%, Tasten, owntext7,Command
  1061. iniread, owntext8, %Ini%, Tasten, owntext8,Command
  1062. iniread, owntext9, %Ini%, Tasten, owntext9,Command
  1063. iniread, owntext10, %Ini%, Tasten, owntext10,Command
  1064. iniread, owntext11, %Ini%, Tasten, owntext11,Command
  1065. iniread, owntext12, %Ini%, Tasten, owntext12,Command
  1066. iniread, owntext13, %Ini%, Tasten, owntext13,Command
  1067. iniread, owntext14, %Ini%, Tasten, owntext14,Command
  1068. iniread, owntext15, %Ini%, Tasten, owntext15,Command
  1069. iniread, owntext16, %Ini%, Tasten, owntext16,Command
  1070. iniread, Hotkey1, %Ini%, Tasten, Hotkey1
  1071. iniread, Hotkey2, %Ini%, Tasten, Hotkey2
  1072. iniread, Hotkey3, %Ini%, Tasten, Hotkey3
  1073. iniread, Hotkey4, %Ini%, Tasten, Hotkey4
  1074. iniread, Hotkey5, %Ini%, Tasten, Hotkey5
  1075. iniread, Hotkey6, %Ini%, Tasten, Hotkey6
  1076. iniread, Hotkey7, %Ini%, Tasten, Hotkey7
  1077. iniread, Hotkey8, %Ini%, Tasten, Hotkey8
  1078. iniread, Hotkey9, %Ini%, Tasten, Hotkey9
  1079. iniread, Hotkey10, %Ini%, Tasten, Hotkey10
  1080. iniread, Hotkey11, %Ini%, Tasten, Hotkey11
  1081. iniread, Hotkey12, %Ini%, Tasten, Hotkey12
  1082. iniread, Hotkey13, %Ini%, Tasten, Hotkey13
  1083. iniread, Hotkey14, %Ini%, Tasten, Hotkey14
  1084. iniread, Hotkey15, %Ini%, Tasten, Hotkey15
  1085. iniread, Hotkey16, %Ini%, Tasten, Hotkey16
  1086. return
  1087.  
  1088. overlays:
  1089. Gui, ov:-caption
  1090. Gui, ov:Add, Picture, x0 y0 w262 h241 , %ProgPfad%\overlay.jpg
  1091. IniRead, ohpx, %Ini%, Overlay, HPX, 688
  1092. IniRead, ohpy, %Ini%, Overlay, HPY, 90
  1093. IniRead, owtdx, %Ini%, Overlay, WTDX, 25
  1094. IniRead, owtdy, %Ini%, Overlay, WTDY, 140
  1095. IniRead, ofpsx, %Ini%, Overlay, FPSX, 770
  1096. IniRead, ofpsy, %Ini%, Overlay, FPSY,
  1097. IniRead, ocheck1, %Ini%, Checkboxes, ocheck1
  1098. IniRead, ocheck2, %Ini%, Checkboxes, ocheck2
  1099. IniRead, ocheck3, %Ini%, Checkboxes, ocheck3
  1100. Gui, 1:Hide
  1101. Gui, ov:Font, S9 CDefault, Times New Roman
  1102. Gui, ov:Add, Text, x110 y27 h70 h20 +BackgroundTrans cWhite, [Aktiv?]
  1103. Gui, ov:Add, CheckBox, x96 y97 w13 h13 vocheck2 Checked%ocheck2%,
  1104. Gui, ov:Add, Text, x110 y97 h70 h20 +BackgroundTrans cWhite, [Aktiv?]
  1105. Gui, ov:Add, CheckBox, x96 y167 w13 h13 vocheck3 Checked%ocheck3%,
  1106. Gui, ov:Add, Text, x110 y167 h13 h13 +BackgroundTrans cWhite, [Aktiv?]
  1107. Gui, ov:Add, Text, x6 y7 w70 h20 +BackgroundTrans cBlack, HP-Overlay:
  1108. Gui, ov:Add, Text, x6 y77 w70 h20 +BackgroundTrans cBlack, Team-Overlay:
  1109. Gui, ov:Add, Text, x6 y147 w70 h20 +BackgroundTrans cBlack, FPS:
  1110. Gui, ov:Add, Edit, x6 y47 w80 h20 vhpx +number, %ohpx%
  1111. Gui, ov:Add, Edit, x6 y27 w80 h20 vhpy +number, %ohpy%
  1112. Gui, ov:Add, Edit, x6 y97 w80 h20 vwtdx +number, %owtdx%
  1113. Gui, ov:Add, Edit, x6 y117 w80 h20 vwtdy +number, %owtdy%
  1114. Gui, ov:Add, Edit, x6 y167 w80 h20 vfpsx +number, %ofpsx%
  1115. Gui, ov:Add, Edit, x6 y187 w80 h20 vfpsy +number, %ofpsy%
  1116. Gui, ov:Add, CheckBox, x96 y27 w13 h13 vocheck1 Checked%ocheck1%,
  1117. Gui, ov:Add, Button, x170 y210 w90 h30 ghaupt, Zurück+Save
  1118. Gui, ov:Show, x131 y91 h241 w262, Overlay
  1119. return
  1120.  
  1121. vorschlags:
  1122. Gui, 1:Hide
  1123. Gui, vorsch:Font, S9 CDefault, Times New Roman
  1124. Gui, vorsch:-caption
  1125. Gui, vorsch:Add, Picture, x0 y0 w460 h330 , %ProgPfad%\vorschlag.jpg
  1126. Gui, vorsch:Add, Text, x35 y60 w180 h20 +BackgroundTrans cWhite, Bitte füge hier deinen Vorschlag ein:
  1127. Gui, vorsch:Add, Edit, x36 y77 w390 h100 vedit,
  1128. Gui, vorsch:Add, Button, x176 y297 gabsendenvorschlag w100 h30 , Absenden
  1129. Gui, vorsch:Add, Button, x290 y297 gzuruuuck w100 h30 , Zurück
  1130. Gui, vorsch:Show, w460 h330, Vorschlag einreichen
  1131. return
  1132.  
  1133.  
  1134. absendenvorschlag:
  1135. Gui, vorsch:Submit, No-Hide
  1136. if(edit = "")
  1137. {
  1138. msgbox, , Fehler, Du musst etwas in die Textbox einfügen!
  1139. Gui, vorsch:Show, w460 h330, Vorschlag einreichen
  1140. return
  1141. }
  1142. langedit := strlen(edit)
  1143. if(langedit<30)
  1144. {
  1145. msgbox, , Fehler, Du musst min. 30 Zeichen einfügen!
  1146. Gui, vorsch:Show, w460 h330, Vorschlag einreichen
  1147. return
  1148. }
  1149. else
  1150. {
  1151.         iniread, ignamefueremail, %Ini%, Keybinder-Settings, IG_Name
  1152.         imp_mail("DEINEEMAIL", "" edit "" , "Vorschlag von " ignamefueremail)
  1153.         msgbox, , Erfolgreich!, Vielen Dank für deinen Vorschlag!
  1154.         Gui, 1:Show
  1155.         Gui, vorsch:Destroy
  1156. }
  1157. return
  1158.  
  1159. zuruuuck:
  1160. Gui, vorsch:Submit, No-Hide
  1161. Gui, vorsch:Destroy
  1162. Gui, 1:Show
  1163. return
  1164.  
  1165. haupt:
  1166. GUI, Submit, NoHide
  1167. IniWrite, %hpx%, %Ini%, Overlay, HPX
  1168. IniWrite, %hpy%, %Ini%, Overlay, HPY
  1169. IniWrite, %wtdx%, %Ini%, Overlay, WTDX
  1170. IniWrite, %wtdy%, %Ini%, Overlay, WTDY
  1171. IniWrite, %fpsx%, %Ini%, Overlay, FPSX
  1172. IniWrite, %fpsy%, %Ini%, Overlay, FPSY
  1173. IniWrite, %ocheck1%, %Ini%, Checkboxes, ocheck1
  1174. IniWrite, %ocheck2%, %Ini%, Checkboxes, ocheck2
  1175. IniWrite, %ocheck3%, %Ini%, Checkboxes, ocheck3
  1176. if(ocheck1 = 1)
  1177. {
  1178.         oans1 := 1
  1179.         IniWrite, %oans1%, %Ini%, Overlay, oans1
  1180. }
  1181. else
  1182. {
  1183.         oans1 := 0
  1184.         iniWrite, %oans1%, %Ini%, Overlay, oans1
  1185. }
  1186. if(ocheck2 = 1)
  1187. {
  1188.         oans2 := 1
  1189.         IniWrite, %oans2%, %Ini%, Overlay, oans2
  1190. }
  1191. else
  1192. {
  1193.         oans2 := 0
  1194.         iniWrite, %oans2%, %Ini%, Overlay, oans2
  1195. }
  1196. if(ocheck3 = 1)
  1197. {
  1198.         oans3 := 1
  1199.         IniWrite, %oans3%, %Ini%, Overlay, oans3
  1200. }
  1201. else
  1202. {
  1203.         oans3 := 0
  1204.         iniWrite, %oans3%, %Ini%, Overlay, oans3
  1205. }
  1206. Gui, ov:Submit, No-Hide
  1207. Gui, ov:Destroy
  1208. reload
  1209. return
  1210.  
  1211. chlog:
  1212. GUI, Submit, NoHide
  1213. UrlDownloadToFile, URL/Update/chlog.txt, %ProgPfad%\chlog.txt
  1214. FileRead, chlog, %ProgPfad%\chlog.txt
  1215. FileDelete, %ProgPfad%\chlog.txt
  1216. If(chlog="")
  1217. msgbox, 0, [Changelog], Leider ist derzeit kein Changelog vorhanden!
  1218. else
  1219. msgbox, 0, [Changelog], %chlog%
  1220. return
  1221.  
  1222. Datenbankaktuell:
  1223.         name := GetUserName()
  1224.         getid := getPlayerIdByName(name)
  1225.         level := getPlayerScoreById(getid)
  1226.         imp_write("Accounts",name,"Level", level)
  1227.         imp_write("Accounts",name,"IP",GetIP())
  1228.         IniRead, AutoDuty, %Ini%, Einstellung, AutoDuty,0
  1229.         IniRead, Killsu, %Ini%, Statistiken, Mord, 0
  1230.         IniRead, Todeu, %Ini%, Statistiken, Tode, 0
  1231.         imp_write("Accounts",name,"Kills",Killsu)
  1232.         imp_write("Accounts",name,"Tode",Todeu)
  1233.         kd := Killsu/Todeu
  1234.         imp_write("Accounts",name,"KD", kd)
  1235.         adminrang := imp_read("Accounts",name,"Rank")
  1236.                 pwcheck := imp_read("Accounts", name, "password")
  1237. if (pwcheck="0")
  1238. {
  1239. addchatmessage("{247AF0}[System]{F09A24} Wichtig: Du besitzt noch kein UCP-Passwort")
  1240. addchatmessage("{247AF0}[System]{F09A24} Bisher wurde von dir kein Passwort eingefügt")
  1241. addchatmessage("{247AF0}[System]{F09A24} Benutze '/setpassword' um dies nun festzulegen")
  1242. }
  1243. return
  1244.  
  1245. Robtimer:
  1246. if(bsek = 0 AND bmin = 0)
  1247. {
  1248. SendChat("/g Auf gehts..die Bank ist wieder ausraubbar")
  1249. SetTimer, Robtimer, off
  1250. return
  1251. }
  1252. else if(bsek = 0)
  1253. {
  1254. SendChat("/g [Info] In" . bmin . " Minuten ist die Bank ausraubbar!")
  1255. bmin--
  1256. bsek := 60
  1257. }
  1258. bsek--
  1259. return
  1260.  
  1261. Stuff:
  1262. GetChatLine(0,chl0)
  1263. GetChatLine(1,chl1)
  1264. GetChatLine(2,chl2)
  1265. usname := GetUserName()
  1266. GetChatLine(0,izi)
  1267. if(instr(izi,"Du hast") AND InStr(izi, "in die Gruppenkasse eingezahlt")){
  1268. {
  1269.         RegExMatch(izi, "Du hast \$(.*) in die Gruppenkasse eingezahlt \(Inhalt\: \$(.)\)\.", ausgabe)
  1270.         SendChat("/g hat " ausgabe1 "$ in die Kasse eingezahlt | Inhalt: " ausgabe2 "$")
  1271.         sleep 500
  1272. }
  1273. }
  1274. if(instr(chl0, "Du hast") AND instr(chl0, "geraubt."))
  1275. {
  1276. RegExMatch(chl0, "Du hast \$(.*) geraubt\.", geldbetrag)
  1277. vohermoneyrobbed := imp_read("Accounts",GetUserName(),"LadenRobbedMoney")
  1278. if(vohermoneyrobbed = "")
  1279. {
  1280. vohermoneyrobbed := 0
  1281. }
  1282.         neuesrobbedladenmoney := vohermoneyrobbed+geldbetrag1
  1283.         imp_write("Accounts",GetUserName(),"LadenRobbedMoney",neuesrobbedladenmoney)
  1284.         addchatmessage("{247AF0}[System]{F09A24} Du hast erfolgreich einen Laden beraubt! >> +" . geldbetrag1 . "$ << (Insgesamt: " neuesrobbedladenmoney "$)")
  1285. }
  1286. if(matsmode = true)
  1287. {
  1288.         if(isPlayerDriver() == 1 && getVehicleModelName() == "Roadtrain" && getVehicleLockState() == 0 && getVehicleEngineState() == 1)
  1289.         {
  1290.         SendChat("/carlock")
  1291.         addchatmessage("{247AF0}[System]{F09A24} Das Fahrzeug Roadtrain wurde abgeschlossen! (Grund: Matsfahrt)")
  1292.         }
  1293. }
  1294. if(matsmode = true)
  1295. {
  1296. if(instr(chl0, "" . usname . " hat") AND instr(chl0,"gekauft **"))
  1297. {
  1298.         RegExMatch(chl0, usname . " hat (.*) Materialien (.*) \$(.*) gekauft", ausgabe)
  1299.         matsr := imp_read("Accounts",usname,"mats")
  1300.         geldr := imp_read("Accounts",usname,"geld")
  1301.         if(matsr = "")
  1302. {              
  1303.                 matsr := 0
  1304. }
  1305. if(geldr = "")
  1306. {
  1307.                 geldr := 0
  1308. }
  1309.         matsn := matsr + ausgabe1
  1310.         geldn := geldr + ausgabe3
  1311.         imp_write("Accounts",usname,"mats",matsn)
  1312.         imp_write("Accounts",usname,"geld",geldn)
  1313.         Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
  1314.         lastkauf1 := "{F09A24}Anzahl: {00FFA2}" nummerformat(ausgabe1) "{F09A24} | Preis: {00FFA2}" nummerformat(ausgabe3) "{F09A24}$ | Datum: {00FFA2}" Uhrzeit
  1315.         ppromat := ausgabe3/ausgabe1
  1316.         StringTrimRight, ppromat, ppromat, 7
  1317.         wurdematsschoneingetragen := imp_read("mats","mats","preis")
  1318.         if(wurdematsschoneingetragen = "")
  1319.         {
  1320.         imp_write("mats","mats","preis",ppromat)
  1321.         imp_write("mats","mats","melder",GetUserName())
  1322.         imp_write("mats","mats","wann",Uhrzeit)
  1323.         imp_write("mats","mats","stundedanach",A_Hour)
  1324.         addchatmessage("{E6BA0B}Danke für deine Meldung..den Matspreis sehen nun alle Spieler!")
  1325.         addchatmessage("{49D167}Preis: {E6BA0B}" . ppromat . "{49D167}$ | Wann: {E6BA0B}" . Uhrzeit . " {49D167}| Meldung von: {E6BA0B}" GetUserName())
  1326.         imp_mail("DEINEEMAIL", "MATSPREIS-Change", "Preis: " . ppromat . "$ | Wann: " . Uhrzeit . " | Meldung von: " GetUserName())
  1327.         }
  1328.         lastkauffuerlogs := "[ " Uhrzeit " ] Anzahl: " . nummerformat(ausgabe1) . " | Preis pro Mat: " . ppromat . "$ | Preis insg.: " . nummerformat(ausgabe3) . "$"
  1329.         FileAppend, %lastkauffuerlogs%`n, %TXTFILE%
  1330.         imp_write("Accounts",usname,"lastkauf",lastkauf1)
  1331.         addchatmessage("{F09A24}Du hast bisher insgesamt {00FFA2}" nummerformat(matsn) " ( +" ausgabe1 " ) {F09A24}Mats für einen Preis von {00FFA2}" nummerformat(geldn) "$ ( +" nummerformat(Ausgabe3)  "$ ){F09A24} gekauft!")
  1332.         sleep 80000
  1333.         if(!WinActive("GTA:SA:MP"))
  1334.         {
  1335.                 msgbox, 64, Info:, Die Mats wurden erfolgreich geladen!
  1336.         }
  1337. }
  1338. }
  1339. if instr(chl1, "ein Geldtransporter zur Bank.")
  1340. {
  1341. RegExMatch(chl1, "Achtung\! Um (.*)\:(.*) (.*) ein Geldtransporter zur Bank\.", info)
  1342. FormatTime, Datum , %A_Now%, dd.MM.yyyy
  1343. imp_write("transporter", "transporter", "wann", Datum " um " info1 . ":" info2)
  1344. imp_write("transporter", "transporter", "melder", igname)
  1345. addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
  1346. }
  1347. If InStr(chl0, "Die Bank ist erst")
  1348. {
  1349. RegExMatch(chl0, "Die Bank ist erst in (.*)\:(.*) Min\. wieder ausraubbar\." ,timeb)
  1350. bmin := timeb1
  1351. bsek := timeb2
  1352. SendChat("/g Die Geldquelle Streikt mal wieder... Bank in >> " . bmin . " Minuten und " . bsek . "  Sekunden << ausraubbar")
  1353. sleep 2000
  1354. SetTimer, Robtimer, 1000
  1355. }
  1356. if (InStr(chl1, "hat Verbrecher") AND InStr(chl1, usname) AND InStr(chl2, "( +1 EXP)."))
  1357. {
  1358. RegExMatch(chl1, "hat Verbrecher (.*) festgenommen." ,verbrecher)
  1359. IniRead, Kills, %Ini%, Statistiken, Mord, 0
  1360. Kills++
  1361. IniWrite, %Kills%, %Ini%, Statistiken, Mord
  1362. SendChat("/d " . verbrecher1 . " wurde festgenommen | Grund: Erschossen | { Verhaftung-Nr. " . Kills . " }")
  1363. }
  1364. if(instr(chl1, "Du hast") AND instr(chl1, "getötet ( +1 EXP)")) AND instr(chl0, "Verbrechen: Mord")
  1365. {
  1366.         RegExMatch(chl1 ,"Du hast (.*) (.*) \( \+1 EXP\)\.", killnamed)
  1367.         IniRead, Kills, %Ini%, Statistiken, Mord, 0
  1368.         Kills++
  1369.         IniWrite, %Kills%, %Ini%, Statistiken, Mord
  1370.         IniRead,  SetgkillText ,%Ini%, Killtexte, SetgkillText,
  1371.         IniRead, nameche, %Ini%, Checkboxes, namek, 0
  1372.         IniRead, ortche, %Ini%, Checkboxes, ortk, 0
  1373.         IniRead,  SetkillText ,%Ini%, Killtexte, SetkillText, 0
  1374.         if(SetkillText != 0)
  1375.         {
  1376.         SendChat(SetkillText)
  1377.         }
  1378.         sleep 1000
  1379.         if(nameche = 1 && ortche = 0)
  1380.         {
  1381.         SendChat("/g " . SetgkillText . " | " killnamed1 . " ist tot | ~|Kill Nr. " . Kills " |~")
  1382.         }
  1383.         if(nameche = 0 && ortche = 0)
  1384.         {
  1385.         SendChat("/g " . SetgkillText . " | ~|Kill Nr. " . Kills " |~")
  1386.         }
  1387.         if(nameche = 1 && ortche = 1)
  1388.         {
  1389.         c := getcoordinates()
  1390.         Zone := CalculateZone(c[1], c[2], c[3])
  1391.         SendChat("/g " . SetgkillText . " | " killnamed1 . " ist tot in " Zone " | ~|Kill Nr. " . Kills " |~")
  1392.         }
  1393.         if(nameche = 0 && ortche = 1)
  1394.         {
  1395.         c := getcoordinates()
  1396.         Zone := CalculateZone(c[1], c[2], c[3])
  1397.         SendChat("/g " . SetgkillText . " | Jemanden getötet in " Zone " | ~|Kill Nr. " . Kills " |~")
  1398.         }
  1399.         sleep 1000
  1400. }
  1401. if (GetPlayerHealth()= 0 && todeszahl = 1)
  1402. {
  1403.         IfWinNotActive, GTA:SA:MP
  1404.         return
  1405.         GetChatLine(0, chl0)
  1406.         If(InStr(chl0, "Min. im Knast und musst"))
  1407.         {
  1408.         todknast := true
  1409.         RegExMatch(chl0, "Du bist nun (\d+):(\d+) Min\. im Knast und musst \$(.*) Strafe zahlen", ausgabe)
  1410.         sleep 500
  1411.         if(ausgabe1 != "" || ausgabe2 != "" || ausgabe3 != "")
  1412.         SendChat("/g ist nun im Knast fuer " . ausgabe1 . ":" . ausgabe2 . " Minuten und musste " . nummerformat(ausgabe3) . "$ zahlen")
  1413.         todknast := false
  1414.         sleep 1000
  1415.         }
  1416.         IniRead, Tode, %Ini%, Statistiken, Tode, 0
  1417.         Tode++
  1418.         IniWrite, %Tode%, %Ini%, Statistiken, Tode
  1419.         IniRead,  SetdeathText ,%Ini%, Deathtexte, SetDeathText
  1420.         SendChat("/g " . SetdeathText . " | ~|Tod Nr. " . tode " |~")
  1421.         sleep 7000
  1422. }
  1423. if(instr(chl0,"zu einem Geldabgabepunkt"))
  1424. {
  1425.         SendChat("/g hat einen Geldsack erhalten und faehrt nun zum Geldabgabepunkt")
  1426. }
  1427. if(instr(chl0,"In diesem Geldbeutel befanden sich")){
  1428. {
  1429.         RegExMatch(chl0, "In diesem Geldbeutel befanden sich \$(.*) und (.*) EXP.", ausgabe)
  1430.         SendChat("/g hat einen Geldbeutel abgegeben dabei " . nummerformat(ausgabe1) . "$ Cash bekommen & " . ausgabe2 . " EXP erhalten")
  1431.         IniRead, BRobs, %Ini%, Robs, BRobs, 0
  1432.         BRobs = %BRobs%
  1433.         BRobs ++
  1434.         IniWrite, %BRobs%, %Ini%, Robs, BRobs
  1435.         IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
  1436.         imp_write("Accounts",igname,"BRobs",Brobs)
  1437.         sackrobbedmoneyold := imp_read("Accounts",igname,"SackRobbedMoney")
  1438.         sackrobbedxpold := imp_read("Accounts",igname,"SackEXPMoney")
  1439.         if(sackrobbedmoneyold = "")
  1440.         {
  1441.         sackrobbedmoneyold := 0
  1442.         }
  1443.         if(sackrobbedxpold = "")
  1444.         {
  1445.                 sackrobbedxpold := 0
  1446.         }
  1447.         newsackrobbedmoney := sackrobbedmoneyold+ausgabe1
  1448.         newsackrobbedxp := sackrobbedxpold+ausgabe2
  1449.         imp_write("Accounts",igname,"SackRobbedMoney",newsackrobbedmoney)
  1450.         imp_write("Accounts",igname,"SackEXPMoney",newsackrobbedxp)
  1451.         addchatmessage("{247AF0}[System]{F09A24} Du hast erfolgreich einen Geldsack abgegeben! >> +1 Geldsack << ( Insgesamt: " BRobs " )")
  1452.         addchatmessage("{247AF0}[System]{F09A24} Geldsack-Statistiken >> +" nummerformat(ausgabe1) "$  & +" ausgabe2 " EXP << ( Insgesamt: " nummerformat(newsackrobbedmoney) "$ | " newsackrobbedxp " EXP )")
  1453. }
  1454. }
  1455. If(InStr(chl0, "Du hast deine") AND InStr(chl0, "abgesessen"))
  1456. {
  1457.         SendChat("/g Endlich raus aus dem Knast..ich bin nun in der Base")
  1458.         sleep 5000
  1459. }
  1460. If(InStr(chl0, "Min. im Knast und musst") && todknast = false){
  1461. {
  1462.         RegExMatch(chl0, "Du bist nun (\d+):(\d+) Min\. im Knast und musst \$(.*) Strafe zahlen", ausgabe)
  1463.         sleep 500
  1464.         if(ausgabe1 != "" || ausgabe2 != "" || ausgabe3 != "")
  1465.         SendChat("/g ist nun im Knast fuer " . ausgabe1 . ":" . ausgabe2 . " Minuten und musste " . nummerformat(ausgabe3) . "$ zahlen")
  1466.         sleep 1500
  1467. }
  1468. }
  1469. if Instr(chl0, "so lange, bis der Raub beendet ist.")
  1470. {
  1471. IniRead, LadenRobs, %Ini%, Robs, LadenRobs, 0
  1472. LadenRobs = %LadenRobs%
  1473. LadenRobs ++
  1474. IniWrite, %LadenRobs%, %Ini%, Robs, LadenRobs
  1475. IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
  1476. imp_write("Accounts",igname,"Laden",LadenRobs)
  1477. addchatmessage("{247AF0}[System]{F09A24} Du hast einen Ladenraub gestartet! >> +1 Ladenraub << ( Insgesamt: " LadenRobs " )")
  1478. }
  1479. igcheckname := GetUserName()
  1480. if(instr(chl0, igcheckname) and instr(chl0,"[ ARENA ]") and instr(chl0,"betreten"))
  1481. {
  1482. addchatmessage("{247AF0}[Arena] {F09A24}Todezähler = Deaktiviert! Grund: Betreten einer Arena")
  1483. todeszahl := 0
  1484. }
  1485. if(instr(chl0, igcheckname) and instr(chl0,"[ ARENA ]") and instr(chl0,"verlassen"))
  1486. {
  1487. addchatmessage("{247AF0}[Arena] {F09A24}Todezähler = Aktiviert! Grund: Verlassen einer Arena")
  1488. todeszahl := 1
  1489. }
  1490. return
  1491.  
  1492. Numpad1::
  1493. if(isInChat()==1)
  1494. {
  1495.         SendInput, 1
  1496.         return
  1497. }
  1498. else
  1499. iniRead, deagle, %Ini%, Waffenkauf, deagle, 0
  1500. iniRead, shotgun, %Ini%, Waffenkauf, shotgun, 0
  1501. iniRead, mp5, %Ini%, Waffenkauf, mp5, 0
  1502. iniRead, m4, %Ini%, Waffenkauf, m4, 0
  1503. iniRead, ak47, %Ini%, Waffenkauf, ak47, 0
  1504. iniRead, rifle, %Ini%, Waffenkauf, rifle, 0
  1505. iniRead, sniper, %Ini%, Waffenkauf, sniper, 0
  1506. iniRead, baseball, %Ini%, Waffenkauf, baseball, 0
  1507. iniRead, katana, %Ini%, Waffenkauf, katana, 0
  1508. SendChat("/buygun")
  1509. sleep 200
  1510. if( GetPlayerArmor() != 100 )
  1511. {
  1512.         sleep 50
  1513.         SendInput, {enter}
  1514.         sleep 100
  1515. }
  1516. if ( deagle = 1 )
  1517. {
  1518.         SendInput, {down}
  1519.         sleep 50
  1520.         SendInput, {enter}
  1521.         sleep 100
  1522. }
  1523. if ( shotgun = 1 )
  1524. {
  1525.         SendInput, {down}
  1526.         sleep 50
  1527.         SendInput, {down}
  1528.         sleep 50
  1529.         SendInput, {enter}
  1530.         sleep 100
  1531. }
  1532. if ( mp5 = 1 )
  1533. {
  1534.         SendInput, {down}
  1535.         sleep 50
  1536.         SendInput, {down}
  1537.         sleep 50
  1538.         SendInput, {down}
  1539.         sleep 50
  1540.         SendInput, {enter}
  1541.         sleep 100
  1542. }
  1543. if ( ak47 = 1 )
  1544. {
  1545.         SendInput, {down}
  1546.         sleep 50
  1547.         SendInput, {down}
  1548.         sleep 50
  1549.         SendInput, {down}
  1550.         sleep 50
  1551.         SendInput, {down}
  1552.         sleep 50
  1553.         SendInput, {enter}
  1554.         sleep 100
  1555. }
  1556. if ( m4 = 1 )
  1557. {
  1558.         SendInput, {down}
  1559.         sleep 50
  1560.         SendInput, {down}
  1561.         sleep 50
  1562.         SendInput, {down}
  1563.         sleep 50
  1564.         SendInput, {down}
  1565.         sleep 50
  1566.         SendInput, {down}
  1567.         sleep 50
  1568.         SendInput, {enter}
  1569.         sleep 100
  1570. }
  1571. if ( rifle = 1 )
  1572. {
  1573.         SendInput, {down}
  1574.         sleep 50
  1575.         SendInput, {down}
  1576.         sleep 50
  1577.         SendInput, {down}
  1578.         sleep 50
  1579.         SendInput, {down}
  1580.         sleep 50
  1581.         SendInput, {down}
  1582.         sleep 50
  1583.         SendInput, {down}
  1584.         sleep 50
  1585.         SendInput, {enter}
  1586.         sleep 100
  1587. }
  1588. if ( sniper = 1 )
  1589. {
  1590.         SendInput, {down}
  1591.         sleep 50
  1592.         SendInput, {down}
  1593.         sleep 50
  1594.         SendInput, {down}
  1595.         sleep 50
  1596.         SendInput, {down}
  1597.         sleep 50
  1598.         SendInput, {down}
  1599.         sleep 50
  1600.         SendInput, {down}
  1601.         sleep 50
  1602.         SendInput, {down}
  1603.         sleep 50
  1604.         SendInput, {enter}
  1605.         sleep 100
  1606. }
  1607. if ( baseball = 1 )
  1608. {
  1609.         SendInput, {down}
  1610.         sleep 80
  1611.         SendInput, {down}
  1612.         sleep 80
  1613.         SendInput, {down}
  1614.         sleep 80
  1615.         SendInput, {down}
  1616.         sleep 80
  1617.         SendInput, {down}
  1618.         sleep 80
  1619.         SendInput, {down}
  1620.         sleep 80
  1621.         SendInput, {down}
  1622.         sleep 80
  1623.         SendInput, {down}
  1624.         sleep 80
  1625.         SendInput, {down}
  1626.         sleep 80
  1627.         SendInput, {enter}
  1628.         sleep 150
  1629. }
  1630. if ( katana = 1 )
  1631. {
  1632.         SendInput, {down}
  1633.         sleep 80
  1634.         SendInput, {down}
  1635.         sleep 80
  1636.         SendInput, {down}
  1637.         sleep 80
  1638.         SendInput, {down}
  1639.         sleep 80
  1640.         SendInput, {down}
  1641.         sleep 80
  1642.         SendInput, {down}
  1643.         sleep 80
  1644.         SendInput, {down}
  1645.         sleep 80
  1646.         SendInput, {down}
  1647.         sleep 80
  1648.         SendInput, {enter}
  1649.         sleep 150
  1650. }
  1651. SendInput, {esc}
  1652. return
  1653.  
  1654. ;Admin-Systeme:
  1655. :?:t/nf::
  1656. Suspend Permit
  1657. SendInput {enter}
  1658. if (adminrang>0)
  1659. {
  1660. SendChat("/sup Hast du noch weitere Fragen?")
  1661. }
  1662. else
  1663. {
  1664. SendChat("Hast du noch weitere Fragen?")
  1665. }
  1666. Suspend Off
  1667. return
  1668.  
  1669. ;BYE
  1670. :?:t/bye::
  1671. Suspend Permit
  1672. SendInput {enter}
  1673. if (adminrang>0)
  1674. {
  1675. SendChat("/sup Falls du nochmal eine Frage hast: /sup [Text] | Cheater melden: /a [Text]")
  1676. zeitstunde := A_Hour
  1677. if(zeitstunde="12")
  1678. {
  1679.         akzeit := "einen schönen Tag"
  1680. }
  1681. if(zeitstunde="13")
  1682. {
  1683.         akzeit := "einen schönen Tag"
  1684. }
  1685. if(zeitstunde="14")
  1686. {
  1687.         akzeit := "einen schönen Tag"
  1688. }
  1689. if(zeitstunde="15")
  1690. {
  1691.         akzeit := "einen schönen Tag"
  1692. }
  1693. if(zeitstunde="16")
  1694. {
  1695.         akzeit := "einen schönen Tag"
  1696. }
  1697. if(zeitstunde="17")
  1698. {
  1699.         akzeit := "einen schönen Tag"
  1700. }
  1701. if(zeitstunde="18")
  1702. {
  1703.         akzeit := "einen schönen Abend"
  1704. }
  1705. if(zeitstunde="19")
  1706. {
  1707.         akzeit := "einen schönen Abend"
  1708. }
  1709. if(zeitstunde="20")
  1710. {
  1711.         akzeit := "einen schönen Abend"
  1712. }
  1713. if(zeitstunde="21")
  1714. {
  1715.         akzeit := "einen schönen Abend"
  1716. }
  1717. if(zeitstunde="22")
  1718. {
  1719.         akzeit := "einen schönen Abend"
  1720. }
  1721. if(zeitstunde="23")
  1722. {
  1723.         akzeit := "einen schönen Abend"
  1724. }
  1725. if(zeitstunde="00")
  1726.         {
  1727.         akzeit := "einen schönen Abend"
  1728. }
  1729. if(zeitstunde="08")
  1730. {
  1731.         akzeit := "einen angenehmen Morgen"
  1732. }
  1733. if(zeitstunde="07")
  1734. {
  1735.         akzeit := "einen angenehmen Morgen"
  1736. }
  1737. if(zeitstunde="09")
  1738. {
  1739.         akzeit := "einen angenehmen Morgen"
  1740. }
  1741. if(zeitstunde="10")
  1742. {
  1743.         akzeit := "einen angenehmen Morgen"
  1744. }
  1745. if(zeitstunde="11")
  1746. {
  1747.         akzeit := "einen angenehmen Morgen"
  1748. }
  1749. if(zeitstunde="1")
  1750. {
  1751.         akzeit := "eine angenehme Nacht"
  1752. }
  1753. if(zeitstunde="2")
  1754. {
  1755.         akzeit := "eine angenehme Nacht"
  1756. }
  1757. if(zeitstunde="3")
  1758. {
  1759.         akzeit := "eine angenehme Nacht"
  1760. }
  1761. if(zeitstunde="4")
  1762. {
  1763.         akzeit := "eine angenehme Nacht"
  1764. }
  1765. if(zeitstunde="5")
  1766. {
  1767.         akzeit := "eine angenehme Nacht"
  1768. }
  1769. if(zeitstunde="6")
  1770. {
  1771.         akzeit := "eine angenehme Nacht"
  1772. }
  1773. SendChat("/sup Ich wünsche dir noch " . akzeit . " und viel Spaß auf GCT!")
  1774. TextDestroy(sup_ov)
  1775. SendChat("/ct")
  1776. if AutoDuty=0
  1777. SendChat("/aduty")
  1778. }
  1779. Suspend Off
  1780. return
  1781.  
  1782. :?:t/snd::
  1783. Suspend Permit
  1784. SendInput {enter}
  1785. if (adminrang>0)
  1786. {
  1787. SendChat("/sup Sind Sie denn noch Anwesend?")
  1788. }
  1789. Suspend Off
  1790. return
  1791.  
  1792. ;IDQUIZ:
  1793. :?:t/idquiz::
  1794. Suspend permit
  1795. sendinput {enter}
  1796. If (adminrang>0)
  1797. {
  1798. Loop,
  1799. {
  1800. Random, idauswahl, 1, 100
  1801. If (IsNPCById(idauswahl)==0)
  1802. break
  1803. }
  1804. SendChat("/o _________________________ID-Quiz__________________________")
  1805. SendChat("/o Der Spieler der mir als erstes die ID zu dem Namen " . getPlayerNameById(idauswahl) . " sagt,")
  1806. SendChat("/o gewinnt 20.000$! Loesung per '/pn " . GetUserName() . " [passende ID]'")
  1807. SendChat("/o Tipp: Verwende /id [Name]")
  1808. sleep 200
  1809. addchatmessage("{CC0A21}Los geht's! ( Die ID lautet = {A9DEEE}" . idauswahl . "{CC0A21} )")
  1810. SetTimer, idquiz, 10
  1811. }
  1812. else
  1813. {
  1814. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  1815. }
  1816. return
  1817.  
  1818. idquiz:
  1819. GetChatLine(0, chatline)
  1820. If InStr(chatline, idauswahl) AND InStr(chatline, "PN von")
  1821. {
  1822. RegExMatch(chatline, "PN von (.*)\:", winner)
  1823. if(!instr(verbotenstring, winner1))
  1824. {
  1825. if(imp_row_exist("QuizBS", winner1))
  1826. {
  1827. verbotenstring .= winner1 ", "
  1828. }
  1829. else
  1830. {
  1831. Settimer, idquiz, off
  1832. SendChat("/o Wir haben einen Gewinner! Herzlichen Glueckwunsch - " . winner1)
  1833. SendChat("/o Lösung: Die ID von " getPlayerNameById(idauswahl) " war "  idauswahl . " | Danke für die Teilnahme")
  1834. idauswahl := ""
  1835. chatline := ""
  1836. SendChat("/tog")
  1837. Sleep 200
  1838. sendinput {enter}
  1839. sleep 200
  1840. sendinput {esc}
  1841. SendChat("/pay " . winner1 . " 20000")
  1842. SetTimer, togpn1 , 10000
  1843. addchatmessage("{CC0A21}Die PN-Funktion wurde für 10 Sekunden deaktiviert!")
  1844. if(verbotenstring != "")
  1845. {
  1846. AddChatMessage("{CC0A21}Teilnehmer auf der Blacklist: " verbotenstring)
  1847. }
  1848. verbotenstring := ""
  1849. }
  1850. }
  1851. }
  1852. return
  1853.  
  1854. togpn1:
  1855. SendChat("/tog")
  1856. Sleep 200
  1857. sendinput {enter}
  1858. sleep 200
  1859. sendinput {esc}
  1860. SetTimer, togpn1 , off
  1861. addchatmessage("{CC0A21}Die PN-Funktion wurde wieder aktiviert!")
  1862. return
  1863.  
  1864. ;NameQuiz;
  1865. :?:t/namequiz::
  1866. Suspend permit
  1867. sendinput {enter}
  1868. If (adminrang>0)
  1869. {
  1870. Loop,
  1871. {
  1872. Random, idauswahl, 1, 100
  1873. If (IsNPCById(idauswahl)==0)
  1874. break
  1875. }
  1876. SendChat("/o _________________________Name-Quiz__________________________")
  1877. SendChat("/o Der Spieler der mir als erstes den Namen zu der ID " . idauswahl . " sagt,")
  1878. SendChat("/o gewinnt 20.000$! Loesung per '/pn " . GetUserName() . " [passender Name]'")
  1879. SendChat("/o Tipp: Verwende /id [Name] oder siehe in der TAB-Liste nach :)")
  1880. sleep 200
  1881. addchatmessage("{CC0A21}Los geht's! ( Der Name lautet = {A9DEEE}" GetPlayerNameById(idauswahl) . "{CC0A21} )")
  1882. SetTimer, namequiz, 10
  1883. }
  1884. else
  1885. {
  1886. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  1887. }
  1888. return
  1889.  
  1890. namequiz:
  1891. GetChatLine(0, chatline)
  1892. If InStr(chatline, GetPlayerNameById(idauswahl)) AND InStr(chatline, "PN von")
  1893. {
  1894. RegExMatch(chatline, "PN von (.*)\:", winner)
  1895. if(!instr(verbotenstring, winner1))
  1896. {
  1897. if(imp_row_exist("QuizBS", winner1))
  1898. {
  1899. verbotenstring .= winner1 ", "
  1900. }
  1901. else
  1902. {
  1903. SetTimer, namequiz, off
  1904. SendChat("/o Wir haben einen Gewinner! Herzlichen Glueckwunsch - " . winner1)
  1905. SendChat("/o Lösung: " GetPlayerNameById(idauswahl) . " | Danke für die Teilnahme")
  1906. idauswahl := ""
  1907. chatline := ""
  1908. SendChat("/tog")
  1909. Sleep 200
  1910. sendinput {enter}
  1911. sleep 200
  1912. sendinput {esc}
  1913. SendChat("/pay " . winner1 . " 20000")
  1914. SetTimer, togpn2, 10000
  1915. addchatmessage("{CC0A21}Die PN-Funktion wurde für 10 Sekunden deaktiviert!")
  1916. if(verbotenstring != "")
  1917. {
  1918. AddChatMessage("{CC0A21}Teilnehmer auf der Blacklist: " verbotenstring)
  1919. }
  1920. verbotenstring := ""
  1921. }
  1922. }
  1923. }
  1924. return
  1925. togpn2:
  1926. SendChat("/tog")
  1927. Sleep 200
  1928. sendinput {enter}
  1929. sleep 200
  1930. sendinput {esc}
  1931. SetTimer, togpn2, off
  1932. addchatmessage("{CC0A21}Die PN-Funktion wurde wieder aktiviert!")
  1933. return
  1934.  
  1935. :?:t/autoduty::
  1936. /*AutoDUTY-FUNKTION
  1937. */
  1938. return
  1939.  
  1940. ;Admin Welcome
  1941. Admin:
  1942. GetChatLine(0, line)
  1943. If (adminrang>0)
  1944. {
  1945. If InStr(line, "" . GetUserName()" bearbeitet nun das Ticket von")
  1946. {
  1947. RegExMatch(line, "bearbeitet nun das Ticket von (.*).", ticketwer)
  1948. zeitstunde := A_Hour
  1949. if(zeitstunde="12")
  1950. {
  1951.         akzeit := "Schönen Guten Tag"
  1952. }
  1953. if(zeitstunde="13")
  1954. {
  1955.         akzeit := "Schönen Guten Tag"
  1956. }
  1957. if(zeitstunde="14")
  1958. {
  1959.         akzeit := "Schönen Guten Tag"
  1960. }
  1961. if(zeitstunde="15")
  1962. {
  1963.         akzeit := "Schönen Guten Tag"
  1964. }
  1965. if(zeitstunde="16")
  1966. {
  1967.         akzeit := "Schönen Guten Tag"
  1968. }
  1969. if(zeitstunde="17")
  1970. {
  1971.         akzeit := "Schönen Guten Tag"
  1972. }
  1973. if(zeitstunde="18")
  1974. {
  1975.         akzeit := "Schönen Guten Abend"
  1976. }
  1977. if(zeitstunde="19")
  1978. {
  1979.         akzeit := "Schönen Guten Abend"
  1980. }
  1981. if(zeitstunde="20")
  1982. {
  1983.         akzeit := "Schönen Guten Abend"
  1984. }
  1985. if(zeitstunde="21")
  1986. {
  1987.         akzeit := "Schönen Guten Abend"
  1988. }
  1989. if(zeitstunde="22")
  1990. {
  1991.         akzeit := "Schönen Guten Abend"
  1992. }
  1993. if(zeitstunde="23")
  1994. {
  1995.         akzeit := "Schönen Guten Abend"
  1996. }
  1997. if(zeitstunde="00")
  1998.         {
  1999.         akzeit := "Schönen Guten Abend"
  2000. }
  2001. if(zeitstunde="08")
  2002. {
  2003.         akzeit := "Schönen Guten Morgen"
  2004. }
  2005. if(zeitstunde="07")
  2006. {
  2007.         akzeit := "Schönen Guten Morgen"
  2008. }
  2009. if(zeitstunde="09")
  2010. {
  2011.         akzeit := "Schönen Guten Morgen"
  2012. }
  2013. if(zeitstunde="10")
  2014. {
  2015.         akzeit := "Schönen Guten Morgen"
  2016. }
  2017. if(zeitstunde="11")
  2018. {
  2019.         akzeit := "Schönen Guten Morgen"
  2020. }
  2021. if(zeitstunde="01")
  2022. {
  2023.         akzeit := "Schönen Guten Abend"
  2024. }
  2025. if(zeitstunde="02")
  2026. {
  2027.         akzeit := "Schönen Guten Abend"
  2028. }
  2029. if(zeitstunde="03")
  2030. {
  2031.         akzeit := "Schönen Guten Abend"
  2032. }
  2033. if(zeitstunde="04")
  2034. {
  2035.         akzeit := "Schönen Guten Abend"
  2036. }
  2037. if(zeitstunde="05")
  2038. {
  2039.         akzeit := "Schönen Guten Abend"
  2040. }
  2041. if(zeitstunde="06")
  2042. {
  2043.         akzeit := "Schönen Guten Abend"
  2044. }
  2045. SendChat("/sup " . akzeit . " " . ticketwer1 . ", wie kann ich dir behilflich sein?")
  2046. IniRead, owtdx, %Ini%, Overlay, WTDX
  2047. IniRead, owtdy, %Ini%, Overlay, WTDY
  2048. IniRead, oans2, %Ini%, Overlay, oans2
  2049. if(oans2 = 1)
  2050. {
  2051. sup_ov := TextCreate("Arial", 10, true, false, owtdx, owtdy, 0xFFFFFFFF, "{B80AF2}[ Support: {16F04C}Aktiv {B80AF2}| Name: {D9A004}" ticketwer1 "{B80AF2} | ID: {D9A004}" GetPlayerIdByName(ticketwer1) "{B80AF2} ]", true, true)
  2052. }
  2053. if AutoDuty=0
  2054. SendChat("/aduty")
  2055. sleep 150
  2056. GetChatLine(0,checkisduty)
  2057. If InStr(checkisduty, "ist nun nicht mehr als")
  2058. {
  2059. SendChat("/aduty")
  2060. }
  2061. iniread, ticket, %Ini%, Admin, Ticket,0
  2062. ticket++
  2063. iniwrite, %ticket%, %Ini%, Admin, Ticket
  2064. addchatmessage("{1B13F0}[Ticketcounter]{E89C0E} Du hast bereits {0ECFE8}" ticket " {E89C0E}Tickets bearbeitet!")
  2065. sleep 5000
  2066. }
  2067. }
  2068. if (adminrang>2)
  2069. {
  2070. If InStr(line, "hat sich die Waffe")
  2071. {
  2072. RegExMatch(line, "\[ANTI - CHEAT\] (.*) hat sich die Waffe", checkweap)
  2073. SendChat("/checkweapons " . checkweap1)
  2074. addchatmessage("{0DE03F}[AntiCheat] {13F0F0}" . checkweap1 . " wird auf Waffen kontrolliert.")
  2075. }
  2076. }
  2077. if (adminrang>0)
  2078. {
  2079. if instr(line, "hat ein neues Ticket erstellt")
  2080. {
  2081. showGameText("+ 1 Ticket - NEUES TICKET", 3000, 5)
  2082. addchatmessage("{0DE03F}[Ticket-System]{13F0F0} +1 Ticket | Bitte bearbeite das neue Ticket!")
  2083. sleep 2000
  2084. }
  2085. }
  2086. if (adminrang>0)
  2087. {
  2088. GetChatLine(0,linech)
  2089. if instr(linech, "hat das Ticket geschlossen.")
  2090. {
  2091. TextDestroy(sup_ov)
  2092. IniRead, AutoDuty, %Ini%, Einstellung, AutoDuty,1
  2093. if(AutoDuty = 0)
  2094. {
  2095. SendChat("/aduty")
  2096. sleep 2000
  2097. }
  2098. }
  2099. }
  2100. return
  2101.  
  2102. :?:t/useronline::
  2103. Suspend Permit
  2104. SendInput {enter}
  2105. If adminrang>4
  2106. {
  2107. allonlineusers := imp_read_where("Accounts", "online", "Online", "Username")
  2108. addchatmessage("{247AF0}[System]{F09A24} Es werden alle Aktiven Nutzer geladen!")
  2109. alluseron := 0
  2110. StringSplit, only1member, allonlineusers,`,
  2111. Loop, %only1member0%
  2112. {
  2113. finishmember := only1member%a_index%
  2114. if a_index=1
  2115. {
  2116. onseitlog := imp_read("Accounts", finishmember, "onseit")
  2117. deruserseinrank := imp_read("Accounts",finishmember,"Rank")
  2118. if(!instr(dialogderkommt, finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"))
  2119. {
  2120. dialogderkommt .= finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"
  2121. }
  2122. }
  2123. else
  2124. {
  2125. StringReplace, finishmember, finishmember, %A_Space%, , All
  2126. onseitlog := imp_read("Accounts", finishmember, "onseit")
  2127. deruserseinrank := imp_read("Accounts",finishmember,"Rank")
  2128. if(!instr(dialogderkommt, finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"))
  2129. {
  2130. dialogderkommt .= finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"
  2131. }
  2132. }
  2133. alluseron := a_index
  2134. }
  2135. finishdialogderkommt := dialogderkommt . "`n`n Aktuell sind " alluseron " User mit dem Keybinder Online!"
  2136. ShowDialog(0, "Online-User", finishdialogderkommt, "'Close'")
  2137. dialogderkommt = ""
  2138. finishdialogderkommt = ""
  2139. }
  2140. else
  2141. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2142. Suspend Off
  2143. return
  2144.  
  2145. :?:t/onlinefix::
  2146. Suspend Permit
  2147. SendInput {enter}
  2148. If adminrang>4
  2149. {
  2150. anzahlfix := 0
  2151. allusers := imp_read_where("Accounts", "online", "Online", "Username")
  2152. addchatmessage("{247AF0}[System]{F09A24} Die User werden geladen...")
  2153. StringSplit, deruser, allusers,`,
  2154. Loop, %deruser0%
  2155. {
  2156. oneuser := deruser%a_index%
  2157. if a_index=1
  2158. {
  2159. SendChat("/id " . oneuser)
  2160. sleep 200
  2161. GetChatLine(0,checkl)
  2162. If InStr(checkl, "Spieler ist nicht Online")
  2163. {
  2164. imp_write("Accounts", oneuser, "online", "Offline")
  2165. imp_write("Accounts", oneuser, "onseit", "Unbekannt")
  2166. imp_write("Accounts", oneuser, "lastseen", "Unbekannt")
  2167. addchatmessage("{FFFFFF}Der User" . oneuser " wurde als Offline eingetragen")
  2168. addchatmessage("{247AF0}[System]{F09A24} Der User " oneuser " wurde als >Offline< eingetragen")
  2169. anzahlfix++
  2170. }
  2171. }
  2172. else
  2173. {
  2174. StringReplace, oneuser, oneuser, %A_Space%, , All
  2175. SendChat("/id " . oneuser)
  2176. sleep 200
  2177. GetChatLine(0,checkl)
  2178. If InStr(checkl, "Spieler ist nicht Online")
  2179. {
  2180. imp_write("Accounts", oneuser, "online", "Offline")
  2181. imp_write("Accounts", oneuser, "onseit", "Unbekannt")
  2182. imp_write("Accounts", oneuser, "lastseen", "Unbekannt")
  2183. addchatmessage("{247AF0}[System]{F09A24} Der User " oneuser " wurde als >Offline< eingetragen")
  2184. anzahlfix++
  2185. }
  2186. }
  2187. }
  2188. addchatmessage("{247AF0}[System]{F09A24} Es wurden insgesamt {0AAABF}" anzahlfix " {F09A24} Datenbank-Fehler behoben!")
  2189. imp_mail("DEINEEMAIL", "Keybinder-Administrator " GetUserName() " hat einen Online-Fix durchgeführt! Falsche Einträge: " anzahlfix, "OnlineFIX")
  2190. }
  2191. else
  2192. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2193. Suspend Off
  2194. return
  2195.  
  2196.  
  2197. ;Lotto System;
  2198. :?:t/lotto::
  2199. username := GetUserName()
  2200. Suspend permit
  2201. If (adminrang>0)
  2202. {
  2203. IniRead, lottogw, %Ini%, Lotto, lottogw, 0
  2204. if (lottogw = 0)
  2205. {
  2206.         addchatmessage("{CC0A21}Es wurde kein Lottogewinn eingetragen...[/lottogw]")
  2207.         addchatmessage("{CC0A21}Das Lotto-System wurde somit abgebrochen!")
  2208.         return
  2209. }
  2210. IniRead, lottoz1, %Ini%, Lotto, lottoz1, 0
  2211. IniRead, lottoz2, %Ini%, Lotto, lottoz2, 0
  2212. if (lottoz1 = 0 || lottoz2 = 0)
  2213. {
  2214.         addchatmessage("{CC0A21}Es wurden keine Zahlen angegeben...[/lottoz1 & /lottoz2]")
  2215.         addchatmessage("{CC0A21}Das Lotto-System wurde somit abgebrochen!")
  2216.         return
  2217. }
  2218. sendinput {enter}
  2219. Random, ranumber, %lottoz1%, %lottoz2%
  2220. SendChat("/o _________________________Lotto__________________________")
  2221. SendChat("/o Wir haben eine Random Zahl im Bereich von " lottoz1 . "-" lottoz2 . " ausgewählt")
  2222. SendChat("/o Schreibt mir nun eine PN der Zahl wo ihr denkt, dass diese es sein könnte")
  2223. SendChat("/o /pn " GetUserName() . " [Zahl] | Wichtig: Hochzählen/Runterzählen verboten!")
  2224. SendChat("/o Gewinn: " nummerformat(lottogw) . "$!")
  2225. sleep 200
  2226. addchatmessage("{CC0A21}Los geht's! ( Die Zahl lautet = {A9DEEE}" . ranumber . "{CC0A21} )")
  2227. SetTimer, lottoquiz, 10
  2228. quizstart := true
  2229. }
  2230. else
  2231. {
  2232. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2233. }
  2234. return
  2235.  
  2236. lottoquiz:
  2237. GetChatLine(0,lottoch)
  2238. if instr(lottoch, ": " . ranumber) and InStr(lottoch, "PN von")
  2239. {
  2240. RegExMatch(lottoch, "PN von (.*)\:", winner)
  2241. if(!instr(verbotenstring, winner1))
  2242. {
  2243. if(imp_row_exist("QuizBS", winner1))
  2244. {
  2245. SendChat("/pn " winner1 " Du bist auf der Quiz-Blacklist! (Antwort wurde nicht gewertet)")
  2246. verbotenstring .= winner1 ", "
  2247. }
  2248. else
  2249. {
  2250. Settimer, lottoquiz, off
  2251. SendChat("/o Wir haben einen Gewinner! Herzlichen Glueckwunsch - " . winner1)
  2252. SendChat("/o Die Zahl war: " ranumber . " | Danke für die Teilnahme")
  2253. IniWrite, 0, %Ini%, Lotto, lottogw
  2254. IniWrite, 0, %Ini%, Lotto, lottoz1
  2255. IniWrite, 0, %Ini%, Lotto, lottoz2
  2256. SendChat("/tog")
  2257. Sleep 200
  2258. sendinput {enter}
  2259. sleep 200
  2260. sendinput {esc}
  2261. SendChat("/pay "winner1 . " " lottogw)
  2262. SetTimer, toggggg , 20000
  2263. addchatmessage("{CC0A21}Die PN-Funktion wurde für 20 Sekunden deaktiviert!")
  2264. quizstart := false
  2265. if(verbotenstring != "")
  2266. {
  2267. AddChatMessage("{CC0A21}Teilnehmer auf der Blacklist: " verbotenstring)
  2268. }
  2269. verbotenstring := ""
  2270. }
  2271. }
  2272. }
  2273. return
  2274. toggggg:
  2275. SendChat("/tog")
  2276. Sleep 200
  2277. sendinput {enter}
  2278. sleep 200
  2279. sendinput {esc}
  2280. SetTimer, toggggg , off
  2281. addchatmessage("{CC0A21}Die PN-Funktion wurde wieder aktiviert!")
  2282. return
  2283.  
  2284. :?:/lottostop::
  2285. Suspend Permit
  2286. if(adminrang>0)
  2287. {
  2288. if(quizstart=true)
  2289. {
  2290. SendChat("/o Das Lotto wurde manuell vom ausführenden Teammitglied gestoppt!")
  2291. Settimer, lottoquiz, off
  2292. quizstart := false
  2293. }
  2294. if(quizstart=false)
  2295. {
  2296.         addchatmessage("{247AF0}[System]{FA0C0C} Es wurde von dir bisher kein Lotto gestartet!")
  2297. }
  2298. }
  2299. return
  2300.  
  2301. :?:t/regelwerk::
  2302. username := GetUserName()
  2303. Suspend permit
  2304. If (adminrang>0)
  2305. {
  2306.         showDialog(0, "[GCT] Strafenkatalog [1]", "Wichtig: Vor jeder Strafe kann eine 'Mündliche Verwarnung' erteilt werden.`n`nCarsurf: /kwarn + Slap | Kick | Timeban 15 Min`nBasecamp: Jail 20Min | Timeban 2 Stunden`nVerbotene Interiorflucht: Kick | Timeban 20 Minuten`nDesktop-/Offlineflucht: Jail 30 Minuten | Timeban 2 Stunden`nSinnloses Deathmatch: Kick | Timeban 15 Min |  Fraktionssperre 7 Tage`nNicht erlaubtes Team Deathmatch(Cop): Kick | Timeban 15 Minuten | Fraktionssperre 7 Tage`nDriveby ohne Fahrer: Slap + /kwarn | Jail 10Minuten | Timeban 20 Minuten`nVerleugnung: Mute | /bwarn`nUnangebrachtes Verhalten ggue. anderen: Kick | Timeban 1 Stunde`nRotoren: Jail 20 Minuten`nHeal im Kampf: /kwarn | Timeban 30 Minuten`nAdmin-Chat Abuse: /kwarn | 10 Minuten Mute | Timeban 15 Minuten`nSup-Chat Abuse: /kwarn | 10 Minuten Mute | Timeban 15 Minuten`nDM auf Ergebene: Jail 15 Minuten", "'Close'" )
  2307. }
  2308. else
  2309. {
  2310. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2311. }
  2312. return
  2313.  
  2314. :?:t/regelwerk2::
  2315. username := GetUserName()
  2316. Suspend permit
  2317. If (adminrang>0)
  2318. {
  2319.         showDialog(0, "[GCT] Strafenkatalog [2]", "Wichtig: Vor jeder Strafe kann eine 'Mündliche Verwarnung' erteilt werden.`n`nNoDM Flucht: Jail 15 Minuten`nGbug: /kwarn | Jail 15 Minuten`nDM in NoDM: Jail 15 Minuten`nTotparken: Jail 15 Minuten`nEventstörung: Jail 35 Minuten`nKnast-DM: Jail 10 Minuten`nTicketstörung: Jail 15 Minuten`nDriveby auf Fußgänger: Slap + /kwarn | Jail 10 Minuten | Timeban 20 Minuten`nAbsichtliches Anfahren: /kwarn | Kick | Jail 10 Minuten`nKillbug: Kwarn | Jail 15 Minuten | Timeban 2 Stunden | bei mehrfachen Verstößen bis zu Permban`nNicht einjailen von Wantedlern: Kick | Jail 10 Minuten`nDauerhaftes Ein & Aussteigen: /kwarn | Jail 10 Minuten`nHelfen beim Gangfight(andere Gruppen): /kwarn | für die Restliche Zeit des Biz- bzw. Gangfights im Jail`nNicht im Gebiet erscheinen: Bizfight wird rückgängig gemacht`nHandschellen abnehmen & töten bzw töten lassen: Jail 15 Minuten | Timeban 20 Minuten`nTeamen in den DM-Arenen: Kick | Jail 10 Minuten | Timeban 20 Minuten", "'Close'" )
  2320. }
  2321. else
  2322. {
  2323. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2324. }
  2325. return
  2326.  
  2327. :?:t/svergehen::
  2328. username := GetUserName()
  2329. Suspend permit
  2330. If (adminrang>0)
  2331. {
  2332.         showDialog(0, "[GCT] Schwere Vergehen", "Ausnutzen von Bugs: /bwarn | Permban`nCheaten: Perm+IPBAN`nPersönliche Beleidigung ggü. Admin: Permban`nAnlügen eines Admins: Permban`nFremdwerbung mit Link/IP: IPBAN`nGeldwäsche/Umgehen von Strafen mit MultiACCs: Accountban, beim dritten mal IPBAN`nGegeneinander Ausspielen von Admins: Permban`nDerbypush: 7 Tage Derbysperre`nKorruption: 7 Tage Fraktionssperre", "'Close'" )
  2333. }
  2334. else
  2335. {
  2336. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2337. }
  2338. return
  2339.  
  2340. :?:t/motd::
  2341. UrlDownloadToFile,URL/motd/umotdtext.txt, %ProgPfad%/umotd.txt
  2342. UrlDownloadToFile, URL/motd/amotdtext.txt, %ProgPfad%/amotd.txt
  2343. FileRead, umotdtext, %ProgPfad%/umotd.txt
  2344. FileRead, amotdtext, %ProgPfad%/amotd.txt
  2345. FileDelete, %ProgPfad%/umotd.txt
  2346. FileDelete, %ProgPfad%/amotd.txt
  2347. username := GetUserName()
  2348. Suspend permit
  2349. If (adminrang>0)
  2350. {
  2351. showDialog(0, "Poly-Keybinder ~ Message of the Day", amotdtext, "'Close'" )
  2352. }
  2353. else
  2354. {
  2355. showDialog(0, "Poly-Keybinder ~ Message of the Day", umotdtext, "'Close'" )    
  2356. }
  2357. return
  2358.  
  2359. :?:t/setpassword::
  2360. Suspend Permit
  2361. username := getUsername()
  2362. pwcheck := imp_read("Accounts", username, "password")
  2363. if (pwcheck="0")
  2364. {
  2365. addchatmessage("{CC0A21}Bitte Benutze nicht dein ingame Passwort!")
  2366. accpw := PlayerInput("/setpassword ")
  2367. if(accpw != "")
  2368. {
  2369. setpwforacc := imp_hash(accpw,"sha384")
  2370. setpwforacc := imp_hash(accpw,"whirlpool")
  2371. setpwforacc := imp_hash(accpw,"md5")
  2372. imp_write("Accounts", username, "password", setpwforacc)
  2373. addchatmessage("{247AF0}[System]{F09A24} Dein Passwort wurde erfolgreich gespeichert!")
  2374. }
  2375. else
  2376. {
  2377. addchatmessage("{8C199E}Bitte probiere es erneut..das Passwort war leer")
  2378. }
  2379. }
  2380. else
  2381. {
  2382. addchatmessage("{8C199E}Du besitzt bereits ein Passwort! Vergessen? Meld dich bei mir :)")
  2383. }
  2384. return
  2385.  
  2386.  
  2387. F2::
  2388. If (adminrang<1)
  2389. {
  2390. showDialog(0, "Textbefehle ( A-Rang: 0 )","/setkills`n• /settode`n• /aa (Annehmen Anwalt)`n• /re (Auf PN Antworten)`n• /vd (Vielen Dank!)`n• /ok (Verstanden + Bestaedigt)`n• NUMPAD1 = Waffenkauf`n• /kradio (Radio)`n• /kradiohelp (Hilfe für Radio)`n• /laufscript (An/Ausschalten des Keybinders)`n• /ruh (Ruestung+HP)`n• /gt (Guten Tag)`n• /geintragen (G-Namen eintragen)`n• /gh (Gruppen-Hilfe)`n• /kd (K/D anzeigen)`n• /nh (Need Help - Hilferuf)`n• /abholung (Abholung benoetigt)`n• /grobinfo (Transporter im /g)`n• /lrobinfo (Transporter im Oeffentlichen)`n• /orobinfo (Transporter im /o-Chat)`n• /matspreis (Matspreis ansehen)`n• /matsset (Matspreis setzen)`n• /invitegeld (Geld für Invite festlegen)`n• /ogruppenad (Gruppen-AD im /o senden)`n• /credits`n• /cleo`n• /matsmode`n• /lastmats (Letzten Kauf anzeigen)`n• /resetmats (Stats löschen)`n• /keybinderad (32.000$)`n• /cd (Countdown)`n• /random (Random-Generator)`n• /ovfix", "'Close'" )
  2391. }
  2392. else if(adminrang=1)
  2393. {
  2394. showDialog(0, "Textbefehle ( A-Rang: 1 )","/idquiz`n• /namequiz`n• /lotto`n• /lottogw`n• /lottoz1`n• /lottoz2`n• /randomwin`n• /autoduty`n• /nf (Noch Fragen im /sup)`n• /bye (/ct im Ticket mit Verabschiedung)`n• /snd (/sup noch da?)`n• /regelwerk`n• /regelwerk2`n• /svergehen`n• /beleidigungen`n• /oinfo`n• /flame`n• /lbel`n• /mbel`n• /sbel`n• /matsfix`n• /oinfofix", "'Close'" )
  2395. }
  2396. else if(adminrang=2)
  2397. {
  2398. showDialog(0, "Textbefehle ( A-Rang: 2 )","/idquiz`n• /namequiz`n• /lotto`n• /lottogw`n• /lottoz1`n• /lottoz2`n• /randomwin`n• /autoduty`n• /nf (Noch Fragen im /sup)`n• /bye (/ct im Ticket mit Verabschiedung)`n• /snd (/sup noch da?)`n• /regelwerk`n• /regelwerk2`n• /svergehen`n• /beleidigungen`n• /oinfo`n• /flame`n• /lbel`n• /mbel`n• /sbel`n• /matsfix`n• /oinfofix`n• /carsurf`n• /kontrolle", "'Close'" )
  2399. }
  2400. else if(adminrang=3)
  2401. {
  2402. showDialog(0, "Textbefehle ( A-Rang: 3 )","/idquiz`n• /namequiz`n• /lotto`n• /lottogw`n• /lottoz1`n• /lottoz2`n• /randomwin`n• /autoduty`n• /nf (Noch Fragen im /sup)`n• /bye (/ct im Ticket mit Verabschiedung)`n• /snd (/sup noch da?)`n• /regelwerk`n• /regelwerk2`n• /svergehen`n• /beleidigungen`n• /oinfo`n• /flame`n• /lbel`n• /mbel`n• /sbel`n• /matsfix`n• /oinfofix`n• /oanschalten`n• /oabschalten`n• /carsurf`n• /kontrolle`n• /quizblacklist`n• /ncb (Namechange-BAN)", "'Close'" )
  2403. }
  2404. else if(adminrang=4)
  2405. {
  2406. showDialog(0, "Textbefehle ( A-Rang: 3 )","/idquiz`n• /namequiz`n• /lotto`n• /lottogw`n• /lottoz1`n• /lottoz2`n• /randomwin`n• /autoduty`n• /nf (Noch Fragen im /sup)`n• /bye (/ct im Ticket mit Verabschiedung)`n• /snd (/sup noch da?)`n• /regelwerk`n• /regelwerk2`n• /svergehen`n• /beleidigungen`n• /oinfo`n• /flame`n• /lbel`n• /mbel`n• /sbel`n• /matsfix`n• /oinfofix`n• /oanschalten`n• /oabschalten`n• /carsurf`n• /kontrolle`n• /quizblacklist`n• /ncb (Namechange-BAN)", "'Close'" )
  2407. }
  2408. else if(adminrang=5)
  2409. {
  2410. showDialog(0, "Textbefehle ( A-Rang: 5 (God) )","/idquiz`n• /namequiz`n• /lotto`n• /lottogw`n• /lottoz1`n• /lottoz2`n• /randomwin`n• /autoduty`n• /nf (Noch Fragen im /sup)`n• /bye (/ct im Ticket mit Verabschiedung)`n• /snd (/sup noch da?)`n• /regelwerk`n• /regelwerk2`n• /svergehen`n• /beleidigungen`n• /oinfo`n• /flame`n• /lbel`n• /mbel`n• /sbel`n• /useronline`n• /onlinefix`n• /setrank`n• /matsfix`n• /oinfofix`n• /oanschalten`n• /oabschalten`n• /carsurf`n• /kontrolle`n• /quizblacklist`n• /ncb (Namechange-BAN)", "'Close'" )
  2411. }
  2412. return
  2413.  
  2414.  
  2415. :?:t/setrank::
  2416. username := GetUserName()
  2417. If (adminrang>4)
  2418. {
  2419. ranguser := PlayerInput("/User: ")
  2420. if(!imp_row_exist("Accounts",ranguser))
  2421. {
  2422.         addchatmessage("{CC0A21}[Fehler] Der User wurde nicht gefunden")
  2423. }
  2424. else
  2425.         {
  2426.                 rangget := PlayerInput("/Welchen Rank soll '" ranguser . "' erhalten: ")
  2427.                 if(rangget = 0 || rangget = 1 || rangget = 2 || rangget = 3 || rangget = 4 || rangget = 5 || rangget = -2)
  2428. {
  2429.         oldrang := imp_read("Accounts",ranguser,"Rank")
  2430.                 imp_write("Accounts",ranguser,"Rank",rangget)
  2431.                 imp_write("Accounts",ranguser,"Rankgive",GetUserName())
  2432.                 addchatmessage("{02C8F5}Der User {F52B02}" ranguser . "{02C8F5} wurde von Rank {F52B02}" oldrang . "{02C8F5} auf Rank {F52B02}" rangget . "{02C8F5} gestuft!")
  2433.                 imp_mail("DEINEEMAIL", "Rank-System", "Keybinder-Administrator " GetUserName() " hat den Nutzer " ranguser " den Rang " rangget " gegeben!")
  2434.                 SendChat("/id " ranguser)
  2435.                 sleep 150
  2436.                 GetChatLine(0, ischerda)
  2437.                 If(!instr(ischerda, "Spieler ist nicht Online"))
  2438.                 {
  2439.                 if(rangget = -2)
  2440.                 {
  2441.                 SendChat("/do " ranguser " Du wurdest vom Keybinder-Administrator " GetUserName() " auf die Keybinder-Blacklist gesetzt!")
  2442.                 }
  2443.                 else
  2444.                 {
  2445.                 SendChat("/do " ranguser " Du wurdest vom Keybinder-Administrator " GetUserName() " auf den Keybinder-Rang " rangget " gestuft!")
  2446.                 }
  2447.         }
  2448. }      
  2449. else
  2450. {
  2451.                 addchatmessage("{CC0A21}[Fehler] Es gehen nur die Ränge von 1-5")
  2452.         return
  2453. }
  2454. }
  2455. }
  2456. else
  2457. {
  2458. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2459. }
  2460. return
  2461.  
  2462.  
  2463. :?:t/lottogw::
  2464. Suspend Permit
  2465. username := GetUserName()
  2466. If (adminrang>0)
  2467. {
  2468. addchatmessage("{CC0A21}Bitte gebe nun den Gewinn ein!")
  2469. SendInput /lottogw{Space}
  2470. Input lottogwt,V I M,{enter}
  2471. SendInput t{end}+{home}{esc}
  2472. if(lottogwt = "")
  2473. {
  2474. addchatmessage("{CC0A21}Du hast keinen Gewinn eingegeben! Bitte tätige es erneut")
  2475. }
  2476. else
  2477. {
  2478. addchatmessage("{CC0A21}Der Gewinn wurde auf " lottogwt . "$ gesetzt!")
  2479. IniWrite, %lottogwt%, %Ini%, Lotto, lottogw
  2480. }
  2481. }
  2482. return
  2483.  
  2484. :?:t/lottoz1::
  2485. Suspend Permit
  2486. username := GetUserName()
  2487. If (adminrang>0)
  2488. {
  2489. addchatmessage("{CC0A21}Bitte gebe nun die 1. Zahl ein")
  2490. SendInput /lottoz1{Space}
  2491. Input lottoz1t,V I M,{enter}
  2492. SendInput t{end}+{home}{esc}
  2493. if(lottoz1t = "")
  2494. {
  2495. addchatmessage("{CC0A21}Du hast keine Zahl eingegeben! Bitte tätige es erneut")
  2496. }
  2497. else
  2498. {
  2499. addchatmessage("{CC0A21}Die 1. Zahl wurde auf '" lottoz1t . "' gesetzt!")
  2500. IniWrite, %lottoz1t%, %Ini%, Lotto, lottoz1
  2501. }
  2502. }
  2503. return
  2504.  
  2505. :?:t/lottoz2::
  2506. Suspend Permit
  2507. username := GetUserName()
  2508. If (adminrang>0)
  2509. {
  2510. addchatmessage("{CC0A21}Bitte gebe nun die 2. Zahl ein")
  2511. SendInput /lottoz2{Space}
  2512. Input lottoz2t,V I M,{enter}
  2513. SendInput t{end}+{home}{esc}
  2514. if(lottoz2t = "")
  2515. {
  2516. addchatmessage("{CC0A21}Du hast keine Zahl eingegeben! Bitte tätige es erneut")
  2517. }
  2518. else
  2519. {
  2520. addchatmessage("{CC0A21}Die 2. Zahl wurde auf '" lottoz2t . "' gesetzt!")
  2521. IniWrite, %lottoz2t%, %Ini%, Lotto, lottoz2
  2522. }
  2523. }
  2524. return
  2525.  
  2526. :?:t/setkills::
  2527. Suspend Permit
  2528. addchatmessage("{02C8F5}[Kills] Bitte gebe nun die Kills an")
  2529. SendInput /setkills{Space}
  2530. Input setkills,V I M,{enter}
  2531. SendInput t{end}+{home}{esc}
  2532. if(setkills = "")
  2533. {
  2534. addchatmessage("{CC0A21}Du musst eine Zahl eingeben!")
  2535. }
  2536. else
  2537. {
  2538. IniRead, killsch, %Ini%, Statistiken, Mord
  2539. IniWrite, %setkills%, %Ini%, Statistiken, Mord
  2540. addchatmessage("{02C8F5}[Die Kills wurden von {F52B02}" killsch . "{02C8F5} auf {F52B02}" setkills . "{02C8F5} gesetzt!]")
  2541. }
  2542. return
  2543.  
  2544. :?:t/settode::
  2545. Suspend Permit
  2546. addchatmessage("{02C8F5}[Tode] Bitte gebe nun die Tode ein")
  2547. SendInput /settode{Space}
  2548. Input settode,V I M,{enter}
  2549. SendInput t{end}+{home}{esc}
  2550. if(settode = "")
  2551. {
  2552. addchatmessage("{CC0A21}Du musst eine Zahl eingeben!")
  2553. }
  2554. else
  2555. {
  2556. IniRead, todesch, %Ini%, Statistiken, Tode
  2557. IniWrite, %settode%, %Ini%, Statistiken, Tode
  2558. addchatmessage("{02C8F5}[Die Tode wurden von {F52B02}" todesch . "{02C8F5} auf {F52B02}" settode . "{02C8F5} gesetzt!]")
  2559. }
  2560. return
  2561.  
  2562. :?:t/oinfo::
  2563. Suspend Permit
  2564. if(adminrang>0)
  2565. {
  2566. useroinfo := imp_read("mats","oinfo","melder")
  2567. timeoinfo := imp_read("mats","oinfo","wann")
  2568. aktuelltime := A_DD "." A_MM "." A_YYYY " um "
  2569. timewannwieder := imp_read("mats","oinfo","stundedanach")
  2570. timewannwieder2 := imp_read("mats","oinfo","minute")
  2571. if(useroinfo != "" || timeoinfo != "" || timewannwieder != "" || timewannwieder2 != "")
  2572. {
  2573. wvuhrdann := aktuelltime . timewannwieder2 . ":" timewannwieder
  2574. addchatmessage("{D31AD9}[Wichtig] {CFD91A}/oinfo funktioniert nur alle 15 Minuten")
  2575. addchatmessage("{D31AD9}Nächste Möglichkeit: {CFD91A}" wvuhrdann " Uhr")
  2576. }
  2577. else if (useroinfo = "" || timeoinfo = "" || timewannwieder = "" || timewannwieder2 = "")
  2578. {
  2579. SendChat("/o Fragen oder Probleme? ->[/sup]<- | Cheater oder Bugs entdeckt? ->[/a]<-")
  2580. imp_write("mats","oinfo","melder",GetUserName())
  2581. aktuelltime := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min
  2582. imp_write("mats","oinfo","wann",aktuelltime)
  2583. minutecheck := A_Min+15
  2584. if(minutecheck>59)
  2585. {
  2586. dadazeit := minutecheck-A_Min
  2587. stundenzeit := A_Hour
  2588. if(stundenzeit = 1)
  2589. {
  2590. stundenzeit := 01
  2591. }
  2592. else if(stundenzeit = 2)
  2593. {
  2594. stundenzeit := 02
  2595. }
  2596. else if(stundenzeit = 3)
  2597. {
  2598. stundenzeit := 03
  2599. }
  2600. else if(stundenzeit = 4)
  2601. {
  2602. stundenzeit := 04
  2603. }
  2604. else if(stundenzeit = 5)
  2605. {
  2606. stundenzeit := 05
  2607. }
  2608. else if(stundenzeit = 6)
  2609. {
  2610. stundenzeit := 06
  2611. }
  2612. else if(stundenzeit = 7)
  2613. {
  2614. stundenzeit := 07
  2615. }
  2616. else if(stundenzeit = 8)
  2617. {
  2618. stundenzeit := 08
  2619. }
  2620. else if(stundenzeit = 9)
  2621. {
  2622. stundenzeit := 09
  2623. }
  2624. stundenzeit := stundenzeit+1
  2625. }
  2626. else
  2627. {
  2628. dadazeit := minutecheck
  2629. stundenzeit := A_Hour
  2630. if(stundenzeit = 1)
  2631. {
  2632. stundenzeit := 01
  2633. }
  2634. else if(stundenzeit = 2)
  2635. {
  2636. stundenzeit := 02
  2637. }
  2638. else if(stundenzeit = 3)
  2639. {
  2640. stundenzeit := 03
  2641. }
  2642. else if(stundenzeit = 4)
  2643. {
  2644. stundenzeit := 04
  2645. }
  2646. else if(stundenzeit = 5)
  2647. {
  2648. stundenzeit := 05
  2649. }
  2650. else if(stundenzeit = 6)
  2651. {
  2652. stundenzeit := 06
  2653. }
  2654. else if(stundenzeit = 7)
  2655. {
  2656. stundenzeit := 07
  2657. }
  2658. else if(stundenzeit = 8)
  2659. {
  2660. stundenzeit := 08
  2661. }
  2662. else if(stundenzeit = 9)
  2663. {
  2664. stundenzeit := 09
  2665. }
  2666. }
  2667. imp_write("mats","oinfo","stundedanach",dadazeit)
  2668. imp_write("mats","oinfo","minute",stundenzeit)
  2669. }
  2670. }
  2671. else
  2672. {
  2673. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  2674. }
  2675. return
  2676.  
  2677. :?:t/flame::
  2678. Suspend Permit
  2679. if (adminrang>0)
  2680. SendInput /mute{space}{space}3{space}flame{left 8}
  2681. return
  2682.  
  2683. :?:t/lbel::
  2684. Suspend Permit
  2685. if (adminrang>0)
  2686. SendInput /mute{space}{space}5{space}Leichte Beleidigung{left 22}
  2687. return
  2688.  
  2689. :?:t/mbel::
  2690. Suspend Permit
  2691. if (adminrang>0)
  2692. SendInput /mute{space}{space}20{space}Mittlere Beleidigung{left 24}
  2693. return
  2694.  
  2695. :?:t/sbel::
  2696. Suspend Permit
  2697. if (adminrang>0)
  2698. SendInput /mute{space}{space}35{space}Schwere Beleidigung{left 23}
  2699. return
  2700.  
  2701. :?:t/aspam::
  2702. Suspend Permit
  2703. if (adminrang>0)
  2704. SendInput /amute{space}{space}10{space}Spam{left 8}
  2705. return
  2706.  
  2707. :?:t/adabuse::
  2708. Suspend Permit
  2709. if (adminrang>0)
  2710. SendInput /adlock{space}{space}240{space}/ad Abuse{left 14}
  2711. return
  2712.  
  2713. :?:t/laufscript::
  2714. Suspend, permit
  2715. SendInput {enter}
  2716. iniRead, laufscriptaktiv, %Ini%, Laufscript, Status
  2717. if (laufscriptaktiv = "off")
  2718. {
  2719. laufscriptaktiv := "on"
  2720. IniWrite, %laufscriptaktiv%, %Ini%, Laufscript, Status
  2721. addchatmessage("{02C8F5}[Laufscript]{14E01B} >>Aktiviert<<")
  2722. }
  2723. else if (laufscriptaktiv = "on")
  2724. {
  2725. laufscriptaktiv := "off"
  2726. IniWrite, %laufscriptaktiv%, %Ini%, Laufscript, Status
  2727. addchatmessage("{02C8F5}[Laufscript]{F20707} >>Deaktiviert<<")
  2728. }
  2729. Suspend Off
  2730. return
  2731.  
  2732. ~Space::
  2733. if(isInChat()==1 || IsPlayerInAnyVehicle()==1 || laufscriptaktiv == "off")
  2734. return
  2735. Sleep 30
  2736. while GetKeyState("Space", "P")
  2737. {
  2738. Send {space down}
  2739. Sleep 1
  2740. Send {space up}
  2741. Sleep 1
  2742. }
  2743. return
  2744.  
  2745. :?:t/re::
  2746. Suspend Permit
  2747. Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
  2748. {
  2749. If (!A_LoopReadLine)
  2750. Continue
  2751. If (InStr(A_LoopReadLine, "PN von ",12)) {
  2752. pntext := SubStr(A_LoopReadLine, 12)
  2753. RegExMatch(pntext, "PN von (.*)\: (.*)" ,aw)
  2754. user := aw1
  2755. text := aw2
  2756. }
  2757. }
  2758. if(user != "" || text != "")
  2759. {
  2760. addchatmessage("{49D167}[PN-System] {0D57E0}Letze PN von: {FC8E0F}" user . " {49D167}| {0D57E0}Nachricht: {FC8E0F}" text)
  2761. SendInput /pn %user%{space}
  2762. }
  2763. return
  2764.  
  2765.  
  2766. :?:t/vd::
  2767. Suspend Permit
  2768. SendInput {enter}
  2769. SendChat("Vielen Dank!")
  2770. Suspend Off
  2771. return
  2772.  
  2773. :?:t/kradio::
  2774. Suspend Permit
  2775. SendInput {enter}
  2776. addchatmessage("{49D167}[Keybinder-Radio] {0D57E0}/kradio {FC8E0F}[iloveradio|tbfm|htfm|hbfm|close] {49D167}(Hilfe: /kradiohelp)")
  2777. if(aktr = "")
  2778. {
  2779.         aktr := "-"
  2780. }
  2781. addchatmessage("{49D167}[Keybinder-Radio] Derzeit hörst du: {FC8E0F}" aktr)
  2782. kradio := PlayerInput("/kradio ")
  2783. if(kradio = "iloveradio")
  2784. {
  2785.         stopAudioStream()
  2786.         PlayAudioStream("URL/Radio/iloveradio.m3u")
  2787.         aktr := "ILoveRadio"
  2788.         addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
  2789. }
  2790. if(kradio = "tbfm")
  2791. {
  2792.         stopAudioStream()
  2793.         PlayAudioStream("URL/Radio/tb.pls")
  2794.         aktr := "Technobase.FM"
  2795.         addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
  2796. }
  2797. if(kradio = "htfm")
  2798. {
  2799.         stopAudioStream()
  2800.         PlayAudioStream("URL/Radio/htfm.pls")
  2801.         aktr := "Housetime.FM"
  2802.         addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
  2803. }
  2804. if(kradio = "hbfm")
  2805. {
  2806.         stopAudioStream()
  2807.         PlayAudioStream("URL/Radio/hbfm.pls")
  2808.         aktr := "HardBase.FM"
  2809.         addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
  2810. }
  2811. if(kradio = "close")
  2812. {
  2813.         stopAudioStream()
  2814.         aktr := "-Nothing-"
  2815.         addchatmessage("{49D167}[Keybinder-Radio] Das Radio wurde gestoppt!")
  2816. }
  2817. return
  2818.  
  2819. :?:/kradiohelp::
  2820. Suspend Permit
  2821. ShowDialog(0, "[Keybinder-Radio|Help]","Name: | Radio:`n`niloveradio | ILoveRadio.de`ntbfm | Technobase.FM`nhtfm | Housetime.FM`nhbfm | Hardbase.FM`nClose | schaltet das Radio aus", "Close")
  2822. return
  2823.  
  2824. :?:t/gt::
  2825. Suspend Permit
  2826. SendInput {enter}
  2827. SendChat("Guten Tag, wie kann ich Ihnen weiterhelfen?")
  2828. Suspend Off
  2829. return
  2830.  
  2831. :?:t/ruh::
  2832. Suspend Permit
  2833. SendInput, {enter}
  2834. SendChat("/kaufwaffe")
  2835. sleep 200
  2836. SendInput {enter}
  2837. Sleep 200
  2838. SendInput {esc}
  2839. SendChat("/heal")
  2840. Suspend Off
  2841. return
  2842.  
  2843. :?:t/geintragen::
  2844. Suspend Permit
  2845. addchatmessage("{49D167}Bitte gebe nun deinen Gruppen-Namen ein!")
  2846. geintragen := PlayerInput("/geintragen ")
  2847. InIWrite, %geintragen%, %Ini%, GH, Gruppe
  2848. addchatmessage("{49D167}Die Gruppe: {FC8E0F}" geintragen " {49D167}wurde eingetragen")
  2849. Suspend Off
  2850. return
  2851.  
  2852. :?:t/gh::
  2853. Suspend Permit
  2854. SendInput, {enter}
  2855. IniRead, geintragen, %Ini%, GH, Gruppe
  2856. if(geintragen = "ERROR")
  2857. {
  2858. addchatmessage("{49D167}Du hast keine Gruppe angegeben! (/geintragen)")
  2859. }
  2860. else
  2861. {
  2862. SendChat("Die Hilfe der " . geintragen . " steht ihnen immer zur Verfügung!")
  2863. }
  2864. Suspend Off
  2865. return
  2866.  
  2867. :?:t/nh::
  2868. Suspend Permit
  2869. SendInput, {enter}
  2870. hp := GetPlayerHealth()
  2871. armor := GetPlayerArmor()
  2872. vehp := GetVehicleHealth()
  2873. vename := GetVehicleModelName()
  2874. c := getcoordinates()
  2875. calczone := CalculateZone(c[1], c[2], c[3])
  2876. calccity := calculateCity(c[1],c[2],c[3])
  2877. plid := GetPlayerIdByName(GetUserName())
  2878. ping := GetPlayerPingbyId(plid)
  2879. SendChat("/g Ich benötige dringend Hilfe in " . calczone . ", " . calccity)
  2880. sleep 1000
  2881. SendChat("/g Mein Leben: " . hp . " | Meine Rüstung: " . armor . " | Ping: " ping)
  2882. if(IsPlayerInAnyVehicle() = 1)
  2883. {
  2884.         sleep 1000
  2885.         SendChat("/g Fahrzeug: " . vename . " | Car-HP: " . vehp)
  2886. }
  2887. Suspend Off
  2888. return
  2889.  
  2890. :?:t/ok::
  2891. Suspend Permit
  2892. SendInput, {enter}
  2893. SendChat("/g Verstanden & Bestätigt")
  2894. return
  2895.  
  2896. :?:t/abholung::
  2897. Suspend Permit
  2898. SendInput, {enter}
  2899. c := getcoordinates()
  2900. calczone := CalculateZone(c[1], c[2], c[3])
  2901. calccity := calculateCity(c[1],c[2],c[3])
  2902. SendChat("/g Ich benoetige eine Abholung in " . calczone . ", " . calccity)
  2903. return
  2904.  
  2905. :?:t/kd::
  2906. Suspend Permit
  2907. SendInput, {enter}
  2908. IniRead, mykills, %Ini%, Statistiken, Mord, 0
  2909. IniRead, mytode, %Ini%, Statistiken, Tode, 0
  2910. if(mytode = 0)
  2911. {
  2912. mykd := 0
  2913. }
  2914. else
  2915. {
  2916. mykd := mykills/mytode
  2917. }
  2918. SendChat("/g [Statistiken] Kills: " . mykills . " | Tode: " . mytode . " | K/D: " . mykd)
  2919. Suspend Off
  2920. return
  2921.  
  2922. :?:t/grobinfo::
  2923. Suspend Permit
  2924. SendInput {enter}
  2925. transtime := imp_read("transporter", "transporter", "wann")
  2926. SendChat("/g [Info] Der nächste Transporter fährt am " . transtime . " Uhr los!")
  2927. Suspend Off
  2928. return
  2929.  
  2930. :?:t/orobinfo::
  2931. Suspend Permit
  2932. SendInput {enter}
  2933. transtime := imp_read("transporter", "transporter", "wann")
  2934. SendChat("/o [Info] Der nächste Transporter fährt am " . transtime . " Uhr los!")
  2935. Suspend Off
  2936. return
  2937.  
  2938. :?:t/lrobinfo::
  2939. Suspend Permit
  2940. SendInput {enter}
  2941. transtime := imp_read("transporter", "transporter", "wann")
  2942. SendChat("[Info] Der nächste Transporter fährt am " . transtime . " Uhr los!")
  2943. Suspend Off
  2944. return
  2945.  
  2946.  
  2947. Trans:
  2948. ;CheckTransporter()
  2949. FormatTime, Datum , %A_Now%, dd.MM.yyyy
  2950. FormatTime,stunden,,HH
  2951. FormatTime,minuten,,mm
  2952. wanntrans := imp_read("transporter","transporter","wann")
  2953. jetzttime := Datum " um " . stunden . ":" minuten
  2954. if(wanntrans = jetzttime)
  2955. {
  2956. imp_write("transporter","transporter","wann", "0")
  2957. imp_write("transporter","transporter","melder","System")
  2958. showGameText("Der Transporter startet nun!", 2000, 5)
  2959. addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
  2960. }
  2961. ;Matswanncheck()
  2962. FormatTime, Datum , %A_Now%, dd.MM.yyyy
  2963. FormatTime,stunden,,HH
  2964. FormatTime,minuten,,mm
  2965. Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min
  2966. matswanncheck := imp_read("mats","mats","wann")
  2967. matszeitdanach := imp_read("mats","mats","stundedanach")
  2968. matstimer := Datum . " um " . matszeitdanach . ":59"
  2969. if(Uhrzeit = matstimer)
  2970. {
  2971. imp_write("mats","mats","melder","")
  2972. imp_write("mats","mats","wann","")
  2973. imp_write("mats","mats","preis","")
  2974. imp_write("mats","mats","stundedanach","")
  2975. addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
  2976. }
  2977. else
  2978. {
  2979. }
  2980. ;OInfo-Timer()
  2981. rightnow := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min
  2982. williwillswissen := imp_read("mats","oinfo","stundedanach")
  2983. williwillswissen2 := imp_read("mats","oinfo","minute")
  2984. testtime := A_DD "." A_MM "." A_YYYY " um " . williwillswissen2 . ":" . williwillswissen
  2985. if(rightnow = testtime)
  2986. {
  2987. imp_write("mats","oinfo","melder","")
  2988. imp_write("mats","oinfo","wann","")
  2989. imp_write("mats","oinfo","stundedanach","")
  2990. imp_write("mats","oinfo","minute","")
  2991. addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
  2992. }
  2993. return
  2994.  
  2995. :?:t/matsset::
  2996. Suspend Permit
  2997. matsset := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
  2998. matsschonvon := imp_read("mats","mats","melder")
  2999. matsschonpreis := imp_read("mats","mats","preis")
  3000. matsschonwann := imp_read("mats","mats","wann")
  3001. if(matsschonvon = "" || matsschonpreis = "0" || matsschonwann = "")
  3002. {
  3003. addchatmessage("{34C9B8}Mit diesem Befehl kannst du den Mats-Preis verkünden!")
  3004. addchatmessage("{34C9B8}!Solltest du hier falsche Info's angeben ==> Keybinder-Blacklist!")
  3005. addchatmessage("{34C9B8}WICHTIG: Bitte gib nur den Preis ein!!!")
  3006. matspreis := PlayerInput("/matsset ")
  3007. if matspreis is not integer
  3008. {
  3009.         addchatmessage("{49D167}[Fehler] Es sind nur ZAHLEN als Matspreis erlaubt!")
  3010. }
  3011. else
  3012. {
  3013.         imp_write("mats","mats","melder",GetUserName())
  3014.         imp_write("mats","mats","wann",matsset)
  3015.         imp_write("mats","mats","preis",matspreis)
  3016.         imp_write("mats","mats","stundedanach",A_Hour)
  3017.         addchatmessage("{E6BA0B}Danke für deine Meldung..den Matspreis sehen nun alle Spieler!")
  3018.         addchatmessage("{49D167}Preis: {E6BA0B}" . matspreis . "{49D167}$ | Wann: {E6BA0B}" . matsset . " {49D167}| Meldung von: {E6BA0B}" GetUserName())
  3019.         imp_mail("DEINEEMAIL", "MATSPREIS-Change", "Preis: " . matspreis . "$ | Wann: " . matsset . " | Meldung von: " GetUserName())
  3020. }
  3021. }
  3022. else
  3023. {
  3024. addchatmessage("{49D167}[Matspreis] Der Matspreis wurde bereits eingetragen")
  3025. addchatmessage("{49D167}[Matspreis] Preis: {E6BA0B}" . matsschonpreis . "{49D167}$ | Uhrzeit: {E6BA0B}" matsschonwann)
  3026. }
  3027. return
  3028.  
  3029. :?:t/matspreis::
  3030. matsschonvon := imp_read("mats","mats","melder")
  3031. matsschonpreis := imp_read("mats","mats","preis")
  3032. matsschonwann := imp_read("mats","mats","wann")
  3033. if(matsschonvon = "" || matsschonpreis = "" || matsschonwann = "")
  3034. {
  3035. addchatmessage("{49D167}[Matspreis] Es wurde bisher kein Matspreis eingefügt!")
  3036. }
  3037. else
  3038. {
  3039. zweihundertfünfzigmatspreis := matsschonpreis*250
  3040. addchatmessage("{49D167}[Matspreis] Preis: {E6BA0B}" . matsschonpreis . "{49D167}$ (250 Mats = " nummerformat(zweihundertfünfzigmatspreis) "$) | Last-Check: {E6BA0B}" matsschonwann " von {6CF888}" matsschonvon)
  3041. }
  3042. return
  3043.  
  3044. :?:t/ogruppenad::
  3045. Suspend Permit
  3046. SendInput {enter}
  3047. IniRead, geintragen, %Ini%, GH, Gruppe, 0
  3048. IniRead, gruppengeld, %Ini%, GH, IVGeld, 0
  3049. if(geintragen = 0 || gruppengeld = 0)
  3050. {
  3051. addchatmessage("{F50F1A}Der Gruppenname oder das Invitegeld fehlt")
  3052. addchatmessage("{F50F1A}Syntax: /invitegeld & /geintragen")
  3053. }
  3054. else
  3055. {
  3056. SendChat("/o Die Gruppe " . geintragen . " sucht Mitglieder! Interesse geweckt ? /pn")
  3057. SendChat("/o Voraussetzungen: Schusstest & " . nummerformat(gruppengeld) . "$")
  3058. }
  3059. Suspend Off
  3060. return
  3061.  
  3062. :?:t/invitegeld::
  3063. Suspend Permit
  3064. SendInput {enter}
  3065. addchatmessage("{49D167}[Gruppen-AD] Wie viel soll ein neues Mitglied zahlen?")
  3066. geldinvite := PlayerInput("/invitegeld ")
  3067. if geldinvite is not Integer
  3068. {
  3069. addchatmessage("{F50F1A}Es sind nur Zahlen erlaubt!")
  3070. }
  3071. else
  3072. {
  3073. IniWrite, %geldinvite%, %Ini%, GH, IVGeld
  3074. addchatmessage("{49D167}[Gruppen-AD] Das Geld wurde auf {0DE03F}" . nummerformat(geldinvite) . "{49D167}$ gesetzt")
  3075. }
  3076. Suspend Off
  3077. return
  3078.  
  3079. :?:t/credits::
  3080. Suspend Permit
  3081. ShowDialog(0, "[Poly-Keybinder - Credits]", "Creator: Polyethylen`nIn Kooperation mit Dentafa & Douq`nBETA-Tester: liq, SkyLINE, Jason_Diamond`n---------------------------------------------------------`n`nEinen riesen Dank an meine Helfer:`n• David_Loeh`n• Jamie`n• liq`n• SkyLINE`n• Jason_Diamond`n• ILUMiNaTi (GUI Designer)`nChris_Ancelotti`n---------------------------------------------------------`n`nMit Freundlichen Grüßen,`nPolyethylen", "-Close-")
  3082. Suspend Off
  3083. return
  3084.  
  3085. :?:t/cleo::
  3086. Suspend Permit
  3087. SendInput {enter}
  3088. addchatmessage("{C8A269}[Cleo]{698FC8} Syntax: [Modname|Info]")
  3089. addchatmessage("{C8A269}[Modname]{698FC8} HPArmorDigital | DIGIHP | memory2048 | Zonetext | hpverlust")
  3090. RegRead gtapfad, HKEY_CURRENT_USER, Software\SAMP, gta_sa_exe
  3091. StringTrimRight, gtapfad, gtapfad, 10
  3092. cleogta := gtapfad "cleo"
  3093. cleocheeeeck := PlayerInput("/cleo ")
  3094. if(cleocheeeeck = "")
  3095. {
  3096. addchatmessage("{49D167}Syntax: [Modname|Info]")
  3097. }
  3098. else
  3099. {
  3100. IfNotExist, %cleogta%
  3101. {
  3102. addchatmessage("{49D167}[Cleo] {698FC8}Du besitzt kein Cleo!")
  3103. return
  3104. }
  3105. IfExist, %cleogta%
  3106. {
  3107. if(cleocheeeeck = "HPArmorDigital" || cleocheeeeck = "hparmordigital")
  3108. {
  3109. cleodigihparmor := cleogta . "\HPArmorDigital.cs"
  3110. IfNotExist, %cleodigihparmor%
  3111. {
  3112. addchatmessage("{C8A269}[Mods] {698FC8}HPArmorDigital.cs wurde erfolgreich Installier (Relog nötig)")
  3113. urldownloadtofile, URL/mods/HPArmorDigital.cs, %cleodigihparmor%
  3114. return
  3115. }
  3116. ifExist, %cleodigihparmor%
  3117. {
  3118. addchatmessage("{C8A269}[Mods] {698FC8}HPArmorDigital.cs wurde nicht installiert (Existiert bereits)")
  3119. }
  3120. }
  3121.  
  3122. if(cleocheeeeck = "DIGIHP" || cleocheeeeck = "digihp")
  3123. {
  3124. cleodigihp := cleogta . "\digihp.cs"
  3125. IfNotExist, %cleodigihp%
  3126. {
  3127. addchatmessage("{C8A269}[Mods] {698FC8}digihp.cs wurde erfolgreich Installiert (Relog nötig)")
  3128. urldownloadtofile, URL/mods/digihp.cs, %cleodigihp%
  3129. return
  3130. }
  3131. ifExist, %cleodigihp%
  3132. {
  3133. addchatmessage("{C8A269}[Mods] {698FC8}digihp.cs wurde nicht installiert (Existiert bereits)")
  3134. }
  3135. }
  3136.  
  3137. if(cleocheeeeck = "memory2048" || cleocheeeeck = "Memory2048")
  3138. {
  3139. cleomemory := cleogta . "\memory2048.cs"
  3140. IfNotExist, %cleomemory%
  3141. {
  3142. addchatmessage("{C8A269}[Mods] {698FC8}memory2048.cs wurde erfolgreich Installiert (Relog nötig)")
  3143. urldownloadtofile, URL/mods/memory2048.cs, %cleomemory%
  3144. return
  3145. }
  3146. ifExist, %cleomemory%
  3147. {
  3148. addchatmessage("{C8A269}[Mods] {698FC8}memory2048.cs wurde nicht installiert (Existiert bereits)")
  3149. }
  3150. }
  3151.  
  3152. if(cleocheeeeck = "Zonetext" || cleocheeeeck = "zonetext")
  3153. {
  3154. cleozonetext := cleogta . "\zonetext.cs"
  3155. IfNotExist, %cleozonetext%
  3156. {
  3157. addchatmessage("{C8A269}[Mods] {698FC8}Zonetext.cs wurde erfolgreich Installiert (Relog nötig)")
  3158. urldownloadtofile, URL/mods/zonetext.cs, %cleozonetext%
  3159. return
  3160. }
  3161. ifExist, %cleozonetext%
  3162. {
  3163. addchatmessage("{C8A269}[Mods] {698FC8}Zonetext.cs wurde nicht installiert (Existiert bereits)")
  3164. }
  3165. }
  3166.  
  3167. if(cleocheeeeck = "hpverlust")
  3168. {
  3169. cleohpverlust := cleogta . "\hpverlust.cs"
  3170. IfNotExist, %cleohpverlust%
  3171. {
  3172. addchatmessage("{C8A269}[Mods] {698FC8}hpverlust.cs wurde erfolgreich Installiert (Relog nötig)")
  3173. urldownloadtofile, URL/mods/hpverlust.cs, %cleohpverlust%
  3174. return
  3175. }
  3176. IfExist, %cleohpverlust%
  3177. {
  3178. addchatmessage("{C8A269}[Mods] {698FC8}hpverlust.cs wurde nicht installiert (Existiert bereits)")
  3179. }
  3180. }
  3181.  
  3182. if(cleocheeeeck = "Info" || cleocheeeeck = "info")
  3183. {
  3184. addchatmessage("{C8A269}[Info] {698FC8}Diese Funktion installiert Legale Cleomods!")
  3185. addchatmessage("{C8A269}[Info] {698FC8}Falls ihr diese nicht mehr möchtet müsst ihr sie löschen")
  3186. }
  3187. }
  3188. }
  3189. return
  3190.  
  3191. :?:t/oinfofix::
  3192. Suspend Permit
  3193. SendInput, {enter}
  3194. if(adminrang>2)
  3195. {
  3196. imp_write("mats","oinfo","melder","")
  3197. imp_write("mats","oinfo","wann","")
  3198. imp_write("mats","oinfo","stundedanach","")
  3199. imp_write("mats","oinfo","minute","")
  3200. imp_mail("DEINEEMAIL", "O-InfoFIX", "Keybinder-Administrator " GetUserName() " hat den Befehl /oinfofix verwendet!")
  3201. addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
  3202. }
  3203. Suspend Off
  3204. return
  3205.  
  3206. :?:t/matsfix::
  3207. Suspend Permit
  3208. SendInput, {enter}
  3209. if(adminrang>2)
  3210. {
  3211. imp_write("mats","mats","melder","")
  3212. imp_write("mats","mats","wann","")
  3213. imp_write("mats","mats","preis","")
  3214. imp_write("mats","mats","stundedanach","")
  3215. imp_mail("DEINEEMAIL", "O-InfoFIX", "Keybinder-Administrator " GetUserName() " hat den Befehl /matsfix verwendet!")
  3216. addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
  3217. }
  3218. Suspend Off
  3219. return
  3220.  
  3221. :?:t/matsmode::
  3222. if(matsmode = false)
  3223. {
  3224. addchatmessage("{247AF0}[System]{F09A24} Der Matsmodus wurde {11F747}aktiviert")
  3225. matsmode := true
  3226. }
  3227. else if(matsmode = true)
  3228. {
  3229. addchatmessage("{247AF0}[System]{F09A24} Der Matsmodus wurde {FF0000}deaktiviert")
  3230. matsmode := false
  3231. }
  3232. return
  3233.  
  3234. :?:t/lastmats::
  3235. Suspend Permit
  3236. sendinput, {enter}
  3237. if(matsmode = true)
  3238. {
  3239. mylandkauf := imp_read("Accounts",usname,"lastkauf")
  3240. if(mylandkauf = "" || mylandkauf = 0 || mylandkauf = -1)
  3241. {
  3242. addchatmessage("{F09A24}Es wurde kein Matskauf gefunden!")
  3243. }
  3244. else
  3245. {
  3246. addchatmessage("{F09A24}" mylandkauf)
  3247. }
  3248. }
  3249. else
  3250. {
  3251. addchatmessage("{247AF0}[System]{F09A24} Du bist nicht im Matsmodus! ( Tipp: /matsmode )")
  3252. }
  3253. return
  3254.  
  3255. :?:t/resetmats::
  3256. Suspend Permit
  3257. sendinput, {enter}
  3258. if(matsmode = true)
  3259. {
  3260. addchatmessage("{247AF0}[System]{F09A24} Möchtest du wirklich deinen Mats zurücksetzen? (Ja/Nein)")
  3261. jaodernein := PlayerInput("/Deine Antwort: ")
  3262. if(jaodernein = "Ja" || jaodernein = "ja")
  3263. {
  3264. imp_write("Accounts",GetUserName(),"geld","0")
  3265. imp_write("Accounts",GetUserName(),"mats","0")
  3266. imp_write("Accounts",GetUserName(),"lastkauf","0")
  3267. FileDelete, %TXTFILE%
  3268. addchatmessage("{247AF0}[System]{F09A24} Die Mats wurden erfolgreich zurückgesetzt")
  3269. }
  3270. else if(jaodernein = "nein" || jaodernein = "Nein" || jaodernein != "Ja" || jaodernein != "ja" || jaodernein != "nein" || jaodernein != "Nein")
  3271. {
  3272. addchatmessage("{247AF0}[System]{F09A24} Du hast den Vorgang abgebrochen!")
  3273. }
  3274. }
  3275. else
  3276. {
  3277. addchatmessage("{247AF0}[System]{F09A24} Du bist nicht im Matsmodus! ( Tipp: /matsmode )")
  3278. }
  3279. return
  3280.  
  3281. :?:t/oanschalten::
  3282. Suspend Permit
  3283. SendInput, {enter}
  3284. if(adminrang>2)
  3285. {
  3286. SendChat("/o > In wenigen Sekunden wird der /o Chat geöffnet <")
  3287. sleep 1000
  3288. SendChat("/o Regeln: Kein Spam | Keine Beleidigungen / Flame")
  3289. sleep 3000
  3290. SendChat("/otog")
  3291. }
  3292. Suspend Off
  3293. return
  3294.  
  3295. :?:t/oabschalten::
  3296. Suspend Permit
  3297. SendInput, {enter}
  3298. if(adminrang>2)
  3299. {
  3300. SendChat("/o > In wenigen Sekunden wird der /o Chat geschlossen <")
  3301. sleep 1000
  3302. SendChat("/o Ich wünsche euch weiterhin viel Spaß auf German-Crimetime!")
  3303. sleep 3000
  3304. SendChat("/otog")
  3305. }
  3306. else
  3307. {
  3308. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  3309. }
  3310. Suspend Off
  3311. return
  3312.  
  3313. :?:t/keybinderad::
  3314. Suspend Permit
  3315. SendInput, {enter}
  3316. SendChat("/ad Ihr sucht einen guten Gangkeybinder? >>Polyethylen's Gangkeybinder<<")
  3317. sleep 150
  3318. GetChatLine(1,ischadda)
  3319. sleep 150
  3320. if(instr(ischadda, "Ihr sucht einen guten Gangkeybinder?"))
  3321. {
  3322. imp_mail("DEINEEMAIL","Keybinder-AD",GetUserName() " hat eine Keybinder-AD gemacht!!")
  3323. addchatmessage("{247AF0}[System]{F09A24} Danke für deine Werbung! Grüße von Polyethylen :)")
  3324. }
  3325. Suspend Off
  3326. return
  3327.  
  3328. :?:t/carsurf::
  3329. Suspend Permit
  3330. SendInput, {enter}
  3331. if(adminrang>1)
  3332. {
  3333. addchatmessage("{247AF0}[System]{F09A24} Bitte gebe die ID/Name ein! (Tippe '00' ein um es abzubrechen)")
  3334. iddieichkriegensoll := PlayerInput("/ID/Name: ")
  3335. if(iddieichkriegensoll = 00)
  3336. {
  3337. addchatmessage("{247AF0}[System]{F09A24} Der Vorgang wurde abgebrochen!")
  3338. return
  3339. }
  3340. else
  3341. {
  3342. SendChat("/kwarn " . iddieichkriegensoll . " Carsurf")
  3343. sleep 200
  3344. SendChat("/slap " iddieichkriegensoll)
  3345. sleep 200
  3346. SendChat("/do " . iddieichkriegensoll . " Carsurf ist nicht erlaubt! Bitte unterlasse dies")
  3347. iddieichkriegensoll := ""
  3348. }
  3349. }
  3350. else
  3351. {
  3352. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  3353. }
  3354. return
  3355.  
  3356. :?:t/kontrolle::
  3357. Suspend Permit
  3358. SendInput, {enter}
  3359. if(adminrang>2)
  3360. {
  3361. addchatmessage("{247AF0}[System]{F09A24} Achtung: Du wirst automatisch in den TV-Modus gehen!! (Tippe '00' ein um es abzubrechen)")
  3362. iddieichkriegensoll := PlayerInput("/ID oder Name: ")
  3363. if(iddieichkriegensoll = 00)
  3364. {
  3365. addchatmessage("{247AF0}[System]{F09A24} Der Kontrolle-Vorgang wurde abgebrochen!")
  3366. return
  3367. }
  3368. if(iddieichkriegensoll != "")
  3369. {
  3370. SendChat("/tv " iddieichkriegensoll)
  3371. sleep 100
  3372. GetChatLine(0,linechee)
  3373. if instr(linechee, "Du bist nicht im Spectatemodus.")
  3374. {
  3375. addchatmessage("{247AF0}[System]{F09A24} Die ID/Name wurde nicht gefunden!")
  3376. }
  3377. else
  3378. {
  3379. sleep 300
  3380. SendChat("/do " . iddieichkriegensoll . " ______________________PC-Kontrolle______________________")
  3381. sleep 300
  3382. SendChat("/do " . iddieichkriegensoll . " » Bitte melde dich in den nächsten 5 Minuten im Teamspeak³ «")
  3383. sleep 300
  3384. SendChat("/do " . iddieichkriegensoll . " » Solltest du deinen GTA Ornder ändern, folgt ein Permanenter Spielausschluss «")
  3385. sleep 300
  3386. SendChat("/do " . iddieichkriegensoll . " » Teamspeak³ IP: ts.cops-robbers.de «")
  3387. sleep 300
  3388. SendChat("/do " . iddieichkriegensoll . " ________________________________________________________")
  3389. sleep 2000
  3390. addchatmessage("{247AF0}[System]{F09A24} Du hast den User in den TeamSpeak³ gerufen!")
  3391. }
  3392. }
  3393. }
  3394. else
  3395. {
  3396. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  3397. }
  3398. return
  3399.  
  3400. :?:t/cd::
  3401. Suspend Permit
  3402. SendInput, {enter}
  3403. SendChat("»Der Countdown startet!«")
  3404. sleep 1500
  3405. SendChat("»3«")
  3406. sleep 1000
  3407. SendChat("»2«")
  3408. sleep 1000
  3409. SendChat("»1«")
  3410. sleep 1000
  3411. SendChat("»Go!«")
  3412. Suspend off
  3413. return
  3414.  
  3415. overlay:
  3416. If(WinActive("GTA:SA:MP"))
  3417. {
  3418. IniRead, ohpx, %Ini%, Overlay, HPX, 688
  3419. IniRead, ohpy, %Ini%, Overlay, HPY, 90
  3420. IniRead, ofpsx, %Ini%, Overlay, FPSX, 770
  3421. IniRead, ofpsy, %Ini%, Overlay, FPSY, 5
  3422. IniRead, oans1, %Ini%, Overlay, oans1
  3423. IniRead, oans3, %Ini%, Overlay, oans3
  3424. if(oans1 = 1)
  3425. {
  3426. if(refresh>10)
  3427. updateScoreboardDataEx()
  3428. hp := Round(GetPlayerHealth())
  3429. if(hp<0)
  3430. {
  3431. hp := 100
  3432. }
  3433. armor := Round(GetPlayerArmor())
  3434. idvonuser := getPlayerIdByName(GetUserName())
  3435. pingvomuser := getPlayerPingById(idvonuser)
  3436. insghp := hp+armor
  3437. TextSetString(hp_ov, "HP: " insghp " | Ping: " pingvomuser  " | ID " idvonuser "")
  3438. refresh++
  3439. }
  3440. if(oans3 = 1)
  3441. {
  3442. TextSetString(fps_ov, "{F2FF00}FPS:" GetFrameRate())
  3443. }
  3444. }
  3445. return
  3446.  
  3447.  
  3448. :?:t/quizblacklist::
  3449. if(adminrang>2)
  3450. {
  3451. addchatmessage("{247AF0}[System]{F09A24} Schreibe nun einen Nutzer, den du zur Blacklist hinzufügen möchtest:")
  3452. idorname := PlayerInput("/quizblacklist: ")
  3453. SendChat("/id " . idorname)
  3454. sleep 200
  3455. GetChatLine(0,ischdauseronline)
  3456. sleep 150
  3457. If InStr(ischdauseronline, "Virtuelle Welt")
  3458. {
  3459. RegExMatch(ischdauseronline, "\* (.*) (.*)\: ID ", dernameoderdieid)
  3460. ischderuserschondrin := imp_row_exist("QuizBS",dernameoderdieid2)
  3461. if(ischderuserschondrin = 1)
  3462. {
  3463. dergrundvonblacklist := imp_read("QuizBS",dernameoderdieid2,"reason")
  3464. addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " existiert bereits in der Quiz-Blacklist | Grund: " dergrundvonblacklist)
  3465. }
  3466. else
  3467. {
  3468. if(idorname != "")
  3469. {
  3470. addchatmessage("{247AF0}[System]{F09A24} Gebe nun bitte den Grund für die Blacklist an:")
  3471. dergrunddendueintraegscht := PlayerInput("/Grund: ")
  3472. addchatmessage("{247AF0}[System]{F09A24} Möchtest du wirklich " dernameoderdieid2 " zu der Quiz-Blacklist hinzufügen? ( Grund: " dergrunddendueintraegscht " )")
  3473. jaoderneinwahrscheinlich := PlayerInput("/Blacklist('Ja' oder 'Nein):")
  3474. if(jaoderneinwahrscheinlich = "Ja" || jaoderneinwahrscheinlich = "ja")
  3475. {
  3476. imp_create_row("QuizBS", dernameoderdieid2)
  3477. imp_write("QuizBS",dernameoderdieid2,"reason",dergrunddendueintraegscht)
  3478. imp_write("QuizBS",dernameoderdieid2,"von", GetUserName())
  3479. addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde erfolgreich hinzugefügt! ( Grund: " dergrunddendueintraegscht " )")
  3480. SendChat("/do " dernameoderdieid2 " Sie wurden soeben auf der Quiz-Blacklist hinzugefügt! ( Grund: " dergrunddendueintraegscht " )")
  3481. imp_mail("DEINEEMAIL", "Keybinder-Administrator " GetUserName() " hat den Nutzer " dernameoderdieid2 " mit dem Grund " dergrunddendueintraegscht " auf die QBL gesetzt", "Quiz-Blacklist eintrag")
  3482. }
  3483. else
  3484. {
  3485. addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde nicht hinzugefügt!")
  3486. }
  3487. }
  3488. }
  3489. }
  3490. }
  3491. else
  3492. {
  3493. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  3494. }
  3495. return
  3496.  
  3497. :?:t/hquizblacklist::
  3498. if(adminrang>2)
  3499. {
  3500. addchatmessage("{247AF0}[System]{F09A24} Schreibe nun einen Nutzer, den du zur Blacklist hinzufügen möchtest:")
  3501. idorname := PlayerInput("/quizblacklist: ")
  3502. SendChat("/id " . idorname)
  3503. sleep 200
  3504. GetChatLine(0,ischdauseronline)
  3505. sleep 150
  3506. If InStr(ischdauseronline, "Virtuelle Welt")
  3507. {
  3508. RegExMatch(ischdauseronline, "\* (.*) (.*)\: ID ", dernameoderdieid)
  3509. ischderuserschondrin := imp_row_exist("QuizBS",dernameoderdieid2)
  3510. if(ischderuserschondrin = 1)
  3511. {
  3512. dergrundvonblacklist := imp_read("QuizBS",dernameoderdieid2,"reason")
  3513. addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " existiert bereits in der Quiz-Blacklist | Grund: " dergrundvonblacklist)
  3514. }
  3515. else
  3516. {
  3517. if(idorname != "")
  3518. {
  3519. addchatmessage("{247AF0}[System]{F09A24} Gebe nun bitte den Grund für die Blacklist an:")
  3520. dergrunddendueintraegscht := PlayerInput("/Grund: ")
  3521. addchatmessage("{247AF0}[System]{F09A24} Möchtest du wirklich " dernameoderdieid2 " zu der Quiz-Blacklist hinzufügen? ( Grund: " dergrunddendueintraegscht " )")
  3522. jaoderneinwahrscheinlich := PlayerInput("/Blacklist('Ja' oder 'Nein):")
  3523. if(jaoderneinwahrscheinlich = "Ja" || jaoderneinwahrscheinlich = "ja")
  3524. {
  3525. imp_create_row("QuizBS", dernameoderdieid2)
  3526. imp_write("QuizBS",dernameoderdieid2,"reason",dergrunddendueintraegscht)
  3527. imp_write("QuizBS",dernameoderdieid2,"von", GetUserName())
  3528. addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde erfolgreich hinzugefügt! ( Grund: " dergrunddendueintraegscht " )")
  3529. imp_mail("DEINEEMAIL", "Keybinder-Administrator " GetUserName() " hat den Nutzer " dernameoderdieid2 " mit dem Grund " dergrunddendueintraegscht " GEHEIM auf die QBL gesetzt", "Quiz-Blacklist eintrag")
  3530. }
  3531. else
  3532. {
  3533. addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde nicht hinzugefügt!")
  3534. }
  3535. }
  3536. }
  3537. }
  3538. }
  3539. else
  3540. {
  3541. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  3542. }
  3543. return
  3544.  
  3545. :?:t/beleidigungen::
  3546. username := GetUserName()
  3547. Suspend permit
  3548. If (adminrang>0)
  3549. {
  3550. showDialog(0, "[GCT] Beleidigungen", "Leichte Beleidigungen:`n-----------------------------------------------------------------------------`n'Opfer' => 5 Minuten Mute`n'Pisser' => 5 Minuten Mute`n'Halt die Fresse' => 5 Minuten Mute`n'Hund' => 8 Minuten Mute`n`nFlame:`n------------------------------------------------------------------------------------`n'nN', 'Snack', 'Noob' & Jeglicher Flame => 3 Minuten Mute`n`nMittlere Beleidigungen:`n------------------------------------------`n'Pussy', 'Fotze', 'Dein Vater/Deine Mutter', 'Spast', 'Bastard'`n'Amina Koyim (amk, amq)', 'Schlampe' & 'Hure' => 20 Minuten Mute`n`nRassistische Beleidigungen:`n------------------------------------------------------------------------------------`n'Jude(nsohn/ntochter)', 'Nazi(kind)' => 20 Minuten Mute`n`nSchwere Beleidigungen:`n------------------------------------------------------------------------------------`n'Hurensohn', 'Hundesohn', 'Hurentochter', 'Huan', 'Huso'`n'Ich ficke deine/n Mutter/Vater' & 'Annani sikim' => 35 Minuten Mute", "'Close'" )
  3551. }
  3552. else
  3553. {
  3554. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  3555. }
  3556. return
  3557.  
  3558. :?:t/ovfix::
  3559. {
  3560. addchatmessage("{247AF0}[System]{F09A24} Die Overlay's werden neu geladen...")
  3561. SetTimer, overlay, Off
  3562. DestroyAllVisual()
  3563.         SetTimer, overlay, 150
  3564.         IniRead, hpx, %Ini%, Overlay, HPX
  3565.         IniRead, hpy, %Ini%, Overlay, HPY
  3566.         IniRead, owtdx, %Ini%, Overlay, WTDX
  3567.         IniRead, owtdy, %Ini%, Overlay, WTDY
  3568.         IniRead, ofpsx, %Ini%, Overlay, FPSX
  3569.         IniRead, ofpsy, %Ini%, Overlay, FPSY
  3570.         IniRead, oans1, %Ini%, Overlay, oans1
  3571.         IniRead, oans2, %Ini%, Overlay, oans2
  3572.         IniRead, oans3, %Ini%, Overlay, oans3
  3573.         if(oans1 = 1)
  3574.         {
  3575.         hp_ov := TextCreate("Arial",7,false,false,hpx,hpy,0xFFFFFFFF,"",False,true)
  3576.         }
  3577.         if(oans3 = 1)
  3578.         {
  3579.         fps_ov := TextCreate("Arial",8,true,false,ofpsx,ofpsy,0xFFFFFFFF,"",False,true)
  3580.         }
  3581.         sleep 1500
  3582.         addchatmessage("{247AF0}[System]{F09A24} Das Overlay-System wurde erfolgreich neu geladen!")
  3583. }
  3584. return
  3585.  
  3586. :?:t/random::
  3587. Suspend Permit
  3588. zahl1dieichkriegensoll := PlayerInput("/Zahl1: ")
  3589. zahl2dieichkriegensoll := PlayerInput("/Zahl2: ")
  3590. Random, randomzahl, %zahl1dieichkriegensoll%, %zahl2dieichkriegensoll%
  3591. AddChatMessage("Die Random generierte Zahl ist: >> " randomzahl " <<")
  3592. Suspend Off
  3593. return
  3594.  
  3595. :?:t/randomwin::
  3596. arank := imp_read("Accounts", GetUserName(), "Rank")
  3597. if(arank>0)
  3598. {
  3599. Random, randomzahl1, 45, 120
  3600. While(GetPlayerNameById(randomzahl1)=="")
  3601. {
  3602. Random, randomzahl1, 45, 120
  3603. sleep 500
  3604. }
  3605. SendChat("/o _________________________Random-Win__________________________")
  3606. SendChat("/o " GetUserName() " hat seinen Random-Generator angeschmissen...")
  3607. SendChat("/o Die Ausgewählte ID wird ein Preisgeld von 20.000$ erhalten! ~> Auflösung in 5 Sekunden")
  3608. sleep 1000
  3609. AddChatMessage("{247AF0}[Random-Win] {FA0C0C}Es wurde der User " GetPlayerNameById(randomzahl1) " mit der ID " randomzahl1 " ausgelost!")
  3610. AddChatMessage("{247AF0}[Random-Win] {FA0C0C}Der Gewinn & die Ankündigung folgt in wenigen Sekunden automatisch!")
  3611. sleep 5000
  3612. SendChat("/o Der Gewinner ist: ID >> " randomzahl1 " ~ " GetPlayerNameById(randomzahl1) " <<")
  3613. SendChat("/pay " randomzahl1 " 20000")
  3614. zahl1dieichkriegensoll := ""
  3615. zahl2dieichkriegensoll := ""
  3616. versuche := ""
  3617. }
  3618. else
  3619. {
  3620. addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
  3621. }
  3622. return
  3623.  
  3624. neueversion:
  3625. UrlDownloadToFile, URL/Update/ver.txt, %ProgPfad%\ver.txt
  3626. FileRead, newver, %ProgPfad%\ver.txt
  3627. FileDelete, %ProgPfad%\ver.txt
  3628. if (version < newver)
  3629. {
  3630.         addchatmessage("{247AF0}[System]{F09A24} UPDATE ! Version: " newver)
  3631.         addchatmessage("{247AF0}[System]{F09A24} Der Keybinder wurde aktualisiert!")
  3632.         addchatmessage("{247AF0}[System]{F09A24} ~> Der Keybinder wurde geschlossen | Starte diesen nun neu <~")
  3633.         ExitApp
  3634. }
  3635. if (newver = 0000)
  3636. {
  3637.         AddChatMessage("Die Entwicklung des Keybinders wurde eingestellt!!")
  3638.         addchatmessage("{247AF0}[System]{F09A24} ~> Der Keybinder wurde geschlossen <~")
  3639.         ExitApp
  3640. }
  3641. if (newver = 00000)
  3642. {
  3643.         AddChatMessage("{247AF0}[System]{F09A24} Der Keybinder wurde wegen eines Fehler deaktiviert!!")
  3644.         addchatmessage("{247AF0}[System]{F09A24} ~> Der Keybinder wurde geschlossen <~")
  3645.         ExitApp
  3646. }
  3647. kbrank := imp_read("Accounts",GetUserName(),"Rank")
  3648. if(kbrank = "-2")
  3649. {
  3650. AddChatMessage("{247AF0}[System]{F09A24} Du wurdest auf die Keybinder-Blacklist gesetzt!")
  3651. AddChatMessage("{247AF0}[System]{F09A24} Der Keybinder & GTA_SA werden nun geschlossen")
  3652. sleep 5000
  3653. Process, Close, gta_sa.exe
  3654. ExitApp
  3655. }
  3656. return
  3657.  
  3658. :?:t/ncb::
  3659. Suspend Permit
  3660. if(arank>2)
  3661. {
  3662. SendInput, /ban{space}{space}Namechange{left 11}
  3663. }
  3664. return
  3665.  
  3666. :?:t/gctts::
  3667. Suspend Permit
  3668. run, ts3server://ts.cops-robbers.de
  3669. return
  3670.  
  3671. qbl:
  3672. GUI, Submit, NoHide
  3673. GUI, lv:Default
  3674. user_name := imp_list_rows("QuizBS")
  3675. usering := imp_count_rows("QuizBS")
  3676. StringSplit, myArray,user_name, `,,%A_Space%
  3677. Gui, lv:Add, ListView, x10 y10  w350 h280 grechts, Spieler|Grund|Eingetragen von
  3678. Gui, lv:Show, x229 y185 w365 h340, [Poly-Keybinder] Quiz-Blacklist
  3679. Loop, %myArray0%
  3680. {
  3681.    users := myArray%A_Index%
  3682.    dreason := imp_read("QuizBS", users, "reason")
  3683.         dadmin := imp_read("QuizBS", users, "von")
  3684.         if(dadmin = 0 || dadmin = "")
  3685. {
  3686. dadmin := "Unbekannt"
  3687. }
  3688.    LV_Add("",users,dreason,dadmin)
  3689.         LV_ModifyCol(1, "AutoHdr Text Left")
  3690.         LV_ModifyCol(2, "AutoHdr Text Left")
  3691. }
  3692. return
  3693.  
  3694. rechts:
  3695. LV_GetText(Current_Row, A_EventInfo)
  3696. MsgBox, 262196, ~Spieler entfernen~, Möchtest du %Current_Row%`nlöschen?
  3697. ifmsgbox, Yes
  3698. {
  3699. if(arank>4)
  3700. {
  3701. imp_delete_row("QuizBS", Current_Row)
  3702. LV_Delete(A_EventInfo)
  3703. }
  3704. else
  3705. {
  3706. MsgBox, 64, Fehler,Du besitzt nicht die nötigen Rechte!
  3707. }
  3708. }
  3709. return
  3710.  
  3711. ;Playerinput:
  3712. PlayerInput(text)
  3713. {
  3714. s := A_IsSuspended
  3715. Suspend On
  3716. KeyWait Enter
  3717. SendInput t^a{backspace}%text%
  3718. Input, var, v, {enter}
  3719. SendInput ^a{backspace 100}{enter}
  3720. Sleep, 20
  3721. if(!s)
  3722. Suspend Off
  3723. return var
  3724. }
RAW Paste Data
Top