#IfWinActive, GTA:SA:MP
#UseHook
#NoEnv
#Persistent
#include api.ahk
Gui, Add, Button, x361 y215 w160 h50 , Einstellungen
Gui, Add, Button, x361 y105 w160 h50 , Eigene Sounds
Gui, Add, Button, x11 y105 w160 h50 , Befehle
Gui, Add, Button, x11 y215 w160 h50 , Keybinds
Gui, Add, GroupBox, x191 y85 w150 h200 ,
Gui, Add, Text, x195 y75 w130 h20 , Tägliche Neuigkeiten
Gui, Add, Text, x201 y105 w130 h170 , Der offizielle Support wurde am 26.10.2014 (vorerst) eingestellt.
Gui, Add, Text, x392 y327 w200 h13 , Created by Dean Dilauro
; Generated using SmartGUI Creator for SciTE
Gui, Show, w544 h365, Untitled GUI
return
DownloadToStringOL(url, head, encoding = "utf-8") ; http://www.autohotkey.com/board/topic/89198-simple-download-bin-tostring-und-tofile/
{
static a := "AutoHotkey/" A_AhkVersion
if (!DllCall("LoadLibrary", "str", "wininet") || !(h := DllCall("wininet\InternetOpen", "str", a, "uint", 1, "ptr", 0, "ptr", 0, "uint", 0, "ptr")))
return 0
c := s := 0, o := ""
if (f := DllCall("wininet\InternetOpenUrl", "ptr", h, "str", url, "str", head, "int", -1, "uint", 0x80083000, "ptr", 0, "ptr"))
{
while (DllCall("wininet\InternetQueryDataAvailable", "ptr", f, "uint*", s, "uint", 0, "ptr", 0) && s > 0)
{
VarSetCapacity(b, s, 0)
DllCall("wininet\InternetReadFile", "ptr", f, "ptr", &b, "uint", s, "uint*", r)
o .= StrGet(&b, r >> (encoding = "utf-16" || encoding = "cp1200"), encoding)
}
DllCall("wininet\InternetCloseHandle", "ptr", f)
}
DllCall("wininet\InternetCloseHandle", "ptr", h)
return o
}
:?:/forenoverlay::
Suspend Permit
If(Foren_Ov != 1)
{
IniRead, yPo, Einstellungen.ini, Einstellungen, ForenY, 500
IniRead, xPo, Einstellungen.ini, Einstellungen, ForenX, 700
Forenbox := BoxCreate(xPo, yPo, 250, 80, 0x70000000, true)
Border := BoxSetBorder(Forenbox, 2, true)
BoxSetBorderColor(Forenbox, 0xFFFFFFFF)
Forum_Ov := TextCreate("Comic Sans MS", 7, false, false, xPo+3, yPo, 0xFFFFFFFF, " ", true, true)
Foren_Ov := 1
Settimer, Forenoverlay, 5000
}
else
{
DestroyAllVisual()
Foren_Ov := -1
SetTimer, Forenoverlay, Off
}
return
Forenoverlay:
IfWinNotActive GTA:SA:MP
return
test := ""
count := 0
;~ URLDownloadToVar("http://rpg-city.de/index.php/BoardFeed/", test)
test := DownloadToStringOL("http://rpg-city.de/index.php/BoardFeed/", "cookie zensiert ")
count := 0
Loop, parse, test, `n, `r
{
if(InStr(A_LoopField, "<title><![CDATA[") && !InStr(A_LoopField, "RPG City"))
{
RegExMatch(A_LoopField, "<title><!\[CDATA\[(.*)\]\]></title>", v_title)
}
if(InStr(A_LoopField, "<dc:creator><![CDATA"))
{
RegExMatch(A_LoopField, "<dc:creator><!\[CDATA\[(.*)\]\]></dc:creator>", v_creator)
count++
;~ AddChatMessage(0x7401DF, "|Keybinder| {FF0000}[Forum-News] {FFFFFF} Ersteller:{04B45F} " v_creator1 " {FFFFFF}Titel:{04B45F} " v_title1 "")
StringReplace, v_creator1, v_creator1, ä, ae
StringReplace, v_title1, v_title1, ä, ae
StringReplace, v_creator1, v_creator1, ü, ue
StringReplace, v_title1, v_title1, ü, ue
StringReplace, v_creator1, v_creator1, ö, oe
StringReplace, v_title1, v_title1, ö, oe
Ersteller_%count% := v_creator1
Titel_%count% := v_title1
;~ AddChatMessage(0xFFFFFF, "Count: " . count . ", Ersteller: " . Ersteller[%count%] . ", Titel: "Titel[%count%])
}
if(count == 5)
{
TextSetString(Forum_Ov, "Neuesten Beitraege: `nErsteller: " . Ersteller_1 . ", Titel: " . Titel_1 . "`nErsteller: " . Ersteller_2 . ", Titel: " . Titel_2 . "`nErsteller: " . Ersteller_3 . ", Titel: " . Titel_3 . "`nErsteller: " . Ersteller_4 . ", Titel: " . Titel_4 . "`nErsteller: " . Ersteller_5 . ", Titel: " . Titel_5 . "`")
break
}
}
return
:?:/forenpos::
Suspend Permit
If(Foren_Ov == 1)
{
Forenjustierung := 1
Steps := 10
AddChatMessage(Farbcode, "|Hitman Binder| {FFFFFF}Justiere die Position mit Alt+Pfeiltasten")
AddChatMessage(Farbcode, "|Hitman Binder| {FFFFFF}Speichere deine Einstellungen mit /forensave")
TextSetShown(Forum_Ov, 0)
}
else
{
AddChatMessage(Farbcode, "|Hitman Binder| {FFFFFF}Du musst erst das Forenoverlay aktivieren")
return
}
return
;~ ~Numpad8::
~!Up::
if(IsChatOpen() || IsDialogOpen() || IsMenuOpen())
return
If(Forenjustierung!=1)
return
yPo-=Steps
BoxSetPos(Forenbox, xPo, yPo)
return
;~ ~Numpad5::
~!Down::
if(IsChatOpen() || IsDialogOpen() || IsMenuOpen())
return
If(Forenjustierung!=1)
return
yPo+=Steps
BoxSetPos(Forenbox, xPo, yPo)
return
;~ ~Numpad4::
~!Left::
if(IsChatOpen() || IsDialogOpen() || IsMenuOpen())
return
If(Forenjustierung!=1)
return
xPo-=Steps
BoxSetPos(Forenbox, xPo, yPo)
return
;~ ~Numpad6::
~!Right::
if(IsChatOpen() || IsDialogOpen() || IsMenuOpen())
return
If(Forenjustierung!=1)
return
xPo+=Steps
BoxSetPos(Forenbox, xPo, yPo)
return
:?:/forensave::
Suspend Permit
Forenjustierung := -1
IniWrite, %xPo%, Einstellungen.ini, Einstellungen, ForenX
IniWrite, %yPo%, Einstellungen.ini, Einstellungen, ForenY
TextSetPos(Forum_Ov, xPo+3, yPo)
TextSetShown(Forum_Ov, 1)
return
GuiClose:
ExitApp
Alles anzeigen
