Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*
- Next-Update (2.4)
- _______________________
- • Einsicht in die Quiz-Blacklist für das Team
- • Katana/Baseballschläger Bug behoben
- • kleinere Fehler behoben
- • neue Mutebefehle hinzugefügt
- */
- ProgPfad = %A_MyDocuments%\Poly-Keybinder
- Chatlogs = %A_MyDocuments%\Poly-Keybinder\Chatlogs
- Ini = %A_MyDocuments%\Poly-Keybinder\Einstellungen.Ini
- TXTFILE = %A_MyDocuments%\Poly-Keybinder\matslogs.txt
- IfNotExist, %ProgPfad%/dx9_overlay.dll
- {
- TrayTip , Keybinder von Poly,Overlay Daten werden heruntergeladen .., 1,
- UrlDownloadToFile, URL/Update/dx9_overlay.dll, %ProgPfad%/dx9_overlay.dll
- }
- IfNotExist, %ProgPfad%/background.jpg
- {
- TrayTip , Keybinder von Poly,Hintergrundbild wird heruntergeladen .., 1,
- UrlDownloadToFile, URL/Update/background.jpg, %ProgPfad%/background.jpg
- }
- IfNotExist, %ProgPfad%/overlay.jpg
- {
- TrayTip , Keybinder von Poly,Overlay-Bild wird heruntergeladen .., 1,
- UrlDownloadToFile, URL/Update/overlay.jpg, %ProgPfad%/overlay.jpg
- }
- IfNotExist, %ProgPfad%/vorschlag.jpg
- {
- TrayTip , Keybinder von Poly,Vorschlag-Bild wird heruntergeladen .., 1,
- UrlDownloadToFile, URL/Update/vorschlag.jpg, %ProgPfad%/vorschlag.jpg
- }
- #NoEnv
- #Persistent
- #IfWinActive, GTA:SA:MP
- #UseHook
- version := 2.4
- #include improv3d.ahk
- #include overlay.ahk
- #include SAMP.ahk
- IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
- obblacklistis := imp_read("Accounts",igname,"Rank")
- if(obblacklistis = -2)
- {
- msgbox, 64, Blacklist,Herzlichen Glückwunsch! Du bist auf der Keybinderblacklist ;)
- ExitApp
- }
- #SingleInstance, Force
- RegRead sampuser, HKEY_CURRENT_USER, Software\SAMP, PlayerName
- IfNotExist, %ProgPfad%
- {
- FileCreateDir, %ProgPfad%
- }
- IfNotExist, %Chatlogs%
- {
- FileCreateDir, %Chatlogs%
- }
- OnExit, Exitsub
- IfNotExist, %Ini%
- {
- IniWrite, %A_Space%, %Ini%, Deathtexte, SetdeathText
- IniWrite, %A_Space%, %Ini%, Killtexte, SetgkillText
- IniWrite, %A_Space%, %Ini%, Killtexte, SetkillText
- IniWrite, 0, %Ini%, Statistiken, Mord
- IniWrite, 0, %Ini%, Statistiken, Tode
- Iniwrite, 1, %Ini%, Einstellung, AutoDuty
- }
- TrayTip, Update, Es wird nach Updates gesucht...
- ;UPDATER;
- ;------------------------------------------------------------------------------------------------------------------------------------;
- ;------------------------------------------------------------------------------------------------------------------------------------;
- Filedelete,update.bat
- UrlDownloadToFile, URL/Update/ver.txt, %ProgPfad%\ver.txt
- FileRead, newver, %ProgPfad%\ver.txt
- FileDelete, %ProgPfad%\ver.txt
- if (newver = 0000)
- {
- msgBox, 64, [Keybinder wurde Deaktiviert], Die Entwicklung des Keybinders wurde eingestellt!!
- ExitApp
- }
- if (newver = 1337)
- {
- msgBox, 64, [Keybinder wurde Deaktiviert], Der Keybinder wurde wegen eines Fehler deaktiviert!!
- ExitApp
- }
- if (version < newver)
- {
- newververfügbar := 1
- 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?
- IfMsgBox, Yes
- {
- MsgBox, 64, Update Download, Das Update wird nun heruntergeladen ,dies kann bis zu 20 Sekunden dauern..., 3
- Urldownloadtofile,URL/Update/GCT-Keybinder.exe, %ProgPfad%\%A_ScriptName%.new
- BatchFile=
- (
- Ping 127.0.0.1
- Del "%A_ScriptName%"
- Rename "%A_ScriptName%.new" "%A_ScriptName%
- cd "%A_ScriptFullPath%"
- "%A_ScriptName%"
- Del update.bat
- )
- FileDelete,update.bat
- FileAppend,%BatchFile%,update.bat
- MsgBox, 64, Update ausführen, Das Update wird nun ausgeführt...bitte warten..., 3
- Run,update.bat,,hide
- Exitapp
- }
- }
- IfMsgBox, No
- {
- MsgBox, 64, [Update wurde abgebrochen], Das Update ist Notwendig...daher wurde der Keybinder geschlossen!
- ExitApp
- }
- else
- {
- newververfügbar := 0
- }
- ;------------------------------------------------------------------------------------------------------------------------------------;
- ;------------------------------------------------------------------------------------------------------------------------------------;
- TrayTip, Überprüfung, Datenbanken werden Überprüft...
- if(!imp_table_exist("Accounts"))
- {
- imp_create_table("Accounts","Username,password,Level,Kills,Tode,KD,Version,IP,Rank,online,lastseen,onseit")
- }
- iniRead, eigname, %Ini%, Keybinder-Settings, IG_Name, 0
- if(eigname != 0)
- {
- If !imp_row_exist("Accounts", eigname)
- {
- TrayTip, Registation, Der Account wird registriert, 5
- imp_create_row("Accounts",eigname)
- imp_write("Accounts",eigname, "Level", "0")
- imp_write("Accounts",eigname, "Kills", "0")
- imp_write("Accounts",eigname, "Tode", "0")
- imp_write("Accounts",eigname, "password", "0")
- imp_write("Accounts",eigname, "KD", "0")
- imp_write("Accounts",eigname, "Version", version)
- imp_write("Accounts",eigname, "IP", ipcheck)
- imp_write("Accounts",eigname, "Rank", "0")
- imp_write("Accounts",eigname, "Online", "0")
- imp_write("Accounts",eigname, "lastseen", "0")
- imp_write("Accounts",eigname, "onseit", "0")
- }
- }
- TrayTip, Überprüfung, Account wird gesucht...
- regi:
- iniRead, eigname, %Ini%, Keybinder-Settings, IG_Name, 0
- if(eigname=0)
- {
- TrayTip, Registration, Melden sie sich nun im Keybinder an!
- InputBox, eigname, [Registration] Ingamename, Bitte geben Sie hier ihren Ingame Namen ein:,, 300, 130
- if(eigname="")
- {
- MsgBox, , Fehler, Sie haben keinen Namen eingegeben!
- Goto, regi
- }
- MsgBox, 4,[Registration] Ingamename, Ist dies DEIN Account-Name auf German-Crimetime? >> %eigname% <<
- IfMsgBox, No
- {
- MsgBox, , Wichtig:, Bitte gebe den Namen erneut ein!
- Goto, Regi
- }
- IfMsgBox, Yes
- {
- IniWrite, %eigname%, %Ini%, Keybinder-Settings, IG_Name
- If !imp_row_exist("Accounts", eigname)
- {
- TrayTip, Registation, Der Account wird registriert, 5
- imp_create_row("Accounts",eigname)
- imp_write("Accounts",eigname, "Level", "0")
- imp_write("Accounts",eigname, "Kills", "0")
- imp_write("Accounts",eigname, "Tode", "0")
- imp_write("Accounts",eigname, "password", "0")
- imp_write("Accounts",eigname, "KD", "0")
- imp_write("Accounts",eigname, "Version", version)
- imp_write("Accounts",eigname, "IP", ipcheck)
- imp_write("Accounts",eigname, "Rank", "0")
- imp_write("Accounts",eigname, "Online", "0")
- imp_write("Accounts",eigname, "lastseen", "0")
- imp_write("Accounts",eigname, "onseit", "0")
- imp_mail("DEINEEMAIL", "Neuer User (+1)" , eigname " hat sich Registriert!")
- }
- }
- }
- SetTimer, check_gta, 2000
- ;LoadAll:
- IniRead, gdeathtext, %Ini%, Deathtexte, SetdeathText
- IniRead, gkilltext, %Ini%, Killtexte, SetgkillText
- IniRead, lkilltext, %Ini%, Killtexte, SetkillText
- IniRead, cName1, %Ini%, Checkboxes, checkbox1
- IniRead, cName2, %Ini%, Checkboxes, checkbox2
- IniRead, cName3, %Ini%, Checkboxes, checkbox3
- IniRead, cName4, %Ini%, Checkboxes, checkbox4
- IniRead, cName5, %Ini%, Checkboxes, checkbox5
- IniRead, cName6, %Ini%, Checkboxes, checkbox6
- IniRead, cName7, %Ini%, Checkboxes, checkbox7
- IniRead, cName8, %Ini%, Checkboxes, checkbox8
- IniRead, cName9, %Ini%, Checkboxes, checkbox9
- IniRead, cName10, %Ini%, Checkboxes, checkbox10
- IniRead, cName11, %Ini%, Checkboxes, checkbox11
- IniRead, cortaktiv, %Ini%, Checkboxes, Ortname
- IniRead, cAktiv1, %Ini%, Checkboxes, Killname
- iniread, owntext1 , %Ini%, Tasten, owntext1, Command
- iniread, owntext2 , %Ini%, Tasten, owntext2,Command
- iniread, owntext3 , %Ini%, Tasten, owntext3,Command
- iniread, owntext4 , %Ini%, Tasten, owntext4,Command
- iniread, owntext5 , %Ini%, Tasten, owntext5,Command
- iniread, owntext6 , %Ini%, Tasten, owntext6,Command
- iniread, owntext7 , %Ini%, Tasten, owntext7,Command
- iniread, owntext8 , %Ini%, Tasten, owntext8,Command
- iniread, owntext9 , %Ini%, Tasten, owntext9,Command
- iniread, owntext10 , %Ini%, Tasten, owntext10,Command
- iniread, owntext11 , %Ini%, Tasten, owntext11,Command
- iniread, owntext12 , %Ini%, Tasten, owntext12,Command
- iniread, owntext13 , %Ini%, Tasten, owntext13,Command
- iniread, owntext14 , %Ini%, Tasten, owntext14,Command
- iniread, owntext15 , %Ini%, Tasten, owntext15,Command
- iniread, owntext16 , %Ini%, Tasten, owntext16,Command
- iniread, Hotkey1 , %Ini%, Tasten, Hotkey1
- iniread, Hotkey2 , %Ini%, Tasten, Hotkey2
- iniread, Hotkey3 , %Ini%, Tasten, Hotkey3
- iniread, Hotkey4 , %Ini%, Tasten, Hotkey4
- iniread, Hotkey5 , %Ini%, Tasten, Hotkey5
- iniread, Hotkey6 , %Ini%, Tasten, Hotkey6
- iniread, Hotkey7 , %Ini%, Tasten, Hotkey7
- iniread, Hotkey8 , %Ini%, Tasten, Hotkey8
- iniread, Hotkey9 , %Ini%, Tasten, Hotkey9
- iniread, Hotkey10 , %Ini%, Tasten, Hotkey10
- iniread, Hotkey11 , %Ini%, Tasten, Hotkey11
- iniread, Hotkey12 , %Ini%, Tasten, Hotkey12
- iniread, Hotkey13 , %Ini%, Tasten, Hotkey13
- iniread, Hotkey14 , %Ini%, Tasten, Hotkey14
- iniread, Hotkey15 , %Ini%, Tasten, Hotkey15
- iniread, Hotkey16 , %Ini%, Tasten, Hotkey16
- todknast := false
- gosub Hotkeysfestlegen
- TrayTip, Herzlich Willkommen, Keybinder wurde geladen!
- NummerFormat(_number) {
- StringReplace _number, _number, -
- IfEqual ErrorLevel,0, SetEnv Sign,-
- Loop Parse, _number, .
- If (A_Index = 1)
- {
- len := StrLen(A_LoopField)
- Loop Parse, A_LoopField
- If (Mod(len-A_Index,3) = 0 and A_Index != len)
- x .= A_LoopField "."
- Else
- x .= A_LoopField
- }
- Else
- Return Sign x "." A_LoopField
- Return Sign x
- }
- Hauptgui:
- Gui, 1:-caption
- Gui, 1:Font, S9 CDefault, Times New Roman
- Gui, 1:Add, Picture, x-8 y0 w620 h280 , %ProgPfad%\background.jpg
- Gui, 1:Add, Edit, x22 y40 vgkilltext w180 h20, %gkilltext%
- Gui, 1:Add, Edit, x22 y90 vlkilltext w180 h20 , %lkilltext%
- Gui, 1:Add, Text, x22 y70 w90 h20 +BackgroundTrans cWhite, Lokaler Killspruch:
- Gui, 1:Add, Edit, x22 y140 vgdeathtext w180 h20 , %gdeathtext%
- Gui, 1:Add, Text, x22 y120 w90 h20 +BackgroundTrans cWhite, /g Todesspruch:
- Gui, 1:Add, Text, x22 y20 w90 h20 +BackgroundTrans cWhite, /g Killspruch:
- Gui, 1:Add, Button, x502 y240 gsave w100 h30 , Speichern
- Gui, 1:Add, Button, x502 y205 gchlog w100 h30 , Changelog
- Gui, 1:Add, Button, x502 y170 gownhotkeys w100 h30 , Eigene Hotkeys
- Gui, 1:Add, Button, x502 y135 goverlays w100 h30 , Overlay
- Gui, 1:Add, Button, x502 y100 gtextbefehle w100 h30 , Textbefehle
- Gui, 1:Add, Button, x510 y65 gvorschlags w80 h30 , Vorschlag
- RegRead moderator, HKEY_CURRENT_USER, Software\SAMP, PlayerName
- arank := imp_read("Accounts",moderator,"Rank")
- if(arank>0)
- {
- Gui, 1:Add, Button, x400 y240 gqbl w100 h30 , QBL
- }
- Gui, 1:Add, CheckBox, x350 y30 vdeagle w13 h13 vName3 Checked%cName3%,
- Gui, 1:Add, Text, x364 y30 h70 h20 +BackgroundTrans cBlack, [Deagle]
- Gui, 1:Add, Text, x350 y15 h70 h20 +BackgroundTrans cBlack, Waffenkauf:
- Gui, 1:Add, CheckBox, x350 y70 vshotgun w13 h13 vName4 Checked%cName4%,
- Gui, 1:Add, Text, x364 y70 h70 h20 +BackgroundTrans cBlack, [Shotgun]
- Gui, 1:Add, CheckBox, x350 y110 vmp5 w13 h13 vName5 Checked%cName5%,
- Gui, 1:Add, Text, x364 y110 h70 h20 +BackgroundTrans cBlack, [MP5]
- Gui, 1:Add, CheckBox, x350 y150 vm4 w13 h13 vName6 Checked%cName6%,
- Gui, 1:Add, Text, x364 y150 h70 h20 +BackgroundTrans cBlack, [AK47]
- Gui, 1:Add, CheckBox, x350 y190 vak47 w13 h13 vName7 Checked%cName7%,
- Gui, 1:Add, Text, x364 y190 h70 h20 +BackgroundTrans cBlack, [M4]
- Gui, 1:Add, CheckBox, x450 y30 vrifle w13 h13 vName8 Checked%cName8%,
- Gui, 1:Add, Text, x464 y30 h70 h20 +BackgroundTrans cBlack, [Country-Rifle]
- Gui, 1:Add, CheckBox, x450 y70 vsniper w13 h13 vName9 Checked%cName9%,
- Gui, 1:Add, Text, x464 y70 h70 h20 +BackgroundTrans cBlack, [Sniper]
- Gui, 1:Add, CheckBox, x425 y110 vbaseball w13 h13 vName10 Checked%cName10%,
- Gui, 1:Add, Text, x439 y110 h70 h20 +BackgroundTrans cBlack, [Baseball]
- Gui, 1:Add, CheckBox, x425 y150 vkatana w13 h13 vName11 Checked%cName11%,
- Gui, 1:Add, Text, x439 y150 h70 h20 +BackgroundTrans cBlack, [Katana]
- ;Killzähler:
- Gui, 1:Add, CheckBox, x210 y40 vnamekillch w13 h13 vaktiv1 Checked%caktiv1%,
- Gui, 1:Add, Text, x225 y40 h70 h20 +BackgroundTrans cWhite, [Name beim Kill]
- Gui, 1:Add, CheckBox, x210 y60 vortkillch w13 h13 vortaktiv Checked%cortaktiv%,
- Gui, 1:Add, Text, x225 y60 h70 h20 +BackgroundTrans cWhite, [Ort beim Kill]
- ;Ende-
- Gui, 1:Add, Text, cWhite x550 y5 w90 h20 +backgroundtrans gSlideout vSlideout , |Close|
- Gui, 1:Add, Text, cWhite x490 y5 w90 h20 +backgroundtrans gMinimieren vMinimieren, |Minimize|
- Gui, 1:Add, Text, cWhite x443 y5 w90 h20 +backgroundtrans gMove vMove, |Move|
- ; Generated using SmartGUI Creator for SciTE
- Gui, 1:Show, w613 h275, Keybinder by Polyethylen
- return
- check_gta:
- if(!FileExist(A_MyDocuments . "\GTA San Andreas User Files\SAMP\chatlog.txt"))
- return
- If(!WinExist("GTA:SA:MP"))
- return
- Loop, Read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
- {
- If(InStr(A_LoopReadLine, "Du hast dich erfolgreich eingeloggt, "))
- {
- IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
- rname := GetUserName()
- if(igname != GetUserName())
- {
- if(GetUserName() != "")
- {
- addchatmessage("{3664BF} [Namechange] {FFFFFF}Konfigurierung des neuen Namen...")
- sleep 1000
- addchatmessage("{3664BF} [Namechange] {FFFFFF}Übertragung der Daten von {74D40B}" igname . " {FFFFFF}an {74D40B}" rname . "{FFFFFF}!")
- save1 := imp_read("Accounts",igname,"password")
- save2 := imp_read("Accounts",igname, "LadenRobbedMoney")
- save3 := imp_read("Accounts",igname, "SackRobbedMoney")
- save4 := imp_read("Accounts",igname, "SackEXPMoney")
- save5 := imp_read("Accounts",igname, "geld")
- save6 := imp_read("Accounts",igname, "mats")
- imp_delete_row("Accounts",igname)
- imp_create_row("Accounts",rname)
- imp_write("Accounts",rname,"password",save1)
- imp_write("Accounts",rname,"LadenRobbedMoney",save2)
- imp_write("Accounts",rname,"SackRobbedMoney",save3)
- imp_write("Accounts",rname,"SackEXPMoney",save4)
- imp_write("Accounts",rname,"geld",save5)
- imp_write("Accounts",rname,"mats",save6)
- IniWrite, %rname%, %Ini%, Keybinder-Settings, IG_Name
- imp_mail("DEINEEMAIL", "Umbennenung!" , igname " hat sich Umbenannt in " rname)
- addchatmessage("{3664BF} [Namechange] {FFFFFF}Die Daten wurden erfolgreich an {74D40B}" rname . "{FFFFFF} übertragen")
- addchatmessage("{3664BF} [Namechange] {FFFFFF}Bitte starte den Keybinder neu! (Dieser wurde geschlossen)")
- ExitApp
- }
- }
- arank := imp_read("Accounts", GetUserName() , "Rank")
- If (arank=-1)
- {
- addchatmessage("{3664BF}[Fehler]{FFFFFF} Du hast die Gross/Kleinschreibung vom Namen geändert")
- addchatmessage("{3664BF}[Fehler]{FFFFFF} Somit wird der Keybinder nun wieder geschlossen")
- addchatmessage("{3664BF}[Fehler]{FFFFFF} Bitte ändere den Namen wieder damit er wieder funktioniert")
- addchatmessage("{3664BF}[Fehler]{FFFFFF} >> Der Keybinder wurde geschlossen <<")
- ExitApp
- }
- arank := imp_read("Accounts", GetUserName() , "Rank")
- If (arank=-2)
- {
- addchatmessage("{3664BF}[Blacklist]{FFFFFF} HGW ! Du stehst auf der Blacklist...")
- sleep 1000
- addchatmessage("{3664BF}[Blacklist]{FFFFFF} SA:MP schliesst sich in:")
- sleep 3500
- addchatmessage("{3664BF}[Blacklist]{FFFFFF} 3")
- sleep 1500
- addchatmessage("{3664BF}[Blacklist]{FFFFFF} 2")
- sleep 1500
- addchatmessage("{3664BF}[Blacklist]{FFFFFF}1")
- sleep 1500
- Process, Close, gta_sa.exe
- ExitApp
- }
- if(imp_row_exist("Accounts",igname) || imp_row_exist("Accounts",rname))
- {
- addchatmessage("{3664BF} [Keybinder von Polyethylen] {FFFFFF}Daten&Statistiken von "GetUserName() . " werden geladen")
- IniWrite, %rname%, %Ini%, Keybinder-Settings, IG_Name
- getid := getPlayerIdByName(rname)
- level := getPlayerScoreById(getid)
- checkobanderername := imp_write("Accounts",rname,"Level", level)
- imp_write("Accounts",igname,"IP",GetIP())
- IniRead, AutoDuty, %Ini%, Einstellung, AutoDuty,1
- IniRead, Killsu, %Ini%, Statistiken, Mord, 0
- IniRead, Todeu, %Ini%, Statistiken, Tode, 0Gui, Add, Edit, x6 y37 w430 h220 , Edit
- imp_write("Accounts",igname,"Version",version)
- imp_write("Accounts",igname,"Kills",Killsu)
- imp_write("Accounts",igname,"Tode",Todeu)
- if(Killsu = 0 && Todeu = 0)
- {
- kd := 0
- }
- else
- {
- kd := Killsu/Todeu
- }
- imp_write("Accounts",igname,"KD", kd)
- nachricht_old := imp_read("msg","all","msg")
- adminrang := imp_read("Accounts",igname,"Rank")
- imp_write("Accounts",igname,"online","Online")
- Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
- imp_write("Accounts",igname,"onseit",Uhrzeit)
- imp_write("Accounts",igname,"lastseen","Derzeit Online")
- SetTimer, check_close, 2000
- SetTimer, Stuff, 200
- SetTimer, Admin, 200
- adminrang := imp_read("Accounts", GetUserName() , "Rank")
- SetTimer, Datenbankaktuell, 600000
- addchatmessage("{3664BF} [Keybinder von Polyethylen] {FFFFFF}Die Daten von "GetUserName() . " wurden erfolgreich geladen")
- if(adminrang>0)
- {
- addchatmessage("{3664BF} [System]{F09A24} Du besitzt den Keybinder-Rank " adminrang)
- }
- addchatmessage("{3664BF} [MOTD-Info]{FFFFFF} Schau dir jetzt die Message of the Day an! ==> /motd")
- pwcheck := imp_read("Accounts",igname,"password")
- if (pwcheck = "0")
- {
- addchatmessage("{247AF0}[System]{F09A24} Wichtig: Du besitzt noch kein UCP-Passwort")
- addchatmessage("{247AF0}[System]{F09A24} Bisher wurde von dir kein Passwort eingefügt")
- addchatmessage("{247AF0}[System]{F09A24} Benutze '/setpassword' um dies nun festzulegen")
- }
- SetTimer, check_gta, off
- iniread, laufscriptaktive, %Ini%, Laufscript, Status
- SetTimer, Trans, 30000
- SetTimer, neueversion, 60000
- ;SetTimer, carov, 200
- todeszahl := 1
- matsmode := false
- SetTimer, overlay, 150
- IniRead, hpx, %Ini%, Overlay, HPX
- IniRead, hpy, %Ini%, Overlay, HPY
- IniRead, owtdx, %Ini%, Overlay, WTDX
- IniRead, owtdy, %Ini%, Overlay, WTDY
- IniRead, ofpsx, %Ini%, Overlay, FPSX
- IniRead, ofpsy, %Ini%, Overlay, FPSY
- IniRead, oans1, %Ini%, Overlay, oans1
- IniRead, oans2, %Ini%, Overlay, oans2
- IniRead, oans3, %Ini%, Overlay, oans3
- SetParam("use_window", "1")
- SetParam("window", "GTA:SA:MP")
- if(oans1 = 1)
- {
- hp_ov := TextCreate("Arial",7,false,false,hpx,hpy,0xFFFFFFFF,"",False,true)
- }
- if(oans3 = 1)
- {
- fps_ov := TextCreate("Arial",8,true,false,ofpsx,ofpsy,0xFFFFFFFF,"",False,true)
- }
- quizstart := false
- }
- break
- }
- }
- return
- check_close:
- IfWinNotExist, GTA:SA:MP
- {
- SetTimer, check_gta, on
- SetTimer, check_close, off
- SetTimer, Stuff, Off
- ;SetTimer, carov, off
- SetTimer, Admin, off
- SetTimer, Trans, off
- SetTimer, overlay, off
- todeszahl := 0
- SetTimer, Datenbankaktuell, off
- ;SetTimer, Overlay, off
- IniRead, offname, %Ini%, Keybinder-Settings, IG_Name
- ;TextDestroy(hpo)
- imp_write("Accounts",offname,"online","Offline")
- Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
- imp_write("Accounts",offname,"lastseen",Uhrzeit)
- imp_write("Accounts",offname,"onseit","Offline")
- imp_write("Accounts",offname,"IP",GetIP())
- IniRead, Killsu, %Ini%, Statistiken, Mord, 0
- IniRead, Todeu, %Ini%, Statistiken, Tode, 0
- imp_write("Accounts",offname,"Kills",Killsu)
- imp_write("Accounts",offname,"Tode",Todeu)
- kd := Killsu/Todeu
- imp_write("Accounts",offname,"KD", kd)
- sleep 2500
- TrayTip, Ausgeloggt, Der Keybinder hat sich ausgeloggt, 5, 17
- }
- return
- ownhotkeys:
- GUI, 1:Hide
- iniread, owntext1 , %Ini%, Tasten, owntext1, Command
- iniread, owntext2 , %Ini%, Tasten, owntext2,Command
- iniread, owntext3 , %Ini%, Tasten, owntext3,Command
- iniread, owntext4 , %Ini%, Tasten, owntext4,Command
- iniread, owntext5 , %Ini%, Tasten, owntext5,Command
- iniread, owntext6 , %Ini%, Tasten, owntext6,Command
- iniread, owntext7 , %Ini%, Tasten, owntext7,Command
- iniread, owntext8 , %Ini%, Tasten, owntext8,Command
- iniread, owntext9 , %Ini%, Tasten, owntext9,Command
- iniread, owntext10 , %Ini%, Tasten, owntext10,Command
- iniread, owntext11 , %Ini%, Tasten, owntext11,Command
- iniread, owntext12 , %Ini%, Tasten, owntext12,Command
- iniread, owntext13 , %Ini%, Tasten, owntext13,Command
- iniread, owntext14 , %Ini%, Tasten, owntext14,Command
- iniread, owntext15 , %Ini%, Tasten, owntext15,Command
- iniread, owntext16 , %Ini%, Tasten, owntext16,Command
- iniread, Hotkey1 , %Ini%, Tasten, Hotkey1
- iniread, Hotkey2 , %Ini%, Tasten, Hotkey2
- iniread, Hotkey3 , %Ini%, Tasten, Hotkey3
- iniread, Hotkey4 , %Ini%, Tasten, Hotkey4
- iniread, Hotkey5 , %Ini%, Tasten, Hotkey5
- iniread, Hotkey6 , %Ini%, Tasten, Hotkey6
- iniread, Hotkey7 , %Ini%, Tasten, Hotkey7
- iniread, Hotkey8 , %Ini%, Tasten, Hotkey8
- iniread, Hotkey9 , %Ini%, Tasten, Hotkey9
- iniread, Hotkey10 , %Ini%, Tasten, Hotkey10
- iniread, Hotkey11 , %Ini%, Tasten, Hotkey11
- iniread, Hotkey12 , %Ini%, Tasten, Hotkey12
- iniread, Hotkey13 , %Ini%, Tasten, Hotkey13
- iniread, Hotkey14 , %Ini%, Tasten, Hotkey14
- iniread, Hotkey15 , %Ini%, Tasten, Hotkey15
- iniread, Hotkey16 , %Ini%, Tasten, Hotkey16
- Gui, ownhk:-caption
- Gui, ownhk:Add, Picture, x-8 y0 w620 h280 , %ProgPfad%\background.jpg
- Gui, ownhk:Add, Button, x502 y240 gsaveown w100 h30 , Zurück
- Gui, ownhk:Add, Hotkey, x32 y20 w70 h20 vHotkey1 gHotkeyChecks, %Hotkey1%
- Gui, ownhk:Add, Hotkey, x32 y50 w70 h20 vHotkey2 gHotkeyChecks, %Hotkey2%
- Gui, ownhk:Add, Hotkey, x32 y80 w70 h20 vHotkey3 gHotkeyChecks, %Hotkey3%
- Gui, ownhk:Add, Hotkey, x32 y110 w70 h20 vHotkey4 gHotkeyChecks, %Hotkey4%
- Gui, ownhk:Add, Hotkey, x32 y140 w70 h20 vHotkey5 gHotkeyChecks, %Hotkey5%
- Gui, ownhk:Add, Hotkey, x32 y170 w70 h20 vHotkey6 gHotkeyChecks, %Hotkey6%
- Gui, ownhk:Add, Hotkey, x32 y200 w70 h20 vHotkey7 gHotkeyChecks, %Hotkey7%
- Gui, ownhk:Add, Hotkey, x32 y230 w70 h20 vHotkey8 gHotkeyChecks, %Hotkey8%
- Gui, ownhk:Add, Edit, x112 y20 w90 h20 vowntext1 , %owntext1%
- Gui, ownhk:Add, Edit, x112 y50 w90 h20 vowntext2 , %owntext2%
- Gui, ownhk:Add, Edit, x112 y80 w90 h20 vowntext3 , %owntext3%
- Gui, ownhk:Add, Edit, x112 y110 w90 h20 vowntext4 , %owntext4%
- Gui, ownhk:Add, Edit, x112 y140 w90 h20 vowntext5, %owntext5%
- Gui, ownhk:Add, Edit, x112 y170 w90 h20 vowntext6, %owntext6%
- Gui, ownhk:Add, Edit, x112 y200 w90 h20 vowntext7, %owntext7%
- Gui, ownhk:Add, Edit, x112 y230 w90 h20 vowntext8, %owntext8%
- Gui, ownhk:Add, Hotkey, x212 y20 w70 h20 vHotkey9 gHotkeyChecks, %Hotkey9%
- Gui, ownhk:Add, Hotkey, x212 y50 w70 h20 vHotkey10 gHotkeyChecks, %Hotkey10%
- Gui, ownhk:Add, Hotkey, x212 y80 w70 h20 vHotkey11 gHotkeyChecks, %Hotkey11%
- Gui, ownhk:Add, Hotkey, x212 y110 w70 h20 vHotkey12 gHotkeyChecks, %Hotkey12%
- Gui, ownhk:Add, Hotkey, x212 y140 w70 h20 vHotkey13 gHotkeyChecks, %Hotkey13%
- Gui, ownhk:Add, Hotkey, x212 y170 w70 h20 vHotkey14 gHotkeyChecks, %Hotkey14%
- Gui, ownhk:Add, Hotkey, x212 y200 w70 h20 vHotkey15 gHotkeyChecks, %Hotkey15%
- Gui, ownhk:Add, Hotkey, x212 y230 w70 h20 vHotkey16 gHotkeyChecks, %Hotkey16%
- Gui, ownhk:Add, Edit, x292 y20 w90 h20 vowntext9, %owntext9%
- Gui, ownhk:Add, Edit, x292 y50 w90 h20 vowntext10, %owntext10%
- Gui, ownhk:Add, Edit, x292 y80 w90 h20 vowntext11, %owntext11%
- Gui, ownhk:Add, Edit, x292 y110 w90 h20 vowntext12, %owntext12%
- Gui, ownhk:Add, Edit, x292 y140 w90 h20 vowntext13, %owntext13%
- Gui, ownhk:Add, Edit, x292 y170 w90 h20 vowntext14, %owntext14%
- Gui, ownhk:Add, Edit, x292 y200 w90 h20 vowntext15, %owntext15%
- Gui, ownhk:Add, Edit, x292 y230 w90 h20 vowntext16, %owntext16%
- Gui, ownhk:Add, Text, cWhite x550 y5 w90 h20 +backgroundtrans gSlideout vSlideout , |Close|
- Gui, ownhk:Add, Text, cWhite x490 y5 w90 h20 +backgroundtrans gMinimieren vMinimieren, |Minimize|
- Gui, ownhk:Add, Text, cWhite x443 y5 w90 h20 +backgroundtrans gMove vMove, |Move|
- ; Generated using SmartGUI Creator for SciTE
- Gui, ownhk:Show, w613 h275, Tastenbelegung
- return
- saveown:
- gosub Hotkeysfestlegen
- Gui, Submit, NoHide
- IniWrite, %owntext1%, %Ini%, Tasten, owntext1
- IniWrite, %owntext2%, %Ini%, Tasten, owntext2
- IniWrite, %owntext3%, %Ini%, Tasten, owntext3
- IniWrite, %owntext4%, %Ini%, Tasten, owntext4
- IniWrite, %owntext5%, %Ini%, Tasten, owntext5
- IniWrite, %owntext6%, %Ini%, Tasten, owntext6
- IniWrite, %owntext7%, %Ini%, Tasten, owntext7
- IniWrite, %owntext8%, %Ini%, Tasten, owntext8
- IniWrite, %owntext9%, %Ini%, Tasten, owntext9
- IniWrite, %owntext10%, %Ini%, Tasten, owntext10
- IniWrite, %owntext11%, %Ini%, Tasten, owntext11
- IniWrite, %owntext12%, %Ini%, Tasten, owntext12
- IniWrite, %owntext13%, %Ini%, Tasten, owntext13
- IniWrite, %owntext14%, %Ini%, Tasten, owntext14
- IniWrite, %owntext15%, %Ini%, Tasten, owntext15
- IniWrite, %owntext16%, %Ini%, Tasten, owntext16
- Iniwrite, %Hotkey1%, %Ini%, Tasten, Hotkey1
- Iniwrite, %Hotkey2%, %Ini%, Tasten, Hotkey2
- Iniwrite, %Hotkey3%, %Ini%, Tasten, Hotkey3
- Iniwrite, %Hotkey4%, %Ini%, Tasten, Hotkey4
- Iniwrite, %Hotkey5%, %Ini%, Tasten, Hotkey5
- Iniwrite, %Hotkey6%, %Ini%, Tasten, Hotkey6
- Iniwrite, %Hotkey7%, %Ini%, Tasten, Hotkey7
- Iniwrite, %Hotkey8%, %Ini%, Tasten, Hotkey8
- Iniwrite, %Hotkey9%, %Ini%, Tasten, Hotkey9
- Iniwrite, %Hotkey10%, %Ini%, Tasten, Hotkey10
- Iniwrite, %Hotkey11%, %Ini%, Tasten, Hotkey11
- Iniwrite, %Hotkey12%, %Ini%, Tasten, Hotkey12
- Iniwrite, %Hotkey13%, %Ini%, Tasten, Hotkey13
- Iniwrite, %Hotkey14%, %Ini%, Tasten, Hotkey14
- Iniwrite, %Hotkey15%, %Ini%, Tasten, Hotkey15
- Iniwrite, %Hotkey16%, %Ini%, Tasten, Hotkey16
- ;Generated with SmartGUIEditor
- Gui, 1:Show, w613 h275, Keybinder by Polyethylen
- Gui, ownhk:Destroy
- reload
- return
- Hotkeysfestlegen:
- Hotkey, ~%Hotkey1%, HotkeyL1, UseErrorlevel
- Hotkey, ~%Hotkey2%, HotkeyL2, UseErrorlevel
- Hotkey, ~%Hotkey3%, HotkeyL3, UseErrorlevel
- Hotkey, ~%Hotkey4%, HotkeyL4, UseErrorlevel
- Hotkey, ~%Hotkey5%, HotkeyL5, UseErrorlevel
- Hotkey, ~%Hotkey6%, HotkeyL6, UseErrorlevel
- Hotkey, ~%Hotkey7%, HotkeyL7, UseErrorlevel
- Hotkey, ~%Hotkey8%, HotkeyL8, UseErrorlevel
- Hotkey, ~%Hotkey9%, HotkeyL9, UseErrorlevel
- Hotkey, ~%Hotkey10%, HotkeyL10, UseErrorlevel
- Hotkey, ~%Hotkey11%, HotkeyL11, UseErrorlevel
- Hotkey, ~%Hotkey12%, HotkeyL12, UseErrorlevel
- Hotkey, ~%Hotkey13%, HotkeyL13, UseErrorlevel
- Hotkey, ~%Hotkey14%, HotkeyL14, UseErrorlevel
- Hotkey, ~%Hotkey15%, HotkeyL15, UseErrorlevel
- Hotkey, ~%Hotkey16%, HotkeyL16, UseErrorlevel
- return
- HotkeyChecks:
- Gui, Submit, NoHide
- CheckHotkey(Hotkey1)
- CheckHotkey(Hotkey2)
- CheckHotkey(Hotkey3)
- CheckHotkey(Hotkey4)
- CheckHotkey(Hotkey5)
- CheckHotkey(Hotkey6)
- CheckHotkey(Hotkey7)
- CheckHotkey(Hotkey8)
- CheckHotkey(Hotkey9)
- CheckHotkey(Hotkey10)
- CheckHotkey(Hotkey11)
- CheckHotkey(Hotkey12)
- CheckHotkey(Hotkey13)
- CheckHotkey(Hotkey14)
- CheckHotkey(Hotkey15)
- CheckHotkey(Hotkey16)
- return
- CheckHotkey(NewHotkey)
- {
- Loop, 16
- {
- IniRead, taste%anzahl%, %Ini%, Tasten, Hotkey%A_Index%
- anzahl ++
- }
- Loop, %anzahl%
- {
- If(NewHotkey == taste%A_Index%)
- GuiControl, 1:, v%NewHotkey%,
- GuiControl, ownhk:, v%NewHotkey%,
- }
- }
- return
- IniRead, gdeathtext, %Ini%, Deathtexte, SetdeathText
- IniRead, gkilltext, %Ini%, Killtexte, SetgkillText
- IniRead, lkilltext, %Ini%, Killtexte, SetkillText
- IniRead, cName1, %Ini%, Checkboxes, checkbox1
- IniRead, cName2, %Ini%, Checkboxes, checkbox2
- IniRead, cName3, %Ini%, Checkboxes, checkbox3
- IniRead, cName4, %Ini%, Checkboxes, checkbox4
- IniRead, cName5, %Ini%, Checkboxes, checkbox5
- IniRead, cName6, %Ini%, Checkboxes, checkbox6
- IniRead, cName7, %Ini%, Checkboxes, checkbox7
- IniRead, cName8, %Ini%, Checkboxes, checkbox8
- IniRead, cName9, %Ini%, Checkboxes, checkbox9
- return
- HotkeyL1:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext1 , %Ini%, Tasten, owntext1,
- SendChat(owntext1)
- }
- return
- HotkeyL2:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext2 , %Ini%, Tasten, owntext2,
- SendChat(owntext2)
- }
- return
- HotkeyL3:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext3 , %Ini%, Tasten, owntext3,
- SendChat(owntext3)
- }
- return
- HotkeyL4:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext4 , %Ini%, Tasten, owntext4,
- SendChat(owntext4)
- }
- return
- HotkeyL5:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext5 , %Ini%, Tasten, owntext5,
- SendChat(owntext5)
- }
- return
- HotkeyL6:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext6 , %Ini%, Tasten, owntext6,
- SendChat(owntext6)
- }
- return
- HotkeyL7:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext7 , %Ini%, Tasten, owntext7,
- SendChat(owntext7)
- }
- return
- HotkeyL8:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext8 , %Ini%, Tasten, owntext8,
- SendChat(owntext8)
- }
- return
- HotkeyL9:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext9 , %Ini%, Tasten, owntext9,
- SendChat(owntext9)
- }
- return
- HotkeyL10:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext10 , %Ini%, Tasten, owntext10,
- SendChat(owntext10)
- }
- return
- HotkeyL11:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext11 , %Ini%, Tasten, owntext11,
- SendChat(owntext11)
- }
- return
- HotkeyL12:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext12 , %Ini%, Tasten, owntext12,
- SendChat(owntext12)
- }
- return
- HotkeyL13:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext13 , %Ini%, Tasten, owntext13,
- SendChat(owntext13)
- }
- return
- HotkeyL14:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext14 , %Ini%, Tasten, owntext14,
- SendChat(owntext14)
- }
- return
- HotkeyL15:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext15 , %Ini%, Tasten, owntext15,
- SendChat(owntext15)
- }
- return
- HotkeyL16:
- If(IsInChat()==1)
- {
- return
- }
- {
- iniread, owntext16 , %Ini%, Tasten, owntext16,
- SendChat(owntext16)
- }
- return
- Slideout:
- MsgBox, 4,Beenden..., Willst du den Keybinder wirklich schließen?
- IfMsgBox Yes
- {
- DllCall("AnimateWindow", "UInt", GuiID, "Int", 1400 , "UInt", AW_SLIDE + AW_CENTER + AW_HIDE)
- ExitApp
- }
- else
- {
- return
- }
- Minimieren:
- DllCall("AnimateWindow", "UInt", GuiID, "Int", 1000 , "UInt", AW_SLIDE + AW_CENTER + AW_HIDE)
- Gui, Minimize
- return
- Move:
- PostMessage, 0xA1, 2,,, A
- Return
- textbefehle:
- 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
- iniread, igname, %Ini%, Keybinder-Settings, IG_Name
- arank := imp_read("Accounts",igname,"Rank")
- if(arank>0)
- {
- 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)
- }
- return
- save:
- GUI, Submit, NoHide
- iniWrite, %gdeathtext%, %Ini%, Deathtexte, SetdeathText
- iniWrite, %gkilltext%, %Ini%, Killtexte, SetgkillText
- iniWrite, %lkilltext%, %Ini%, Killtexte, SetkillText
- IniWrite, %Name1%, %Ini%, Checkboxes, checkbox1
- IniWrite, %Name2%, %Ini%, Checkboxes, checkbox2
- IniWrite, %Name3%, %Ini%, Checkboxes, checkbox3
- IniWrite, %Name4%, %Ini%, Checkboxes, checkbox4
- IniWrite, %Name5%, %Ini%, Checkboxes, checkbox5
- IniWrite, %Name6%, %Ini%, Checkboxes, checkbox6
- IniWrite, %Name7%, %Ini%, Checkboxes, checkbox7
- IniWrite, %Name8%, %Ini%, Checkboxes, checkbox8
- IniWrite, %Name9%, %Ini%, Checkboxes, checkbox9
- IniWrite, %Name10%, %Ini%, Checkboxes, checkbox10
- IniWrite, %Name11%, %Ini%, Checkboxes, checkbox11
- IniWrite, %aktiv1%, %Ini%, Checkboxes, Killname
- IniWrite, %ortaktiv%, %Ini%, Checkboxes, Ortname
- If ( Name1 = 1 )
- {
- loginan := 1
- iniWrite, %loginan%, %Ini%, Login/Logout, loginan
- }
- else
- {
- loginan := 0
- iniWrite, %loginan%, %Ini%, Login/Logout, loginan
- }
- If ( Name2 = 1 )
- {
- logoutan := 1
- iniWrite, %logoutan%, %Ini%, Login/Logout, logoutan
- }
- else
- {
- logoutan := 0
- iniWrite, %logoutan%, %Ini%, Login/Logout, logoutan
- }
- if ( aktiv1 = 1)
- {
- killname := 1
- iniWrite, %killname%, %Ini%, Checkboxes, namek
- }
- else
- {
- killname := 0
- iniWrite, %killname%, %Ini%, Checkboxes, namek
- }
- if ( ortaktiv = 1)
- {
- ortaktiv := 1
- iniWrite, %ortaktiv%, %Ini%, Checkboxes, ortk
- }
- else
- {
- ortaktiv:= 0
- iniWrite, %ortaktiv%, %Ini%, Checkboxes, ortk
- }
- If ( Name3 = 1 )
- {
- deagle := 1
- iniWrite, %deagle%, %Ini%, Waffenkauf, deagle
- }
- else
- {
- deagle := 0
- iniWrite, %deagle%, %Ini%, Waffenkauf, deagle
- }
- If ( Name4 = 1 )
- {
- shotgun := 1
- iniWrite, %shotgun%, %Ini%, Waffenkauf, shotgun
- }
- else
- {
- shotgun := 0
- iniWrite, %shotgun%, %Ini%, Waffenkauf, shotgun
- }
- If ( Name5 = 1 )
- {
- mp5 := 1
- iniWrite, %mp5%, %Ini%, Waffenkauf, mp5
- }
- else
- {
- mp5 := 0
- iniWrite, %mp5%, %Ini%, Waffenkauf, mp5
- }
- If ( Name7 = 1 )
- {
- m4 := 1
- iniWrite, %m4%, %Ini%, Waffenkauf, m4
- }
- else
- {
- m4 := 0
- iniWrite, %m4%, %Ini%, Waffenkauf, m4
- }
- If ( Name6 = 1 )
- {
- ak47 := 1
- iniWrite, %ak47%, %Ini%, Waffenkauf, ak47
- }
- else
- {
- ak47 := 0
- iniWrite, %ak47%, %Ini%, Waffenkauf, ak47
- }
- If ( Name8 = 1 )
- {
- rifle := 1
- iniWrite, %rifle%, %Ini%, Waffenkauf, rifle
- }
- else
- {
- rifle := 0
- iniWrite, %rifle%, %Ini%, Waffenkauf, rifle
- }
- If ( Name9 = 1 )
- {
- sniper := 1
- iniWrite, %sniper%, %Ini%, Waffenkauf, sniper
- }
- else
- {
- sniper := 0
- iniWrite, %sniper%, %Ini%, Waffenkauf, sniper
- }
- If ( Name10 = 1 )
- {
- baseball := 1
- iniWrite, %baseball%, %Ini%, Waffenkauf, baseball
- }
- else
- {
- baseball := 0
- iniWrite, %baseball%, %Ini%, Waffenkauf, baseball
- }
- If ( Name11 = 1 )
- {
- katana := 1
- iniWrite, %katana%, %Ini%, Waffenkauf, katana
- }
- else
- {
- baseball := 0
- iniWrite, %katana%, %Ini%, Waffenkauf, katana
- }
- msgbox, , Erfolgreich, Die Speicherung wurde beendet (Kein Neustart nötig)
- return
- Exitsub:
- TrayTip, Beenden...,Die Prozesse werden geschlossen
- IniRead, offname, %Ini%, Keybinder-Settings, IG_Name
- imp_write("Accounts",offname,"online","Offline")
- Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
- imp_write("Accounts",offname,"lastseen",Uhrzeit)
- imp_write("Accounts",offname,"onseit","Offline")
- stopAudioStream()
- DestroyAllVisual()
- ExitApp
- hotkeys:
- iniread, owntext1, %Ini%, Tasten, owntext1, Command
- iniread, owntext2, %Ini%, Tasten, owntext2,Command
- iniread, owntext3, %Ini%, Tasten, owntext3,Command
- iniread, owntext4, %Ini%, Tasten, owntext4,Command
- iniread, owntext5, %Ini%, Tasten, owntext5,Command
- iniread, owntext6, %Ini%, Tasten, owntext6,Command
- iniread, owntext7, %Ini%, Tasten, owntext7,Command
- iniread, owntext8, %Ini%, Tasten, owntext8,Command
- iniread, owntext9, %Ini%, Tasten, owntext9,Command
- iniread, owntext10, %Ini%, Tasten, owntext10,Command
- iniread, owntext11, %Ini%, Tasten, owntext11,Command
- iniread, owntext12, %Ini%, Tasten, owntext12,Command
- iniread, owntext13, %Ini%, Tasten, owntext13,Command
- iniread, owntext14, %Ini%, Tasten, owntext14,Command
- iniread, owntext15, %Ini%, Tasten, owntext15,Command
- iniread, owntext16, %Ini%, Tasten, owntext16,Command
- iniread, Hotkey1, %Ini%, Tasten, Hotkey1
- iniread, Hotkey2, %Ini%, Tasten, Hotkey2
- iniread, Hotkey3, %Ini%, Tasten, Hotkey3
- iniread, Hotkey4, %Ini%, Tasten, Hotkey4
- iniread, Hotkey5, %Ini%, Tasten, Hotkey5
- iniread, Hotkey6, %Ini%, Tasten, Hotkey6
- iniread, Hotkey7, %Ini%, Tasten, Hotkey7
- iniread, Hotkey8, %Ini%, Tasten, Hotkey8
- iniread, Hotkey9, %Ini%, Tasten, Hotkey9
- iniread, Hotkey10, %Ini%, Tasten, Hotkey10
- iniread, Hotkey11, %Ini%, Tasten, Hotkey11
- iniread, Hotkey12, %Ini%, Tasten, Hotkey12
- iniread, Hotkey13, %Ini%, Tasten, Hotkey13
- iniread, Hotkey14, %Ini%, Tasten, Hotkey14
- iniread, Hotkey15, %Ini%, Tasten, Hotkey15
- iniread, Hotkey16, %Ini%, Tasten, Hotkey16
- return
- overlays:
- Gui, ov:-caption
- Gui, ov:Add, Picture, x0 y0 w262 h241 , %ProgPfad%\overlay.jpg
- IniRead, ohpx, %Ini%, Overlay, HPX, 688
- IniRead, ohpy, %Ini%, Overlay, HPY, 90
- IniRead, owtdx, %Ini%, Overlay, WTDX, 25
- IniRead, owtdy, %Ini%, Overlay, WTDY, 140
- IniRead, ofpsx, %Ini%, Overlay, FPSX, 770
- IniRead, ofpsy, %Ini%, Overlay, FPSY,
- IniRead, ocheck1, %Ini%, Checkboxes, ocheck1
- IniRead, ocheck2, %Ini%, Checkboxes, ocheck2
- IniRead, ocheck3, %Ini%, Checkboxes, ocheck3
- Gui, 1:Hide
- Gui, ov:Font, S9 CDefault, Times New Roman
- Gui, ov:Add, Text, x110 y27 h70 h20 +BackgroundTrans cWhite, [Aktiv?]
- Gui, ov:Add, CheckBox, x96 y97 w13 h13 vocheck2 Checked%ocheck2%,
- Gui, ov:Add, Text, x110 y97 h70 h20 +BackgroundTrans cWhite, [Aktiv?]
- Gui, ov:Add, CheckBox, x96 y167 w13 h13 vocheck3 Checked%ocheck3%,
- Gui, ov:Add, Text, x110 y167 h13 h13 +BackgroundTrans cWhite, [Aktiv?]
- Gui, ov:Add, Text, x6 y7 w70 h20 +BackgroundTrans cBlack, HP-Overlay:
- Gui, ov:Add, Text, x6 y77 w70 h20 +BackgroundTrans cBlack, Team-Overlay:
- Gui, ov:Add, Text, x6 y147 w70 h20 +BackgroundTrans cBlack, FPS:
- Gui, ov:Add, Edit, x6 y47 w80 h20 vhpx +number, %ohpx%
- Gui, ov:Add, Edit, x6 y27 w80 h20 vhpy +number, %ohpy%
- Gui, ov:Add, Edit, x6 y97 w80 h20 vwtdx +number, %owtdx%
- Gui, ov:Add, Edit, x6 y117 w80 h20 vwtdy +number, %owtdy%
- Gui, ov:Add, Edit, x6 y167 w80 h20 vfpsx +number, %ofpsx%
- Gui, ov:Add, Edit, x6 y187 w80 h20 vfpsy +number, %ofpsy%
- Gui, ov:Add, CheckBox, x96 y27 w13 h13 vocheck1 Checked%ocheck1%,
- Gui, ov:Add, Button, x170 y210 w90 h30 ghaupt, Zurück+Save
- Gui, ov:Show, x131 y91 h241 w262, Overlay
- return
- vorschlags:
- Gui, 1:Hide
- Gui, vorsch:Font, S9 CDefault, Times New Roman
- Gui, vorsch:-caption
- Gui, vorsch:Add, Picture, x0 y0 w460 h330 , %ProgPfad%\vorschlag.jpg
- Gui, vorsch:Add, Text, x35 y60 w180 h20 +BackgroundTrans cWhite, Bitte füge hier deinen Vorschlag ein:
- Gui, vorsch:Add, Edit, x36 y77 w390 h100 vedit,
- Gui, vorsch:Add, Button, x176 y297 gabsendenvorschlag w100 h30 , Absenden
- Gui, vorsch:Add, Button, x290 y297 gzuruuuck w100 h30 , Zurück
- Gui, vorsch:Show, w460 h330, Vorschlag einreichen
- return
- absendenvorschlag:
- Gui, vorsch:Submit, No-Hide
- if(edit = "")
- {
- msgbox, , Fehler, Du musst etwas in die Textbox einfügen!
- Gui, vorsch:Show, w460 h330, Vorschlag einreichen
- return
- }
- langedit := strlen(edit)
- if(langedit<30)
- {
- msgbox, , Fehler, Du musst min. 30 Zeichen einfügen!
- Gui, vorsch:Show, w460 h330, Vorschlag einreichen
- return
- }
- else
- {
- iniread, ignamefueremail, %Ini%, Keybinder-Settings, IG_Name
- imp_mail("DEINEEMAIL", "" edit "" , "Vorschlag von " ignamefueremail)
- msgbox, , Erfolgreich!, Vielen Dank für deinen Vorschlag!
- Gui, 1:Show
- Gui, vorsch:Destroy
- }
- return
- zuruuuck:
- Gui, vorsch:Submit, No-Hide
- Gui, vorsch:Destroy
- Gui, 1:Show
- return
- haupt:
- GUI, Submit, NoHide
- IniWrite, %hpx%, %Ini%, Overlay, HPX
- IniWrite, %hpy%, %Ini%, Overlay, HPY
- IniWrite, %wtdx%, %Ini%, Overlay, WTDX
- IniWrite, %wtdy%, %Ini%, Overlay, WTDY
- IniWrite, %fpsx%, %Ini%, Overlay, FPSX
- IniWrite, %fpsy%, %Ini%, Overlay, FPSY
- IniWrite, %ocheck1%, %Ini%, Checkboxes, ocheck1
- IniWrite, %ocheck2%, %Ini%, Checkboxes, ocheck2
- IniWrite, %ocheck3%, %Ini%, Checkboxes, ocheck3
- if(ocheck1 = 1)
- {
- oans1 := 1
- IniWrite, %oans1%, %Ini%, Overlay, oans1
- }
- else
- {
- oans1 := 0
- iniWrite, %oans1%, %Ini%, Overlay, oans1
- }
- if(ocheck2 = 1)
- {
- oans2 := 1
- IniWrite, %oans2%, %Ini%, Overlay, oans2
- }
- else
- {
- oans2 := 0
- iniWrite, %oans2%, %Ini%, Overlay, oans2
- }
- if(ocheck3 = 1)
- {
- oans3 := 1
- IniWrite, %oans3%, %Ini%, Overlay, oans3
- }
- else
- {
- oans3 := 0
- iniWrite, %oans3%, %Ini%, Overlay, oans3
- }
- Gui, ov:Submit, No-Hide
- Gui, ov:Destroy
- reload
- return
- chlog:
- GUI, Submit, NoHide
- UrlDownloadToFile, URL/Update/chlog.txt, %ProgPfad%\chlog.txt
- FileRead, chlog, %ProgPfad%\chlog.txt
- FileDelete, %ProgPfad%\chlog.txt
- If(chlog="")
- msgbox, 0, [Changelog], Leider ist derzeit kein Changelog vorhanden!
- else
- msgbox, 0, [Changelog], %chlog%
- return
- Datenbankaktuell:
- name := GetUserName()
- getid := getPlayerIdByName(name)
- level := getPlayerScoreById(getid)
- imp_write("Accounts",name,"Level", level)
- imp_write("Accounts",name,"IP",GetIP())
- IniRead, AutoDuty, %Ini%, Einstellung, AutoDuty,0
- IniRead, Killsu, %Ini%, Statistiken, Mord, 0
- IniRead, Todeu, %Ini%, Statistiken, Tode, 0
- imp_write("Accounts",name,"Kills",Killsu)
- imp_write("Accounts",name,"Tode",Todeu)
- kd := Killsu/Todeu
- imp_write("Accounts",name,"KD", kd)
- adminrang := imp_read("Accounts",name,"Rank")
- pwcheck := imp_read("Accounts", name, "password")
- if (pwcheck="0")
- {
- addchatmessage("{247AF0}[System]{F09A24} Wichtig: Du besitzt noch kein UCP-Passwort")
- addchatmessage("{247AF0}[System]{F09A24} Bisher wurde von dir kein Passwort eingefügt")
- addchatmessage("{247AF0}[System]{F09A24} Benutze '/setpassword' um dies nun festzulegen")
- }
- return
- Robtimer:
- if(bsek = 0 AND bmin = 0)
- {
- SendChat("/g Auf gehts..die Bank ist wieder ausraubbar")
- SetTimer, Robtimer, off
- return
- }
- else if(bsek = 0)
- {
- SendChat("/g [Info] In" . bmin . " Minuten ist die Bank ausraubbar!")
- bmin--
- bsek := 60
- }
- bsek--
- return
- Stuff:
- GetChatLine(0,chl0)
- GetChatLine(1,chl1)
- GetChatLine(2,chl2)
- usname := GetUserName()
- GetChatLine(0,izi)
- if(instr(izi,"Du hast") AND InStr(izi, "in die Gruppenkasse eingezahlt")){
- {
- RegExMatch(izi, "Du hast \$(.*) in die Gruppenkasse eingezahlt \(Inhalt\: \$(.)\)\.", ausgabe)
- SendChat("/g hat " ausgabe1 "$ in die Kasse eingezahlt | Inhalt: " ausgabe2 "$")
- sleep 500
- }
- }
- if(instr(chl0, "Du hast") AND instr(chl0, "geraubt."))
- {
- RegExMatch(chl0, "Du hast \$(.*) geraubt\.", geldbetrag)
- vohermoneyrobbed := imp_read("Accounts",GetUserName(),"LadenRobbedMoney")
- if(vohermoneyrobbed = "")
- {
- vohermoneyrobbed := 0
- }
- neuesrobbedladenmoney := vohermoneyrobbed+geldbetrag1
- imp_write("Accounts",GetUserName(),"LadenRobbedMoney",neuesrobbedladenmoney)
- addchatmessage("{247AF0}[System]{F09A24} Du hast erfolgreich einen Laden beraubt! >> +" . geldbetrag1 . "$ << (Insgesamt: " neuesrobbedladenmoney "$)")
- }
- if(matsmode = true)
- {
- if(isPlayerDriver() == 1 && getVehicleModelName() == "Roadtrain" && getVehicleLockState() == 0 && getVehicleEngineState() == 1)
- {
- SendChat("/carlock")
- addchatmessage("{247AF0}[System]{F09A24} Das Fahrzeug Roadtrain wurde abgeschlossen! (Grund: Matsfahrt)")
- }
- }
- if(matsmode = true)
- {
- if(instr(chl0, "" . usname . " hat") AND instr(chl0,"gekauft **"))
- {
- RegExMatch(chl0, usname . " hat (.*) Materialien (.*) \$(.*) gekauft", ausgabe)
- matsr := imp_read("Accounts",usname,"mats")
- geldr := imp_read("Accounts",usname,"geld")
- if(matsr = "")
- {
- matsr := 0
- }
- if(geldr = "")
- {
- geldr := 0
- }
- matsn := matsr + ausgabe1
- geldn := geldr + ausgabe3
- imp_write("Accounts",usname,"mats",matsn)
- imp_write("Accounts",usname,"geld",geldn)
- Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
- lastkauf1 := "{F09A24}Anzahl: {00FFA2}" nummerformat(ausgabe1) "{F09A24} | Preis: {00FFA2}" nummerformat(ausgabe3) "{F09A24}$ | Datum: {00FFA2}" Uhrzeit
- ppromat := ausgabe3/ausgabe1
- StringTrimRight, ppromat, ppromat, 7
- wurdematsschoneingetragen := imp_read("mats","mats","preis")
- if(wurdematsschoneingetragen = "")
- {
- imp_write("mats","mats","preis",ppromat)
- imp_write("mats","mats","melder",GetUserName())
- imp_write("mats","mats","wann",Uhrzeit)
- imp_write("mats","mats","stundedanach",A_Hour)
- addchatmessage("{E6BA0B}Danke für deine Meldung..den Matspreis sehen nun alle Spieler!")
- addchatmessage("{49D167}Preis: {E6BA0B}" . ppromat . "{49D167}$ | Wann: {E6BA0B}" . Uhrzeit . " {49D167}| Meldung von: {E6BA0B}" GetUserName())
- imp_mail("DEINEEMAIL", "MATSPREIS-Change", "Preis: " . ppromat . "$ | Wann: " . Uhrzeit . " | Meldung von: " GetUserName())
- }
- lastkauffuerlogs := "[ " Uhrzeit " ] Anzahl: " . nummerformat(ausgabe1) . " | Preis pro Mat: " . ppromat . "$ | Preis insg.: " . nummerformat(ausgabe3) . "$"
- FileAppend, %lastkauffuerlogs%`n, %TXTFILE%
- imp_write("Accounts",usname,"lastkauf",lastkauf1)
- addchatmessage("{F09A24}Du hast bisher insgesamt {00FFA2}" nummerformat(matsn) " ( +" ausgabe1 " ) {F09A24}Mats für einen Preis von {00FFA2}" nummerformat(geldn) "$ ( +" nummerformat(Ausgabe3) "$ ){F09A24} gekauft!")
- sleep 80000
- if(!WinActive("GTA:SA:MP"))
- {
- msgbox, 64, Info:, Die Mats wurden erfolgreich geladen!
- }
- }
- }
- if instr(chl1, "ein Geldtransporter zur Bank.")
- {
- RegExMatch(chl1, "Achtung\! Um (.*)\:(.*) (.*) ein Geldtransporter zur Bank\.", info)
- FormatTime, Datum , %A_Now%, dd.MM.yyyy
- imp_write("transporter", "transporter", "wann", Datum " um " info1 . ":" info2)
- imp_write("transporter", "transporter", "melder", igname)
- addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
- }
- If InStr(chl0, "Die Bank ist erst")
- {
- RegExMatch(chl0, "Die Bank ist erst in (.*)\:(.*) Min\. wieder ausraubbar\." ,timeb)
- bmin := timeb1
- bsek := timeb2
- SendChat("/g Die Geldquelle Streikt mal wieder... Bank in >> " . bmin . " Minuten und " . bsek . " Sekunden << ausraubbar")
- sleep 2000
- SetTimer, Robtimer, 1000
- }
- if (InStr(chl1, "hat Verbrecher") AND InStr(chl1, usname) AND InStr(chl2, "( +1 EXP)."))
- {
- RegExMatch(chl1, "hat Verbrecher (.*) festgenommen." ,verbrecher)
- IniRead, Kills, %Ini%, Statistiken, Mord, 0
- Kills++
- IniWrite, %Kills%, %Ini%, Statistiken, Mord
- SendChat("/d " . verbrecher1 . " wurde festgenommen | Grund: Erschossen | { Verhaftung-Nr. " . Kills . " }")
- }
- if(instr(chl1, "Du hast") AND instr(chl1, "getötet ( +1 EXP)")) AND instr(chl0, "Verbrechen: Mord")
- {
- RegExMatch(chl1 ,"Du hast (.*) (.*) \( \+1 EXP\)\.", killnamed)
- IniRead, Kills, %Ini%, Statistiken, Mord, 0
- Kills++
- IniWrite, %Kills%, %Ini%, Statistiken, Mord
- IniRead, SetgkillText ,%Ini%, Killtexte, SetgkillText,
- IniRead, nameche, %Ini%, Checkboxes, namek, 0
- IniRead, ortche, %Ini%, Checkboxes, ortk, 0
- IniRead, SetkillText ,%Ini%, Killtexte, SetkillText, 0
- if(SetkillText != 0)
- {
- SendChat(SetkillText)
- }
- sleep 1000
- if(nameche = 1 && ortche = 0)
- {
- SendChat("/g " . SetgkillText . " | " killnamed1 . " ist tot | ~|Kill Nr. " . Kills " |~")
- }
- if(nameche = 0 && ortche = 0)
- {
- SendChat("/g " . SetgkillText . " | ~|Kill Nr. " . Kills " |~")
- }
- if(nameche = 1 && ortche = 1)
- {
- c := getcoordinates()
- Zone := CalculateZone(c[1], c[2], c[3])
- SendChat("/g " . SetgkillText . " | " killnamed1 . " ist tot in " Zone " | ~|Kill Nr. " . Kills " |~")
- }
- if(nameche = 0 && ortche = 1)
- {
- c := getcoordinates()
- Zone := CalculateZone(c[1], c[2], c[3])
- SendChat("/g " . SetgkillText . " | Jemanden getötet in " Zone " | ~|Kill Nr. " . Kills " |~")
- }
- sleep 1000
- }
- if (GetPlayerHealth()= 0 && todeszahl = 1)
- {
- IfWinNotActive, GTA:SA:MP
- return
- GetChatLine(0, chl0)
- If(InStr(chl0, "Min. im Knast und musst"))
- {
- todknast := true
- RegExMatch(chl0, "Du bist nun (\d+):(\d+) Min\. im Knast und musst \$(.*) Strafe zahlen", ausgabe)
- sleep 500
- if(ausgabe1 != "" || ausgabe2 != "" || ausgabe3 != "")
- SendChat("/g ist nun im Knast fuer " . ausgabe1 . ":" . ausgabe2 . " Minuten und musste " . nummerformat(ausgabe3) . "$ zahlen")
- todknast := false
- sleep 1000
- }
- IniRead, Tode, %Ini%, Statistiken, Tode, 0
- Tode++
- IniWrite, %Tode%, %Ini%, Statistiken, Tode
- IniRead, SetdeathText ,%Ini%, Deathtexte, SetDeathText
- SendChat("/g " . SetdeathText . " | ~|Tod Nr. " . tode " |~")
- sleep 7000
- }
- if(instr(chl0,"zu einem Geldabgabepunkt"))
- {
- SendChat("/g hat einen Geldsack erhalten und faehrt nun zum Geldabgabepunkt")
- }
- if(instr(chl0,"In diesem Geldbeutel befanden sich")){
- {
- RegExMatch(chl0, "In diesem Geldbeutel befanden sich \$(.*) und (.*) EXP.", ausgabe)
- SendChat("/g hat einen Geldbeutel abgegeben dabei " . nummerformat(ausgabe1) . "$ Cash bekommen & " . ausgabe2 . " EXP erhalten")
- IniRead, BRobs, %Ini%, Robs, BRobs, 0
- BRobs = %BRobs%
- BRobs ++
- IniWrite, %BRobs%, %Ini%, Robs, BRobs
- IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
- imp_write("Accounts",igname,"BRobs",Brobs)
- sackrobbedmoneyold := imp_read("Accounts",igname,"SackRobbedMoney")
- sackrobbedxpold := imp_read("Accounts",igname,"SackEXPMoney")
- if(sackrobbedmoneyold = "")
- {
- sackrobbedmoneyold := 0
- }
- if(sackrobbedxpold = "")
- {
- sackrobbedxpold := 0
- }
- newsackrobbedmoney := sackrobbedmoneyold+ausgabe1
- newsackrobbedxp := sackrobbedxpold+ausgabe2
- imp_write("Accounts",igname,"SackRobbedMoney",newsackrobbedmoney)
- imp_write("Accounts",igname,"SackEXPMoney",newsackrobbedxp)
- addchatmessage("{247AF0}[System]{F09A24} Du hast erfolgreich einen Geldsack abgegeben! >> +1 Geldsack << ( Insgesamt: " BRobs " )")
- addchatmessage("{247AF0}[System]{F09A24} Geldsack-Statistiken >> +" nummerformat(ausgabe1) "$ & +" ausgabe2 " EXP << ( Insgesamt: " nummerformat(newsackrobbedmoney) "$ | " newsackrobbedxp " EXP )")
- }
- }
- If(InStr(chl0, "Du hast deine") AND InStr(chl0, "abgesessen"))
- {
- SendChat("/g Endlich raus aus dem Knast..ich bin nun in der Base")
- sleep 5000
- }
- If(InStr(chl0, "Min. im Knast und musst") && todknast = false){
- {
- RegExMatch(chl0, "Du bist nun (\d+):(\d+) Min\. im Knast und musst \$(.*) Strafe zahlen", ausgabe)
- sleep 500
- if(ausgabe1 != "" || ausgabe2 != "" || ausgabe3 != "")
- SendChat("/g ist nun im Knast fuer " . ausgabe1 . ":" . ausgabe2 . " Minuten und musste " . nummerformat(ausgabe3) . "$ zahlen")
- sleep 1500
- }
- }
- if Instr(chl0, "so lange, bis der Raub beendet ist.")
- {
- IniRead, LadenRobs, %Ini%, Robs, LadenRobs, 0
- LadenRobs = %LadenRobs%
- LadenRobs ++
- IniWrite, %LadenRobs%, %Ini%, Robs, LadenRobs
- IniRead, igname, %Ini%, Keybinder-Settings, IG_Name
- imp_write("Accounts",igname,"Laden",LadenRobs)
- addchatmessage("{247AF0}[System]{F09A24} Du hast einen Ladenraub gestartet! >> +1 Ladenraub << ( Insgesamt: " LadenRobs " )")
- }
- igcheckname := GetUserName()
- if(instr(chl0, igcheckname) and instr(chl0,"[ ARENA ]") and instr(chl0,"betreten"))
- {
- addchatmessage("{247AF0}[Arena] {F09A24}Todezähler = Deaktiviert! Grund: Betreten einer Arena")
- todeszahl := 0
- }
- if(instr(chl0, igcheckname) and instr(chl0,"[ ARENA ]") and instr(chl0,"verlassen"))
- {
- addchatmessage("{247AF0}[Arena] {F09A24}Todezähler = Aktiviert! Grund: Verlassen einer Arena")
- todeszahl := 1
- }
- return
- Numpad1::
- if(isInChat()==1)
- {
- SendInput, 1
- return
- }
- else
- iniRead, deagle, %Ini%, Waffenkauf, deagle, 0
- iniRead, shotgun, %Ini%, Waffenkauf, shotgun, 0
- iniRead, mp5, %Ini%, Waffenkauf, mp5, 0
- iniRead, m4, %Ini%, Waffenkauf, m4, 0
- iniRead, ak47, %Ini%, Waffenkauf, ak47, 0
- iniRead, rifle, %Ini%, Waffenkauf, rifle, 0
- iniRead, sniper, %Ini%, Waffenkauf, sniper, 0
- iniRead, baseball, %Ini%, Waffenkauf, baseball, 0
- iniRead, katana, %Ini%, Waffenkauf, katana, 0
- SendChat("/buygun")
- sleep 200
- if( GetPlayerArmor() != 100 )
- {
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( deagle = 1 )
- {
- SendInput, {down}
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( shotgun = 1 )
- {
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( mp5 = 1 )
- {
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( ak47 = 1 )
- {
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( m4 = 1 )
- {
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( rifle = 1 )
- {
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( sniper = 1 )
- {
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {down}
- sleep 50
- SendInput, {enter}
- sleep 100
- }
- if ( baseball = 1 )
- {
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {enter}
- sleep 150
- }
- if ( katana = 1 )
- {
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {down}
- sleep 80
- SendInput, {enter}
- sleep 150
- }
- SendInput, {esc}
- return
- ;Admin-Systeme:
- :?:t/nf::
- Suspend Permit
- SendInput {enter}
- if (adminrang>0)
- {
- SendChat("/sup Hast du noch weitere Fragen?")
- }
- else
- {
- SendChat("Hast du noch weitere Fragen?")
- }
- Suspend Off
- return
- ;BYE
- :?:t/bye::
- Suspend Permit
- SendInput {enter}
- if (adminrang>0)
- {
- SendChat("/sup Falls du nochmal eine Frage hast: /sup [Text] | Cheater melden: /a [Text]")
- zeitstunde := A_Hour
- if(zeitstunde="12")
- {
- akzeit := "einen schönen Tag"
- }
- if(zeitstunde="13")
- {
- akzeit := "einen schönen Tag"
- }
- if(zeitstunde="14")
- {
- akzeit := "einen schönen Tag"
- }
- if(zeitstunde="15")
- {
- akzeit := "einen schönen Tag"
- }
- if(zeitstunde="16")
- {
- akzeit := "einen schönen Tag"
- }
- if(zeitstunde="17")
- {
- akzeit := "einen schönen Tag"
- }
- if(zeitstunde="18")
- {
- akzeit := "einen schönen Abend"
- }
- if(zeitstunde="19")
- {
- akzeit := "einen schönen Abend"
- }
- if(zeitstunde="20")
- {
- akzeit := "einen schönen Abend"
- }
- if(zeitstunde="21")
- {
- akzeit := "einen schönen Abend"
- }
- if(zeitstunde="22")
- {
- akzeit := "einen schönen Abend"
- }
- if(zeitstunde="23")
- {
- akzeit := "einen schönen Abend"
- }
- if(zeitstunde="00")
- {
- akzeit := "einen schönen Abend"
- }
- if(zeitstunde="08")
- {
- akzeit := "einen angenehmen Morgen"
- }
- if(zeitstunde="07")
- {
- akzeit := "einen angenehmen Morgen"
- }
- if(zeitstunde="09")
- {
- akzeit := "einen angenehmen Morgen"
- }
- if(zeitstunde="10")
- {
- akzeit := "einen angenehmen Morgen"
- }
- if(zeitstunde="11")
- {
- akzeit := "einen angenehmen Morgen"
- }
- if(zeitstunde="1")
- {
- akzeit := "eine angenehme Nacht"
- }
- if(zeitstunde="2")
- {
- akzeit := "eine angenehme Nacht"
- }
- if(zeitstunde="3")
- {
- akzeit := "eine angenehme Nacht"
- }
- if(zeitstunde="4")
- {
- akzeit := "eine angenehme Nacht"
- }
- if(zeitstunde="5")
- {
- akzeit := "eine angenehme Nacht"
- }
- if(zeitstunde="6")
- {
- akzeit := "eine angenehme Nacht"
- }
- SendChat("/sup Ich wünsche dir noch " . akzeit . " und viel Spaß auf GCT!")
- TextDestroy(sup_ov)
- SendChat("/ct")
- if AutoDuty=0
- SendChat("/aduty")
- }
- Suspend Off
- return
- :?:t/snd::
- Suspend Permit
- SendInput {enter}
- if (adminrang>0)
- {
- SendChat("/sup Sind Sie denn noch Anwesend?")
- }
- Suspend Off
- return
- ;IDQUIZ:
- :?:t/idquiz::
- Suspend permit
- sendinput {enter}
- If (adminrang>0)
- {
- Loop,
- {
- Random, idauswahl, 1, 100
- If (IsNPCById(idauswahl)==0)
- break
- }
- SendChat("/o _________________________ID-Quiz__________________________")
- SendChat("/o Der Spieler der mir als erstes die ID zu dem Namen " . getPlayerNameById(idauswahl) . " sagt,")
- SendChat("/o gewinnt 20.000$! Loesung per '/pn " . GetUserName() . " [passende ID]'")
- SendChat("/o Tipp: Verwende /id [Name]")
- sleep 200
- addchatmessage("{CC0A21}Los geht's! ( Die ID lautet = {A9DEEE}" . idauswahl . "{CC0A21} )")
- SetTimer, idquiz, 10
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- idquiz:
- GetChatLine(0, chatline)
- If InStr(chatline, idauswahl) AND InStr(chatline, "PN von")
- {
- RegExMatch(chatline, "PN von (.*)\:", winner)
- if(!instr(verbotenstring, winner1))
- {
- if(imp_row_exist("QuizBS", winner1))
- {
- verbotenstring .= winner1 ", "
- }
- else
- {
- Settimer, idquiz, off
- SendChat("/o Wir haben einen Gewinner! Herzlichen Glueckwunsch - " . winner1)
- SendChat("/o Lösung: Die ID von " getPlayerNameById(idauswahl) " war " idauswahl . " | Danke für die Teilnahme")
- idauswahl := ""
- chatline := ""
- SendChat("/tog")
- Sleep 200
- sendinput {enter}
- sleep 200
- sendinput {esc}
- SendChat("/pay " . winner1 . " 20000")
- SetTimer, togpn1 , 10000
- addchatmessage("{CC0A21}Die PN-Funktion wurde für 10 Sekunden deaktiviert!")
- if(verbotenstring != "")
- {
- AddChatMessage("{CC0A21}Teilnehmer auf der Blacklist: " verbotenstring)
- }
- verbotenstring := ""
- }
- }
- }
- return
- togpn1:
- SendChat("/tog")
- Sleep 200
- sendinput {enter}
- sleep 200
- sendinput {esc}
- SetTimer, togpn1 , off
- addchatmessage("{CC0A21}Die PN-Funktion wurde wieder aktiviert!")
- return
- ;NameQuiz;
- :?:t/namequiz::
- Suspend permit
- sendinput {enter}
- If (adminrang>0)
- {
- Loop,
- {
- Random, idauswahl, 1, 100
- If (IsNPCById(idauswahl)==0)
- break
- }
- SendChat("/o _________________________Name-Quiz__________________________")
- SendChat("/o Der Spieler der mir als erstes den Namen zu der ID " . idauswahl . " sagt,")
- SendChat("/o gewinnt 20.000$! Loesung per '/pn " . GetUserName() . " [passender Name]'")
- SendChat("/o Tipp: Verwende /id [Name] oder siehe in der TAB-Liste nach :)")
- sleep 200
- addchatmessage("{CC0A21}Los geht's! ( Der Name lautet = {A9DEEE}" GetPlayerNameById(idauswahl) . "{CC0A21} )")
- SetTimer, namequiz, 10
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- namequiz:
- GetChatLine(0, chatline)
- If InStr(chatline, GetPlayerNameById(idauswahl)) AND InStr(chatline, "PN von")
- {
- RegExMatch(chatline, "PN von (.*)\:", winner)
- if(!instr(verbotenstring, winner1))
- {
- if(imp_row_exist("QuizBS", winner1))
- {
- verbotenstring .= winner1 ", "
- }
- else
- {
- SetTimer, namequiz, off
- SendChat("/o Wir haben einen Gewinner! Herzlichen Glueckwunsch - " . winner1)
- SendChat("/o Lösung: " GetPlayerNameById(idauswahl) . " | Danke für die Teilnahme")
- idauswahl := ""
- chatline := ""
- SendChat("/tog")
- Sleep 200
- sendinput {enter}
- sleep 200
- sendinput {esc}
- SendChat("/pay " . winner1 . " 20000")
- SetTimer, togpn2, 10000
- addchatmessage("{CC0A21}Die PN-Funktion wurde für 10 Sekunden deaktiviert!")
- if(verbotenstring != "")
- {
- AddChatMessage("{CC0A21}Teilnehmer auf der Blacklist: " verbotenstring)
- }
- verbotenstring := ""
- }
- }
- }
- return
- togpn2:
- SendChat("/tog")
- Sleep 200
- sendinput {enter}
- sleep 200
- sendinput {esc}
- SetTimer, togpn2, off
- addchatmessage("{CC0A21}Die PN-Funktion wurde wieder aktiviert!")
- return
- :?:t/autoduty::
- /*AutoDUTY-FUNKTION
- */
- return
- ;Admin Welcome
- Admin:
- GetChatLine(0, line)
- If (adminrang>0)
- {
- If InStr(line, "" . GetUserName()" bearbeitet nun das Ticket von")
- {
- RegExMatch(line, "bearbeitet nun das Ticket von (.*).", ticketwer)
- zeitstunde := A_Hour
- if(zeitstunde="12")
- {
- akzeit := "Schönen Guten Tag"
- }
- if(zeitstunde="13")
- {
- akzeit := "Schönen Guten Tag"
- }
- if(zeitstunde="14")
- {
- akzeit := "Schönen Guten Tag"
- }
- if(zeitstunde="15")
- {
- akzeit := "Schönen Guten Tag"
- }
- if(zeitstunde="16")
- {
- akzeit := "Schönen Guten Tag"
- }
- if(zeitstunde="17")
- {
- akzeit := "Schönen Guten Tag"
- }
- if(zeitstunde="18")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="19")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="20")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="21")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="22")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="23")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="00")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="08")
- {
- akzeit := "Schönen Guten Morgen"
- }
- if(zeitstunde="07")
- {
- akzeit := "Schönen Guten Morgen"
- }
- if(zeitstunde="09")
- {
- akzeit := "Schönen Guten Morgen"
- }
- if(zeitstunde="10")
- {
- akzeit := "Schönen Guten Morgen"
- }
- if(zeitstunde="11")
- {
- akzeit := "Schönen Guten Morgen"
- }
- if(zeitstunde="01")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="02")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="03")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="04")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="05")
- {
- akzeit := "Schönen Guten Abend"
- }
- if(zeitstunde="06")
- {
- akzeit := "Schönen Guten Abend"
- }
- SendChat("/sup " . akzeit . " " . ticketwer1 . ", wie kann ich dir behilflich sein?")
- IniRead, owtdx, %Ini%, Overlay, WTDX
- IniRead, owtdy, %Ini%, Overlay, WTDY
- IniRead, oans2, %Ini%, Overlay, oans2
- if(oans2 = 1)
- {
- 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)
- }
- if AutoDuty=0
- SendChat("/aduty")
- sleep 150
- GetChatLine(0,checkisduty)
- If InStr(checkisduty, "ist nun nicht mehr als")
- {
- SendChat("/aduty")
- }
- iniread, ticket, %Ini%, Admin, Ticket,0
- ticket++
- iniwrite, %ticket%, %Ini%, Admin, Ticket
- addchatmessage("{1B13F0}[Ticketcounter]{E89C0E} Du hast bereits {0ECFE8}" ticket " {E89C0E}Tickets bearbeitet!")
- sleep 5000
- }
- }
- if (adminrang>2)
- {
- If InStr(line, "hat sich die Waffe")
- {
- RegExMatch(line, "\[ANTI - CHEAT\] (.*) hat sich die Waffe", checkweap)
- SendChat("/checkweapons " . checkweap1)
- addchatmessage("{0DE03F}[AntiCheat] {13F0F0}" . checkweap1 . " wird auf Waffen kontrolliert.")
- }
- }
- if (adminrang>0)
- {
- if instr(line, "hat ein neues Ticket erstellt")
- {
- showGameText("+ 1 Ticket - NEUES TICKET", 3000, 5)
- addchatmessage("{0DE03F}[Ticket-System]{13F0F0} +1 Ticket | Bitte bearbeite das neue Ticket!")
- sleep 2000
- }
- }
- if (adminrang>0)
- {
- GetChatLine(0,linech)
- if instr(linech, "hat das Ticket geschlossen.")
- {
- TextDestroy(sup_ov)
- IniRead, AutoDuty, %Ini%, Einstellung, AutoDuty,1
- if(AutoDuty = 0)
- {
- SendChat("/aduty")
- sleep 2000
- }
- }
- }
- return
- :?:t/useronline::
- Suspend Permit
- SendInput {enter}
- If adminrang>4
- {
- allonlineusers := imp_read_where("Accounts", "online", "Online", "Username")
- addchatmessage("{247AF0}[System]{F09A24} Es werden alle Aktiven Nutzer geladen!")
- alluseron := 0
- StringSplit, only1member, allonlineusers,`,
- Loop, %only1member0%
- {
- finishmember := only1member%a_index%
- if a_index=1
- {
- onseitlog := imp_read("Accounts", finishmember, "onseit")
- deruserseinrank := imp_read("Accounts",finishmember,"Rank")
- if(!instr(dialogderkommt, finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"))
- {
- dialogderkommt .= finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"
- }
- }
- else
- {
- StringReplace, finishmember, finishmember, %A_Space%, , All
- onseitlog := imp_read("Accounts", finishmember, "onseit")
- deruserseinrank := imp_read("Accounts",finishmember,"Rank")
- if(!instr(dialogderkommt, finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"))
- {
- dialogderkommt .= finishmember . " | Online seit: " . onseitlog " | Rank: " deruserseinrank "`n"
- }
- }
- alluseron := a_index
- }
- finishdialogderkommt := dialogderkommt . "`n`n Aktuell sind " alluseron " User mit dem Keybinder Online!"
- ShowDialog(0, "Online-User", finishdialogderkommt, "'Close'")
- dialogderkommt = ""
- finishdialogderkommt = ""
- }
- else
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- Suspend Off
- return
- :?:t/onlinefix::
- Suspend Permit
- SendInput {enter}
- If adminrang>4
- {
- anzahlfix := 0
- allusers := imp_read_where("Accounts", "online", "Online", "Username")
- addchatmessage("{247AF0}[System]{F09A24} Die User werden geladen...")
- StringSplit, deruser, allusers,`,
- Loop, %deruser0%
- {
- oneuser := deruser%a_index%
- if a_index=1
- {
- SendChat("/id " . oneuser)
- sleep 200
- GetChatLine(0,checkl)
- If InStr(checkl, "Spieler ist nicht Online")
- {
- imp_write("Accounts", oneuser, "online", "Offline")
- imp_write("Accounts", oneuser, "onseit", "Unbekannt")
- imp_write("Accounts", oneuser, "lastseen", "Unbekannt")
- addchatmessage("{FFFFFF}Der User" . oneuser " wurde als Offline eingetragen")
- addchatmessage("{247AF0}[System]{F09A24} Der User " oneuser " wurde als >Offline< eingetragen")
- anzahlfix++
- }
- }
- else
- {
- StringReplace, oneuser, oneuser, %A_Space%, , All
- SendChat("/id " . oneuser)
- sleep 200
- GetChatLine(0,checkl)
- If InStr(checkl, "Spieler ist nicht Online")
- {
- imp_write("Accounts", oneuser, "online", "Offline")
- imp_write("Accounts", oneuser, "onseit", "Unbekannt")
- imp_write("Accounts", oneuser, "lastseen", "Unbekannt")
- addchatmessage("{247AF0}[System]{F09A24} Der User " oneuser " wurde als >Offline< eingetragen")
- anzahlfix++
- }
- }
- }
- addchatmessage("{247AF0}[System]{F09A24} Es wurden insgesamt {0AAABF}" anzahlfix " {F09A24} Datenbank-Fehler behoben!")
- imp_mail("DEINEEMAIL", "Keybinder-Administrator " GetUserName() " hat einen Online-Fix durchgeführt! Falsche Einträge: " anzahlfix, "OnlineFIX")
- }
- else
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- Suspend Off
- return
- ;Lotto System;
- :?:t/lotto::
- username := GetUserName()
- Suspend permit
- If (adminrang>0)
- {
- IniRead, lottogw, %Ini%, Lotto, lottogw, 0
- if (lottogw = 0)
- {
- addchatmessage("{CC0A21}Es wurde kein Lottogewinn eingetragen...[/lottogw]")
- addchatmessage("{CC0A21}Das Lotto-System wurde somit abgebrochen!")
- return
- }
- IniRead, lottoz1, %Ini%, Lotto, lottoz1, 0
- IniRead, lottoz2, %Ini%, Lotto, lottoz2, 0
- if (lottoz1 = 0 || lottoz2 = 0)
- {
- addchatmessage("{CC0A21}Es wurden keine Zahlen angegeben...[/lottoz1 & /lottoz2]")
- addchatmessage("{CC0A21}Das Lotto-System wurde somit abgebrochen!")
- return
- }
- sendinput {enter}
- Random, ranumber, %lottoz1%, %lottoz2%
- SendChat("/o _________________________Lotto__________________________")
- SendChat("/o Wir haben eine Random Zahl im Bereich von " lottoz1 . "-" lottoz2 . " ausgewählt")
- SendChat("/o Schreibt mir nun eine PN der Zahl wo ihr denkt, dass diese es sein könnte")
- SendChat("/o /pn " GetUserName() . " [Zahl] | Wichtig: Hochzählen/Runterzählen verboten!")
- SendChat("/o Gewinn: " nummerformat(lottogw) . "$!")
- sleep 200
- addchatmessage("{CC0A21}Los geht's! ( Die Zahl lautet = {A9DEEE}" . ranumber . "{CC0A21} )")
- SetTimer, lottoquiz, 10
- quizstart := true
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- lottoquiz:
- GetChatLine(0,lottoch)
- if instr(lottoch, ": " . ranumber) and InStr(lottoch, "PN von")
- {
- RegExMatch(lottoch, "PN von (.*)\:", winner)
- if(!instr(verbotenstring, winner1))
- {
- if(imp_row_exist("QuizBS", winner1))
- {
- SendChat("/pn " winner1 " Du bist auf der Quiz-Blacklist! (Antwort wurde nicht gewertet)")
- verbotenstring .= winner1 ", "
- }
- else
- {
- Settimer, lottoquiz, off
- SendChat("/o Wir haben einen Gewinner! Herzlichen Glueckwunsch - " . winner1)
- SendChat("/o Die Zahl war: " ranumber . " | Danke für die Teilnahme")
- IniWrite, 0, %Ini%, Lotto, lottogw
- IniWrite, 0, %Ini%, Lotto, lottoz1
- IniWrite, 0, %Ini%, Lotto, lottoz2
- SendChat("/tog")
- Sleep 200
- sendinput {enter}
- sleep 200
- sendinput {esc}
- SendChat("/pay "winner1 . " " lottogw)
- SetTimer, toggggg , 20000
- addchatmessage("{CC0A21}Die PN-Funktion wurde für 20 Sekunden deaktiviert!")
- quizstart := false
- if(verbotenstring != "")
- {
- AddChatMessage("{CC0A21}Teilnehmer auf der Blacklist: " verbotenstring)
- }
- verbotenstring := ""
- }
- }
- }
- return
- toggggg:
- SendChat("/tog")
- Sleep 200
- sendinput {enter}
- sleep 200
- sendinput {esc}
- SetTimer, toggggg , off
- addchatmessage("{CC0A21}Die PN-Funktion wurde wieder aktiviert!")
- return
- :?:/lottostop::
- Suspend Permit
- if(adminrang>0)
- {
- if(quizstart=true)
- {
- SendChat("/o Das Lotto wurde manuell vom ausführenden Teammitglied gestoppt!")
- Settimer, lottoquiz, off
- quizstart := false
- }
- if(quizstart=false)
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Es wurde von dir bisher kein Lotto gestartet!")
- }
- }
- return
- :?:t/regelwerk::
- username := GetUserName()
- Suspend permit
- If (adminrang>0)
- {
- 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'" )
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/regelwerk2::
- username := GetUserName()
- Suspend permit
- If (adminrang>0)
- {
- 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'" )
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/svergehen::
- username := GetUserName()
- Suspend permit
- If (adminrang>0)
- {
- 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'" )
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/motd::
- UrlDownloadToFile,URL/motd/umotdtext.txt, %ProgPfad%/umotd.txt
- UrlDownloadToFile, URL/motd/amotdtext.txt, %ProgPfad%/amotd.txt
- FileRead, umotdtext, %ProgPfad%/umotd.txt
- FileRead, amotdtext, %ProgPfad%/amotd.txt
- FileDelete, %ProgPfad%/umotd.txt
- FileDelete, %ProgPfad%/amotd.txt
- username := GetUserName()
- Suspend permit
- If (adminrang>0)
- {
- showDialog(0, "Poly-Keybinder ~ Message of the Day", amotdtext, "'Close'" )
- }
- else
- {
- showDialog(0, "Poly-Keybinder ~ Message of the Day", umotdtext, "'Close'" )
- }
- return
- :?:t/setpassword::
- Suspend Permit
- username := getUsername()
- pwcheck := imp_read("Accounts", username, "password")
- if (pwcheck="0")
- {
- addchatmessage("{CC0A21}Bitte Benutze nicht dein ingame Passwort!")
- accpw := PlayerInput("/setpassword ")
- if(accpw != "")
- {
- setpwforacc := imp_hash(accpw,"sha384")
- setpwforacc := imp_hash(accpw,"whirlpool")
- setpwforacc := imp_hash(accpw,"md5")
- imp_write("Accounts", username, "password", setpwforacc)
- addchatmessage("{247AF0}[System]{F09A24} Dein Passwort wurde erfolgreich gespeichert!")
- }
- else
- {
- addchatmessage("{8C199E}Bitte probiere es erneut..das Passwort war leer")
- }
- }
- else
- {
- addchatmessage("{8C199E}Du besitzt bereits ein Passwort! Vergessen? Meld dich bei mir :)")
- }
- return
- F2::
- If (adminrang<1)
- {
- 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'" )
- }
- else if(adminrang=1)
- {
- 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'" )
- }
- else if(adminrang=2)
- {
- 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'" )
- }
- else if(adminrang=3)
- {
- 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'" )
- }
- else if(adminrang=4)
- {
- 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'" )
- }
- else if(adminrang=5)
- {
- 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'" )
- }
- return
- :?:t/setrank::
- username := GetUserName()
- If (adminrang>4)
- {
- ranguser := PlayerInput("/User: ")
- if(!imp_row_exist("Accounts",ranguser))
- {
- addchatmessage("{CC0A21}[Fehler] Der User wurde nicht gefunden")
- }
- else
- {
- rangget := PlayerInput("/Welchen Rank soll '" ranguser . "' erhalten: ")
- if(rangget = 0 || rangget = 1 || rangget = 2 || rangget = 3 || rangget = 4 || rangget = 5 || rangget = -2)
- {
- oldrang := imp_read("Accounts",ranguser,"Rank")
- imp_write("Accounts",ranguser,"Rank",rangget)
- imp_write("Accounts",ranguser,"Rankgive",GetUserName())
- addchatmessage("{02C8F5}Der User {F52B02}" ranguser . "{02C8F5} wurde von Rank {F52B02}" oldrang . "{02C8F5} auf Rank {F52B02}" rangget . "{02C8F5} gestuft!")
- imp_mail("DEINEEMAIL", "Rank-System", "Keybinder-Administrator " GetUserName() " hat den Nutzer " ranguser " den Rang " rangget " gegeben!")
- SendChat("/id " ranguser)
- sleep 150
- GetChatLine(0, ischerda)
- If(!instr(ischerda, "Spieler ist nicht Online"))
- {
- if(rangget = -2)
- {
- SendChat("/do " ranguser " Du wurdest vom Keybinder-Administrator " GetUserName() " auf die Keybinder-Blacklist gesetzt!")
- }
- else
- {
- SendChat("/do " ranguser " Du wurdest vom Keybinder-Administrator " GetUserName() " auf den Keybinder-Rang " rangget " gestuft!")
- }
- }
- }
- else
- {
- addchatmessage("{CC0A21}[Fehler] Es gehen nur die Ränge von 1-5")
- return
- }
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/lottogw::
- Suspend Permit
- username := GetUserName()
- If (adminrang>0)
- {
- addchatmessage("{CC0A21}Bitte gebe nun den Gewinn ein!")
- SendInput /lottogw{Space}
- Input lottogwt,V I M,{enter}
- SendInput t{end}+{home}{esc}
- if(lottogwt = "")
- {
- addchatmessage("{CC0A21}Du hast keinen Gewinn eingegeben! Bitte tätige es erneut")
- }
- else
- {
- addchatmessage("{CC0A21}Der Gewinn wurde auf " lottogwt . "$ gesetzt!")
- IniWrite, %lottogwt%, %Ini%, Lotto, lottogw
- }
- }
- return
- :?:t/lottoz1::
- Suspend Permit
- username := GetUserName()
- If (adminrang>0)
- {
- addchatmessage("{CC0A21}Bitte gebe nun die 1. Zahl ein")
- SendInput /lottoz1{Space}
- Input lottoz1t,V I M,{enter}
- SendInput t{end}+{home}{esc}
- if(lottoz1t = "")
- {
- addchatmessage("{CC0A21}Du hast keine Zahl eingegeben! Bitte tätige es erneut")
- }
- else
- {
- addchatmessage("{CC0A21}Die 1. Zahl wurde auf '" lottoz1t . "' gesetzt!")
- IniWrite, %lottoz1t%, %Ini%, Lotto, lottoz1
- }
- }
- return
- :?:t/lottoz2::
- Suspend Permit
- username := GetUserName()
- If (adminrang>0)
- {
- addchatmessage("{CC0A21}Bitte gebe nun die 2. Zahl ein")
- SendInput /lottoz2{Space}
- Input lottoz2t,V I M,{enter}
- SendInput t{end}+{home}{esc}
- if(lottoz2t = "")
- {
- addchatmessage("{CC0A21}Du hast keine Zahl eingegeben! Bitte tätige es erneut")
- }
- else
- {
- addchatmessage("{CC0A21}Die 2. Zahl wurde auf '" lottoz2t . "' gesetzt!")
- IniWrite, %lottoz2t%, %Ini%, Lotto, lottoz2
- }
- }
- return
- :?:t/setkills::
- Suspend Permit
- addchatmessage("{02C8F5}[Kills] Bitte gebe nun die Kills an")
- SendInput /setkills{Space}
- Input setkills,V I M,{enter}
- SendInput t{end}+{home}{esc}
- if(setkills = "")
- {
- addchatmessage("{CC0A21}Du musst eine Zahl eingeben!")
- }
- else
- {
- IniRead, killsch, %Ini%, Statistiken, Mord
- IniWrite, %setkills%, %Ini%, Statistiken, Mord
- addchatmessage("{02C8F5}[Die Kills wurden von {F52B02}" killsch . "{02C8F5} auf {F52B02}" setkills . "{02C8F5} gesetzt!]")
- }
- return
- :?:t/settode::
- Suspend Permit
- addchatmessage("{02C8F5}[Tode] Bitte gebe nun die Tode ein")
- SendInput /settode{Space}
- Input settode,V I M,{enter}
- SendInput t{end}+{home}{esc}
- if(settode = "")
- {
- addchatmessage("{CC0A21}Du musst eine Zahl eingeben!")
- }
- else
- {
- IniRead, todesch, %Ini%, Statistiken, Tode
- IniWrite, %settode%, %Ini%, Statistiken, Tode
- addchatmessage("{02C8F5}[Die Tode wurden von {F52B02}" todesch . "{02C8F5} auf {F52B02}" settode . "{02C8F5} gesetzt!]")
- }
- return
- :?:t/oinfo::
- Suspend Permit
- if(adminrang>0)
- {
- useroinfo := imp_read("mats","oinfo","melder")
- timeoinfo := imp_read("mats","oinfo","wann")
- aktuelltime := A_DD "." A_MM "." A_YYYY " um "
- timewannwieder := imp_read("mats","oinfo","stundedanach")
- timewannwieder2 := imp_read("mats","oinfo","minute")
- if(useroinfo != "" || timeoinfo != "" || timewannwieder != "" || timewannwieder2 != "")
- {
- wvuhrdann := aktuelltime . timewannwieder2 . ":" timewannwieder
- addchatmessage("{D31AD9}[Wichtig] {CFD91A}/oinfo funktioniert nur alle 15 Minuten")
- addchatmessage("{D31AD9}Nächste Möglichkeit: {CFD91A}" wvuhrdann " Uhr")
- }
- else if (useroinfo = "" || timeoinfo = "" || timewannwieder = "" || timewannwieder2 = "")
- {
- SendChat("/o Fragen oder Probleme? ->[/sup]<- | Cheater oder Bugs entdeckt? ->[/a]<-")
- imp_write("mats","oinfo","melder",GetUserName())
- aktuelltime := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min
- imp_write("mats","oinfo","wann",aktuelltime)
- minutecheck := A_Min+15
- if(minutecheck>59)
- {
- dadazeit := minutecheck-A_Min
- stundenzeit := A_Hour
- if(stundenzeit = 1)
- {
- stundenzeit := 01
- }
- else if(stundenzeit = 2)
- {
- stundenzeit := 02
- }
- else if(stundenzeit = 3)
- {
- stundenzeit := 03
- }
- else if(stundenzeit = 4)
- {
- stundenzeit := 04
- }
- else if(stundenzeit = 5)
- {
- stundenzeit := 05
- }
- else if(stundenzeit = 6)
- {
- stundenzeit := 06
- }
- else if(stundenzeit = 7)
- {
- stundenzeit := 07
- }
- else if(stundenzeit = 8)
- {
- stundenzeit := 08
- }
- else if(stundenzeit = 9)
- {
- stundenzeit := 09
- }
- stundenzeit := stundenzeit+1
- }
- else
- {
- dadazeit := minutecheck
- stundenzeit := A_Hour
- if(stundenzeit = 1)
- {
- stundenzeit := 01
- }
- else if(stundenzeit = 2)
- {
- stundenzeit := 02
- }
- else if(stundenzeit = 3)
- {
- stundenzeit := 03
- }
- else if(stundenzeit = 4)
- {
- stundenzeit := 04
- }
- else if(stundenzeit = 5)
- {
- stundenzeit := 05
- }
- else if(stundenzeit = 6)
- {
- stundenzeit := 06
- }
- else if(stundenzeit = 7)
- {
- stundenzeit := 07
- }
- else if(stundenzeit = 8)
- {
- stundenzeit := 08
- }
- else if(stundenzeit = 9)
- {
- stundenzeit := 09
- }
- }
- imp_write("mats","oinfo","stundedanach",dadazeit)
- imp_write("mats","oinfo","minute",stundenzeit)
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/flame::
- Suspend Permit
- if (adminrang>0)
- SendInput /mute{space}{space}3{space}flame{left 8}
- return
- :?:t/lbel::
- Suspend Permit
- if (adminrang>0)
- SendInput /mute{space}{space}5{space}Leichte Beleidigung{left 22}
- return
- :?:t/mbel::
- Suspend Permit
- if (adminrang>0)
- SendInput /mute{space}{space}20{space}Mittlere Beleidigung{left 24}
- return
- :?:t/sbel::
- Suspend Permit
- if (adminrang>0)
- SendInput /mute{space}{space}35{space}Schwere Beleidigung{left 23}
- return
- :?:t/aspam::
- Suspend Permit
- if (adminrang>0)
- SendInput /amute{space}{space}10{space}Spam{left 8}
- return
- :?:t/adabuse::
- Suspend Permit
- if (adminrang>0)
- SendInput /adlock{space}{space}240{space}/ad Abuse{left 14}
- return
- :?:t/laufscript::
- Suspend, permit
- SendInput {enter}
- iniRead, laufscriptaktiv, %Ini%, Laufscript, Status
- if (laufscriptaktiv = "off")
- {
- laufscriptaktiv := "on"
- IniWrite, %laufscriptaktiv%, %Ini%, Laufscript, Status
- addchatmessage("{02C8F5}[Laufscript]{14E01B} >>Aktiviert<<")
- }
- else if (laufscriptaktiv = "on")
- {
- laufscriptaktiv := "off"
- IniWrite, %laufscriptaktiv%, %Ini%, Laufscript, Status
- addchatmessage("{02C8F5}[Laufscript]{F20707} >>Deaktiviert<<")
- }
- Suspend Off
- return
- ~Space::
- if(isInChat()==1 || IsPlayerInAnyVehicle()==1 || laufscriptaktiv == "off")
- return
- Sleep 30
- while GetKeyState("Space", "P")
- {
- Send {space down}
- Sleep 1
- Send {space up}
- Sleep 1
- }
- return
- :?:t/re::
- Suspend Permit
- Loop, read, %A_MyDocuments%\GTA San Andreas User Files\SAMP\chatlog.txt
- {
- If (!A_LoopReadLine)
- Continue
- If (InStr(A_LoopReadLine, "PN von ",12)) {
- pntext := SubStr(A_LoopReadLine, 12)
- RegExMatch(pntext, "PN von (.*)\: (.*)" ,aw)
- user := aw1
- text := aw2
- }
- }
- if(user != "" || text != "")
- {
- addchatmessage("{49D167}[PN-System] {0D57E0}Letze PN von: {FC8E0F}" user . " {49D167}| {0D57E0}Nachricht: {FC8E0F}" text)
- SendInput /pn %user%{space}
- }
- return
- :?:t/vd::
- Suspend Permit
- SendInput {enter}
- SendChat("Vielen Dank!")
- Suspend Off
- return
- :?:t/kradio::
- Suspend Permit
- SendInput {enter}
- addchatmessage("{49D167}[Keybinder-Radio] {0D57E0}/kradio {FC8E0F}[iloveradio|tbfm|htfm|hbfm|close] {49D167}(Hilfe: /kradiohelp)")
- if(aktr = "")
- {
- aktr := "-"
- }
- addchatmessage("{49D167}[Keybinder-Radio] Derzeit hörst du: {FC8E0F}" aktr)
- kradio := PlayerInput("/kradio ")
- if(kradio = "iloveradio")
- {
- stopAudioStream()
- PlayAudioStream("URL/Radio/iloveradio.m3u")
- aktr := "ILoveRadio"
- addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
- }
- if(kradio = "tbfm")
- {
- stopAudioStream()
- PlayAudioStream("URL/Radio/tb.pls")
- aktr := "Technobase.FM"
- addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
- }
- if(kradio = "htfm")
- {
- stopAudioStream()
- PlayAudioStream("URL/Radio/htfm.pls")
- aktr := "Housetime.FM"
- addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
- }
- if(kradio = "hbfm")
- {
- stopAudioStream()
- PlayAudioStream("URL/Radio/hbfm.pls")
- aktr := "HardBase.FM"
- addchatmessage("{49D167}[Keybinder-Radio] Das Radio: {FC8E0F}" aktr . "{49D167} wurde gestartet!")
- }
- if(kradio = "close")
- {
- stopAudioStream()
- aktr := "-Nothing-"
- addchatmessage("{49D167}[Keybinder-Radio] Das Radio wurde gestoppt!")
- }
- return
- :?:/kradiohelp::
- Suspend Permit
- 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")
- return
- :?:t/gt::
- Suspend Permit
- SendInput {enter}
- SendChat("Guten Tag, wie kann ich Ihnen weiterhelfen?")
- Suspend Off
- return
- :?:t/ruh::
- Suspend Permit
- SendInput, {enter}
- SendChat("/kaufwaffe")
- sleep 200
- SendInput {enter}
- Sleep 200
- SendInput {esc}
- SendChat("/heal")
- Suspend Off
- return
- :?:t/geintragen::
- Suspend Permit
- addchatmessage("{49D167}Bitte gebe nun deinen Gruppen-Namen ein!")
- geintragen := PlayerInput("/geintragen ")
- InIWrite, %geintragen%, %Ini%, GH, Gruppe
- addchatmessage("{49D167}Die Gruppe: {FC8E0F}" geintragen " {49D167}wurde eingetragen")
- Suspend Off
- return
- :?:t/gh::
- Suspend Permit
- SendInput, {enter}
- IniRead, geintragen, %Ini%, GH, Gruppe
- if(geintragen = "ERROR")
- {
- addchatmessage("{49D167}Du hast keine Gruppe angegeben! (/geintragen)")
- }
- else
- {
- SendChat("Die Hilfe der " . geintragen . " steht ihnen immer zur Verfügung!")
- }
- Suspend Off
- return
- :?:t/nh::
- Suspend Permit
- SendInput, {enter}
- hp := GetPlayerHealth()
- armor := GetPlayerArmor()
- vehp := GetVehicleHealth()
- vename := GetVehicleModelName()
- c := getcoordinates()
- calczone := CalculateZone(c[1], c[2], c[3])
- calccity := calculateCity(c[1],c[2],c[3])
- plid := GetPlayerIdByName(GetUserName())
- ping := GetPlayerPingbyId(plid)
- SendChat("/g Ich benötige dringend Hilfe in " . calczone . ", " . calccity)
- sleep 1000
- SendChat("/g Mein Leben: " . hp . " | Meine Rüstung: " . armor . " | Ping: " ping)
- if(IsPlayerInAnyVehicle() = 1)
- {
- sleep 1000
- SendChat("/g Fahrzeug: " . vename . " | Car-HP: " . vehp)
- }
- Suspend Off
- return
- :?:t/ok::
- Suspend Permit
- SendInput, {enter}
- SendChat("/g Verstanden & Bestätigt")
- return
- :?:t/abholung::
- Suspend Permit
- SendInput, {enter}
- c := getcoordinates()
- calczone := CalculateZone(c[1], c[2], c[3])
- calccity := calculateCity(c[1],c[2],c[3])
- SendChat("/g Ich benoetige eine Abholung in " . calczone . ", " . calccity)
- return
- :?:t/kd::
- Suspend Permit
- SendInput, {enter}
- IniRead, mykills, %Ini%, Statistiken, Mord, 0
- IniRead, mytode, %Ini%, Statistiken, Tode, 0
- if(mytode = 0)
- {
- mykd := 0
- }
- else
- {
- mykd := mykills/mytode
- }
- SendChat("/g [Statistiken] Kills: " . mykills . " | Tode: " . mytode . " | K/D: " . mykd)
- Suspend Off
- return
- :?:t/grobinfo::
- Suspend Permit
- SendInput {enter}
- transtime := imp_read("transporter", "transporter", "wann")
- SendChat("/g [Info] Der nächste Transporter fährt am " . transtime . " Uhr los!")
- Suspend Off
- return
- :?:t/orobinfo::
- Suspend Permit
- SendInput {enter}
- transtime := imp_read("transporter", "transporter", "wann")
- SendChat("/o [Info] Der nächste Transporter fährt am " . transtime . " Uhr los!")
- Suspend Off
- return
- :?:t/lrobinfo::
- Suspend Permit
- SendInput {enter}
- transtime := imp_read("transporter", "transporter", "wann")
- SendChat("[Info] Der nächste Transporter fährt am " . transtime . " Uhr los!")
- Suspend Off
- return
- Trans:
- ;CheckTransporter()
- FormatTime, Datum , %A_Now%, dd.MM.yyyy
- FormatTime,stunden,,HH
- FormatTime,minuten,,mm
- wanntrans := imp_read("transporter","transporter","wann")
- jetzttime := Datum " um " . stunden . ":" minuten
- if(wanntrans = jetzttime)
- {
- imp_write("transporter","transporter","wann", "0")
- imp_write("transporter","transporter","melder","System")
- showGameText("Der Transporter startet nun!", 2000, 5)
- addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
- }
- ;Matswanncheck()
- FormatTime, Datum , %A_Now%, dd.MM.yyyy
- FormatTime,stunden,,HH
- FormatTime,minuten,,mm
- Uhrzeit := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min
- matswanncheck := imp_read("mats","mats","wann")
- matszeitdanach := imp_read("mats","mats","stundedanach")
- matstimer := Datum . " um " . matszeitdanach . ":59"
- if(Uhrzeit = matstimer)
- {
- imp_write("mats","mats","melder","")
- imp_write("mats","mats","wann","")
- imp_write("mats","mats","preis","")
- imp_write("mats","mats","stundedanach","")
- addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
- }
- else
- {
- }
- ;OInfo-Timer()
- rightnow := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min
- williwillswissen := imp_read("mats","oinfo","stundedanach")
- williwillswissen2 := imp_read("mats","oinfo","minute")
- testtime := A_DD "." A_MM "." A_YYYY " um " . williwillswissen2 . ":" . williwillswissen
- if(rightnow = testtime)
- {
- imp_write("mats","oinfo","melder","")
- imp_write("mats","oinfo","wann","")
- imp_write("mats","oinfo","stundedanach","")
- imp_write("mats","oinfo","minute","")
- addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
- }
- return
- :?:t/matsset::
- Suspend Permit
- matsset := A_DD "." A_MM "." A_YYYY " um " A_Hour ":" A_Min " Uhr"
- matsschonvon := imp_read("mats","mats","melder")
- matsschonpreis := imp_read("mats","mats","preis")
- matsschonwann := imp_read("mats","mats","wann")
- if(matsschonvon = "" || matsschonpreis = "0" || matsschonwann = "")
- {
- addchatmessage("{34C9B8}Mit diesem Befehl kannst du den Mats-Preis verkünden!")
- addchatmessage("{34C9B8}!Solltest du hier falsche Info's angeben ==> Keybinder-Blacklist!")
- addchatmessage("{34C9B8}WICHTIG: Bitte gib nur den Preis ein!!!")
- matspreis := PlayerInput("/matsset ")
- if matspreis is not integer
- {
- addchatmessage("{49D167}[Fehler] Es sind nur ZAHLEN als Matspreis erlaubt!")
- }
- else
- {
- imp_write("mats","mats","melder",GetUserName())
- imp_write("mats","mats","wann",matsset)
- imp_write("mats","mats","preis",matspreis)
- imp_write("mats","mats","stundedanach",A_Hour)
- addchatmessage("{E6BA0B}Danke für deine Meldung..den Matspreis sehen nun alle Spieler!")
- addchatmessage("{49D167}Preis: {E6BA0B}" . matspreis . "{49D167}$ | Wann: {E6BA0B}" . matsset . " {49D167}| Meldung von: {E6BA0B}" GetUserName())
- imp_mail("DEINEEMAIL", "MATSPREIS-Change", "Preis: " . matspreis . "$ | Wann: " . matsset . " | Meldung von: " GetUserName())
- }
- }
- else
- {
- addchatmessage("{49D167}[Matspreis] Der Matspreis wurde bereits eingetragen")
- addchatmessage("{49D167}[Matspreis] Preis: {E6BA0B}" . matsschonpreis . "{49D167}$ | Uhrzeit: {E6BA0B}" matsschonwann)
- }
- return
- :?:t/matspreis::
- matsschonvon := imp_read("mats","mats","melder")
- matsschonpreis := imp_read("mats","mats","preis")
- matsschonwann := imp_read("mats","mats","wann")
- if(matsschonvon = "" || matsschonpreis = "" || matsschonwann = "")
- {
- addchatmessage("{49D167}[Matspreis] Es wurde bisher kein Matspreis eingefügt!")
- }
- else
- {
- zweihundertfünfzigmatspreis := matsschonpreis*250
- addchatmessage("{49D167}[Matspreis] Preis: {E6BA0B}" . matsschonpreis . "{49D167}$ (250 Mats = " nummerformat(zweihundertfünfzigmatspreis) "$) | Last-Check: {E6BA0B}" matsschonwann " von {6CF888}" matsschonvon)
- }
- return
- :?:t/ogruppenad::
- Suspend Permit
- SendInput {enter}
- IniRead, geintragen, %Ini%, GH, Gruppe, 0
- IniRead, gruppengeld, %Ini%, GH, IVGeld, 0
- if(geintragen = 0 || gruppengeld = 0)
- {
- addchatmessage("{F50F1A}Der Gruppenname oder das Invitegeld fehlt")
- addchatmessage("{F50F1A}Syntax: /invitegeld & /geintragen")
- }
- else
- {
- SendChat("/o Die Gruppe " . geintragen . " sucht Mitglieder! Interesse geweckt ? /pn")
- SendChat("/o Voraussetzungen: Schusstest & " . nummerformat(gruppengeld) . "$")
- }
- Suspend Off
- return
- :?:t/invitegeld::
- Suspend Permit
- SendInput {enter}
- addchatmessage("{49D167}[Gruppen-AD] Wie viel soll ein neues Mitglied zahlen?")
- geldinvite := PlayerInput("/invitegeld ")
- if geldinvite is not Integer
- {
- addchatmessage("{F50F1A}Es sind nur Zahlen erlaubt!")
- }
- else
- {
- IniWrite, %geldinvite%, %Ini%, GH, IVGeld
- addchatmessage("{49D167}[Gruppen-AD] Das Geld wurde auf {0DE03F}" . nummerformat(geldinvite) . "{49D167}$ gesetzt")
- }
- Suspend Off
- return
- :?:t/credits::
- Suspend Permit
- 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-")
- Suspend Off
- return
- :?:t/cleo::
- Suspend Permit
- SendInput {enter}
- addchatmessage("{C8A269}[Cleo]{698FC8} Syntax: [Modname|Info]")
- addchatmessage("{C8A269}[Modname]{698FC8} HPArmorDigital | DIGIHP | memory2048 | Zonetext | hpverlust")
- RegRead gtapfad, HKEY_CURRENT_USER, Software\SAMP, gta_sa_exe
- StringTrimRight, gtapfad, gtapfad, 10
- cleogta := gtapfad "cleo"
- cleocheeeeck := PlayerInput("/cleo ")
- if(cleocheeeeck = "")
- {
- addchatmessage("{49D167}Syntax: [Modname|Info]")
- }
- else
- {
- IfNotExist, %cleogta%
- {
- addchatmessage("{49D167}[Cleo] {698FC8}Du besitzt kein Cleo!")
- return
- }
- IfExist, %cleogta%
- {
- if(cleocheeeeck = "HPArmorDigital" || cleocheeeeck = "hparmordigital")
- {
- cleodigihparmor := cleogta . "\HPArmorDigital.cs"
- IfNotExist, %cleodigihparmor%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}HPArmorDigital.cs wurde erfolgreich Installier (Relog nötig)")
- urldownloadtofile, URL/mods/HPArmorDigital.cs, %cleodigihparmor%
- return
- }
- ifExist, %cleodigihparmor%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}HPArmorDigital.cs wurde nicht installiert (Existiert bereits)")
- }
- }
- if(cleocheeeeck = "DIGIHP" || cleocheeeeck = "digihp")
- {
- cleodigihp := cleogta . "\digihp.cs"
- IfNotExist, %cleodigihp%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}digihp.cs wurde erfolgreich Installiert (Relog nötig)")
- urldownloadtofile, URL/mods/digihp.cs, %cleodigihp%
- return
- }
- ifExist, %cleodigihp%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}digihp.cs wurde nicht installiert (Existiert bereits)")
- }
- }
- if(cleocheeeeck = "memory2048" || cleocheeeeck = "Memory2048")
- {
- cleomemory := cleogta . "\memory2048.cs"
- IfNotExist, %cleomemory%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}memory2048.cs wurde erfolgreich Installiert (Relog nötig)")
- urldownloadtofile, URL/mods/memory2048.cs, %cleomemory%
- return
- }
- ifExist, %cleomemory%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}memory2048.cs wurde nicht installiert (Existiert bereits)")
- }
- }
- if(cleocheeeeck = "Zonetext" || cleocheeeeck = "zonetext")
- {
- cleozonetext := cleogta . "\zonetext.cs"
- IfNotExist, %cleozonetext%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}Zonetext.cs wurde erfolgreich Installiert (Relog nötig)")
- urldownloadtofile, URL/mods/zonetext.cs, %cleozonetext%
- return
- }
- ifExist, %cleozonetext%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}Zonetext.cs wurde nicht installiert (Existiert bereits)")
- }
- }
- if(cleocheeeeck = "hpverlust")
- {
- cleohpverlust := cleogta . "\hpverlust.cs"
- IfNotExist, %cleohpverlust%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}hpverlust.cs wurde erfolgreich Installiert (Relog nötig)")
- urldownloadtofile, URL/mods/hpverlust.cs, %cleohpverlust%
- return
- }
- IfExist, %cleohpverlust%
- {
- addchatmessage("{C8A269}[Mods] {698FC8}hpverlust.cs wurde nicht installiert (Existiert bereits)")
- }
- }
- if(cleocheeeeck = "Info" || cleocheeeeck = "info")
- {
- addchatmessage("{C8A269}[Info] {698FC8}Diese Funktion installiert Legale Cleomods!")
- addchatmessage("{C8A269}[Info] {698FC8}Falls ihr diese nicht mehr möchtet müsst ihr sie löschen")
- }
- }
- }
- return
- :?:t/oinfofix::
- Suspend Permit
- SendInput, {enter}
- if(adminrang>2)
- {
- imp_write("mats","oinfo","melder","")
- imp_write("mats","oinfo","wann","")
- imp_write("mats","oinfo","stundedanach","")
- imp_write("mats","oinfo","minute","")
- imp_mail("DEINEEMAIL", "O-InfoFIX", "Keybinder-Administrator " GetUserName() " hat den Befehl /oinfofix verwendet!")
- addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
- }
- Suspend Off
- return
- :?:t/matsfix::
- Suspend Permit
- SendInput, {enter}
- if(adminrang>2)
- {
- imp_write("mats","mats","melder","")
- imp_write("mats","mats","wann","")
- imp_write("mats","mats","preis","")
- imp_write("mats","mats","stundedanach","")
- imp_mail("DEINEEMAIL", "O-InfoFIX", "Keybinder-Administrator " GetUserName() " hat den Befehl /matsfix verwendet!")
- addchatmessage("{247AF0}[System]{F09A24} Die Datenbank wurde aktualisiert")
- }
- Suspend Off
- return
- :?:t/matsmode::
- if(matsmode = false)
- {
- addchatmessage("{247AF0}[System]{F09A24} Der Matsmodus wurde {11F747}aktiviert")
- matsmode := true
- }
- else if(matsmode = true)
- {
- addchatmessage("{247AF0}[System]{F09A24} Der Matsmodus wurde {FF0000}deaktiviert")
- matsmode := false
- }
- return
- :?:t/lastmats::
- Suspend Permit
- sendinput, {enter}
- if(matsmode = true)
- {
- mylandkauf := imp_read("Accounts",usname,"lastkauf")
- if(mylandkauf = "" || mylandkauf = 0 || mylandkauf = -1)
- {
- addchatmessage("{F09A24}Es wurde kein Matskauf gefunden!")
- }
- else
- {
- addchatmessage("{F09A24}" mylandkauf)
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{F09A24} Du bist nicht im Matsmodus! ( Tipp: /matsmode )")
- }
- return
- :?:t/resetmats::
- Suspend Permit
- sendinput, {enter}
- if(matsmode = true)
- {
- addchatmessage("{247AF0}[System]{F09A24} Möchtest du wirklich deinen Mats zurücksetzen? (Ja/Nein)")
- jaodernein := PlayerInput("/Deine Antwort: ")
- if(jaodernein = "Ja" || jaodernein = "ja")
- {
- imp_write("Accounts",GetUserName(),"geld","0")
- imp_write("Accounts",GetUserName(),"mats","0")
- imp_write("Accounts",GetUserName(),"lastkauf","0")
- FileDelete, %TXTFILE%
- addchatmessage("{247AF0}[System]{F09A24} Die Mats wurden erfolgreich zurückgesetzt")
- }
- else if(jaodernein = "nein" || jaodernein = "Nein" || jaodernein != "Ja" || jaodernein != "ja" || jaodernein != "nein" || jaodernein != "Nein")
- {
- addchatmessage("{247AF0}[System]{F09A24} Du hast den Vorgang abgebrochen!")
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{F09A24} Du bist nicht im Matsmodus! ( Tipp: /matsmode )")
- }
- return
- :?:t/oanschalten::
- Suspend Permit
- SendInput, {enter}
- if(adminrang>2)
- {
- SendChat("/o > In wenigen Sekunden wird der /o Chat geöffnet <")
- sleep 1000
- SendChat("/o Regeln: Kein Spam | Keine Beleidigungen / Flame")
- sleep 3000
- SendChat("/otog")
- }
- Suspend Off
- return
- :?:t/oabschalten::
- Suspend Permit
- SendInput, {enter}
- if(adminrang>2)
- {
- SendChat("/o > In wenigen Sekunden wird der /o Chat geschlossen <")
- sleep 1000
- SendChat("/o Ich wünsche euch weiterhin viel Spaß auf German-Crimetime!")
- sleep 3000
- SendChat("/otog")
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- Suspend Off
- return
- :?:t/keybinderad::
- Suspend Permit
- SendInput, {enter}
- SendChat("/ad Ihr sucht einen guten Gangkeybinder? >>Polyethylen's Gangkeybinder<<")
- sleep 150
- GetChatLine(1,ischadda)
- sleep 150
- if(instr(ischadda, "Ihr sucht einen guten Gangkeybinder?"))
- {
- imp_mail("DEINEEMAIL","Keybinder-AD",GetUserName() " hat eine Keybinder-AD gemacht!!")
- addchatmessage("{247AF0}[System]{F09A24} Danke für deine Werbung! Grüße von Polyethylen :)")
- }
- Suspend Off
- return
- :?:t/carsurf::
- Suspend Permit
- SendInput, {enter}
- if(adminrang>1)
- {
- addchatmessage("{247AF0}[System]{F09A24} Bitte gebe die ID/Name ein! (Tippe '00' ein um es abzubrechen)")
- iddieichkriegensoll := PlayerInput("/ID/Name: ")
- if(iddieichkriegensoll = 00)
- {
- addchatmessage("{247AF0}[System]{F09A24} Der Vorgang wurde abgebrochen!")
- return
- }
- else
- {
- SendChat("/kwarn " . iddieichkriegensoll . " Carsurf")
- sleep 200
- SendChat("/slap " iddieichkriegensoll)
- sleep 200
- SendChat("/do " . iddieichkriegensoll . " Carsurf ist nicht erlaubt! Bitte unterlasse dies")
- iddieichkriegensoll := ""
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/kontrolle::
- Suspend Permit
- SendInput, {enter}
- if(adminrang>2)
- {
- addchatmessage("{247AF0}[System]{F09A24} Achtung: Du wirst automatisch in den TV-Modus gehen!! (Tippe '00' ein um es abzubrechen)")
- iddieichkriegensoll := PlayerInput("/ID oder Name: ")
- if(iddieichkriegensoll = 00)
- {
- addchatmessage("{247AF0}[System]{F09A24} Der Kontrolle-Vorgang wurde abgebrochen!")
- return
- }
- if(iddieichkriegensoll != "")
- {
- SendChat("/tv " iddieichkriegensoll)
- sleep 100
- GetChatLine(0,linechee)
- if instr(linechee, "Du bist nicht im Spectatemodus.")
- {
- addchatmessage("{247AF0}[System]{F09A24} Die ID/Name wurde nicht gefunden!")
- }
- else
- {
- sleep 300
- SendChat("/do " . iddieichkriegensoll . " ______________________PC-Kontrolle______________________")
- sleep 300
- SendChat("/do " . iddieichkriegensoll . " » Bitte melde dich in den nächsten 5 Minuten im Teamspeak³ «")
- sleep 300
- SendChat("/do " . iddieichkriegensoll . " » Solltest du deinen GTA Ornder ändern, folgt ein Permanenter Spielausschluss «")
- sleep 300
- SendChat("/do " . iddieichkriegensoll . " » Teamspeak³ IP: ts.cops-robbers.de «")
- sleep 300
- SendChat("/do " . iddieichkriegensoll . " ________________________________________________________")
- sleep 2000
- addchatmessage("{247AF0}[System]{F09A24} Du hast den User in den TeamSpeak³ gerufen!")
- }
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/cd::
- Suspend Permit
- SendInput, {enter}
- SendChat("»Der Countdown startet!«")
- sleep 1500
- SendChat("»3«")
- sleep 1000
- SendChat("»2«")
- sleep 1000
- SendChat("»1«")
- sleep 1000
- SendChat("»Go!«")
- Suspend off
- return
- overlay:
- If(WinActive("GTA:SA:MP"))
- {
- IniRead, ohpx, %Ini%, Overlay, HPX, 688
- IniRead, ohpy, %Ini%, Overlay, HPY, 90
- IniRead, ofpsx, %Ini%, Overlay, FPSX, 770
- IniRead, ofpsy, %Ini%, Overlay, FPSY, 5
- IniRead, oans1, %Ini%, Overlay, oans1
- IniRead, oans3, %Ini%, Overlay, oans3
- if(oans1 = 1)
- {
- if(refresh>10)
- updateScoreboardDataEx()
- hp := Round(GetPlayerHealth())
- if(hp<0)
- {
- hp := 100
- }
- armor := Round(GetPlayerArmor())
- idvonuser := getPlayerIdByName(GetUserName())
- pingvomuser := getPlayerPingById(idvonuser)
- insghp := hp+armor
- TextSetString(hp_ov, "HP: " insghp " | Ping: " pingvomuser " | ID " idvonuser "")
- refresh++
- }
- if(oans3 = 1)
- {
- TextSetString(fps_ov, "{F2FF00}FPS:" GetFrameRate())
- }
- }
- return
- :?:t/quizblacklist::
- if(adminrang>2)
- {
- addchatmessage("{247AF0}[System]{F09A24} Schreibe nun einen Nutzer, den du zur Blacklist hinzufügen möchtest:")
- idorname := PlayerInput("/quizblacklist: ")
- SendChat("/id " . idorname)
- sleep 200
- GetChatLine(0,ischdauseronline)
- sleep 150
- If InStr(ischdauseronline, "Virtuelle Welt")
- {
- RegExMatch(ischdauseronline, "\* (.*) (.*)\: ID ", dernameoderdieid)
- ischderuserschondrin := imp_row_exist("QuizBS",dernameoderdieid2)
- if(ischderuserschondrin = 1)
- {
- dergrundvonblacklist := imp_read("QuizBS",dernameoderdieid2,"reason")
- addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " existiert bereits in der Quiz-Blacklist | Grund: " dergrundvonblacklist)
- }
- else
- {
- if(idorname != "")
- {
- addchatmessage("{247AF0}[System]{F09A24} Gebe nun bitte den Grund für die Blacklist an:")
- dergrunddendueintraegscht := PlayerInput("/Grund: ")
- addchatmessage("{247AF0}[System]{F09A24} Möchtest du wirklich " dernameoderdieid2 " zu der Quiz-Blacklist hinzufügen? ( Grund: " dergrunddendueintraegscht " )")
- jaoderneinwahrscheinlich := PlayerInput("/Blacklist('Ja' oder 'Nein):")
- if(jaoderneinwahrscheinlich = "Ja" || jaoderneinwahrscheinlich = "ja")
- {
- imp_create_row("QuizBS", dernameoderdieid2)
- imp_write("QuizBS",dernameoderdieid2,"reason",dergrunddendueintraegscht)
- imp_write("QuizBS",dernameoderdieid2,"von", GetUserName())
- addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde erfolgreich hinzugefügt! ( Grund: " dergrunddendueintraegscht " )")
- SendChat("/do " dernameoderdieid2 " Sie wurden soeben auf der Quiz-Blacklist hinzugefügt! ( Grund: " dergrunddendueintraegscht " )")
- imp_mail("DEINEEMAIL", "Keybinder-Administrator " GetUserName() " hat den Nutzer " dernameoderdieid2 " mit dem Grund " dergrunddendueintraegscht " auf die QBL gesetzt", "Quiz-Blacklist eintrag")
- }
- else
- {
- addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde nicht hinzugefügt!")
- }
- }
- }
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/hquizblacklist::
- if(adminrang>2)
- {
- addchatmessage("{247AF0}[System]{F09A24} Schreibe nun einen Nutzer, den du zur Blacklist hinzufügen möchtest:")
- idorname := PlayerInput("/quizblacklist: ")
- SendChat("/id " . idorname)
- sleep 200
- GetChatLine(0,ischdauseronline)
- sleep 150
- If InStr(ischdauseronline, "Virtuelle Welt")
- {
- RegExMatch(ischdauseronline, "\* (.*) (.*)\: ID ", dernameoderdieid)
- ischderuserschondrin := imp_row_exist("QuizBS",dernameoderdieid2)
- if(ischderuserschondrin = 1)
- {
- dergrundvonblacklist := imp_read("QuizBS",dernameoderdieid2,"reason")
- addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " existiert bereits in der Quiz-Blacklist | Grund: " dergrundvonblacklist)
- }
- else
- {
- if(idorname != "")
- {
- addchatmessage("{247AF0}[System]{F09A24} Gebe nun bitte den Grund für die Blacklist an:")
- dergrunddendueintraegscht := PlayerInput("/Grund: ")
- addchatmessage("{247AF0}[System]{F09A24} Möchtest du wirklich " dernameoderdieid2 " zu der Quiz-Blacklist hinzufügen? ( Grund: " dergrunddendueintraegscht " )")
- jaoderneinwahrscheinlich := PlayerInput("/Blacklist('Ja' oder 'Nein):")
- if(jaoderneinwahrscheinlich = "Ja" || jaoderneinwahrscheinlich = "ja")
- {
- imp_create_row("QuizBS", dernameoderdieid2)
- imp_write("QuizBS",dernameoderdieid2,"reason",dergrunddendueintraegscht)
- imp_write("QuizBS",dernameoderdieid2,"von", GetUserName())
- addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde erfolgreich hinzugefügt! ( Grund: " dergrunddendueintraegscht " )")
- imp_mail("DEINEEMAIL", "Keybinder-Administrator " GetUserName() " hat den Nutzer " dernameoderdieid2 " mit dem Grund " dergrunddendueintraegscht " GEHEIM auf die QBL gesetzt", "Quiz-Blacklist eintrag")
- }
- else
- {
- addchatmessage("{247AF0}[System]{F09A24} Der Nutzer " dernameoderdieid2 " wurde nicht hinzugefügt!")
- }
- }
- }
- }
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/beleidigungen::
- username := GetUserName()
- Suspend permit
- If (adminrang>0)
- {
- 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'" )
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- :?:t/ovfix::
- {
- addchatmessage("{247AF0}[System]{F09A24} Die Overlay's werden neu geladen...")
- SetTimer, overlay, Off
- DestroyAllVisual()
- SetTimer, overlay, 150
- IniRead, hpx, %Ini%, Overlay, HPX
- IniRead, hpy, %Ini%, Overlay, HPY
- IniRead, owtdx, %Ini%, Overlay, WTDX
- IniRead, owtdy, %Ini%, Overlay, WTDY
- IniRead, ofpsx, %Ini%, Overlay, FPSX
- IniRead, ofpsy, %Ini%, Overlay, FPSY
- IniRead, oans1, %Ini%, Overlay, oans1
- IniRead, oans2, %Ini%, Overlay, oans2
- IniRead, oans3, %Ini%, Overlay, oans3
- if(oans1 = 1)
- {
- hp_ov := TextCreate("Arial",7,false,false,hpx,hpy,0xFFFFFFFF,"",False,true)
- }
- if(oans3 = 1)
- {
- fps_ov := TextCreate("Arial",8,true,false,ofpsx,ofpsy,0xFFFFFFFF,"",False,true)
- }
- sleep 1500
- addchatmessage("{247AF0}[System]{F09A24} Das Overlay-System wurde erfolgreich neu geladen!")
- }
- return
- :?:t/random::
- Suspend Permit
- zahl1dieichkriegensoll := PlayerInput("/Zahl1: ")
- zahl2dieichkriegensoll := PlayerInput("/Zahl2: ")
- Random, randomzahl, %zahl1dieichkriegensoll%, %zahl2dieichkriegensoll%
- AddChatMessage("Die Random generierte Zahl ist: >> " randomzahl " <<")
- Suspend Off
- return
- :?:t/randomwin::
- arank := imp_read("Accounts", GetUserName(), "Rank")
- if(arank>0)
- {
- Random, randomzahl1, 45, 120
- While(GetPlayerNameById(randomzahl1)=="")
- {
- Random, randomzahl1, 45, 120
- sleep 500
- }
- SendChat("/o _________________________Random-Win__________________________")
- SendChat("/o " GetUserName() " hat seinen Random-Generator angeschmissen...")
- SendChat("/o Die Ausgewählte ID wird ein Preisgeld von 20.000$ erhalten! ~> Auflösung in 5 Sekunden")
- sleep 1000
- AddChatMessage("{247AF0}[Random-Win] {FA0C0C}Es wurde der User " GetPlayerNameById(randomzahl1) " mit der ID " randomzahl1 " ausgelost!")
- AddChatMessage("{247AF0}[Random-Win] {FA0C0C}Der Gewinn & die Ankündigung folgt in wenigen Sekunden automatisch!")
- sleep 5000
- SendChat("/o Der Gewinner ist: ID >> " randomzahl1 " ~ " GetPlayerNameById(randomzahl1) " <<")
- SendChat("/pay " randomzahl1 " 20000")
- zahl1dieichkriegensoll := ""
- zahl2dieichkriegensoll := ""
- versuche := ""
- }
- else
- {
- addchatmessage("{247AF0}[System]{FA0C0C} Du besitzt nicht die nötigen Rechte!")
- }
- return
- neueversion:
- UrlDownloadToFile, URL/Update/ver.txt, %ProgPfad%\ver.txt
- FileRead, newver, %ProgPfad%\ver.txt
- FileDelete, %ProgPfad%\ver.txt
- if (version < newver)
- {
- addchatmessage("{247AF0}[System]{F09A24} UPDATE ! Version: " newver)
- addchatmessage("{247AF0}[System]{F09A24} Der Keybinder wurde aktualisiert!")
- addchatmessage("{247AF0}[System]{F09A24} ~> Der Keybinder wurde geschlossen | Starte diesen nun neu <~")
- ExitApp
- }
- if (newver = 0000)
- {
- AddChatMessage("Die Entwicklung des Keybinders wurde eingestellt!!")
- addchatmessage("{247AF0}[System]{F09A24} ~> Der Keybinder wurde geschlossen <~")
- ExitApp
- }
- if (newver = 00000)
- {
- AddChatMessage("{247AF0}[System]{F09A24} Der Keybinder wurde wegen eines Fehler deaktiviert!!")
- addchatmessage("{247AF0}[System]{F09A24} ~> Der Keybinder wurde geschlossen <~")
- ExitApp
- }
- kbrank := imp_read("Accounts",GetUserName(),"Rank")
- if(kbrank = "-2")
- {
- AddChatMessage("{247AF0}[System]{F09A24} Du wurdest auf die Keybinder-Blacklist gesetzt!")
- AddChatMessage("{247AF0}[System]{F09A24} Der Keybinder & GTA_SA werden nun geschlossen")
- sleep 5000
- Process, Close, gta_sa.exe
- ExitApp
- }
- return
- :?:t/ncb::
- Suspend Permit
- if(arank>2)
- {
- SendInput, /ban{space}{space}Namechange{left 11}
- }
- return
- :?:t/gctts::
- Suspend Permit
- run, ts3server://ts.cops-robbers.de
- return
- qbl:
- GUI, Submit, NoHide
- GUI, lv:Default
- user_name := imp_list_rows("QuizBS")
- usering := imp_count_rows("QuizBS")
- StringSplit, myArray,user_name, `,,%A_Space%
- Gui, lv:Add, ListView, x10 y10 w350 h280 grechts, Spieler|Grund|Eingetragen von
- Gui, lv:Show, x229 y185 w365 h340, [Poly-Keybinder] Quiz-Blacklist
- Loop, %myArray0%
- {
- users := myArray%A_Index%
- dreason := imp_read("QuizBS", users, "reason")
- dadmin := imp_read("QuizBS", users, "von")
- if(dadmin = 0 || dadmin = "")
- {
- dadmin := "Unbekannt"
- }
- LV_Add("",users,dreason,dadmin)
- LV_ModifyCol(1, "AutoHdr Text Left")
- LV_ModifyCol(2, "AutoHdr Text Left")
- }
- return
- rechts:
- LV_GetText(Current_Row, A_EventInfo)
- MsgBox, 262196, ~Spieler entfernen~, Möchtest du %Current_Row%`nlöschen?
- ifmsgbox, Yes
- {
- if(arank>4)
- {
- imp_delete_row("QuizBS", Current_Row)
- LV_Delete(A_EventInfo)
- }
- else
- {
- MsgBox, 64, Fehler,Du besitzt nicht die nötigen Rechte!
- }
- }
- return
- ;Playerinput:
- PlayerInput(text)
- {
- s := A_IsSuspended
- Suspend On
- KeyWait Enter
- SendInput t^a{backspace}%text%
- Input, var, v, {enter}
- SendInput ^a{backspace 100}{enter}
- Sleep, 20
- if(!s)
- Suspend Off
- return var
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement